請教如何修改此公式於13:38分得到當時的
在爬了很多文之後找到了此篇文章..看完了我有些疑問想請教各位大大..此篇的主圖是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
%>
|