通达信质变划线主图源码

以下是通达信质变划线主图源码

A:=DRAWLINE(LOW<=LLV(LOW,120),LOW,HHV(H,6)<=HHV(H,10),LLV(LOW,6),1), COLORBLUE ,LINETHICK2;
 TY:=C;

MA5:MA(C,5)COLORWHITE;
 MA10:MA(C,10);
 MA20:MA(C,20);
 MA30:MA(C,30);
 MA060:MA(C,60)COLORRED;
 MA1200:MA(CLOSE,120),LINETHICK2,COLORRED ;
 MA250:MA(CLOSE,250),LINETHICK2,COLORWHITE ;

{均线}
TYP:= (HIGH + LOW +2* C)/4;
均线:=EMA(TYP,3),LINETHICK2,COLORWHITE;
均线上轨:=HHV(均线,14),LINETHICK2,COLORYELLOW;
均线下轨:=LLV(均线,14),LINETHICK2,COLORGREEN;
角度:=ATAN((均线/REF(均线,1)-1)*100)*180/3.1416;
 {K线优化}
STICKLINE(角度>0,O ,C ,0.5,0 ),COLORRED;
 STICKLINE(角度<0,O ,C,0.5 ,0 ),COLORCYAN;
 STICKLINE(角度<0,O,C,3,0),COLORFF6600;{蓝K线持币}
STICKLINE(角度<0,O,C,2,0),COLORFF9900;
 STICKLINE(角度<0,O,C,1.2,0),COLORFFCC00;
 STICKLINE(角度<0,O,C,0.2,0),COLORCYAN;
 STICKLINE(角度>0,O,C,3,0),COLOR000099;
 STICKLINE(角度>0,O,C,2,0),COLOR0000CC;{红K线持股}
STICKLINE(角度>0,O,C,1.3,0),COLOR0000FF;
 STICKLINE(角度>0,O,C,0.3,0),COLORCC66FF;
 X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
 14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
 +7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
 REF(A,20))/210;
 MTM:=C-REF(C,1);
 DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
 CB:=EMA(X,13);
买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);
 DRAWICON(FILTER(买=1,5),L*0.97,23);

P:=5;
 A1:=REF(H,P)=HHV(H,2*P+1);
 B1:=FILTER(A1,P);
 C1:=BACKSET(B1,P+1);
 D1:=FILTER(C1,P);
 A2:=REF(H,P)=LLV(H,2*P+1);
 B2:=FILTER(A2,P);
 C2:=BACKSET(B2,P+1);
 D2:=FILTER(C2,P);
 R11:=BACKSET(ISLASTBAR,BARSLAST(D1)+1);
 S11:=R11>REF(R11,1);
 DRAWLINE(D1,H,S11,H,1),COLOR00FF00,LINETHICK2;
 T11:=BACKSET(ISLASTBAR,BARSLAST(D2)+1);
 U11:=T11>REF(T11,1);
 DRAWLINE(D2,L,U11,L,1),COLORYELLOW,LINETHICK2;