A:=73+(1000-73)/2;
B:=(1000-73)/2;
CHA3:=COST(A);
CHA4:=COST(B);
CHA5:(CHA3-CHA4)/(CHA3+CHA4)*100/2;
CHA6:=(CLOSE*9+HIGH+LOW)/4;
CHA7:=EMA(CHA6,13)-EMA(CHA6,34);
CHA8:=EMA(CHA7,5);
CHA9:=(-2)*(CHA7-CHA8)*3.8;
CHA10:=2*(CHA7-CHA8)*3.8;
CHA11:=REF(CLOSE,(CLOSE*6+HIGH+LOW)/6);
CHA12:SMA(MAX(CLOSE-CHA11,0),7,1)/SMA(ABS(CLOSE-CHA11),7,1)*100,COLORFFAA66;
DRAWTEXT(ISLASTBAR,CHA12-2,' 持续涨');
CHA13:=REF(CLOSE,1);
CHA14:=SMA(MAX(CLOSE-CHA13,0),7,1)/SMA(ABS(CLOSE-CHA13),7,1)*100;
CHA16:=(CLOSE-LLV(LOW,18) )/(HHV(HIGH,18)-LLV(LOW,18))*100;
CHA17:=SMA(CHA16,9,1) ;
CHA18:=SMA(CHA17,3,1) ;
CHA20:3*CHA17-2*CHA18,COLORWHITE,LINETHICK2;
DRAWTEXT(ISLASTBAR,CHA20,' 做多能量');
CHA21:=HHVBARS(HIGH,50) ;
CHA22:=(CLOSE-REF(OPEN,CHA21) )/REF(OPEN,CHA21)*100;
CHA23:EMA(CHA17,6),COLORFF00FF;
DRAWTEXT(ISLASTBAR,CHA23,' 长期筹码');
CHA24:=(HHV(HIGH,36)-CLOSE)/(HHV(HIGH,36) -LLV(LOW,36) )*100;
CHA25:SMA(CHA24,3,1) ,COLORGREEN,LINETHICK2;
DRAWTEXT(ISLASTBAR,CHA25,' 做空能量');
CHA26:=CROSS(CHA20,CHA25) AND CHA20>=CHA23;
STICKLINE(CHA26,0,60,1,0),COLOR00FFFF;
DRAWTEXT(CHA26,62,'潜伏'),COLORRED;
CHA27:=CROSS(CHA23,CHA25) AND CHA23>=CHA23;
DRAWTEXT(CHA27,70,'进'),COLORFF00FF;
CHA28:=CROSS(CHA20,CHA23) AND CHA20>=CHA25 AND CHA23>=CHA25;
DRAWTEXT(CHA28,70,'进'),COLORFF00FF;
CHA29:=(O+H+L+C)/4;
CHA30:=HHV(CHA29,10);
CHA31:=LLV(CHA29,30);
CHA32:=CHA30-CHA31;
CHA33:=EMA((CHA29-CHA31)/CHA32,25)*100;
CHA34:=HHV(CHA29,16);
CHA35:=LLV(CHA29,90);
CHA36:=CHA34-CHA35;
CHA37:=EMA((CHA29-CHA35)/CHA36,25)*100;
DRAWICON(CHA33>90 AND CHA37>85,100,4);