不同視窗同步捲動縮放

zaqimon

之前已經有回覆別的文章
我又稍微修改一下程式
加入ZoomRatio變數控制主視窗及被控制視窗之間的顯示日數比例
例如日線及周線就設定ZoomRatio=5就可以顯示幾乎同比例的bar數量
在日線以上週期的視窗之間運作基本上都沒有什麼大問題

我還有嘗試加入台指期1min/5min的同步
請在include之前自行加入TaifexHack = 1;
ZoomRatio也設成5
順順的用習慣的話應該是還堪用啦
但其實我發現問題還蠻多的
目前程式裡面先假設所有周末都不是交易日直接跳過
如果大家有更好的做法可以自行修改



請將最下方AFL放到Include資料夾內且命名為iZoomer.afl
然後在你希望控制連動的主視窗內加入下面程式碼即可

1. UseZoomer = ParamToggle("Use Zoomer?", "No|Yes", 0);
   
2. ZoomRatio = Param("Zoomer ZoomRatio", 5, 0.1, 10, 0.1);
   
3. //TaifexHack = 1;
   
4. #include_once <iZoomer.afl>

複製代碼

iZoomer.afl

1. /*
   
2. 
   
3. Synchronous scrolling on all windows in AmiBroker
   
4. 
   
5. <Usage>
   
6. Put this AFL in the Include Folder.
   
7. Add below lines into your AFL
   
8.   UseZoomer = ParamToggle("Use Zoomer?", "No|Yes", 0);
   
9.   ZoomRatio = Param("Zoomer ZoomRatio", 1, 0.1, 10, 0.1); // 5 is a good ratio for daily/weekly pair
   
10.   // TaifexHack = 1; // work around for Taifex intraday 1min/5min pair
    
11.   #include_once <iZoomer.afl>
    
12. 
    
13. 
    
14. [20121126] zaqimon
    
15. Add ZoomRatio for showing multiple(x2, x5, x0.7, ...) of current window view range
    
16. TaifexHack=1, still not perfect, because it is hard to 'jump' those non trading period. Is there any better idea?
    
17. 
    
18. 
    
19. [20120915] zaqimon
    
20. original AFL from htt[delete me]p:/[delete me]/finance.groups.yahoo.com/group/amibroker/message/141912
    
21. I did a slight modification.
    
22. 
    
23. */
    
24. 
    
25. function Date2Day( wd_dt) /* convert date to weekday */
    
26. {
    
27.     wd_datenum = DateTimeConvert(0, (wd_dt));
    
28.     wd_c = int( wd_datenum / 100 / 100 / 100 + 19); // datenum start from 1900
    
29.     wd_y = int((wd_datenum / 100 / 100) % 100);
    
30.     wd_m = int((wd_datenum / 100) % 100);
    
31.     wd_d = int( wd_datenum % 100);
    
32.     // if Jan., Feb., assume it to be last year's 13th, 14th month.
    
33.     if(wd_m<=2)
    
34.     {
    
35.         wd_m += 12;
    
36.         wd_y -= 1;
    
37.     }
    
38.     // w = (y+[y/4]+[c/4]-2c+[26(m+1)/10]+d-1) mod 7
    
39.     // formula from htt[delete me]p:/[delete me]/zh.wikipedia.org/wiki/%E8%94%A1%E5%8B%92%E5%85%AC%E5%BC%8F
    
40.     wd_w = wd_y + int(wd_y / 4) + int(wd_c / 4) - 2 * wd_c + int(26 * (wd_m + 1) / 10) + wd_d - 1;
    
41.     wd_w = ((wd_w % 7) + 7) % 7; // if -5, -12, -19, ... , make it to be +2
    
42.     return int(wd_w); // 0:Sun, 1:Mon, ...
    
43. }
    
44. 
    
45. function ZqZoomSync( force )
    
46. {
    
47.     global ZoomRatio;
    
48.     local LastBarIndex, FirstBarIndex, prevLastBarIndex, prevFirstBarIndex, prevFirstDateTime, DT, BI, LastDateTime, FirstDateTime, LastDateTimestr, FirstDateTimestr;
    
49.     local reuseLastDTDiff, DTDiff;
    
50.     local OAB, OAD, dcount, i, OADoc, OAW, OADocWin, res;
    
51.     // Get a count of the number of documents
    
52.     OAB = CreateObject( "Broker.Application" );
    
53.     OAD = OAB.Documents;
    
54.     dcount = OAD.Count;
    
55.     // Process multiple windows (documents)
    
56.     res = False;
    
57.     if ( dcount > 1 )
    
58.     {
    
59.         // Get current and last start and end DateTimes's
    
60.         LastBarIndex = Status( "LastVisibleBarIndex" );
    
61.         FirstBarIndex = Status( "FirstVisibleBarIndex" );
    
62.         //Nblankbar = Status( "LastVisibleBarIndex" ) - BarCount; // [zq] not used !!
    
63.         
    
64.         // [zq] BarIndex may always be the same due to QuickAFL, check prevFirstDateTime in addition
    
65.         prevLastBarIndex = Nz( StaticVarGet( "_prevLastVisibleBarIndex" ) );
    
66.         prevFirstBarIndex = Nz( StaticVarGet( "_prevFirstVisibleBarIndex" ) );
    
67.         prevFirstDateTime = Nz( StaticVarGet( "_prevFirstDateTime" ) );
    
68.         prevDTDiff = Nz( StaticVarGet( "_prevDTDiff" ) );
    
69.         
    
70.         // use this to prevent changing zoom range if bar counts in current window not changed,
    
71.         // or you may see bars in other windows quiver back and forth while scrolling
    
72.         reuseLastDTDiff = False;
    
73.         if(prevLastBarIndex-prevFirstBarIndex == LastBarIndex-FirstBarIndex AND prevDTDiff != 0)
    
74.         {
    
75.             reuseLastDTDiff = True;
    
76.         }
    
77.         
    
78.         // [zq] move outside if() statement for checking prevFirstDateTime
    
79.         DT = DateTime();
    
80.         BI = BarIndex();
    
81.         LastDateTime = LastValue( ValueWhen( LastBarIndex == BI, DT ) ); // [zq] LastDateTime could be empty
    
82.         FirstDateTime = LastValue( ValueWhen( FirstBarIndex == BI, DT ) );
    
83.         
    
84.         // Check for a new date/time range
    
85. //        _TRACE(""+FirstBarIndex+", "+LastBarIndex);
    
86. //        _TRACE(""+FirstDateTime+", "+LastDateTime);
    
87.         if ( LastBarIndex != prevLastBarIndex OR FirstBarIndex != prevFirstBarIndex OR FirstDateTime != prevFirstDateTime OR force )
    
88.         {
    
89. 
    
90.             LastDateTimestr = DateTimeToStr( LastDateTime );
    
91.             DTDiff = DateTimeDiff(LastDateTime, FirstDateTime); // in second
    
92.             if(reuseLastDTDiff)
    
93.             {
    
94.                 DTDiff = prevDTDiff;
    
95.             }
    
96.             if(typeof(ZoomRatio) != "number")
    
97.             {
    
98.                 ZoomRatio = 1; // default ZoomRatio
    
99.             }
    
100.             FirstDateTimestr = DateTimeToStr(DateTimeAdd(LastDateTime, -ZoomRatio * DTDiff, in1Second));
     
101.             
     
102.             if(typeof(TaifexHack) == "number" AND TaifexHack==1) // Taifex intraday hack, but still not perfect
     
103.             {
     
104.                 tn = DateTimeConvert(1, StrToDateTime(FirstDateTimestr));
     
105.                 if(tn < 084500)
     
106.                 {
     
107.                     FirstDateTimestr = DateTimeToStr(DateTimeAdd(LastDateTime, -ZoomRatio * DTDiff - 19*3600, in1Second)); // try to 'jump' non trading hours
     
108.                     wd = Date2Day(StrToDateTime(FirstDateTimestr));
     
109.                     // assume weekend non trading days, 'jump', of course this is not perfect solution
     
110.                     if(wd == 0)
     
111.                     {
     
112.                         FirstDateTimestr = DateTimeToStr(DateTimeAdd(LastDateTime, -ZoomRatio * DTDiff - 19*3600 - 2*24*3600, in1Second));
     
113.                     }
     
114.                 }
     
115.             }
     
116. 
     
117.             // Set the new last values
     
118.             StaticVarSet( "_prevLastVisibleBarIndex", LastBarIndex );
     
119.             StaticVarSet( "_prevFirstVisibleBarIndex", FirstBarIndex );
     
120.             StaticVarSet( "_prevFirstDateTime", FirstDateTime );
     
121.             StaticVarSet( "_prevDTDiff", DTDiff );
     
122.             
     
123. //            _TRACE(""+FirstDateTimestr+", "+LastDateTimestr);
     
124.             // Loop through the document collection
     
125.             for ( i = 0; i < dcount; i++ )
     
126.             {
     
127.                 // If it is not the active document -
     
128.                 OADoc = OAD.Item( i );
     
129.                 // NOTE - it doesn't hurt to sync the current window and it makes all
     
130.                 // windows have no blank bars on the right so they look the same
     
131.                 // [zq] I think it's reasonable for not syncing ActiveDocument.
     
132.                 // [zq] Something not belong to the ActiveDocument was shown when not syncing ActiveDocument with multi-threaded charts options disabled.
     
133.                 if ( OADoc != OAB.ActiveDocument )
     
134.                 {
     
135.                     // Get the document window and zoom to range
     
136. //                    _TRACE( " Zoom to range document - " + i + " , " + FirstDateTimestr + " - " + LastDateTimestr );
     
137.                     OADW = OADoc.Windows;
     
138.                     // Document window count assumed to be 1
     
139.                     OADocWin = OADW.Item( 0 );
     
140.                     OADocWin.ZoomToRange( FirstDateTimestr, LastDateTimestr ); // [zq] this function failed to update chart at the right most margin with empty LastDateTimestr. Just minor issue, don't care.
     
141.                 }
     
142.             }
     
143.             res = True;
     
144.         }
     
145.     }
     
146.     return res;
     
147. }
     
148. 
     
149. //  Call for synchronization
     
150. If (UseZoomer)
     
151.      ZqZoomSync( False ); // [zq] set True will enter infinite loop if we also update ActiveDocument

複製代碼

補充內容 (12-12-20 11:32):
補充程式碼在三樓

hipper68

真的太讚了...
一定要推一下...

謝謝大大的分享...

zaqimon

在第83行處插入下面的程式碼
避免LastDateTime為0的狀況
這樣就算捲動到畫面最右邊blank bar的地方也都還能夠同步

1. // make sure LastDateTime non-zero.
   
2.         if(DateTimeDiff(LastDateTime,FirstDateTime)<0) // roll back to the last non-empty bar index
   
3.         {
   
4.             for(i=BarCount-1; i>0; i--) // all array has BarCount size, BI[i] value has nothing to do with BarCount
   
5.             {
   
6.                 if(DateTimeDiff(DT[i],FirstDateTime)>0) // we saw the REAL last bar, replace the values.
   
7.                 {
   
8.                     LastBarIndex = BI[i];
   
9.                     LastDateTime = DT[i];
   
10.                     break;
    
11.                 }
    
12.             }
    
13.         }

複製代碼

purpletopman68

為何他是不通過的???