通达信王者操盘主图源码

以下是通达信王者操盘主图源码

AB:=EMA(((2*C+H+L)/4-LLV(LOW,30))/

 (HHV(HIGH,30)-LLV(LOW,30))*100,8);

 BA:=EMA(AB,5);

 A1{高}:=REFDATE(REF(HHV(H,96),5),DATE);

 B1{低}:=REFDATE(REF(LLV(L,96),5),DATE);

 D{中}:=((A1)+(B1))/2;

箱顶:IF(AB>0 AND AB-BA<=0,A1,A1),LINETHICK1,COLORGREEN; 

箱腰:IF(AB>0 AND AB-BA<=0,D,D),LINETHICK1,COLORYELLOW;

箱低:IF(AB>0 AND AB-BA<=0,B1,B1),LINETHICK1,COLORRED;

DRAWTEXT(CROSS(ZIG(3,10),REF(ZIG(3,10),1)),LOW*0.98,’买’) , COLORMAGENTA;

DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.02,’卖’);

HJ_1:=EMA(CLOSE,2);

HJ_2:=EMA(SLOPE(CLOSE,21)*20+CLOSE,42);

HJ_3:=CROSS(HJ_1,HJ_2);

HJ_4:=CROSS(HJ_2,HJ_1);

DRAWTEXT(HJ_3,LOW*0.97,’↖低吸’),COLORYELLOW;

STICKLINE(HJ_1>=HJ_2,LOW,HIGH,0.01,0),COLOR0000DD;

STICKLINE(HJ_1>=HJ_2,CLOSE,OPEN,2,1),COLORRED;

STICKLINE(HJ_1<HJ_2,LOW,HIGH,0.01,0),COLORFFDD00;

STICKLINE(HJ_1<HJ_2,CLOSE,OPEN,2,0),COLORCYAN;

STICKLINE(CROSS(HJ_1,HJ_2),OPEN,CLOSE,2.5,0),COLORYELLOW;

STICKLINE(CROSS(HJ_2,HJ_1),OPEN,CLOSE,2.5,0),COLORWHITE;

HJ_5:=MA(CLOSE,10);

HJ_6:=MA(CLOSE,54);

HJ_7:=(CLOSE-HJ_6)/HJ_6<0.1;

HJ_8:=(CLOSE-HJ_5)/HJ_5<0.3;

HJ_9:=(HJ_7=1 AND HJ_8=1)*0.2;

HJ_10:=(HJ_9=0 AND REF(HJ_9,1)=0.2 AND REF(COUNT(HJ_9=0.2,10)=10,1)=1)*1;

Z1:=STRCAT(DYBLOCK,’ ‘);

Z2:=STRCAT(Z1,HYBLOCK);

Z3:=STRCAT(Z2,’ ‘);

Z4:=STRCAT(Z3,GNBLOCK);

Z5:=STRCAT(Z4,’ ‘);

Z6:=STRCAT(Z5,FGBLOCK);

DRAWTEXT_FIX(ISLASTBAR,0.06,0.012,0,STRCAT(Z6,ZHBLOCK)),COLORYELLOW;

DRAWTEXT_FIX(1,0.08,0.08,0,’王者微信和QQ：365812945′),COLOR0000FF;

DRAWTEXT_FIX(1,0.83.5,0.95,0,’王者设计专用’),COLORYELLOW;

DRAWTEXT_FIX(1,0.83.5,0.92,0,”),COLOR0000FF;

ZAA:=MONTH-REF(MONTH,1);

 DRAWTEXT(ZAA>1 OR (ZAA<0 AND ZAA>-11),L*0.9,’停牌’);

DRAWTEXT_FIX(1,0.00,0.12,0,’每股收益:’)COLORFF00FF;

DRAWTEXT_FIX(1,0.04,0.12,0,STRCAT(CON2STR(FINANCE(30)/FINANCE(1),2),’ （元/股）’))COLORFF00FF;

DRAWTEXT_FIX(1,0.00,0.18,0,’每股净资产(元):’)COLORFF00FF;

DRAWTEXT_FIX(1,0.06,0.18,0,CON2STR(FINANCE(34),2))COLORFF00FF;

上市天数:FINANCE(42),,COLORRED;

上市日期:=STRCAT(‘ 上市日期: ‘,CON2STR(HHV((BARSCOUNT(C)=0)*(DATE+19000000),0),0));

DRAWTEXT_FIX(ISLASTBAR,0.001,0.08,0,上市日期),COLORYELLOW;

HM1:=ABS(((3.48*CLOSE+HIGH+LOW+O)/5-EMA(CLOSE,20))/EMA(CLOSE,20));           

HM2:=DMA(((2.15*CLOSE+LOW+HIGH + O)/5),HM1);       

妖股线:=EMA(HM2,200)*1.26 ,LINETHICK2,COLORGREEN;

牛熊线:=EMA(HM2,200)*1.18 ,LINETHICK2,COLORGREEN;

Q1:=MA((L+H+C)/3,5);    

AHC1:=CLOSE*VOL;

AHC2:=EMA((EXPMA(AHC1,3)/EXPMA(VOL,3)+EXPMA(AHC1,6)/EXPMA(VOL,6)+EXPMA(AHC1,12)/EXPMA(VOL,12)+EXPMA(AHC1,24)/EXPMA(VOL,24))/4,13),COLORYELLOW;

上轨:=1.06*AHC2,LINETHICK2,COLORWHITE;

顶:=1.13*AHC2,LINETHICK2,COLORWHITE;

MM2:=MIN(上轨,妖股线);

KK2:=MIN(上轨,牛熊线);

ZT:=REF(C,1)*1.1-C<0.01 AND H=C;

超牛:=CROSS(C,顶) AND ZT;

DRAWTEXT(超牛,L*0.98,’超牛’),COLORRED;

VAR2:=((((C – O) / O) * (100)) > 4);

VAR3:=((((C – (REF(C,1))) / (REF(C,1))) * (100)) > 8);

VAR4:=(((((REF(C,1)) * (1.1)) – C) < (0.01)) AND (H = C));

VAR5:=((20 * H + 19 * (REF(H,1)) + 18 * (REF(H,2)) + 17 * (REF(H,3)) + 16 * (REF(H,4)) + 15 * (REF(H,5)) + 14 * (REF(H,6)) + 13 * (REF(H,7)) + 12 * (REF(H,8)) + 11 * (REF(H,9)) + 10 * (REF(H,10)) + 9 * (REF(H,11)) + 8 * (REF(H,12)) + 7 * (REF(H,13)) + 6 * (REF(H,14)) + 5 * (REF(H,15)) + 4 * (REF(H,16)) + 3 * (REF(H,17)) + 2 * (REF(H,18)) + REF(H,20)) / (210));

牛线:(EMA(VAR5,90)),LINETHICK2,COLORYELLOW;

持股线:((MA(C,3) + MA(C,6) + MA(C,12) + MA(C,24)) / 4)COLORRED,LINETHICK2;

VAR6:=((牛线) – ((((C – (牛线)) * C) – (牛线)) / (牛线)));

VAR7:=(牛线 + (((C – (牛线)) * C) – (黄牛线)) / (牛线));

涨速线:=(IF((牛线) > (VAR6),(牛线) * (0.9),VAR6)),LINETHICK2,COLORYELLOW;

VAR8:=(((REF(牛线,2)) >= (REF(牛线,1))) AND ((REF(牛线,1)) < (牛线)));

VAR9:=(CROSS(牛线,VAR6));

VAR10:=(CROSS(VAR6,牛线));

VAR11:=(CROSS(C,VAR6));

VAR12:=(CROSS(VAR7,C));

DRAWTEXT((VAR9) AND (VAR4),L,’↖金条’),LINETHICK4,COLORYELLOW;

DRAWTEXT((VAR11) AND (VAR4),L,’导弹’)LINETHICK4,COLORWHITE;

DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.015,’←出’) ,COLORGREEN;

DRAWTEXT(CROSS(ZIG(3,10),REF(ZIG(3,10),1)),LOW*0.99,’←进’) ,COLORYELLOW;

DRAWTEXT(CROSS(90,RSI) , HIGH*1.01,’←出逃!’),COLOR00FF00 ;

MA5:=MA(C,5);

MA6:=MA(C,6);

MA10:=MA(C,10);

MA20:=MA(C,20);

A2:=REF(MA20,1);J1:=(MA20-A2)/A2*100;MJ1:=MA(J1,3);

MA30:=MA(C,30);

MA55:=MA(C,60);

MA120:=MA(C,120);

乖离2:=(MA20-MA30)/MA30*100;

MAX1:=MAX(MA20,MA30);

MAX2:=MAX(MAX1,MA55);

MIN11:=MIN(MA20,MA30);

MIN2:=MIN(MIN11,MA55);

K1:=(MAX2/MIN2-1)*100;

VAR1:=IF(BETWEEN(乖离2,-2,5),2,0);

短线暴涨:DRAWTEXT(FILTER( (VAR1 OR VAR2) AND MA10>REF(MA10,1) AND COUNT(MA30>REF(MA30,1),3)=3 AND MA30>MA55 AND COUNT(CROSS(MA5,MA30),3) AND J1>MJ1 AND MA(V,5)>MA(V,60)

AND MA(V,60)>REF(MA(V,60),1),5),MA55*0.99,’←暴涨’),COLORRED;

AA10:=MA(CLOSE,10);

AA12:=MA(CLOSE,12);

BB10:=((ATAN((AA10 – REF(AA10,1))) * 3.1416) * 10);

BB12:=((ATAN((AA12 – REF(AA12,1))) * 3.1416) * 10);

VARA:=(((CLOSE – MA(CLOSE,6)) / MA(CLOSE,6)) * 100);

VARB:=(((CLOSE – MA(CLOSE,12)) / MA(CLOSE,12)) * 100);

VARC:=(((CLOSE – MA(CLOSE,24)) / MA(CLOSE,24)) * 100);

VARD:=REF(CLOSE,1);

VARE:=((SMA(MAX((CLOSE – VARD),0),5,1) / SMA(ABS((CLOSE – VARD)),5,1)) * 100);

VARF:=(((HIGH + LOW) + CLOSE) / 3);

VAR13:=(VAR11 AND VAR12);

VAR14:=((((VARA >= (0 – 45)) AND (VARA <= (0 – 10))) AND (VARB <= (0 – 15))) AND (VARC <= (0 – 20)));

VAR15:=(COUNT(VAR14,1) >= 1);

VAR16:=(VAR13 AND VAR15);

VAR17:=1;

VAB0:=531;VAB1:=1510000;VAB2:=VAB0 + VAB1; VAB3:=IF(DATE > VAB2,0,1);

VARA12:=SMA(H,10,9)*VAB3; VARA13:=SMA(L,10,9)*VAB3; VAR18:=(CLOSE * VOL);

高抛价参考:VARA12,COLORRED,NODRAW;

低吸价参考:VARA13,COLORGREEN,NODRAW;