Rss & SiteMap

金字塔客服中心 - 专业程序化交易软件提供商 http://www.weistock.com/bbs/

专业程序化软件提供商
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:请老师帮我改为金字塔

1楼
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;

 

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

 

2楼
rushtaotao 发表于:2013/2/4 13:33:01

客服人员正在处理 请稍后

 

3楼
marbob2005 发表于:2013/2/4 16:11:29
谢谢老师 辛苦了 ;有结果了吗
4楼
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 

仅供参考
5楼
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

 

6楼
marbob2005 发表于:2013/2/4 21:44:11
谢谢老师们!辛苦了!
共6 条记录, 每页显示 10 条, 页签: [1]


Powered By Dvbbs Version 8.3.0
Processed in 0.10547 s, 3 queries.