通达信拉升潜入主图 源码

{拉升潜入}
RSV:=EMA((MA(H,2)+MA(L,2))/2,2);
原形:=MA(RSV,13),COLOR00AAEE;{20可自由调}
偏移:=XMA(RSV,18),COLOR00FF00;{20可自由调}
运动趋势:=(原形+偏移)/2,COLORFFFFFF,LINETHICK2;
DX:=IF(运动趋势>REF(运动趋势,1),运动趋势*1.15,DRAWNULL);
DRAWBAND(运动趋势*0.85,RGB(00,100,200),运动趋势*1.15,RGB(00,100,200));
DRAWBAND(运动趋势*0.85,RGB(250,80,150),DX,RGB(250,80,150));
DRAWBAND(运动趋势*1.1,RGB(00,100,100),运动趋势*1.125,RGB(00,100,100));
DRAWBAND(运动趋势*1.125,RGB(100,100,00),运动趋势*1.15,RGB(100,100,00));
DRAWBAND(运动趋势*0.9,RGB(00,100,100),运动趋势*0.875,RGB(00,100,100));
DRAWBAND(运动趋势*0.875,RGB(100,100,00),运动趋势*0.85,RGB(100,100,00));
中线波幅:偏移-原形,COLORYELLOW,NODRAW;
DRAWBAND(原形,RGB(300,200,100),偏移,RGB(250,00,100));
中线:(偏移+原形)/2,COLORBLUE;
DRAWKLINE(H,O,L,C);
Z:=MA(C,120);
VAR3:=(MA(C,5)-Z)/Z;
VAR4:=MA((CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100,3);
D1:DRAWTEXT(CLOSE>Z AND REF(VAR4,1)<30 AND VAR4>REF(VAR4,1) AND REF(VAR4,1) D2:DRAWTEXT(REF(VAR4,1)<7 AND VAR4>REF(VAR4,1) AND REF(VAR4,1)