CJL:=IF(DYNAINFO(10)>99999999,STRCAT(CON2STR(DYNAINFO(10)/100000000,2)<10,'亿'),STRCAT(CON2STR(DYNAINFO(10)/10000,0),'万'));
DRAWTEXT_FIX(01,0.85,0.20.0,0,CJL),COLOR0099FF;
日:=120; 昨前:=3;
高1:=REF(HHV(H,日),昨前);
低1:=REF(LLV(L,日),昨前);
H1:=高1-(高1-低1)*0.191;
H2:=高1-(高1-低1)*0.382;
H3:=高1-(高1-低1)*0.5;
H4:=高1-(高1-低1)*0.618;
H5:=高1-(高1-低1)*0.809;
HIGH1:=REFDATE(高1,DATE),COLORRED,LINETHICK3;
HIGH2:=REFDATE(H1,DATE),COLORYELLOW,LINETHICK3;
LOW2:REFDATE(H5,DATE),COLORYELLOW,LINETHICK3;
LOW1:REFDATE(低1,DATE),COLORGREEN,LINETHICK3;
量价:=(VOL/CLOSE)/3;
B2:=SUM((IF(((量价>0.20) AND (CLOSE>(REF(CLOSE,1)))),量价,0)),0);
B3:=SUM((IF(((量价>0.20) AND (CLOSE<(REF(CLOSE,1)))),量价,0)),0);
B6:=B2+B3;DD1:=1;比:=B2/B3;
BBB1:=STRCAT(STRCAT('买= ',CON2STR((100*B2)/B6,0)),'%');
BBB2:=STRCAT(STRCAT('卖= ',CON2STR((100*B3)/B6,0)),'%');
BBB3:=STRCAT(STRCAT('B ',CON2STR((100*(B2-B3))/B6,0))>30,'.00');
{DRAWTEXT_FIX(DD1=1,0,0.50,0,BBB1),COLORRED;
DRAWTEXT_FIX(DD1=1,0,0.60,0,BBB2),COLORGREEN;}
DRAWTEXT_FIX(DD1=1,0,0.20,0,BBB3),COLOR00FFFF;
LCT:=REF(CLOSE,1);
WRSI:=SMA(MAX(CLOSE-LCT,0),5,1)/SMA(ABS(CLOSE-LCT),5,1)*100;
WR10:=(HHV(HIGH,3)-CLOSE)/(HHV(HIGH,3)-LLV(LOW,3))*100;
活跃:=(WRSI-WR10);
活跃度比:=IF(活跃>=0,(活跃+100)/2,100-ABS((活跃-100)/2))>90;
DRAWTEXT_FIX(1,0.70,0.20,1,STRCAT(STRCAT('',CON2STR(活跃度比,2)),'')),COLORCYAN;
GAIN := SUM(IF(CLOSE > REF(CLOSE, 1), CLOSE - REF(CLOSE, 1), 0), 14) / 14;
LOSS := -SUM(IF(CLOSE < REF(CLOSE, 1), CLOSE - REF(CLOSE, 1), 0), 14) / 14;
RS := GAIN / LOSS;
RSI : 100 - (100 / (1 + RS));
RSI70:=RSI>80;
超卖区:=35,COLORGREEN;
超买区:70,COLORRED;
XXX:O=RSI70;
ZZZ:=O=L;
STICKLINE((RSI70) AND O/REF(C,1)<1.01 AND REF(C<H,1) AND TIME<=0935,L,L*9,500,0),COLORCYAN;
工作线:=EMA(CLOSE,14),COLORFFFFFF;
生命线:=EMA(CLOSE,47);
VAR326:=IF(CLOSE>REF(CLOSE,1),88,0);
VAR327:=IF(CLOSE/REF(CLOSE,1)>1.050 AND HIGH/CLOSE<1.010 AND VAR326>0, 91, 0);
{STICKLINE(VAR327>90 AND O<H1 AND BBB3 AND REF(C<H,1) AND TIME<=0935 ,L,L*9,1000,0),COLORGREEN;}
DRAWTEXT(VAR327>90 AND O<H1 AND BBB3 AND REF(C<H,1) AND TIME<=0935,LOW+4,'追涨'),COLORYELLOW;