软件名称：[B]FZ实时看盘－－飞狐分时指标 源码[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：9.00 KB
官方主页：Home Page
更新时间：2010-12-31 19:03:29
软件简介:

FZ实时看盘

DRAWGBK(CLOSE,COLORRGB(50,200,50),COLORRGB(100,50,50),1);

"FZKD标尺.明支#day" ,COLORRED;
"FZKD标尺.明阻#day" ,COLORgreen;

MC:=REF(CLOSE,1);
阻力位:=IF(CLOSE>200,CLOSE*1.01,CLOSE*1.07);
阻力位１:=IF(CLOSE<10,CLOSE*1.05,阻力位);
止损位:=IF(CLOSE>200,CLOSE*0.99,CLOSE*0.93);
止损位１:=IF(CLOSE<10,CLOSE*0.95,止损位);
阻力位A:=IF(MC>200,MC*1.01,MC*1.07);
阻力位2:=IF(MC<10,MC*1.05,阻力位A);
止损位B:=IF(MC>200,MC*0.99,MC*0.93);
止损位2:=IF(MC<10,MC*0.95,止损位B);

DRAWTEXTEX(BARSTATUS=1,0,0,0,STKLABEL+' '+STKNAME+'              '),ColorFFFF80;

DRAWTEXTEX(BARSTATUS=2 and v>ref(v,1) and ma(v,5)>ref(ma(v,5),1),0,0,15,'今日成交量大于昨日,且有继续增大趋势'+'           '),Color8285FF,;
DRAWTEXTEX(BARSTATUS=2 and v<ref(v,1) and ma(v,5)>ref(ma(v,5),1),0,0,15,'今日成交量小于昨日，但有放大迹象'+'          '),Color8285FF;
DRAWTEXTEX(BARSTATUS=2 and v>ref(v,1)and ma(v,5)<ref(ma(v,5),1),0,0,15,'今日成交量大于昨日, 但有缩小迹象'+'           '),Color8285FF;
DRAWTEXTEX(BARSTATUS=2 and v<ref(v,1)and ma(v,5)<ref(ma(v,5),1),0,0,15,'今日成交量小于昨日，且有缩小迹象'+'           '),Color8285FF;
DRAWTEXTEX(CLOSE,0,0,30,'[昨/今日 止损位 :'+NUMTOSTR(止损位B,2)+'/'+NUMTOSTR(止损位１,2)+'**]'),LINETHICK1,colorFF00;
DRAWTEXTEX(CLOSE,0,0,45,'[昨/今日 阻力位 :'+NUMTOSTR(阻力位2,2)+'/'+NUMTOSTR(阻力位１,2)+']'),LINETHICK1,colorFEBAF5;

zq:=DATATYPE;
r1:=OPENMINUTES(time);
zs:=ref(close,r1);
zsr:=DYNAINFO( 3);
j:=SUM(close*vol,SUMBARS(vol,FINANCE( 7)))/SUM(vol,SUMBARS(vol,FINANCE( 7)));
jj:=SUM(close*vol,0)/SUM(vol,0);
jj1:=SUM(close*vol,r1)/SUM(vol,r1);
jja:=if(zq=6,jj,if(zq=1,jj1,jj));
zsa:=if(zq=6,zsr,if(zq=1,zs,zsr));
cr:=if(zq=6,close>0,if(zq=1,r1>1,close>0));
POLYLINE(cr,zsa),COLORGRAY,POINTDOT;
dk:=(sma(close,2,1)-sma(close,6,1))*2.1;

s2:=sma(c,2,1);
s6:=sma(c,6,1);
dk:=2*(s2-s6);
STICKLINE(dk>0,DYNAINFO( 3),DYNAINFO( 3)+dk,0,1),COLORRED;
STICKLINE(dk<0,DYNAINFO( 3),DYNAINFO( 3)+dk,0,1),COLORCYAN;
if DATATYPE>=0 then exit;
rc:=DYNAINFO(3);
q:=DATACOUNT;
hh:=DYNAINFO(5);
LL:=DYNAINFO(6);
f:=max(hh-rc,rc-LL);
ff:=f/rc*100;
q1h:=if(ff<1,0.9898*rc,rc-f*1.02);
q1l:=if(ff<1,0.9798*rc,rc-2*f*1.016);
//FILLRGN(1,q1h,q1l),colorblack;
R:=INDEXC;
Rh:=hhv(r,0);
RL:=llv(r,0);
Rb:=(q1h-q1l)/(RH[q]-RL[q]);
Ry:=(q1h+q1l-rb*(RH[q]+RL[q]))/2;
//r*rb+ry,COLORFF00FF;
//(求和(r*INDEXV,r)/求和(INDEXV,r))*rb+ry,COLOR00FF00;
流通:=finance(7)/10000;
qj1:=FINANCE( 7)/800;
qj2:=FINANCE( 7)/1000;
qj3:=FINANCE( 7)/1500;
qj4:=FINANCE( 7)/2000;
qj5:=FINANCE( 7)/4000;
qj6:=FINANCE( 7)/6000;
qj7:=FINANCE( 7)/8000;
qj8:=FINANCE( 7)/10000;
qj9:=ESTDATA(8)/13000;
XS:=if(finance(7)<1,qj9,if(流通<1,qj1,if(流通>=1 AND 流通<5,qj2,if(流通>=5 AND 流通<10,qj3,if(流通>=10 AND 流通<20,qj4,if(流通>=20 AND 流通<40,qj5,if(流通>=40 AND 流通<60,qj6,if(流通>=60 AND 流通<=100,qj7,if(流通>=100,qj8,0)))))))));
XS1:=XS*1.618;
主动买入:=求和(BUYVOL,0);
主动卖出:=求和(SELLVOL,0);
特单买:=if(BUYVOL>XS1,BUYVOL,0);
特单卖:=if(SELLVOL>XS1,SELLVOL,0);
大单买:=if(BUYVOL>XS and BUYVOL<=XS1,BUYVOL,0);
大单卖:=if(SELLVOL>XS and SELLVOL<=XS1,SELLVOL,0);
小单买:=if(BUYVOL<=XS,BUYVOL,0);
小单卖:=if(SELLVOL<=XS,SELLVOL,0);
特单买入:=SUM(特单买,0);
特单卖出:=SUM(特单卖,0);
大单买入:=SUM(大单买,0);
大单卖出:=SUM(大单卖,0);
小单买入:=SUM(小单买,0);
小单卖出:=SUM(小单卖,0);
大单差:=(特单买入+大单买入)-(特单卖出+大单卖出);

VARA:=if(BUYVOL<=ref(ASKVOL(1),1)+ref(ASKVOL(2),1)+ref(ASKVOL(3),1) AND close>=ref(ASKPRICE(3),1),BUYVOL,0);
上扫单:=求和(INTPART(if(VARA>XS AND VARA<XS1,BUYVOL,0)),0);
VARB:=if(SELLVOL<=ref(BIDVOL(1),1)+ref(BIDVOL(2),1)+ref(BIDVOL(3),1) AND close<=ref(BIDPRICE(3),1),SELLVOL,0);
下扫单:=求和(INTPART(if(VARB>XS AND VARA<XS1,SELLVOL,0)),0);
总:=(特单买入+特单卖出+大单买入+大单卖出+小单买入+小单卖出+上扫单+下扫单);
DRAWTEXTEX(DYNAINFO(7),1,20,830,'■ 大单买: '+NUMTOSTR(特单买入,0)),LINETHICK2,colorFF;
DRAWTEXTEX(DYNAINFO(7),1,260,830,'占:'+NUMTOSTR(floor(特单买入/总*100),0)+' %'),LINETHICK2,colorFF;
DRAWTEXTEX(DYNAINFO(7),1,20,860,'■ 大单卖: '+NUMTOSTR(特单卖出,0)),LINETHICK2,colorFF00;
DRAWTEXTEX(DYNAINFO(7),1,260,860,'占:'+NUMTOSTR(floor(特单卖出/总*100),0)+' %'),LINETHICK2,colorFF00;
DRAWTEXTEX(DYNAINFO(7),1,20,890,'■ 中单买: '+NUMTOSTR(大单买入,0)),LINETHICK2,colorFF;
DRAWTEXTEX(DYNAINFO(7),1,260,890,'占:'+NUMTOSTR(floor(大单买入/总*100),0)+' %'),LINETHICK2,colorFF;
DRAWTEXTEX(DYNAINFO(7),1,20,920,'■ 中单卖: '+NUMTOSTR(大单卖出,0)),LINETHICK2,colorFF00;
DRAWTEXTEX(DYNAINFO(7),1,260,920,'占:'+NUMTOSTR(floor(大单卖出/总*100),0)+' %'),LINETHICK2,colorFF00;
DRAWTEXTEX(DYNAINFO(7),1,20,950,'■ 小单买: '+NUMTOSTR(小单买入,0)),LINETHICK2,colorFF00FF;
DRAWTEXTEX(DYNAINFO(7),1,260,950,'占:'+NUMTOSTR(floor(小单买入/总*100),0)+' %'),LINETHICK2,colorFF00FF;
DRAWTEXTEX(DYNAINFO(7),1,20,980,'■ 小单卖: '+NUMTOSTR(小单卖出,0)),LINETHICK2,colorFFFF00;
DRAWTEXTEX(DYNAINFO(7),1,260,980,'占:'+NUMTOSTR(floor(小单卖出/总*100),0)+' %'),LINETHICK2,colorFFFF00;
DRAWTEXTEX(DYNAINFO(7),1,400,830,'■ 上扫单: '+NUMTOSTR(上扫单,0)),LINETHICK2,colorFF;
DRAWTEXTEX(DYNAINFO(7),1,640,830,'占:'+NUMTOSTR(floor(上扫单/总*100),0)+' %'),LINETHICK2,colorFFFF00;
DRAWTEXTEX(DYNAINFO(7),1,400,860,'■ 下扫单: '+NUMTOSTR(下扫单,0)),LINETHICK2,colorFFFF00;
DRAWTEXTEX(DYNAINFO(7),1,640,860,'占:'+NUMTOSTR(floor(下扫单/总*100),0)+' %'),LINETHICK2,colorFFFF00;
DRAWTEXTEX(DYNAINFO(7),1,400,890,'■ 大单差: '+NUMTOSTR(大单差,0)),LINETHICK2,colorFF00;
DRAWTEXTEX(DYNAINFO(7),1,640,890,'占:'+NUMTOSTR(大单差/(大单买入+大单卖出)*100,0)+' %'),LINETHICK2,colorFF00;
DRAWTEXTEX(DYNAINFO(7),1,400,920,'■ 多空差: '+NUMTOSTR((主动买入-主动卖出),0)),LINETHICK2,colorFFFF;
DRAWTEXTEX(DYNAINFO(7),1,640,920,'占:'+NUMTOSTR((主动买入-主动卖出)/总*100,0)+' %'),LINETHICK2,colorFFFF;

A:=REF(HHV(high,240),1);
AA:=A[DATACOUNT];
B:=REF(LLV(low,240),1);
BB:=B[DATACOUNT];
ZJ1:=(((HIGH + LOW) + (2 * CLOSE)) / 4);
ZJ2:=(((ZJ1 - EMA(ZJ1,21)) / STD(ZJ1,21)) * 100);
ZJ3:=EMA(ZJ2,5);
ZJ4:=EMA(ZJ3,2);
ZJ5:=EMA(ZJ4,2);
ZJ6:=(((3 * ZJ4) - (2 * ZJ5)) / 2);
IF((ZJ6 > 90),(AA * 0.998),AA),LINETHICK2,colorDD66AA;
IF((ZJ6 < (0 - 95)),(BB * 1.002),BB),LINETHICK2,colorDD66AA;

if datatype>0 then exit; //仅分笔周期及实时图运行本公式
k:="kdj.k#min60";
d:="kdj.d#min60";
a1:=ref(cross(k,d),2) and k>d;//前2分钟里60分种k.d金叉，现k大于d！
b1:ref(cross(d,k),2) and d>k;
if(a1 ,l*0.998,0),colorred,linethick4,CROSSDOT;
if(b1 ,l*1.002,0),colorgreen,linethick4,CROSSDOT;

BU:=BARSLAST((CLOSE = HHV(CLOSE,150)));
SE:=BARSLAST((CLOSE = LLV(CLOSE,150)));
KK1:=SE;
KK2:=BU;
LM1:=SE;
LM2:=BU;
OK:=((KK1 > KK2) AND (LM1 > LM2));
OK1:=((KK1 > KK2) AND (LM1 < LM2));
NOK:=((KK2 > KK1) AND (LM2 &
[url=http://www.70822.com/soft/sort013/sort02/down-28734.html]FZ实时看盘－－飞狐分时指标 源码[/url]