通达信极地上涨未加密选股指标公式源码

源码正文：

VA1:=HHV(HIGH,9)-LLV(LOW,9);
VA2:=HHV(HIGH,9)-CLOSE{XG51};
VA3:=CLOSE-LLV(LOW,9){XG51};
VA4:=VA2/VA1*100-70{XG51};
VA5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100{XG51};
VA6:=(CLOSE+HIGH+LOW)/3{XG51};
VA7:=SMA(VA3/VA1*100,3,1){XG51};
VA8:=LLV(LOW,34){XG51};
VA9:=Sma(VA7,3,1)-SMA(VA4,9,1){XG51};
VARA:=IF(VA9>100,VA9-100,0){XG51};
VARB:=HHV(HIGH,34){XG51};
VARC:=ema((VA6-VA8)/(VARB-VA8)*100,13){XG51};
VARD:=EMA(0.667*REF(VARC,1)+0.333*VARC,2){XG51};
VARE:=SMA(MAX(CLOSE-REF(CLOSE,1),0)/CLOSE,8,1)/SMA(Abs(INDEXC-REF(INDEXC,1))/INDEXC,8,1)*100-25{XG51};
VARF:=MA(VARE,3){XG51};
VAR1:=HHV(HIGH,9)-LLV(LOW,9){XG51};
VAR2:=HHV(HIGH,9)-CLOSE{XG51};
VAR3:=CLOSE-LLV(LOW,9){XG51};
VAR4:=((VAR2)/(VAR1))*(100)-70{XG51};
VAR5:=((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60)))*(100){XG51};
VAR6:=((2)*(CLOSE)+HIGH+LOW)/(4){XG51};
VAR7:=SMA(((VAR3)/(VAR1))*(100),3,1){XG51};
VAR8:=LLV(LOW,34){XG51};
VAR9:=SMA(VAR7,3,1)-SMA(VAR4,9,1){XG51};
VAR10:=IF((VAR9>100),VAR9-100,0){XG51};
VAR11:=HHV(HIGH,34){XG51};
B1:=EMA(((VAR6-VAR8)/(VAR11-VAR8))*(100),8){XG51};
DRAWKLINE(EMA(B1,5),EMA(B1,5),B1+1,B1){XG51};
领先:EMA(B1,5),COLORGREEN{XG51};
生命线:EMA(VARD,1),COLORBLUE{XG51};
V1:=MA(C,5)=HHV(MA(C,5),20){XG51};
V2:=MA(C,5)>MA(C,10){XG51};
V3:=MA(V,5)>MA(V,40)*1.01{XG51};
V4:=COUNT(MA(C,1)>REF(C,1),2)=2{XG51};
VV:=V1 AND V2 AND V3 AND V4{XG51};
A1:=EMA(CLOSE,8){XG51};
A2:=EMA(A1,20){XG51};
A3:=crOSS(A1,A2){XG51};
A4:=A1<EMA(CLOSE,120){XG51};
stICKLINE((A3 AND A4)OR(V1 AND V2 AND V3 AND V4),B1*1.03,B1*1.120,1,0),COLORBLUE{XG51};
A5:=3*SMA((CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100,21,1)-2*
SMA(SMA((CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100,20,1),8,1),CIRCLEDOT ,COLORFF9900 {XG51};
安全位:=20{XG51};
低位转强:IF(CROSS(A5,安全位),50,0),STICK,COLORLIMAGENTA,LINETHICK2{XG51};
开始拉升:IF(CROSS(VARC,生命线) AND VARC>VARD AND VARC<55 AND C>O,50,0),
COLORLICYAN,POINTDOT{XG51};
A6:=LLV(C,500)=LLV(C,5) AND C/REF(C,1)>(1+9.8/100){XG51};
极地上涨:IF(A6,领先,0),COLORCYAN,LINETHICK2{XG51};
STICKLINE(开始拉升>0,15,开始拉升*1.01,1,0),COLORYELLOW{XG51};
STICKLINE((开始拉升>0 AND 开始拉升<400) OR (极地上涨>0 AND 极地上涨<400)
OR (低位转强>0 AND 低位转强<400) OR (低位转强>0),30,开始拉升,1,0),COLORWHITE{XG51};
STICKLINE(开始拉升>0,15,开始拉升*0.6,3,0),COLORYELLOW{XG51};
STICKLINE(开始拉升>0,15,开始拉升*0.4,3,0),COLOR00FF00{XG51};
STICKLINE(开始拉升>0,15,开始拉升*0.2,3,0),COLOR0099CC{XG51};
STICKLINE(低位转强>0,15,低位转强*1.01,1,0),COLORLIMAGENTA{XG51};
STICKLINE((低位转强>0)OR(极地上涨>0),15,低位转强*0.4,3,0),COLORBLUE{XG51};
STICKLINE(低位转强>0,15,低位转强*0.2,3,0),COLORFFCC66{XG51};
STICKLINE(极地上涨>0,15,极地上涨*1.01,1,0),COLORBLUE{X_G.5*1_C_N_{};

源码正文：

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:=SMA(RSV,3,1),COLORRED{XG51};
D:=Sma(K,3,1),COLORBLUE{XG51};
J:=3*K-2*D,COLORFF00FF{XG51};
A:=250{XG51};
difF:=(ema(CLOSE,12) - EMA(CLOSE,26)){XG51};
DEA:=EMA(DIFF,9),COLORYELLOW,LINETHICK0{XG51};
macd:=2*(DIFF-DEA){XG51};
MM:=IF(MacD< 0,MACD,0);
JJ:=MM> REF(MM,1);
ZZ:=REF(JJ,1)=1;
准备:=(JJ AND ZZ)*DEA;
stICKLINE(准备=DEA,1,-1,2,1),COLORFFFF00{XG51};
JH:=HHV(MAX(K,MAX(D,J)),A){XG51};
DH:=HHV(MAX(DIFF,DEA),A){XG51};
SH:=INTPART(JH/DH)/2{XG51};
DIFF50:=SH*DIFF+50,COLORFFFF00{XG51};
DEA50:=SH*DEA+50,COLORYELLOW{XG51};
STICKLINE(DIFF50>DEA50,0,1.5*(DIFF50-DEA50),0,0),COLORWHITE;
STICKLINE(DIFF50<DEA50,0,1.5*(DIFF50-DEA50),0,0),COLORFFFF00{XG51};
红柱:IF(1.5*(DIFF50-DEA50)>REF(1.5*(DIFF50-DEA50),1),1.5*(DIFF50-DEA50),0),
STICK,COLORLIRED{XG51};
绿柱:IF(1.5*(DIFF50-DEA50)<REF(1.5*(DIFF50-DEA50),1),
1.5*(DIFF50-DEA50),0),STICK,COLORCYAN{XG51};
缩头:=IF(1.5*(DIFF50-DEA50)>0 AND REF(1.5*(DIFF50-DEA50),1)>REF(1.5*(DIFF50-DEA50),2) AND 1.5*(DIFF50-DEA50)< REF(1.5*(DIFF50-DEA50),1),1,0){XG51};
缩脚:=IF(1.5*(DIFF50-DEA50)<0 AND REF(1.5*(DIFF50-DEA50),1)< REF(1.5*(DIFF50-DEA50),2) AND 1.5*(DIFF50-DEA50)>REF(1.5*(DIFF50-DEA50),1),1,0){XG51};
杀多:=IF(1.5*(DIFF50-DEA50)<0 AND REF(1.5*(DIFF50-DEA50),1)> REF(1.5*(DIFF50-DEA50),2) AND 1.5*(DIFF50-DEA50)<REF(1.5*(DIFF50-DEA50),1),1,0){XG51};
诱空:=IF(1.5*(DIFF50-DEA50)>0 AND REF(1.5*(DIFF50-DEA50),1)< REF(1.5*(DIFF50-DEA50),2) AND 1.5*(DIFF50-DEA50)>REF(1.5*(DIFF50-DEA50),1),1,0){XG51};
阻力:=IF(crOSS(C,MA(C,20)) OR CROSS(C,MA(C,60)),1,0){XG51};
DRAWTEXT(FILTER(杀多,3) AND 杀多,1.5*(DIFF50-DEA50),'杀多'),COLORFF00FF{XG51};
DRAWTEXT(FILTER(缩头,3) AND 缩头,1.5*(DIFF50-DEA50)+0.2,'卖'),COLORFF00FF{XG51};
DRAWTEXT(FILTER(诱空,3) AND 诱空,1.5*(DIFF50-DEA50),'?洗盘'),COLOR00FF00{XG51};
DRAWTEXT(FILTER(缩脚,3) AND 缩脚,1.5*(DIFF50-DEA50)-0.2,'买'),COLOR00FF00{XG51};
DRAWTEXT(FILTER(阻力,16) AND 1.5*(DIFF50-DEA50)>=0,1.5*(DIFF50-DEA50)+0.01,'阻力'),COLOR00FFFF{XG51};
VRA:=REF(CLOSE,1);
VRB:=SMA(MAX(CLOSE-VRA,0),6,1)/SMA(Abs(CLOSE-VRA),6,1)*100;
VRC:=(2*CLOSE+HIGH+LOW)/4;
VR0:=LLV(LOW,34);
VR1:=HHV(HIGH,34);
VR2:=EMA((VRC-VR0)/(VR1-VR0)*100,6);
VR3:=EMA(0.667*REF(VR2,1)+0.333*VR2,4);
VA1:=(REF(HIGH,1)+REF(LOW,1))/2;
VA2:=MA(CLOSE,20)+2*STD(CLOSE,20);
VA3:=REF(CLOSE,1);
VA4:=SMA(MAX(CLOSE-VA3,0),7,1)/SMA(ABS(CLOSE-VA3),7,1)*100;
VA5:=CROSS(79,VA4);
VA6:=FILTER(VA5,4);
VVD:=MA(CLOSE,80)-MA(CLOSE,10)/3;
VA7:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1);
X1:=CROSS(VA1,VA2) OR VA6;
X2:=CROSS(84,VRB);
STICKLINE(X1 OR X2,1.5*(DIFF50-DEA50)*1.05,1.5*(DIFF50-DEA50)*1.08,3,0);
Y1:=IF(COUNT(CLOSE<REF(CLOSE,1),8)/8>0.3 AND COUNT(VA2>VA3,3) AND REF(LOW,1)=LLV(LOW,120) AND CLOSE>OPEN,1,0);
Y2:=IF(CLOSE<VVD AND vol/240>MA(VOL,5)/240 AND CLOSE>REF(CLOSE,1)*1.08 AND CLOSE<MA(CLOSE,13)*1.3,1,0);
Y3:=CROSS(VA7,10);
Y4:=IF(COUNT(CLOSE<REF(CLOSE,1),8)/8>0.3 AND COUNT(VR2>VR3,3) AND REF(LOW,1)=LLV(LOW,120) AND CLOSE>OPEN,1,0);
STICKLINE(Y1 OR Y2 OR Y3 OR Y4,1.5*(DIFF50-DEA50)*0.90,1.5*(DIFF50-DEA50)*0.99,3,0){XG51};
DD:=C=HHV(C,180);
EE:=DEA< REF(DEA,1) AND REF(DEA< REF(DEA,1),1)=1;
CC:=C> REF(C,1) AND REF(C> REF(C,1),1)=1;
上升背离:(CC AND EE)*1.5*(DIFF50-DEA50),LINETHICK2,COLORRED;
顶背离:(DD AND EE AND DEA< HHV(DEA,180))*3*ABS(DIFF50-DEA50),STICK,LINETHICK3,COLORCYAN;
FF:=C=LLV(C,180);
GG:= DEA> REF(DEA,1) AND REF(DEA> REF(DEA,1),1)=1;
LL:=C< REF(C,1) AND REF(C< REF(C,1),1)=1;
下降背离:(LL AND GG)*1.5*(DIFF50-DEA50),LINETHICK2,COLORBLUE;
底背离:(FF AND GG AND DEA> LLV(DEA,180))*3*(DIFF50-DEA50),STICK,LINETHICK3,COLORWHITE{X_G_5~1_C_N_{};