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

請教如何修改此公式於１３：３８分得到當時的

在爬了很多文之後找到了此篇文章..看完了我有些疑問想請教各位大大..此篇的主圖是5分鐘(週期)取得90分鐘的KD的K值的程式

我想更改主圖為60分鐘(週期),因為我想在13:38分取得當在13:38分的60分鐘的K還有D值,還有MACD 的值,請問我該在此公式作什麼樣的修改..請會的高手大大教教我

1.60分鐘的K及D值

2.日的K及D值 (這三項的值都是要在當天的13:38分)

3.60分鐘的MACD值







原碼:--------------------------------------------------------------------------------
de:=date;
cc5:=c;
hh5:=h;
ll5:=l;
K90:c*0;
<%
N=FFL.VarData("N")
M1=FFL.VarData("M1")
de=FFL.VarData("de")
cc5=FFL.VarData("cc5")
ll5=FFL.VarData("ll5")
hh5=FFL.VarData("hh5")
K90=FFL.VarData("K90")
stno=FFL.VarStartIndex("cc5")
endno=ubound(cc5)
redim hh90(endno),ll90(endno), kk90(endno)
ckno=0: Kno=0: K90SK=0
for i = stno to endno
ckno=ckno+1
if i=endno then ckset=true else ckset=(ckno=18 or de(i)<>de(i+1))
if ckset=true then
ll90(Kno)=ll5(i): hh90(Kno)=hh5(i)
for j=i-ckno+1 to i
if ll5(j)<ll90(Kno) then ll90(Kno)=ll5(j)
if hh5(j)>hh90(Kno) then hh90(Kno)=hh5(j)
next
if N = 0 then StnoN = 0 else StnoN=Kno-N+1
if StnoN<0 then StnoN=0
hhvh=hh90(StnoN):llvl=ll90(StnoN)
for j=StnoN+1 to Kno
if hh90(j)>hhvh then hhvh = hh90(j)
if ll90(j)<llvl then llvl = ll90(j)
next
if hhvh-llvl<>0 then RSV=((cc5(i)-llvl)/(hhvh-llvl))*100
if Kno=0 then
KK90(Kno)=RSV: K90SK = i
else
KK90(Kno)=(1*RSV+(M1-1)*KK90(Kno-1))/M1
end if
for j=i-ckno+1 to i
K90(j)=KK90(Kno)
next
Kno=Kno+1
ckno=0
end if
next
FFL.VarData("K90")=K90
FFL.VarStartIndex("K90")=K90SK+1
%>

你只要當日的數值嗎
如果是
最好用取巧的方法來解決
速度又快

感謝回文給我的大大..我知道我的問題出在哪了..我使用60分鐘線..我現在都是用歷史在回測..所以會誤以為..程式每60分鐘才會run 一次..如果是使用即時的話..在盤中只要有資料進來..指標就會變動..我的訊號也會跟著產生或消失..一直的跳動..所以我只需要取樣在整點
9:45 10:45 11:45 12:45 13:45 就行了..至於當初我就是以為程式不是隨時在run的..所以造成我有想取13:38分的kd值取不到的困擾..現在知道是隨時在變動的..那我的問題就解決了..就是把取樣13:45改成取樣13:38就行了..問題已經解決了,因為我的一各想法錯誤..問了那麼多的問題..真是對不起回答我的各位大大..真的是非常感謝你門..

ps:我有去買技術指標通論回來研究..要好好來去研究一下了..