飞狐1350操盘源码

{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;