共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：悬赏2金币求助一个交易策略的改写
1楼
citscwb 发表于：2015/2/6 13:45:32该策略为序时计算的，我想改写成逐K计算的策略，求助高手！
進L:=多進 or barpos=0;
出L:=多出 or barpos=0;
進S:=空進 or barpos=0;
出S:=空出 or barpos=0;
NowLS:=0; //1.多, -1.空, 0.無
DoLS:=C*0; OO:=O; CC:=C; HH:=H; LL:=L;
Do進:=進L-進S; Do出:=出L-出S;
損控:=30; 控盈基:=50; 控盈衰率:=33/100;
for i=1 to datacount do begin
if NowLS=0 then begin
NowLS:=Do進[i]; DoLS[i]:=NowLS; Max盈:=0;
if NowLS<>0 then 進價:=OO[i];
end else begin
if NowLS=-Do進[i] then begin
NowLS:=Do進[i]; DoLS[i]:=NowLS*3; 進價:=OO[i]; Max盈:=0; //反手
end else begin
損HL:=LL[i]*(NowLS=1)+HH[i]*(NowLS=-1);
盈利:=(HH[i]-進價)*(NowLS=1)+(進價-LL[i])*(NowLS=-1);
if (損HL-進價)*NowLS<=-損控 then begin
DoLS[i]:=NowLS*5; NowLS:=0; //停損出
end else begin
盈衰:=Max盈-盈利;
if 盈衰>Max盈*控盈衰率 and Max盈>控盈基 then begin
DoLS[i]:=NowLS*4; NowLS:=0; //盈衰出
end else if NowLS=Do出[i] then begin
DoLS[i]:=Do出[i]*2; NowLS:=0; //訊號出
end;
end;
if 盈利>Max盈 then Max盈:=盈利;
end;
end;
end;
//DoLS意義:
// 1.多進, 2.多出, 3.空翻多, 4.多盈衰出, 5.多損出
//-1.空進,-2.空出, -3.多翻空, -4.空盈衰出, -5.空損出
2楼
lcgs005 发表于：2015/2/6 22:09:06我有心帮你，可一看是循环，还真搞不定，只好眼睁睁地看着金币溜了
3楼
CITSCWB 发表于：2015/2/7 18:30:13没人啊？？
4楼
CITSCWB 发表于：2015/2/9 21:03:33高手哪儿去了
5楼
CITSCWB 发表于：2015/5/19 22:18:02这模型谁能改写，我出重金
6楼
nnnnnn 发表于：2015/5/21 13:02:342金币
，多少克啊，不要谢瑞麟的，老谢破产过彩头不好。
，多少克啊，不要谢瑞麟的，老谢破产过彩头不好。咱以前学习编程练手的时候，写过类似的，平常最喜欢把玩金币。老金币有附加古玩价值，太强人所难。现代的周大福的即可，老周在各处有很多分店，比较方便。
共6 条记录, 每页显示 10 条, 页签:
[1]