奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- [求救]可否幫忙修改成標準Parabolic SAR之VBS版本。 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=11227)

[求救]可否幫忙修改成標準Parabolic SAR之VBS版本。

各位大大好：
奇狐本身雖有內建SAR(n,n,n)這個涵數。
但若想將SAR運算作變化測示，就無法施作了>.<"

不知是否大大們有標準Parabolic SAR之VBS版本？

================================================
底下附上網路找到最類似SAR之VBS版本(但此版本，尚有許多錯誤之處，其望善心人士，能協助修改成標準Parabolic SAR版本)

TJ:=(H-REF(H,1)+L-REF(L,1))>0 AND BARSCOUNT(C)=2;
{如果TJ成立，則先畫看跌；如果TJ不成立，則先畫看漲}
B:=MAX(ABS(L-REF(C,1)),ABS(H-REF(C,1))); ZC:=MAX(B,H-L); ATR:=MA(ZC,N);
ARC:=ATR*M; TURN:=C; CC:=C; SIC:=C;
<%
vtj=ffl.vardata("TJ")
va=ffl.vardata("ARC")
vt=ffl.vardata("TURN")
vc=ffl.vardata("CC")
vs=ffl.vardata("SIC")'引進數列
vn=ffl.vardata("N")
last=ubound(vc)
if vn>=last then
if vn>last or last<2 then vn=last+1 '在這兩種情況下，就沒有任何輸出。
else
if vtj(1)=0 then '看漲
for i=1 to vn-1
if vs(i)<vs(i-1) then vs(i)=vs(i-1) '取最大
next
vs(vn)=vs(vn-1)
vt(vn)=vs(vn)-va(vn)
p=1
end if
if vtj(1)=1 then '看跌
for i=1 to vn-1
if vs(i)>vs(i-1) then vs(i)=vs(i-1) '取最小
next
vs(vn)=vs(vn-1)
vt(vn)=vs(vn)+va(vn)
p=-1
end if
for i=vn+1 to last
t=0
if p=1 then '看漲
if vc(i-1)<vt(i-1) then
vs(i)=vc(i-1)
vt(i)=vs(i)+va(i)
p=-1
t=-1 '如果要反轉，則設置信號。t的作用是，反轉當天，不重新計算VT。
else
if vc(i-1)>vs(i-1) then
vs(i)=vc(i-1)
vt(i)=vs(i)-va(i)
else
vs(i)=vs(i-1)
vt(i)=vs(i)-va(i)
end if
end if
end if
'--------------------
if p=-1 and t>=0 then '看跌
if vc(i-1)>vt(i-1) then
vs(i)=vc(i-1)
vt(i)=vs(i)-va(i)
p=1
else
if vc(i-1)<vs(i-1) then
vs(i)=vc(i-1)
vt(i)=vs(i)+va(i)
else
vs(i)=vs(i-1)
vt(i)=vs(i)+va(i)
end if
end if
else
t=t+1
end if
next
end if
ffl.vardata("turn")=vt
ffl.varstartindex("turn")=vn
%>
TURN,CIRCLEDOT,colormagenta;
C;
PARTLINE(TURN>C,TURN),CIRCLEDOT,COLORRED;
PARTLINE(TURN<C,TURN),CROSSDOT,COLORGREEN;
DRAWICON(CROSS(TURN,C) OR CROSS(C,TURN),TURN,12);