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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 帮忙看看这代码哪里有问题?为什么总提示有问题。谢谢。

   

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


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

主题:帮忙看看这代码哪里有问题?为什么总提示有问题。谢谢。

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


加好友 发短信
等级:新手上路 帖子:21 积分:108 威望:0 精华:0 注册:2010/9/27 10:18:19
帮忙看看这代码哪里有问题?为什么总提示有问题。谢谢。  发帖心情 Post By:2012/3/7 1:14:08    Post IP:183.25.207.37[只看该作者]

INPUT:P(1,0,200,1),P1(5,0,50,1),N(6,5,30,1);
VARIABLE:MAXPROFIT=0,VMIN = 090000;            
WIN1:=0;                                                           
WIN2:=0;//止盈、止损、回撤控制 
 EMA1:=EMA(CLOSE,20);
 DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
 DEA:=EMA(DIFF,9);
 MACD:=2*(DIFF-DEA);
 EMA2:=barslast(cross(macd,0));
 EMA3:=barslast(cross(0,macd));
                          
开多:=EMA2<=5 and HIGH>=EMA1+4;                                            
平多:=EMA3<=5 and LOW<=EMA1-4;                                             
开空:=EMA3<=5 and LOW<=EMA1-4;                                             
平空:=EMA2<=5 and HIGH>=EMA1+4;                                          
交易时间:=TIME>VMIN AND TIME<151500;                                                                                       
  IF HOLDING=0 THEN BEGIN 
     IF 交易时间 AND 开多 THEN BEGIN
         BUY(1,LIMITR,CLOSE);
         MAXPROFIT:=0;
     END 
 
     IF 交易时间 AND 开空 THEN BEGIN
         BUYSHORT(1,LIMITR,CLOSE);
         MAXPROFIT:=0;
     END
 END
 
 IF HOLDING>0 THEN BEGIN 
     IF 平多 THEN
         SELL(1,HOLDING,LIMITR,CLOSE); 
     IF NOT(交易时间) THEN
         SELL(1,HOLDING,LIMITR,CLOSE); 
     IF ENTERBARS>0 THEN BEGIN
         WIN1:=(CLOSE-ENTERPRICE)/ENTERPRICE*100;
         IF WIN1>MAXPROFIT THEN
             MAXPROFIT:=WIN1;
         WIN2:=(MAXPROFIT-WIN1)/MAXPROFIT*100;
     END 
     IF CLOSE-ENTERPRICE<-P1 THEN
         SELL(1,HOLDING,LIMITR,CLOSE);
    
    IF 6<MAXPROFIT <= 15 and MAXPROFIT - WIN1 = 1 THEN                                                                                                                                                                                                                                                                        
         SELL(1,HOLDING,LIMITR,CLOSE);
 
    
  IF 15<=MAXPROFIT<=20 and WIN2>40 THEN 
 
         SELL(1,HOLDING,LIMITR,CLOSE);

     
     
  IF 20<=MAXPROFIT<=30 and WIN2>35 THEN 
        
         SELL(1,HOLDING,LIMITR,CLOSE);

     
     
  IF 30<=MAXPROFIT<=50 and WIN2>30 THEN 
        
         SELL(1,HOLDING,LIMITR,CLOSE); 

     
  IF 50<=MAXPROFIT<=100 and WIN2>25 THEN 
        
         SELL(1,HOLDING,LIMITR,CLOSE); 

    
  IF MAXPROFIT>=100 and WIN2>20 THEN
         SELL(1,HOLDING,LIMITR,CLOSE);
 END
 
 IF HOLDING<0 THEN BEGIN  
     IF 平空 THEN
         SELLSHORT(1,HOLDING,LIMITR,CLOSE); 
     IF NOT(交易时间) THEN
         SELLSHORT(1,HOLDING,LIMITR,CLOSE); 
     IF ENTERBARS>0 THEN BEGIN
         WIN1:=(ENTERPRICE-CLOSE)/ENTERPRICE*100;
         IF WIN1>MAXPROFIT THEN
             MAXPROFIT:=WIN1;
         WIN2:=(MAXPROFIT-WIN1)/MAXPROFIT*100;
     END 
     IF ENTERPRICE-CLOSE <-P1 THEN
         SELLSHORT(1,HOLDING,LIMITR,CLOSE);
    
    IF 6<MAXPROFIT <= 15 and MAXPROFIT - WIN1 = 1 THEN                                                                                                                                                                                                                                                                        
         SELLSHORT(1,HOLDING,LIMITR,CLOSE);
     
  IF 15<=MAXPROFIT<=20 and WIN2>40 THEN 
 
         SELLSHORT(1,HOLDING,LIMITR,CLOSE);

          
  IF 20<=MAXPROFIT<=30 and WIN2>35 THEN 
        
         SELLSHORT(1,HOLDING,LIMITR,CLOSE);

     
     
  IF 30<=MAXPROFIT<=50 and WIN2>30 THEN 
        
         SELLSHORT(1,HOLDING,LIMITR,CLOSE);

         
  IF 50<=MAXPROFIT<=100 and WIN2>25 THEN 
        
         SELLSHORT(1,HOLDING,LIMITR,CLOSE); 

    
  IF MAXPROFIT>=100 and WIN2>20 THEN
         SELLSHORT(1,HOLDING,LIMITR,CLOSE);
 END 

 


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


加好友 发短信 原leevolvo
等级:版主 帖子:2160 积分:10563 威望:0 精华:11 注册:2010/11/3 11:21:19
  发帖心情 Post By:2012/3/7 8:04:22    Post IP:120.42.45.130[只看该作者]

把EMA2 换个名字就可以了

 

EMA2 是金字塔关键字 。。


 回到顶部