奇狐社區論壇
在這個頁面顯示本主題全部的 13 個文章

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 【分筆成交】值 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=18463)


由 N122562663 在 2014-04-16 10:39 發表:

【分筆成交】值

總版主您好:
AA:=引用指標('FITX1','BSV.SB',0,0);
引用至9.快樂股市、BSV中、SB:XG-XH【分筆成交】值、如果引用在3分週期使用、會加重負擔、可否有其他方式、可在3分週期、得其值、請總版主指導。


由 cgjj 在 2014-04-16 14:36 發表:

回覆: 【分筆成交】值

引用:
最初由 N122562663 發表
總版主您好:
AA:=引用指標('FITX1','BSV.SB',0,0);
引用至9.快樂股市、BSV中、SB:XG-XH【分筆成交】值、如果引用在3分週期使用、會加重負擔、可否有其他方式、可在3分週期、得其值、請總版主指導。



把 BSV 公式源碼換成這一段試試
之前的人寫的程式碼不太好
我重新寫過了, 僅需要底下這幾行就可取代
應該可以快上不少

---- 請見後續修正 ---


由 N122562663 在 2014-04-17 12:21 發表:

數值就不一樣

總版主您好:新公式確實較許多、但不知何故、未相減引用、買賣方量都一樣、相減引用【分筆成交】值、數值就不一樣、請問解決之道。謝謝您。

AA:=引用指標('FITX1','BSV.',0,0);買方量-賣方量
BB:=引用指標('FITX1','新公式',0,0);買方量-賣方量


由 cgjj 在 2014-04-17 13:36 發表:

回覆: 數值就不一樣

引用:
最初由 N122562663 發表
總版主您好:新公式確實較許多、但不知何故、未相減引用、買賣方量都一樣、相減引用【分筆成交】值、數值就不一樣、請問解決之道。謝謝您。

AA:=引用指標('FITX1','BSV.',0,0);買方量-賣方量
BB:=引用指標('FITX1','新公式',0,0);買方量-賣方量



引用要指定哪個公式的哪個變數
您並沒有指定變數唷

若您需要用到差值

可在
量:VOL Linethick0;
這行之後, 加上
差: 買方量-賣方量;

如此就不需分別引用買方量和賣方量算差值
可直接引用算好的 "差", 如此可讓效能更好


由 N122562663 在 2014-04-17 13:41 發表:

可否全秀出

總版主您好:抱歉、我先試、再說、謝謝您。


由 N122562663 在 2014-04-17 16:04 發表:

值依然不同

總版主您好:抱歉、我試過後、值依然不同、請看那兒出錯、謝謝您。


新公式

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);


由 cgjj 在 2014-04-17 16:23 發表:

回覆: 值依然不同

引用:
最初由 N122562663 發表
總版主您好:抱歉、我試過後、值依然不同、請看那兒出錯、謝謝您。


新舊的寫法, 兩者計算結果並不會有差距唷
我這比對過100%沒問題

應該是您之後的程序處理造成的

如仍有問題請來電公司, 謝謝


由 cgjj 在 2014-04-17 18:35 發表:

請改為這樣 v5.0 和 v5.1 就能通用了
---- 請見後續修正 ---


由 N122562663 在 2014-04-17 18:38 發表:

值已相同

總版主您好:值已相同、謝謝您。


由 N122562663 在 2014-04-18 16:26 發表:

值是不相同

總版主您好:今天放進盤中即時運轉、值是不相同、煩您費心、再支援、謝謝您。


由 cgjj 在 2014-04-18 16:43 發表:

回覆: 值是不相同

引用:
最初由 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;


由 N122562663 在 2014-04-21 12:16 發表:

值已完全相同

總版主您好:今天即時測試、值已完全相同、謝謝您支援。


由 cgjj 在 2014-04-21 23:35 發表:

回覆: 值已完全相同

引用:
最初由 N122562663 發表
總版主您好:今天即時測試、值已完全相同、謝謝您支援。


不客氣 ^_^


全部時間均為台灣時間, 現在時間為12:17
在這個頁面顯示本主題全部的 13 個文章


Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.

簡愛洋行 製作 Copyright 2003-. All Rights Reserved.