相關(guān)標(biāo)簽:

?

飛狐廉政公署主圖指標(biāo)源碼{飛狐 廉政公署 主圖 東郭改編}

?

{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區(qū):=S1-S2+1;
B區(qū):=KB-S1+1;
C區(qū):=KB-S2+1;
AJ:=REF(C,S2-1);
AA:=AJ[DATACOUNT];
均價(jià):=AMOUNT/V/100;
{STICKLINE(均價(jià)
STICKLINE(均價(jià)
STICKLINE(均價(jià)
STICKLINE(均價(jià)
STICKLINE(均價(jià)
STICKLINE(均價(jià)
{STICKLINE(均價(jià)>=AA ,H ,L ,1 ,0 ),COLORFFFF00;}
STICKLINE(均價(jià)>=AA ,C ,O ,6.7 ,0 ),COLORFF3300;
STICKLINE(均價(jià)>=AA ,C ,O ,5.7 ,0 ),COLORFF6600;
STICKLINE(均價(jià)>=AA ,C ,O ,4.3 ,0 ),COLORFF9900;
STICKLINE(均價(jià)>=AA ,C ,O ,2.7 ,0 ),COLORFFCC00;
STICKLINE(均價(jià)>=AA ,C ,O ,1 ,0 ),COLORFFFF00;
{STICKLINE(均價(jià)AA*0.9 ,H ,L ,1 ,0 ),COLOR00FFFF;}
STICKLINE(均價(jià)AA*0.9 ,C ,O ,6.7 ,0 ),COLOR0066FF;
STICKLINE(均價(jià)AA*0.9 ,C ,O ,5.7 ,0 ),COLOR0099FF;
STICKLINE(均價(jià)AA*0.9 ,C ,O ,4.3 ,0 ),COLOR00BBFF;
STICKLINE(均價(jià)AA*0.9 ,C ,O ,2.7 ,0 ),COLOR00DDFF;
STICKLINE(均價(jià)AA*0.9 ,C ,O ,1 ,0 ),COLOR00FFFF;
{STICKLINE(均價(jià)>=AA AND 均價(jià)
STICKLINE(均價(jià)>=AA AND 均價(jià)
STICKLINE(均價(jià)>=AA AND 均價(jià)
STICKLINE(均價(jià)>=AA AND 均價(jià)
STICKLINE(均價(jià)>=AA AND 均價(jià)
STICKLINE(均價(jià)>=AA AND 均價(jià)
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區(qū),0)+' 幅 '+NUMTOSTR(幅1,2);
DRAWTEXT(BS,L,BQF),COLORFFFFFF,ALIGN5,PXUP40;
DZ:=IF(KB>=S1,NUMTOSTR(B區(qū)[A1],0),NUMTOSTR(B區(qū)[A1]-2,0));
HQF:='周期 '+DZ+' 幅 '+NUMTOSTR(幅3[A1],2);
DRAWTEXT(CS,L,HQF),COLOR00FFFF,ALIGN5,PXUP120;
LQF:='周期 '+NUMTOSTR(C區(qū)[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區(qū)幅:=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 區(qū) ------------'),COLORFFFFFF;
A均:=IF(YA ,AMOUNT,0)/IF(YA ,VOL,0)/100;
A盈:=SUM(IF(YA AND 均價(jià)
A虧:=SUM(IF(YA AND 均價(jià)>=AA,VOL,0)/FINANCE( 7),IF(YA=YA1,A區(qū)+1,A區(qū)*-1));
A總:=A盈+A虧;
A利:=A盈/A總*100;
A盈%:=SUM(IF(YA AND 均價(jià)AA*0.9,VOL,0)/FINANCE( 7),IF(YA=YA1,A區(qū)+1,A區(qū)*-1));
A虧%:=SUM(IF(YA AND 均價(jià)>=AA AND 均價(jià)
A總%:=A盈%+A虧%;
A利%:=A盈%/A總%*100;
EXPLAINEX(1, '總 '+NUMTOSTR(A總,2)+' 浮 '+NUMTOSTR(A總%,0)+' 現(xiàn)價(jià) ',BX,2,0),COLOR00FFFF;
EXPLAINEX(1, '利 '+NUMTOSTR(A利,2)+' 浮 '+NUMTOSTR(A利%,0)+' 均價(jià) ',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區(qū),0)+' 漲跌幅 ',幅1,2,0),COLORFFFFFF;
EXPLAINEX(1, '同期大盤漲跌幅 ',大幅1,2,0),COLORFFFFFF;
//光標(biāo)小于右面最后一根KB時(shí)，區(qū)間籌碼開始遞減，光標(biāo)右移一天，區(qū)籌減少一天，類推
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;
陽(yáng)棒:=SUM(IF(YA AND C>O,1,0),IF(YA=YA1,A區(qū)+1,A區(qū)*-1));
陰棒:=SUM(IF(YA AND C<=O,1,0),IF(YA=YA1,A區(qū)+1,A區(qū)*-1));
陽(yáng)手:=SUM(IF(YA AND C>O,VOL,0)/FINANCE( 7),IF(YA=YA1,A區(qū)+1,A區(qū)*-1));
陰手:=SUM(IF(YA AND C<=O,VOL,0)/FINANCE( 7),IF(YA=YA1,A區(qū)+1,A區(qū)*-1));
YMS:='陽(yáng)手 '+NUMTOSTR(陽(yáng)棒,0)+'/ '+NUMTOSTR(陽(yáng)手,2);
DRAWTEXT(BS,H,YMS),COLORFFFFFF,ALIGN4,PXDN60;
YNS:='陰手 '+NUMTOSTR(陰棒,0)+'/ '+NUMTOSTR(陰手,2);
DRAWTEXT(BS,H,YNS),COLORFFFFFF,ALIGN4,PXDN90;
//斜率:=(AJ-BJ)/A區(qū);
EXPLAIN(1,'------------ B 區(qū) ------------'),COLOR00FFFF;
B盈:=REFX(SUM(IF(A1<=A AND KB>=S1 AND 均價(jià)
B虧:=REFX(SUM(IF(A1<=A AND KB>=S1 AND 均價(jià)>=BB,V,0),0)/FINANCE(7),B區(qū));
B總:=B盈+B虧;
B利:=B盈/B總*100;
盈B:=SUM(IF(A1>=A AND KB<=S1 AND 均價(jià)
虧B:=SUM(IF(A1>=A AND KB<=S1 AND 均價(jià)>=BB,V,0),B區(qū)*-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áng)手Y:=REFX(SUM(IF(A1<=A AND KB>=S1 AND C>O,V,0),B區(qū))/FINANCE(7),B區(qū));
陰手Y:=REFX(SUM(IF(A1<=A AND KB>=S1 AND C<=O,V,0),B區(qū))/FINANCE(7),B區(qū));
陽(yáng)棒Y:=REFX(SUM(IF(A1<=A AND KB>=S1 AND C>O,1,0),0),B區(qū));
陰棒Y:=REFX(SUM(IF(A1<=A AND KB>=S1 AND C<=O,1,0),0),B區(qū));
YMB:='陽(yáng)手 '+NUMTOSTR(陽(yáng)棒Y[A1],0)+'/ '+NUMTOSTR(陽(yáng)手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:='陽(yáng)手 '+NUMTOSTR(陽(yáng)棒[A1],0)+'/ '+NUMTOSTR(陽(yáng)手[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, '陽(yáng)棒 '+NUMTOSTR(陽(yáng)棒Y[A1],0)+' 手 ',陽(yáng)手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, '陽(yáng)棒 '+NUMTOSTR(陽(yáng)棒[A1],0)+' 手 ',陽(yáng)手,2,0),COLORFF00FF;
EXPLAINEX(A<>A3 AND CS AND KB<=S1, '陰棒 '+NUMTOSTR(陰棒[A1],0)+' 手 ',陰手,2,0),COLOR00FF00;
EXPLAIN(1,'------------ C 區(qū) ------------'),COLOR00FF00;
C盈:=REFX(SUM(IF(A1<=A AND KB>=S2 AND 均價(jià)
C虧:=REFX(SUM(IF(A1<=A AND KB>=S2 AND 均價(jià)>=AA,V,0),0)/FINANCE(7),C區(qū));
C總:=C盈+C虧;
C利:=C盈/C總*100;
盈C:=SUM(IF(A1>=A AND KB<=S2 AND 均價(jià)
虧C:=SUM(IF(A1>=A AND KB<=S2 AND 均價(jià)>=BX,V,0)/FINANCE(7),C區(qū)*-1);
總C:=盈C+虧C;
利C:=盈C/總C*100;
C盈%:=REFX(SUM(IF(A1<=A AND KB>=S2 AND 均價(jià)AA*0.9,V,0),0)/FINANCE(7),C區(qū));
C虧%:=REFX(SUM(IF(A1<=A AND KB>=S2 AND 均價(jià)>=AA AND 均價(jià)
C總%:=C盈%+C虧%;
C利%:=C盈%/C總%*100;
盈C%:=SUM(IF(A1>=A AND KB<=S2 AND 均價(jià)BX*0.9,V,0)/FINANCE(7),C區(qū)*-1);
虧C%:=SUM(IF(A1>=A AND KB<=S2 AND 均價(jià)>=BX AND 均價(jià)
總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區(qū)[A1],0)+' 漲跌幅 ',幅2,2,0),COLORFFFFFF;
EXPLAINEX(1, '同期大盤漲跌幅 ',大幅2,2,0),COLORFFFFFF;
陽(yáng)手右:=REFX(SUM(IF(A1<=A AND KB>=S2 AND C>O,V,0),0)/FINANCE(7),C區(qū));
陰手右:=REFX(SUM(IF(A1<=A AND KB>=S2 AND C<=O,V,0),0)/FINANCE(7),C區(qū));
陽(yáng)手左:=SUM(IF(A1>=A AND KB<=S2 AND C>O,V,0),C區(qū)*-1)/FINANCE(7);
陰手左:=SUM(IF(A1>=A AND KB<=S2 AND C<=O,V,0),C區(qū)*-1)/FINANCE(7);
陽(yáng)棒右:=REFX(SUM(IF(A1<=A AND KB>=S2 AND C>O,1,0),0),C區(qū));
陰棒右:=REFX(SUM(IF(A1<=A AND KB>=S2 AND C<=O,1,0),0),C區(qū));
陽(yáng)棒左:=SUM(IF(A1>=A AND KB<=S2 AND C>O,1,0),C區(qū)*-1);
陰棒左:=SUM(IF(A1>=A AND KB<=S2 AND C<=O,1,0),C區(qū)*-1);
EXPLAINEX(KB>=S2, '陽(yáng)棒 '+NUMTOSTR(陽(yáng)棒右[a1],0)+' 手 ',陽(yáng)手右,2,0),COLORFF00FF;
EXPLAINEX(KB>=S2, '陰棒 '+NUMTOSTR(陰棒右[a1],0)+' 手 ',陰手右,2,0),COLOR00FF00;
EXPLAINEX(KB<=S2, '陽(yáng)棒 '+NUMTOSTR(陽(yáng)棒左[a1],0)+' 手 ',陽(yáng)手左,2,0),COLORFF00FF;
EXPLAINEX(KB<=S2, '陰棒 '+NUMTOSTR(陰棒左[a1],0)+' 手 ',陰手左,2,0),COLOR00FF00;
DRAWLINE(BS ,均價(jià),AS,均價(jià),0),COLORFFFFFF,POINTDOT;
DRAWLINE(AS ,均價(jià),BS,均價(jià),0),COLORFFFFFF,POINTDOT;
DRAWLINE(CS ,均價(jià),AS,均價(jià),0),COLOR00FF00,POINTDOT;
DRAWLINE(AS ,均價(jià),CS,均價(jià),0),COLOR00FF00,POINTDOT;
DRAWLINE(CS ,均價(jià),BS,均價(jià),0),COLOR00FFFF,POINTDOT;
DRAWLINE(BS ,均價(jià),CS,均價(jià),0),COLOR00FFFF,POINTDOT;{程序化交易 www.weiqiv.net.cn }

?

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

?