logo
搜索
我的图书馆

发文章

发文工具

其他工具

留言交流
搜索
分享

壹瓣心花 老师的 【睿方图】修改为飞狐版

 禁忌石 2011-09-25
飞狐的完美版在这里，唉！改了好久，终于比较可以了（除了K线左移后面的K线拖影无法消掉-自己在心里把它消除掉吧 ）
  1. {【睿方图】 - 创幻论坛 壹瓣心花 \(^o^)/~ 舍得快乐 改飞狐版 }
  2. {以下放到飞狐的参数精灵中

  4. 请设置计算参数:
  5. HHDAY: Param#1 (1--999) 寻找区间高点
  6. LLDAY: Param#2 (1--999) 寻找区间低点
  7. PE: Param#3 (1--15) 将网格向右移动
  8. KE: Param#4 (0--99) 将Ｋ线向左移动

  10. 以上放到飞狐的参数精灵中}
  11. INPUT:HHDAY(15,1,999),LLDAY(15,1,999),PE(1,1,15),KE(0,0,99);
  12. CURR:DATACOUNT-BARPOS+1,LINETHICK;
  13. TCH:=REFX(HHV(H,HHDAY*10),CURR-1);
  14. GTTA:=REFX(BARSLAST(TCH=H),CURR-1)+1;
  15. GTT:=GTTA[DATACOUNT];
  16. SX跌HA:=REFX(IF(GTT=1,H,REF(H,GTT-1)),CURR-1);
  17. SX跌H:=SX跌HA[DATACOUNT];
  18. BCL:=REFX(LLV(L,LLDAY*10),CURR-1);
  19. DTTA:=REFX(BARSLAST(BCL=L),CURR-1)+1;
  20. DTT:=DTTA[DATACOUNT];
  21. SX涨LA:=REFX(IF(DTT=1,L,REF(L,DTT-1)),CURR-1);
  22. SX涨L:=SX涨LA[DATACOUNT];
  23. IM68:=((SX跌H-SX涨L)/6-(SX跌H-SX涨L)/8);
  24. GH跌X:=SX跌H+(SX跌H-SX涨L)/8; DL涨X:=SX涨L-(SX跌H-SX涨L)/8;
  25. STICKLINE(1=1,H,L,24,0)COLOR000000;
  26. GTHT:=IF(DTT>GTT,DTT,GTT); R:=ABS(GTT-DTT);
  27. FILLRGN(CURR<=GTHT+R/8,GH跌X,DL涨X),Color7C7C50;
  28. STICKLINE(CURR<=GTHT+R/8,SX跌H,SX跌H,10,0),ColorA8A808;
  29. STICKLINE(CURR<=GTHT+R/8,SX涨L,SX涨L,10,0),ColorA8A808;
  30. FILLRGN(CURR<=GTHT+R/8,SX跌H-(SX跌H-SX涨L)/8,SX涨L+(SX跌H-SX涨L)/8),Color187C50;
  31. FILLRGN(CURR<=GTHT+R/8,SX跌H-(SX跌H-SX涨L)/4,SX涨L+(SX跌H-SX涨L)/4),Color9A7C00;
  32. FILLRGN(CURR<=GTHT+R/8,SX跌H-(SX跌H-SX涨L)*3/8,SX涨L+(SX跌H-SX涨L)*3/8),Color187C50;
  33. STICKLINE(CURR<=GTHT+R/8,(SX跌H+SX涨L)/2,(SX跌H+SX涨L)/2,10,0),ColorA8A808;
  34. DRAWTEXT(CURR=GTHT,SX涨L-IM68,' 壹瓣心花 \(^o^)/~ 舍得快乐\n创幻财经 股票论坛'),COLOR8899AA,ALIGN0;
  35. SX涨:=(CURR=KE+DTT)-1;
  36. SX跌:=(CURR=KE+GTT)-1;
  37. SX涨跌:=LINEVALUE(SX涨=0,SX涨L,SX跌=0,SX跌H,0,0);
  38. SX跌涨:=LINEVALUE(SX涨=0,SX跌H,SX跌=0,SX涨L,0,0);
  39. S涨跌X:=LINEVALUE(SX跌=0,SX跌H,SX涨=0,SX涨L,0,0);
  40. S跌涨X:=LINEVALUE(SX跌=0,SX涨L,SX涨=0,SX跌H,0,0);
  41. SX涨跌X:=IF(DTT>GTT,SX涨跌,S涨跌X);
  42. SX跌涨X:=IF(DTT>GTT,SX跌涨,S跌涨X);
  43. PEDAY:=IF(PE=1,0,IF(PE=2,R/2,IF(PE=3,R,IF(PE=4,R+R/2,IF(PE=5,2*R,IF(PE=6,2*R+R/2,IF(PE=7,3*R,3*R+R/2)))))));
  44. SLXH:IF((CURR>=MIN(KE+DTT-PEDAY,KE+GTT-PEDAY) AND CURR<MAX(KE+DTT-PEDAY,KE+GTT-PEDAY)),(SX跌H+SX涨L)/2,0),COLOR8E0000,LINETHICK;
  45. PARTLINE(SLXH<>0,(SX跌H+SX涨L)/2),COLOR8E0000,LINETHICK3;
  46. H跌X:IF((CURR>=MIN(KE+DTT-PEDAY,KE+GTT-PEDAY) AND CURR<MAX(KE+DTT-PEDAY,KE+GTT-PEDAY)),SX跌H,0),COLOR8E0000,LINETHICK;
  47. PARTLINE(H跌X<>0,SX跌H),COLOR8E0000,LINETHICK3;
  48. L涨X:IF((CURR>=MIN(KE+DTT-PEDAY,KE+GTT-PEDAY) AND CURR<MAX(KE+DTT-PEDAY,KE+GTT-PEDAY)),SX涨L,0),COLOR8E0000,LINETHICK;
  49. PARTLINE(L涨X<>0,SX涨L),COLOR8E0000,LINETHICK3;
  50. STICKLINE(REF(SX涨=0,PEDAY) OR REF(SX跌=0,PEDAY) OR REF(CURR=KE+ROUND((GTT+DTT)/2),PEDAY),SX跌H,SX涨L,0.27,0),COLOR8E0000,LINETHICK3;
  51. X涨点:=IF(SX涨>SX跌,SX涨,SX跌);
  52. X跌点:=IF(SX涨>SX跌,SX涨,SX跌);
  53. //TJA:=BARSLAST(REF(SX涨=0,PEDAY) OR REF(SX跌=0,PEDAY));
  54. //TJ:=TJA[DATACOUNT];
  55. 睿分1:=REF(LINEVALUE(X跌点=0,SX跌H,CURR=KE+ROUND((GTT+DTT)/2),SX涨L,0,0),PEDAY),COLOR00FFFF;
  56. PARTLINE(睿分1>=SX涨L,睿分1),COLOR00FFFF;
  57. 睿分2:=REF(LINEVALUE(X跌点=0,(SX跌H+SX涨L)/2,CURR=KE+ROUND((GTT+DTT)/2),SX涨L,0,0),PEDAY),COLORFF0000,LINETHICK2;
  58. PARTLINE(睿分2>=SX涨L,睿分2),COLORFF0000,LINETHICK2;
  59. 睿分3:=REF(LINEVALUE(X跌点=0,SX涨L,CURR=KE+ROUND((GTT+DTT)/2),SX跌H,0,0),PEDAY),COLOR00FFFF;
  60. PARTLINE(睿分3<=SX跌H,睿分3),COLOR00FFFF;
  61. 睿分4:=REF(LINEVALUE(X跌点=0,SX跌H,X涨点=0,(SX跌H+SX涨L)/2,0,0),PEDAY),COLOR00FFFF;
  62. PARTLINE(睿分4>=(SX跌H+SX涨L)/2,睿分4),COLOR00FFFF;
  63. 睿分5:=REF(LINEVALUE(X跌点=0,SX涨L,X涨点=0,(SX跌H+SX涨L)/2,0,0),PEDAY),COLOR00FFFF;
  64. PARTLINE(睿分5<=(SX跌H+SX涨L)/2,睿分5),COLOR00FFFF;
  65. 睿分6:=REF(LINEVALUE(X跌点=0,(SX跌H+SX涨L)/2,CURR=KE+ROUND((GTT+DTT)/2),SX跌H,0,0),PEDAY),COLORFF0000,LINETHICK2;
  66. PARTLINE(睿分6<=SX跌H,睿分6),COLORFF0000,LINETHICK2;
  67. 睿分7:=REF(LINEVALUE(X跌点=0,(SX跌H+SX涨L)/2,X涨点=0,SX跌H,0,0),PEDAY),COLOR00FFFF;
  68. PARTLINE(睿分7<=SX跌H,睿分7),COLOR00FFFF;
  69. 睿分8:=REF(LINEVALUE(X跌点=0,(SX跌H+SX涨L)/2,X涨点=0,SX涨L,0,0),PEDAY),COLOR00FFFF;
  70. PARTLINE(睿分8>=SX涨L,睿分8),COLOR00FFFF;
  71. 睿分9:=REF(LINEVALUE(CURR=KE+ROUND((GTT+DTT)/2),SX涨L,X涨点=0,(SX跌H+SX涨L)/2,0,0),PEDAY),COLORFF0000,LINETHICK2;
  72. PARTLINE(睿分9<=(SX跌H+SX涨L)/2,睿分9),COLORFF0000,LINETHICK2;
  73. 睿分10:=REF(LINEVALUE(CURR=KE+ROUND((GTT+DTT)/2),SX跌H,X涨点=0,(SX跌H+SX涨L)/2,0,0),PEDAY),COLORFF0000,LINETHICK2;
  74. PARTLINE(睿分10>=(SX跌H+SX涨L)/2,睿分10),COLORFF0000,LINETHICK2;
  75. 睿分11:=REF(LINEVALUE(CURR=KE+ROUND((GTT+DTT)/2),SX跌H,X涨点=0,SX涨L,0,0),PEDAY),COLOR00FFFF;
  76. PARTLINE(睿分11>=SX涨L,睿分11),COLOR00FFFF;
  77. 睿分12:=REF(LINEVALUE(CURR=KE+ROUND((GTT+DTT)/2),SX涨L,X涨点=0,SX跌H,0,0),PEDAY),COLOR00FFFF;
  78. PARTLINE(睿分12<=SX跌H,睿分12),COLOR00FFFF;
  79. 睿分13:=REF(SX涨跌X,PEDAY),COLOR8E00E8;
  80. PARTLINE(睿分13<=SX跌H AND 睿分13>=SX涨L,睿分13),COLOR8E00E8;
  81. 睿分14:=REF(SX跌涨X,PEDAY),COLOR8E00E8;
  82. PARTLINE(睿分14>=SX涨L AND 睿分14<=SX跌H,睿分14),COLOR8E00E8;
  83. PARTLINE(BETWEEN(CURR,KE+DTT,KE+GTT),SX跌H),COLOR8E0000,LINETHICK3;
  84. PARTLINE(BETWEEN(CURR,KE+DTT,KE+GTT),SX涨L),COLOR8E0000,LINETHICK3;
  85. STICKLINE(SX涨=0 OR SX跌=0,SX跌H,SX涨L,0.27,0),COLOR8E0000,LINETHICK3;
  86. DRAWTEXT(CURR=KE+ROUND((GTT+DTT)/2)+5,SX跌H*0.98,'历史区间'),COLOR8800AA;
  87. KLINE(REFX(O,KE),REFX(H,KE),REFX(L,KE),REFX(C,KE),0);
复制代码


飞狐和通达信的对比图


//////////////////////////////////////////

2011年9月12日，今天中秋，发现了一点瑕疵，就此更正： 祝坛友们中秋快乐。


  2. {【睿方图】 - 创幻论坛  壹瓣心花 \(^o^)/~ 舍得快乐 改飞狐版 }
  3. {以下放到飞狐的参数精灵中
  4. 请设置计算参数:
  5. HHDAY: Param#1 (1--999)    寻找区间高点
  6. LLDAY: Param#2 (1--999)    寻找区间低点
  7. PE:    Param#3 (1--15)     将网格向右移动
  8. KE:    Param#4 (0--99)      将Ｋ线向左移动
  9. 以上放到飞狐的参数精灵中}
  10. INPUT:HHDAY(15,1,999),LLDAY(15,1,999),PE(1,1,15),KE(0,0,99);
  11. CURR:DATACOUNT-BARPOS+1,LINETHICK;
  12. TCH:=REFX(HHV(H,HHDAY*10),CURR-1);
  13. GTTA:=REFX(BARSLAST(TCH=H),CURR-1)+1;
  14. GTT:=GTTA[DATACOUNT];
  15. SX跌HA:=REFX(IF(GTT=1,H,REF(H,GTT-1)),CURR-1);
  16. SX跌H:=SX跌HA[DATACOUNT];
  17. BCL:=REFX(LLV(L,LLDAY*10),CURR-1);
  18. DTTA:=REFX(BARSLAST(BCL=L),CURR-1)+1;
  19. DTT:=DTTA[DATACOUNT];
  20. SX涨LA:=REFX(IF(DTT=1,L,REF(L,DTT-1)),CURR-1);
  21. SX涨L:=SX涨LA[DATACOUNT];
  22. IM68:=((SX跌H-SX涨L)/6-(SX跌H-SX涨L)/8);
  23. GH跌X:=SX跌H+(SX跌H-SX涨L)/8;    DL涨X:=SX涨L-(SX跌H-SX涨L)/8;
  24. STICKLINE(1=1,H,L,24,0)COLOR000000;
  25. GTHT:=IF(DTT>GTT,DTT,GTT);  R:=ABS(GTT-DTT);
  26. FILLRGN(CURR<=GTHT+R/8,GH跌X,DL涨X),Color7C7C50;
  27. STICKLINE(CURR<=GTHT+R/8,SX跌H,SX跌H,10,0),ColorA8A808;
  28. STICKLINE(CURR<=GTHT+R/8,SX涨L,SX涨L,10,0),ColorA8A808;
  29. FILLRGN(CURR<=GTHT+R/8,SX跌H-(SX跌H-SX涨L)/8,SX涨L+(SX跌H-SX涨L)/8),Color187C50;
  30. FILLRGN(CURR<=GTHT+R/8,SX跌H-(SX跌H-SX涨L)/4,SX涨L+(SX跌H-SX涨L)/4),Color9A7C00;
  31. FILLRGN(CURR<=GTHT+R/8,SX跌H-(SX跌H-SX涨L)*3/8,SX涨L+(SX跌H-SX涨L)*3/8),Color187C50;
  32. STICKLINE(CURR<=GTHT+R/8,(SX跌H+SX涨L)/2,(SX跌H+SX涨L)/2,10,0),ColorA8A808;
  33. DRAWTEXT(CURR=GTHT,SX涨L-IM68,' 壹瓣心花 \(^o^)/~ 舍得快乐\n创幻财经 股票论坛'),COLOR8899AA,ALIGN0;
  34. SX涨:=(CURR=KE+DTT)-1;
  35. SX跌:=(CURR=KE+GTT)-1;
  36. SX涨跌:=LINEVALUE(SX涨=0,SX涨L,SX跌=0,SX跌H,0,0);
  37. SX跌涨:=LINEVALUE(SX涨=0,SX跌H,SX跌=0,SX涨L,0,0);
  38. S涨跌X:=LINEVALUE(SX跌=0,SX跌H,SX涨=0,SX涨L,0,0);
  39. S跌涨X:=LINEVALUE(SX跌=0,SX涨L,SX涨=0,SX跌H,0,0);
  40. SX涨跌X:=IF(DTT>GTT,SX涨跌,S涨跌X);
  41. SX跌涨X:=IF(DTT>GTT,SX跌涨,S跌涨X);
  42. PEDAY:=IF(PE=1,0,IF(PE=2,R/2,IF(PE=3,R,IF(PE=4,R+R/2,IF(PE=5,2*R,IF(PE=6,2*R+R/2,IF(PE=7,3*R,3*R+R/2)))))));
  43. SLXH:IF((CURR>=MIN(KE+DTT-PEDAY,KE+GTT-PEDAY) AND CURR<MAX(KE+DTT-PEDAY,KE+GTT-PEDAY)),(SX跌H+SX涨L)/2,0),COLOR8E0000,LINETHICK;
  44. PARTLINE(SLXH<>0,(SX跌H+SX涨L)/2),COLOR8E0000,LINETHICK3;
  45. H跌X:IF((CURR>=MIN(KE+DTT-PEDAY,KE+GTT-PEDAY) AND CURR<MAX(KE+DTT-PEDAY,KE+GTT-PEDAY)),SX跌H,0),COLOR8E0000,LINETHICK;
  46. PARTLINE(H跌X<>0,SX跌H),COLOR8E0000,LINETHICK3;
  47. L涨X:IF((CURR>=MIN(KE+DTT-PEDAY,KE+GTT-PEDAY) AND CURR<MAX(KE+DTT-PEDAY,KE+GTT-PEDAY)),SX涨L,0),COLOR8E0000,LINETHICK;
  48. PARTLINE(L涨X<>0,SX涨L),COLOR8E0000,LINETHICK3;
  49. STICKLINE(REF(SX涨=0,PEDAY) OR REF(SX跌=0,PEDAY) OR REF(CURR=KE+ROUND((GTT+DTT)/2),PEDAY),SX跌H,SX涨L,0.27,0),COLOR8E0000,LINETHICK3;
  50. X涨点:=IF(SX涨>SX跌,SX涨,SX跌);
  51. X跌点:=IF(SX涨>SX跌,SX涨,SX跌);
  52. //TJA:=BARSLAST(REF(SX涨=0,PEDAY) OR REF(SX跌=0,PEDAY));
  53. //TJ:=TJA[DATACOUNT];
  54. 睿分1:=REF(LINEVALUE(X跌点=0,SX跌H,CURR=KE+ROUND((GTT+DTT)/2),SX涨L,0,0),PEDAY),COLOR00FFFF;
  55. PARTLINE(睿分1>=SX涨L,睿分1),COLOR00FFFF;
  56. 睿分2:=REF(LINEVALUE(X跌点=0,(SX跌H+SX涨L)/2,CURR=KE+ROUND((GTT+DTT)/2),SX涨L,0,0),PEDAY),COLORFF0000,LINETHICK2;
  57. PARTLINE(睿分2>=SX涨L,睿分2),COLORFF0000,LINETHICK2;
  58. 睿分3:=REF(LINEVALUE(X跌点=0,SX涨L,CURR=KE+ROUND((GTT+DTT)/2),SX跌H,0,0),PEDAY),COLOR00FFFF;
  59. PARTLINE(睿分3<=SX跌H,睿分3),COLOR00FFFF;
  60. 睿分4:=REF(LINEVALUE(X跌点=0,SX跌H,X涨点=0,(SX跌H+SX涨L)/2,0,0),PEDAY),COLOR00FFFF;
  61. PARTLINE(睿分4>=(SX跌H+SX涨L)/2,睿分4),COLOR00FFFF;
  62. 睿分5:=REF(LINEVALUE(X跌点=0,SX涨L,X涨点=0,(SX跌H+SX涨L)/2,0,0),PEDAY),COLOR00FFFF;
  63. PARTLINE(睿分5<=(SX跌H+SX涨L)/2,睿分5),COLOR00FFFF;
  64. 睿分6:=REF(LINEVALUE(X跌点=0,(SX跌H+SX涨L)/2,CURR=KE+ROUND((GTT+DTT)/2),SX跌H,0,0),PEDAY),COLORFF0000,LINETHICK2;
  65. PARTLINE(睿分6<=SX跌H,睿分6),COLORFF0000,LINETHICK2;
  66. 睿分7:=REF(LINEVALUE(X跌点=0,(SX跌H+SX涨L)/2,X涨点=0,SX跌H,0,0),PEDAY),COLOR00FFFF;
  67. PARTLINE(睿分7<=SX跌H,睿分7),COLOR00FFFF;
  68. 睿分8:=REF(LINEVALUE(X跌点=0,(SX跌H+SX涨L)/2,X涨点=0,SX涨L,0,0),PEDAY),COLOR00FFFF;
  69. PARTLINE(睿分8>=SX涨L,睿分8),COLOR00FFFF;
  70. 睿分9:=REF(LINEVALUE(CURR=KE+ROUND((GTT+DTT)/2),SX涨L,X涨点=0,(SX跌H+SX涨L)/2,0,0),PEDAY),COLORFF0000,LINETHICK2;
  71. PARTLINE(睿分9<=(SX跌H+SX涨L)/2,睿分9),COLORFF0000,LINETHICK2;
  72. 睿分10:=REF(LINEVALUE(CURR=KE+ROUND((GTT+DTT)/2),SX跌H,X涨点=0,(SX跌H+SX涨L)/2,0,0),PEDAY),COLORFF0000,LINETHICK2;
  73. PARTLINE(睿分10>=(SX跌H+SX涨L)/2,睿分10),COLORFF0000,LINETHICK2;
  74. 睿分11:=REF(LINEVALUE(CURR=KE+ROUND((GTT+DTT)/2),SX跌H,X涨点=0,SX涨L,0,0),PEDAY),COLOR00FFFF;
  75. PARTLINE(睿分11>=SX涨L,睿分11),COLOR00FFFF;
  76. 睿分12:=REF(LINEVALUE(CURR=KE+ROUND((GTT+DTT)/2),SX涨L,X涨点=0,SX跌H,0,0),PEDAY),COLOR00FFFF;
  77. PARTLINE(睿分12<=SX跌H,睿分12),COLOR00FFFF;
  78. 睿分13:=REF(SX涨跌X,PEDAY),COLOR8E00E8;
  79. PARTLINE(睿分13<=SX跌H AND 睿分13>=SX涨L,睿分13),COLOR8E00E8;
  80. 睿分14:=REF(SX跌涨X,PEDAY),COLOR8E00E8;
  81. PARTLINE(睿分14>=SX涨L AND 睿分14<=SX跌H,睿分14),COLOR8E00E8;
  82. PARTLINE(CURR<MAX(KE+DTT,KE+GTT) AND CURR>=MIN(KE+DTT,KE+GTT),SX跌H),COLOR8E0000,LINETHICK3;
  83. PARTLINE(CURR<MAX(KE+DTT,KE+GTT) AND CURR>=MIN(KE+DTT,KE+GTT),SX涨L),COLOR8E0000,LINETHICK3;
  84. STICKLINE(SX涨=0 OR SX跌=0,SX跌H,SX涨L,0.27,0),COLOR8E0000,LINETHICK3;
  85. DRAWTEXT(CURR=KE+ROUND((GTT+DTT)/2)+5,SX跌H*0.98,'历史区间'),COLOR8800AA;
  86. KLINE(REFX(O,KE),REFX(H,KE),REFX(L,KE),REFX(C,KE),0);
复制代码

    本站是提供个人知识管理的网络存储空间，所有内容均由用户发布，不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息，谨防诈骗。如发现有害或侵权内容，请点击一键举报。
    转藏 分享 献花（0）

    来自： 禁忌石 > 《公式》

    举报/认领

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多