通达信〖主力控盘监测〗多空信号面板指标公式源码

DRAwrECTREL(1500,990,0,0,RGB(10,0,0));
VAR1:=SUM(AMOUNT*CLOSE,1)/SUM(AMOUNT,1);
VAR2:=EMA(VAR1,5);
VAR3:=(VAR1-VAR2)*100/VAR1,NODRAW,COLORRED;
VAR4:=VAR3!=DRAWNULL;
VAR5:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
VAR6:=SMA(VAR5,4,1);
VAR7:=SMA(VAR6,3,1);
VAR8:=(CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100;
VAR9:=SMA(VAR8,6,1);
VAR10:=SMA(VAR9,3,1);
VAR11:=EMA(CLOSE,17);
VAR12:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
VAR13:=SMA(VAR12,3,1);
VAR14:=SMA(VAR13,3,1);
VAR15:=3*VAR13-2*VAR14;
VAR16:=VAR15>=95;
VAR17:=REF(CLOSE,1);
VAR18:=SMA(MAX(CLOSE-VAR17,0),9,1)/SMA(Abs(CLOSE-VAR17),9,1)*100;
VAR19:=VAR18>=75;
VAR20:=FORCAST(EMA(CLOSE,5),6);
VAR21:=FORCAST(EMA(CLOSE,8),6);
VAR22:=FORCAST(EMA(CLOSE,11),6);
VAR23:=FORCAST(EMA(CLOSE,14),6);
VAR24:=FORCAST(EMA(CLOSE,17),6);
VAR25:=VAR20+VAR21+VAR22+VAR23-4*VAR24;
VAR26:=EMA(VAR25,2);
VAR27:=EMA(EMA(CLOSE,9),9);
VAR28:=100*WINNER(CLOSE*0.95);
VAR29:=VAR9>VAR10&&VAR10>REF(VAR10,1)&&VAR4,NODRAW,COLORYELLOW;
VAR30:=VAR26>REF(VAR26,1),NODRAW,COLORRED;
VAR31:=VAR16||VAR19,NODRAW,COLORLIMAGENTA;
VAR32:=VAR3>0&&CLOSE>VAR11&&VAR11>REF(VAR11,1),NODRAW,COLOR0080FF;
VAR33:=CLOSE>=OPEN&&crOSS(VAR6,VAR7)&&VAR7<=50&&VAR4,NODRAW,COLORFF00FF;
VAR34:=(VAR27-REF(VAR27,1))/REF(VAR27,1)*1000;
VAR35:=CROSS(VAR34,0);
VAR36:=IF(VAR34< 0,VAR34,0),NODRAW,COLORWHITE;
VAR37:=IF(VAR35,5,0),NODRAW,COLORBROWN;
VAR38:=IF(VAR34>REF(VAR34,1)&&VAR34>0,VAR34,0),NODRAW,COLORRED;
VAR39:=IF(VAR28>50&&COST(85)< CLOSE&&VAR34>0,VAR34,0),NODRAW,COLORFF00FF;
VAR40:=IF(VAR34< REF(VAR34,1)&&VAR34>0,VAR34,0),NODRAW,COLOR00FF00;
STICKLINE(VAR29>0,84,100,2,0),COLOR22B4EE;
STICKLINE(VAR29=0,84,100,2,1),COLORGRAY;
STICKLINE(VAR30>0,68,78,2,0),COLOR22B4EE;
STICKLINE(VAR30=0,68,78,2,1),COLORGRAY;
STICKLINE(VAR31>0,54,64,2,0),COLOR22B4EE;
STICKLINE(VAR31=0,54,64,2,1),COLORGRAY;
STICKLINE(VAR32>0,36,46,2,0),COLOR22B4EE;
STICKLINE(VAR32=0,36,46,2,1),COLORGRAY;
STICKLINE(VAR33>0,22,32,2,0),COLORFF00FF;
STICKLINE(VAR33=0,22,32,2,1),COLORGRAY;
STICKLINE(VAR36,0,16,3,0),COLORWHITE;
STICKLINE(VAR37,0,16,3,0),COLORBROWN;
STICKLINE(VAR38,0,16,3,0),COLORRED;
STICKLINE(VAR39,0,16,3,0),COLORFF00FF;
STICKLINE(VAR40,0,16,3,0),COLOR00FF00;
VAR41:=93,NODRAW;
VAR42:=72,NODRAW;
VAR43:=58,NODRAW;
VAR44:=41,NODRAW;
VAR45:=26,NODRAW;
VAR46:=8,NODRAW;
DRAWTEXT(ISLASTBAR,VAR41,'趋势'),COLOR22B4EE;
DRAWTEXT(ISLASTBAR,VAR42,'动能'),COLOR22B4EE;
DRAWTEXT(ISLASTBAR,VAR43,'加速'),COLOR22B4EE;
DRAWTEXT(ISLASTBAR,VAR44,'资金'),COLOR22B4EE;
DRAWTEXT(ISLASTBAR,VAR45,'异动'),COLOR22B4EE;
DRAWTEXT(ISLASTBAR,VAR46,'控盘'),COLOR22B4EE;
VAR47:=EMA(C,8)-EMA(C,13);
VAR48:=EMA(VAR47,5);
VAR49:=(VAR47>VAR48);
VAR50:=IF(VAR49,1,0);
VAR51:=(C-LLV(L,8))/(HHV(HIGH,8)-LLV(L,8))*100;
VAR52:=SMA(VAR51,3,1);
VAR53:=SMA(VAR52,3,1);
VAR54:=(VAR52>VAR53);
VAR55:=IF(VAR54,2,0);
VAR56:=REF(C,1);
VAR57:=SMA(MAX(C-VAR56,0),5,1)/SMA(ABS(C-VAR56),5,1)*100;
VAR58:=SMA(MAX(C-VAR56,0),13,1)/SMA(ABS(C-VAR56),13,1)*100;
VAR59:=(VAR57>VAR58);
VAR60:=IF(VAR59,3,0);
VAR61:=(-(HHV(HIGH,13)-C))/(HHV(HIGH,13)-LLV(L,13))*100;
VAR62:=SMA(VAR61,3,1);
VAR63:=SMA(VAR62,3,1);
VAR64:=VAR62>VAR63;
VAR65:=IF(VAR64,4,0);
VAR66:=(MA(C,3)+MA(C,6)+MA(C,12)+MA(C,24))/4;
VAR67:=C>VAR66;
VAR68:=IF(VAR67,5,0);
VAR69:=C-REF(C,1);
VAR70:=100*EMA(EMA(VAR69,5),3)/EMA(EMA(ABS(VAR69),5),3);
VAR71:=100*EMA(EMA(VAR69,13),8)/EMA(EMA(ABS(VAR69),13),8);
DRAWICON((VAR47>VAR48),14,34);
DRAWICON((VAR47< VAR48),14,2);
DRAWICON((VAR52>VAR53),33,34);
DRAWICON((VAR52< VAR53),33,2);
DRAWICON((VAR57>VAR58),48,34);
DRAWICON((VAR57< VAR58),48,2);
DRAWICON((VAR62>VAR63),65,34);
DRAWICON((VAR62< VAR63),65,2);
DRAWICON(C>VAR66,80,34);
DRAWICON(C< VAR66,80,2);
DRAWICON(VAR70>VAR71,98,34);
DRAWICON(VAR70< VAR71,98,2);
DRAWRECTREL(150,990,0,0,RGB(10,0,0));
VAR72:=HIGH;
VAR73:=LOW;
VAR74:=(H-L)/L*100;
VAR75:=(C-L)/L*100;
VAR76:=VAR75/VAR74*100;
DRAWRECTREL(40,850,70,150,RGB(0,255,0));
DRAWRECTREL(70,CONST(850-VAR76*7),40,850,RGB(255,0,0));
DRAWRECTREL(70,150,40,850,RGB(0,0,0));
DRAWTEXT_FIX(1,0.09,0.3,0,STRCAT(CON2STR(VAR74-VAR75,2),'%')),COLORRED;
DRAWTEXT_FIX(1,0.09,0.6,0,STRCAT(CON2STR(VAR75,2),'%')),COLORGREEN;
DRAWTEXT_FIX(1,0.09,0.8,0,STRCAT(STRCAT('高低：',CON2STR(VAR74,2)),'％')),COLORWHITE;
VAR77:=(OPEN-REFV(C,1))/REFV(C,1)*100,COLORWHITE,NODRAW;
DRAWTEXT_FIX(1,0.09,0.05,0,STRCAT(STRCAT('开盘：',CON2STR(VAR77,2)),'％')),COLORWHITE;