以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://www.weistock.com/bbs/list.asp?boardid=4)
----  [求助]请帮忙将通达信公式转为金字塔  (http://www.weistock.com/bbs/dispbbs.asp?boardid=4&id=7232)

--  作者:HONG
--  发布时间:2011/7/16 4:21:59
--  [求助]请帮忙将通达信公式转为金字塔
请帮忙将下面的通达信转为金字塔 单趋势线:EMA(CLOSE,N); WH1:=IF(L=LLV(L,P),L,DRAWNULL); WH2:=CONST(BARSLAST(WH1!=DRAWNULL)); WH3:=CONST(IF(WH2=0,H,REF(H,WH2))); WH4:=CONST(REF(BARSLAST(H>WH3),WH2+1)+WH2+1); WH5:=CONST(IF(WH4=0,H,REF(H,WH4))); WH6:=CONST(REF(BARSLAST(H>WH5),WH4+1)+WH4+1); WH7:IF(CURRBARSCOUNT<=WH2+10,CONST(IF(WH6=0,H,REF(H,WH6))),DRAWNULL); STICKLINE(CURRBARSCOUNT<=WH2+1 AND L=LLV(L,P),O,C,3,0),COLORRED; DRAWTEXT(CURRBARSCOUNT=WH2+10,WH7,\'LINE\'),COLORRED; DRAWTEXT(ISLASTBAR,WH7,\'进场线\'),COLORRED; WH8:IF(CURRBARSCOUNT<=WH2+1,IF(L=LLV(L,P),L,DRAWNULL),DRAWNULL),CIRCLEDOT; H1:=IF(H=HHV(H,P),H,DRAWNULL); H2:=CONST(BARSLAST(H1!=DRAWNULL)); 未完,下面继续!
[此贴子已经被作者于2011-7-16 4:30:04编辑过]

--  作者:HONG
--  发布时间:2011/7/16 4:30:35
--  
接上面内容H4:=CONST(REF(BARSLAST(L[此贴子已经被作者于2011-7-16 4:31:47编辑过]
--  作者:HONG
--  发布时间:2011/7/16 4:34:48
--  
为什么分开发也不能发个完整的公式呢?
--  作者:HONG
--  发布时间:2011/7/16 4:46:29
--  
经测试,原来是以下2个函数通宝不过: 1、CONST;{CONST(A):取A最后的值为常量,这是通达信的注释} 2、CURRBARSCOUNT;{求到最后交易日的周期数} 请帮忙,谢谢!
--  作者:admin
--  发布时间:2011/7/16 9:32:23
--  

争取下个版本增加这两个函数,请耐心等待


--  作者:admin
--  发布时间:2011/7/16 11:04:50
--  

EMA(CLOSE,N);
 WH1:=IF(L=LLV(L,P),L,996688);
 //sss:BARSLAST(WH1!=996688);
 WH2:=CONST(BARSLAST(WH1!=996688)); 
 WH3:=CONST(IF(WH2=0,H,REF(H,WH2)));
 WH4:=CONST(REF(BARSLAST(H>WH3),WH2+1)+WH2+1);
 WH5:=CONST(IF(WH4=0,H,REF(H,WH4)));
 WH6:=CONST(REF(BARSLAST(H>WH5),WH4+1)+WH4+1);
 WH7:IF(CURRBARSCOUNT<=WH2+10,CONST(IF(WH6=0,H,REF(H,WH6))),DRAWNULL);
  STICKLINE(CURRBARSCOUNT<=WH2+1 AND L=LLV(L,P),O,C,3,0),COLORRED;
  DRAWTEXT(CURRBARSCOUNT=WH2+10,WH7,\'LINE\'),COLORRED;
   DRAWTEXT(ISLASTBAR,WH7,\'进场线\'),COLORRED;
   WH8:IF(CURRBARSCOUNT<=WH2+1,IF(L=LLV(L,P),L,DRAWNULL),DRAWNULL),CIRCLEDOT;
    H1:=IF(H=HHV(H,P),H,DRAWNULL);
     H2:=CONST(BARSLAST(H1!=DRAWNULL));

 

下个金字塔升级版本将完全支持该公式


--  作者:HONG
--  发布时间:2011/7/16 13:52:27
--  
太好了,谢谢