 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18100 |
處理方式如下(子公式不變)
原碼:
de:=date;
V1:=barslast(de=de[datacount])*0;
V2:=V1;
UseNum:=STKCOUNT('上市股票');
FOR SNO:=1 TO UseNum DO BEGIN
UseSTK:=STKFROMBLK('上市股票',SNO);
TMP:=STKINDI(UseSTK,'SUM001_SUB.B',0,0);
IF LBOUND(TMP)>0 THEN BEGIN
V1:=V1+if(barpos>=LBOUND(TMP),TMP,0);
END;
TMP:=STKINDI(UseSTK,'SUM001_SUB.S',0,0);
IF LBOUND(TMP)>0 THEN BEGIN
V2:=V2+if(barpos>=LBOUND(TMP),TMP,0);
END;
END;
B:=V1 LINETHICK0;
S:=V2 LINETHICK0;
V3:(B/S-1)*100;
|
|
向版主報告此篇 |  |
|
2010-01-08 19:00 |
|
|
|  |
 |
無風ㄉ雲
初級會員

註冊日期: Nov 2009
來 自: 高雄
文章數量: 6 |
引用: 最初由 cgjj 發表
處理方式如下(子公式不變)
原碼:
de:=date;
V1:=barslast(de=de[datacount])*0;
V2:=V1;
UseNum:=STKCOUNT('上市股票');
FOR SNO:=1 TO UseNum DO BEGIN
UseSTK:=STKFROMBLK('上市股票',SNO);
TMP:=STKINDI(UseSTK,'SUM001_SUB.B',0,0);
IF LBOUND(TMP)>0 THEN BEGIN
V1:=V1+if(barpos>=LBOUND(TMP),TMP,0);
END;
TMP:=STKINDI(UseSTK,'SUM001_SUB.S',0,0);
IF LBOUND(TMP)>0 THEN BEGIN
V2:=V2+if(barpos>=LBOUND(TMP),TMP,0);
END;
END;
B:=V1 LINETHICK0;
S:=V2 LINETHICK0;
V3<img src="images/smilies/frown.gif" border="0" alt="">B/S-1)*100;
感謝版大ㄉ回覆~
線形已經可以完全呈現~
但~
另一問題.又浮出台面.
所有上市股票ㄉ主動性買單 + 主動性賣單.
應該等於成交量.
我於程式尾加上
V4:B+S;
結果卻與成交量相差甚遠
我又該如何驗證這些數據的正確性呢?
|
|
向版主報告此篇 |  |
|
2010-01-11 01:25 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|