以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  请老师帮我改为金字塔  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=48395)
--  作者：marbob2005
--  发布时间：2013/2/4 10:52:44
--  请老师帮我改为金字塔

N:=BARSLAST(DATE<>REF(DATE,1))+5;//当天开盘至今的K线数
Y:=VALUEWHEN(DATE<>REF(DATE,5),O);//当天开盘价
TIME>=1006 &&TIME<=1445&&C>REF(HHV(C,N),1)&&C>Y+Y*0.025,BK;//价格创新高
TIME>=1006&&C<REF(LLV(C,45),1) || C>=BKPRICE+4*(Y*0.01),SP;
TIME=1510,SP;
TIME>=1006 &&TIME<=1445&&C<REF(LLV(C,N),1)&&C<Y-Y*0.045,SK;
TIME>=1006&&C>REF(HHV(C,45),1) || C<=SKPRICE-6*(Y*0.05),BP;
TIME=1510,BP;
AUTOFILTER;

 

请老师帮我改为金字塔 谢谢！

 
--  作者：rushtaotao
--  发布时间：2013/2/4 13:33:01
--  

客服人员正在处理 请稍后

 
--  作者：marbob2005
--  发布时间：2013/2/4 16:11:29
--  谢谢老师
谢谢老师 辛苦了 ；有结果了吗
--  作者：just
--  发布时间：2013/2/4 16:46:17
--  

N:=BARSLAST(DATE<>REF(DATE,1))+1;//当天开盘至今的K线数
Y:=VALUEWHEN(DATE<>REF(DATE,1),O);//当天开盘价


if  (c<ref(llv(c,45),1) or c>=enterprice+4*(y*0.01)) then 
BEGIN
sellshort(holding<0 and time>=100600,holding,market);
end 

if time>=100600 and time<=144500 and c>ref(hhv(c,n),1) and c>y+y*0.025 then 
begin
buy(holding=0,1,market);
end

if  c>ref(hhv(c,45),1) or c<=enterprice-6*(y*0.05) then 
begin
sell(holding>0 and time>=100600 ,holding,market);
end 

if time>=100600 and time<=144500 and c<ref(llv(c,n),1) and c<y-y*0.45 then 
BEGIN
buyshort(holding=0,1,market);
end 

if time=151000 then BEGIN
sell(holding>0,holding,market);
sellshort(holding<0,holding,market);
end 

仅供参考
--  作者：tjphj
--  发布时间：2013/2/4 16:56:02
--  

N:=TODAYBAR;//当天开盘至今的K线数
Y:=VALUEWHEN(DATE<>REF(DATE,1),O);//;//当天开盘价
A1:=TIME>=100600 AND TIME<=144500 AND C>REF(HHV(C,N),1) AND C>Y+Y*0.025;//开多条件
A2:=TIME>=100600 AND C<REF(LLV(C,45),1);//平多条件之一
A3:=C>=ENTERPRICE+4*(Y*0.01);//平多条件之二
B1:=TIME>=100600 AND TIME<=144500 AND C<REF(LLV(C,N),1) AND C<Y-Y*0.045;//开空条件
B2:=TIME>=100600 AND C>REF(HHV(C,45),1);
B3:=C<=ENTERPRICE-6*(Y*0.05);
IF B2=1 OR B3=1 THEN SELLSHORT(1,0,THISCLOSE);//平空
IF A1=1 THEN  BUY(1,1,THISCLOSE);//开多
IF A2=1 OR A3=1 THEN SELL(1,0,THISCLOSE);//平多
IF B1=1 THEN BUYSHORT(1,1,THISCLOSE);//开空
IF TIME=151000  THEN BEGIN //收盘前平仓
SELL(HOLDING>0,0,THISCLOSE);
SELLSHORT(HOLDING>0,0,THISCLOSE);
END

 
--  作者：marbob2005
--  发布时间：2013/2/4 21:44:11
--  谢谢老师们！
谢谢老师们！辛苦了！