 |
N122562663
資深會員

註冊日期: Jan 2010
來 自:
文章數量: 270 |
值依然不同
總版主您好:抱歉、我試過後、值依然不同、請看那兒出錯、謝謝您。
新公式
UD:=符號值(收盤價-向前引用(收盤價,1));
UD:=條件函數(數據位置=1,-1,向前引用(UD,上一次條件成立位置(UD<>0)));
買方量:求和((UD=1)*成交量,0) Linethick0;
賣方量:求和((UD=-1)*成交量,0) Linethick0;
量:成交量 Linethick0;
差:買方量-賣方量;
AA:引用指標('FITX1','.差',0,0);
///////////////////////////////////////////////////////////////////////////////////
原公式
{本公式,僅適用分筆成交分析週期 , 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 ;
差:買方量-賣方量;
AA:引用指標('FITX1','.差',0,0);
|
|
向版主報告此篇 |  |
|
2014-04-17 16:04 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18131 |
回覆: 值是不相同
引用: 最初由 N122562663 發表
總版主您好:今天放進盤中即時運轉、值是不相同、煩您費心、再支援、謝謝您。
Sorry 我疏忽運算次序了
修正如下:
UD:=SGN(c-ref(c,1));
UD:=if(barpos=1,-1,UD);
UD:=ref(UD,barslast(UD<>0));
買方量:SUM((UD=1)*V,0) Linethick0;
賣方量:SUM((UD=-1)*V,0) Linethick0;
量:VOL Linethick0;
STICKLINE(UD=1,0,V,7,0),COLORRED;
STICKLINE(UD=-1,0,V,7,0),COLORGREEN;
|
|
向版主報告此篇 |  |
|
2014-04-18 16:43 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|