變數的運用(五)

其實我不太知道這一系列的文章看的人到底多還是少…也許會有人覺得寫這些東西根本一點用也沒有…因為寫出來的策略都是虧損的…不過既然已經說是教學了…那就不要太再意績效了吧。延續上一篇文章的例子，先把程式碼寫出來：



vars: crossStatus(0), openStatus(0);
vars: mc(0), longLine(0), shortLine(0);

mc = marketposition * currentcontracts;

if date <> date[1] then begin
crossStatus = 0;
openStatus = 0;
longLine = 0;
shortLine = 0;
end;

Value1 = MACD(close, 12, 26);
Value2 = XAverage(MACD(close, 12, 26), 9);

if opend(0) > closed(1) then begin
openStatus = 1;
end;

if opend(0) < closed(1) then begin
openStatus = -1;
end;

if openStatus = 1 and Value1 cross under Value2 then begin
crossStatus = 1;
end;

if openStatus = -1 and Value1 cross over Value2 then begin
crossStatus = -1;
end;

if time < 1300 and crossStatus = 1 and Value1 cross over Value2 and Value1 < 50 then begin
longLine = high;
end;

if time < 1300 and crossStatus = -1 and Value1 cross under Value2 and Value1 > 50 then begin
shortLine = low;
end;

if longLine <> 0 then begin
buy next bar at LongLine stop;
end;

if shortLine <> 0 then begin
sell next bar at shortLine stop;
end;

if time = 1330 then begin
exitlong next bar at market;
exitshort next bar at market;
end;

if mc <> mc[1] then begin
openStatus = 0;
crossStatus = 0;
longLine = 0;
shortLine = 0;
end;

setstoploss(10000);



還真是愈寫愈長了…看的下去的人應該也漸漸變少了吧。在上一篇提出練習的時候其實我還沒動手寫這隻程式…寫了才發現…原來符合我一開始預定的條件的交易次數實在少的可憐。

所以這邊就動手修改了一下條件…變成不管第一次交易的 MACD 值，而在第二次 MACD 交叉時，才去限制。作多的第二次限制在 MACD < 50 ，而作空的第二次交叉則限制在 MACD > 50 的情況下。

主要程式碼並沒有太大幅度的修改…不過是把之前的抓高低點再放進來而已。

這隻程式到目前算是結束囉。等我再想下一個主題吧。