{DRAWTEXTABS(0,40,'机构评级:'+selfstring('评级')),Color1489F3;} ma13:ma(c,13),colorwhite;
ma34:ma(c,34),coloryellow;
ma55:ma(c,55),colorff00ff;
ma120:ma(c,120),colorffcccc;
ma250:ma(c,250),colorffcc66;
x1:=(C+L+H)/3;
x2:=ma(x1,6);
x3:=ma(x2,5);
stickline(x2>x3 and c>ma13,low,high,0.1,1),colorred;
stickline(x2>x3 and c>ma13,close,open,5,1),colorred;
stickline(x2<x3 and c<ma13,low,high,0.1,1),colorffff54;
stickline(x2<x3 and c<ma13,close,open,5,0),colorffff54;
drawtext(CROSS(X2,X3),l-0.09,'B'),colorwhite,linethick2,align1;
gr1:=BARSLAST(BETWEEN("bias.bias2"(6,13,24),0,5));
gr2:=ma13>ma34 and ma34>ma55 and ma13>ref(ma13,1);
gr3:=count("bias.bias2"(6,13,24)>10 and h=hhv(h,gr1),gr1);
gr4:=h=hhv(h,gr1);
gr5:="macd.macd"(12,26,9)<ref("macd.macd"(12,26,9),1);
gr6:=gr2 and gr3 and gr4;
gr7:=gr2 and gr3 and gr4 and gr5;
gr8:=gr6 and gr7;
LC := REF(CLOSE,1);
RSI6:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
BIAS5:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
换手:=100*v/capital;
DRAWTEXT(filter(rsi6>95 and 换手>=7,3) or filter(bias5>9,3) or gr8,h*1.04,'S'),color00ff00,linethick2,align1;
bb13:=atan(ma13-ref(ma13,1))*3.1416*10;
ma8:=ma(c,8);
WR:=-"W&R"(14);
DRAWICON(FILTER(CROSS(WR,(0 - 81)),10),L,4),ALIGN1;
DRAWICON(FILTER(CROSS((0 -19),WR),10),H*1.02,5),ALIGN1;
DRAWTEXT(FILTER(CROSS(WR,(0 - 81)),21),L*0.98,' W&R'),ALIGN1,COLORRED;
DRAWTEXT(FILTER(CROSS(0 -19,WR),21),H*1.03,' W&R'),ALIGN2,COLORGREEN;
/////////////////
a:=HHV(MA((L+H+C)/3,3),3);
b:=llv(MA((L+H+C)/3,3),5);
DRAWTEXT(BARSTATUS=2,a,'￣'),Coloryellow,linethick2;
//DRAWTEXT(BARSTATUS=2,a,' '+NUMTOSTRN(a,3)),colorYELLOW;
DRAWTEXT(BARSTATUS=2,b,'￣'),Colorred,linethick7,ALIGN0;
//DRAWTEXT(BARSTATUS=2,b,' '+NUMTOSTRN(b,3)),Colorred;
STICKLINE(BARSTATUS=2,((h+l)/2),((h+l)/2),4,0),Colorblue,linethick2;
//DRAWTEXT(BARSTATUS=2,(h+l)/2,' '+NUMTOSTRN((h+l)/2,3)),colorgreen;
drawtext(BARSTATUS=2,((h+l)/2)*1.05,' '+'+5%'),Color63806A;
drawtext(BARSTATUS=2,((h+l)/2)*1.03,' '+'+3%'),Color63806A;
drawtext(BARSTATUS=2,((h+l)/2)*0.95,' '+'-5%'),Color63806A,linethick2;
drawtext(BARSTATUS=2,((h+l)/2)*0.97,' '+'-3%'),Color63806A,linethick2;
DRAWTEXT( c>=a AND BARSTATUS=2,A*1.015,' '+'←多'),COLORYELLOW;
DRAWTEXT(ref(c,1)<ref(a,1) and c>=a AND BARSTATUS=2,A*0.995,' '+'←进'),COLORYELLOW;
DRAWTEXT(ref(c,1)>ref(a,1) and c<a AND BARSTATUS=2,A*1.01,' '+'↓减'),COLORYELLOW;
DRAWTEXT(ref(c,1)>ref(b,1) and c<b AND BARSTATUS=2,A*0.995,' '+'↓逃'),COLORgreen;
顶部: HHV(HIGH,60)*0.98,colorFFFFCC;
STICKLINE(顶部=REF(顶部,1),顶部,顶部,7,1),colorred;
TJTS:=BARSTATUS=2;
cg:=hhv(h,125);
cgl:=llv(h,125);
j:=(cg-cgl)/8;
{IF C>0 AND TJTS>0 THEN BEGIN}
{DRAWTEXT(C>0,cg*1.04,' '+ '流通:'+NUMTOSTRN( FINANCE(7),0 )+' '+'换手:'+NUMTOSTRN( DYNAINFO(37)*100,3 )+' '),LINETHICK3,ColorFFFF80,ALIGN2;end;}
zslife:=(ma(indexc,60)+ma(indexc,90))/2;
zsbl:=indexc/zslife;
gglife:=(ma(c,60)+ma(c,90))/2;
zstb:=zsbl*gglife;
rsv:=(c-llv(l,15))/(hhv(h,15)-llv(l,15))*100;
kk:=sma(rsv,10,1);
dd:=sma(kk,5,1);
zlcm:=intpart(sma(rsv,10,1));
shcm:=intpart(sma(kk,5,1));
{IF (zlcm+shcm)>50 and (zlcm+shcm)<160 AND TJTS THEN DRAWTEXT(C>0,cg-1.1*j,'精确风险系数%：'+NUMTOSTRN( (zlcm+shcm),2 )+' '),LINETHICK3,color6699cc,ALIGN2;}
{IF ((zlcm+shcm)<=50 or (zlcm+shcm)>=160) AND TJTS THEN DRAWTEXT(C>0,cg-1.1*j,'精确风险系数%：'+NUMTOSTRN( -(zlcm+shcm),2 )+' '),LINETHICK3,color6699cc,ALIGN2;}
aa13:=ma(winner(c)*70,3);
bb13:=ma((winner(c*1.1)-winner(c*0.9))*80,3);
{
IF aa13>bb13 AND TJTS THEN DRAWTEXT(C>0,cg-2.1*j,'主力控盘系数%：'+NUMTOSTRN( aa13/(aa13+bb13)*100,2 )+' '),LINETHICK3,color0000ff,ALIGN2;
IF aa13<bb13 AND TJTS THEN DRAWTEXT(C>0,cg-2.1*j,'散户套牢系数%：'+NUMTOSTRN( bb13/(aa13+bb13)*100,2 )+' '),LINETHICK3,color00ff00,ALIGN2;
}
e:=BARSCOUNT(c);
ah:=hhv(h,250);
al:=llv(l,250);
b0:=(ah-al)/40;
kb1:=h+b0;
kb2:=l-b0;
stickline((e+0)/34=FLOOR((e+0)/34),kb2,kb2-3*b0,2,0),COLORYELLOW;
drawtext((e+0)/34=FLOOR((e+0)/34),kb2-2*b0,'时间窗'),COLORFFFFFF;
V1:=REF(C,1);
V2:=SMA(MAX(C-V1,0),6,1)/SMA(ABS(C-V1),6,1)*100;
DRAWICON(IF(CROSS(81,V2),1,0),h*1.01,5),COLORYELLOW;
乖离线:=((c-ref(ma13,1))/13+ma13)*1.20;
tt1:=cross(ma13,ma34) and cross(ma13,ma55) and v>ref(v,1);
tt2:=ma13>ref(ma13,2) and v>ref(v,1) and cross(c,ma13);
STICKLINE(TT1,l,l-0.09,4,0),coloryellow;
DRAWTEXT(TT1,l-0.13,'金叉'),coloryellow;
STICKLINE(cross(c,ma34) and cross(c,ma55) and cross(c,ma13),l,l-0.09,4,0),coloryellow;
DRAWTEXT(cross(c,ma34) and cross(c,ma55) and cross(c,ma13),l-0.13,'并线开花'),coloryellow; |
