1.适合懒人慢牛，当持续涨是持续100
 2.白、紫线适合短进出
{持续涨}
A:=73+(1000-73)/2;
 B:=(1000-73)/2;
 CC:=COST(A);
 DD:=COST(B);
 SCR:(CC-DD)/(CC+DD)*100/2;
 {}
 VAR1:=(CLOSE*9+HIGH+LOW)/4;
 VAR2:=EMA(VAR1,13)-EMA(VAR1,34);
 VAR3:=EMA(VAR2,5);
 XA12:= (-2)*(VAR2-VAR3)*3.8;
 XA13:= 2*(VAR2-VAR3)*3.8;
 XA_1:=REF(CLOSE,(CLOSE*6+HIGH+LOW)/6);
持续涨:SMA(MAX(CLOSE-XA_1,0),7,1)/SMA(ABS(CLOSE-XA_1),7,1)*100,COLORFFAA66;
 DRAWTEXT(ISLASTBAR,持续涨-2,' 持续涨');
XA_2:=REF(CLOSE,1);
 XA_3:=SMA(MAX(CLOSE-XA_2,0),7,1)/SMA(ABS(CLOSE-XA_2),7,1)*100;
 XA_4:=IF(DATETODAY(DATE)<9890,1,1);
 XA_5:=(CLOSE-LLV(LOW,18
 )*XA_4)/(HHV(HIGH,18)-LLV(LOW,18))*100;
 XA_6:=SMA(XA_5,9,1)*XA_4;
 XA_7:=SMA(XA_6,3,1)*XA_4;
 XA_8:=IF(DATE<1171230,1,1);
做多能量:3*XA_6-2*XA_7,COLORWHITE,LINETHICK2;
 DRAWTEXT(ISLASTBAR,做多能量,' 做多能量');
XA_9:=HHVBARS(HIGH,50)*XA_8;
 XA_10:=(CLOSE-REF(OPEN,XA_9)*XA_8)/REF(OPEN,XA_9)*100;
长期筹码:EMA(XA_6,6),COLORFF00FF;
 DRAWTEXT(ISLASTBAR,长期筹码,' 长期筹码');
XA_11:=(HHV(HIGH,36)-CLOSE)/(HHV(HIGH,36)*XA_8-LLV(LOW,36)*XA_4)*100;
做空能量:SMA(XA_11,3,1)*XA_8,COLORGREEN,LINETHICK2;
 DRAWTEXT(ISLASTBAR,做空能量,' 做空能量');
X14:=CROSS(做多能量,做空能量) AND 做多能量>=长期筹码;
STICKLINE(X14,0,60,1,0),COLOR00