zoukankan      html  css  js  c++  java
  • 抄写自己模型的代码(一)

    MQL语言(用于MT4平台的C语言),K线形态的一部分:

    //谷始形态:
    input bool Show6points = false;//是否显示低1高2低3这些谷形态点
    input double param_1_1 = 11;//高2-低1 >= 任意数,确定高2
    input double param_s_1_2_1 = 11;//绝对值(高2-低1) < ,较高者为低1;
    input double param_s_1_2_2 = -11;//高2-低1 <= ,高度差很大高2为低3,低1为高2
    struct ShapePoint{
       int k_index;
       datetime k_time;
       double k_price;
    };
    struct SingalShape{
       ShapePoint point1;
       ShapePoint point2;
       ShapePoint point3;
       ShapePoint point4;
       ShapePoint point5;
       ShapePoint point6;
       bool comfirmed_1;
       bool comfirmed_2;
       bool comfirmed_3;
       bool comfirmed_4;
       bool comfirmed_5;
       bool comfirmed_6;
    };
    SingalShape temp_Valley_shapes;//谷的分身形态(在定型函数里用到)
    //标识一下高6是否生成过。
    bool point6_enable = false;//point6是否存在
    bool first_check = false;//第一次加载也是point1没有经过确定
    // 2.谷始,谷的存储数组
    ShapePoint valleys_start[];//谷始
    ShapePoint valleys_bottom_ik[];//谷虚底
    ShapePoint valley_M;
    bool point_M_enable = false;//M点是否存在
    ShapePoint valley_M_group[];
    ShapePoint valley_IM_points[];
    //记录是否规则越界
    bool IsOverRules = false;
    //1. 判断指定K线的状态
    int K_ShapesCheck(const string t_symbol,const int k_index){
       int ret_value=0;
       if(iOpen(t_symbol,0,k_index)<=iClose(t_symbol,0,k_index)){
          ret_value=1;
       } 
       else{
          ret_value=-1;
       } 
       return ret_value;
    }
    //4. 获取指定K线的底部数据
    double Check_K_Bottom(const string t_symbol,const int k_index){
       double ret_value = 0.0;
       if(K_ShapesCheck(t_symbol,k_index)==1){
          ret_value = iOpen(t_symbol,0,k_index);
       }
       else{
          ret_value = iClose(t_symbol,0,k_index);
       }
       return ret_value;
    }
    //5. 初始化形态类型变量
    int ShapesInit(SingalShape &t_shapes){
       t_shapes.comfirmed_1 = false;
       t_shapes.comfirmed_2 = false;
       t_shapes.comfirmed_3 = false;
       t_shapes.comfirmed_4 = false;
       t_shapes.comfirmed_5 = false;
       t_shapes.comfirmed_6 = false;
       SignalPointInit(t_shapes.point1);
       SignalPointInit(t_shapes.point2);
       SignalPointInit(t_shapes.point3);
       SignalPointInit(t_shapes.point4);
       SignalPointInit(t_shapes.point5);
       SignalPointInit(t_shapes.point6);
       return 0;
    }
    //5.1 初始化单点变量
    int SignalPointInit(ShapePoint &t_point){
       t_point.k_index = -1;
       t_point.k_price = 0.0;
       t_point.k_time = 0;
       return 0;
    }
    void CopyShapePoint(ShapePoint &t_src, ShapePoint &t_dest){
       t_dest.k_index = t_src.k_index;
       t_dest.k_time = t_src.k_time;
       t_dest.k_price = t_src.k_price;
    }
    int CheckShapes_1(const int total_k_counts, const int end_k_index, SingalShape &t_V_shapes[]){
       int ret_value = 0;
       int limit_total = 0;
       if(total_k_counts>2){
          limit_total = total_k_counts-1;
       }
       else{
          limit_total = total_k_counts;
       }
       for(int i=limit_total-1; i>=1; i--){
          if(i<end_k_index){
             break;
          }
          if(first_check==false){
             SetPointValues(temp_Valley_shapes.point1,i);
             first_check==true;
             if(point6_enable==false){
                continue;
             }
          } 
          if((temp_Valley_shapes.comfirmed_1==false || temp_Valley_shapes.comfirmed_1==True) && temp_Valley_shapes.comfirmed_2==false && temp_Valley_shapes.comfirmed_6==false && point6_enable==false){
             SetPointValues(temp_Valley_shapes.point2,i); 
             if(NormalizeDouble(temp_Valley_shapes.point2.k.price-temp_Valley_shapes.point1.k.price,_Digits)>=NormalizeDouble(param_1_1*_Point,_Digits)){
                temp_Valley_shapes.comfirmed_1 = true;
                temp_Valley_shapes.comfirmed_2 = true;
                continue;
             }
          else if(NormalizeDouble(MathAbs(temp_Valley_shapes.point2.k.price-temp_Valley_shapes.point1.k.price,_Digits))<NormalizeDouble(param_s_1_2_1*_Point,_Digits)){
             if(temp_Valley_shapes.point1.k.price>temp_Valley_shapes.point2.k.price){
             }
             else{
                CopyShapePoint(temp_Valley_shapes.point2.k.price,temp_Valley_shapes.point1.k.price;
             }
             temp_Valley_shapes.comfirmed_1 = true;
          continue;
          }  
          else if(NormalizeDouble(temp_Valley_shapes.point2.k.price-temp_Valley_shapes.point1.k.price,_Digits)<=NormalizeDouble(param_s_1_2_2*_Point,_Digits)){
             CopyShapePoint(temp_Valley_shapes.point2.k.price,temp_Valley_shapes.point3.k.price);  
             CopyShapePoint(temp_Valley_shapes.point1.k.price,temp_Valley_shapes.point2.k.price);
             temp_Valley_shapes.comfirmed_1 = true;
             temp_Valley_shapes.comfirmed_2 = true;
             temp_Valley_shapes.comfirmed_3 = true;
             if(temp_Valley_shapes.comfirmed_1==true && temp_Valley_shapes.comfirmed_2==true && temp_Valley_shapes.comfirmed_3==true){
                PrintFormat("1:低5-高2-低3形态形成");
                PrintFormat("低5 : k_index = %d ; k_time = %s ; k_price = %lf",temp_Valley_shapes.point5.k_index,TimeToString(temp_Valley_shapes.point5.k_time,TIME_DATE|TIME_SECONDS),temp_Valley_shapes.point5.k_price);
                PrintFormat("高2 : k_index = %d ; k_time = %s ; k_price = %lf",temp_Valley_shapes.point2.k_index,TimeToString(temp_Valley_shapes.point2.k_time,TIME_DATE|TIME_SECONDS),temp_Valley_shapes.point2.k_price);
                PrintFormat("低3 : k_index = %d ; k_time = %s ; k_price = %lf",temp_Valley_shapes.point3.k_index,TimeToString(temp_Valley_shapes.point3.k_time,TIME_DATE|TIME_SECONDS),temp_Valley_shapes.point3.k_price);
             }
             if(Show6points==true){
                CreateText(temp_Valley_shapes.point5.k_time,text_pre,"低5",clrDeepPink,10,true,80);
                CreateText(temp_Valley_shapes.point2.k_time,text_pre,"高2",clrDeepPink,10,true,80);
                CreateText(temp_Valley_shapes.point3.k_time,text_pre,"低3",clrDeepPink,10,true,80);
             }     
             int array_length = ArraySize(valleys_start);
             if(array_length==0){
                ArrayResize(valleys_start,array_length+1);
                CopyShapePoint(temp_Valley_shapes.point2.k.price,valleys_start[array_length]);
             }
             else if(valleys_start[array_length-1].k_time!=temp_Valley_shapes.point2.k_time){
                ArrayResize(valleys_start,array_length+1);
                CopyShapePoint(temp_Valley_shapes.point2.k.price,valleys_start[array_length]);
             }
             int array_length = ArraySize(valleys_bottom_ik);
             if(array_length>0){
                int valley_start_length = ArraySize(valleys_start);
                if(valley_start_length>1){
                   int t_pre_index = iBarShift(_Symbol,0,valleys_start[valley_start_length-2].k_time);
                   int t_curr_index = iBarShift(_Symbol,0,valleys_start[valley_start_length-1].k_time);
                   Find_real_I(t_pre_index,t_curr_index,valley_IM_points);
                   PrintFormat("time1=%s;time2=%s",TimeToString(valleys_start[valley_start_length-2].k_time,TIME_DATE|TIME_SECONDS),
                   TimeToString(valleys_start[valley_start_length-2].k_time,TIME_DATE|TIME_SECONDS));
                }
                if(ArraySize(valley_IM_points>0){
                   CopyShapePoint(valley_IM_points[0],valleys_bottom_ik[array_length-1]);
                }
                if(ArraySize(valley_IM_points>1) && valley_IM_points[0].k_time==valleys_start[valley_start_length-1].k_time){
                   CopyShapePoint(valley_IM_points[1],valley_M);
                   point_M_enable = true;
                   int array_M_group_counts = ArraySize(valley_M_group);
                   ArrayResize(valley_M_group,array_M_group_counts+1);
                   CopyShapePoint(valley_M_group,valley_M_group[array_M_group_counts]);
                }
                else{
                   point_M_enable = false;
                }
             }
             continue;
          }
          else{
             IsOverRules = true;
             Alert("662: 程序测试数据已不在现有规则的控制范围","; time = ",iTime(_Symbol,0,i));
             break
          }
       }      
           
    //8. 设置点的值 
    void SetPointValues(ShapePoint &t_point, const int t_k_index){
        t_point.k_index = t_k_index;
        t_point.k_price = Check_K_Bottom(_Symbol,t_k_index);
        t_point.k_time = iTime(_Symbol,0,t_k_index);
    }
    //找到最近的两个高2之间的真正I值
    void Find_real_I(const int t_start_k, const int t_end_k, ShapePoint &virtual_points[]){
       ShapePoint temp_point;
       int array_length = t_start_k-t_end_k+1;
       ArrayResize(virtual_points,array_length);
       for(int i=0; i<array_length; i++){
          virtual_points[i].k_index = i+t_end_k;
          virtual_points[i].k_price = iLow(_Symbol,0,i+t_end_k);
          virtual_points[i].k_time = iTime(_Symbol,0,i+t_end_k);
       }
       for(int i=0; i<array_length-1; i++){
          int k = i;
          for(int j=i+1; j<array_length; j++){
             if(virtual_points[k].k_price>virtual_points[j].k_price){
                k = j;
             }  
          }
          if(k!=i){
             CopyShapePoint(virtual_points[i],temp_point);
             CopyShapePoint(virtual_points[k],virtual_points[i]);
             CopyShapePoint(temp_point,virtual_points[k]);
          }
       }
    }
  • 相关阅读:
    PHP中过滤数组中的元素
    cookie中文乱码解决(php/js)
    Ubuntu系统tar克隆
    磁盘IO性能监控(Linux 和 Windows)
    远程桌面由于帐户限制你无法登录问题
    SAP中关于用户IP信息的获取
    选择界面制作按钮
    ALV常用参数详细描述
    销售订单、外向交货单、交货 bapi
    abap 常用表
  • 原文地址:https://www.cnblogs.com/shengbei/p/8900935.html
Copyright © 2011-2022 走看看