相關標簽:

?

飛狐廉政公署主圖指標源碼{飛狐 廉政公署 主圖 東郭改編}

?

{S1 60 0 999 S2 1 1 1}
DRAWGBK(1, COLORRGB(0,0,0) ,COLORRGB(0,0,0),1);
A:=BARPOS;
A1:=SYSPARAM(1);
A2:=DATACOUNT;
A3:=SYSPARAM(3);
A22:=SYSPARAM(2);
KB:A2-A+1,LINETHICK;
A區:=S1-S2+1;
B區:=KB-S1+1;
C區:=KB-S2+1;
AJ:=REF(C,S2-1);
AA:=AJ[DATACOUNT];
均價:=AMOUNT/V/100;
{STICKLINE(均價
STICKLINE(均價
STICKLINE(均價
STICKLINE(均價
STICKLINE(均價
STICKLINE(均價
{STICKLINE(均價>=AA ,H ,L ,1 ,0 ),COLORFFFF00;}
STICKLINE(均價>=AA ,C ,O ,6.7 ,0 ),COLORFF3300;
STICKLINE(均價>=AA ,C ,O ,5.7 ,0 ),COLORFF6600;
STICKLINE(均價>=AA ,C ,O ,4.3 ,0 ),COLORFF9900;
STICKLINE(均價>=AA ,C ,O ,2.7 ,0 ),COLORFFCC00;
STICKLINE(均價>=AA ,C ,O ,1 ,0 ),COLORFFFF00;
{STICKLINE(均價AA*0.9 ,H ,L ,1 ,0 ),COLOR00FFFF;}
STICKLINE(均價AA*0.9 ,C ,O ,6.7 ,0 ),COLOR0066FF;
STICKLINE(均價AA*0.9 ,C ,O ,5.7 ,0 ),COLOR0099FF;
STICKLINE(均價AA*0.9 ,C ,O ,4.3 ,0 ),COLOR00BBFF;
STICKLINE(均價AA*0.9 ,C ,O ,2.7 ,0 ),COLOR00DDFF;
STICKLINE(均價AA*0.9 ,C ,O ,1 ,0 ),COLOR00FFFF;
{STICKLINE(均價>=AA AND 均價
STICKLINE(均價>=AA AND 均價
STICKLINE(均價>=AA AND 均價
STICKLINE(均價>=AA AND 均價
STICKLINE(均價>=AA AND 均價
STICKLINE(均價>=AA AND 均價
VERTLINE(KB=S1),COLOR00FFFF;
VERTLINE(KB=S2),COLORFFFFFF;
VERTLINE(A=A1),COLOR00FF00,POINTDOT;
AS:=Kb=S2;
BS:=Kb=S1;
CS:=A=A1;
DRAWNUMBER(AS,HIGH,CLOSE,2),COLORFFFFFF,ALIGN4;
DRAWNUMBER(BS,HIGH,CLOSE,2),COLOR00FFFF,ALIGN4;
DRAWNUMBER(CS,HIGH,CLOSE,2),COLOR00FF00,ALIGN4;
BJ:=REF(C,S1);
BB:=BJ[DATACOUNT];
P:=CLOSE;
BX:=P[A1];
ZS:=REF(C,1);
ZBX:=ZS[A1];
PARTLINE(A>A1,DYNAINFO( 7)),COLOR9922FF;
DRAWTEXT(A=A1,DYNAINFO( 7)*0.99,'界線'),COLOR9922FF;
幅1:=IF(S1>S2,AA/BB*100-100,BB/AA*100-100);
幅2:=IF(KB>=S2,AA/ZBX*100-100,BX/AA*100-100);
幅3:=IF(KB>S1,BB/BX*100-100,BX/BB*100-100);
BQF:='周期 '+NUMTOSTR(A區,0)+' 幅 '+NUMTOSTR(幅1,2);
DRAWTEXT(BS,L,BQF),COLORFFFFFF,ALIGN5,PXUP40;
DZ:=IF(KB>=S1,NUMTOSTR(B區[A1],0),NUMTOSTR(B區[A1]-2,0));
HQF:='周期 '+DZ+' 幅 '+NUMTOSTR(幅3[A1],2);
DRAWTEXT(CS,L,HQF),COLOR00FFFF,ALIGN5,PXUP120;
LQF:='周期 '+NUMTOSTR(C區[A1],0)+' 幅 '+NUMTOSTR(幅2[A1],2);
DRAWTEXT(CS,L,LQF),COLOR00FF00,ALIGN5,PXUP60;
DBJ:=REF(INDEXC,S1);
DBB:=DBJ[DATACOUNT];
DAJ:=REF(INDEXC,S2-1);
DAA:=DAJ[DATACOUNT];
DP:=INDEXC;
DBX:=DP[A1];
DZS:=REF(INDEXC,1);
DZBX:=DZS[A1];
大幅1:=IF(S1>S2,DAA/DBB*100-100,DBB/DAA*100-100);
大幅2:=IF(KB>=S2,DAA/DZBX*100-100,DBX/DAA*100-100);
大幅3:=IF(KB>S1,DBB/DBX*100-100,DBX/DBB*100-100);
DBQF:='同期大盤幅 '+NUMTOSTR(大幅1,2);
DRAWTEXT(BS,L,DBQF),COLORFFFFFF,ALIGN5,PXUP10;
DHQF:='同期大盤幅 '+NUMTOSTR(大幅3[A1],2);
DRAWTEXT(CS,L,DHQF),COLOR00FFFF,ALIGN5,PXUP90;
DLQF:='同期大盤幅 '+NUMTOSTR(大幅2[A1],2);
DRAWTEXT(CS,L,DLQF),COLOR00FF00,ALIGN5,PXUP30;
A區幅:=IF(S1>S2,AJ/BB*100-100,BB/AJ*100-100);
A盤幅:=IF(S1>S2,DAJ/DBB*100-100,DBB/DAJ*100-100);
YA1:=KB<=S1 AND KB>=S2;
YA2:=KB<=S2 AND KB>=S1;
YA:=IF(S1>S2,YA1,YA2);
EXPLAIN(1,'------------ A 區 ------------'),COLORFFFFFF;
A均:=IF(YA ,AMOUNT,0)/IF(YA ,VOL,0)/100;
A盈:=SUM(IF(YA AND 均價
A虧:=SUM(IF(YA AND 均價>=AA,VOL,0)/FINANCE( 7),IF(YA=YA1,A區+1,A區*-1));
A總:=A盈+A虧;
A利:=A盈/A總*100;
A盈%:=SUM(IF(YA AND 均價AA*0.9,VOL,0)/FINANCE( 7),IF(YA=YA1,A區+1,A區*-1));
A虧%:=SUM(IF(YA AND 均價>=AA AND 均價
A總%:=A盈%+A虧%;
A利%:=A盈%/A總%*100;
EXPLAINEX(1, '總 '+NUMTOSTR(A總,2)+' 浮 '+NUMTOSTR(A總%,0)+' 現價 ',BX,2,0),COLOR00FFFF;
EXPLAINEX(1, '利 '+NUMTOSTR(A利,2)+' 浮 '+NUMTOSTR(A利%,0)+' 均價 ',A均,2,0),COLORFFFFFF;
EXPLAINEX(1, '盈 '+NUMTOSTR(A盈,2)+' 浮 ',A盈%,2,0),COLORRED;
EXPLAINEX(1, '虧 '+NUMTOSTR(A虧,2)+' 浮 ',A虧%,2,0),COLORFFFF00;
EXPLAINEX(1, '周期 '+NUMTOSTR(A區,0)+' 漲跌幅 ',幅1,2,0),COLORFFFFFF;
EXPLAINEX(1, '同期大盤漲跌幅 ',大幅1,2,0),COLORFFFFFF;
//光標小于右面最后一根KB時，區間籌碼開始遞減，光標右移一天，區籌減少一天，類推
DRAWNUMBER(AS,H,A總,2),COLOR00FFFF,ALIGN4,PXDN30,SHIFT6;
DRAWNUMBER(AS,H,A盈,2),COLOR00FFFF,ALIGN4,PXDN60,SHIFT6;
DRAWNUMBER(AS,H,A虧,2),COLOR00FFFF,ALIGN4,PXDN90,SHIFT6;
DRAWNUMBER(AS,H,A利,2),COLOR00FFFF,ALIGN4,PXDN120,SHIFT6;
陽棒:=SUM(IF(YA AND C>O,1,0),IF(YA=YA1,A區+1,A區*-1));
陰棒:=SUM(IF(YA AND C<=O,1,0),IF(YA=YA1,A區+1,A區*-1));
陽手:=SUM(IF(YA AND C>O,VOL,0)/FINANCE( 7),IF(YA=YA1,A區+1,A區*-1));
陰手:=SUM(IF(YA AND C<=O,VOL,0)/FINANCE( 7),IF(YA=YA1,A區+1,A區*-1));
YMS:='陽手 '+NUMTOSTR(陽棒,0)+'/ '+NUMTOSTR(陽手,2);
DRAWTEXT(BS,H,YMS),COLORFFFFFF,ALIGN4,PXDN60;
YNS:='陰手 '+NUMTOSTR(陰棒,0)+'/ '+NUMTOSTR(陰手,2);
DRAWTEXT(BS,H,YNS),COLORFFFFFF,ALIGN4,PXDN90;
//斜率:=(AJ-BJ)/A區;
EXPLAIN(1,'------------ B 區 ------------'),COLOR00FFFF;
B盈:=REFX(SUM(IF(A1<=A AND KB>=S1 AND 均價
B虧:=REFX(SUM(IF(A1<=A AND KB>=S1 AND 均價>=BB,V,0),0)/FINANCE(7),B區);
B總:=B盈+B虧;
B利:=B盈/B總*100;
盈B:=SUM(IF(A1>=A AND KB<=S1 AND 均價
虧B:=SUM(IF(A1>=A AND KB<=S1 AND 均價>=BB,V,0),B區*-1)/FINANCE(7);
總B:=盈B+虧B;
利B:=盈B/總B*100;
EXPLAINEX(1, '總 ',IF(KB>=S1,B總,總B),2,0),COLOR00FFFF;
EXPLAINEX(1, '利 ',IF(KB>=S1,B利,利B),2,0),COLORFFFFFF;
EXPLAINEX(1, '盈 ',IF(KB>=S1,B盈,盈B),2,0),COLORRED;
EXPLAINEX(1, '虧 ',IF(KB>=S1,B虧,虧B),2,0),COLORFFFF00;
EXPLAINEX(1, '周期 '+DZ+' 漲跌幅 ',幅3,2,0),COLORFFFFFF;
EXPLAINEX(1, '同期大盤漲跌幅 ',大幅3,2,0),COLORFFFFFF;
陽手Y:=REFX(SUM(IF(A1<=A AND KB>=S1 AND C>O,V,0),B區)/FINANCE(7),B區);
陰手Y:=REFX(SUM(IF(A1<=A AND KB>=S1 AND C<=O,V,0),B區)/FINANCE(7),B區);
陽棒Y:=REFX(SUM(IF(A1<=A AND KB>=S1 AND C>O,1,0),0),B區);
陰棒Y:=REFX(SUM(IF(A1<=A AND KB>=S1 AND C<=O,1,0),0),B區);
YMB:='陽手 '+NUMTOSTR(陽棒Y[A1],0)+'/ '+NUMTOSTR(陽手Y[A1],2);
DRAWTEXT(CS AND KB>=S1,C,YMB),COLOR00FFFF,ALIGN3,PXUP127;
YNB:='陰手 '+NUMTOSTR(陰棒Y[A1],0)+'/ '+NUMTOSTR(陰手Y[A1],2);
DRAWTEXT(CS AND KB>=S1,C,YNB),COLOR00FFFF,ALIGN3,PXUP100;
YMB2:='陽手 '+NUMTOSTR(陽棒[A1],0)+'/ '+NUMTOSTR(陽手[A1],2);
DRAWTEXT(CS AND KB<=S1,C,YMB2),COLOR00FFFF,ALIGN3,PXUP127;
YNB2:='陰手 '+NUMTOSTR(陰棒[A1],0)+'/ '+NUMTOSTR(陰手[A1],2);
DRAWTEXT(CS AND KB<=S1,C,YNB2),COLOR00FFFF,ALIGN3,PXUP100;
EXPLAINEX(A<>A3 AND CS AND KB>=S1, '陽棒 '+NUMTOSTR(陽棒Y[A1],0)+' 手 ',陽手Y,2,0),COLORFF00FF;
EXPLAINEX(A<>A3 AND CS AND KB>=S1, '陰棒 '+NUMTOSTR(陰棒Y[A1],0)+' 手 ',陰手Y,2,0),COLOR00FF00;
EXPLAINEX(A<>A3 AND CS AND KB<=S1, '陽棒 '+NUMTOSTR(陽棒[A1],0)+' 手 ',陽手,2,0),COLORFF00FF;
EXPLAINEX(A<>A3 AND CS AND KB<=S1, '陰棒 '+NUMTOSTR(陰棒[A1],0)+' 手 ',陰手,2,0),COLOR00FF00;
EXPLAIN(1,'------------ C 區 ------------'),COLOR00FF00;
C盈:=REFX(SUM(IF(A1<=A AND KB>=S2 AND 均價
C虧:=REFX(SUM(IF(A1<=A AND KB>=S2 AND 均價>=AA,V,0),0)/FINANCE(7),C區);
C總:=C盈+C虧;
C利:=C盈/C總*100;
盈C:=SUM(IF(A1>=A AND KB<=S2 AND 均價
虧C:=SUM(IF(A1>=A AND KB<=S2 AND 均價>=BX,V,0)/FINANCE(7),C區*-1);
總C:=盈C+虧C;
利C:=盈C/總C*100;
C盈%:=REFX(SUM(IF(A1<=A AND KB>=S2 AND 均價AA*0.9,V,0),0)/FINANCE(7),C區);
C虧%:=REFX(SUM(IF(A1<=A AND KB>=S2 AND 均價>=AA AND 均價
C總%:=C盈%+C虧%;
C利%:=C盈%/C總%*100;
盈C%:=SUM(IF(A1>=A AND KB<=S2 AND 均價BX*0.9,V,0)/FINANCE(7),C區*-1);
虧C%:=SUM(IF(A1>=A AND KB<=S2 AND 均價>=BX AND 均價
總C%:=盈C%+虧C%;
利C%:=盈C%/總C%*100;
EXPLAINEX(1, '總 '+NUMTOSTR(IF(KB>=S2,C總,總C),2)+' 浮 ',IF(KB>=S2,C總%,總C%),2,0),COLOR00FFFF;
EXPLAINEX(1, '利 '+NUMTOSTR(IF(KB>=S2,C利,利C),2)+' 浮 ',IF(KB>=S2,C利%,利C%),2,0),COLORFFFFFF;
EXPLAINEX(1, '盈 '+NUMTOSTR(IF(KB>=S2,C盈,盈C),2)+' 浮 ',IF(KB>=S2,C盈%,盈C%),2,0),COLORRED;
EXPLAINEX(1, '虧 '+NUMTOSTR(IF(KB>=S2,C虧,虧C),2)+' 浮 ',IF(KB>=S2,C虧%,虧C%),2,0),COLORFFFF00;
EXPLAINEX(1, '周期 '+NUMTOSTR(C區[A1],0)+' 漲跌幅 ',幅2,2,0),COLORFFFFFF;
EXPLAINEX(1, '同期大盤漲跌幅 ',大幅2,2,0),COLORFFFFFF;
陽手右:=REFX(SUM(IF(A1<=A AND KB>=S2 AND C>O,V,0),0)/FINANCE(7),C區);
陰手右:=REFX(SUM(IF(A1<=A AND KB>=S2 AND C<=O,V,0),0)/FINANCE(7),C區);
陽手左:=SUM(IF(A1>=A AND KB<=S2 AND C>O,V,0),C區*-1)/FINANCE(7);
陰手左:=SUM(IF(A1>=A AND KB<=S2 AND C<=O,V,0),C區*-1)/FINANCE(7);
陽棒右:=REFX(SUM(IF(A1<=A AND KB>=S2 AND C>O,1,0),0),C區);
陰棒右:=REFX(SUM(IF(A1<=A AND KB>=S2 AND C<=O,1,0),0),C區);
陽棒左:=SUM(IF(A1>=A AND KB<=S2 AND C>O,1,0),C區*-1);
陰棒左:=SUM(IF(A1>=A AND KB<=S2 AND C<=O,1,0),C區*-1);
EXPLAINEX(KB>=S2, '陽棒 '+NUMTOSTR(陽棒右[a1],0)+' 手 ',陽手右,2,0),COLORFF00FF;
EXPLAINEX(KB>=S2, '陰棒 '+NUMTOSTR(陰棒右[a1],0)+' 手 ',陰手右,2,0),COLOR00FF00;
EXPLAINEX(KB<=S2, '陽棒 '+NUMTOSTR(陽棒左[a1],0)+' 手 ',陽手左,2,0),COLORFF00FF;
EXPLAINEX(KB<=S2, '陰棒 '+NUMTOSTR(陰棒左[a1],0)+' 手 ',陰手左,2,0),COLOR00FF00;
DRAWLINE(BS ,均價,AS,均價,0),COLORFFFFFF,POINTDOT;
DRAWLINE(AS ,均價,BS,均價,0),COLORFFFFFF,POINTDOT;
DRAWLINE(CS ,均價,AS,均價,0),COLOR00FF00,POINTDOT;
DRAWLINE(AS ,均價,CS,均價,0),COLOR00FF00,POINTDOT;
DRAWLINE(CS ,均價,BS,均價,0),COLOR00FFFF,POINTDOT;
DRAWLINE(BS ,均價,CS,均價,0),COLOR00FFFF,POINTDOT;{程序化交易 www.kzuj.com.cn }

?

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

?