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