程式交易 - 移動停損點、進場方法

這個程式給大家參考吧…進場後…會設定停損點…停損點會跟著高、低點移動…然後停損後重新設定進場點…就這樣一直下去…有興趣的就自己玩吧…另外我把進場點的程式碼拿掉囉…自己想進場點吧..:p

程式碼如下：

if date[1] <> date[0] then begin
buyline = 99999;
sellline = 0;
div = 3;
longstopline = 0;
shortstopline = 99999;
count = 0;
end;

if time = 0846.00 then begin
buyline = ;
sellline = ;
end;

if time > 0846.00 and time < 1300.00 and marketposition = 0 and count = 0 then begin
buy ("b1") next bar at buyline stop;
sell ("s1") next bar at sellline stop;
end;

if marketposition > 0 and longstopline = 0 then
longstopline = entryprice(0)-stoploss;
if marketposition < 0 and shortstopline = 99999 then
shortstopline = entryprice(0)+stoploss;

if marketposition > 0 and high > high[1] and high-stoploss > longstopline then
longstopline = high-stoploss;
if marketposition < 0 and low < low[1] and low+stoploss < shortstopline then
shortstopline = low+stoploss;

if marketposition > 0 then begin
exitlong next bar at longstopline stop;
count = 1;
end;
if marketposition < 0 then begin
exitshort next bar at shortstopline stop;
count = 1;
end;

if marketposition = 0 and count = 1 then begin
buyline = ;
sellline = ;
count = 0;
div = ;
longstopline = 99999;
shortstopline = 0;
end;