奇狐社區論壇 - [求救]迴圈語法及DoBS變數 [交易範例]

奇狐社區論壇 : Powered by vBulletin version 2.3.0

奇狐社區論壇 > 指標公式 > 問題交流 > [求救]迴圈語法及DoBS變數 [交易範例]

總頁數 (3): [1] 2 3 »

上一主題下一主題

作者

主題

lung
初級會員

註冊日期: Nov 2015
來　　自:
文章數量: 17

[求救]迴圈語法及DoBS變數

版主你好：

有學習寫兩口單交易，當沖策略，
研究多時在迴圈語法及DoBS變數上卡關，
懇請版主檢視賜教、協助完成，感恩。

先建立子公式515BS，指標BSLINE為進出線
M1:=(CROSS(MA(CLOSE,5), MA(CLOSE,15)));
M2:=(CROSS(MA(CLOSE,15), MA(CLOSE,5)));
M3:=M1-M2;
方向:=BARSLAST( M3 );
BS_CT:=barslast((方向=1 and ref(方向<>1,1))OR (方向=-1 and ref(方向<>-1,1)));
BSLINE:REF(O, BS_CT);

再引用子公式515BS指標的MIN1、MIN5、MIN30 不同周期

當沖策略：
無論多單或空單，滿倉最多為兩口單。
多單庫存兩口時，如因多減碼一口或多平一口，未滿倉時，
多進或多加訊號再出現時會再進一口，但滿倉時不下單，空單同上。
多訊或空訊皆為次一根，停損或停利皆為當根。
進場超過盈利20點則回檔12點停利
進場超過盈利60點則回檔30％停利
停損點數:15

在C＞BS30 只做多不做空，
C>BS1多進一口 //+1，滿倉時不下單。
C>BS5多加碼一口 //+1，滿倉時不下單。
C<BS1多減碼一口 // -1，無多單庫存時不下單
C<BS5多減碼一口 // -1，無多單庫存時不下單

在C＜BS30 只做空不做多，
C<BS1空單一口 // -1，滿倉時不下單。
C<BS5空加碼一口 // -1，滿倉時不下單。
C>BS1空減碼一口 // +1，無空單庫存時不下單
C>BS5空減碼一口 // +1，無空單庫存時不下單

以下是公式語法目前進度：( 後段應是錯誤一堆 > <” )

BS1:="515BS.BSLINE#MIN1";
BS5:=" 515BS.BSLINE#MIN5";
BS30:=" 515BS.BSLINE#MIN30";

多進：＝C＞BS30 and cross(C,BS1)；// +1滿倉時不下單。
多加：＝C＞BS30 and cross(C,BS5)；// +1滿倉時不下單。
多減：＝C＞BS30 and cross(BS1,C)；// -1無多單庫存時不下單
多平：＝C＞BS30 and cross(BS5,C)；// -1無多單庫存時不下單
空進：＝C < BS30 and cross(BS1,C)；// -1滿倉時不下單。
空加：＝C < BS30 and cross(BS5,C)；// -1滿倉時不下單。
空減：＝C < BS30 and cross(C,BS1)；// +1無空單庫存時不下單
空平：＝C < BS30 and cross(C,BS5)；// +1無空單庫存時不下單

StDoTime:=085000;
多進:= REF(多進,1) and time>=StDoTime or barpos=0;
多加:= REF(多加,1) and time>=StDoTime or barpos=0;
多減:= REF(多減,1) and time>=StDoTime or barpos=0;
多平:= REF(多平,1) and time>=StDoTime or barpos=0;
空進:= REF(空進,1) and time>=StDoTime or barpos=0;
空加:= REF(空加,1) and time>=StDoTime or barpos=0;
空減:= REF(空減,1) and time>=StDoTime or barpos=0;
空平:= REF(空平,1) and time>=StDoTime or barpos=0;
進場:= (多進+多加+空減+空平) - (空進+空加+多減+多平);

強出:=time>=133500;
限進:=time>=123500;
限停損次:=3; // 若為停損出場3次，當日不下單
滿倉:=2; //每日
停損點數:=15;

多進本:= ref(O,barslast(多進));
多加本:= ref(O,barslast(多加));
空進本:= ref(O,barslast(空進));
空加本:= ref(O,barslast(空加));

OO:=O; CC:=C; HH:=H; LL:=L;
StDE:=barpos=1 or time=StDoTime;
DoBS:C*0 NOAXIS; RecDO:C*0 linethick;

多空:=0; //1.多 -1.空 0.無

for i=1 to datacount do begin
if StDE[i] then begin
累停損次:=0; WaitBS:=0;
end;
if 多空=0 and 強出[i]=0 and 限進[i]=0 and 累停損次<限停損次then begin
if WaitBS=0 or WaitBS=進場[i] then begin
多空:=進場[i];
if 多空<>0 then begin
進價:=OO[i]; Max盈:=0; PreTN:=0; WaitBS:=-SGN(多空);
RecDO[i]:=SGN(多空);
end;
end;
end else if 多空<>0 then begin
NowDir:=SGN(多空);
if 強出[i] then begin
多空:=0; RecDO[i]:=NowDir*7;

end else if (C-多進本)*NowDir<= -停損點數
and多空:=2 then begin
多空:=1; 累停損次:=累停損次+1; //停損

end else if (C-多進本)*NowDir<= -停損點數
and多空:=1 then begin
多空:=0; 累停損次:=累停損次+1; //停損

end else if (C-多加本)*NowDir<= -停損點數
and多空:=2 then begin
多空:=1; 累停損次:=累停損次+1; //停損

end else if (C-多加本)*NowDir<= -停損點數
and多空:=1 then begin
多空:=0; 累停損次:=累停損次+1; //停損

end else if (C-空進本)*NowDir>= 停損點數
and多空:=-2 then begin
多空:=-1; 累停損次:=累停損次+1; //停損

end else if (C-空進本)*NowDir>= 停損點數
and多空:=-1 then begin
多空:=0; 累停損次:=累停損次+1; //停損

end else if (C-空加本)*NowDir>= 停損點數
and多空:=-2 then begin
多空:=-1; 累停損次:=累停損次+1; //停損

end else if (C-空加本)*NowDir>=停損點數
and多空:=-1 then begin
多空:=0; 累停損次:=累停損次+1; //停損

end else if
Max盈>=61 then begin

if 多進本+60 < Max盈*0.75 then 多空:=0;
end;
end else if
Max盈>=20 then begin

if 多進本+20 < Max盈*0.6 then 多空:=0;
end;

DoBS[i]:=多空;

end;

ENTERLONG: 多空=1; {多頭買入}
EXITLONG: 多空=-1 ; {多頭賣出}
ENTERSHORT: 多空=-1; {空頭買入}
EXITSHORT: 多空=1; {空頭賣出}

__________________
lung