价量合一主图(通达信)

价量合一主图(通达信)

源码正文：

ma5:MA(CLOSE,5){XG51};
MA10:MA(CLOSE,10){XG51};
MA30:MA(CLOSE,30){XG51};
MA60:MA(CLOSE,60){XG51};
stICKLINE(C>REF(C,1),H,L,0,1),COLOR0000FF{XG51};
STICKLINE(C>REF(C,1),O,C,3.2,0),COLOR000055{XG51};
STICKLINE(C>REF(C,1),O,C,2.7,0),COLOR000077{XG51};
STICKLINE(C>REF(C,1),O,C,2.1,0),COLOR000099{XG51};
STICKLINE(C>REF(C,1),O,C,1.5,0),COLOR0000BB{XG51};
STICKLINE(C>REF(C,1),O,C,0.9,0),COLOR0000DD{XG51};
STICKLINE(C<REF(C,1),H,L,0,1),COLORFFFF00{XG51};
STICKLINE(C<REF(C,1),O,C,3.2,0),COLOR990000{XG51};
STICKLINE(C<REF(C,1),O,C,2.7,0),COLORCC0000{XG51};
STICKLINE(C<REF(C,1),O,C,2.1,0),COLORFF4400{XG51};
STICKLINE(C<REF(C,1),O,C,1.5,0),COLORFF8800{XG51};
STICKLINE(C<REF(C,1),O,C,0.9,0),COLORFFCC00{XG51};
STICKLINE(C=REF(C,1),H,L,0,1),COLORFFFFFF{XG51};
STICKLINE(C=REF(C,1),O,C,3.2,0),COLOR555555{XG51};
STICKLINE(C=REF(C,1),O,C,2.7,0),COLOR777777{XG51};
STICKLINE(C=REF(C,1),O,C,2.1,0),COLOR999999{XG51};
STICKLINE(C=REF(C,1),O,C,1.5,0),COLORBBBBBB{XG51};
STICKLINE(C=REF(C,1),O,C,0.9,0),COLORDDDDDD{XG51};
WCB2:=REF(C,1){XG51};
涨停:=IF((C-WCB2)*100/WCB2>=(10-0.01*100/WCB2),1,0){XG51};
STICKLINE(涨停,OPEN,CLOSE,4.2,0),COLORBLUE{XG51};
STICKLINE(涨停,H,L,2.7,0),COLORMAGENTA{XG51};
跌停:=IF((WCB2-C)*100/WCB2>=(10-0.01*100/WCB2),1,0){XG51};
STICKLINE(跌停,OPEN,CLOSE,4.2,0),COLORBLUE{XG51};
STICKLINE(跌停,H,L,2.7,0),COLORCYAN{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:=SMA(RSV,9,1){XG51};
D:=SMA(K,9,1){XG51};
J:=3*K-2*D{XG51};
kd:=crOSS(K,D) AND CROSS(J,D){XG51};
X:=LLV(J,2)=LLV(J,8){XG51};
Y:=IF(CROSS(J,REF(J+0.01,1)) AND X AND J<20,30,0){XG51};
DRAWTEXT(CROSS(J,REF(J+0.01,1)) AND X AND J<20,LOW*0.98,'★进'),COLORMAGENTA{XG51};
JH9:=SMA(MAX(C-REF(C,1),0),5,1)/SMA(Abs(C-REF(C,1)),5,1)*100{XG51};
DRAWTEXT(CROSS(84,JH9),H*1.02+0.4,'☆逃'),COLORCYAN{XG51};
N1:=7{XG51};
LC:=REF(CLOSE,1){XG51};
XD:=SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100,COLORBLUE,LINETHICK1{XG51};
魔鬼:=DRAWLINE(XD>=HHV(XD,N1),XD,XD<=LLV(XD,N1),XD,1),COLOR00FF00{XG51};
魔王:=DRAWLINE(XD>=HHV(XD,N1),XD,XD<=LLV(XD,N1),1,XD),COLOR00FF00{XG51};
TJ0:=XD=魔王{XG51};
TJ1:=XD=魔鬼{XG51};
TJ2:=XD<REF(XD,1){XG51};
TJ3:=XD>REF(1,XD){XG51};
JRS1:=DRAWICON(TJ1 AND TJ2,XD,1){XG51};
JRS2:=DRAWICON(TJ0 AND TJ3,XD,2){XG51};
DRAWICON(FILTER(JRS1>0,1),L*0.97,1){XG51};
DRAWICON(FILTER(JRS2>0,1),H*1.02,2){XG51};
空:=ema(C,5){XG51};
均衡:=EMA(空,5){XG51};
中轨:=HHV(MA(H,13),13),LINETHICK2{XG51};
VAR55:=FILTER(均衡>REF(均衡,1)AND 中轨<REF(中轨,1)AND C>REF(C,1),11){XG51};
DRAWTEXT(VAR55,L*0.98,'♂追涨'),COLORBLUE{XG51};
HH0:=CONST(HHV(H,120))*1{XG51};
LL0:=CONST(LLV(L,120))*1{XG51};
MM0:=CONST((HH0+LL0)/2){XG51};
HH1:=IF(CONST(C)<MM0,LL0-(HH0-LL0)*0.4,LL0-(HH0-LL0)*0.4),COLORWHITE{XG51};
LL1:=LL0;HLMAX:=MAX(HH1,LL1){XG51};
HLMIN:=MIN(HH1,LL1){XG51};
HLMN1:=(HLMAX+HLMIN)/2{XG51};
HLMN2:=(HLMAX-HLMIN){XG51};
HLMN3:=HHV(V,250)/2{XG51};
HLMN4:=HHV(V,250){XG51};
VZ:=(V-HLMN3)*HLMN2/HLMN4+HLMN1{XG51};
STICKLINE(C>=O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2.5,0),COLORFF33BB{XG51};
STICKLINE(C>=O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,1.5,0),COLORFF55FF{XG51};
STICKLINE(C>=O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,0.3,0),COLORFF99FF{XG51};
STICKLINE(C<O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2.5,0),COLORCC6600{XG51};
STICKLINE(C<O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,1.5,0),COLORFF8800{XG51};
STICKLINE(C<O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,0.3,0),COLORFFCC00{XG51};
(MA(V,5)-HLMN3)*HLMN2/HLMN4+HLMN1,COLORFFFFFF{XG51};
(MA(V,10)-HLMN3)*HLMN2/HLMN4+HLMN1,COLOR00FFFF{XG51};
T:=V=LLV(V,20){XG51};
STICKLINE(C/REF(C,1)>1.099,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2,0),COLORWHITE{XG51};
STICKLINE(C/REF(C,1)<0.901,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2,0),COLORCYAN{XG51};
VY:=(0-HLMN3)*HLMN2/HLMN4+HLMN1{XG51};
STICKLINE(V>=2*REF(V,1),VZ,VY,0.9,0),COLORCYAN{XG51};
STICKLINE(V>=3*REF(V,1),VZ,VY,0.6,0),COLOR3300CC{XG51};
MA13:=MA(C,3){XG51};
UU:=1,V<=LLV(V,13) AND MA13>REF(MA13,1){XG51};
TJ:=1,REF(V,1)<=LLV(V,13) AND MA13>REF(MA13,1),COLORWHITE,LINETHICK3{XG51};
地:=(0-HLMN3)*HLMN2/HLMN4+HLMN1-0.7,COLORBLacK{XG51};
天:=CONST(HHV(C,120))*1+0.7,COLORLIGRAY{XG51};
bias11:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100{XG51};
BIAS12:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100{XG51};
BIAS13:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100{XG51};
短跌BIAS:IF(BIAS11<=-6,0.6+地,地),COLORLIGRAY,LINETHICK2{XG51};
中跌BIAS:IF(BIAS12<=-10,0.6+地,地),COLORYELLOW,LINETHICK2{XG51};
长跌BIAS:IF(BIAS13<=-16,0.6+地,地),COLORWHITE,LINETHICK2{XG51};
短涨BIAS:IF(BIAS11>=6,天,天+0.6),COLORLIGRAY,LINETHICK2{XG51};
中涨BIAS:IF(BIAS12>=10,天,天+0.6),COLORYELLOW,LINETHICK2{XG51};
长涨BIAS:IF(BIAS13>=16,天,天+0.6),COLORWHITE,LINETHICK2{XG51};
BIAS1:=(C-MA(C,6))/MA(C,6)*100{XG51};
BIAS2:=(C-MA(C,12))/MA(C,12)*100{XG51};
BIAS3:=(C-MA(C,24))/MA(C,24)*100{XG51};
BIAS:=(BIAS1+2*BIAS2+3*BIAS3)/6{XG51};
乖离:=MA(BIAS,3){XG51};
DRAWTEXT(CROSS(BIAS,乖离)  AND 乖离<-9,(V-HLMN3)*HLMN2/HLMN4+HLMN1+0.6,'底'),COLORWHITE{X*G?5.1*C*N*{};