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

類拋物線轉向問題

版主，你好：

底下程式是類似拋物線轉向系統，我是參考討論區的「SAR轉向問題」來修改。
但在計算「明yar」時，算出來的數值有誤，不知道尚需改善那些地方，可否請版主協助指導。
PS：會想把下降趨勢採用YAR運算2次，而非直接用AF=0.3，是想要讓其運算速度快一點，觀察是否有差異性。



if datacount<5 then exit;
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,COLOR92DEA9;
x:=setlbound(YAR,4);
明YAR:YAR,circledot,coloryellow,linethick1,shift1; //繪圖用，檢確"明yar"有無正確。

//初始方向與EP設定
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;
tmpYar:=0;
PrAFup:YAR*0,linethick0;
PrAFdn:YAR*0,linethick0;

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
if NowDir=1 then begin
PrAFup[i]:=AF;
PrAFdn[i]:=0;
yar[i] := yar[i-1] + af * (ep - yar[i-1]);
if RHCK[i] then af := af + 0.02;
if HH[i] > ep then ep := HH[i];
if af > 0.2 then af := 0.2;

end else begin

PrAFdn[i]:=AF;
PrAFup[i]:=0;
if RLCK[i] then begin
af := af + 0.015;
tmpYar := yar[i-1] + af * (ep - yar[i-1]); //第一次YAR運算
af := af + 0.015;
yar[i] := tmpYar + af * (ep - tmpYar); //第二次YAR運算
end else begin
yar[i] := yar[i-1] + af * (ep - yar[i-1]);
end;

if LL[i] < ep then ep := LL[i];
if af > 0.2 then af := 0.2;
end;
end;

if NowDir=1 then begin
if LL[i] < yar[i] then begin
SwapF := 1; NewYar := ep; ep := LL[i];
end;
end else begin
if HH[i] > yar[i] then begin
SwapF := 1; NewYar := ep; ep := HH[i];
end;
end;

// 明YAR
if SwapF=1 then
明yar[i] := NewYar
else begin
if NowDir=1 then begin
//上升趨勢
明yar[i] := yar[i] + af * (ep - yar[i]);
end else begin
//下降趨勢
if RLCK[i] then begin
tmpAF := af + 0.015;
tmpYar1 := yar[i] + tmpAF * (ep - yar[i]);
tmpAF := tmpAF + 0.015;
明yar[i] := tmpYar1 + tmpAF * (ep - tmpYar1);
end else begin
明yar[i] := yar[i] + af * (ep - yar[i]);
end;
end;
end;
end;

回覆: 類拋物線轉向問題

引用:

---

最初由 m3energy 發表
版主，你好：

底下程式是類似拋物線轉向系統，我是參考討論區的「SAR轉向問題」來修改。
但在計算「明yar」時，算出來的數值有誤，不知道尚需改善那些地方，可否請版主協助指導。
PS：會想把下降趨勢採用YAR運算2次，而非直接用AF=0.3，是想要讓其運算速度快一點，觀察是否有差異性。



if datacount<5 then exit;
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,COLOR92DEA9;
x:=setlbound(YAR,4);
明YAR:YAR,circledot,coloryellow,linethick1,shift1; //繪圖用，檢確"明yar"有無正確。

//初始方向與EP設定
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;
tmpYar:=0;
PrAFup:YAR*0,linethick0;
PrAFdn:YAR*0,linethick0;

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
if NowDir=1 then begin
PrAFup[i]:=AF;
PrAFdn[i]:=0;
yar[i] := yar[i-1] + af * (ep - yar[i-1]);
if RHCK[i] then af := af + 0.02;
if HH[i] > ep then ep := HH[i];
if af > 0.2 then af := 0.2;

end else begin

PrAFdn[i]:=AF;
PrAFup[i]:=0;
if RLCK[i] then begin
af := af + 0.015;
tmpYar := yar[i-1] + af * (ep - yar[i-1]); //第一次YAR運算
af := af + 0.015;
yar[i] := tmpYar + af * (ep - tmpYar); //第二次YAR運算
end else begin
yar[i] := yar[i-1] + af * (ep - yar[i-1]);
end;

if LL[i] < ep then ep := LL[i];
if af > 0.2 then af := 0.2;
end;
end;

if NowDir=1 then begin
if LL[i] < yar[i] then begin
SwapF := 1; NewYar := ep; ep := LL[i];
end;
end else begin
if HH[i] > yar[i] then begin
SwapF := 1; NewYar := ep; ep := HH[i];
end;
end;

// 明YAR
if SwapF=1 then
明yar[i] := NewYar
else begin
if NowDir=1 then begin
//上升趨勢
明yar[i] := yar[i] + af * (ep - yar[i]);
end else begin
//下降趨勢
if RLCK[i] then begin
tmpAF := af + 0.015;
tmpYar1 := yar[i] + tmpAF * (ep - yar[i]);
tmpAF := tmpAF + 0.015;
明yar[i] := tmpYar1 + tmpAF * (ep - tmpYar1);
end else begin
明yar[i] := yar[i] + af * (ep - yar[i]);
end;
end;
end;
end;

---

>.<" ，收到，我重新整理相關邏輯概念。