總頁數 (8): « 第一頁 ... « 5 6 [7] 8 » 在這個頁面顯示本主題全部的 112 個文章

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- SAR轉向問題 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=21837)

---

由 cgjj 在 2019-05-07 15:56 發表:

引用:

---

最初由 a9681054 發表
版主你好，
最新版程式我再仔細驗算一下...如還有狀況再向版主反應，在此先感謝您的幫忙與指正∼

---

不客氣

---

由 a9681054 在 2019-05-07 17:01 發表:

版主你好，

程式確認OK了，非常感謝你幫忙~

另需求今日收完盤後顯示"明日的yar值在解盤區要如何表達?.........謝謝~

__________________
chiu

---

由 cgjj 在 2019-05-07 17:31 發表:

引用:

---

最初由 a9681054 發表
版主你好，

程式確認OK了，非常感謝你幫忙~

另需求今日收完盤後顯示"明日的yar值在解盤區要如何表達?.........謝謝~

---

原碼:
if datacount<4 then exit; //K棒不足
CC:=C; HH:=H; LL:=L;
HH3:=HHV(H,3); LL3:=LLV(L,3);
RHCK:=H>ref(H,1);
RLCK:=L<ref(L,1);
DIR:=CC[3]>=CC[1]; DIR:=1-(DIR=0)*2;
YAR:CC*0 CIRCLEDOT; x:=setlbound(YAR,4);
明YAR:YAR linethick0;
if DIR=1 then begin
  yar[4]:=LL3[3]; ep:=HH3[3];
end else begin
  yar[4]:=HH3[3]; ep:=LL3[3];
end;
af:=0.02; NowDir:=DIR; SwapF:=0; NewYar:=0;
PrAF:YAR*0 linethick; //顯示當根 YAR 計算採用之AF值
for i=4+1 to datacount do begin
  if SwapF=1 then begin
    yar[i]:=NewYar; SwapF:=0; af:=0.02; NowDir:=-NowDir;
  end else begin
    PrAF[i]:=AF;
    yar[i]:=yar[i-1]+af*(ep-yar[i-1]); 
    if NowDir=1 then begin
      if RHCK[i] then af:=af+0.02;
      if HH[i]>ep then ep:=HH[i]; 
    end else begin
      if RLCK[i] then af:=af+0.02;
      if LL[i]<ep then ep:=LL[i];
    end;
    if af>0.2 then af:=0.2;
  end;
  if NowDir=1 then begin
    if CC[i]<yar[i] then begin
      SwapF:=1; NewYar:=ep; ep:=LL[i];
    end; 
  end else begin
    if CC[i]>yar[i] then begin
       SwapF:=1; NewYar:=ep; ep:=HH[i];
    end;
  end;
  if SwapF=1 then 明yar[i]:=NewYar;
  if SwapF=0 then 明yar[i]:=yar[i]+af*(ep-yar[i]);
end;
AFCK:=PRAF=0.2;
VERTLINE(AFCK=1 and ref(AFCK=0,1)) linedot; //首根AF=0.2畫垂直線
EXPLAINEX(1,'今YAR: ',YAR,2,0);
EXPLAINEX(1,'明YAR: ',明YAR,2,0);

原碼:
if datacount<4 then exit; //K棒不足
CC:=C; HH:=H; LL:=L;
HH3:=HHV(H,3); LL3:=LLV(L,3);
RHCK:=H>ref(H,1);
RLCK:=L<ref(L,1);
DIR:=CC[3]>=CC[1]; DIR:=1-(DIR=0)*2;
YAR:CC*0 CIRCLEDOT; x:=setlbound(YAR,4);
明YAR:YAR linethick0;
if DIR=1 then begin
  yar[4]:=LL3[3]; ep:=HH3[3];
end else begin
  yar[4]:=HH3[3]; ep:=LL3[3];
end;
af:=0.02; NowDir:=DIR; SwapF:=0; NewYar:=0;
PrAF:YAR*0 linethick; //顯示當根 YAR 計算採用之AF值
Swap:YAR*0 linethick; //轉向位置紀錄
Swap[4]:=NowDir;
for i=4+1 to datacount do begin
  if SwapF=1 then begin
    yar[i]:=NewYar; SwapF:=0; af:=0.02; NowDir:=-NowDir;
    Swap[i]:=NowDir;
  end else begin
    PrAF[i]:=AF;
    yar[i]:=yar[i-1]+af*(ep-yar[i-1]); 
    if NowDir=1 then begin
      if RHCK[i] then af:=af+0.02;
      if HH[i]>ep then ep:=HH[i]; 
    end else begin
      if RLCK[i] then af:=af+0.02;
      if LL[i]<ep then ep:=LL[i];
    end;
    if af>0.2 then af:=0.2;
  end;
  if NowDir=1 then begin
    if CC[i]<yar[i] then begin
      SwapF:=1; NewYar:=ep; ep:=LL[i];
    end; 
  end else begin
    if CC[i]>yar[i] then begin
       SwapF:=1; NewYar:=ep; ep:=HH[i];
    end;
  end;
  if SwapF=1 then 明yar[i]:=NewYar;
  if SwapF=0 then 明yar[i]:=yar[i]+af*(ep-yar[i]);
end;
AFCK:=PRAF=0.2;
VERTLINE(AFCK=1 and ref(AFCK=0,1)) linedot; //首根AF=0.2畫垂直線
EXPLAINEX(1,'今YAR: ',YAR,2,0);
EXPLAINEX(1,'明YAR: ',明YAR,2,0);

Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.