欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → [求助]为何这段代码编译通不过请高手帮忙改改看看问题在哪

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有3841人关注过本帖树形打印复制链接

主题:[求助]为何这段代码编译通不过请高手帮忙改改看看问题在哪

帅哥哟,离线,有人找我吗?
winewine99
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:47 积分:422 威望:0 精华:1 注册:2010/3/19 15:47:54
[求助]为何这段代码编译通不过请高手帮忙改改看看问题在哪  发帖心情 Post By:2012/9/16 9:41:14    Post IP:125.39.34.57[只看该作者]

last_high_0:=EXTGBDATA('last_high');
last_low_0:=EXTGBDATA('last_low');
kc_price_0:=EXTGBDATA('kc_price');
tx_holding_0:=EXTGBDATA('tx_holding');

high_0:=high;
close_0:=close;
low_0:=low;


if tx_holding_0>0 and high_0>last_high_0 then EXTGBDATASET('last_high',high_0);
if tx_holding_0<0 and low_0<last_low_0 then EXTGBDATASET('last_low',low_0);


if last_high_0=kc_price_0 then last_high_0:=last_high_0+50;
if last_low_0 =kc_price_0 then last_low_0 :=last_low_0-50;

开多仓后最高涨幅:=(last_high_0-kc_price_0)/kc_price_0;
开多涨回撤比例限制:=1/sqrt(开多仓后最高涨幅*100+止赢系数);
开多涨回撤幅度限制:=(last_high_0-kc_price_0)*开多涨回撤比例限制;
开多涨回撤价格限制:=last_high_0-开多涨回撤幅度限制;
if 开多仓后最高涨幅<1.5% then  开多涨回撤价格限制:=last_high_0*(1-止损百分比);

 

pd_tj_多头止损:=tx_holding_0>0  and     ( close_0<kc_price_0*(1-止损百分比)  );
pd_tj_多头止赢:=tx_holding_0>0  and     (  close_0<开多涨回撤价格限制 );


开空仓后最大跌幅:=(kc_price_0-last_low_0)/kc_price_0;
开空跌回撤比例限制:=1/sqrt(开空仓后最大跌幅*100+止赢系数);
开空跌回撤幅度限制:=(kc_price_0-last_low_0)*开空跌回撤比例限制;
开空跌回撤价格限制:=last_low_0+开空跌回撤幅度限制;
if 开空仓后最大跌幅<1.5% then  开空跌回撤价格限制:=last_low_0*(1+止损百分比);


pk_tj_空头止损:=tx_holding_0<0  and     ( close_0>kc_price_0*(1+止损百分比)  );
pk_tj_空头止赢:=tx_holding_0<0  and     ( close_0>开空跌回撤价格限制 );

 

 

 

 

{平多}EXITLONG:    pd_tj_多头止损  or pd_tj_多头止赢  ,ORDERQUEUE ;  {  ,TFILTER; }
{平空}EXITSHORT:  pk_tj_空头止损  or pk_tj_空头止赢  ,ORDERQUEUE ;  {  ,TFILTER; }
 
{开多}ENTERLONG:  KD_TJ    ,ORDERQUEUE        ;  { ,TFILTER;  }
{开空}ENTERSHORT: KK_TJ    ,ORDERQUEUE        ;  { ,TFILTER;  }

 

 

// 开多 保存全局变量
if ( KD_TJ  and tx_holding_0<1  ) then   
                                                      begin  EXTGBDATASET('last_high',high_0);
                                                             EXTGBDATASET('last_low',low_0);
                                                             EXTGBDATASET('tx_holding',1);
                                                             EXTGBDATASET('kc_price',close_0);
                                                           
                                                      end
// 开空 保存全局变量                                                     
if ( KK_TJ and tx_holding_0>-1 ) then   
                                                      begin  EXTGBDATASET('last_high',high_0);
                                                             EXTGBDATASET('last_low',low_0);
                                                             EXTGBDATASET('tx_holding',-1);
                                                             EXTGBDATASET('kc_price',close_0);
                                                      end 
              
             

// 平多仓后保存全局变量
if (( pd_tj_多头止损  or pd_tj_多头止赢 ) and tx_holding_0>0 ) then   
                                                                                                                 begin  EXTGBDATASET('last_high',1);
                                                                                                                        EXTGBDATASET('last_low',1);
                                                                                                                        EXTGBDATASET('tx_holding',0);
                                                                                                                        EXTGBDATASET('kc_price',1);
                                                                                                                  end

// 平空仓后保存全局变量                                                                                                                 
if (( pk_tj_空头止损  or pk_tj_空头止赢 ) and tx_holding_0<0 )   then   
                                                                                                                 begin  EXTGBDATASET('last_high',1);
                                                                                                                        EXTGBDATASET('last_low',1);
                                                                                                                        EXTGBDATASET('tx_holding',0);
                                                                                                                        EXTGBDATASET('kc_price',1);
                                                                                                                  end


 回到顶部
帅哥哟,离线,有人找我吗?
魏纪
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:5 积分:25 威望:0 精华:0 注册:2012/9/16 10:01:46
  发帖心情 Post By:2012/9/16 10:19:23    Post IP:180.168.119.67[只看该作者]

这段公式代码不是完整的代码,而只是一段伪代码,里面很多地方需要用户自己填写自己的交易设置的。

如果你看不懂这些代码,请用户认真的先从金字塔的最基础的地方开始学起,不要急躁

 

《金字塔决策交易系统公式编程》(基础篇)

下载地址:http://www.weistock.com/download/FormulaHelp1.rar 


 

《金字塔程式化交易设计指南》(高级篇)

下载地址:http://www.weistock.com/download/FormulaHelp2.rar  


 回到顶部
帅哥哟,离线,有人找我吗?
g555
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:43 积分:179 威望:0 精华:0 注册:2011/10/27 20:06:17
  发帖心情 Post By:2012/9/16 14:02:59    Post IP:221.236.103.121[只看该作者]

代码不全。

 

 KD_TJ  没有定义。 KD_TJ  就是开多仓的条件

 

 KK_TJ    开空条件没有定义


 回到顶部
帅哥哟,离线,有人找我吗?
g555
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:43 积分:179 威望:0 精华:0 注册:2011/10/27 20:06:17
  发帖心情 Post By:2012/9/16 14:04:31    Post IP:221.236.103.121[只看该作者]

1.5%  要改成0.015

 回到顶部