以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  请帮助改编  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=91623)
--  作者：逢好运
--  发布时间：2016/2/23 8:23:50
--  请帮助改编

老师你好！下面是文华的源码，请帮改编为金字塔图表加载。谢谢！其中N,SL,S为参数。

 

A:=(N-HHVBARS(H,N+1))/N*100,COLORRED;
B:=(N-LLVBARS(L,N+1))/N*100,COLORGREEN;

 

A>70&&EVERY(O>REF(O,1),1)&&TIME>=0900&&TIME<1457||A>70&&EVERY(O>REF(O,1),1)&&TIME>=2100&&TIME<2327,BK;

B>70&&EVERY(O<REF(C,1),1),SP;

B>70&&EVERY(O<REF(O,1),1)&&TIME>=0900&&TIME<1457||B>70&&EVERY(O<REF(O,1),1)&&TIME>=2100&&TIME<2327,SK;


A>70&&EVERY(O>REF(C,1),1),BP;

TIME>=1458&&TIME<1500||TIME>=2328&&TIME<2330,SP;//下午最后一根K线平仓
TIME>=1458&&TIME<1500||TIME>=2328&&TIME<2330,BP;//夜盘最后一根K线平仓



D:=MINPRICE1;//取模组交易合约的最小变动价位
HH:=HHV(H,BARSBK+1);
LL:=LLV(L,BARSSK+1);
//以上取买开仓以来最高价；卖开仓以来最低价；
AA:BKPRICE-SL*D+S*D*INTPART((HH-BKPRICE)/(S*D)),COLORMAGENTA;
BB:SKPRICE+SL*D-S*D*INTPART((SKPRICE-LL)/(S*D)),COLORMAGENTA;
//以上取开仓后盈利的止损点差应该是多少
((C<=BKPRICE-SL*D)||C<=AA)&&BKPRICE>0,SP;
((C>=SKPRICE+SL*D)||C>=BB)&&SKPRICE>0,BP;

AUTOFILTER;
--  作者：jinzhe
--  发布时间：2016/2/23 9:00:25
--  

A:=(N-HHVBARS(H,N+1))/N*100,COLORRED;
B:=(N-LLVBARS(L,N+1))/N*100,COLORGREEN;

 

if A>70&&EVERY(O>REF(O,1),1)&&TIME>=130000&&TIME<185700||A>70&&EVERY(O>REF(O,1),1)&&TIME>=010000&&TIME<032700 then buy(holding=0,1,marketr);

if B>70&&EVERY(O<REF(C,1),1) and holding>0 then sell(1,0,marketr);

if B>70&&EVERY(O<REF(O,1),1)&&TIME>=130000&&TIME<185700||B>70&&EVERY(O<REF(O,1),1)&&TIME>=010000&&TIME<032700 then buyshort(holding=0,1,marketr);


if A>70&&EVERY(O>REF(C,1),1) and holding<0 then sellshort(1,0,marketr);

if TIME>=185800&&TIME<190000||TIME>=032800&&TIME<033000 then sell(1,0,marketr);//下午最后一根K线平仓
if TIME>=185800&&TIME<190000||TIME>=032800&&TIME<033000 then sellshort(1,0,marketr);//夜盘最后一根K线平仓

 

D:=mindiff;//取模组交易合约的最小变动价位
HH:=HHV(H,enterbars+1);
LL:=LLV(L,enterbars+1);
//以上取买开仓以来最高价；卖开仓以来最低价；
AA:enterprice-SL*D+S*D*INTPART((HH-enterprice)/(S*D)),COLORMAGENTA;
BB:enterprice+SL*D-S*D*INTPART((enterprice-LL)/(S*D)),COLORMAGENTA;
//以上取开仓后盈利的止损点差应该是多少
if ((C<=enterprice-SL*D)||C<=AA)&&enterprice>0 and holding>0 then sell(1,0,marketr);
if ((C>=enterprice+SL*D)||C>=BB)&&enterprice>0 and holding<0 then sellshort(1,0,marketr);