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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → [求助]以下两个策略合并,怎么只运行策略2?

   

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


  共有4334人关注过本帖平板打印复制链接

主题:[求助]以下两个策略合并,怎么只运行策略2?

美女呀,离线,留言给我吧!
wina40
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:64 积分:0 威望:0 精华:0 注册:2013/9/3 11:28:44
  发帖心情 Post By:2013/9/29 15:43:34    Post IP:120.42.18.143[只看该作者]

INPUT:LL1(20,2,100,1),LH1(80,2,100,1);

INPUT:SS(1,1,100,1),ADXP(27,7,45,1),ADXM(13,3,40,1);


TR1 := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),ADXP);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),ADXP);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),ADXP);
PDI:= DMP*100/TR1;
MDI:= DMM*100/TR1;
ADX:= MA(ABS(MDI-PDI)/(MDI+PDI)*100,ADXM);
ADXR:=(ADX+REF(ADX,ADXM))/2;

INPUT:SARP(13,5,100,1),STEP(7,2,7,1),MAXP(19,5,100,1);
SAR1:ABS(SAR(SARP,STEP,MAXP)),CIRCLEDOT;

 

ADXXS:=ADX>REF(ADX,1);//A.当ADX 上升时:
ADXXX:=ADX<=REF(ADX,1);//B.当ADX下降或走平时


//趋势行情
KDA1:=C>SAR1  ;//趋势开多,SAR 在K线下方。
KKA1:=C<SAR1  ;//趋势开空,SAR 在K线上方。

PDA1:=CROSS(SAR1,C);//趋势平多,当价格从上向下穿SAR时
PKA1:=CROSS(C,SAR1);//趋势平空,当价格从下向上穿SAR时。
{ADXXX:=ADX<=REF(ADX,1);//B.当ADX下降或走平时}


//震荡
INPUT: N1(6,2,100,10);
LC := REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100;

A1:=RSI1<LL1,COLORRED;// RSI向上穿越20,平空开多
A2:=RSI1>LH1,COLORGREEN;//卖RSI下穿80,平多开空


     
//交易系统

//趋势行情,ADX上升时,用SAR开平仓。

variable:n=0;
 
IF N=1 THEN BEGIN


    平多: SELL((ADXXX OR PDA1) AND HOLDING>0,ss,MARKETR);   

     平空:sellshort((ADXXX OR PKA1) and holding<0,ss,marketr);  
  N:=0;
  END

IF ADXXS AND N=0 THEN BEGIN

    开空:BUYSHORT(KKA1 AND HOLDING=0,SS,MARKETR);
     
    开多: BUY(KDA1 AND HOLDING=0,SS,MARKETR);
    
  N:=1;
   
  END

//震荡行情,ADX下降时用RSI超买超卖开平仓

   variable:m=0;
     
   IF m=1   THEN BEGIN
  
     平空2:SELLSHORT((ADXXS OR A1) AND HOLDING<0,ss,MARKETR);
     平多2:SELL((ADXXS OR A2) AND HOLDING>0,ss,MARKETR);
       m:=0;
    END
 
 
  IF ADXXX  and m=0 THEN BEGIN
      
         开多2:BUY( A1 AND HOLDING=0,SS,MARKETR);   
         开空2:buyshort(A2 AND HOLDING=0,SS,MARKETR);
        
          m:=1;
    END


 回到顶部
总数 22 1 2 3 下一页