求通达信软件选股公式，高手请进~~~~~

要求太多了,我只找到一个接近要求的,图片演示在下面网址里.a:=currbarscount;a1:=day!=ref(day,1);a2:=barslast(a1)+1;a3:=ma(c,a2);a4:=sum(amo,a2)/sum(vol,a2)/100;a5:=if(capital>0,a4,a3);均价线:=if(a<=const(a2),a5,draw**);分钟有效周期:=if(period=2,15,if(period=3,30,if(period=4,60,if(period=5,240,draw**))));分时价:=tfilt(close,currbarscount,00,currbarscount,00);分时判断:=if(分时价=draw**,1,if(分钟有效周期=draw**,draw**,1));{-----------------------------由macd定位顶底 -------------------------------}diff:=ema(close,12)-ema(close,26);dea:=ema(diff,9);macd:=2*(diff-dea);kx:=barssince(close);{←首次开盘价距金的天数}hhn:=const(hhv(diff,kx));hln:=const(llv(dea,kx));rc1:=const((hhn+hln)/2);ss:=((hhn-hln)/200);macd底部:=(-100*ss+rc1)+-(-100*ss+rc1),color669999;macd顶部:=(100*ss+rc1)+-(-100*ss+rc1),colorff0033;macd中轴:=0+-(-100*ss+rc1);diff修正:=diff+-(-100*ss+rc1),color008080;dea修正:=dea+-(-100*ss+rc1),color00ff00;macd修正:=2*(diff修正-dea修正)+macd中轴,color0000bb,nodraw;macd超跌:=const(llv(macd修正,kx));macd超跌线:=if(macd超跌<macd底部,macd超跌,macd底部);{----------------------利用macd趋势进行精确顶底判断 ------------------------}顶部:=macd顶部+-macd超跌线;天际:=顶部*0.809;中轴:=macd中轴+-macd超跌线;海面:=顶部*0.191;底部:=macd底部;{------------------------传统kdj指标结合macd优化 ---------------------------}rsva:=(close-llv(low,21))/(hhv(high,21)-llv(low,21))*顶部;{采用21日月线优化}k:sma(rsva,3,1),colorffffff,nodraw;d:sma(k,3,1),color00ffff,nodraw;原j值参数:=3*k-2*d;jd:=if(原j值参数<底部,底部,原j值参数);{j值底部钝化处理}j:if(jd>顶部,顶部,jd),colorff00ff,nodraw;{底部钝化处理后再进行顶部钝化处理}{---------------------------macd多空量能判断-------------------------------}macd多头:diff修正+-macd超跌线,color339999;空头:dea修正+-macd超跌线,color00ff00;量能柱:2*(macd多头-空头)+中轴,color0000bb,nodraw;超前dea:=(ema(macd多头,7));超前macd:=2*(macd多头-超前dea)+中轴;{-----------------------------------大盘动向-------------------------------}var1大盘:=llv(low,13);var2大盘:=hhv(high,13);var3大盘:=(sma((close-var1大盘)/(var2大盘-var1大盘)*顶部,5,1))-顶部/2;var4大盘:=sma((var2大盘-close)/(var2大盘-var1大盘)*顶部,5,1)-顶部/2;大盘散户:=if(var4大盘<底部,底部,var4大盘),color408000;大盘主力:=if(var3大盘<底部,底部,var3大盘),color330088;{---------------------------------密集成本突破-----------------------------}最高获利参数:=顶部/100;var1c:=(cost(89)-cost(11))*最高获利参数;var2c:=(cost(99.9)-cost(1))*最高获利参数;单峰:=((1-var1c/var2c))*顶部;低密:=((cost(90)-cost(60))/var2c)*顶部;高密:=((cost(40)-cost(1))/var2c)*顶部;赢利:= (sma(winner(amount/vol/99),2,1))*顶部;活跃度:顶部-顶部/(1+expma(hsl,21)),color774455; {←cyf公众追涨热情指标}70%成本集中度:=if(var1c>顶部,顶部,var1c),colorffffff;90%成本集中度:=if(var2c>顶部,顶部,var2c),colorff0000;套牢**上升:=if((单峰-赢利)>底部,(单峰-赢利),底部);个股散户:=if(套牢**上升>顶部,顶部,套牢**上升),color408000;散户:if(个股散户=draw**,draw**,个股散户),color408000;获利**上升:=if((赢利-单峰)>底部,(赢利-单峰),底部);个股主力:=if(获利**上升>顶部,顶部,获利**上升),color330088;主力:if(个股主力=draw**,draw**,个股主力),color330088;{--------------------换手率,五日换手率辅助判断个股活跃度-------------------}换手:sum(vol,1)/capital*100,color666666,nodraw;⑤日换:sum(vol,5)/capital*100,color999999,nodraw;{----------------------密集成本突破指标**峰画线--------------------------}金色背景修边1:stickline(c>0 and currbarscount>=2,顶部,底部,3.05,0),color003333;金色背景修边2:stickline(c>0 and currbarscount>=2,顶部,中轴,3.05,0),color003333;金色背景补充:drawband(顶部,rgb(51,51,0),中轴,rgb(51,51,0));金色背景:drawband(顶部,rgb(51,51,0),底部,rgb(128,128,128));追涨热度峰紫色:drawband(活跃度,rgb(66,52,81),底部,rgb(204,0,0));高密峰墨蓝色:=drawband(高密,rgb(0,0,51),底部,rgb(0,0,255));低密峰纯蓝色:=drawband(低密,rgb(0,0,102),底部,rgb(0,0,255));90%成本峰:drawband(90%成本集中度,rgb(0,0,153),底部,rgb(0,0,153));70%成本峰:drawband(70%成本集中度,rgb(0,128,0),底部,rgb(255,255,255));散户峰绿色:drawband(散户,rgb(0,64,0),底部,rgb(204,0,0));主力峰红色:drawband(主力,rgb(102,26,51),底部,rgb(0,0,255));macd多空趋势:drawband(macd多头,rgb(204,51,51),空头,rgb(0,179,0));macd多头重画:drawband(macd多头,rgb(153,153,51),macd多头,rgb(153,153,51));macd空头重画:drawband(空头,rgb(0,204,0),空头,rgb(0,204,0));{--------创幻论坛‘131488’会员提供的通达信■新宝塔线■-----原码-----------}var1:=close>ref(close,1) and close>ref(close,2);var2:=ref(var1,1) and close<=ref(close,1) and close>=ref(close,2);var3:=ref(var2,1) and close>=ref(close,1) and close<=ref(close,2);var4:=ref(var3,1) and close<=ref(close,1) and close>=ref(close,2);var5:=ref(var4,1) and close>=ref(close,1) and close<=ref(close,2);v**:=ref(var5,1) and close<=ref(close,1) and close>=ref(close,2);var7:=ref(v**,1) and close>=ref(close,1) and close<=ref(close,2);var8:=ref(var7,1) and close<=ref(close,1) and close>=ref(close,2);var9:=ref(var8,1) and close>=ref(close,1) and close<=ref(close,2);vard:=close<ref(close,1) and close<ref(close,2);vare:=ref(vard,1) and close>=ref(close,1) and close<=ref(close,2);varf:=ref(vare,1) and close<=ref(close,1) and close>=ref(close,2);var10:=ref(varf,1) and close>=ref(close,1) and close<=ref(close,2);var11:=ref(var10,1) and close<=ref(close,1) and close>=ref(close,2);var12:=ref(var11,1) and close>=ref(close,1) and close<=ref(close,2);var13:=ref(var12,1) and close<=ref(close,1) and close>=ref(close,2);var14:=ref(var13,1) and close>=ref(close,1) and close<=ref(close,2);var15:=ref(var14,1) and close<=ref(close,1) and close>=ref(close,2);var16:=ref(var15,1) and close>=ref(close,1) and close<=ref(close,2);var17:=ref(var16,1) and close<=ref(close,1) and close>=ref(close,2);var18:=ref(var17,1) and close>=ref(close,1) and close<=ref(close,2);三平底翻金:=(ref(vard or vare or varf or var10 or var11 or var12 or var13 or var14 or var15 or var16 or var17 or var18,1))and var1;主力启动线:=ma(v,5),colorffffff;主力洗盘线:=ma(v,35),color00ffff;资金异动线:=ma(v,135),colorff0000;{----------------------------买卖参考--------------------------------------}出击:=(cross(主力启动线,资金异动线) or ((主力洗盘线 > 资金异动线) and cross(主力启动线,主力洗盘线))),coloryellow;启动:=(主力启动线>ref(主力启动线,1) and (cross(vol,主力启动线) and (ref(vol,1)<ref(资金异动线,1) or ref(vol,2)<ref(资金异动线,2)))),color45aaee;成立:=三平底翻金 and (出击 or 启动);买入提示:=if(成立=1,海面*0.5,0) and 分时判断=1;{------------------------顶部线,**,海面线,底部线重画-------------------}顶部线:drawband(顶部,rgb(51,0,255),顶部,rgb(51,0,255));**:drawband(天际,rgb(128,64,64),天际,rgb(128,64,64));海面线:drawband(海面,rgb(0,153,153),海面,rgb(0,153,153));底部线:drawband(0,rgb(153,153,102),买入提示,rgb(153,153,102));{------------------------超前macd多空量能柱--------------------------------}超前macd红柱1:stickline(超前macd>=中轴,超前macd,中轴,1.50,0),color226688;超前macd红柱2:stickline(超前macd>=中轴,超前macd,中轴,0.95,0),color4488bb;超前macd红柱3:stickline(超前macd>=中轴,超前macd,中轴,0.31,0),color55aadd;超前macd兰柱1:stickline(超前macd<=中轴,超前macd,中轴,1.50,0),color006600;超前macd兰柱2:stickline(超前macd<=中轴,超前macd,中轴,0.95,0),color007700;超前macd兰柱3:stickline(超前macd<=中轴,超前macd,中轴,0.31,0),color008800;{--------------------------macd多空量能柱----------------------------------}macd红柱1:stickline(量能柱>=中轴,量能柱,中轴,1.5,0),color000077;macd红柱2:stickline(量能柱>=中轴,量能柱,中轴,1.1,0),color000088;macd红柱3:stickline(量能柱>=中轴,量能柱,中轴,0.6,0),color000099;macd红柱4:stickline(量能柱>=中轴,量能柱,中轴,0.15,0),color0000aa;macd兰柱1:stickline(量能柱<=中轴,量能柱,中轴,1.5,0),coloraa6633;macd兰柱2:stickline(量能柱<=中轴,量能柱,中轴,1.1,0),colorbb7744;macd兰柱3:stickline(量能柱<=中轴,量能柱,中轴,0.6,0),colorcc8855;macd兰柱4:stickline(量能柱<=中轴,量能柱,中轴,0.15,0),colordd9966;{---------中轴线重画及顶部线,**,海面线,底部线,多空线文字说明-----------}中轴线:drawband(中轴,rgb(128,128,255),中轴,rgb(128,128,255));顶部线文字:drawtext(currbarscount=1,顶部*0.98,' 顶部线'),colorff0033;**文字:drawtext(currbarscount=1,天际*0.98,' **'),color404080;海面线文字:drawtext(currbarscount=1,海面,' 海面线'),color999900;底部线文字:drawtext(currbarscount=1,底部,' 底部线'),color669999;中轴线文字:drawtext(currbarscount=1,中轴,' 多空线'),colorff8080;{-------------------------------传统kdj指标线重画--------------------------}d线重画:drawband(d,rgb(255,255,0),d*0.998,rgb(255,255,0));k线重画:drawband(k,rgb(255,255,255),k,rgb(255,255,255));j线重画:drawband(j,rgb(255,0,255),j,rgb(255,0,255)); 20210311