改良的大智慧BS决策主图公式(大智慧)

改良的大智慧BS决策主图公式(大智慧)
IF(FINANCE2(37)/10000>=100) THEN BEGIN
DRAWTEXTabs(0,270,'【超大盘0.7%】'+FINANCE2(37)/10000+'亿股 '),LINETHICK2,ColorFF00FF; end;
IF(FINANCE2(37)/10000<100 and FINANCE2(37)/10000>=10) THEN BEGIN
DRAWTEXTabs(0,270,'【大盘股9.0%】'+FINANCE2(37)/10000+'亿股 '),LINETHICK2,ColorFF00FF; end;
IF(FINANCE2(37)/10000<10 and FINANCE2(37)/10000>=5) THEN BEGIN
DRAWTEXTabs(0,270,'【中盘股12.7%】'+FINANCE2(37)/10000+'亿股 '),LINETHICK2,ColorFF00FF; end;
IF(FINANCE2(37)/10000<5 and FINANCE2(37)/10000>=1) THEN BEGIN
DRAWTEXTabs(0,270,'【小盘股55.3%】'+FINANCE2(37)/10000+'亿股 '),LINETHICK2,ColorFF00FF; end;
IF(FINANCE2(37)/10000<1) THEN BEGIN
DRAWTEXTabs(0,270,'【超小盘22.3%】'+FINANCE2(37)/10000+'亿股 '),LINETHICK2,ColorFF00FF; end;a:="LTFunc5@FORLT2";
s1:="LTFunc5@LT_S1";
hs:="LTFunc5@LT_HS";
ls:="LTFunc5@LT_LS";
p1:="LTFunc5@LT_P1";
upp:="LTFunc5@LT_UPP";
udd:="LTFunc5@LT_UDD";{hs;ls;hhs;lls;us;ds;s1;p1;p0;upp;udd};
买入:p1=1 and ref(p1,1)=0,LineThick0,Precis0,ColorRed;
d1:=ema(abs("ddx.ddx"),60);
d2:=max("ddx.ddx"/d1+7.5,7.5);
d3:=min("ddx.ddx"/d1,10);
fb:=if(s1=0,hs,ls);
tr0:=ifs(p1=1,'明日收盘价<'+numtostrn(udd,2)+',出现S点/n','若明日收盘价> '+numtostrn(upp,2)+',出现B点/n');
tr1:=ifs(s1=1,'明日收盘价<'+numtostrn(ls,2)+',短线卖出机会','若明日收盘价> '+numtostrn(hs,2)+'短线买入机会');
tr2:=ifs(p1=1,ifs(cross(p1,0),'B点','持股'),ifs(cross(1,p1),'S点','持币'));
tr3:=ifs(s1=0,'向下,','向上,');
tr4:='3.能量级别:'+numtostrn(d3,1)+'级';bs:=''+datestr(date)+'买卖点决策系统提示/n'+'1.BS点:'+tr2+','+tr0+'2.短线:'+tr3+tr1+'/n'+tr4;
drawflagtext(1,fb,bs);STICKLINE(p1=1 and c>=o and o<>0,c,o,d2,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,c,o,7.5,0),colorblack;
STICKLINE(p1=1 and c>=o and o<>0,c,c,7.5,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,o,o,7.5,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,o,c,7.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,o,c,7.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,l,c,0.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,h,o,0.5,1),color5454ff;STICKLINE((p1<>1 or barscount(c)<3) and c>=o,c,o,7.5,1),colorffff54;
STICKLINE((p1<>1 or barscount(c)<3) and c>=o,c,h,0.5,1),colorffff54;
STICKLINE((p1<>1 or barscount(c)<3) and c>=o,l,o,0.5,1),colorffff54;drawbmp(p1=1 and ref(p1,1)=0,l,'buy1.bmp'),align1,valign0;
drawbmp(p1=0 and ref(p1,1)=1,h,'sell1.bmp'),align1,valign2;drawbmp(s1=1 and ref(s1,1)=0 and (p1+ref(p1,1))<>1,l,'bs.bmp'),align1,valign0;
drawbmp(s1=0 and ref(s1,1)=1 and (p1+ref(p1,1))<>1,h,'ss.bmp'),align1,valign2;
STICKLINE(CLOSE<OPEN and ref(CLOSE,1)>ref(OPEN,1),ref(close,1),ref(close,1),28,0),COLORAAAAFF,LINETHICK1;
cc:=(h-c)/(c-o)<0.33;
dd:=(c/ref(c,1)-1)>=0.0502 and c>ref(c,1) and (o-l)/(c-o)>=1.48 and l<ref(l,1) and l<ref(l,2);
ee:=(c/ref(c,1)-1)>=0.08;
aa:=VOL>REF(VOL,1)*1.9 and c>ref(c,1) and c/ref(c,1)-1>=0.049 and cc;
bb:=(c/ref(c,1)-1)>=0.0502 and c>ref(c,1) and v>ref(v,1) and VOL>REF(VOL,1)*2.5 and cc;
DRAWTEXT(FILTER(aa or bb or dd or ee,34),l,'↖异动'),COLOrffff00;DD:=FINANCE2(35);
SS:=FINANCE2(37);
GG:=FINANCE2(3);
TH:=DYNAINFO(39);
DRAWTEXTREL(1,920,'总股本:'+NUMTOSTRn(DD,0)+'万股' +' 流通A股:'+NUMTOSTRn(SS,0)+'万股'+'市盈率:'+NUMTOSTRn(TH,2)+' 倍'+' 每股收益:'+NUMTOSTRn(GG,3)+' 元'),ColorFFFF00;
gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100);
明日阻力:=l+(gj-l)+(c-l);
明日支撑:=l+(c-gj);
今日阻力:=REF(明日阻力 , 1);
今日支撑:=REF(明日支撑 , 1);
STICKLINE(DISPSTATUS=2 and c>=今日阻力,今日阻力,今日阻力,20,0),Color0000FF;
STICKLINE(DISPSTATUS=2 and c<今日阻力,今日阻力,今日阻力,20,0),Color00FF00;
STICKLINE(DISPSTATUS=2 and c>=今日支撑,今日支撑,今日支撑,20,0),ColorFF00FF;
STICKLINE(DISPSTATUS=2 and c<今日支撑,今日支撑,今日支撑,20,0),ColorFF9900;
DRAWTEXTREL(850,950,'今日支撑：'+NUMTOSTRN(今日支撑 ,2 )),Colorred;
DRAWTEXTREL(700,950,'今日阻力：'+NUMTOSTRN(今日阻力 ,2 )),ColorGREEN;
DRAWTEXTREL(1,870,'所属板块:'+BKNAME),ColorAFFF00;
DRAWTEXTREL(1,820,'每股收益:'+NUMTOSTRN(FINANCE2(3),3)+'元'+' 市盈率:'+NUMTOSTRN(DYNAINFO(39),2)+'元'+' 市净率:'+NUMTOSTRN((CLOSE / FINANCE2(4)),2)+'元'+' 净资产:'+NUMTOSTRN(FINANCE2(4),2)+'元'),Color00C0FF;特卖单:="丰赢数据.特卖单#MIN1";
大卖单:="丰赢数据.大卖单#MIN1";
中卖单:="丰赢数据.中卖单#MIN1";
小卖单:="丰赢数据.小卖单#MIN1";流入额:="丰赢数据.流入额#MIN1";
流出额:="丰赢数据.流出额#MIN1";
总流入:="丰赢数据.总流入#MIN1";
总流出:="丰赢数据.总流出#MIN1";
买力合计:="丰赢数据.买力合计#MIN1";
卖力合计:="丰赢数据.卖力合计#MIN1";
流入:(总流入-总流出)/10000,linethick0,color000000;
us:=特卖单+大卖单+中卖单+小卖单;
u:=ub+us;DRAWRECTABS(150,15,170,20+特买单/u*100,rgb(222,52,0)),color000099;
DRAWRECTABS(180,15,200,20+特卖单/u*100,rgb(49,182,24)),color000000;
DRAWRECTABS(210,15,230,20+大买单/u*100,rgb(255,117,0)),color000000;
DRAWRECTABS(240,15,260,20+大卖单/u*100,rgb(99,231,74)),color000000;
DRAWRECTABS(270,15,290,20+中买单/u*100,rgb(255,186,0)),color000000;
DRAWRECTABS(300,15,320,20+中卖单/u*100,rgb(74,243,156)),color000000;
DRAWRECTABS(330,15,350,20+小买单/u*100,rgb(239,223,0)),color000000;
DRAWRECTABS(360,15,380,20+小卖单/u*100,rgb(189,243,156)),color000000;DRAWRECTABS(140,16,765,82,0),colorcccc00;
DRAWRECTABS(140,13,400,14,rgb(0,200,200)),color00FFFF;
DRAWTEXTABS(150,0,'巨买 巨卖 大买 大卖 中买 中卖 小买 小卖'),colorAAAA00;DRAWRECTABS(395,18,415,80,rgb(0,200,200)),colorcc9900;
DRAWTEXTABS(600,vv+55,'委'),color00ffff;
DRAWTEXTABS(600,vv+75,'买'),color00ffff;
DRAWTEXTABS(600,vv+95,'入'),color00ffff;DRAWTEXTABS(600,vv+30,'共流入'+总流入/10000+'万元，'+ub+'次'),color0022ee;
DRAWTEXTABS(600,vv+38,'──────────────'),color00ffff;
DRAWTEXTABS(620,vv+50,'巨额■'+STRRIGHT(' '+NUMTOSTRN(特买单,0),7)+' 占'+STRRIGHT(' '+NUMTOSTRN(特买单/u*100,2),6)+'%'),color0036dd;
DRAWTEXTABS(620,vv+65,'大额■'+STRRIGHT(' '+NUMTOSTRN(大买单,0),7)+' 占'+STRRIGHT(' '+NUMTOSTRN(大买单/u*100,2),6)+'%'),COLOR0174fa;
DRAWTEXTABS(620,vv+80,'中额■'+STRRIGHT(' '+NUMTOSTRN(中买单,0),7)+' 占'+STRRIGHT(' '+NUMTOSTRN(中买单/u*100,2),6)+'%'),COLOR1ab9ff;
DRAWTEXTABS(620,vv+95,'小额■'+STRRIGHT(' '+NUMTOSTRN(小买单,0),7)+' 占'+STRRIGHT(' '+NUMTOSTRN(小买单/u*100,2),6)+'%'),COLOR01ddef;DRAWRECTABS(595,18,615,80,rgb(200,90,200)),color990099;
DRAWTEXTABS(400,vv+55,'委'),color00ffff;
DRAWTEXTABS(400,vv+75,'卖'),color00ffff;
DRAWTEXTABS(400,vv+95,'出'),color00ffff;DRAWTEXTABS(400,vv+30,'共流出'+总流出/10000+'万元，'+us+'次'),color00ee22;
DRAWTEXTABS(400,vv+38,'─────────────────────'),color00ffff;
DRAWTEXTABS(420,vv+50,'巨额■'+STRRIGHT(' '+NUMTOSTRN(特卖单,0),7)+' 占'+STRRIGHT(' '+NUMTOSTRN(特卖单/u*100,2),6)+'%'),color1ab731;
DRAWTEXTABS(420,vv+65,'大额■'+STRRIGHT(' '+NUMTOSTRN(大卖单,0),7)+' 占'+STRRIGHT(' '+NUMTOSTRN(大卖单/u*100,2),6)+'%'),COLOR49e560;
DRAWTEXTABS(420,vv+80,'中额■'+STRRIGHT(' '+NUMTOSTRN(中卖单,0),7)+' 占'+STRRIGHT(' '+NUMTOSTRN(中卖单/u*100,2),6)+'%'),COLOR9bf149;
DRAWTEXTABS(420,vv+95,'小额■'+STRRIGHT(' '+NUMTOSTRN(小卖单,0),7)+' 占'+STRRIGHT(' '+NUMTOSTRN(小卖单/u*100,2),6)+'%'),COLOR9bf1bf;
DRAWTEXTABS(0,0,'净流入额:'+(总流入-总流出)/10000+'万元'),colorAAAAAA;
DRAWTEXTABS(0,30,'买力合计:'+买力合计),colorAAAAAA;
DRAWTEXTABS(0,45,'卖力合计:'+卖力合计),colorAAAAAA;
DRAWTEXTABS(0,60,'买卖次差:'+NUMTOSTRN(ub-us,0)),colorAAAAAA;
DRAWTEXTABS(0,15,'占流通盘:'+NUMTOSTRN((总流入-总流出)/CAPITAL,2)+'%'),colorAAAAAA;
DDX10:=count("ddx.ddx">0,10);
BL2:=sum("散户数量.散户数量",5)*-1;
DRAWTEXTABS(0,75,'L2DDX翻红:'+ddx10+'/10'),colorAAAAAA;
DRAWTEXTABS(0,90,'L2主力买入:'+bl2+'(五天)'),colorAAAAAA;
DRAWTEXTABS(150,85,'巨额（50万以上成交）大额（20万-50万）中额（5万-20万）小额（5万以下），次数合计超过270以上为无效数据。'),colorFFAA55;