謝謝大家的回復
1.重灌ts2000i可以解決.
2.之前會發生的原因是Alerts11.mdb檔案大小達1000MB.會出現如附上圖.
3.新問題為什麼才跑1天的實際測試Alerts11.mdb檔案大小達400MB.以下為strategy的程式請問那理有寫錯
為什麼Alerts11.mdb檔案大小達400MB? 謝謝
inputs: bs(10), moveEarn(10);
vars: tempHigh(0), tempLow(0), tempOpen(0), mc(0), loseCount(0);
if date <> date[1] then begin
tempHigh = 0;
tempLow = 99999;
tempOpen = opend(0);
if PositionProfit(1) < 0 then loseCount = -1;
if PositionProfit(1) >= 0 then loseCount = 0;
end;
mc = marketposition * currentcontracts;
if mc <> mc[1] then begin
tempHigh = 0;
tempLow = 99999;
end;
if mc <> mc[1] and PositionProfit(1) < 0 then loseCount = loseCount + 1;
if mc > 0 and high > tempHigh then tempHigh = high;
if mc < 0 and low < tempLow then tempLow = low;
if losecount < 2 and mc = 0 and time < 1329 then begin
buy ("b1") next bar at tempOpen + bs stop;
sell("s1") next bar at tempOpen - bs stop;
end;
if loseCount < 2 and mc > 0 and time < 1329 then begin
sell("s2") next bar at tempHigh - 10 stop;
end;
if loseCount < 2 and mc < 0 and time < 1329 then begin
buy ("b2") next bar at tempLow + 10 stop;
end;
if loseCount = 2 and mc > 0 and time < 1329 and tempHigh - 19 < entryprice(0) then begin
exitlong ("ex-b") next bar at tempHigh - 10 stop;
end;
if loseCount = 2 and mc > 0 and time < 1329 and tempHigh - 19 >= entryprice(0) then begin
sell("s3") next bar at tempHigh - 10 stop;
end;
if loseCount = 2 and mc < 0 and time < 1329 and tempLow + 19 > entryprice(0) then begin
exitshort ("ex-s") next bar at tempLow + 10 stop;
end;
if loseCount = 2 and mc < 0 and time < 1329 and tempLow + 19 <= entryprice(0) then begin
buy ("b3") next bar at tempLow + 10 stop;
end;
if time = 1329 and mc <> 0 then begin
exitlong ("b-end") next bar at market;
exitshort("s-end") next bar at market;
end;
|