不同週期的同步

unbattle

1. n=Param("TM",5,1,60,1);
   
2. n_open = TimeFrameGetPrice("O",n*in1Minute,0,expandPoint);
   
3. n_high = TimeFrameGetPrice("H",n*in1Minute,0,expandPoint);
   
4. n_low = TimeFrameGetPrice("L",n*in1Minute,0,expandPoint);
   
5. n_close = TimeFrameGetPrice("C",n*in1Minute,0,expandPoint);
   
6. 
   
7. color = ParamColor("color",colorRed);
   
8. PlotOHLC(n_open,n_high,n_low,n_close,"TM",color,styleCandle,);

複製代碼

這是網路上抄來的 ,借我紀錄一下;
重要的是他有同步,只是圖形不能展開到小週期的時間軸裡面.

ironheart

只是圖形不能展開到小週期的時間軸裡面....
unbattle 發表於 11-8-13 02:35 AM

圖形不能展開到小週期的時間軸裡面?
意思是這樣嗎？

unbattle

應該是把1分鐘圖包含在5k裡面
縮小看5K 10K的型態 趨勢
放大看內部的1k有沒有比較有利的點位.

kilroy

應該是把1分鐘圖包含在5k裡面
縮小看5K 10K的型態 趨勢
放大看內部的1k有沒有比較有利的點位. ...
unbattle 發表於 11-8-13 12:34 PM

大大～　這類的還不少喔

1K in 5K

   

1. _SECTION_BEGIN("2 Timeframes Candlestick Bar Chart");
   
2. 
   
3. Version(5.21);
   
4. SetChartOptions(2, chartShowDates);
   
5. Title = Name();
   
6. //XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
   
7. // PARAMETERS AND SETTINGS:
   
8. //XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
   
9. ChartLum                 = Param("Chart Background Color Intensity", 0.40, 0, 1, 0.01);
   
10. TFMinShort                = Param("Short Timeframe (Minutes)", 1, 1, 60, 1);
    
11. TFMinLong                 = Param("Long Timeframe (Minutes)", 5, 1, 60, 1);
    
12. OnSTFBars                = ParamToggle("Short TF Bars", "Off, On", 1);
    
13. OnLTFBars                = ParamToggle("Long TF Bars", "Off, On", 1);
    
14. BarLum1                 = Param("Short TF Bar Color Intensity", 0, 0, 1, 0.01);
    
15. BarLum2                 = Param("Long TF Bar Color Intensity", 0.70, 0, 1, 0.01);
    
16. 
    
17. SetChartBkColor(ColorBlend(colorLightBlue, colorWhite, ChartLum));
    
18. // Bar Colors for the Short Timeframe candlestick bars:
    
19. LineColor                 = ColorBlend(colorBlack, colorWhite, BarLum1);
    
20. UpBarColor                = ColorBlend(colorRed, colorWhite, BarLum1);
    
21. DnBarColor                = ColorBlend(colorBrightGreen , colorWhite, BarLum1);
    
22. // Bar Colors For The Long Timeframe candlestick bars:
    
23. TFLineColor         = ColorBlend(colorBlack, colorWhite, BarLum2 - 0.1);
    
24. TFUpBarColor        = ColorBlend(colorRed , colorWhite, BarLum2);
    
25. TFDnBarColor        = ColorBlend(colorBrightGreen , colorWhite, BarLum2);
    
26. //XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
    
27. // FUNCTIONS:
    
28. //XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
    
29. function GetVisibleBarCount()
    
30. {
    
31. lvb = Status("lastvisiblebar");
    
32. fvb = Status("firstvisiblebar");
    
33. return Min( Lvb - fvb, BarCount - fvb );
    
34. }
    
35. 
    
36. function GfxConvertBarToPixelX( bar )
    
37. {
    
38. lvb = Status("lastvisiblebar");
    
39. fvb = Status("firstvisiblebar");
    
40. pxchartleft = Status("pxchartleft");
    
41. pxchartwidth = Status("pxchartwidth");
    
42. return pxchartleft + bar  * pxchartwidth / ( Lvb - fvb + 1 );
    
43. }
    
44. 
    
45. function GfxConvertValueToPixelY( Value )
    
46. {
    
47. local Miny, Maxy, pxchartbottom, pxchartheight;
    
48. Miny = Status("axisminy");
    
49. Maxy = Status("axismaxy");
    
50. pxchartbottom = Status("pxchartbottom");
    
51. pxchartheight = Status("pxchartheight");
    
52. return pxchartbottom - floor( 0.5 + ( Value - Miny ) * pxchartheight/ ( Maxy -
    
53. Miny ) );
    
54. }
    
55. 
    
56. StaticVarKey = Name();
    
57. procedure xStaticVarSet(SName, SValue)
    
58. {
    
59. global StaticVarKey;
    
60. if (StaticVarKey != "")
    
61.         StaticVarSet(Sname + StaticVarKey, Svalue);
    
62. }
    
63. //XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
    
64. // MAIN PROGRAM:
    
65. //XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
    
66. if(Interval() != TFMinShort * 60)
    
67. {
    
68. Title = Title + "\n" + "\n" + "ALERT, ALERT, ALERT!!!" + "\n" + "Set the chart
    
69. time Interval to: " + NumToStr(TFMinShort, 1.0, 1) +
    
70.                                         " Minute(s) or change the Short Timeframe Parameter setting.";
    
71. OnSTFBars                = 0;
    
72. OnLTFBars                = 0;
    
73. SetChartBkColor(colorRose);
    
74. }
    
75. 
    
76. if(TFMinShort >= TFMinLong)
    
77. {
    
78. Title = Title + "\n" + "\n" + "ALERT, ALERT, ALERT!!!" + "\n" + "The Long
    
79. Timeframe setting must be longer than the Short Timeframe!";
    
80. OnSTFBars                = 0;
    
81. OnLTFBars                = 0;
    
82. SetChartBkColor(colorRose);
    
83. }
    
84. 
    
85. if(OnSTFBars)
    
86. {
    
87. BarColor                = IIf(Close > Open, UpBarColor, DnBarColor);
    
88. SetBarFillColor(BarColor);
    
89. Plot(Close, "", LineColor, styleCandle);
    
90. }
    
91. else
    
92. Plot(Close, "", colorBlack, styleCandle  | styleNoDraw);
    
93. 
    
94. TFSec = in1Minute * TFMinLong;
    
95. TimeFrameSet(TFSec);
    
96. TFOpen                         = Open;
    
97. TFHigh                         = High;
    
98. TFLow                                 = Low;
    
99. TFClose                        = Close;
    
100. TFBarIndex                        = BarIndex();
     
101. TFLastBarIndex        = LastValue(BarIndex());
     
102. TimeFrameRestore();
     
103. 
     
104. TFOpen                         = TimeFrameExpand(TFOpen, TFSec, expandFirst);
     
105. TFHigh                         = TimeFrameExpand(TFHigh, TFSec, expandFirst);
     
106. TFLow                                 = TimeFrameExpand(TFLow, TFSec, expandFirst);
     
107. TFClose                        = TimeFrameExpand(TFClose, TFSec, expandFirst);
     
108. TFBarIndex                        = TimeFrameExpand(TFBarIndex, TFSec, expandLast + 1);
     
109. TFLastBarIndex        = TimeFrameExpand(TFLastBarIndex, TFSec, expandLast + 1);
     
110. 
     
111. CandleTop                         = Max(TFOpen, TFClose);
     
112. CandleBottom                = Min(TFOpen, TFClose);
     
113. //============================================================================
     
114. // GFX LOW-LEVEL GRAPHICS SECTION.
     
115. // DRAWING THE LONG TIMEFRAME CANDLESTICK BARS:
     
116. //============================================================================
     
117. if(OnLTFBars)
     
118. {
     
119. GfxSetOverlayMode(1);
     
120. AllVisibleBars         = GetVisibleBarCount();
     
121. fvb                                = Status("firstvisiblebar");
     
122. ChartWidth                = GfxConvertBarToPixelX(AllVisibleBars );
     
123. PixBar                         = ChartWidth / AllVisibleBars;
     
124. Adjust                        = Pixbar * 0.35;
     
125. TFMinutes                 = TFMinLong / TFMinShort;
     
126. NewTFBar                         = IIf(TFBarIndex != Ref(TFBarIndex, -1), 1, 0);
     
127. BarInd                        = BarIndex();
     
128. TFLastBarIndex        = LastValue(TFLastBarIndex);
     
129. 
     
130. // DRAW BAR HISTORY AND THE CURRENT BAR:
     
131. for(i = 0; i < AllVisibleBars; i++)
     
132. {
     
133.   x1 = GfxConvertBarToPixelX(i) * NewTFBar[i + fvb] - Adjust;
     
134.   if(BarInd[i + fvb] < TFLastBarIndex AND NewTFBar[i + fvb] == 1)
     
135.          {
     
136.                 Counter = 0;
     
137.                 for(n = i + 1; NewTFBar[n + fvb] == 0 AND n + fvb < BarCount-1; n++)
     
138.                         Counter++;
     
139.                 x2 = GfxConvertBarToPixelX(i + Counter) * NewTFBar[i + fvb] + 1 + Adjust;
     
140.          }
     
141. 
     
142.   if(TFBarIndex[i + fvb] == TFLastBarIndex)
     
143.         x2 = GfxConvertBarToPixelX(i + TFMinutes - 1) * NewTFBar[i + fvb] + 1 +
     
144. Adjust;
     
145. 
     
146.    y1 = GfxConvertValueToPixelY(CandleTop[i + fvb]);
     
147.    y2 = GfxConvertValueToPixelY(CandleBottom[i + fvb]);
     
148.    yH = GfxConvertValueToPixelY(TFHigh[i + fvb]);
     
149.    yL = GfxConvertValueToPixelY(TFLow[i + fvb]);
     
150. 
     
151.    // Candle Body:
     
152.    GfxSelectPen(TFLineColor, 0);
     
153.    FillColor = IIf(TFOpen[i + fvb] < TFClose[i + fvb], TFUpBarColor,
     
154. TFDnBarColor);
     
155.    GfxSelectSolidBrush(FillColor);
     
156.    if(y1 == y2){y1 = y1 - Adjust; y2 = y2 + Adjust;
     
157. GfxSelectSolidBrush(TFLineColor);}
     
158.    if(x1 > 0){
     
159.    GfxRectangle( x1, y1, x2, y2);
     
160.    // Candle High and Low:
     
161.    GfxSelectPen(TFLineColor, 2);
     
162.    GfxMoveTo(x2+(x1-x2)/2, y1);
     
163.    GfxLineTo(x2+(x1-x2)/2, yH);
     
164.    GfxMoveTo(x2+(x1-x2)/2, y2);
     
165.    GfxLineTo(x2+(x1-x2)/2, yL);
     
166.    RequestTimedRefresh(0);
     
167.         }
     
168. }
     
169. }
     
170. _SECTION_END();

複製代碼

參考看看了~~

unbattle

論壇上有寫這個需要5.2以上版本  
晚上去國外偷渡5.3的來用用看

感謝

usana642

參考看看,謝謝分享

Speculator168

回復 1# unbattle


unbattle 大大 ,, 我是Amibroker的初學摸索者 , 看到您 PO這篇 [不同周期的同步] 很不錯 ,,

可否麻煩有空 step by step 教我一下 ,要如何做才能像您圖上把二個周期的K線圖上下擺置好 ,

感謝您 ^_^

sunnyhu

謝謝分享這麼有用的技巧 !

hsiao13

如果把這個要用於日線與週線上是不是可以？
若是要改要如何改？
謝謝告知的大大！

Rich-888

kilroy 發表於 11-8-13 14:28
大大～　這類的還不少喔

1K in 5K

學習~

感謝大大分享!!