小小鳥的小小天地

程式碼：

variable:Bsflag(0);
variable:cost(0);
variable:vdate(0);
variable:xdate(0);
input:day1(5,"五日均線"); //參數用input可以自行調整
input:day2(20,"二十日均線");
value1=average(c,day1);
value2=average(c,day2);

//進場
if value1>value2 and value1[1]<value2[1] and bsflag=0 then 
begin
 plot1(L*0.999,"多方進場訊號");
 plot3(L*0.997,"多方進場訊號");
 bsflag=1;
 if c-cost<0 then
 begin
  plot6(H*1.001,"獲利");
 end
 else
  plot7(H*1.003,"虧損");
 cost=c; //成本線 cost=c
 vdate=date;
end;
 
//出場
if value1<value2 and value1[1]>value2[1] and bsflag=1 then 
begin
 plot2(H*1.001,"空方進場訊號");
 plot4(H*1.003,"空方進場訊號");
 bsflag=0;
 if c-cost>0 then
 begin
  plot8(L*0.999,"獲利");
 end
 else
  plot9(L*0.997,"虧損");
 cost=c;
 xdate=date;
end;

plot5(cost,"成本價");