奇狐社區論壇 - SAR轉向問題

奇狐社區論壇 : Powered by vBulletin version 2.3.0

奇狐社區論壇 > 指標公式 > 問題交流 > SAR轉向問題

總頁數 (8): « 第一頁 ... « 5 6 [7] 8 »

上一主題下一主題

作者

主題

cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18092

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

不客氣

向版主報告此篇 |

2019-05-07 15:56

a9681054
資深會員

註冊日期: Nov 2008
來　　自: 新北市
文章數量: 479

版主你好，

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

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

__________________
chiu

向版主報告此篇 |

2019-05-07 17:01

cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18092

引用:
最初由 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);

向版主報告此篇 |

2019-05-07 17:31

a9681054
資深會員

註冊日期: Nov 2008
來　　自: 新北市
文章數量: 479

版主你好，

明yar需求顯示....已ok, 謝謝~

__________________
chiu

向版主報告此篇 |

2019-05-07 17:44

a9681054
資深會員

註冊日期: Nov 2008
來　　自: 新北市
文章數量: 479

版主你好，

另需求像sar拋物線轉向點用在副圖，要如何達成?

sar拋物線轉向點...A:SARTURN(10,2,20);

yar拋物線轉向點...A:SARTURN(??? );

__________________
chiu

向版主報告此篇 |

2019-05-07 18:14

cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18092

引用:
最初由 a9681054 發表
版主你好，

另需求像sar拋物線轉向點用在副圖，要如何達成?

sar拋物線轉向點...A:SARTURN(10,2,20);

yar拋物線轉向點...A:SARTURN(??? );

利用 Swap 就可判斷 (翻轉時 Swap=1 or Swap=-1)

原碼: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);

向版主報告此篇 |

2019-05-08 09:17