加入到教程提示  

“語句未尾缺少分號”

variable:a=0;

if con1 and holding=0 then beign

buy(1,1,market);

a:=h;

end

if h>a then sell(holding>0,0,market);

例三：30分鐘翻轉系統

//《日內30分鐘翻轉系統》

//適用于1分鐘周期

//編寫日期：20100812-JYL

//準備需要的中間變量

h30 := ref(hhv(h,30),1);

l30 := ref(llv(l,30),1);

//建立多頭的進場條件

long := h>h30 and time>093000 and time<145000;

if long then

begin

sellshort(holding < 0, 0, limitr, h30);

buy(holding = 0, 1, limitr, h30);

end

//畫出多頭的止損線

partline(holding>0, l30,colorred);

//開空條件

short := l < l30 and time > 093000 and time < 145000;

if short then

begin

sell(holding > 0, 0, limitr, l30);

buyshort(holding = 0, 1, limitr, l30);

end

//畫出空頭的止損線

partline(holding<0, h30, colorgreen);

//收盤前5分鐘平倉

if time > 145500 then

begin

sell(holding > 0, 0, thisclose);

sellshort(holding < 0, 0, thisclose);

end

if con1 and holding=0 then beign

con1樓主沒定義，我假定con1：=1；

variable:a=0;
con1:=1;
if con1 and holding=0 then

begin
buy(1,1,market);

a:=h;

end

if h>a then sell(holding>0,0,market);

//《日內30分鐘翻轉系統》

//適用于1分鐘周期

//編寫日期：20100812-JYL

//準備需要的中間變量

h30 := ref(hhv(h,30),1);

l30 := ref(llv(l,30),1);

//建立多頭的進場條件

long := h>h30 and time>093000 and time<145000;

if long then

begin

sellshort(holding < 0, 0, limitr, h30);

buy(holding = 0, 1, limitr, h30);

end

//畫出多頭的止損線

partline(holding>0, l30,colorred);

//開空條件

short := l < l30 and time > 093000 and time < 145000;

if short then

begin

sell(holding > 0, 0, limitr, l30);

buyshort(holding = 0, 1, limitr, l30);

end

//畫出空頭的止損線

partline(holding<0, h30, colorgreen);

//收盤前5分鐘平倉

if time > 145500 then

begin

sell(holding > 0, 0, thisclose);

sellshort(holding < 0, 0, thisclose);

end