倚天只做主升源码附图

 顶:=85;

中:=50;

底:=20;

VAR1:=HHV(HIGH,9)-LLV(LOW,9);

VAR2:=HHV(HIGH,9)-CLOSE;

VAR3:=CLOSE-LLV(LOW,9);

VAR4:=VAR2/VAR1*100-70;

VAR5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;

VAR6:=(2*CLOSE+HIGH+LOW)/4;

VAR7:=SMA(VAR3/VAR1*100,3,1);

VAR8:=LLV(LOW,34);

VAR9:=SMA(VAR7,3,1)-SMA(VAR4,9,1);

VARA:=IF(VAR9>100,VAR9-100,0);

VARB:=HHV(HIGH,34);

AA:= VARA*2;

BB:= EMA((VAR6-VAR8)/(VARB-VAR8)*100,13);

VARC:=EMA(0.667*REF(BB,1)+0.333*BB,2);

CC:SMA(VAR5,20,1),COLORRED;

CC1:SMA(CC,6,1),COLORGREEN;

STICKLINE(CC>CC1,CC,CC1,1,0),COLORRED;

STICKLINE(CC1>CC,CC,CC1,1,0),COLORGREEN;

出击:IF((CROSS(CC,CC1) AND (CC1 < 顶) ),80,0),COLORRED;

{跑}

DRAWICON(CC < REF(CC,1) AND REF(CC,1) < REF(CC,2) AND CC > CC1,100,2);

DRAWICON(CROSS(CC1,CC),100,15);

B1:=(HHV(H,9)-C)/(HHV(H,9)-LLV(LOW,9))*100- 70;

B2:=SMA(B1,9,1)+100;

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

B4:=SMA(B3,3,1);

B5:=SMA(B4,3,1)+100;

B6:=B5-B2;

B7:IF(B6>60,B6-60,0);

持有:STICKLINE(REF(B7,1)<B7,B7,REF(B7,1),5,0),COLORMAGENTA;

A:0,POINTDOT,COLORMAGENTA,LINETHICK3;

DIFF: EMA(CLOSE,12) - EMA(CLOSE,26),COLORBLUE,LINETHICK2;

DEA1:=EMA(DIFF,9);0.10,COLORBLUE,LINETHICK2;

MACD: 2*(DIFF-DEA1)*60,LINETHICK0;

S1:=MACD<REF(MACD,1)AND MACD>0,COLORBLUE;

S2:=MACD<REF(MACD,1)/2 AND MACD<0;

STICKLINE(MACD>=0,MACD,0,8,1),COLORRED;

STICKLINE(S1,0,MACD,8,1),COLOR00FFFF;