欢迎您光临博庭社区!

 找回密码
 立即注册
查看: 23604|回复: 72

已更新【回馈金魔方论坛1】缠论分笔(金魔方语言,逐根)   [复制链接]

Rank: 4

发表于 2013-12-5 15:10:45 |显示全部楼层
本帖最后由 benyip 于 2013-12-22 23:44 编辑

1、逐根模式;
2、参数0: 使用旧笔标准;
     参数1: 使用新笔标准;


3、保证一笔最高最低点是该笔的顶和底(注:指包含处理后,不一定是实际的最高最低,以后其他应用时可以根据情况标准化为最高最低点,如同线段划分时的标准化概念)

欢迎大家试用,多提意见!以后有时间,再分享线段公式。

源码:
  1. //逐根
  2. #Run_By_Bar
  3. #Run_Every_Bar
  4. #NoDefaultOutput
  5. #MainChart
  6. //自定义
  7. #define 上涨             1
  8. #define 下跌            -1
  9. #define 盘整             0
  10. #Define 顶               1
  11. #Define 底              -1
  12. #Define 上破             2
  13. #Define 下破            -2
  14. #Define 废弃的顶         3
  15. #Define 废弃的底        -3
  16. #Define 分型右侧元素延伸 1
  17. #Define 向上笔分型构造   5
  18. #Define 向上笔延伸       6
  19. #Define 向下笔分型构造  -5
  20. #Define 向下笔延伸      -6
  21. #Define 笔中的顶         7
  22. #Define 笔中的底        -7
  23. #Define 新笔周期         3
  24. #Define 新笔             3
  25. #Define 旧笔             4
  26. #Define 最新完成K线位置  0

  27. Input:
  28.   新笔标准(1);
  29.   
  30. VARIABLE:
  31.   新高(0),新低(0),笔状态(0),K线方向(0),TL_ID(-1),                //连续
  32.   K线类型(0), 分型区间上沿(0), 分型区间下沿(0), 笔尖(Invalid),  //离散
  33.   
  34.   NumericSimple i(0),
  35.   NumericSimple 前笔高点位置(0),//顶位置
  36.   NumericSimple 前笔低点位置(0),//底位置
  37.   NumericSimple 今笔高点位置(0),//顶位置
  38.   NumericSimple 今笔低点位置(0),//底位置
  39.   
  40.   NumericSimple 顶位置(0),//笔中分型顶
  41.   NumericSimple 底位置(0),//笔中分型底
  42.   NumericSimple 分型上沿(0),//分型区间上沿
  43.   NumericSimple 分型下沿(0),//分型区间下沿
  44.   
  45.   NumericSimple 分型右侧元素(1),//分型右侧元素包含
  46.   NumericSimple 新K形成(0),     //非包含
  47.   NumericSimple 找到符合K线(0), //特殊处理时标志
  48.   NumericSimple 笔计数(0);      //计算一笔的非包含K线数

  49. //******************************主程序******************************

  50. //1.第一根K线处理
  51. 笔:笔尖,LineDot,ColorYellow;

  52.   
  53. IF BARPOS=最新完成K线位置+1 THEN
  54. BEGIN
  55.   前笔高点位置=最新完成K线位置;
  56.   前笔低点位置=最新完成K线位置;
  57.   今笔高点位置=最新完成K线位置;
  58.   今笔低点位置=最新完成K线位置;
  59.   顶位置=最新完成K线位置;
  60.   底位置=最新完成K线位置;
  61.   分型上沿=High[最新完成K线位置];
  62.   分型下沿=Low[最新完成K线位置];
  63.   新高[最新完成K线位置]=分型上沿;
  64.   新低[最新完成K线位置]=分型下沿;
  65.   K线方向[最新完成K线位置]=盘整;
  66.   笔状态[最新完成K线位置]=盘整;
  67.   Print('第一根K线处理');
  68.   
  69.   Exit;
  70. END;

  71. 前笔高点位置++;
  72. 前笔低点位置++;
  73. 今笔高点位置++;
  74. 今笔低点位置++;
  75. 顶位置++;
  76. 底位置++;

  77. //2.K线处理
  78. 新K形成=True;
  79. //2.1 K线方向
  80.   //2.1.1 上升K线
  81. If High[最新完成K线位置]>新高[最新完成K线位置+1] And
  82.    Low[最新完成K线位置]>新低[最新完成K线位置+1]  Then
  83. Begin
  84.   K线方向[最新完成K线位置]=上涨;
  85.   顶位置=最新完成K线位置;
  86. End Else Begin
  87.   //2.1.2 下降K线
  88.   If High[最新完成K线位置]<新高[最新完成K线位置+1] And
  89.      Low[最新完成K线位置]<新低[最新完成K线位置+1] Then
  90.   Begin
  91.     K线方向[最新完成K线位置]=下跌;
  92.         底位置=最新完成K线位置;
  93.   End Else Begin
  94.   //2.1.3 包含K线,保持原方向
  95.     K线方向[最新完成K线位置]=K线方向[最新完成K线位置+1];
  96.         新K形成=False;
  97.   End;
  98. End;       

  99. //2.2 非包含处理序列K线
  100. If 新K形成=False Then
  101. Begin
  102.   If K线方向[最新完成K线位置]=下跌 Then
  103.   Begin
  104.     新高[最新完成K线位置]=Min(High[最新完成K线位置],新高[最新完成K线位置+1]);
  105.         If Low[最新完成K线位置]<=新低[最新完成K线位置+1] Then
  106.         Begin
  107.           新低[最新完成K线位置]=Low[最新完成K线位置];
  108.           底位置=最新完成K线位置;
  109.           分型下沿=Low[最新完成K线位置];
  110.           If 分型右侧元素=分型右侧元素延伸 Then
  111.             分型区间下沿[顶位置]=Min(分型区间下沿[顶位置],新低[最新完成K线位置]);
  112.         End Else
  113.           新低[最新完成K线位置]=新低[最新完成K线位置+1];       
  114.   End Else Begin
  115.         If High[最新完成K线位置]>=新高[最新完成K线位置+1] Then
  116.         Begin
  117.           新高[最新完成K线位置]=High[最新完成K线位置];
  118.           顶位置=最新完成K线位置;
  119.           分型上沿=High[最新完成K线位置];
  120.           If 分型右侧元素=分型右侧元素延伸 Then
  121.             分型区间上沿[底位置]=Max(分型区间上沿[底位置],新高[最新完成K线位置]);
  122.         End Else
  123.           新高[最新完成K线位置]=新高[最新完成K线位置+1];
  124.         If K线方向[最新完成K线位置]=上涨 Then
  125.       新低[最新完成K线位置]=Max(Low[最新完成K线位置],新低[最新完成K线位置+1]);
  126.         Else Begin
  127.           If Low[最新完成K线位置]<=新低[最新完成K线位置+1] Then
  128.           Begin
  129.             新低[最新完成K线位置]=Low[最新完成K线位置];
  130.             底位置=最新完成K线位置;
  131.             分型下沿=Low[最新完成K线位置];
  132.                 If 分型右侧元素=分型右侧元素延伸 Then
  133.               分型区间下沿[顶位置]=Min(分型区间下沿[顶位置],新低[最新完成K线位置]);
  134.           End Else
  135.             新低[最新完成K线位置]=新低[最新完成K线位置+1];
  136.         End;
  137.   End;
  138. End Else Begin
  139.   新高[最新完成K线位置]=High[最新完成K线位置];
  140.   新低[最新完成K线位置]=Low[最新完成K线位置];
  141.   If K线方向[最新完成K线位置]=下跌 And (K线方向[最新完成K线位置+1]=上涨 Or
  142.      K线方向[最新完成K线位置+1]=盘整) Then
  143.   Begin
  144.     分型区间上沿[顶位置]=分型上沿;
  145.         分型区间下沿[顶位置]=Min(分型下沿,新低[最新完成K线位置]);
  146.     分型下沿=新低[最新完成K线位置];
  147.         K线类型[顶位置]=笔中的顶;
  148.         分型右侧元素=True;
  149.   End Else Begin
  150.     If K线方向[最新完成K线位置]=上涨 And (K线方向[最新完成K线位置+1]=下跌 Or
  151.      K线方向[最新完成K线位置+1]=盘整) Then
  152.         Begin
  153.           分型区间下沿[底位置]=分型下沿;
  154.           分型区间上沿[底位置]=Max(分型上沿,新高[最新完成K线位置]);
  155.           分型上沿=新高[最新完成K线位置];
  156.           K线类型[底位置]=笔中的底;
  157.           分型右侧元素=True;
  158.         End Else Begin
  159.           分型右侧元素=False;
  160.           If K线方向[最新完成K线位置]=下跌 Then
  161.           Begin
  162.             分型上沿=新高[最新完成K线位置+1];
  163.                 分型下沿=新低[最新完成K线位置];
  164.           End Else Begin
  165.             分型上沿=新高[最新完成K线位置];
  166.                 分型下沿=新低[最新完成K线位置+1];
  167.           End;
  168.         End;
  169.   End;
  170.   
  171.   笔计数++;
  172. End;

  173. //3.笔处理

  174. 笔状态[最新完成K线位置]=笔状态[最新完成K线位置+1];

  175. //3.1 盘整K线
  176. If K线方向[最新完成K线位置+1]=盘整 Then
  177. Begin
  178.   //3.1.1 下跌K线
  179.   If 新K形成 And K线方向[最新完成K线位置]=下跌 Then
  180.   Begin
  181.     K线类型[顶位置]=顶;
  182.         笔状态[最新完成K线位置]=向上笔分型构造;
  183.         笔计数=1;
  184.         笔尖[顶位置]=High[顶位置];
  185.         笔[顶位置]=笔尖[顶位置];
  186.         今笔高点位置=顶位置;       
  187.         今笔低点位置=最新完成K线位置;
  188.         前笔高点位置=顶位置;
  189.         前笔低点位置=底位置;
  190.   End Else Begin
  191.   //3.1.2 上涨K线
  192.     If 新K形成 And K线方向[最新完成K线位置]=上涨 Then
  193.     Begin
  194.           K线类型[底位置]=底;
  195.           笔状态[最新完成K线位置]=向下笔分型构造;  
  196.           笔计数=1;
  197.           笔尖[底位置]=Low[底位置];
  198.           笔[底位置]=笔尖[底位置];
  199.           今笔低点位置=底位置;       
  200.           今笔高点位置=最新完成K线位置;
  201.           前笔高点位置=顶位置;
  202.       前笔低点位置=底位置;
  203.     End;
  204.   End;
  205. End;

  206. //3.2 下跌K线
  207. If K线方向[最新完成K线位置]=下跌 Then
  208. Begin
  209.   Switch (笔状态[最新完成K线位置+1])
  210.   Begin
  211.     //3.2.1 向下笔延伸
  212.         Case 向上笔分型构造:
  213.           If 新低[最新完成K线位置]<分型区间下沿[前笔高点位置] Then
  214.           Begin
  215.             笔状态[最新完成K线位置]=向下笔延伸;
  216.                 今笔低点位置=最新完成K线位置;
  217.           End Else
  218.             If Low[最新完成K线位置]=分型区间下沿[前笔高点位置] Then
  219.                   今笔低点位置=最新完成K线位置;
  220.           
  221.         //3.2.2 向下笔继续延伸          
  222.         Case 向下笔延伸:
  223.           If Low[最新完成K线位置]<=新低[今笔低点位置] Then
  224.             今笔低点位置=最新完成K线位置;
  225.        
  226.         //3.2.3 向下笔分型构造或向上笔延伸
  227.         Default: Begin
  228.           //3.2.3.1 向上笔完成
  229.           If K线方向[最新完成K线位置+1]=上涨 And
  230.              笔状态[最新完成K线位置+1]=向上笔延伸 And
  231.              新高[最新完成K线位置+1]=新高[今笔高点位置]  And
  232.              ((笔计数>新笔 And 新笔标准=True And (今笔低点位置-今笔高点位置)>新笔周期) Or
  233.                  (笔计数>旧笔)) Then
  234.           Begin
  235.                         
  236.                   K线类型[今笔高点位置]=顶;
  237.                   笔状态[最新完成K线位置]=向上笔分型构造;
  238.                   笔计数=1;
  239.                   笔尖[今笔高点位置]=新高[今笔高点位置];
  240.                   笔[今笔高点位置]=笔尖[今笔高点位置];
  241.                   前笔高点位置=今笔高点位置;
  242.                   今笔低点位置=最新完成K线位置;
  243. //                  TL_ID[前笔低点位置]=Tl_New(Date[前笔低点位置],Time[前笔低点位置],新低[前笔低点位置],
  244. //                                             Date[前笔高点位置],Time[前笔高点位置],笔尖[前笔高点位置]);
  245. //                  Tl_SetColor(TL_ID[前笔低点位置],ColorYellow);
  246. //                  Tl_SetStyle(TL_ID[前笔低点位置],3);
  247.           End Else Begin
  248.           //3.2.3.2 向上笔完成前
  249.                 //突破向下笔的低点
  250.                 找到符合K线=False;
  251.             If 新低[最新完成K线位置]<新低[前笔低点位置] Then
  252.                 Begin
  253.                   笔状态[最新完成K线位置]=向下笔延伸;
  254.                   //向上笔区间大于向下笔区间的特殊情况
  255.                   If 新高[今笔高点位置]>新高[前笔高点位置] Then
  256.                   Begin
  257.                     K线类型[最新完成K线位置]=下破;
  258.                         K线类型[前笔低点位置]=废弃的底;
  259.                         K线类型[前笔高点位置]=废弃的顶;
  260.                         笔尖[前笔低点位置]=Invalid;
  261.                         笔尖[前笔高点位置]=Invalid;
  262.                         笔[前笔高点位置]=Invalid;
  263.                         笔[前笔低点位置]=Invalid;
  264. //                        If TL_ID[前笔高点位置]<>-1 Then
  265. //                          Tl_Delete(TL_ID[前笔高点位置]);
  266.                         //查找合适的笔尖
  267.                         i=前笔高点位置+1;
  268.                         While i<DataCount Do
  269.                         Begin
  270.                           //查找符合的顶或底
  271.                           If K线类型[i]=顶 Then
  272.                           Begin
  273.                             If 笔尖[i]>=新高[前笔高点位置] Then
  274.                                 Begin
  275.                                   找到符合K线=True;
  276.                                   Break;
  277.                                 End Else Begin
  278.                                   K线类型[i]=废弃的顶;
  279.                                   笔尖[i]=Invalid;
  280.                                   笔[i]=Invalid;
  281. //                                  Tl_Delete(TL_ID[i]);
  282.                                 End;
  283.                           End Else Begin
  284.                             If K线类型[i]=底 Then
  285.                                 Begin
  286.                                   前笔低点位置=i;
  287.                                   If 笔尖[i]<=新低[今笔低点位置] Then
  288.                                   Begin
  289.                                     找到符合K线=True;
  290.                                         Break;
  291.                                   End Else Begin
  292.                                     K线类型[i]=废弃的底;
  293.                                         笔尖[i]=Invalid;
  294.                                         笔[i]=Invalid;
  295. //                                        Tl_Delete(TL_ID[i]);
  296.                                   End;
  297.                                 End;
  298.                           End;
  299.                           i++;
  300.                         End;                       
  301.                         //找到向下笔或找不到符合的笔
  302.                         If (找到符合K线=True And K线类型[i]=底) Or 找到符合K线=False Then
  303.                         Begin                          
  304.                           前笔高点位置=今笔高点位置;
  305.                           K线类型[今笔高点位置]=顶;
  306.                           笔尖[今笔高点位置]=新高[今笔高点位置];
  307.                           笔[今笔高点位置]=笔尖[今笔高点位置];
  308.                           笔计数=0;
  309. //                          If 找到符合K线=True Then
  310. //                            Tl_SetEnd(TL_ID[i],Date[前笔高点位置],Time[前笔高点位置],笔尖[前笔高点位置]);
  311.                           i=今笔高点位置-1;
  312.                           While i>=最新完成K线位置 Do
  313.                           Begin
  314.                             If (High[i]>新高[i+1] And Low[i]>新低[i+1]) Or
  315.                                    (High[i]<新高[i+1] And Low[i]<新低[i+1]) Then
  316.                                   笔计数++;
  317.                                   i--;
  318.                           End;
  319.                           If 笔计数<2 Or (笔计数>1 And 新低[最新完成K线位置]>=分型区间下沿[今笔高点位置]) Then
  320.                             笔状态[最新完成K线位置]=向上笔分型构造;
  321.                         End Else
  322.                           If 找到符合K线=True And K线类型[i]=顶 Then
  323.                           Begin                            
  324.                         今笔高点位置=i;
  325.                                 前笔高点位置=i;
  326.                                 笔计数=旧笔;
  327. //                                Tl_Delete(TL_ID[前笔高点位置]);
  328.                           End;
  329.                   End Else Begin
  330.                         i=前笔高点位置;
  331.                         找到符合K线=True;
  332.                     K线类型[前笔低点位置]=废弃的底;
  333.                         笔尖[前笔低点位置]=Invalid;
  334.                         笔[前笔低点位置]=Invalid;
  335. //                        If TL_ID[前笔高点位置]<>-1 Then
  336. //                          Tl_Delete(TL_ID[前笔高点位置]);
  337.                         今笔高点位置=前笔高点位置;
  338.                         笔计数=旧笔;
  339.                   End;                  
  340.                   //查找前笔低点
  341.                   If 找到符合K线=True And K线类型[i]=顶 Then
  342.                   Begin
  343.                     i++;
  344.                     While i<DataCount Do
  345.                     Begin
  346.                       If 找到符合K线=True And K线类型[i]=底 Then
  347.                           Begin
  348.                             前笔低点位置=i;
  349.                     Break;
  350.                           End;
  351.                           i++;
  352.                 End;
  353.                   End;
  354.                   今笔低点位置=最新完成K线位置;
  355.                 End;
  356.           End;
  357.     End
  358.   End;
  359. End;

  360. //3.3 上涨K线
  361. If K线方向[最新完成K线位置]=上涨 Then
  362. Begin
  363.   Switch(笔状态[最新完成K线位置+1]) Begin
  364.     Case 向下笔分型构造:
  365.       Begin       
  366.           If 新高[最新完成K线位置]>分型区间上沿[前笔低点位置] Then
  367.           Begin
  368.             笔状态[最新完成K线位置]=向上笔延伸;
  369.                 今笔高点位置=最新完成K线位置;
  370.           End Else begin
  371.             If High[最新完成K线位置]=分型区间上沿[前笔低点位置] Then
  372.                   今笔高点位置=最新完成K线位置;
  373.                 end;
  374.           End
  375.           
  376.         Case 向上笔延伸:
  377.           If High[最新完成K线位置]>=新高[今笔高点位置] Then
  378.             今笔高点位置=最新完成K线位置;
  379.                
  380.         Default: Begin
  381.           //向下笔完成
  382.           If K线方向[最新完成K线位置+1]=下跌 And
  383.              笔状态[最新完成K线位置+1]=向下笔延伸 And
  384.              新低[最新完成K线位置+1]=新低[今笔低点位置] And
  385.                  ((笔计数>新笔 And 新笔标准=True And
  386.                    (今笔高点位置-今笔低点位置)>新笔周期) Or
  387.                    (笔计数>旧笔)) Then
  388.           Begin                  
  389.                   K线类型[今笔低点位置]=底;
  390.                   笔状态[最新完成K线位置]=向下笔分型构造;
  391.                   笔计数=1;
  392.                   笔尖[今笔低点位置]=新低[今笔低点位置];
  393.                   笔[今笔低点位置]=新低[今笔低点位置];
  394.                   前笔低点位置=今笔低点位置;
  395.                   今笔高点位置=最新完成K线位置;
  396. //                  TL_ID[前笔高点位置]=Tl_New(Date[前笔高点位置],Time[前笔高点位置],新高[前笔高点位置],
  397. //                                             Date[前笔低点位置],Time[前笔低点位置],笔尖[前笔低点位置]);
  398. //              Tl_SetColor(TL_ID[前笔高点位置],COLORYELLOW);
  399. //                  Tl_SetStyle(TL_ID[前笔高点位置],3);
  400.           End Else Begin
  401.             找到符合K线=False;
  402.             If 新高[最新完成K线位置]>新高[前笔高点位置] Then
  403.                 Begin
  404.                   笔状态[最新完成K线位置]=向上笔延伸;
  405.                   //向下笔区间大于向上笔区间的特殊情况
  406.                   If 新低[今笔低点位置]<新低[前笔低点位置] Then
  407.                   Begin
  408.                     K线类型[最新完成K线位置]=上破;
  409.                         K线类型[前笔低点位置]=废弃的底;
  410.                         K线类型[前笔高点位置]=废弃的顶;
  411.                         笔尖[前笔低点位置]=Invalid;
  412.                         笔尖[前笔高点位置]=Invalid;
  413.                         笔[前笔低点位置]=Invalid;
  414.                         笔[前笔高点位置]=Invalid;
  415. //                        If TL_ID[前笔低点位置]<>-1 Then
  416. //                          Tl_Delete(TL_ID[前笔低点位置]);
  417.                         //查找合适的笔尖
  418.                         i=前笔低点位置+1;
  419.                         While i<DataCount Do
  420.                         Begin
  421.                           //查找符合的顶或底
  422.                           If K线类型[i]=顶 Then
  423.                           Begin
  424.                             前笔高点位置=i;
  425.                             If 笔尖[i]>=新高[今笔高点位置] Then
  426.                                 Begin
  427.                                   找到符合K线=True;
  428.                                   Break;
  429.                                 End Else Begin
  430.                                   K线类型[i]=废弃的顶;
  431.                                   笔尖[i]=Invalid;
  432.                                   笔[i]=Invalid;
  433. //                                  Tl_Delete(TL_ID[i]);
  434.                                 End;
  435.                           End Else Begin
  436.                             If K线类型[i]=底 Then
  437.                                 Begin
  438.                                   If 笔尖[i]<=新低[今笔低点位置] Then
  439.                                   Begin
  440.                                     找到符合K线=True;
  441.                                         Break;
  442.                                   End Else Begin
  443.                                     K线类型[i]=废弃的底;
  444.                                         笔尖[i]=Invalid;
  445.                                         笔[i]=Invalid;
  446. //                                        Tl_Delete(TL_ID[i]);
  447.                                   End;
  448.                                 End;
  449.                           End;
  450.                           i++;
  451.                         End;                       
  452.                         //找到向上笔或找不到符合的笔
  453.                         If (找到符合K线=True And K线类型[i]=顶) Or 找到符合K线=False Then
  454.                         Begin                                               
  455.                           前笔低点位置=今笔低点位置;
  456.                           K线类型[今笔低点位置]=底;
  457.                           笔尖[今笔低点位置]=新低[今笔低点位置];
  458.                           笔[今笔低点位置]=新低[今笔低点位置];
  459.                           笔计数=0;
  460. //                          If 找到符合K线=True Then
  461. //                            Tl_SetEnd(TL_ID[i],Date[前笔低点位置],Time[前笔低点位置],笔尖[前笔低点位置]);
  462.                           i=今笔低点位置-1;
  463.                           While i>=最新完成K线位置 Do
  464.                           Begin
  465.                             If (High[i]>新高[i+1] And Low[i]>新低[i+1]) Or
  466.                                    (High[i]<新高[i+1] And Low[i]<新低[i+1]) Then
  467.                                   笔计数++;
  468.                                   i--;
  469.                           End;
  470.                           
  471.                           If 笔计数<2 Or (笔计数>1 And 新高[最新完成K线位置]<=分型区间上沿[今笔低点位置]) Then
  472.                             笔状态[最新完成K线位置]=向下笔分型构造;
  473.                           
  474.                         End Else
  475.                           If 找到符合K线=True And K线类型[i]=底 Then
  476.                           Begin
  477.                         今笔低点位置=i;
  478.                                 前笔低点位置=i;
  479.                                 笔计数=旧笔;
  480. //                                Tl_Delete(TL_ID[前笔低点位置]);
  481.                           End;
  482.                   End Else Begin
  483.                         i=前笔低点位置;
  484.                         找到符合K线=True;
  485.                     K线类型[前笔高点位置]=废弃的顶;
  486.                         笔尖[前笔高点位置]=Invalid;
  487.                         笔[前笔高点位置]=Invalid;
  488. //                        If TL_ID[前笔低点位置]<>-1 Then
  489. //                          Tl_Delete(TL_ID[前笔低点位置]);
  490.                         今笔低点位置=前笔低点位置;
  491.                         笔计数=旧笔;
  492.                   End;                  
  493.                   //查找前笔高点
  494.                   If 找到符合K线=True And K线类型[i]=底 Then
  495.                   Begin
  496.                     i++;
  497.                     While i<DataCount Do
  498.                     Begin
  499.                       If 找到符合K线=True And K线类型[i]=顶 Then
  500.                           Begin
  501.                             前笔高点位置=i;
  502.                     Break;
  503.                           End;
  504.                           i++;
  505.                 End;
  506.                   End;
  507.                   今笔高点位置=最新完成K线位置;
  508.                 End;
  509.           End;
  510.         End
  511.   End;
  512. End;
复制代码


debug版(能看到更多变量):














附件: 你需要登录才可以下载或查看附件。没有帐号?立即注册

使用道具 举报

Rank: 4

发表于 2013-12-5 15:38:34 |显示全部楼层
做了小修改,之前复制的请更新

使用道具 举报

Rank: 4

发表于 2013-12-5 16:16:49 |显示全部楼层
效果如图:
新笔:


旧笔:
附件: 你需要登录才可以下载或查看附件。没有帐号?立即注册

使用道具 举报

Rank: 9Rank: 9Rank: 9

发表于 2013-12-5 17:23:05 |显示全部楼层

改变需要勇气,尝试难免挫折,我们渴望聆听您的声音!

使用道具 举报

Rank: 8Rank: 8

发表于 2013-12-5 17:26:21 |显示全部楼层

使用道具 举报

Rank: 8Rank: 8

发表于 2013-12-5 17:59:26 |显示全部楼层
景仰。

使用道具 举报

Rank: 2

发表于 2013-12-5 19:15:01 |显示全部楼层
膜拜

使用道具 举报

Rank: 6Rank: 6

发表于 2013-12-5 20:01:25 |显示全部楼层
感谢分享大作,收下研究

使用道具 举报

Rank: 6Rank: 6

发表于 2013-12-5 20:05:19 |显示全部楼层
请问有引用未来数据吗?即画线会根据新k线改变

使用道具 举报

Rank: 4

勇士奖

发表于 2013-12-6 07:59:37 |显示全部楼层
有如滔滔江水。。。

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

bottom

Archiver|http://www.patiosoft.com

GMT+8, 2018-9-22 01:12 , Processed in 1.093750 second(s), 11 queries .

花生网 Copyrigh©2012

和讯信息科技有限公司 ALL Rights Reserved 版权所有 复制必究

回顶部