原碼: 買訊1:=買訊1 or barpos=0;
買訊2:=買訊2 or barpos=0;
買訊3:=買訊3 or barpos=0;
買訊4:=買訊4 or barpos=0;
買訊5:=買訊5 or barpos=0;
賣訊1:=賣訊1 or barpos=0;
賣訊2:=賣訊2 or barpos=0;
賣訊3:=賣訊3 or barpos=0;
賣訊4:=賣訊4 or barpos=0;
賣訊5:=賣訊5 or barpos=0;
賣訊6:=賣訊6 or barpos=0;
買訊:=(買訊1+買訊2+買訊3)*2+(買訊3+買訊5);
賣訊:=賣訊1+賣訊2+賣訊3+賣訊4+賣訊5;
買賣:=買訊-賣訊;
持量:C*0; //當根動作後所持有的數量
NowN:=0; 平均價:=(H+L+C)/3;
BC:=0; SC:=0; BN:=0; SN:=0;
PP:C*0 NOAXIS;
for i=1 to datacount do begin
NewN:=NowN+買賣[i];
if NewN<0 or 賣訊6[i]=1 then NewN:=0;
if NewN>4 then NewN:=4;
AddN:=NewN-NowN;
if AddN>0 then begin
BC:=BC+平均價[i]*AddN;
BN:=BN+AddN;
end else if AddN<0 then begin
SC:=SC-平均價[i]*AddN;
SN:=SN-AddN;
end;
NowN:=NewN; 持量[i]:=NowN;
SSC:=SC+平均價[i]*NowN;
SSN:=SN+NowN;
PP[i]:=(SSC/SSN)/(BC/BN);
if 賣訊6[i]=1 then begin
BC:=0; SC:=0; BN:=0; SN:=0;
end;
end;
a. 希望算出近兩年來的總作多次數(cross(R2B,30) 到出現cross(30,R2B) 視為一次)
b. 兩年來已經完全平倉(持量=0)的累計報酬率(虧損部分直接減除)
c. 交易成功率: 成功的次數/總交易次數(完全平倉時的PP值<3%則視為失敗)
d. 最大浮動報酬率(附帶輸出該未平倉日期)
e. 最大浮動虧損率(附帶輸出該未平倉日期)
a. 希望算出近兩年來的總作多次數(cross(R2B,30) 到出現cross(30,R2B) 視為一次)
b. 兩年來已經完全平倉(持量=0)的累計報酬率(虧損部分直接減除)
c. 交易成功率: 成功的次數/總交易次數(完全平倉時的PP值<3%則視為失敗)
d. 最大浮動報酬率(附帶輸出該未平倉日期)
e. 最大浮動虧損率(附帶輸出該未平倉日期)