源码
{飞狐 廉政公署 主图 东郭改编}
{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;
