- 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp)
-- 策略编写求助区 (http://weistock.com/bbs/list.asp?boardid=11)
---- 悬赏2金币求助一个交易策略的改写 (http://weistock.com/bbs/dispbbs.asp?boardid=11&id=75439)
-- 发布时间：2015/2/6 13:45:32
-- 悬赏2金币求助一个交易策略的改写
该策略为序时计算的，我想改写成逐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.空損出
-- 发布时间：2015/2/6 22:09:06
--
我有心帮你，可一看是循环，还真搞不定，只好眼睁睁地看着金币溜了
-- 发布时间：2015/2/7 18:30:13
--
没人啊？？
-- 发布时间：2015/2/9 21:03:33
--
高手哪儿去了
-- 发布时间：2015/5/19 22:18:02
--
这模型谁能改写，我出重金
-- 发布时间：2015/5/21 13:02:34
--
2金币
，多少克啊，不要谢瑞麟的，老谢破产过彩头不好。咱以前学习编程练手的时候，写过类似的，平常最喜欢把玩金币。老金币有附加古玩价值，太强人所难。现代的周大福的即可，老周在各处有很多分店，比较方便。