以前在討論區的發言紀錄

找到了一篇 2003 年我在網路上的文章是關於程式交易的，現在看起來滿有意思的，趕快把畫面存起來以免以後不見了。

那時候國泰期貨有一群人在用 RTS 指標(其實就是 Pivot Point)，就是用昨日的(Open+High+Low+Close)/4，做為今日的關鍵價位，然後再延伸出上下各兩個壓力支撐點，我把它轉換成 MetaStock 的指標程式碼並公布在網路上，下面就是完整的網頁擷取的畫面。

外匯另一支程式的實單績效

突破的做法是外匯市場上很多人使用且容易獲利的方式之一，時間過了那麼久還是持續有效。這個帳戶使用一般的資金管理方式下去做，不到一個月的時間，獲利為本金的 20% 以上。

下面的圖是交易明細，入金 USD 5000 每一次的交易口數為 0.4 口，紅色是 Stop Loss，綠色是 Profit Target，輸贏的次數看起來差不多，也有一兩天是沒有交易的，這樣的結果應該是算不錯吧我想。

但是，跟昨天貼的那個系統比起來 ( 穩定的系統這篇 )，如果用同樣的槓桿倍數下去做，另外那個帳戶本金為 USD 10000 應該做 0.8 口，也就是說那個一萬美金才跑兩個星期就可以獲利 USD 9512，幾乎是兩個星期一倍的獲利耶，跟這個比起來差了四倍.....這就是人生阿~~

Macd Divergence 背離的程式碼 (TS8,MC)

背離的程式碼，在 Tradestation 8 跟 MultiCharts 都可以正常使用。原創者 Mitch@TSSec 張貼在 Tradestation 討論區


inputs: MACDFastLength( 12 ) , MACDSlowLength( 26 ) , MACDAvgLength( 9 ) , Strength( 5 ), Length( 90 ) , PlotSeries( 1 ) ; // 1 for Plot Series Stream 1, 2 for Plot Series Stream 2 variables: MACDVal( 0 ) , MACDAvg( 0 ) , MACDDiff( 0 ) , BullDivergence( False ), BearDivergence( False ), oSw1Series1( 0 ), oSw1Series2( 0 ), oSw2Series1( 0 ), oSw2Series2( 0 ), oSw1Series3( 0 ), oSw1Series4( 0 ), oSw2Series3( 0 ), oSw2Series4( 0 ), oSw1BarSeries1( 0 ) , oSw1BarSeries2( 0 ) , oSw2BarSeries1( 0 ) , oSw2BarSeries2( 0 ) , oSw1BarSeries3( 0 ) , oSw1BarSeries4( 0 ) , oSw2BarSeries3( 0 ) , oSw2BarSeries4( 0 ) , HiLo( 0 ) , { pass in 1 for BearishDiv (based on SwingHighs), -1 for BullishDiv (based on SwingLows) } TL_IDBull( 0 ) , TL_IDBear( 0 ) ; MACDVal = MACD( Close , MACDFastLength, MACDSlowLength ) ; MACDAvg = XAverage( MACDVal, MACDAvgLength ) ; MACDDiff = MACDVal - MACDAvg ; BullDivergence = False ; BearDivergence = False ; HiLo = 1 ; //Most recent Price Pivot High Value1 = Pivot( High, Length, Strength, Strength, 1, HiLo, oSw1Series1, oSw1BarSeries1 ) ; //Most recent MACDDiff Pivot High Value2 = Pivot( MACDDiff, Length, Strength, Strength, 1, HiLo, oSw1Series2, oSw1BarSeries2 ) ; //Second most recent Price Pivot High Value3 = Pivot( High, Length, Strength, Strength, 2, HiLo, oSw2Series1, oSw2BarSeries1 ) ; //Second most recent MACDDiff Pivot High Value4 = Pivot( MACDDiff, Length, Strength, Strength, 2, HiLo, oSw2Series2, oSw2BarSeries2 ) ; HiLo = - 1 ; //Most recent Price Pivot Low Value5 = Pivot( Low, Length, Strength, Strength, 1, HiLo, oSw1Series3, oSw1BarSeries3 ) ; //Most recent MACDDiff Pivot Low Value6 = Pivot( MACDDiff, Length, Strength, Strength, 1, HiLo, oSw1Series4, oSw1BarSeries4 ) ; //Second most recent Price Pivot Low Value7 = Pivot( Low, Length, Strength, Strength, 2, HiLo, oSw2Series3, oSw2BarSeries3 ) ; //Second most recent MACDDiff Pivot Low Value8 = Pivot( MACDDiff, Length, Strength, Strength, 2, HiLo, oSw2Series4, oSw2BarSeries4 ) ; //Plot divergence zones if Value1 = 1 { most recent price pivot high found } and Value2 = 1 { most recent MACD pivot high found } and ( High > oSw1Series1 and MACDDiff < oSw1Series2 ) and AbsValue( oSw1BarSeries1 - oSw1BarSeries2) <= 5 then if PlotSeries = 1 then plot1( High ) else plot1( MACDDiff ) ; if Value5 = 1 { most recent price pivot low found } and Value6 = 1 { most recent MACD pivot low found } and ( Low < oSw1Series3 and MACDDiff > oSw1Series4 ) and AbsValue( oSw1BarSeries3 - oSw1BarSeries4) <= 5 then if PlotSeries = 1 then plot2( Low ) else plot2( MACDDiff ) ; if Value3 = 1 { pivot found; this automatically implies that Value1 also 1 } and Value4 = 1 { pivot found; this automatically implies that Value2 also 1 } and ( oSw1Series1 > oSw2Series1 and oSw1Series2 < oSw2Series2 ) and AbsValue( oSw2BarSeries1 - oSw2BarSeries2) <= 5 then BearDivergence = True ; if Value7 = 1 { pivot found; this automatically implies that Value5 also 1 } and Value8 = 1 { pivot found; this automatically implies that Value6 also 1 } and ( oSw1Series3 < oSw2Series3 and oSw1Series4 > oSw2Series4 ) and AbsValue( oSw2BarSeries3 - oSw2BarSeries4) <= 5 then BullDivergence = True ; if BearDivergence and BearDivergence[1] = False then if PlotSeries = 1 then begin TL_IDBear = TL_New( Date[oSw2BarSeries1], Time[oSw2BarSeries1], oSw2Series1, Date[oSw1BarSeries1], Time[oSw1BarSeries1], oSw1Series1 ) ; TL_SetColor(TL_IDBear, Red ) ; TL_SetSize(TL_IDBear, 2 ) ; end else begin TL_IDBear = TL_New( Date[oSw2BarSeries2], Time[oSw2BarSeries2], oSw2Series2, Date[oSw1BarSeries2], Time[oSw1BarSeries2], oSw1Series2 ) ; TL_SetColor(TL_IDBear, Red ) ; TL_SetSize(TL_IDBear, 2 ) ; end ; if BullDivergence and BullDivergence[1] = False then if PlotSeries = 1 then begin TL_IDBull = TL_New( Date[oSw2BarSeries3], Time[oSw2BarSeries3], oSw2Series3, Date[oSw1BarSeries3], Time[oSw1BarSeries3], oSw1Series3 ) ; TL_SetColor(TL_IDBull, Cyan ) ; TL_SetSize(TL_IDBull, 2 ) ; end else begin TL_IDBull = TL_New( Date[oSw2BarSeries4], Time[oSw2BarSeries4], oSw2Series4, Date[oSw1BarSeries4], Time[oSw1BarSeries4], oSw1Series4 ) ; TL_SetColor(TL_IDBull, Cyan ) ; TL_SetSize(TL_IDBull, 2 ) ; end ; if PlotSeries = 2 then Plot3( MACDDiff, "MACDDiff" ) ;

2010/3/12 更新: 放上去原作者的名字, 把程式碼放在 textaera 讓大家更好複製。

舊愛 Ducati 620 僅存的照片

Ducati Monster 車系是很經典的一款車，這台也是我第一部重型機車，在完全沒有騎乘經驗的情況之下，去看了五分鐘就買了，留存的照片很少，下面這張是我很喜歡的角度，尤其是那隻由歐洲名廠 REMUS 代工生產的 Ducati Performance 碳纖維排氣管，實在是超屌的....遠遠聽起來聲音就像打雷一樣。

下面這一張我載著我老婆照片，當時還沒有小孩，應該多多帶她出去兜風的，這張照片彌足珍貴阿....。看得出來，那時候還沒有所謂的紅牌，所有 250 c.c. 以上的重型機車都是黃牌。
這款車真的非常適合初入門的重機騎士，我身高 168 cm 體重 52kg，以男生來說算是嬌小型的，騎乘上完全沒有沉重的負擔，雙腳也能平放著地。 後來這部車賣給一個 180 cm左右的車友，說實在他騎在上面看起來車子有點小....

我的第一部哈雷 Sportster Iron 883

原本是買給自己的生日禮物，交車的時候變成聖誕禮物，中間等了四個多月。

這是去年交車時拍的照片，完全沒有改裝或加裝任何東西在上面，我想以哈雷來說維持原廠式樣應該也算是稀有...哈哈哈。

找到穩定的外匯交易系統...

以前，看到很神奇的回測都會認為是騙人的，可能因為我也被騙很多次了吧。


上面的這張圖，是我一直想要的系統，勝率高並且包含了完整的資金管理，圖下半段是操作的口數，也隨者資金成長而增加，如此才能有加乘效果。

下面這張圖就是今年做的實際成交單，二個星期賺了 11% ，口數是正常單量的十分之一，貼圖可以看到口數都只有0.1口，也就是說，按照正常的槓桿率，確實可以在二個星期之內，讓我們的帳戶賺一倍...Oh, Yes!