您好,真辛苦您了

根據您的指導,我已將原先的
進L:=多進 or barpos=0;
出L:=多出 or barpos=0;
進S:=空進 or barpos=0;
出S:=空出 or barpos=0;

改為向左移一根
進L:=ref(多進,1) or barpos=0;
出L:=ref(多出,1) or barpos=0;
進S:=ref(空進,1) or barpos=0;
出S:=ref(空出,1) or barpos=0;

己解決了原先的問題,真是太好了,
然而又產生了另一問題,
因向左移一根,它進場價是捉進場當根的收盤價,
而不是真正的進場的開盤價,故("損出",盈出",及出場)的計算
都受影嚮而產生錯誤

故我將原碼中的
CC=C 改為 OO=O
進價:=CC[i] 改為 進價:=OO[i]

如此是否有誤...

,希望您再次指導

另"盈出"的部份也勞煩您了...

太感謝您了..辛苦了

__________________
.....大道至簡.....
真言一句話....
不傳千編文.....
http://hcw8845.blogspot.com

引用:

---

最初由 海參威 發表
您好,真辛苦您了

根據您的指導,我已將原先的
進L:=多進 or barpos=0;
出L:=多出 or barpos=0;
進S:=空進 or barpos=0;
出S:=空出 or barpos=0;

改為向左移一根
進L:=ref(多進,1) or barpos=0;
出L:=ref(多出,1) or barpos=0;
進S:=ref(空進,1) or barpos=0;
出S:=ref(空出,1) or barpos=0;

己解決了原先的問題,真是太好了,
然而又產生了另一問題,
因向左移一根,它進場價是捉進場當根的收盤價,
而不是真正的進場的開盤價,故("損出",盈出",及出場)的計算
都受影嚮而產生錯誤

故我將原碼中的
CC=C 改為 OO=O
進價:=CC[i] 改為 進價:=OO[i]

如此是否有誤...

,希望您再次指導

另"盈出"的部份也勞煩您了...

太感謝您了..辛苦了

---

原碼:


進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.空損出

非常..非常的感謝您了..
我進行測試如有不明白,再行請教
感恩.......

__________________
.....大道至簡.....
真言一句話....
不傳千編文.....
http://hcw8845.blogspot.com