奇狐社區論壇 - [求助]日線以柱狀顯示某一板塊內的成份股漲跌家數?

奇狐社區論壇 (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=14948)

由 taylorfx168 在 2011-01-10 00:59 發表:

[求助]日線以柱狀顯示某一板塊內的成份股漲跌家數?

請教總版主:
小弟想要在日線以柱狀顯示某一板塊內的成份股漲跌家數,例如摩台板塊,我下載SUMSTKUD公式去改為何無法顯示? 懇請賜教
謝謝...

上漲:0 LINETHICK0;
下跌:0 LINETHICK0;
平盤:0 LINETHICK0;
空盤:0 LINETHICK0;
UseNum:=STKCOUNT('摩根');
FOR SNO:=1 TO UseNum DO BEGIN
UseSTK:=STKFROMBLK('摩根',SNO);
TMP:=STKINDI(UseSTK,'SUMSTKUD_SUB.SS',0,6);
TMP:=TMP[datacount];
if TMP=3 then 上漲:=上漲+1;
if TMP=2 then 平盤:=平盤+1;
if TMP=1 then 下跌:=下跌+1;
if TMP=0 then 空盤:=空盤+1;

差:=上漲-下跌;
淨漲:差,LINETHICK0,COLORRED;
STICKLINE(差>REF(差,1)AND 差>0,0,差,8,0) colorred;
STICKLINE(差<REF(差,1)AND 差>0,0,差,8,0) COLORMAGENTA;
STICKLINE(差<REF(差,1)AND 差<0,0,差,8,0) colorgreen;
STICKLINE(差>REF(差,1)AND 差<0,0,差,8,0) colorCYAN;

END;
總數:UseNum LINETHICK0;

由 cgjj 在 2011-01-10 09:43 發表:

回覆: [求助]日線以柱狀顯示某一板塊內的成份股漲跌家數?

引用:
最初由 taylorfx168 發表
請教總版主:
小弟想要在日線以柱狀顯示某一板塊內的成份股漲跌家數,例如摩台板塊,我下載SUMSTKUD公式去改為何無法顯示? 懇請賜教
謝謝...

上漲:0 LINETHICK0;
下跌:0 LINETHICK0;
平盤:0 LINETHICK0;
空盤:0 LINETHICK0;
UseNum:=STKCOUNT('摩根');
FOR SNO:=1 TO UseNum DO BEGIN
UseSTK:=STKFROMBLK('摩根',SNO);
TMP:=STKINDI(UseSTK,'SUMSTKUD_SUB.SS',0,6);
TMP:=TMP[datacount];
if TMP=3 then 上漲:=上漲+1;
if TMP=2 then 平盤:=平盤+1;
if TMP=1 then 下跌:=下跌+1;
if TMP=0 then 空盤:=空盤+1;

差:=上漲-下跌;
淨漲:差,LINETHICK0,COLORRED;
STICKLINE(差>REF(差,1)AND 差>0,0,差,8,0) colorred;
STICKLINE(差<REF(差,1)AND 差>0,0,差,8,0) COLORMAGENTA;
STICKLINE(差<REF(差,1)AND 差<0,0,差,8,0) colorgreen;
STICKLINE(差>REF(差,1)AND 差<0,0,差,8,0) colorCYAN;

END;
總數:UseNum LINETHICK0;

內建的板塊並無 '摩根' 這板塊
若您未自行建立 '摩根' 這板塊, 就會跑不出結果
內建的相對應板塊名稱為 '摩台指數成份股'

由 taylorfx168 在 2011-01-10 10:05 發表:

報告總版主:
我已自建 '摩根' 這板塊,但只能文字顯示"淨漲"家數,就是無法顯示柱狀圖示部分,可否請總板主用 '摩台指數成份股'來測試問題點出在那裡? 感恩!

由 cgjj 在 2011-01-10 10:29 發表:

引用:
最初由 taylorfx168 發表
報告總版主:
我已自建 '摩根' 這板塊,但只能文字顯示"淨漲"家數,就是無法顯示柱狀圖示部分,可否請總板主用 '摩台指數成份股'來測試問題點出在那裡? 感恩!

基本上有兩個問題

1.
用 ref(差,1) 與差去比較, 是算不出結果的
因為 [差] 是單一數值(僅最末根), 並非數列
故 ref(差,1) 並不存在, 所以無計算出結果

2.
//以下程式應該放在迴圈之外
差:=上漲-下跌;
淨漲:差,LINETHICK0,COLORRED;
STICKLINE(差>REF(差,1)AND 差>0,0,差,8,0) colorred;
STICKLINE(差<REF(差,1)AND 差>0,0,差,8,0) COLORMAGENTA;
STICKLINE(差<REF(差,1)AND 差<0,0,差,8,0) colorgreen;
STICKLINE(差>REF(差,1)AND 差<0,0,差,8,0) colorCYAN;

由 taylorfx168 在 2011-01-10 11:25 發表:

請教總版主:
看來修改SUMSTKUD程式無法達到我預期的結果! 以下這段程式使用ADVANCE & DECLINE指令,是可以柱狀顯示日週期的漲跌家數,不知道這段程式可以怎麼改來顯示柱狀" 摩台指數成份股"漲跌家數. '懇請賜教,謝謝...

漲家:ADVANCE,LINETHICK0,Color5050FF;
跌家:DECLINE,LINETHICK0,Color66CC00;
差:漲家-跌家,coloryellow linethick;
STICKLINE(差>REF(差,1)AND 差>0,0,差,8,0) colorred;
STICKLINE(差<REF(差,1)AND 差>0,0,差,8,0) COLORMAGENTA;
STICKLINE(差<REF(差,1)AND 差<0,0,差,8,0) colorgreen;
STICKLINE(差>REF(差,1)AND 差<0,0,差,8,0) colorCYAN;

由 cgjj 在 2011-01-10 12:05 發表:

引用:
最初由 taylorfx168 發表
請教總版主:
看來修改SUMSTKUD程式無法達到我預期的結果! 以下這段程式使用ADVANCE & DECLINE指令,是可以柱狀顯示日週期的漲跌家數,不知道這段程式可以怎麼改來顯示柱狀" 摩台指數成份股"漲跌家數. '懇請賜教,謝謝...

漲家:ADVANCE,LINETHICK0,Color5050FF;
跌家:DECLINE,LINETHICK0,Color66CC00;
差:漲家-跌家,coloryellow linethick;
STICKLINE(差>REF(差,1)AND 差>0,0,差,8,0) colorred;
STICKLINE(差<REF(差,1)AND 差>0,0,差,8,0) COLORMAGENTA;
STICKLINE(差<REF(差,1)AND 差<0,0,差,8,0) colorgreen;
STICKLINE(差>REF(差,1)AND 差<0,0,差,8,0) colorCYAN;

摩台並無ADVANCE & DECLINE可用

僅能用此公式概算
近期的統計才會較為精準(越早期的越不準), 因為:
1.過去的會因為商品下市數據不存在了,統計出來會與當時實際數字有些落差
2.成份股可能會變動, 過去的與當前的成份股可能不同

由 taylorfx168 在 2011-01-10 16:29 發表:

總版主您好:
非常感謝總版主的賜教! "摩台指數成份股"漲跌家數.已經可以作出來. 我試著加入中型100, 自建"摩根150"板塊. 發現這支程式就不可用了. 不知道是何原因? 如果想以自建版塊可以怎麼改呢?
'懇請賜教,謝謝...

由 cgjj 在 2011-01-10 16:43 發表:

引用:
最初由 taylorfx168 發表
總版主您好:
非常感謝總版主的賜教! "摩台指數成份股"漲跌家數.已經可以作出來. 我試著加入中型100, 自建"摩根150"板塊. 發現這支程式就不可用了. 不知道是何原因? 如果想以自建版塊可以怎麼改呢?
'懇請賜教,謝謝...

不會不能用的, 請確認
1.板塊名稱是否正確
2.板塊是否為空

以中型100為例:
UseBlk:='摩台指數成份股';
改為
UseBlk:='台灣中型100成份股';

注意
自建的板塊請建立在自選股區域, 並以 '自選' 為開頭命名
例如: 自選摩根
否則將來系統更新分類板塊時, 會把您自建的給覆蓋掉

由 taylorfx168 在 2011-01-10 23:01 發表:

問題已解決,非常感總版主協助!

全部時間均為台灣時間, 現在時間為20:21

在這個頁面顯示本主題全部的 9 個文章