大智慧最新的主图画线公式

源码正文：

input: k(2,0,2),n(10,1,255),p1(3,1,255){XG51};
bbi:(ma(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4,pointdot,COLORFFFFFF{XG51};
BBI2:BBI+3*stD(BBI,10),pointdot,COLORmagenta{XG51};
BBI3:BBI-3*STD(BBI,10),pointdot,COLORblue{XG51};
B1:=MA(CLOSE,1){XG51};
B2:=SMA(SMA(SMA(B1,2,1),2,1),2,1) {XG51};
SMA2:=MA(B2,3) {XG51};
FILLRGN(b2,sma2,b2>sma2),colorred{XG51};
FILLRGN(b2,sma2,b2<sma2),colorgreen{XG51};
var9Q:=c= hhv(c,4)and (ref(c,1)>=ref(c,2) or ref(c,1)>=ref(c,3))
or ref(c,1)=hhv(c,4) and close>=ref(c,2)
or ref(c,2)=hhv(c,4) and ref(c,3)=llv(c,4) and c>=ref(c,1)
or ref(c,3)=hhv(c,4) and c>=ref(c,1) and c>=ref(c,2){XG51};
红持:var9Q,color0000ff,LINETHICK0{XG51};
varaQ:=c=hhv(c,4) and ref(c,1)=llv(c,4){XG51};
粉变:varaQ,colorff99ff,LINETHICK0{XG51};
varbQ:=c=llv(c,4) and (ref(c,1)<ref(c,2) or ref(c,1)<ref(c,3))
or ref(c,1)=llv(c,4) and c<ref(c,2)
or ref(c,2)=llv(c,4) and ref(c,1)<>hhv(c,4) and c<ref(c,1)
or ref(c,3)=llv(c,4) and c<ref(c,1) and c<ref(c,2){XG51};
灰跌:varbQ,color888888,LINETHICK0{XG51};
varcQ:=ref(c,1)=llv(c,4) and c>=ref(c,2) or ref(c,2)=llv(c,4)
and ref(c,1)<=ref(c,3) and ref(c,2)<ref(c,4) and c>=ref(c,1){XG51};
绿买:varcQ,color00ff00,LINETHICK0{XG51};
vardQ:=ref(c,1)=hhv(c,4) and c<ref(c,2)
or (ref(c,2)=hhv(c,4) and ref(c,1)>ref(c,3)
or ref(c,3)=hhv(c,4) and ref(c,1)>ref(c,2))
and ref(c,2)>=ref(c,4) and c<ref(c,1){XG51};
蓝抛:vardQ,colorff9900,LINETHICK0{XG51};
if DATATYPE>1 then begin{XG51};
xxx1:=(C+L+H)/3{XG51};
xxx2:ema(xxx1,6),colorFFFFFF,linethick1{XG51};
xxx3:EMA(xxx2,5),color00FFFF,linethick1{XG51};
VAR1111:=BacKSET(REF(HIGH,2)=HHV(HIGH,5),3){XG51};
VAR2222:=crOSS(VAR1111,0.9){XG51};
VAR3333:=BACKSET(REF(LOW,2)=LLV(LOW,5),3){XG51};
VAR4444:=CROSS(VAR3333,0.9){XG51};
压力: REF(HIGH,BArslAST(Var2222)), POINTDOT,ColorEA91B5{XG51};
STICKLINE(CLOSE,REF(HIGH,BARSLAST(Var2222)),REF(HIGH,BARSLAST(Var2222)),5,0),ColorEA91B5{XG51};
支撑: REF(LOW,BARSLAST(Var4444)), POINTDOT,Color00b4ff{XG51};
STICKLINE(CLOSE,REF(LOW,BARSLAST(Var4444)),REF(LOW,BARSLAST(Var4444)),5,0),Color00b4ff{XG51};
下档线:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100){XG51};
aRSV:=SMA(下档线,3,1){XG51};
aK:=SMA(aRSV,3,1){XG51};
aD:=((3 * aRSV) - (2 * aK)){XG51};
aJ12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100){XG51};
aRSV24:=SMA(aJ12,3,1){XG51};
aK24:=SMA(aRSV24,3,1){XG51};
aD24:=((3 * aRSV24) - (2 * aK24)){XG51};
撑压位:=IF(CROSS(aD24,aD),HIGH,REF(HIGH,BARSLAST(CROSS(aD24,aD)))) {XG51};
底:=LLV(HIGH,30){XG51};
STICKLINE(BARSTATUS=2 ,撑压位,撑压位,30,1),LINETHICK1,COLORFFFFFF{XG51};
DRAWTEXT(BARSTATUS=2 ,撑压位,' 撑压'),COLORFFFFFF,VALIGN1{XG51};
STICKLINE(BARSTATUS=2 ,底,底,30,1),COLOR00FF00,LINETHICK1{XG51};
DRAWTEXT(BARSTATUS=2 ,底,' 底线'),COLOR00FF00,VALIGN0{XG51};
END{XG51};
STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0 ),COLOR0000FF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5 ,0 ),COLOR0000FF{XG51};
STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5 ,0 ),COLOR00FF00{XG51};
STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5 ,0 ),COLOR00FF00{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLORff7700{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLORff9900{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLORffbb00{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLORffcc00{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLORffdd00{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLORffee00{XG51};
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLORffFF00{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLOR000055{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLOR000066{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR000077{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLOR000099{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0000bb{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000dd{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000ff{XG51};
stickline(var9Q,c,(o+c)/2,7,0),color000077{XG51};
stickline(var9Q,c,(o+c)/2,6,0),color000088{XG51};
stickline(var9Q,c,(o+c)/2,5,0),color0000aa{XG51};
stickline(var9Q,c,(o+c)/2,4,0),color0000cc{XG51};
stickline(var9Q,c,(o+c)/2,2,0),color0000ff{XG51};
stickline(var9Q,c,(o+c)/2,0,0),COLORffffff{XG51};
stickline(varaQ,c,(o+c)/2,7,0),colorff11ff{XG51};
stickline(varaQ,c,(o+c)/2,6,0),colorff33ff{XG51};
stickline(varaQ,c,(o+c)/2,5,0),colorff55ff{XG51};
stickline(varaQ,c,(o+c)/2,4,0),colorff77ff{XG51};
stickline(varaQ,c,(o+c)/2,3,0),colorff99ff{XG51};
stickline(varaQ,c,(o+c)/2,2,0),colorffbbff{XG51};
stickline(varaQ,c,(o+c)/2,1,0),colorffddff{XG51};
stickline(varbQ,c,(o+c)/2,7,0),color333333{XG51};
stickline(varbQ,c,(o+c)/2,6,0),color555555{XG51};
stickline(varbQ,c,(o+c)/2,5,0),color777777{XG51};
stickline(varbQ,c,(o+c)/2,4,0),color999999{XG51};
stickline(varbQ,c,(o+c)/2,3,0),colorbbbbbb{XG51};
stickline(varbQ,c,(o+c)/2,2,0),colordddddd{XG51};
stickline(varbQ,c,(o+c)/2,1,0),colorffffff{XG51};
stickline(varcQ,o,(o+c)/2,7,0),color003300{XG51};
stickline(varcQ,o,(o+c)/2,6,0),color005500{XG51};
stickline(varcQ,o,(o+c)/2,5,0),color007700{XG51};
stickline(varcQ,o,(o+c)/2,4,0),color009900{XG51};
stickline(varcQ,o,(o+c)/2,3,0),color00bb00{XG51};
stickline(varcQ,o,(o+c)/2,2,0),color00dd00{XG51};
stickline(varcQ,o,(o+c)/2,1,0),color00ff00{XG51};
stickline(vardQ,o,(o+c)/2,7,0),colorff1100{XG51};
stickline(vardQ,o,(o+c)/2,6,0),colorff3300{XG51};
stickline(vardQ,o,(o+c)/2,5,0),colorff5500{XG51};
stickline(vardQ,o,(o+c)/2,4,0),colorff7700{XG51};
stickline(vardQ,o,(o+c)/2,3,0),colorff9900{XG51};
stickline(vardQ,o,(o+c)/2,2,0),colorffbb00{XG51};
stickline(vardQ,o,(o+c)/2,1,0),colorffdd00{XG51};
V7:=BARSTATUS=2{XG51};
V8:=(REF(HIGH,n) = HHV(HIGH,((2 * n) + 1))){XG51};
V9:=FILTER(V8,n){XG51};
VA:=BACKSET(V9,(n + 1)){XG51};
VB:=FILTER(VA,n){XG51};
VC:=(VB OR V7){XG51};
VD:=(REF(LOW,n) = LLV(LOW,((2 * n) + 1))){XG51};
VE:=FILTER(VD,n){XG51};
VF:=BACKSET(VE,(n + 1)){XG51};
V10:=FILTER(VF,n){XG51};
V11:=(V10 AND NOT(VB)){XG51};
V12:=BACKSET(VC,(REF(BARSLAST(V11),1) + 1)){XG51};
V13:=(V12 > REF(V12,1)){XG51};
V14:=BACKSET(V13,2){XG51};
V15:=(V14 > REF(V14,1)){XG51};
V16:=BACKSET((V15 AND (COUNT(VC,(REF(BARSLAST(V11),1) + 2)) = 0)),(REF(BARSLAST(V11),1) + 2)){XG51};
V17:=(V16 > REF(V16,1)){XG51};
V18:=BACKSET((V17 AND (COUNT(VC,(REF(BARSLAST(V11),1) + 2)) = 0)),(REF(BARSLAST(V11),1) + 2)){XG51};
V19:=(V18 > REF(V18,1)){XG51};
V1A:=IF(VC,COUNT(V11,(REF(BARSLAST(VC),1) + 1)),0){XG51};
V1B:=IF(((V1A = 1) AND VC),BARSLAST(V15),0){XG51};
V1C:=IF((VC AND (REF(LOW,BARSLAST(V15)) >= REF(LOW,BARSLAST(V17)))),BARSLAST(V17),BARSLAST(V15)){XG51};
V1D:=IF(((V1A = 2) AND VC),V1C,0){XG51};
V1E:=IF(((V1A >= 3) AND VC),IF((VC AND (REF(LOW,V1C) >= REF(LOW,BARSLAST(V19)))),BARSLAST(V19),V1C),0){XG51};
V1F:=((V1B + V1D) + V1E){XG51};
V20:=BACKSET(VC,V1F){XG51};
V21:=(V20 > REF(V20,1)){XG51};
V22:=BACKSET(V21,2){XG51};
V23:=(V22 > REF(V22,1)){XG51};
V24:=(V23 OR V7){XG51};
V25:=BACKSET(V24,(REF(BARSLAST(VC),1) + 1)){XG51};
V26:=(V25 > REF(V25,1)){XG51};
V27:=BACKSET(V26,2){XG51};
V28:=(V27 > REF(V27,1)){XG51};
V29:=BACKSET((V28 AND (COUNT(V24,(REF(BARSLAST(VC),1) + 2)) = 0)),(REF(BARSLAST(VC),1) + 2)){XG51};
V2A:=(V29 > REF(V29,1)){XG51};
V2B:=BACKSET((V2A AND (COUNT(V24,(REF(BARSLAST(VC),1) + 2)) = 0)),(REF(BARSLAST(VC),1) + 2)){XG51};
V2C:=(V2B > REF(V2B,1)){XG51};
V2D:=IF(V24,COUNT(VB,(REF(BARSLAST(V24),1) + 1)),0){XG51};
V2E:=IF(((V2D = 1) AND V24),BARSLAST(V28),0){XG51};
V2F:=IF((V24 AND (REF(HIGH,BARSLAST(V28)) <= REF(HIGH,BARSLAST(V2A)))),BARSLAST(V2A),BARSLAST(V28)){XG51};
V30:=IF(((V2D = 2) AND V24),V2F,0){XG51};
V3B:=IF(((V2D >= 3) AND V24),IF((V24 AND (REF(HIGH,V2F) <= REF(HIGH,BARSLAST(V2C)))),BARSLAST(V2C),V2F),0){XG51};
V3C:=((V2E + V30) + V3B){XG51};
V3D:=BACKSET(V24,V3C){XG51};
V3E:=(V3D > REF(V3D,1)){XG51};
AA:=BACKSET(V3E,2){XG51};
AAA:=(AA > REF(AA,1)){XG51};
BB:=BACKSET(V7,(BARSLAST(AAA) + 1)){XG51};
CC1:=(BB > REF(BB,1)){XG51};
CC:=BACKSET(CC1,(REF(BARSLAST(AAA),1) + 2)){XG51};
AAA2:=(CC > REF(CC,1)){XG51};
DRAWLINE(K=1 AND AAA2,HIGH,K=1 AND CC1,HIGH,1),POINTDOT,color00AAAA{XG51};
BB2:=(REF(HIGH,4) = HHV(HIGH,((2 * 4) + 1))){XG51};
CC22:=FILTER(BB2,4){XG51};
CC2:=BACKSET(CC22,(4 + 1)){XG51};
EA:=FILTER(CC2,4){XG51};
EB:=(EA OR BARSTATUS=2){XG51};
A6:=(REF(LOW,4) = LLV(LOW,((2 * 4) + 1))){XG51};
EE:=FILTER(A6,4){XG51};
FF1:=BACKSET(EE,(4 + 1)){XG51};
EE2:=FILTER(FF1,4){XG51};
FF2:=(EE2 AND NOT(EA)){XG51};
EE3:=BACKSET(EB,(REF(BARSLAST(FF2),1) + 1)){XG51};
FF3:=(EE3 > REF(EE3,1)){XG51};
JS:=BACKSET(FF3,2){XG51};
G1:=(JS > REF(JS,1)){XG51};
GA:=BACKSET((G1 AND (COUNT(EB,(REF(BARSLAST(FF2),1) + 2)) = 0)),(REF(BARSLAST(FF2),1) + 2)){XG51};
G2:=(GA > REF(GA,1)){XG51};
G3:=BACKSET((G2 AND (COUNT(EB,(REF(BARSLAST(FF2),1) + 2)) = 0)),(REF(BARSLAST(FF2),1) + 2)){XG51};
GG:=(G3 > REF(G3,1)){XG51};
JA:=IF(EB,COUNT(FF2,(REF(BARSLAST(EB),1) + 1)),0){XG51};
JB:=IF(((JA = 1) AND EB),BARSLAST(G1),0){XG51};
JJ:=IF((EB AND (REF(LOW,BARSLAST(G1)) >= REF(LOW,BARSLAST(G2)))),BARSLAST(G2),BARSLAST(G1)){XG51};
LD:=IF(((JA = 2) AND EB),JJ,0){XG51};
LD1:=IF(((JA >= 3) AND EB),IF((EB AND (REF(LOW,JJ) >= REF(LOW,BARSLAST(GG)))),BARSLAST(GG),JJ),0){XG51};
HEA:=((JB + LD) + LD1){XG51};
HEB:=BACKSET(EB,HEA){XG51};
HEE:=(HEB > REF(HEB,1)){XG51};
HFF1:=BACKSET(HEE,2){XG51};
HEE2:=(HFF1 > REF(HFF1,1)){XG51};
HFF2:=(HEE2 OR BARSTATUS=2){XG51};
HEE3:=BACKSET(HFF2,(REF(BARSLAST(EB),1) + 1)){XG51};
HFF3:=(HEE3 > REF(HEE3,1)){XG51};
HJS:=BACKSET(HFF3,2){XG51};
HG1:=(HJS > REF(HJS,1)){XG51};
HGA:=BACKSET((HG1 AND (COUNT(HFF2,(REF(BARSLAST(EB),1) + 2)) = 0)),(REF(BARSLAST(EB),1) + 2)){XG51};
HG2:=(HGA > REF(HGA,1)){XG51};
HG3:=BACKSET((HG2 AND (COUNT(HFF2,(REF(BARSLAST(EB),1) + 2)) = 0)),(REF(BARSLAST(EB),1) + 2)){XG51};
HGG:=(HG3 > REF(HG3,1)){XG51};
HJA:=IF(HFF2,COUNT(EA,(REF(BARSLAST(HFF2),1) + 1)),0){XG51};
HJB:=IF(((HJA = 1) AND HFF2),BARSLAST(HG1),0){XG51};
HJJ:=IF((HFF2 AND (REF(HIGH,BARSLAST(HG1)) <= REF(HIGH,BARSLAST(HG2)))),BARSLAST(HG2),BARSLAST(HG1)){XG51};
HD:=IF(((HJA = 2) AND HFF2),HJJ,0){XG51};
X1:=IF(((HJA >= 3) AND HFF2),IF((HFF2 AND (REF(HIGH,HJJ) <= REF(HIGH,BARSLAST(HGG)))),BARSLAST(HGG),HJJ),0){XG51};
X2:=((HJB + HD) + X1){XG51};
Y1:=BACKSET(HFF2,X2){XG51};
Y2:=(Y1 > REF(Y1,1)){XG51};
Z1:=BACKSET(Y2,2){XG51};
Z2:=(Z1 > REF(Z1,1)){XG51};
UU:=BACKSET(BARSTATUS=2,(BARSLAST(HEE2) + 1)){XG51};
VV:=(UU > REF(UU,1)){XG51};
WW:=BACKSET(BARSTATUS=2,(BARSLAST(Z2) + 1)){XG51};
XX:=(WW > REF(WW,1)){XG51};
UU2:=IF((BARSLAST(VV) < BARSLAST(XX)),VV,XX){XG51};
VV2:=IF((BARSLAST(VV) < BARSLAST(XX)),LOW,HIGH){XG51};
DRAWLINE(K=1 AND UU2,VV2,K=1 AND BARSTATUS=2,CLOSE,0),POINTDOT,colorFF9900{XG51};
WW2:=BACKSET(BARSTATUS=2,(BARSLAST(HEE2) + 1)){XG51};
XX2:=(WW2 > REF(WW2,1)){XG51};
VAR246:=BACKSET(XX2,(REF(BARSLAST(HEE2),1) + 2)){XG51};
VAR247:=(VAR246 > REF(VAR246,1)){XG51};
DRAWLINE(K=1 AND VAR247,LOW, K=1 AND XX2,LOW,1),POINTDOT,color00ffff{XG51};
VAR249:=BACKSET(BARSTATUS=2,(BARSLAST(Z2) + 1)){XG51};
VAR250:=(VAR249 > REF(VAR249,1)){XG51};
VAR251:=BACKSET(VAR250,(REF(BARSLAST(Z2),1) + 2)){XG51};
VAR252:=(VAR251 > REF(VAR251,1)){XG51};
DRAWLINE(K=1 AND VAR252,HIGH, K=1 AND VAR250,HIGH,1),POINTDOT,color00ffff{XG51};
wN:=p1{XG51};
wA1:=REF(H,wN)=HHV(H,2*wN+1); wB1:=FILTER(wA1,wN); wC1:=BACKSET(wB1,wN+1); wD1:=FILTER(wC1,wN){XG51};
wA2:=REF(L,wN)=LLV(L,2*wN+1); wB2:=FILTER(wA2,wN); wC2:=BACKSET(wB2,wN+1); wD2:=FILTER(wC2,wN){XG51};
wE1:=(REF(LLV(L,2*wN),1)+REF(HHV(H,2*wN),1))/2; wE2:=(H+L)/2{XG51};
wH1:=(wD1 AND NOT(wD2 AND wE1>=wE2)) OR DISPSTATUS=2 OR BARSCOUNT(C)=1{XG51};
wL1:=(wD2 AND NOT(wD1 AND wE1<wE2)); wH2:=wD1 AND NOT(wD2 AND wE1>=wE2){XG51};
wX1:=REF(BARSLAST(wH1),1)+1; wF1:=BACKSET(wH1 AND COUNT(wL1,wX1)>0,LLVBARS(IF(wL1,L,10000),wX1)){XG51};
wG1:=wF1>REF(wF1,1); wI1:=BACKSET(wG1,2); wLD:=wI1>REF(wI1,1){XG51};
wL2:=wLD OR DISPSTATUS=2 OR BARSCOUNT(C)=1{XG51};
wX2:=REF(BARSLAST(wL2),1)+1; wF2:=BACKSET(wL2 AND COUNT(wH2,wX2)>0,HHVBARS(IF(wH2,H,0),wX2)){XG51};
wG2:=wF2>REF(wF2,1); wI2:=BACKSET(wG2,2); wHD:=wI2>REF(wI2,1){XG51};
wr1:=BACKSET(DISPSTATUS=2,BARSLAST(wHD)+1); wS1:=wR1>REF(wR1,1);
wT1:=BACKSET(DISPSTATUS=2,BARSLAST(wLD)+1); wU1:=wT1>REF(wT1,1);
wR2:=BACKSET(wS1,REF(BARSLAST(wHD),1)+2); wS2:=wR2>REF(wR2,1);
wT2:=BACKSET(wU1,REF(BARSLAST(wLD),1)+2); wU2:=wT2>REF(wT2,1);
wT3:=BACKSET(wU2,REF(BARSLAST(wLD),1)+2); wU3:=wT3>REF(wT3,1);
wT4:=BACKSET(wU3,REF(BARSLAST(wLD),1)+2); wU4:=wT4>REF(wT4,1);
wR3:=BACKSET(wS2,REF(BARSLAST(wHD),1)+2); wS3:=wR3>REF(wR3,1);
wR4:=BACKSET(wS3,REF(BARSLAST(wHD),1)+2); wS4:=wR4>REF(wR4,1);
DRAWLINE(K=2 AND wS2,H,K=2 AND wS1,H,1),Color008888;
DRAWLINE(K=2 AND wU2,L,K=2 AND wU1,L,1),POINTDOT,Color008888{XG51};
DRAWLINE(K=2 AND wS3,H,K=2 AND wS2,H,1),Color888000;
DRAWLINE(K=2 AND wU3,L,K=2 AND wU2,L,1),POINTDOT,Color888000;
DRAWLINE(K=2 AND wS4,H,K=2 AND wS3,H,1),Color0000CC{XG51};
DRAWLINE(K=2 AND wU4,L,K=2 AND wU3,L,1),POINTDOT,Color0000CC;;

底:=SUM(MA(CLOSE,10),9)/11.114{XG51};
DRAWTEXT(CROSS(LOW,底) AND REF(底,1)>REF(HIGH,1) OR CROSS(HIGH,底),0.85*CLOSE,'---铁底'),color00FF00{XG51};
X1:=(3*CLOSE+HIGH+LOW+OPEN)/6{XG51};
X2:=EMA(X1,10){XG51};
X3:=REF(X2,1){XG51};
X4:=(REF(HIGH,1)+REF(LOW,1))/2{XG51};
X5:=MA(CLOSE,21)+2*STD(CLOSE,21){XG51};
X6:=REF(CLOSE,1){XG51};
X7:=(SMA(MAX(CLOSE-X6,0),7,1))/(SMA(Abs(CLOSE-X6),7,1))*100{XG51};
X8:=CROSS(79,X7){XG51};
X9:=FILTER(X8,4){XG51};
WZ1:=POW(MA(CLOSE,5),2)+MA(CLOSE,5){XG51};
WZ2:=POW(MA(LOW,5),2)+MA(LOW,5){XG51};
WZ3:=POW(MA(HIGH,5),2)+MA(HIGH,5){XG51};
WZ4:=(WZ1-LLV(WZ2,9))/(HHV(WZ3,9)-LLV(WZ2,9))*150+65{XG51};
DK:=SMA(WZ4,3,1)*1.5{XG51};
DD:=SMA(DK,3,1){XG51};
DJ:=3*DK-2*DD{XG51};
WZ5:=EMA(CLOSE,12)-EMA(CLOSE,26){XG51};
WZ6:=EMA(WZ5,9){XG51};
WZ7:=2*(WZ5-WZ6){XG51};
WZ8:=REF(WZ7,1){XG51};
WZ9:=CROSS(WZ8,WZ7) AND WZ8>0{XG51};
VAR1T:=EMA(CLOSE,8){XG51};
VAR2T:=EMA(VAR1T,20){XG51};
VAR3T:=CROSS(VAR1T,VAR2T){XG51};
VAR4T:=VAR1T<MA(CLOSE,120){XG51};
VAR5T:=(HHV(HIGH,36)-CLOSE)/(HHV(HIGH,36)-LLV(LOW,36))*100{XG51};
VAR6T:=SMA(VAR5T,5,1){XG51};
VAR7T:=SMA(VAR6T,8,1){XG51};
VAR8T:=CROSS(VAR6T,VAR7T) AND VAR7T<20{XG51};
VAR9T:=CLOSE>LLV(CLOSE,60)+0.3*LLV(CLOSE,60) AND VAR8T{XG51};
VARA:=IF(CLOSE>1000,VAR8T,VAR9T){XG51};
起步:=VAR3T AND VAR4T{XG51};
逃遁:=VARA{XG51};
XL1:=EMA(CLOSE,10)/100{XG51};
XL2:=MA((XL1-REF(XL1,10))/REF(XL1,10),3)*100{XG51};
XL3:=MA(XL2,3){XG51};
XL4:=SMA((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100,3,1){XG51};
DRAWTEXT(IF(CROSS(3*XL4-2*SMA(XL4,3,1),8),87,0) AND X2>X3,LOW-0.1,'←反弹'),colorred{XG51};
DRAWTEXT(IF(CROSS((VAR1T-LLV(VAR1T,4))/(HHV(VAR1T,4)-LLV(VAR1T,4))*4*25,87.5) AND VAR1T<40,87,0) AND X2>X3,LOW-0.15,'←短买'),colorFFFF00{XG51};
DRAWTEXT(IF(CROSS(2*(EMA((CLOSE*2+HIGH+LOW)/4,12)-EMA((CLOSE*2+HIGH+LOW)/4,26)-(EMA(EMA((CLOSE*2+HIGH+LOW)/4,12)-EMA((CLOSE*2+HIGH+LOW)/4,26),2)))*5.8,0.47),LOW,0) AND X2>X3,LOW-0.2,'←加仓'),colorFF5ED8{XG51};
DRAWTEXT(CROSS(X4,X5),HIGH*1.01,'←减'),color00FF00{XG51};
DRAWTEXT(FILTER((WZ9 AND DJ>250) OR X9 ,5),HIGH*1.02,'←跑'),colorBCFF8B{XG51};
STICKLINE(起步>0,HIGH,LOW,0.8,0),color00FFFF{XG51};
STICKLINE(起步>0,OPEN,CLOSE,5,0),color00FFFF{XG51};
DRAWTEXT(逃遁>0,HIGH*1.04,'●←逃'),color7FFFD6{XG51};
sam:=(C+L+H)/3{XG51};
BB13:=ATAN(EMA(sam,13)-REF(EMA(sam,13),1))*3.1416*10{XG51};
EMA8:=EMA(C,8){XG51};
DRAWTEXT(FILTER(BB13>1 AND EMA(sam,13)>REF(EMA(sam,8),1),10),
EMA8,'∠45上升'),COLORRED{XG51};
VAR3aa:=IF((CLOSE>REF(CLOSE,1)),88,0){XG51};
VAR4aa:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3aa>0),91,0){XG51};
DRAWTEXT(FILTER((VAR4aa>90),45),(LOW)*(0.94999998),'★大胆搏 '),Color00FFFF{XG51};
L23:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20{XG51};
L24:=(HIGH+LOW+CLOSE)/3{XG51};
L25:=(L24-MA(L24,14))/(0.015*AVEDEV(L24,14)){XG51};
L26:=(L24-MA(L24,70))/(0.015*AVEDEV(L24,70)){XG51};
L27:=IF(L25>=150 AND L25<200 AND L26>=150 AND L26<200,10,0){XG51};
L28:=IF(L25<=-150 AND L25>-200 AND L26<=-150 AND L26>-200,-10,L27){XG51};
L29:=100-ABS((CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100){XG51};
L30:=IF(L29<90,L29,100){XG51};
L31:=IF(L23>0,L23,0){XG51};
XL1:=(IF(L28>=200 AND L25>=150,15,IF(L26<=-200 AND L25<=-150,-15,L28)))+60{XG51};
XL2:=L31>48 AND XL1>60 AND L30<100{XG51};
DRAWTEXT(XL2 AND COUNT(XL2,30)=1,l,'大笔成交'),colorFF00FF{XG51};
mtm:=C-REF(C,1){XG51};
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6){XG51};
买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0){XG51};
DRAWTEXT(filter(买=1,5),LOW-0.3,'▲拉升'),Colormagenta{XG51};
放量:=close>ma(close,24) and vol/ref(VOL,1)>2{X-G*5?1-C-N-{};

源码正文：

换手:=v*100/capital{XG51};
主力:=ma(换手,4){XG51};
大户:=ma(换手,9){XG51};
中户:=ma(换手,17){XG51};
散户:=ma(换手,34){XG51};
均量:=(散户+主力+大户+中户)/4{XG51};
散户能量:=(散户-均量){XG51};
散户操盘:散户能量,LINETHICK0,colorwhite{XG51};
stICKLINE(散户能量>=0 AND 散户能量>=REF(散户能量,1),0,散户能量,4,0), colorWHITE{XG51};
STICKLINE(散户能量>=0 AND 散户能量<REF(散户能量,1),0,散户能量,4,0), colorFF99FF{XG51};
STICKLINE(散户能量<0 AND 散户能量>=REF(散户能量,1),0,散户能量,4,0), color000999{XG51};
STICKLINE(散户能量<0 AND 散户能量<REF(散户能量,1),0,散户能量,4,0), color008364{XG51};
中户能量:=(中户-均量){XG51};
中户操盘1:中户能量,LINETHICK1,colorYELLOW{XG51};
STICKLINE(中户能量>=0 AND 中户能量>=REF(中户能量,1),0,中户能量,4,0),colorYELLOW{XG51};
中户减仓1:STICKLINE(中户能量>=0 AND 中户能量< REF(中户能量,1),0,中户能量,4,0),colorFF0099{XG51};
STICKLINE(中户能量>=0 AND 中户能量<REF(中户能量,1),0,中户能量,4,0), colorFF0099{XG51};
中户反弹1:STICKLINE(中户能量<0 AND 中户能量>=REF(中户能量,1),0,中户能量,4,0), colorF0F000{XG51};
STICKLINE(中户能量<0 AND 中户能量>=REF(中户能量,1),0,中户能量,4,0), colorF0F000{XG51};
中户寻底1:STICKLINE(中户能量<0 AND 中户能量< REF(中户能量,1),0,中户能量,4,0), color208FFF{XG51};
STICKLINE(中户能量<0 AND 中户能量<REF(中户能量,1),0,中户能量,4,0), color208FFF{XG51};
WL:=WINNER(C)*100{XG51};
大户能量:=(大户-均量){XG51};
大户操盘2:大户能量,LINETHICK3,color00CCCC{XG51};
STICKLINE(大户能量>=0 AND 大户能量>=REF(大户能量,1),0,中户能量,4,0),color00CCCC{XG51};
大户减仓2:大户能量,color00FF00{XG51};
STICKLINE(大户能量>=0 AND 大户能量<REF(大户能量,1),0,大户能量,4,0),color00FF00{XG51};
大户反弹2:大户能量,color0055FF{XG51};
STICKLINE(大户能量<0 AND 大户能量>=REF(大户能量,1),0,大户能量,4,0),color0055FF{XG51};
大户寻底2:大户能量,color99FF66{XG51};
STICKLINE(大户能量<0 AND 大户能量<REF(大户能量,1),0,大户能量,4,0),color99FF66{XG51};
主力能量:=(主力-均量){XG51};
主力操盘3:主力能量,LINETHICK4,colorRED{XG51};
STICKLINE(主力能量>=0 AND 主力能量>=REF(主力能量,1),0,主力能量,4,0), colorRED{XG51};
减仓3:主力能量,LINETHICK2,colorgrAY{XG51};
STICKLINE(主力能量>=0 AND 主力能量< REF(主力能量,1),0,主力能量,4,0), colorgrAY{XG51};
反弹3:主力能量,LINETHICK2,colorBLUE{XG51};
STICKLINE(主力能量<0 AND 主力能量>=REF(主力能量,1),0,主力能量,4,0), colorBLUE{XG51};
寻底3:主力能量,LINETHICK2,color0055FF{XG51};
STICKLINE(主力能量<0 AND 主力能量< REF(主力能量,1),0,主力能量,4,0), color0055FF{X!G?5=1!C!N!{};