AAA:=(MA(CLOSE,13)+MA(CLOSE,17))/2;
CCC:=(STD(CLOSE,13)+STD(CLOSE,17))/2;
BBB:=AAA+2.1*CCC;
DDD:=AAA+0.72*CCC;
ZZZ:=IF(CCC>1.88 ,MA(DDD,3),DDD);
止赢:ZZZ*1.1,COLORFFCC18;
了结:ZZZ*1.05,COLORFF18FF;
回档:ZZZ*0.95,COLOR18FF18;
反弹:ZZZ*0.9,COLOR18CCFF;
平衡:ZZZ,COLORFFFFFF;
DRAWTEXT(ISLASTBAR,止赢,'止赢'),COLORFFCC18;
DRAWTEXT(ISLASTBAR,了结,'了结'),COLORFF18FF;
DRAWTEXT(ISLASTBAR,回档,'回档'),COLOR18FF18;
DRAWTEXT(ISLASTBAR,反弹,'反弹'),COLOR18CCFF;
DRAWTEXT(ISLASTBAR,平衡,'平衡'),COLORFFFFFF;
DRAWTEXT_FIX(1,0.78,4,0,'~★~特供理想论坛~★~'),COLORFF80FF;
TH:=HHVBARS(H,0),COLORRED,NODRAW;
TL:=LLVBARS(L,0),COLORGREEN,NODRAW;
高:HHV(H,TH),COLORRED,NODRAW;
低:LLV(L,TL),COLORGREEN,NODRAW;
H1:=高-(高-低)*0.191;
H2:=高-(高-低)*0.382;
H3:=高-(高-低)*0.5;
H4:=高-(高-低)*0.618;
H5:=高-(高-低)*0.809;
顶:REFDATE(高,DATE),COLORCYAN,POINTDOT;
%19.1:REFDATE(H1,DATE),COLORYELLOW,POINTDOT;
%38.2:REFDATE(H2,DATE),COLORMAGENTA,POINTDOT;
%50:REFDATE(H3,DATE),COLORWHITE,POINTDOT;
%61.8:REFDATE(H4,DATE),COLORMAGENTA,POINTDOT;
%80.9:REFDATE(H5,DATE),COLORYELLOW,POINTDOT;
底:REFDATE(低,DATE),COLORCYAN,POINTDOT;
DRAWTEXT(ISLASTBAR,顶,'顶'),COLORCYAN;
DRAWTEXT(ISLASTBAR,%19.1,'％19.1'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,%38.2,'％38.2'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,%50,'％50'),COLORWHITE;
DRAWTEXT(ISLASTBAR,%61.8,'％61.8'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,%80.9,'％80.9'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,底,'底'),COLORCYAN;
A7:=C-REF(C,1);
A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);
买:=LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND CROSS(A8,MA(A8,2));
DRAWTEXT(FILTER(买=1,5),LOW-0.05,'↖买进'),COLORFFFFFF;
STICKLINE(买,OPEN,CLOSE,2,0),COLORYELLOW;
流通市值:(FINANCE(40)/100000000),NODRAW,COLORRED;
Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,' ');
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLOR00C0C0;
ZT:=C>REF(C,1)*1.090 AND C<REF(C,1)*1.102;
DT:=C<REF(C,1)*0.901 AND C>REF(C,1)*0.898;
STICKLINE(ZT,C,O,4,0),COLORRED;
STICKLINE(DT,C,O,4,0),COLORBLUE;
DRAWTEXT(ZT,L-0.1,'涨停'),COLOR00FFFF;
DRAWTEXT(DT,H+0.3,'跌停'),COLOR00FF00;
DRAWTEXT(CROSS(ZIG(3,13),REF(ZIG(3,13),1)),LOW*1.001,'★底'),COLOR80FFFF;
DRAWTEXT(CROSS(REF(ZIG(3,13),1),ZIG(3,13)),HIGH*1,'★逃顶'), COLORRED;
|
