通达信分时多空副图源码

以下是通达信分时多空副图源码

VAR1D:=EMA(CLOSE,2)-EMA(CLOSE,89);VAR1E:=EMA(VAR1D,30);VAR1F:=2*(VAR1D-VAR1E)*10;VAR20:=POW(VAR1F,3)*0.1+POW(VAR1F,2);VAR25:=IF(YEAR<2058 AND VAR1F>0.015,VAR20,0)/45/4;JJ :=(C*2+H+L)/4;SKK :( EMA(JJ,7) - EMA(JJ,13))*180,COLORRED;SDD : EMA(SKK,2),COLORYELLOW;多方:(SKK-SDD)*0.000000001,COLORRED,LINETHICK0;空方:-1*(SKK-SDD)*0.000000001,COLORGREEN,LINETHICK0;RC:=DYNAINFO(3);RC,COLORWHITE;MAV:=(2*C+H+L)/4;SK:(SLOPE(EMA(MAV,2),7)*15+MAV)*0.8*0.0001,COLORRED;SD:EMA(SK,2),COLORGREEN;SJ:2.8*SK-1.8*SD,COLORYELLOW;S2:=SMA(C,3,1);S6:=SMA(C,5,1);DK:2*(S2-S6)*15*4*1.5, COLORSTICK;STICKLINE(SK>SD AND DKSTICKLINE(DK>0 AND SK>SD ,RC,RC+DK,0.01,0),COLOR0000FF;STICKLINE(DK>0 AND SKSTICKLINE(DK>0 AND 多方<空方,RC,RC+DK,0.01,0),COLOR00FF00;STICKLINE(CROSS(多方,空方),RC,RC+DK,2,0),COLOR00FFFF;STICKLINE(CROSS(空方,多方),RC,RC+DK,2,0),COLORFF0000;STICKLINE(DK<0 AND 多方<空方 AND SKVAR2:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;VAR3:=SMA(SMA(VAR2,3,1),3,1)/28.57;VAR4:=EMA(VAR3,5);操盘:=3*VAR3-2*VAR4;A1:=CROSS(操盘,VAR3) AND VAR3<2.1 AND C>O;STICKLINE(A1,8,0,4,0),COLOR0000FF;AA:=(MA(C,1)+MA(C,3)+MA(C,5)+MA(C,7)+MA(C,9))/5;BB:=(MA(C,2)+MA(C,4)+MA(C,6)+MA(C,8)+MA(C,10))/5;CC:=EMA(AA,2);DD:=EMA(BB,5);TJ0:=CROSS(CC,DD);上:=EMA(C,3);中:=EMA(C,5);下:=EMA(中,5);TJ1:=CROSS(上,中);TJ2:=上>REF(上,1);X1:=(C+L+H)/3;BB5:=ATAN(EMA(X1,5)-REF(EMA(X1,5),1))*3.1416*10;EMA3:=EMA(C,3);TJ3:=BB5>1 AND EMA(X1,5)>REF(EMA(X1,3),1);STICKLINE(TJ1 AND TJ2 AND TJ0 AND TJ3,0,8,8,0)COLOR00FFFF;DRAWICON(TJ1 AND TJ2 AND TJ0 AND TJ3,0,15);DRAWBAND(SKK,RGB(200,50,55),SDD,RGB(50,100,10));持:IF(SKK>=SDD,SKK,DRAWNULL),COLORRED; 观:IF(SDD>=SKK,SDD,DRAWNULL),COLORFF9900;股:IF(SKK>=SDD,SDD,DRAWNULL),COLOR00FFFF;望:IF(SDD>=SKK,SKK,DRAWNULL),COLOR00FF00;FT1:=FILTER(CROSS(SKK,SDD),5) AND SKK<0 AND SKK>REF(SKK,1) AND REF(SKK,1)>REF(SKK,2);DRAWICON(FT1,SKK,26);FT2:=FILTER(CROSS(SKK,0) AND 多方,8);DRAWICON(FT2,0,23);DRAWICON(FILTER(CROSS(SDD,SKK) AND SDD>10,3),SDD,19);