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

左栏

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → 求老师翻译一下这个源码，基于神经网络算法的

   

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

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

主题：求老师翻译一下这个源码，基于神经网络算法的
帅哥哟，离线，有人找我吗？
cc315416174
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：28 积分：0 威望：0 精华：0 注册：2016/2/21 14:16:08 		求老师翻译一下这个源码，基于神经网络算法的  发帖心情 Post By：2016/4/14 0:23:13    Post IP：60.22.168.233[显示全部帖子]

  1. //---- input parameters

  3. extern double       tp1 = 50;

  5. extern double       sl1 = 50;

  7. extern int          p1 = 10;

  9. extern int          x12 = 100;

  11. extern int          x22 = 100;

  13. extern int          x32 = 100;

  15. extern int          x42 = 100;

  17. extern double       tp2 = 50;

  19. extern double       sl2 = 50;

  21. extern int          p2 = 20;

  23. extern int          x13 = 100;

  25. extern int          x23 = 100;

  27. extern int          x33 = 100;

  29. extern int          x43 = 100;

  31. extern double       tp3 = 50;

  33. extern double       sl3 = 50;

  35. extern int          p3 = 20;

  37. extern int          x14 = 100;

  39. extern int          x24 = 100;

  41. extern int          x34 = 100;

  43. extern int          x44 = 100;

  45. extern int          p4 = 20;

  47. extern int          pass = 1;

  49. extern double       lots = 0.01;

  51. extern int          mn = 888;

  53. static int          prevtime = 0;

  55. static double       sl = 10;

  57. static double       tp = 10;







  65. //+------------------------------------------------------------------+

  67. //| expert start function                                            |

  69. //+------------------------------------------------------------------+

  71. int start()

  73.   {

  75.    if (Time[0] == prevtime) return(0);

  77.    prevtime = Time[0];

  79.   

  81.    if (! IsTradeAllowed()) {

  83.       again();

  85.       return(0);

  87.    }

  89. //----

  91.    int total = OrdersTotal();

  93.    for (int i = 0; i < total; i++) {

  95.       OrderSelect(i, SELECT_BY_POS, MODE_TRADES);

  97.       if (OrderSymbol() == Symbol() && OrderMagicNumber() == mn) {

  99.          return(0);

  101.       }

  103.    }

  105.   

  107.    sl = sl1;

  109.    tp = tp1;

  111.   

  113.    int ticket = -1;

  115.   

  117.    RefreshRates();

  119.   

  121.    if (Supervisor() > 0) {

  123.       ticket = OrderSend(Symbol(), OP_BUY, lots, Ask, 1, Bid - sl * Point, Bid + tp * Point, WindowExpertName(), mn, 0, Blue);

  125.       if (ticket < 0) {

  127.          again();     

  129.       }

  131.    } else {

  133.       ticket = OrderSend(Symbol(), OP_SELL, lots, Bid, 1, Ask + sl * Point, Ask - tp * Point, WindowExpertName(), mn, 0, Red);

  135.       if (ticket < 0) {

  137.          again();

  139.       }

  141.    }

  143. //-- Exit --

  145.    return(0);

  147. }

  149. //+--------------------------- getLots ----------------------------------+





  155. double Supervisor() {

  157.    if (pass == 4) {

  159.       if (perceptron3() > 0) {

  161.          if (perceptron2() > 0) {

  163.             sl = sl3;

  165.             tp = tp3;

  167.             return(1);

  169.          }

  171.        } else {

  173.          if (perceptron1() < 0) {

  175.             sl = sl2;

  177.             tp = tp2;

  179.             return(-1);

  181.          }

  183.       }

  185.       return(basicTradingSystem());

  187.    }



  191.  

 回到顶部
帅哥哟，离线，有人找我吗？
cc315416174
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：28 积分：0 威望：0 精华：0 注册：2016/2/21 14:16:08 		  发帖心情 Post By：2016/4/14 0:24:20    Post IP：60.22.168.233[显示全部帖子]

 if (pass == 3) {

  •       if (perceptron2() > 0) {

  •          sl = sl3;

  •          tp = tp3;

  •          return(1);

  •        } else {

  •          return(basicTradingSystem());

  •        }

  •    }




    		•
     回到顶部
    帅哥哟，离线，有人找我吗？
    cc315416174
    		 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


    加好友 发短信
    等级：新手上路 帖子：28 积分：0 威望：0 精华：0 注册：2016/2/21 14:16:08     		  发帖心情 Post By：2016/4/14 0:24:59    Post IP：60.22.168.233[显示全部帖子]

  •    if (pass == 2) {

  •       if (perceptron1() < 0) {

  •          sl = sl2;

  •          tp = tp2;

  •          return(-1);

  •        } else {

  •          return(basicTradingSystem());

  •        }



  •    }

  •    return(basicTradingSystem());

  • }




    		•
     回到顶部
    帅哥哟，离线，有人找我吗？
    cc315416174
    		 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


    加好友 发短信
    等级：新手上路 帖子：28 积分：0 威望：0 精华：0 注册：2016/2/21 14:16:08     		  发帖心情 Post By：2016/4/14 0:25:36    Post IP：60.22.168.233[显示全部帖子]

  • double perceptron1()   {

  •    double       w1 = x12 - 100;

  •    double       w2 = x22 - 100;

  •    double       w3 = x32 - 100;

  •    double       w4 = x42 - 100;

  •    double a1 = Close[0] - Open[p2];

  •    double a2 = Open[p2] - Open[p2 * 2];

  •    double a3 = Open[p2 * 2] - Open[p2 * 3];

  •    double a4 = Open[p2 * 3] - Open[p2 * 4];

  •    return(w1 * a1 + w2 * a2 + w3 * a3 + w4 * a4);

  • }




    		•
     回到顶部
    帅哥哟，离线，有人找我吗？
    cc315416174
    		 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


    加好友 发短信
    等级：新手上路 帖子：28 积分：0 威望：0 精华：0 注册：2016/2/21 14:16:08     		  发帖心情 Post By：2016/4/14 0:26:08    Post IP：60.22.168.233[显示全部帖子]

  • double perceptron2()   {

  •    double       w1 = x13 - 100;

  •    double       w2 = x23 - 100;

  •    double       w3 = x33 - 100;

  •    double       w4 = x43 - 100;

  •    double a1 = Close[0] - Open[p3];

  •    double a2 = Open[p3] - Open[p3 * 2];

  •    double a3 = Open[p3 * 2] - Open[p3 * 3];

  •    double a4 = Open[p3 * 3] - Open[p3 * 4];

  •    return(w1 * a1 + w2 * a2 + w3 * a3 + w4 * a4);

  • }




    		•
     回到顶部
    帅哥哟，离线，有人找我吗？
    cc315416174
    		 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


    加好友 发短信
    等级：新手上路 帖子：28 积分：0 威望：0 精华：0 注册：2016/2/21 14:16:08     		  发帖心情 Post By：2016/4/14 0:26:21    Post IP：60.22.168.233[显示全部帖子]

  • double perceptron3()   {

  •    double       w1 = x14 - 100;

  •    double       w2 = x24 - 100;

  •    double       w3 = x34 - 100;

  •    double       w4 = x44 - 100;

  •    double a1 = Close[0] - Open[p4];

  •    double a2 = Open[p4] - Open[p4 * 2];

  •    double a3 = Open[p4 * 2] - Open[p4 * 3];

  •    double a4 = Open[p4 * 3] - Open[p4 * 4];

  •    return(w1 * a1 + w2 * a2 + w3 * a3 + w4 * a4);

  • }



  • double basicTradingSystem() {

  •    return(iCCI(Symbol(), 0, p1, PRICE_OPEN, 0));

  • }



  • void again() {

  •    prevtime = Time[1];

  •    Sleep(30000);

  • }

    		•
     回到顶部
    RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
    页面执行时间 00.06250 秒, 7 次数据查询