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

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

源码正文：

IF(FINANCE2(37)/10000>=100) THEN BEGIN
DRAWTEXTabs(0,270,'【超大盘0.7%】'+FINANCE2(37)/10000+'亿股 '),LINETHICK2,ColorFF00FF; end{XG51};
IF(FINANCE2(37)/10000<100 and FINANCE2(37)/10000>=10) THEN BEGIN
DRAWTEXTabs(0,270,'【大盘股9.0%】'+FINANCE2(37)/10000+'亿股 '),LINETHICK2,ColorFF00FF; end{XG51};
IF(FINANCE2(37)/10000<10 and FINANCE2(37)/10000>=5) THEN BEGIN
DRAWTEXTabs(0,270,'【中盘股12.7%】'+FINANCE2(37)/10000+'亿股 '),LINETHICK2,ColorFF00FF; end{XG51};
IF(FINANCE2(37)/10000<5 and FINANCE2(37)/10000>=1) THEN BEGIN
DRAWTEXTabs(0,270,'【小盘股55.3%】'+FINANCE2(37)/10000+'亿股 '),LINETHICK2,ColorFF00FF; end{XG51};
IF(FINANCE2(37)/10000<1) THEN BEGIN
DRAWTEXTabs(0,270,'【超小盘22.3%】'+FINANCE2(37)/10000+'亿股 '),LINETHICK2,ColorFF00FF; end;

a:="LTFunc5@FORLT2"{XG51};
s1:="LTFunc5@LT_S1"{XG51};
hs:="LTFunc5@LT_HS"{XG51};
ls:="LTFunc5@LT_LS"{XG51};
p1:="LTFunc5@LT_P1"{XG51};
upp:="LTFunc5@LT_UPP"{XG51};
udd:="LTFunc5@LT_UDD";

{XG51};
买入:p1=1 and ref(p1,1)=0,LineThick0,Precis0,ColorRed{XG51};
d1:=ema(abs("ddx.ddx"),60){XG51};
d2:=max("ddx.ddx"/d1+7.5,7.5){XG51};
d3:=min("ddx.ddx"/d1,10){XG51};
fb:=if(s1=0,hs,ls){XG51};
tr0:=ifs(p1=1,'明日收盘价<'+numtostrn(udd,2)+',出现S点\n','若明日收盘价> '+numtostrn(upp,2)+',出现B点\n'){XG51};
tr1:=ifs(s1=1,'明日收盘价<'+numtostrn(ls,2)+',短线卖出机会','若明日收盘价> '+numtostrn(hs,2)+'短线买入机会'){XG51};
tr2:=ifs(p1=1,ifs(cross(p1,0),'B点','持股'),ifs(cross(1,p1),'S点','持币')){XG51};
tr3:=ifs(s1=0,'向下,','向上,'){XG51};
tr4:='3.能量级别:'+numtostrn(d3,1)+'级';

bs:=''+datestr(date)+'买卖点决策系统提示\n'+'1.bs点:'+tr2+','+tr0+'2.短线:'+tr3+tr1+'\n'+tr4{XG51};
drawflagtext(1,fb,bs);

STICKLINE(p1=1 and c>=o and o<>0,c,o,d2,0),color5454ff{XG51};
STICKLINE(p1=1 and c>=o and o<>0,c,o,7.5,0),colorblack{XG51};
STICKLINE(p1=1 and c>=o and o<>0,c,c,7.5,0),color5454ff{XG51};
STICKLINE(p1=1 and c>=o and o<>0,o,o,7.5,0),color5454ff{XG51};
STICKLINE(p1=1 and c>=o and o<>0,o,c,7.5,1),color5454ff{XG51};
STICKLINE(p1=1 and c<=o,o,c,7.5,1),color5454ff{XG51};
STICKLINE(p1=1 and c<=o,l,c,0.5,1),color5454ff{XG51};
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{XG51};
STICKLINE((p1<>1 or barscount(c)<3) and c>=o,c,h,0.5,1),colorffff54{XG51};
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{XG51};
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{XG51};
drawbmp(s1=0 and ref(s1,1)=1 and (p1+ref(p1,1))<>1,h,'ss.bmp'),align1,valign2;

x1:=(C+L+H)/3{XG51};
bb13:=atan(ema(x1,13)-ref(ema(x1,13),1))*3.1416*10{XG51};
ema8:=ema(c,8){XG51};
DRAWTEXT(filter(bb13>1 and ema(x1,13)>ref(ema(x1,8),1),10),
ema8,'&ang;45上升'),coloryellow;

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{XG51};
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){XG51};
ee:=(c/ref(c,1)-1)>=0.08{XG51};
aa:=vol>REF(VOL,1)*1.9 and c>ref(c,1) and c/ref(c,1)-1>=0.049 and cc{XG51};
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{XG51};
DRAWTEXT(FILTER(aa or bb or dd or ee,34),l,'↖异动'),COLOrffff00;

DD:=FINANCE2(35){XG51};
SS:=FINANCE2(37){XG51};
GG:=FINANCE2(3){XG51};
TH:=DYNAINFO(39){XG51};
DRAWTEXTREL(1,920,'总股本:'+NUMTOSTRn(DD,0)+'万股' +' 流通A股:'+NUMTOSTRn(SS,0)+'万股'+'市盈率:'+NUMTOSTRn(TH,2)+' 倍'+'  每股收益:'+NUMTOSTRn(GG,3)+' 元'),ColorFFFF00{XG51};
gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100){XG51};
明日阻力:=l+(gj-l)+(c-l){XG51};
明日支撑:=l+(c-gj){XG51};
今日阻力:=REF(明日阻力 , 1){XG51};
今日支撑:=REF(明日支撑 , 1){XG51};
STICKLINE(DISPSTATUS=2  and c>=今日阻力,今日阻力,今日阻力,20,0),Color0000FF{XG51};
STICKLINE(DISPSTATUS=2  and c<今日阻力,今日阻力,今日阻力,20,0),Color00FF00{XG51};
STICKLINE(DISPSTATUS=2  and c>=今日支撑,今日支撑,今日支撑,20,0),ColorFF00FF{XG51};
STICKLINE(DISPSTATUS=2  and c<今日支撑,今日支撑,今日支撑,20,0),ColorFF9900{XG51};
DRAWTEXTREL(850,950,'今日支撑：'+NUMTOSTRN(今日支撑 ,2 )),Colorred{XG51};
DRAWTEXTREL(700,950,'今日阻力：'+NUMTOSTRN(今日阻力 ,2 )),ColorGREEN{XG51};
DRAWTEXTREL(1,870,'所属板块:'+BKNAME),ColorAFFF00{XG51};
DRAWTEXTREL(1,820,'每股收益:'+NUMTOSTRN(FINANCE2(3),3)+'元'+' 市盈率:'+NUMTOSTRN(DYNAINFO(39),2)+'元'+' 市净率:'+NUMTOSTRN((CLOSE / FINANCE2(4)),2)+'元'+' 净资产:'+NUMTOSTRN(FINANCE2(4),2)+'元'),Color00C0FF;

GET:zig(3,3),COLORBLUE{XG51};
PL5:=ZIG(3,5){XG51};
EN1:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3){XG51};
EX1:=ZIG(3,5)<REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)>=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3){XG51};
PL10:=ZIG(3,10){XG51};
EN2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3){XG51};
EX2:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)>=REF(ZIG(3,10),3){XG51};
PL20:=ZIG(3,20){XG51};
EN3:=ZIG(3,20)>REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)<=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)<=REF(ZIG(3,20),3){XG51};
EX3:=ZIG(3,20)<REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)>=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)>=REF(ZIG(3,20),3){XG51};
PL40:=ZIG(3,40){XG51};
走强1:=BArslAST(PL5<REF(PL5,1)){XG51};
走弱1:=BARSLAST(PL5>REF(PL5,1)){XG51};
走强2:=BARSLAST(PL10<REF(PL10,1)){XG51};
走弱2:=BARSLAST(PL10>REF(PL10,1)){XG51};
走强3:=BARSLAST(PL20<REF(PL20,1)){XG51};
走弱3:=BARSLAST(PL20>REF(PL20,1)){XG51};
ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强2),0){XG51};
ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走强2),0){XG51};
DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱2),0){XG51};
DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱2),0){XG51};
ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走强3),0){XG51};
ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强3),0){XG51};
DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱3),0){XG51};
DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱3),0){XG51};
DRAWTEXT(EN1 AND DTJZ5=1,L*0.98,'(A)'),COLORFFFF00{XG51};
DRAWTEXT(EX1 AND DTJD5=2,H*1.02,'(B)'),COLORFF00FF{XG51};
DRAWTEXT(EN2 AND ZTJZ5=1,L*0.99,'(C)'),COLOR0000FF{XG51};
DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,H*1.02,'⑴'),COLOR0000FF{XG51};
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,L*0.98,'⑵'),COLOR0000FF{XG51};
DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,H*1.02,'⑶'),COLOR0000FF{XG51};
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L*0.98,'⑷'),COLOR0000FF{XG51};
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.02,'⑸'),COLOR0000FF{XG51};
DRAWTEXT(EN2 AND DTJZ10=1,L*0.93,'Ⅰ'),COLORFF00FF{XG51};
DRAWTEXT(EX2 AND DTJD10=2,H*1.05,'Ⅱ'),COLORFFFF00{XG51};
DRAWTEXT(EN3 AND ZTJZ10=1,L*0.93,'Ⅲ'),COLOR0000FF{XG51};
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.03,'①'),LINETHICK3,COLOR00FFFF{XG51};
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.96,'②'),LINETHICK3,COLOR00FFFF{XG51};
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2)
AND EX2,H*1.03,'③'),LINETHICK3,COLOR00FFFF{XG51};
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3,L*0.96,'④'),LINETHICK3,COLOR00FFFF;

vv:=-30{XG51};
特买单:="丰赢数据.特买单#MIN1"{XG51};
大买单:="丰赢数据.大买单#MIN1"{XG51};
中买单:="丰赢数据.中买单#MIN1"{XG51};
小买单:="丰赢数据.小买单#MIN1"{XG51};
ub:=特买单+大买单+中买单+小买单;

特卖单:="丰赢数据.特卖单#MIN1"{XG51};
大卖单:="丰赢数据.大卖单#MIN1"{XG51};
中卖单:="丰赢数据.中卖单#MIN1"{XG51};
小卖单:="丰赢数据.小卖单#MIN1";

流入额:="丰赢数据.流入额#MIN1"{XG51};
流出额:="丰赢数据.流出额#MIN1";

总流入:="丰赢数据.总流入#MIN1"{XG51};
总流出:="丰赢数据.总流出#MIN1"{XG51};
买力合计:="丰赢数据.买力合计#MIN1"{XG51};
卖力合计:="丰赢数据.卖力合计#MIN1"{XG51};
流入:(总流入-总流出)/10000,linethick0,color000000{XG51};
us:=特卖单+大卖单+中卖单+小卖单{XG51};
u:=ub+us;

DRAwrECTABS(150,15,170,20+特买单/u*100,rgb(222,52,0)),color000099{XG51};
DRAWRECTABS(180,15,200,20+特卖单/u*100,rgb(49,182,24)),color000000{XG51};
DRAWRECTABS(210,15,230,20+大买单/u*100,rgb(255,117,0)),color000000{XG51};
DRAWRECTABS(240,15,260,20+大卖单/u*100,rgb(99,231,74)),color000000{XG51};
DRAWRECTABS(270,15,290,20+中买单/u*100,rgb(255,186,0)),color000000{XG51};
DRAWRECTABS(300,15,320,20+中卖单/u*100,rgb(74,243,156)),color000000{XG51};
DRAWRECTABS(330,15,350,20+小买单/u*100,rgb(239,223,0)),color000000{XG51};
DRAWRECTABS(360,15,380,20+小卖单/u*100,rgb(189,243,156)),color000000;

DRAWRECTABS(140,16,765,82,0),colorcccc00{XG51};
DRAWRECTABS(140,13,400,14,rgb(0,200,200)),color00FFFF{XG51};
DRAWTEXTABS(150,0,'巨买 巨卖 大买 大卖 中买 中卖 小买 小卖'),colorAAAA00;

DRAWRECTABS(395,18,415,80,rgb(0,200,200)),colorcc9900{XG51};
DRAWTEXTABS(600,vv+55,'委'),color00ffff{XG51};
DRAWTEXTABS(600,vv+75,'买'),color00ffff{XG51};
DRAWTEXTABS(600,vv+95,'入'),color00ffff;

DRAWTEXTABS(600,vv+30,'共流入'+总流入/10000+'万元，'+ub+'次'),color0022ee{XG51};
DRAWTEXTABS(600,vv+38,'──────────────'),color00ffff{XG51};
DRAWTEXTABS(620,vv+50,'巨额■'+STRRIGHT('      '+NUMTOSTRN(特买单,0),7)+' 占'+STRRIGHT('   '+NUMTOSTRN(特买单/u*100,2),6)+'%'),color0036dd{XG51};
DRAWTEXTABS(620,vv+65,'大额■'+STRRIGHT('      '+NUMTOSTRN(大买单,0),7)+' 占'+STRRIGHT('   '+NUMTOSTRN(大买单/u*100,2),6)+'%'),COLOR0174fa{XG51};
DRAWTEXTABS(620,vv+80,'中额■'+STRRIGHT('      '+NUMTOSTRN(中买单,0),7)+' 占'+STRRIGHT('   '+NUMTOSTRN(中买单/u*100,2),6)+'%'),COLOR1ab9ff{XG51};
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{XG51};
DRAWTEXTABS(400,vv+55,'委'),color00ffff{XG51};
DRAWTEXTABS(400,vv+75,'卖'),color00ffff{XG51};
DRAWTEXTABS(400,vv+95,'出'),color00ffff;

DRAWTEXTABS(400,vv+30,'共流出'+总流出/10000+'万元，'+us+'次'),color00ee22{XG51};
DRAWTEXTABS(400,vv+38,'─────────────────────'),color00ffff{XG51};
DRAWTEXTABS(420,vv+50,'巨额■'+STRRIGHT('      '+NUMTOSTRN(特卖单,0),7)+' 占'+STRRIGHT('   '+NUMTOSTRN(特卖单/u*100,2),6)+'%'),color1ab731{XG51};
DRAWTEXTABS(420,vv+65,'大额■'+STRRIGHT('      '+NUMTOSTRN(大卖单,0),7)+' 占'+STRRIGHT('   '+NUMTOSTRN(大卖单/u*100,2),6)+'%'),COLOR49e560{XG51};
DRAWTEXTABS(420,vv+80,'中额■'+STRRIGHT('      '+NUMTOSTRN(中卖单,0),7)+' 占'+STRRIGHT('   '+NUMTOSTRN(中卖单/u*100,2),6)+'%'),COLOR9bf149{XG51};
DRAWTEXTABS(420,vv+95,'小额■'+STRRIGHT('      '+NUMTOSTRN(小卖单,0),7)+' 占'+STRRIGHT('   '+NUMTOSTRN(小卖单/u*100,2),6)+'%'),COLOR9bf1bf;

DRAWTEXTABS(0,0,'净流入额:'+(总流入-总流出)/10000+'万元'),colorAAAAAA{XG51};
DRAWTEXTABS(0,30,'买力合计:'+买力合计),colorAAAAAA{XG51};
DRAWTEXTABS(0,45,'卖力合计:'+卖力合计),colorAAAAAA{XG51};
DRAWTEXTABS(0,60,'买卖次差:'+NUMTOSTRN(ub-us,0)),colorAAAAAA{XG51};
DRAWTEXTABS(0,15,'占流通盘:'+NUMTOSTRN((总流入-总流出)/CAPITAL,2)+'%'),colorAAAAAA{XG51};
DDX10:=count("ddx.ddx">0,10){XG51};
BL2:=sum("散户数量.散户数量",5)*-1{XG51};
DRAWTEXTABS(0,75,'L2DDX翻红:'+ddx10+'/10'),colorAAAAAA{XG51};
DRAWTEXTABS(0,90,'L2主力买入:'+bl2+'(五天)'),colorAAAAAA;

DRAWTEXTABS(150,85,'巨额（50万以上成交）大额（20万-50万）中额（5万-20万）小额（5万以下），次数合计超过270以上为无效数据。'),colorFFAA55{X.G.5_1.C.N.{};