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

程式寫作中的問題

請教總版主：
1.如何取得，比REF(H,1)更大之H值(5天內或全部K棒值範圍內)及取得當根K棒之距離？
2.由距離之當根K棒向前取得TROUGH(2,0.09,1)之值？

我已經想過很多種方式，仍未解出。
請多指教

1.NN:=BARSLAST(H>ref(H,1));
HH1:=HHVBARS(H,NN);

2.FL1:=TROUGH(2,0.09,1);
FLH:=REF(FL1,HH1);

是否是錯誤之取法？

回覆: 程式寫作中的問題

引用:

---

最初由 sunnyjboy1960 發表
如何取得，比REF(H,1)更大之H值(5天內或全部K棒值範圍內)及取得當根K棒之距離？

---

壓力支撐--細部修正，尚未全部完成，抓bug中

感謝指導，我在導入程式並修改成：
1. 查找過去壓力：
⑴向前找比本根K棒H更大之H值(FHH)(全部K棒值範圍內)及取得當根K棒之距離(PPH)？
⑵以FHH與近高點相比較，L<前高，H>前高時，突破前高，續漲時，下根K棒壓力向前取前較高K棒之FH1
⑶HHH1為各波向上漲之壓力值。
2. 下跌找支撐：
⑴向前找比本根K棒L更低之L值(FLL)(全部K棒值範圍內)及取得當根K棒之距離(PPL)？
⑵以FLL與近高點相比較，H>前低，L<前低時，跌破前低，續跌時，下根K棒壓力向前取前較低K棒之FL1
⑶LLL1為各波向下跌之支撐值。
上漲之壓力值在各點驗證大致均正確，
但是下跌支撐的L值在只到前低點相同時，支撐值就出現錯誤並向下跳一級，是否有那一個據數取錯了？

後面附上結果圖二張，第一張為正常圖，第二張為反轉圖

FH1:=PEAK(1,0.015,1)LINETHICK1,Colorff40ff,LINEDOT;
HH:=H; PPH:C*0;
for i=1 to datacount do begin TempH:=HH[i]; PPH[i]:=-1;{HH[i-1]}
for j=i-1 downto 1 do begin if HH[j]>TempH then begin PPH[i]:=i-j; break; end; end;
end;
FHH:=IF(REF(H,1)=FH1,FH1,REF(FH1,PPH));
HHH1:IF((REF(H,1)>FH1 AND REF(L,1)<REF(FH1,1)) OR (REF(H,1)>REF(FH1,1)),FHH,FH1) LINETHICK3,ColorBLUE,LINEDOT;

FL1:TROUGH(2,0.015,1) LINETHICK1,ColorGREEN,LINEDOT;
LL:=L; PPL:C*0;
for x=1 to datacount do begin TempL:=LL[x]; PPL[x]:=-1;{LL[x-1]}
for y=x-1 downto 1 do begin if LL[j]<TempL then begin PPL[x]:=x-y; break; end; end;
end;

FLL:=IF(REF(L,1)=FL1,FL1,REF(FL1,PPL));
LLL1:IF((REF(L,1)<FL1 AND REF(H,1)>REF(FL1,1)) OR (REF(L,1)<REF(FL1,1)),FLL,FL1)LINETHICK3,ColorGREEN,LINEDOT;

第二張反轉圖

第二張反轉圖，可以看得比較明確

回覆: 壓力支撐--細部修正，尚未全部完成，抓bug中

引用:

---

最初由 sunnyjboy1960 發表
感謝指導，我在導入程式並修改成：
1. 查找過去壓力：
⑴向前找比本根K棒H更大之H值(FHH)(全部K棒值範圍內)及取得當根K棒之距離(PPH)？
⑵以FHH與近高點相比較，L<前高，H>前高時，突破前高，續漲時，下根K棒壓力向前取前較高K棒之FH1
⑶HHH1為各波向上漲之壓力值。
2. 下跌找支撐：
⑴向前找比本根K棒L更低之L值(FLL)(全部K棒值範圍內)及取得當根K棒之距離(PPL)？
⑵以FLL與近高點相比較，H>前低，L<前低時，跌破前低，續跌時，下根K棒壓力向前取前較低K棒之FL1
⑶LLL1為各波向下跌之支撐值。
上漲之壓力值在各點驗證大致均正確，
但是下跌支撐的L值在只到前低點相同時，支撐值就出現錯誤並向下跳一級，是否有那一個據數取錯了？

後面附上結果圖二張，第一張為正常圖，第二張為反轉圖

FH1:=PEAK(1,0.015,1)LINETHICK1,Colorff40ff,LINEDOT;
HH:=H; PPH:C*0;
for i=1 to datacount do begin TempH:=HH[i]; PPH[i]:=-1;{HH[i-1]}
for j=i-1 downto 1 do begin if HH[j]>TempH then begin PPH[i]:=i-j; break; end; end;
end;
FHH:=IF(REF(H,1)=FH1,FH1,REF(FH1,PPH));
HHH1:IF((REF(H,1)>FH1 AND REF(L,1)<REF(FH1,1)) OR (REF(H,1)>REF(FH1,1)),FHH,FH1) LINETHICK3,ColorBLUE,LINEDOT;

FL1:TROUGH(2,0.015,1) LINETHICK1,ColorGREEN,LINEDOT;
LL:=L; PPL:C*0;
for x=1 to datacount do begin TempL:=LL[x]; PPL[x]:=-1;{LL[x-1]}
for y=x-1 downto 1 do begin if LL[j]<TempL then begin PPL[x]:=x-y; break; end; end;
end;

FLL:=IF(REF(L,1)=FL1,FL1,REF(FL1,PPL));
LLL1:IF((REF(L,1)<FL1 AND REF(H,1)>REF(FL1,1)) OR (REF(L,1)<REF(FL1,1)),FLL,FL1)LINETHICK3,ColorGREEN,LINEDOT;

---