小男孩‘自慰网亚洲一区二区,亚洲一级在线播放毛片,亚洲中文字幕av每天更新,黄aⅴ永久免费无码,91成人午夜在线精品,色网站免费在线观看,亚洲欧洲wwwww在线观看

搜索
分享

壹瓣心花 老師的 【睿方圖】修改為飛狐版

 禁忌石 2011-09-25
飛狐的完美版在這里，唉！改了好久，終于比較可以了（除了K線左移后面的K線拖影無法消掉-自己在心里把它消除掉吧 ）
  1. {【睿方圖】 - 創(chuàng)幻論壇 壹瓣心花 \(^o^)/~ 舍得快樂 改飛狐版 }
  2. {以下放到飛狐的參數(shù)精靈中

  4. 請?jiān)O(shè)置計(jì)算參數(shù):
  5. HHDAY: Param#1 (1--999) 尋找區(qū)間高點(diǎn)
  6. LLDAY: Param#2 (1--999) 尋找區(qū)間低點(diǎn)
  7. PE: Param#3 (1--15) 將網(wǎng)格向右移動
  8. KE: Param#4 (0--99) 將Ｋ線向左移動

  10. 以上放到飛狐的參數(shù)精靈中}
  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創(chuàng)幻財(cái)經(jīng) 股票論壇'),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漲點(diǎn):=IF(SX漲>SX跌,SX漲,SX跌);
  52. X跌點(diǎn):=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跌點(diǎn)=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跌點(diǎn)=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跌點(diǎn)=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跌點(diǎn)=0,SX跌H,X漲點(diǎn)=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跌點(diǎn)=0,SX漲L,X漲點(diǎn)=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跌點(diǎn)=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跌點(diǎn)=0,(SX跌H+SX漲L)/2,X漲點(diǎn)=0,SX跌H,0,0),PEDAY),COLOR00FFFF;
  68. PARTLINE(睿分7<=SX跌H,睿分7),COLOR00FFFF;
  69. 睿分8:=REF(LINEVALUE(X跌點(diǎn)=0,(SX跌H+SX漲L)/2,X漲點(diǎn)=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漲點(diǎn)=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漲點(diǎn)=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漲點(diǎn)=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漲點(diǎn)=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,'歷史區(qū)間'),COLOR8800AA;
  87. KLINE(REFX(O,KE),REFX(H,KE),REFX(L,KE),REFX(C,KE),0);
復(fù)制代碼


飛狐和通達(dá)信的對比圖


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

2011年9月12日，今天中秋，發(fā)現(xiàn)了一點(diǎn)瑕疵，就此更正： 祝壇友們中秋快樂。


  2. {【睿方圖】 - 創(chuàng)幻論壇  壹瓣心花 \(^o^)/~ 舍得快樂 改飛狐版 }
  3. {以下放到飛狐的參數(shù)精靈中
  4. 請?jiān)O(shè)置計(jì)算參數(shù):
  5. HHDAY: Param#1 (1--999)    尋找區(qū)間高點(diǎn)
  6. LLDAY: Param#2 (1--999)    尋找區(qū)間低點(diǎn)
  7. PE:    Param#3 (1--15)     將網(wǎng)格向右移動
  8. KE:    Param#4 (0--99)      將Ｋ線向左移動
  9. 以上放到飛狐的參數(shù)精靈中}
  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創(chuàng)幻財(cái)經(jīng) 股票論壇'),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漲點(diǎn):=IF(SX漲>SX跌,SX漲,SX跌);
  51. X跌點(diǎn):=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跌點(diǎn)=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跌點(diǎn)=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跌點(diǎn)=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跌點(diǎn)=0,SX跌H,X漲點(diǎn)=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跌點(diǎn)=0,SX漲L,X漲點(diǎn)=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跌點(diǎn)=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跌點(diǎn)=0,(SX跌H+SX漲L)/2,X漲點(diǎn)=0,SX跌H,0,0),PEDAY),COLOR00FFFF;
  67. PARTLINE(睿分7<=SX跌H,睿分7),COLOR00FFFF;
  68. 睿分8:=REF(LINEVALUE(X跌點(diǎn)=0,(SX跌H+SX漲L)/2,X漲點(diǎn)=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漲點(diǎn)=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漲點(diǎn)=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漲點(diǎn)=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漲點(diǎn)=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,'歷史區(qū)間'),COLOR8800AA;
  86. KLINE(REFX(O,KE),REFX(H,KE),REFX(L,KE),REFX(C,KE),0);
復(fù)制代碼

    本站是提供個人知識管理的網(wǎng)絡(luò)存儲空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點(diǎn)擊一鍵舉報。
    轉(zhuǎn)藏 分享 獻(xiàn)花（0）

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多