以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  [讨论请把这个]大智慧指标改成金字塔能用的。谢谢  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=29636)

--  作者:xian_0_9
--  发布时间:2012/10/7 22:12:16
--  [讨论请把这个]大智慧指标改成金字塔能用的。谢谢

input: N(30, 1, 240, 1);
a:="LTFunc6@FORLT2"(N);  {计算BS点}
s1:="LTFunc6@LT_S1"(N);  {s1=0,向下; s1=1,向上}
hs:="LTFunc6@LT_HS"(N);  {短线买入机会}
ls:="LTFunc6@LT_LS"(N);  {短线卖出机会}
p1:="LTFunc6@LT_P1"(N);  {p1=1,显示BS,p1上穿0线,B点 ; p1下穿1线,S点}
upp:="LTFunc6@LT_UPP"(N);{明日B点预测}
udd:="LTFunc6@LT_UDD"(N);{明日S点预测}

{hs;ls;hhs;lls;us;ds;s1;p1;p0;upp;udd};
d1:=ema(abs("ddx.ddx"),60);  {ddx绝对值60日指数平滑移动平均}
d2:=max("ddx.ddx"/d1+7.5,7.5);
d3:=min("ddx.ddx"/d1,10);    {能量级别:当日ddx与60日平均值的比值,最高10.0}
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:=\'<*t=0092F7*><*c=FFFFFF*><*p=95*>\'+datestr(date)+\'买卖点决策系统提示\\n\'+\'<*t=E7FFFF*><*c=000000*><*p=95*>\'+\'1.BS点:\'+tr2+\',\'+tr0+\'<*t=E7FFFF*><*c=000000*><*p=95*>\'+\'2.短线:\'+tr3+tr1+\'\\n\'+\'<*t=E7FFFF*><*c=000000*><*p=95*>\'+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;

{原文链接:http://www.55188.com/thread-3890993-1-1.html}


--  作者:jinzhe
--  发布时间:2012/10/8 10:56:11
--  

datestr,drawflagtext这些函数是何用处?

还需要一个名为LTFunc6的dll公式


--  作者:xian_0_9
--  发布时间:2012/10/8 11:07:33
--  
哦。那好像改不了了