期貨程式碼

小幫手您好 想問簡單的期貨程式碼

條件:

日K值<日D值        作空1口

週K值<週D值        作空1口

日K值>日D值        作多1口

週K值>週D值        作多1口

程式碼:

var: 

long_condition(false), { 是否做多 }

exit_long_condition(false), { 是否多單出場 }

short_condition(false), { 是否做空 }

exit_short_condition(false);{ 是否空單出場 }

作空1口

condition1 = _k cross over _d; //日K向上穿越日D

condition2 = _wk cross over _wd; //週K向上穿越週D

作多1口

condition3 = _k cross under _d; //日K向下穿越日D

condition4 = _wk cross under _wd; //週K向下穿越週D

if Position <> 1 and long_condition=(0 or condition3 or condition4) then begin

{ 如果符合做多情境(long_condition), 則把部位變成1 (可能是0->1 or -1->1) }

SetPosition(1);

end else if Position <> -1 and short_condition=(0 or condition1 or condition2 ) then begin

{ 如果符合做空情境(short_condition), 則把部位變成-1 (可能是0->-1 or 1->1) }

SetPosition(-1);

end else if Position = 1 and exit_long_condition then begin

{ 如果已經做多, 且發生多方出場情形時(exit_long_condition), 則把部位變成0 }

SetPosition(0);

end else if Position = -1 and exit_short_condition then begin

{ 如果已經做空, 且發生空方出場情形時(exit_short_condition), 則把部位變成0 }

SetPosition(0);

end;

請問這樣程式碼有錯嗎   如果有應該要怎麼修改

謝謝解惑