通达信盈利王主图源码

A:=IF(HIGH>=REF(HIGH,1)&&HIGH>=REF(HIGH,2)&&HIGH>=REF(HIGH,3) &&HIGH>=REF(HIGH,4)&&HIGH>=REF(HIGH,5),LOW,0);

B:=IF(LOW<=REF(LOW,1)&&LOW<=REF(LOW,2)&&LOW<=REF(LOW,3) &&LOW<=REF(LOW,4)&&LOW<=REF(LOW,5),HIGH,888888);

P1:=IF(A>REF(L,1),REF(L,1),0);

P2:=IF(A>REF(L,2)&&A<=REF(L,1),REF(L,2),0);

P3:=IF(A>REF(L,3)&&A<=REF(L,1)&&A<=REF(L,2),REF(L,3),0);

P4:=IF(A>REF(L,4)&&A<=REF(L,1)&&A<=REF(L,2)&&A<=REF(L,3),REF(L,4),0);

P5:=IF(A>REF(L,5)&&A<=REF(L,1)&&A<=REF(L,2)&&A<=REF(L,3)&&A<=REF(L,4),REF(L,5),0);

P6:=IF(A>REF(L,6)&&A<=REF(L,1)&&A<=REF(L,2)&&A<=REF(L,3)&&A<=REF(L,4)&&A<=REF(L,5),REF(L,6),0);

P7:=IF(A>REF(L,7)&&A<=REF(L,1)&&A<=REF(L,2)&&A<=REF(L,3)&&A<=REF(L,4)&&A<=REF(L,5)&&A<=REF(L,6),REF(L,7),0);

P8:=IF(A>REF(L,8)&&A<=REF(L,1)&&A<=REF(L,2)&&A<=REF(L,3)&&A<=REF(L,4)&&A<=REF(L,5)&&A<=REF(L,6)&&A<=REF(L,7),REF

(L,8),0);

P9:=IF(A>REF(L,9)&&A<=REF(L,1)&&A<=REF(L,2)&&A<=REF(L,3)&&A<=REF(L,4)&&A<=REF(L,5)&&A<=REF(L,6)&&A<=REF(L,7)

&&A<=REF(L,8),REF(L,9),0);

P10:=IF(A>REF(L,10)&&A<=REF(L,1)&&A<=REF(L,2)&&A<=REF(L,3)&&A<=REF(L,4)&&A<=REF(L,5)&&A<=REF(L,6)&&A<=REF(L,7)

&&A<=REF(L,8)&&A<=REF(L,9),REF(L,10),0);

AA:=P1+P2+P3+P4+P5+P6+P7+P8+P9+P10;

PP1:=IF(AA>REF(L,1),REF(L,1),0);

PP2:=IF(AA>REF(L,2)&&AA<=REF(L,1),REF(L,2),0);

PP3:=IF(AA>REF(L,3)&&AA<=REF(L,1)&&AA<=REF(L,2),REF(L,3),0);

PP4:=IF(AA>REF(L,4)&&AA<=REF(L,1)&&AA<=REF(L,2)&&AA<=REF(L,3),REF(L,4),0);

PP5:=IF(AA>REF(L,5)&&AA<=REF(L,1)&&AA<=REF(L,2)&&AA<=REF(L,3)&&AA<=REF(L,4),REF(L,5),0);

PP6:=IF(AA>REF(L,6)&&AA<=REF(L,1)&&AA<=REF(L,2)&&AA<=REF(L,3)&&AA<=REF(L,4)&&AA<=REF(L,5),REF(L,6),0);

PP7:=IF(AA>REF(L,7)&&AA<=REF(L,1)&&AA<=REF(L,2)&&AA<=REF(L,3)&&AA<=REF(L,4)&&AA<=REF(L,5)&&AA<=REF(L,6),REF

(L,7),0);

PP8:=IF(AA>REF(L,8)&&AA<=REF(L,1)&&AA<=REF(L,2)&&AA<=REF(L,3)&&AA<=REF(L,4)&&AA<=REF(L,5)&&AA<=REF(L,6)&&AA<=REF

(L,7),REF(L,8),0);

PP9:=IF(AA>REF(L,9)&&AA<=REF(L,1)&&AA<=REF(L,2)&&AA<=REF(L,3)&&AA<=REF(L,4)&&AA<=REF(L,5)&&AA<=REF(L,6)&&AA<=REF

(L,7)&&AA<=REF(L,8),REF(L,9),0);

PP10:=IF(AA>REF(L,10)&&AA<=REF(L,1)&&AA<=REF(L,2)&&AA<=REF(L,3)&&AA<=REF(L,4)&&AA<=REF(L,5)&&AA<=REF(L,6)

&&AA<=REF(L,7)&&AA<=REF(L,8)&&AA<=REF(L,9),REF(L,10),0);

AAA:=PP1+PP2+PP3+PP4+PP5+PP6+PP7+PP8+PP9+PP10;

C1:=VALUEWHEN(AAA>0,AAA);

T1:=IF(B<REF(H,1),REF(H,1),0);

T2:=IF(B<REF(H,2)&&B>=REF(H,1),REF(H,2),0);

T3:=IF(B<REF(H,3)&&B>=REF(H,1)&&B>=REF(H,2),REF(H,3),0);

T4:=IF(B<REF(H,4)&&B>=REF(H,1)&&B>=REF(H,2)&&B>=REF(H,3),REF(H,4),0);

T5:=IF(B<REF(H,5)&&B>=REF(H,1)&&B>=REF(H,2)&&B>=REF(H,3)&&B>=REF(H,4),REF(H,5),0);

T6:=IF(B<REF(H,6)&&B>=REF(H,1)&&B>=REF(H,2)&&B>=REF(H,3)&&B>=REF(H,4)&&B>=REF(H,5),REF(H,6),0);

T7:=IF(B<REF(H,7)&&B>=REF(H,1)&&B>=REF(H,2)&&B>=REF(H,3)&&B>=REF(H,4)&&B>=REF(H,5)&&B>=REF(H,6),REF(H,7),0);

T8:=IF(B<REF(H,8)&&B>=REF(H,1)&&B>=REF(H,2)&&B>=REF(H,3)&&B>=REF(H,4)&&B>=REF(H,5)&&B>=REF(H,6)&&B>=REF(H,7),REF

(H,8),0);

T9:=IF(B<REF(H,9)&&B>=REF(H,1)&&B>=REF(H,2)&&B>=REF(H,3)&&B>=REF(H,4)&&B>=REF(H,5)&&B>=REF(H,6)&&B>=REF(H,7)

&&B>=REF(H,8),REF(H,9),0);

T10:=IF(B<REF(H,10)&&B>=REF(H,1)&&B>=REF(H,2)&&B>=REF(H,3)&&B>=REF(H,4)&&B>=REF(H,5)&&B>=REF(H,6)&&B>=REF(H,7)

&&B>=REF(H,8)&&B>=REF(H,9),REF(H,10),0);

BB:=IF((T1+T2+T3+T4+T5+T6+T7+T8+T9+T10)=0,888888,T1+T2+T3+T4+T5+T6+T7+T8+T9+T10);

TT1:=IF(BB<REF(H,1),REF(H,1),0);

TT2:=IF(BB<REF(H,2)&&BB>=REF(H,1),REF(H,2),0);

TT3:=IF(BB<REF(H,3)&&BB>=REF(H,1)&&BB>=REF(H,2),REF(H,3),0);

TT4:=IF(BB<REF(H,4)&&BB>=REF(H,1)&&BB>=REF(H,2)&&BB>=REF(H,3),REF(H,4),0);

TT5:=IF(BB<REF(H,5)&&BB>=REF(H,1)&&BB>=REF(H,2)&&BB>=REF(H,3)&&BB>=REF(H,4),REF(H,5),0);

TT6:=IF(BB<REF(H,6)&&BB>=REF(H,1)&&BB>=REF(H,2)&&BB>=REF(H,3)&&BB>=REF(H,4)&&BB>=REF(H,5),REF(H,6),0);

TT7:=IF(BB<REF(H,7)&&BB>=REF(H,1)&&BB>=REF(H,2)&&BB>=REF(H,3)&&BB>=REF(H,4)&&BB>=REF(H,5)&&BB>=REF(H,6),REF

(H,7),0);

TT8:=IF(BB<REF(H,8)&&BB>=REF(H,1)&&BB>=REF(H,2)&&BB>=REF(H,3)&&BB>=REF(H,4)&&BB>=REF(H,5)&&BB>=REF(H,6)&&BB>=REF

(H,7),REF(H,8),0);

TT9:=IF(BB<REF(H,9)&&BB>=REF(H,1)&&BB>=REF(H,2)&&BB>=REF(H,3)&&BB>=REF(H,4)&&BB>=REF(H,5)&&BB>=REF(H,6)&&BB>=REF

(H,7)&&BB>=REF(H,8),REF(H,9),0);

TT10:=IF(BB<REF(H,10)&&BB>=REF(H,1)&&BB>=REF(H,2)&&BB>=REF(H,3)&&BB>=REF(H,4)&&BB>=REF(H,5)&&BB>=REF(H,6)

&&BB>=REF(H,7)&&BB>=REF(H,8)&&BB>=REF(H,9),REF(H,10),0);

BBB:=TT1+TT2+TT3+TT4+TT5+TT6+TT7+TT8+TT9+TT10;

D:=VALUEWHEN(BBB>0,BBB);

UD:=IF(CLOSE>D&&REF(CLOSE,1)<=D,1,IF(CLOSE<C1&&REF(CLOSE,1)>=C1,-3,0));

K:=VALUEWHEN(UD<>0,UD);

W:IF(K=1,C1,D),COLOR03DAEB,LINETHICK2;

H1:=IF(H>=REF(H,1)&&H>=REF(H,2)&&H>=REF(H,3)&&H>=REF(H,4)&&H>=REF(H,5)&& H>REFX(H,1)&&H>REFX(H,2)&&H>REFX(H,3),HIGH,0);

L1:=IF(L<=REF(L,1)&&L<=REF(L,2)&&L<=REF(L,3)&&L<=REF(L,4)&&L<=REF(L,5)&& L<REFX(L,1)&&L<REFX(L,2)&&L<REFX(L,3),LOW,0);

H2:=VALUEWHEN(H1>0,H1);

L2:=VALUEWHEN(L1>0,L1);

上轨:=HHV (H2,34),LINETHICK1,COLOR12D36D;

下轨:=LLV (L2,34),LINETHICK1,COLOR00FF00;

H3:=IF(H2<>REF(H2,1),上轨-下轨,0);

L3:=IF(L2<>REF(L2,1),上轨-下轨,0);

PLOYLINE(H2>0,(上轨-下轨)*0.618+下轨),COLORFF8000;

PLOYLINE(H2>0,(上轨-下轨)*0.5+下轨),COLORFF00FF,DOTLINE;

PLOYLINE(H2>0,(上轨-下轨)*0.382+下轨),COLORFF8000;

QWX1:=HHV(C,30);

QWX2:=LLV(C,30);

QWX3:=CONST((QWX1+QWX2)/2);

QWX4:=ABS((2*C+H+L)/4-MA(C,20))/MA(C,20);

QWX5:=CONST((1-7/100)*(DMA(CLOSE,QWX4)));

QWX6:=CONST((1+7/100)*(DMA(CLOSE,QWX4)));

{KDJ}

RSV1:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;

KX:=SMA(RSV1,3,1);

DX:=SMA(KX,3,1);

JX:=3*KX-2*DX;

{MACD}

DIF:=(EMA(C,12)-EMA(C,26))*2+QWX3,COLORWHITE;

DEA:=EMA(DIF,9),COLORYELLOW;

MCD:=(DIF-DEA)*2+QWX3;

M5:=MA(C,5),COLORWHITE;

M10:=MA(C,10),COLORYELLOW;

M20:=MA(C,20),COLORFF00FF;

VA1:=IF(C>O,C,O);

VA2:=MEMA(C,5);

VA3:=ATAN((VA2/REF(VA2,1)-1)*100);

VA4:=IF(VA3>0,VA3,VA3);

VA5:=(C/REF(C,1)-1)*100;

VA6:=VA5<1.5 AND VA5>-1.5;

小撑:IF(PERIOD=5,IF(BARSLAST(CURRBARSCOUNT=5),QWX5,DRAWNULL),DRAWNULL),COLORCYAN;

阻力:IF(PERIOD=5,IF(BARSLAST(CURRBARSCOUNT=5),QWX6,DRAWNULL),DRAWNULL),COLORYELLOW;

{柱型显示}

STICKLINE(CLOSE>REF(CLOSE,1)*1.0985 AND CLOSE=HIGH,CLOSE,OPEN,4,-1),COLOR00FFFF;

STICKLINE(CLOSE<REF(CLOSE,1)*0.9015 AND CLOSE=LOW,CLOSE,OPEN,4,-1),COLORGREEN;

{蓝}

STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,3,0),COLORFF7700;

STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,2.2,0),COLORFF9900;

STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,1.5,0),COLORFFBB00;

STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,0.5,0),COLORCYAN;

{红}

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0),COLOR000099;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.2,0),COLOR0000CC;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1.5,0),COLOR0000FF;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0.5,0),COLORCC66FF;

{绿}   

STICKLINE(CROSS(M5,EMA(C,3)),VA1,(OPEN+CLOSE)/2,3,0),COLOR009900;

STICKLINE(CROSS(M5,EMA(C,3)),VA1,(OPEN+CLOSE)/2,2.2,0),COLOR00BB00; 

STICKLINE(CROSS(M5,EMA(C,3)),VA1,(OPEN+CLOSE)/2,1.5,0),COLOR00DD00;    

STICKLINE(CROSS(M5,EMA(C,3)),VA1,(OPEN+CLOSE)/2,0.5,0),COLOR00FF00;

{灰}

STICKLINE(CROSS(EMA(C,3),M5),OPEN,(OPEN+CLOSE)/2,3,0),COLOR999999;

STICKLINE(CROSS(EMA(C,3),M5),OPEN,(OPEN+CLOSE)/2,2.2,0),COLORBBBBBB;      

STICKLINE(CROSS(EMA(C,3),M5),OPEN,(OPEN+CLOSE)/2,1.5,0),COLORDDDDDD;    

STICKLINE(CROSS(EMA(C,3),M5),OPEN,(OPEN+CLOSE)/2,0.5,0),COLORFFFFFF;

STICKLINE(CROSS(JX,DX),OPEN,CLOSE,0.5,0),COLORYELLOW;

STICKLINE(CROSS(DX,JX),OPEN,CLOSE,0.5,0),COLOR000099;

LC:=REF(CLOSE,1);

RSI:=((SMA(MAX((CLOSE - LC),0),4.1,1) / SMA(ABS((CLOSE - LC)),4.1,1)) * 100);

VAR27:=REF(CLOSE,1);

VAR28:=((SMA(MAX((CLOSE - VAR27),0),5.5,1) / SMA(ABS((CLOSE - VAR27)),6,1)) * 100);

VARA:=((AMOUNT / VOL) / 100);

VARB:=(((((3 * H) + L) + O) + (2 * C)) / 7);

VARC:=((SUM(AMOUNT,7) / VARA) / 100);

VARD:=DMA(VARB,(VOL / VARC));

VARE:=(((CLOSE - VARD) / VARD) * 100);

VARF:=(((CLOSE - LLV(LOW,34)) / (HHV(HIGH,34) - LLV(LOW,34))) * 100);

VARJ:=(MA(VARE,20) + STD(VARE,20));

BIAS18:=(((CLOSE - MA(CLOSE,18)) / MA(CLOSE,18)) * 100);

PP:=SMA(VARF,3,1);

SS:=(((REF(BIAS18,1) >= 5) AND CROSS(VARJ,VARE)) AND (PP> 79));

VAR1:=ZIG(3,10) < REF(ZIG(3,10),1) AND REF(ZIG(3,10),1) > REF(ZIG(3,10),2);

VAR2:=ZIG(3,10) > REF(ZIG(3,10),1) AND REF(ZIG(3,10),1) < REF(ZIG(3,10),2);

STICKLINE(VAR1,O,C,3,0),COLOR00AAFF;

STICKLINE(VAR1,O,C,2.2,0),COLOR22CCFF;

STICKLINE(VAR1,O,C,1.5,0),COLOR33DDFF;

STICKLINE(VAR1,O,C,0.5,0),COLOR44EEFF;

STICKLINE(VAR2,O,C,3,0),COLORA200F9;

STICKLINE(VAR2,O,C,2.2,0),COLOREF38FE;

STICKLINE(VAR2,O,C,1.5,0),COLORFF00FF;

STICKLINE(VAR2,O,C,0.5,0),COLORFF00FF;

VAR1111:=BACKSET((REF(H,2) = HHV(H,5)),3);

VAR2222:=CROSS(VAR1111,0.9);

VAR3333:=BACKSET((REF(L,2) = LLV(L,5)),3);

VAR4444:=CROSS(VAR3333,0.9);

压力:REF(HIGH,BARSLAST(VAR2222)),NODRAW,COLOR808000;

支撑:REF(LOW,BARSLAST(VAR4444)),NODRAW,COLOR1D99FE;

STICKLINE(CLOSE,REF(LOW,BARSLAST(VAR4444)),REF(LOW,BARSLAST(VAR4444)),2,0),COLOR0080FF;

STICKLINE(CLOSE,REF(HIGH,BARSLAST(VAR2222)),REF(HIGH,BARSLAST(VAR2222)),2,0),COLOR808000;

DRAWNUMBER(ISLASTBAR,W,W),COLORYELLOW;