謝富雄 |
級別 新手上路
積分 11
經驗 369
文章 11
註冊 09-11-21 09:24
|
|
 |
 發表: 2009-12-02 11:40:55  | 第2樓 |
以下是奇狐分筆買賣量 請教 1.如果每筆>30才顯示 如何改 ; 及2.HSP語法如何寫出
{本公式，僅適用分筆成交分析週期 , Buy & Sell Volume , BSV}
XA:=C-C;
XB:=C/C;
XD:=CLOSE;
<%
VA= FFL.VarData("XA")
VB= FFL.VarData("XB")
VD= FFL.VarData("XD")
LT = UBound( VD )
for k = 1 to LT
if VD(k)>VD(k-1) then
VA( k )=1
else
VA( k )=0
end if
if VA(k-1)=1 and VD(k)=VD(k-1) then
VA( k )=1
else
VA( k )=VA(k)
end if
next
for k = 1 to LT
if VD(k)<VD(k-1) then
VB( k )=1
else
VB( k )=0
end if
if VB(k-1)=1 and VD(k)=VD(k-1) then
VB( k )=1
else
VB( k )=VB(k)
end if
next
FFL.VarData("XA")=VA
FFL.VarData("XB")=VB
%>
STICKLINE(XA=1,0,V,7,0),COLORRED;
STICKLINE(XB=1,0,V,7,0),COLORGREEN;
XE:=XA*VOL;
XF:=XB*VOL;
XG:=SUM(XE,0);
XH:=SUM(XF,0);
{
<%
VG= FFL.VarData("XG")
VH= FFL.VarData("XH")
LT = UBound( VG )
for k = 0 to LT
VG( k )=VG(LT)
VH( k )=VH(LT)
next
FFL.VarData("XG")=VG
FFL.VarData("XH")=VH
%>
}
買方量:XG , Linethick0 ;
賣方量:XH , Linethick0 ;
量:VOL ,Linethick0 ; |
|
謝富雄 |
|
|
