相關標簽:

?

慶《五、一》送小禮物一件：飛狐分時指標！

導入源碼的朋友，在公式編輯區的選項中，主圖疊加前打上勾。
不會設置的朋友，可以直接導入公式文件。
理想論壇 一發千鈞
圖示：
{程序化交易 www.kzuj.com.cn }

{程序化交易 www.kzuj.com.cn }
指標源碼：
流通:=FINANCE(7)/10000;
qj1:=CAPITAL/5000; qj2:=CAPITAL/8000; qj3:=CAPITAL/10000; qj4:=CAPITAL/12000; qj5:=CAPITAL/14000; qj6:=CAPITAL/16000; qj7:=CAPITAL/18000; qj8:=CAPITAL/20000;qj9:=ESTDATA(8)/40000;
XS:=IF(CAPITAL=0,qj9,IF(流通<1.0,qj1,IF(流通>=1.0 AND 流通<5.0,qj2,IF(流通>=5.0 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;
主動買入:=SUM(BUYVOL,0);
主動賣出:=SUM(SELLVOL,0);
大單買:=IF(BUYVOL>XS,BUYVOL,0);
大單賣:=IF(SELLVOL>XS,SELLVOL,0);
小單買:=IF(BUYVOL<=XS,BUYVOL,0);
小單賣:=IF(SELLVOL<=XS,SELLVOL,0);
大單買入:=SUM(大單買,0);
大單賣出:=SUM(大單賣,0);
小單買入:=SUM(小單買,0);
小單賣出:=SUM(小單賣,0);
大單差:=大單買入-大單賣出;
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,COLOR0000FF;
k1:=hhv(h,0);
k2:=llv(l,0);
k3:=barslast(OPENMINUTES(TIME)<=240);
t1:=barslast(OPENMINUTES(TIME)<=60);
DRAWSL(OPENMINUTES(TIME)>=60,ref(k1,t1),0,k3,2),LINEDOT;
DRAWSL(OPENMINUTES(TIME)>=60,ref(k2,t1),0,k3,2),LINEDOT;
DRAWICON(OPENMINUTES(TIME)>60 and cross(c,ref(k1,t1)+0.001),ref(k1,t1),1);
VARA:=IF(BUYVOL<=REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1) AND CLOSE>=REF(ASKPRICE(3),1),BUYVOL,0);
上掃單:=SUM(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);
下掃單:=SUM(INTPART(IF(VARB>XS AND VARA<XS1,SELLVOL,0)),0);
總:=(大單買入+大單賣出+小單買入+小單賣出+上掃單+下掃單);
DRAWTEXTEX(DYNAINFO(7),1,20,1050,'■ 大單買入: '+NUMTOSTR(大單買入,0)),LINETHICK2,colorFF;
DRAWTEXTEX(DYNAINFO(7),1,300,1050,'占:'+NUMTOSTR(FLOOR(大單買入/總*100),0)+' %'),LINETHICK2,colorFF;
DRAWTEXTEX(DYNAINFO(7),1,20,1100,'■ 大單賣出: '+NUMTOSTR(大單賣出,0)),LINETHICK2,colorFF00;
DRAWTEXTEX(DYNAINFO(7),1,300,1100,'占:'+NUMTOSTR(FLOOR(大單賣出/總*100),0)+' %'),LINETHICK2,colorFF00;
DRAWTEXTEX(DYNAINFO(7),1,20,1150,'■ 小單買入: '+NUMTOSTR(小單買入,0)),LINETHICK2,colorFF00FF;
DRAWTEXTEX(DYNAINFO(7),1,300,1150,'占:'+NUMTOSTR(FLOOR(小單買入/總*100),0)+' %'),LINETHICK2,colorFF00FF;
DRAWTEXTEX(DYNAINFO(7),1,20,1200,'■ 小單賣出: '+NUMTOSTR(小單賣出,0)),LINETHICK2,colorFFFF00;
DRAWTEXTEX(DYNAINFO(7),1,300,1200,'占:'+NUMTOSTR(FLOOR(小單賣出/總*100),0)+' %'),LINETHICK2,colorFFFF00;
DRAWTEXTEX(DYNAINFO(7),1,20,1250,'■ 上掃大單: '+NUMTOSTR(上掃單,0)),LINETHICK2,colorFF;
DRAWTEXTEX(DYNAINFO(7),1,300,1250,'占:'+NUMTOSTR(FLOOR(上掃單/總*100),0)+' %'),LINETHICK2,colorFFFF00;
DRAWTEXTEX(DYNAINFO(7),1,20,1300,'■ 下掃大單: '+NUMTOSTR(下掃單,0)),LINETHICK2,colorFFFF00;
DRAWTEXTEX(DYNAINFO(7),1,300,1300,'占:'+NUMTOSTR(FLOOR(下掃單/總*100),0)+' %'),LINETHICK2,colorFFFF00;
DRAWTEXTEX(DYNAINFO(7),1,20,1350,'■ 大單量差: '+NUMTOSTR(大單差,0)),LINETHICK2,colorFF00;
DRAWTEXTEX(DYNAINFO(7),1,300,1350,'占:'+NUMTOSTR(大單差/(大單買入+大單賣出)*100,0)+' %'),LINETHICK2,colorFF00;
DRAWTEXTEX(DYNAINFO(7),1,20,1400,'■ 多空量差: '+NUMTOSTR((主動買入-主動賣出),0)),LINETHICK2,colorFFFF;
DRAWTEXTEX(DYNAINFO(7),1,300,1400,'占:'+NUMTOSTR((主動買入-主動賣出)/總*100,0)+' %'),LINETHICK2,colorFFFF;
//
導入總流通后，在橫向統計數據管理中，設置數據8，然后刷新橫向統計數據。
這個數據是統計大盤用的。

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?