有股友帮忙改个结合千钧大班长的DDX系统使用的BS决策系统，请注意千钧DDX一定要是DDX保密*****，
如你改了名字，那就没法显示能量级的，刚发现其实使用千钧DDX显示能量级也很不错。
不结合千钧DDX的版本被我错发到软件区了，抱歉！
与之配套的飞升黑马刚已经发了，请找找。
另外请大家注意压缩文件里的DLL文件看着是LTFunc4，其实他就是最新版本的LTFunc5，只改个文件名多简单，省的改指标。
我私自给他加了个黄金通道，大家看看效果如何？
先把附件FmlDLL下载解压后，放到飞狐安装目录下的FmlDLL文件夹中。
{BS决策系统}
a:="LTFunc4@FORLT2";
s1:="LTFunc4@LT_S1";
hs:="LTFunc4@LT_HS";
ls:="LTFunc4@LT_LS";
p1:="LTFunc4@LT_P1";
upp:="LTFunc4@LT_UPP";
udd:="LTFunc4@LT_UDD";
yngs:Ema(c,14),LINETHICK0;
a1:yngs*1.1,Linethick1,colorff;
a4:yngs*0.9,Linethick1,colorff00;
a2:a1-(a1-a4)*0.191,Linethick1,colorff00ff;
a3:a1-(a1-a4)*0.618,Linethick1,colorffff;
b1:llv(a3,3),colorffff;
b2:if(a3>b1,(a3-(b1-a3)/2),b1),colorffff;
FILLRGN(c,b1,b2),colorffff;
fb:=if(s1=0,hs,ls);
tr0:=if(p1=1,'明日收盘价<'+numtostr(udd,2)+',出现S点\n','若明日收盘价>'+numtostr(upp,2)+',出现B点\n');
tr1:=if(s1=1,'明日收盘价<'+numtostr(ls,2)+',短线卖出机会','若明日收盘价>'+numtostr(hs,2)+'短线买入机会');
DRAWTEXTEX(C,1,5,10,'□明日收盘价<'+numtostr(udd,2)+' 出现S点'),color00ffff;
DRAWTEXTEX(C,1,5,50,'□明日收盘价>'+numtostr(upp,2)+' 出现B点'),color00ff00;
DRAWTEXTEX(C,1,5,90,'□明日收盘价<'+numtostr(ls,2)+' 短线卖出机会'),colorffff00;
DRAWTEXTEX(C,1,5,130,'□明日收盘价>'+numtostr(hs,2)+' 短线买入机会'),colorff00ff;
d:="DDX保密*****.ddx";
d1:=ema(abs(d),60);
d2:=max(d/d1+7.5,7.5);
d3:=min(d/d1,10);
DRAWTEXTEX(C,1,5,170,'□能量级别 '+numtostr(d3,1)+' 级'),color00ffff;
DRAWICON(p1=1 and ref(p1,1)=0,l*0.985,'buy1');
DRAWICON(p1=0 and ref(p1,1)=1,h*1.03,'sell1');
DRAWICON(s1=1 and ref(s1,1)=0 and (p1+ref(p1,1))<>1,l*0.995,'bs');
DRAWICON(s1=0 and ref(s1,1)=1 and (p1+ref(p1,1))<>1,h*1.01,'ss');
stickline(p1=1,low,high,1,0),colorred;
stickline(p1=1,close,open,4.5,0),color0000aa;
stickline(p1=1,close,open,4,0),color0000cc;
stickline(p1=1,close,open,3,0),color0000cc;
stickline(p1=1,close,open,2,0),color0000ee;
stickline(p1=0,close,open,4.5,0),coloraaaa00;
stickline(p1=0,close,open,4,0),colorbbbb00;
stickline(p1=0,close,open,3,0),colorcccc00;
stickline(p1=0,close,open,2,0),coloreeee00;
stickline(p1=0,low,high,1,0),colorffff00;
DRAWTEXTEX(c,1,5,900,'所属板块:' + BLKNAME),ALIGN4,colorred;
DD:=FINANCE( 1);
SS:=FINANCE( 7);
BL:=SS/DD*100;
GG:=FINANCE(33);
TH:=DYNAINFO(39);
JZ:=FINANCE(34);
DRAWTEXTEX(c,1,5,960,'总股本:'+NUMTOSTR(DD,0)+'万股' +'流通A股:'
+NUMTOSTR(SS,0)+'万股'+'流通比例:'+NUMTOSTR(BL,3)+'%'+'市盈率:'
+NUMTOSTR(TH,2)+' 倍'+'收益:'+NUMTOSTR(GG,3)+' 元'+'净资产:'
+NUMTOSTR(JZ,3)+' 元'),COLORGREEN;{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
