极地上涨副图(大智慧)

源码正文：

VA1:=HHV(HIGH,9)-LLV(LOW,9);
VA2:=HHV(HIGH,9)-CLOSE;
VA3:=CLOSE-LLV(LOW,9);
VA4:=VA2/VA1*100-70;
VA5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;
VA6:=(CLOSE+HIGH+LOW)/3;
VA7:=SMA(VA3/VA1*100,3,1);
VA8:=LLV(LOW,34);
VA9:=Sma(VA7,3,1)-SMA(VA4,9,1);
VARA:=IF(VA9>100,VA9-100,0);
VARB:=HHV(HIGH,34);
VARC:=ema((VA6-VA8)/(VARB-VA8)*100,13);
VARD:=EMA(0.667*REF(VARC,1)+0.333*VARC,2);
VARE:=SMA(MAX(CLOSE-REF(CLOSE,1),0)/CLOSE,8,1)/SMA(Abs(INDEXC-REF(INDEXC,1))/INDEXC,8,1)*100-25;
VARF:=MA(VARE,3);
VAR1:=HHV(HIGH,9)-LLV(LOW,9);
VAR2:=HHV(HIGH,9)-CLOSE;
VAR3:=CLOSE-LLV(LOW,9);
VAR4:=((VAR2)/(VAR1))*(100)-70;
VAR5:=((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60)))*(100);
VAR6:=((2)*(CLOSE)+HIGH+LOW)/(4);
VAR7:=SMA(((VAR3)/(VAR1))*(100),3,1);
VAR8:=LLV(LOW,34);
VAR9:=SMA(VAR7,3,1)-SMA(VAR4,9,1);
VAR10:=IF((VAR9>100),VAR9-100,0);
VAR11:=HHV(HIGH,34);
B1:=EMA(((VAR6-VAR8)/(VAR11-VAR8))*(100),8);
stICKLINE(EMA(B1,5)>B1,EMA(B1,5),B1,6,0 ),COLOR00AA00;
STICKLINE(EMA(B1,5)>B1,EMA(B1,5),B1,4.6,0 ),COLOR00BB11;
STICKLINE(EMA(B1,5)>B1,EMA(B1,5),B1,4.4,0 ),COLOR00CC22;
STICKLINE(EMA(B1,5)>B1,EMA(B1,5),B1,3.3,0 ),COLOR00DD33;
STICKLINE(EMA(B1,5)>B1,EMA(B1,5),B1,2.2,0 ),COLOR00EE44;
STICKLINE(EMA(B1,5)>B1,EMA(B1,5),B1,1.1,0 ),COLOR00FF55;
STICKLINE(B1>EMA(B1,5),B1,EMA(B1,5),6 ,0 ),COLOR0000aa;
STICKLINE(B1>EMA(B1,5),B1,EMA(B1,5),4.6 ,0 ),COLOR0011bb;
STICKLINE(B1>EMA(B1,5),B1,EMA(B1,5),4.4,0 ),COLOr0022cc;
STICKLINE(B1>EMA(B1,5),B1,EMA(B1,5),3.3 ,0 ),COLOR0033dd;
STICKLINE(B1>EMA(B1,5),B1,EMA(B1,5),2.2 ,0 ),COLOR0044ee;
STICKLINE(B1>EMA(B1,5),B1,EMA(B1,5),1.1 ,0 ),COLOR0055ff;
领先:EMA(B1,5),COLORGREEN;
生命线:EMA(VARD,1),COLORBLUE;
V1:=MA(C,5)=HHV(MA(C,5),20);
V2:=MA(C,5)>MA(C,10);
V3:=MA(V,5)>MA(V,40)*1.01;
V4:=COUNT(MA(C,1)>REF(C,1),2)=2;
VV:=V1 AND V2 AND V3 AND V4;
A1:=EMA(CLOSE,8);
A2:=EMA(A1,20);
A3:=crOSS(A1,A2);
A4:=A1<EMA(CLOSE,120);
STICKLINE((A3 AND A4)OR(V1 AND V2 AND V3 AND V4),B1*1.03,B1*1.120,6,0),Color00A8FF;
STICKLINE((A3 AND A4)OR(V1 AND V2 AND V3 AND V4),B1*1.03,B1*1.120,4.6,0),Color00B0FF;
STICKLINE((A3 AND A4)OR(V1 AND V2 AND V3 AND V4),B1*1.03,B1*1.120,4.4,0),Color00B5FF;
STICKLINE((A3 AND A4)OR(V1 AND V2 AND V3 AND V4),B1*1.03,B1*1.120,3.3,0),Color00BCFF;
STICKLINE((A3 AND A4)OR(V1 AND V2 AND V3 AND V4),B1*1.03,B1*1.120,2.2,0),Color00D3FF;
STICKLINE((A3 AND A4)OR(V1 AND V2 AND V3 AND V4),B1*1.03,B1*1.120,1.1,0),Color00FFFF;
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) ;
安全位:=20;
低位转强:IF(CROSS(A5,安全位),50,0),STICK,COLORLIMAGENTA,LINETHICK2;
开始拉升:IF(CROSS(VARC,生命线) AND VARC>VARD AND VARC<55 AND C>O,50,0),
ColorC800FF,POINTDOT;
A6:=LLV(C,500)=LLV(C,5) AND C/REF(C,1)>(1+9.8/100);
极地上涨:IF(A6,领先,0),COLORCYAN,LINETHICK2;
STICKLINE(开始拉升>0,15,开始拉升*1.01,3,0),COLORYELLOW;
STICKLINE((开始拉升>0 AND 开始拉升<400) OR (极地上涨>0 AND 极地上涨<400)
OR (低位转强>0 AND 低位转强<400) OR (低位转强>0),30,开始拉升,3,0),COLORWHITE;
STICKLINE(开始拉升>0,15,开始拉升*0.6,9,0),COLORYELLOW;
STICKLINE(开始拉升>0,15,开始拉升*0.4,9,0),COLOR00FF00;
STICKLINE(开始拉升>0,15,开始拉升*0.2,9,0),COLOR0099CC;
STICKLINE(低位转强>0,15,低位转强*1.01,3,0),COLORLIMAGENTA;
STICKLINE((低位转强>0)OR(极地上涨>0),15,低位转强*0.4,9,0),COLORBLUE;
STICKLINE(低位转强>0,15,低位转强*0.2,9,0),COLORFFCC66;
STICKLINE(极地上涨>0,15,极地上涨*1.01,3,0),COLORBLUE{X~G_5!1~C~N~{};

源码正文：

MV3:=ema(V,3){XG51};
ma3:=EMA(C,3){XG51};
MV3角度:=ATAN((MV3/REF(MV3,1)-1)*100)*180/3.1416{XG51};
MA3角度:=ATAN((MA3/REF(MA3,1)-1)*100)*180/3.1416{XG51};
MV5:=EMA(V,5){XG51};
MA5:=EMA(C,5){XG51};
MV5角度:=ATAN((MV5/REF(MV5,1)-1)*100)*180/3.1416{XG51};
MA5角度:=ATAN((MA5/REF(MA5,1)-1)*100)*180/3.1416{XG51};
MV10:=EMA(V,10){XG51};
MA10:=EMA(C,10){XG51};
MV10角度:=ATAN((MV10/REF(MV10,1)-1)*100)*180/3.1416{XG51};
MA10角度:=ATAN((MA10/REF(MA10,1)-1)*100)*180/3.1416{XG51};
强弱度:(MV3角度+MA3角度+MV5角度+MA5角度+MV10角度+MA10角度)/6,COLORFFFFFF{XG51};
QBD:=crOSS(强弱度,50) and COUNT(强弱度>50,7)<=3{XG51};
启爆点:IF(QBD AND COUNT(QBD,4)=1,50,0),COLOR00FFFF,POINTDOT,LINETHICK0{XG51};
QbsJ:=BArslAst(CROSS(强弱度,50)){XG51};
操作区:IF(COUNT(COUNT(强弱度>0,3)>=1,QBSJ)>=QBSJ- 1,3,0),COLORFF00FF,POINTDOT,LINETHICK0{XG51};
十九强:IF(强弱度>=80,80,0),COLOR0000FF,LINETHICK2{XG51};
选股:强弱度>=80 AND COUNT(强弱度>=80,5)=1,COLORFFFFFF,POINTDOT,LINETHICK0{XG51};
预备股:IF(强弱度>=70 and COUNT(强弱度>70,4)>=3 and CLOSE>=OPEN,30,0),COLOR00FF00,LINETHICK2{XG51};
GZQ:=BARSLAST(十九强 OR 预备股){XG51};
关注期:IF(BETWEEN(GZQ,0,9),GZQ,0),COLORFF00FF,POINTDOT,LINETHICK0{XG51};
黄金坑:IF(关注期 AND HHVBARS(C,3)=2 AND L<REF(C,1),-10,0),COLOR00FFFF,LINETHICK2{XG51};
脱离MA5:(L/MA(C,5)-1)*100,COLORFF9988,POINTDOT,LINETHICK0{XG51};
DRAWTEXT(十九强 AND 脱离MA5>=3.5,90,'←险'),COLOR00FF00{XG51};
STICKLINE(启爆点,0,50,0,0),COLOR00FFFF{XG51};
STICKLINE(启爆点,0,30,4,0),COLOR00FFFF{XG51};
DRAWTEXT(启爆点=50,50,'←启爆'),COLOR00FFFF{XG51};
STICKLINE(关注期,关注期*3,关注期*5,6,0),COLOR0000FF{XG51};
STICKLINE(关注期 and C<REF(C,1),关注期*3.5,关注期*4.5,6,1),COLORFFFFFF{XG51};
STICKLINE(操作区 and 强弱度>0,3,-3,10,1),COLORFF00FF{XG51};
STICKLINE(操作区 and 强弱度<0,3,-3,10,1),COLOR00FF00{X.G_5!1.C.N.{};