发个我改造的BS决策系统,改的不好请包涵!!!并提前祝大家春节玩得开心,
现在大盘趋势明显向下,虽然昨日在银hang股的舍身拼搏下,走出单针探底之势,
但春节将至分心在所难免,大盘能够横向振荡就以是顶了天了,
我们小散何必和他较劲,保住这一年的收益为第一要务!!!
肺腑之言望深思!
现在用飞狐的是越来越少了,怒其不争的同时,我们所有喜爱飞狐的DD是否该为飞狐的生存做点贡献呢??
源码奉献给你,与君共勉。
请有能力熟悉飞狐光标的大高手大大高手行动起来让这个指标拥有大智慧同样的效果吧,免得他自以为是…………
我水平有限没有形成光标效果,只能将就先用着,大汗……
另外,我没有DDX数据没办法显示能量值,我将他删除了,直接到网上看多简单,省的自己倒来倒去。
我私自给他加了个黄金通道,大家看看效果如何?
先把附件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;
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;
|