飞狐廉政公署主图指标 EA

飞狐廉政公署主图指标

rn

源码

rn

{飞狐 廉政公署 主图 东郭改编}
rn{S1    60    0    999    S2    1    1    1}
rnDRAWGBK(1, COLORRGB(0,0,0) ,COLORRGB(0,0,0),1);
rnA:=BARPOS;
rnA1:=SYSPARAM(1);
rnA2:=DATACOUNT;
rnA3:=SYSPARAM(3);
rnA22:=SYSPARAM(2);
rnKB:A2-A+1,LINETHICK;
rnA区:=S1-S2+1;
rnB区:=KB-S1+1;
rnC区:=KB-S2+1;
rnAJ:=REF(C,S2-1); 
rnAA:=AJ[DATACOUNT];
rn均价:=AMOUNT/V/100;
rn{STICKLINE(均价
rnSTICKLINE(均价
rnSTICKLINE(均价
rnSTICKLINE(均价
rnSTICKLINE(均价
rnSTICKLINE(均价
rn{STICKLINE(均价>=AA ,H ,L ,1 ,0 ),COLORFFFF00;}
rnSTICKLINE(均价>=AA ,C ,O ,6.7 ,0 ),COLORFF3300;
rnSTICKLINE(均价>=AA ,C ,O ,5.7 ,0 ),COLORFF6600;
rnSTICKLINE(均价>=AA ,C ,O ,4.3 ,0 ),COLORFF9900;
rnSTICKLINE(均价>=AA ,C ,O ,2.7 ,0 ),COLORFFCC00;
rnSTICKLINE(均价>=AA ,C ,O ,1 ,0 ),COLORFFFF00;
rn{STICKLINE(均价AA*0.9 ,H ,L ,1 ,0 ),COLOR00FFFF;}
rnSTICKLINE(均价AA*0.9 ,C ,O ,6.7 ,0 ),COLOR0066FF;
rnSTICKLINE(均价AA*0.9 ,C ,O ,5.7 ,0 ),COLOR0099FF;
rnSTICKLINE(均价AA*0.9 ,C ,O ,4.3 ,0 ),COLOR00BBFF;
rnSTICKLINE(均价AA*0.9 ,C ,O ,2.7 ,0 ),COLOR00DDFF;
rnSTICKLINE(均价AA*0.9 ,C ,O ,1 ,0 ),COLOR00FFFF;
rn{STICKLINE(均价>=AA AND 均价
rnSTICKLINE(均价>=AA AND 均价
rnSTICKLINE(均价>=AA AND 均价
rnSTICKLINE(均价>=AA AND 均价
rnSTICKLINE(均价>=AA AND 均价
rnSTICKLINE(均价>=AA AND 均价
rnVERTLINE(KB=S1),COLOR00FFFF;
rnVERTLINE(KB=S2),COLORFFFFFF;
rnVERTLINE(A=A1),COLOR00FF00,POINTDOT;
rnAS:=Kb=S2;
rnBS:=Kb=S1;
rnCS:=A=A1;
rnDRAWNUMBER(AS,HIGH,CLOSE,2),COLORFFFFFF,ALIGN4;
rnDRAWNUMBER(BS,HIGH,CLOSE,2),COLOR00FFFF,ALIGN4;
rnDRAWNUMBER(CS,HIGH,CLOSE,2),COLOR00FF00,ALIGN4;
rnBJ:=REF(C,S1); 
rnBB:=BJ[DATACOUNT];
rnP:=CLOSE;   
rnBX:=P[A1];
rnZS:=REF(C,1);
rnZBX:=ZS[A1];
rnPARTLINE(A>A1,DYNAINFO( 7)),COLOR9922FF;  
rnDRAWTEXT(A=A1,DYNAINFO( 7)*0.99,’界线’),COLOR9922FF;
rn幅1:=IF(S1>S2,AA/BB*100-100,BB/AA*100-100);
rn幅2:=IF(KB>=S2,AA/ZBX*100-100,BX/AA*100-100);
rn幅3:=IF(KB>S1,BB/BX*100-100,BX/BB*100-100);
rnBQF:=’周期 ‘+NUMTOSTR(A区,0)+’ 幅 ‘+NUMTOSTR(幅1,2);
rnDRAWTEXT(BS,L,BQF),COLORFFFFFF,ALIGN5,PXUP40;
rnDZ:=IF(KB>=S1,NUMTOSTR(B区[A1],0),NUMTOSTR(B区[A1]-2,0));
rnHQF:=’周期 ‘+DZ+’ 幅 ‘+NUMTOSTR(幅3[A1],2);
rnDRAWTEXT(CS,L,HQF),COLOR00FFFF,ALIGN5,PXUP120;
rnLQF:=’周期 ‘+NUMTOSTR(C区[A1],0)+’ 幅 ‘+NUMTOSTR(幅2[A1],2);
rnDRAWTEXT(CS,L,LQF),COLOR00FF00,ALIGN5,PXUP60;
rnDBJ:=REF(INDEXC,S1); 
rnDBB:=DBJ[DATACOUNT];
rnDAJ:=REF(INDEXC,S2-1); 
rnDAA:=DAJ[DATACOUNT];
rnDP:=INDEXC;  
rnDBX:=DP[A1];
rnDZS:=REF(INDEXC,1);
rnDZBX:=DZS[A1];
rn大幅1:=IF(S1>S2,DAA/DBB*100-100,DBB/DAA*100-100);
rn大幅2:=IF(KB>=S2,DAA/DZBX*100-100,DBX/DAA*100-100);
rn大幅3:=IF(KB>S1,DBB/DBX*100-100,DBX/DBB*100-100);
rnDBQF:=’同期大盘幅 ‘+NUMTOSTR(大幅1,2);
rnDRAWTEXT(BS,L,DBQF),COLORFFFFFF,ALIGN5,PXUP10;
rnDHQF:=’同期大盘幅 ‘+NUMTOSTR(大幅3[A1],2);
rnDRAWTEXT(CS,L,DHQF),COLOR00FFFF,ALIGN5,PXUP90;
rnDLQF:=’同期大盘幅 ‘+NUMTOSTR(大幅2[A1],2);
rnDRAWTEXT(CS,L,DLQF),COLOR00FF00,ALIGN5,PXUP30;
rnA区幅:=IF(S1>S2,AJ/BB*100-100,BB/AJ*100-100);
rnA盘幅:=IF(S1>S2,DAJ/DBB*100-100,DBB/DAJ*100-100);
rnYA1:=KB<=S1 AND KB>=S2;
rnYA2:=KB<=S2 AND KB>=S1;
rnYA:=IF(S1>S2,YA1,YA2);
rnEXPLAIN(1,’————  A    区  ————‘),COLORFFFFFF;
rnA均:=IF(YA ,AMOUNT,0)/IF(YA ,VOL,0)/100;
rnA盈:=SUM(IF(YA AND 均价
rnA亏:=SUM(IF(YA AND 均价>=AA,VOL,0)/FINANCE( 7),IF(YA=YA1,A区+1,A区*-1));
rnA总:=A盈+A亏;
rnA利:=A盈/A总*100;
rnA盈%:=SUM(IF(YA AND 均价AA*0.9,VOL,0)/FINANCE( 7),IF(YA=YA1,A区+1,A区*-1));
rnA亏%:=SUM(IF(YA AND 均价>=AA AND 均价
rnA总%:=A盈%+A亏%;
rnA利%:=A盈%/A总%*100;
rnEXPLAINEX(1, ‘总 ‘+NUMTOSTR(A总,2)+’    浮 ‘+NUMTOSTR(A总%,0)+’  现价 ‘,BX,2,0),COLOR00FFFF;
rnEXPLAINEX(1, ‘利 ‘+NUMTOSTR(A利,2)+’    浮 ‘+NUMTOSTR(A利%,0)+’  均价 ‘,A均,2,0),COLORFFFFFF;
rnEXPLAINEX(1, ‘盈 ‘+NUMTOSTR(A盈,2)+’    浮 ‘,A盈%,2,0),COLORRED;
rnEXPLAINEX(1, ‘亏 ‘+NUMTOSTR(A亏,2)+’    浮 ‘,A亏%,2,0),COLORFFFF00;
rnEXPLAINEX(1, ‘周期 ‘+NUMTOSTR(A区,0)+’   涨跌幅 ‘,幅1,2,0),COLORFFFFFF;
rnEXPLAINEX(1, ‘同期大盘涨跌幅 ‘,大幅1,2,0),COLORFFFFFF;
rn//光标小于右面最后一根KB时，区间筹码开始递减，光标右移一天，区筹减少一天，类推
rnDRAWNUMBER(AS,H,A总,2),COLOR00FFFF,ALIGN4,PXDN30,SHIFT6;
rnDRAWNUMBER(AS,H,A盈,2),COLOR00FFFF,ALIGN4,PXDN60,SHIFT6;
rnDRAWNUMBER(AS,H,A亏,2),COLOR00FFFF,ALIGN4,PXDN90,SHIFT6;
rnDRAWNUMBER(AS,H,A利,2),COLOR00FFFF,ALIGN4,PXDN120,SHIFT6;
rn  阳棒:=SUM(IF(YA AND C>O,1,0),IF(YA=YA1,A区+1,A区*-1));
rn  阴棒:=SUM(IF(YA AND C<=O,1,0),IF(YA=YA1,A区+1,A区*-1));
rn  阳手:=SUM(IF(YA AND C>O,VOL,0)/FINANCE( 7),IF(YA=YA1,A区+1,A区*-1));
rn  阴手:=SUM(IF(YA AND C<=O,VOL,0)/FINANCE( 7),IF(YA=YA1,A区+1,A区*-1));
rnYMS:=’阳手 ‘+NUMTOSTR(阳棒,0)+’/ ‘+NUMTOSTR(阳手,2);
rnDRAWTEXT(BS,H,YMS),COLORFFFFFF,ALIGN4,PXDN60;
rnYNS:=’阴手 ‘+NUMTOSTR(阴棒,0)+’/ ‘+NUMTOSTR(阴手,2);
rnDRAWTEXT(BS,H,YNS),COLORFFFFFF,ALIGN4,PXDN90;
rn//斜率:=(AJ-BJ)/A区;
rnEXPLAIN(1,’————  B    区  ————‘),COLOR00FFFF;
rnB盈:=REFX(SUM(IF(A1<=A AND KB>=S1 AND 均价
rnB亏:=REFX(SUM(IF(A1<=A AND KB>=S1 AND 均价>=BB,V,0),0)/FINANCE(7),B区);
rnB总:=B盈+B亏;
rnB利:=B盈/B总*100;
rn  盈B:=SUM(IF(A1>=A AND KB<=S1 AND 均价
rn  亏B:=SUM(IF(A1>=A AND KB<=S1 AND 均价>=BB,V,0),B区*-1)/FINANCE(7);
rn  总B:=盈B+亏B;
rn  利B:=盈B/总B*100;
rnEXPLAINEX(1, ‘总 ‘,IF(KB>=S1,B总,总B),2,0),COLOR00FFFF;
rnEXPLAINEX(1, ‘利 ‘,IF(KB>=S1,B利,利B),2,0),COLORFFFFFF;
rnEXPLAINEX(1, ‘盈 ‘,IF(KB>=S1,B盈,盈B),2,0),COLORRED;
rnEXPLAINEX(1, ‘亏 ‘,IF(KB>=S1,B亏,亏B),2,0),COLORFFFF00;
rnEXPLAINEX(1, ‘周期 ‘+DZ+’   涨跌幅 ‘,幅3,2,0),COLORFFFFFF;
rnEXPLAINEX(1, ‘同期大盘涨跌幅 ‘,大幅3,2,0),COLORFFFFFF;
rn阳手Y:=REFX(SUM(IF(A1<=A AND KB>=S1 AND C>O,V,0),B区)/FINANCE(7),B区);
rn阴手Y:=REFX(SUM(IF(A1<=A AND KB>=S1 AND C<=O,V,0),B区)/FINANCE(7),B区);
rn阳棒Y:=REFX(SUM(IF(A1<=A AND KB>=S1 AND C>O,1,0),0),B区);
rn阴棒Y:=REFX(SUM(IF(A1<=A AND KB>=S1 AND C<=O,1,0),0),B区);
rnYMB:=’阳手 ‘+NUMTOSTR(阳棒Y[A1],0)+’/ ‘+NUMTOSTR(阳手Y[A1],2);
rn  DRAWTEXT(CS AND KB>=S1,C,YMB),COLOR00FFFF,ALIGN3,PXUP127;
rnYNB:=’阴手 ‘+NUMTOSTR(阴棒Y[A1],0)+’/ ‘+NUMTOSTR(阴手Y[A1],2);
rn  DRAWTEXT(CS AND KB>=S1,C,YNB),COLOR00FFFF,ALIGN3,PXUP100;
rnYMB2:=’阳手 ‘+NUMTOSTR(阳棒[A1],0)+’/ ‘+NUMTOSTR(阳手[A1],2);
rn  DRAWTEXT(CS AND KB<=S1,C,YMB2),COLOR00FFFF,ALIGN3,PXUP127;
rnYNB2:=’阴手 ‘+NUMTOSTR(阴棒[A1],0)+’/ ‘+NUMTOSTR(阴手[A1],2);
rn  DRAWTEXT(CS AND KB<=S1,C,YNB2),COLOR00FFFF,ALIGN3,PXUP100;
rnEXPLAINEX(A<>A3 AND CS AND KB>=S1, ‘阳棒 ‘+NUMTOSTR(阳棒Y[A1],0)+’ 手 ‘,阳手Y,2,0),COLORFF00FF;
rnEXPLAINEX(A<>A3 AND CS AND KB>=S1, ‘阴棒 ‘+NUMTOSTR(阴棒Y[A1],0)+’ 手 ‘,阴手Y,2,0),COLOR00FF00;
rnEXPLAINEX(A<>A3 AND CS AND KB<=S1, ‘阳棒 ‘+NUMTOSTR(阳棒[A1],0)+’ 手 ‘,阳手,2,0),COLORFF00FF;
rnEXPLAINEX(A<>A3 AND CS AND KB<=S1, ‘阴棒 ‘+NUMTOSTR(阴棒[A1],0)+’ 手 ‘,阴手,2,0),COLOR00FF00;
rnEXPLAIN(1,’————  C    区  ————‘),COLOR00FF00;
rnC盈:=REFX(SUM(IF(A1<=A AND KB>=S2 AND 均价
rnC亏:=REFX(SUM(IF(A1<=A AND KB>=S2 AND 均价>=AA,V,0),0)/FINANCE(7),C区);
rnC总:=C盈+C亏;
rnC利:=C盈/C总*100;
rn  盈C:=SUM(IF(A1>=A AND KB<=S2 AND 均价
rn  亏C:=SUM(IF(A1>=A AND KB<=S2 AND 均价>=BX,V,0)/FINANCE(7),C区*-1);
rn  总C:=盈C+亏C;
rn  利C:=盈C/总C*100;
rnC盈%:=REFX(SUM(IF(A1<=A AND KB>=S2 AND 均价AA*0.9,V,0),0)/FINANCE(7),C区);
rnC亏%:=REFX(SUM(IF(A1<=A AND KB>=S2 AND 均价>=AA AND 均价
rnC总%:=C盈%+C亏%;
rnC利%:=C盈%/C总%*100;
rn  盈C%:=SUM(IF(A1>=A AND KB<=S2 AND 均价BX*0.9,V,0)/FINANCE(7),C区*-1);
rn  亏C%:=SUM(IF(A1>=A AND KB<=S2 AND 均价>=BX AND 均价
rn  总C%:=盈C%+亏C%;
rn  利C%:=盈C%/总C%*100;
rnEXPLAINEX(1, ‘总 ‘+NUMTOSTR(IF(KB>=S2,C总,总C),2)+’   浮 ‘,IF(KB>=S2,C总%,总C%),2,0),COLOR00FFFF;
rnEXPLAINEX(1, ‘利 ‘+NUMTOSTR(IF(KB>=S2,C利,利C),2)+’     浮 ‘,IF(KB>=S2,C利%,利C%),2,0),COLORFFFFFF;
rnEXPLAINEX(1, ‘盈 ‘+NUMTOSTR(IF(KB>=S2,C盈,盈C),2)+’     浮 ‘,IF(KB>=S2,C盈%,盈C%),2,0),COLORRED;
rnEXPLAINEX(1, ‘亏 ‘+NUMTOSTR(IF(KB>=S2,C亏,亏C),2)+’     浮 ‘,IF(KB>=S2,C亏%,亏C%),2,0),COLORFFFF00;
rnEXPLAINEX(1, ‘周期 ‘+NUMTOSTR(C区[A1],0)+’   涨跌幅 ‘,幅2,2,0),COLORFFFFFF;
rnEXPLAINEX(1, ‘同期大盘涨跌幅 ‘,大幅2,2,0),COLORFFFFFF;
rn阳手右:=REFX(SUM(IF(A1<=A AND KB>=S2 AND C>O,V,0),0)/FINANCE(7),C区);
rn阴手右:=REFX(SUM(IF(A1<=A AND KB>=S2 AND C<=O,V,0),0)/FINANCE(7),C区);
rn    阳手左:=SUM(IF(A1>=A AND KB<=S2 AND C>O,V,0),C区*-1)/FINANCE(7);
rn    阴手左:=SUM(IF(A1>=A AND KB<=S2 AND C<=O,V,0),C区*-1)/FINANCE(7);
rn阳棒右:=REFX(SUM(IF(A1<=A AND KB>=S2 AND C>O,1,0),0),C区);
rn阴棒右:=REFX(SUM(IF(A1<=A AND KB>=S2 AND C<=O,1,0),0),C区);
rn    阳棒左:=SUM(IF(A1>=A AND KB<=S2 AND C>O,1,0),C区*-1);
rn    阴棒左:=SUM(IF(A1>=A AND KB<=S2 AND C<=O,1,0),C区*-1);
rnEXPLAINEX(KB>=S2, ‘阳棒 ‘+NUMTOSTR(阳棒右[a1],0)+’  手  ‘,阳手右,2,0),COLORFF00FF;
rnEXPLAINEX(KB>=S2, ‘阴棒 ‘+NUMTOSTR(阴棒右[a1],0)+’  手  ‘,阴手右,2,0),COLOR00FF00;
rnEXPLAINEX(KB<=S2, ‘阳棒 ‘+NUMTOSTR(阳棒左[a1],0)+’  手  ‘,阳手左,2,0),COLORFF00FF;
rnEXPLAINEX(KB<=S2, ‘阴棒 ‘+NUMTOSTR(阴棒左[a1],0)+’  手  ‘,阴手左,2,0),COLOR00FF00;
rnDRAWLINE(BS ,均价,AS,均价,0),COLORFFFFFF,POINTDOT;
rnDRAWLINE(AS ,均价,BS,均价,0),COLORFFFFFF,POINTDOT;
rnDRAWLINE(CS ,均价,AS,均价,0),COLOR00FF00,POINTDOT;
rnDRAWLINE(AS ,均价,CS,均价,0),COLOR00FF00,POINTDOT;
rnDRAWLINE(CS ,均价,BS,均价,0),COLOR00FFFF,POINTDOT;
rnDRAWLINE(BS ,均价,CS,均价,0),COLOR00FFFF,POINTDOT;

rn