KD交叉移動停損

這個範例在日線上可以使用  要如何修改可以跑15分K

input:SLength(5, "MA短天期"),LLength(60, "MA長天期"),StartDay(20160501, "資料起始日");

variable: StopL(0), i(0);

if  getbaroffset(StartDay) > 0 then 

begin

    //if currentbar > 1 then

    i = i + 1;

    //  在多方趨勢下(10MA及60MA黃金交叉)買進部位後；value1 為 買進的Flag。

    //  根據當根K線及其前一天K線兩者之最低價中取其低，做為初始停損點

    if average(close, SLength) crosses over average(close, LLength) and value1 = 0 then 

    begin

        plot1(Low * 0.98, "買進");

        StopL = lowest(low, 2);

        value1 = 1;

        value2 = 0;

    end;

    //  當價格出現創新高之『收盤價』時

    //  以創新高之K線最低點及其前一天K線最低點比較，取其低者，

    //  將初始停損位置移動至此，

    if close > highest(close[1],i) then StopL = lowest(low, 2);

    //  直到有一天的K棒收盤價跌破最後的停損點才停止劃移動停損線。

    if close crosses below StopL and value1 = 1 and value2 = 0 then 

    begin

        value1 = 0;

        value2 = 1;

        plot2(high * 1.02, "賣出");

    end;

    plot3(StopL, "初始停損點");

    //  修飾線條區

    //if value1 = 0 or value2 = 1 then noplot(3); 

    if value1 = 0 then noplot(3);

end;