回覆: 下降趨勢線
引用: 最初由 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)
請問版主
如果只畫最近一次應如何修改?
謝謝!!
將
DRAWSL(CK and DWSP>0,HH,DWSE,DWSP,1);
改為
SS:=sum(CK,0);
SS:=CK and SS>SS[datacount]-1;
DRAWSL(SS and DWSP>0,HH,DWSE,DWSP,1);
|