以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  策略编写求助区  (http://weistock.com/bbs/list.asp?boardid=11)
----  老师，帮忙写个模型  (http://weistock.com/bbs/dispbbs.asp?boardid=11&id=29615)
--  作者：漫步金字塔
--  发布时间：2012/10/3 23:46:46
--  老师，帮忙写个模型

每天从当天最高价下降A点做空，B点止损，D点止盈，从最低价上升A点做空，B点止损，D点止盈。

盈利一次后结束当天交易。麻烦老师编写下。谢谢
--  作者：RogarZ
--  发布时间：2012/10/4 13:01:45
--  
A B D 分别怎么定义？
--  作者：漫步金字塔
--  发布时间：2012/10/5 17:47:44
--  
ABD就是一个参数啊！老师
--  作者：jinzhe
--  发布时间：2012/10/8 11:20:07
--  
当天最高价在实际行情中是变化的，你这么搞会有未来的
--  作者：漫步金字塔
--  发布时间：2012/10/8 22:31:02
--  

错了，老师，是当前！呵呵
--  作者：fly
--  发布时间：2012/10/9 14:24:13
--  

variable:flag=0;// 全局变量,平仓时判断一下是盈利/亏损，若盈利则当天不再开仓

 

n:=barslast(date<>ref(date,1))+1;

 

//当天最高价.最低价
h1:=hhv(h,n);
l1:=llv(l,n);

 

//从当天最高价下降50最小变动价位开空仓
if l<h1-50*mindiff and h<>h1 and holding=0 and flag=0 then buyshort(1,1,thisclose);

 

//从当天最低价上升50最小变动价位开空仓
if h>l1+50*mindiff and l<>l1 and holding=0 and flag=0 then buyshort(1,1,thisclose);

 

//比开仓价高20个最小变动价位止损
if holding<0 and h>ENTERPRICE+20*MINDIFF and ENTERBARS>1 then
 BEGIN
 空损:SELLSHORT(1,1,THISCLOSE);
 END

 

//比开仓价低40个最小变动价位止赢 
if holding<0 and l<ENTERPRICE-40*MINDIFF and ENTERBARS>1 then
 BEGIN
 空盈:SELLSHORT(1,1,THISCLOSE);
 flag:=1;
 END
 
if time=CLOSETIME(0) then flag:=0;// 收盘的同时,flag赋值为0;收盘flag不赋值为0，第二天就不再开仓了
--  作者：fly
--  发布时间：2012/10/9 14:25:45
--  

运行在1分钟周期下