奇狐社區論壇 (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=21765)

下降趨勢線

HH:=H;
HHV2:=HHV(H,2);
CK:=H>=ref(HHV2,1) and H>=refx(HHV2,2);
CKSP:=barslast(CK); StNo:=lbound(CKSP);
DWSP:=C*0; //距離
DWSE:=C*0; //斜率
for i= datacount downto StNo do begin
i:=i-CKSP[i]; if i<=StNo then break;
for j=i-1 downto StNo do begin
j:=j-CKSP[j];
if HH[j]>HH[i] then begin
DWSP[i]:=i-j; DWSE[i]:=(HH[i]-HH[j])/DWSP[i] ;break
end;
end;
end;

DRAWSL(CK and DWSP>0,HH,DWSE,DWSP,1)

請問版主
如果只畫最近一次應如何修改?
謝謝!!

回覆: 下降趨勢線

引用:

---

最初由 tsh 發表
HH:=H;
HHV2:=HHV(H,2);
CK:=H>=ref(HHV2,1) and H>=refx(HHV2,2);
CKSP:=barslast(CK); StNo:=lbound(CKSP);
DWSP:=C*0; //距離
DWSE:=C*0; //斜率
for i= datacount downto StNo do begin
i:=i-CKSP[i]; if i<=StNo then break;
for j=i-1 downto StNo do begin
j:=j-CKSP[j];
if HH[j]>HH[i] then begin
DWSP[i]:=i-j; DWSE[i]:=(HH[i]-HH[j])/DWSP[i] ;break
end;
end;
end;

DRAWSL(CK and DWSP>0,HH,DWSE,DWSP,1)

請問版主
如果只畫最近一次應如何修改?
謝謝!!

---

謝謝版主