謝富雄 |
級別 新手上路 積分 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 ; |
|
謝富雄 |
|
|