求海风1、2、3号和益盟操盘手、操盘手bs线的通达信源码

1、海风2号ma5:ma(close,5),colorffffff,linethick2;ma13:ma(close,13),color00ff00;ma21:ma(close,21),color00ffff,linethick2;ma34:ma(close,34),colorff00ff;{ma55:ma(close,55),color0000ff;}{ma120:=ma(close,120),colorffff00;}天使:=ema(c,2),color000000;魔鬼:=ema(slope(c,21)*20+c,42),color000000;买:=cross(天使,魔鬼);:=cross(魔鬼,天使);drawicon(买,l*0.97,1);drawtext(买,l*0.95,'进攻'),coloryellow;drawicon(卖,h*1.03,2);drawtext(卖,h*1.05,'撤退'),colorwhite;stickline(天使>=魔鬼,low,high,0.01,0),color0000dd;stickline(天使>=魔鬼,close,open,2,1),colorred;{stickline(天使>=魔鬼,close,open,3,0),color0000cc;stickline(天使>=魔鬼,close,open,2,0),color0000dd;stickline(天使>=魔鬼,close,open,1,0),color0000ff;}{stickline(天使<魔鬼,close,open,1,0),coloreeee00;stickline(天使<魔鬼,close,open,2,0),colordddd00;stickline(天使<魔鬼,close,open,3,0),colorcccc00;}stickline(天使<魔鬼,low,high,0.01,0),colorffdd00;stickline(天使<魔鬼,close,open,2,0),colorffff00;stickline(cross(天使,魔鬼),open,close,2.5,0),coloryellow;stickline(cross(魔鬼,天使),open,close,2.5,0),colorwhite;2、益盟操盘手var1:=(100 - ((90 * (hhv(high,14) - close)) / (hhv(high,14) - llv(low,14))));var2:=(100 - ((90 * (hhv(high,14) - close)) / (hhv(high,14) - llv(low,14))));var3:=(100 - ma(((100 * (hhv(high,6) - close)) / (hhv(high,6) - llv(low,6))),34));dir1:=abs(close-ref(close,5));vir1:=sum(abs(close-ref(close,1)),5);er1:=dir1/vir1;cs1:=er1*(0.8-2/8)+2/8;cq1:=cs1*cs1;ama1:ema(dma(close,cq1),2) ,colorwhite;dir2:=abs(close-ref(close,10));vir2:=sum(abs(close-ref(close,1)),10);er2:=dir2/vir2;cs2:=er2*(0.8-2/24)+2/24;cq2:=cs2*cs2;ama2:ema(dma(close,cq2),2),colorgreen,linethick2;ama3:if(ama2/ref(ama2,1)>0.997,ama2,draw**),coloryellow,linethick2;ama4:if(ama2/ref(ama2,1)>1.001,ama2,draw**),colorred,linethick2;stickline((var2 < ma(var3,6)),close,open,3,1),color008000;stickline((var2 > ma(var3,6)),open,close,3,1),colorred;stickline(((open > close) and (var2 > ma(var3,6))),(open * 0.998),(close * 1.0001),2.3,0),color008000;stickline(((open < close) and (var2 < ma(var3,6))),(close * 0.998),(open * 1.002),2.3,0),colorred;stickline(((open > close) and (var2 < ma(var3,6))),close,open,2.3,0),color008000;drawicon(cross(var2,ma(var3,6)),(low - (low*0.04)),7);drawicon(cross(ma(var3,6),var1),(high+(high*0.03)),8);pt:=ref(h,1)-ref(l,1);cdp:=(ref(h,1)+ref(l,1)+ref(c,1)*2)/4;ah:=cdp+pt;al:=cdp-pt;nh:=cdp*2-ref(l,1);nl:=cdp*2-ref(h,1);强:if(ah>ref(c,1)*1.1,ref(c,1)*1.1,ah)nodraw;阻:if(nh>强,(强-cdp)*0.618+cdp,nh)nodraw,colorcyan;m:=if(al<ref(c,1)/1.1,ref(c,1)/1.1,al);撑:if(nl<m,cdp-(cdp-m)*0.618,nl)nodraw;底:if(al<ref(c,1)/1.1,ref(c,1)/1.1,al)nodraw;3、操盘手bs线ma5:ma(c,5),colorf00ff0;ma10:ma(c,10),coloryellow;ma21:ma(c,21),colore66878;ma30:ma(c,30),colorwhite;ma120:ma(c,120),color399c7f,pointdot;ma240:ma(c,240),color000999,pointdot;x1:=(c+l+h)/3;x2:=ema(x1,6);x3:=ema(x2,5);drawicon(cross(x2,x3),l*0.98,7);drawicon(cross(x3,x2),h*1.02,8);stickline(x2>=x3,low,high,0.1,1),colorred;stickline(x2>=x3,close,open,2,2),colorred;stickline(x2>=x3,close,open,2,8),colorbrown;stickline(x2<x3,low,high,0.1,1),colorgreen;stickline(x2<x3,close,open,2,2),colorgreen;stickline(cross(x2,x3),open,close,2,1),coloryellow;stickline(cross(x3,x2),open,close,2,1),colorblue;4、四方力道(主)v1:=dma((((high + low) + (close * 2)) / 4.15),0.9);hy1:=ref(ema(v1,3),1);实时线:ma(close,1),color006400;神秘线:hy1,color400080;stickline(c>hy1,low,high,1,0),colorred;stickline(c>hy1,close,open,4.5,0),colorred;stickline(c>hy1,close,open,4,0),colorred;stickline(c>hy1,close,open,3,0),colorred;stickline(c>hy1,close,open,2,0),colorred;stickline(c<=hy1,close,open,4.5,0),colorff4242;stickline(c<=hy1,close,open,4,0),colorff4242;stickline(c<=hy1,close,open,3,0),colorff4242;stickline(c<=hy1,close,open,2,0),colorff4242;stickline(c<=hy1,low,high,1,0),colorff4242;drawtext(cross(close,hy1),low,'买点'),linethick2,coloryellow;drawtext(cross(hy1,close),high*1.08,'卖点'),linethick3,colorwhite;app:=(vol / (((high - low) * 2) - abs((close - open))));zl:=if((close > open),(app * (high - low)),if((close < open),(app * ((high - open) + (close - low))),(vol / 2)));sf:=if((close > open),(0 - (app * ((high - close) + (open - low)))),if((close < open),(0 - (app * (high - low))),(0 - (vol / 2))));库存能量:=ma((zl + sf),2);库存平均:=ma((zl + sf),5);drawtext(cross(库存能量,库存平均),l*0.97,''),colorff00ff,linethick4;5、上出下买+三背离a:=ma(close,17)+abs(ma(close,17)-ref(ma(close,17),1));b:=ma(close,17)+ma(close,17)-ref(ma(close,17),1);分水岭:if(ma(close,17)<b,b,ma(close,17)),colorff00ff,linethick2;pma:=分水岭;dd:=分水岭<ref(分水岭,1);if(dd,分水岭,draw**),color00ff00,linethick2;操作线:分水岭-(ema(c,3)-分水岭),color00ffff,linethick2;s:=(pma>操作线);if(s,分水岭,draw**),color00ff00,pointdot,linethick4;pm:ma(c,5),colorffffcc,linethick2;if(pm>ref(pm,1),pm,draw**),colorred,linethick2;if(pm=ref(pm,1),pm,draw**),colorred;if(pm<ref(pm,1),pm,draw**),colorff9900,linethick2;drawicon(cross(分水岭,操作线),分水岭-0.1,1);a1:=barslast(ref(cross("macd.dif","macd.dea"),1));b1:=ref(c,a1+1)>c and ref("macd.dif",a1+1)<"macd.dif" and cross("macd.dif","macd.dea");drawtext(b1>0,l-0.02,'★m'),color00ffff;a2:=barslast(ref(cross("kdj.k","kdj.d"),1));b2:=ref(c,a2+1)>c and ref("kdj.k",a2+1)<"kdj.k" and cross("kdj.k","kdj.d");drawtext(b2,l-0.10,'◎k'),colorff00ff;a3:=barslast(ref(cross("rsi.rsi1","rsi.rsi2"),1));b3:=ref(c,a3+1)>c and ref("rsi.rsi1",a3+1)<"rsi.rsi1" and cross("rsi.rsi1","rsi.rsi2");drawtext(b3>0,l-0.18,'◆r'),color0000ff;c1:=barslast(ref(cross("macd.dea","macd.dif"),1));d1:=ref(c,c1+1)<c and ref("macd.dif",c1+1)>"macd.dif" and cross("macd.dea","macd.dif");drawtext(d1>0,h+0.16,'★m'),color00ff00;c2:=barslast(ref(cross("kdj.d","kdj.k"),1));d2:=ref(c,c2+1)<c and ref("kdj.k",c2+1)>"kdj.k" and cross("kdj.d","kdj.k");drawtext(d2>0,h+0.08,'◎k'),colorffffcc;c3:=barslast(ref(cross("rsi.rsi2","rsi.rsi1"),1));d3:=ref(c,c3+1)<c and ref("rsi.rsi1",c3+1)>"rsi.rsi1" and cross("rsi.rsi2","rsi.rsi1");drawtext(d3>0,h+0.04,'◆r'),colorff9900;6、变色kdjrsv:=(close-llv(low,9))/(hhv(high,9)-llv(low,9))*100;k:sma(rsv,3,1),colorwhite;d:sma(k,3,1),coloryellow;j:3*k-2*d,coloryellow;if(k<ref(k,1),k,draw**),colorgreen,linethick1;if(d<ref(d,1),d,draw**),colorgreen,linethick1;if(j<ref(j,1),j,draw**),colorffff00,linethick1;if(k>ref(k,1),k,draw**),colorred,linethick1;if(d>ref(d,1),d,draw**),colorred,linethick1;if(j>ref(j,1),j,draw**),colorff00ff,linethick1;7、变色rsin:=3;n1:=5;n2:=10;n3:=20;n4:=1;m1:=7;m2:=2;lc :=ref(c,n4);rsi1:sma(max(c-lc,0),n1,1)/sma(abs(c-lc),n1,1)*100,colorred,linethick1;rsi2:sma(max(c-lc,0),n2,1)/sma(abs(c-lc),n2,1)*100,color0099ff;rsi3:sma(max(c-lc,0),n3,1)/sma(abs(c-lc),n3,1)*100,coloryellow,linethick1;if(rsi1<rsi2,rsi1,draw**),coloraa8800,linethick1;if(rsi2>rsi1,rsi2,draw**),coloraa8800,linethick1;if(rsi3>rsi2,rsi3,draw**)coloraa8800,linethick1;ty:=rsi1;{通用曲线值的引入}aa:=ref(ty,n)=hhv(ty,2*n+1);bb:=backset(aa,n+1);cc:=filter(bb,n) and ty=hhv(ty,n+1);drawicon(cc,ty*1.07,10);aa2:=ref(ty,n)=llv(ty,2*n+1);bb2:=backset(aa2,n+1);cc2:=filter(bb2,n) and ty=llv(ty,n+1);drawicon(cc2,ty*0.95,11);gg:=**lastbar and ref(cc,barslast(cc));hh:=backset(gg,barslast(cc)+1);ii:=hh>ref(hh,1);jj:=ref(barslast(cc),1);kk:=backset(ii,jj+2);ll:=kk>ref(kk,1);drawline(ll,ty,ii,ty,1),colorred;cs:=(ref(ty,barslast(ii))-ref(ty,barslast(ll)))/(barslast(ll)-barslast(ii));阻力线:=ref(ty,barslast(ii))+barslast(ii)*cs;阻力值:阻力线,linethick0;drawicon(cross(ty,阻力线),阻力线*0.99,12);gg2:=**lastbar and ref(cc2,barslast(cc2));hh2:=backset(gg2,barslast(cc2)+1);ii2:=hh2>ref(hh2,1);jj2:=ref(barslast(cc2),1);kk2:=backset(ii2,jj2+2);ll2:=kk2>ref(kk2,1);drawline(ll2,ty,ii2,ty,1),colorgreen;8、变色macddif1:=ema(close,12) - ema(close,26);dea1:=ema(dif1,9);macd1:=2*(dif1-dea1),stick;macd2:=ema(macd1,3);stickline(macd1>macd2 and macd1>0,0,macd1,1,0),colorred;stickline(macd1>macd2 and macd1<0,0,macd1,1,0),colorgreen;stickline(macd1<macd2,0,macd1,1,0),colorcbcbc0;stickline(macd1>=0 or macd1<=0,0,0,50,1),colorwhite;dif:dif1,color33ff33;dea:dea1,coloryellow;macd:macd1,nodraw,colormagenta;强:if(dif1>=dea1,dif1,draw**),colorred,linethick2; 20210311