如何求 HHV(H,20) 之階梯線 每個階梯必需大於H+15 煩請賜教 謝謝

引用:

---

最初由 mori868 發表
如何求 HHV(H,20) 之階梯線 每個階梯必需大於H+15 煩請賜教 謝謝

---

原碼:


SM:=HHV(H,20); LB:=lbound(SM); FM:=SM[LB]; 

MM:SM;

for i=lbound(SM)+1 to datacount do begin

  if abs(SM[i]-FM)>=15 then FM:=SM[i];

  MM[i]:=FM;

end;

引用:

---

最初由 cgjj 發表

原碼:


SM:=HHV(H,20); LB:=lbound(SM); FM:=SM[LB]; 

MM:SM;

for i=lbound(SM)+1 to datacount do begin

  if abs(SM[i]-FM)>=15 then FM:=SM[i];

  MM[i]:=FM;

end;

---

引用:

---

最初由 mori868 發表
請畫出該階梯線

---

請問版主如果是H+MA(H-L,20)要如何處理?(因為不會FOR...END部份)另外LLV(L,20)-MA(H-L,20)是否也可以一起處理?感謝版主!

引用:

---

最初由 cgjj 發表

原碼:


SM:=HHV(H,20); LB:=lbound(SM); FM:=SM[LB]; 

MM:SM;

for i=lbound(SM)+1 to datacount do begin

  if abs(SM[i]-FM)>=15 then FM:=SM[i];

  MM[i]:=FM;

end;

---

引用:

---

最初由 Markchu7 發表
請問版主如果是H+MA(H-L,20)要如何處理?(因為不會FOR...END部份)另外LLV(L,20)-MA(H-L,20)是否也可以一起處理?感謝版主!

---

__________________
至誠能勝天下至偽
至拙能勝天下至巧

引用:

---

最初由 peter109 發表
將版大公式中 SM的H改為目前您希望計算的
因為有高低不同需求
所以 分兩段分別處理

看看上述方式是否可得到您要的答案

---

引用:

---

最初由 mori868 發表
很好 正在應用中 謝謝
又請教 如何在轉折處顯示記號

---

感謝大哥回答!因為FOR...END這個我不會所以請問 abs(SM[i]-FM)>=15要改嗎?要如何改?
LLV(L,20)-MA(H-L,20)FOR...END的部份又要如何寫呢?請大哥或版主指導!感謝!

引用:

---

最初由 Markchu7 發表
感謝大哥回答!因為FOR...END這個我不會所以請問 abs(SM[i]-FM)>=15要改嗎?要如何改?
LLV(L,20)-MA(H-L,20)FOR...END的部份又要如何寫呢?請大哥或版主指導!感謝!

---

H+15的部份,感謝版主!

引用:

---

最初由 Markchu7 發表
H+15的部份,感謝版主!

---

原碼:


SM:=HHV(H,20); SS:=MA(H-L,20);

LB:=max(lbound(SM),lbound(SS)); FM:=SM[LB]; 

MM:SM;

for i=LB+1 to datacount do begin

  if abs(SM[i]-FM)>=SS[i] then FM:=SM[i];

  MM[i]:=FM;

end;

感謝版主!

LD:=LLV(C,20);
HD:=HHV(C,20);

LBL:=lbound(LD);
LBH:=lbound(HD);

FL:=LD[LBL];
FH:=HD[LBH];
//
LL:LD,coloryellow;
0,color111111,linethick0;
HH:HD,colorgreen;

for i=lbound(LD)+1 to datacount do begin
if abs(LD[i]-FL)>=4 then FL:=LD[i];
LL[i]:=FL;
end;

//
for i=lbound(HD)+1 to datacount do begin
if abs(HD[i]-FH)>=4 then FH:=HD[i];
HH[i]:=FH;
end;
希望 只畫水平線既可 不要畫階梯的連線
HH成立畫水平線至LL 相反亦同