 |
tycoon868
資深會員

註冊日期: Oct 2008
來 自:
文章數量: 313 |
感謝版主:
看不懂這例子(是論壇系統出錯嗎?)
股價差異是很大的, 您跑跑這例子看看線條:
505;23;14;52;62;690;386;89;98;364;
82;251;67;68;57;243;86;88;26;17;
@@@@@如果無法動態調入總額持倉@@@@@@
請容小弟重新定義 以下六點需求:
需求一: 個股部分如何也像CC一般曲線(本主圖不秀任何K棒)
而且 只從 第 201 天前開始畫線( 第202天前留空白)
需求二: 希望比照 CC:( IndexC / X ) * Y 疊出 Top 1~Top 10
這動態性的10檔是根據以下F7條件選股公式來的:
////原碼
Top10:0;
TWNAME:='上市股票'; TONAME:='上櫃股票';
CK:=STKINBLOCK(STKLABEL,TWNAME) or STKINBLOCK(STKLABEL,TONAME);
if CK=0 then exit;
TWSUM:=STKCOUNT(TWNAME); TOSUM:=STKCOUNT(TONAME);
AllSUM:=TWSUM+TOSUM;
if AllSUM=0 then exit;
VARIABLE: StkAry[AllSUM]='', StkAMT[AllSUM]=0;
StkNo:=0; NowStk:=MARKETLABEL+STKLABEL;
FOR i= 1 to TWSUM do begin
StkNo:=StkNo+1;
StkAry[StkNo]:=STKFROMBLK(TWNAME,i);
StkAMT[StkNo]:=DYNAINFO2(10,StkAry[StkNo]);
end;
FOR i= 1 to TOSUM do begin
StkNo:=StkNo+1;
StkAry[StkNo]:=STKFROMBLK(TONAME,i);
StkAMT[StkNo]:=DYNAINFO2(10,StkAry[StkNo]);
end;
tmp:=SORTPOS(StkAMT,1,1,AllSUM);
EndNo:=10; NowStk:=MARKETLABEL+STKLABEL;
if AllSUM<10 then EndNo:=AllSUM;
for i=1 to EndNo do begin
if NowStk = StkAry[StkAMT[i]] then break;
end;
Top10:=i<=EndNo;
////原碼
我可以每30分鐘手動自行算出來 ,並且將其結果輸出到
自訂板塊\ 其他\Top10
######重點是如何在本主圖中調入這版塊(內含十檔個股)?
Top 1~10 需要按照順序排序
劃線方法比照需求一(一共10條)
需求三:請問如何於這10條線之最左邊空白處秀出股名
需求四:經過測試以後, 如果輸出股名間距仍太擠,請教我Top單數靠左輸出+雙數靠右輸出
需求五: PP週期維持200不變,但所有曲線只從第(前30天)起畫出
最左邊空白處秀出股名也比照辦理
感謝版主耐心回覆
|
|
向版主報告此篇 |  |
|
2010-10-29 13:34 |
|
|
|  |
 |
tycoon868
資深會員

註冊日期: Oct 2008
來 自:
文章數量: 313 |
版主您好:
聽從您的建議
我放棄一次疊太多檔了
謝謝指教 免去我做白工之苦
以下兩點需求仍盼望總版主指導:
需求一: 個股部分如何像CC一般曲線(本主圖不秀任何K棒)?
需求二: 希望主圖可以<引用條件選股>所選出之標的
這動態性的10檔是根據以下F7條件選股公式來的:
////原碼
Top10:0;
TWNAME:='上市股票'; TONAME:='上櫃股票';
CK:=STKINBLOCK(STKLABEL,TWNAME) or STKINBLOCK(STKLABEL,TONAME);
if CK=0 then exit;
TWSUM:=STKCOUNT(TWNAME); TOSUM:=STKCOUNT(TONAME);
AllSUM:=TWSUM+TOSUM;
if AllSUM=0 then exit;
VARIABLE: StkAry[AllSUM]='', StkAMT[AllSUM]=0;
StkNo:=0; NowStk:=MARKETLABEL+STKLABEL;
FOR i= 1 to TWSUM do begin
StkNo:=StkNo+1;
StkAry[StkNo]:=STKFROMBLK(TWNAME,i);
StkAMT[StkNo]:=DYNAINFO2(10,StkAry[StkNo]);
end;
FOR i= 1 to TOSUM do begin
StkNo:=StkNo+1;
StkAry[StkNo]:=STKFROMBLK(TONAME,i);
StkAMT[StkNo]:=DYNAINFO2(10,StkAry[StkNo]);
end;
tmp:=SORTPOS(StkAMT,1,1,AllSUM);
EndNo:=10; NowStk:=MARKETLABEL+STKLABEL;
if AllSUM<10 then EndNo:=AllSUM;
for i=1 to EndNo do begin
if NowStk = StkAry[StkAMT[i]] then break;
end;
Top10:=i<=EndNo;
////原碼
我可以每30分鐘手動自行算出來 ,並且將其結果輸出到
自訂板塊\ 其他\Top10
######重點是如何在本主圖中調入這版塊(內含十檔個股)?
Top 1~10 需要按照順序排序
謝謝總版主
|
最後由 tycoon868 在 2010-11-01 09:38 編輯 |
向版主報告此篇 |  |
|
2010-10-29 14:58 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18197 |
引用: 最初由 tycoon868 發表
版主您好:
聽從您的建議
我放棄一次疊太多檔了
謝謝指教 免去我做白工之苦
以下兩點需求仍盼望總版主指導:
需求一: 個股部分如何像CC一般曲線(本主圖不秀任何K棒)?
需求二: 希望主圖可以<引用條件選股>所選出之標的
這動態性的10檔是根據以下F7條件選股公式來的:
////原碼
Top10:0;
TWNAME:='上市股票'; TONAME:='上櫃股票';
CK:=STKINBLOCK(STKLABEL,TWNAME) or STKINBLOCK(STKLABEL,TONAME);
if CK=0 then exit;
TWSUM:=STKCOUNT(TWNAME); TOSUM:=STKCOUNT(TONAME);
AllSUM:=TWSUM+TOSUM;
if AllSUM=0 then exit;
VARIABLE: StkAry[AllSUM]='', StkAMT[AllSUM]=0;
StkNo:=0; NowStk:=MARKETLABEL+STKLABEL;
FOR i= 1 to TWSUM do begin
StkNo:=StkNo+1;
StkAry[StkNo]:=STKFROMBLK(TWNAME,i);
StkAMT[StkNo]:=DYNAINFO2(10,StkAry[StkNo]);
end;
FOR i= 1 to TOSUM do begin
StkNo:=StkNo+1;
StkAry[StkNo]:=STKFROMBLK(TONAME,i);
StkAMT[StkNo]:=DYNAINFO2(10,StkAry[StkNo]);
end;
tmp:=SORTPOS(StkAMT,1,1,AllSUM);
EndNo:=10; NowStk:=MARKETLABEL+STKLABEL;
if AllSUM<10 then EndNo:=AllSUM;
for i=1 to EndNo do begin
if NowStk = StkAry[StkAMT[i]] then break;
end;
Top10:=i<=EndNo;
////原碼
我可以每30分鐘手動自行算出來 ,並且將其結果輸出到
自訂板塊\ 其他\Top10
######重點是如何在本主圖中調入這版塊(內含十檔個股)?
Top 1~10 需要按照順序排序
前面計算完後
StkAry[StkAMT[1]] 代表 Top1
StkAry[StkAMT[2]] 代表 Top2
StkAry[StkAMT[3]] 代表 Top3
您去利用它, 再去做您想用的即可:
例如: 輸出到解盤
EXPLAIN(1,StkAry[StkAMT[1]]);
EXPLAIN(1,StkAry[StkAMT[2]]);
EXPLAIN(1,StkAry[StkAMT[3]]);
編輯公式時將上方之[主圖]選項勾選就不會繪製K棒
|
|
向版主報告此篇 |  |
|
2010-11-01 11:45 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18197 |
引用: 最初由 tycoon868 發表
版主您好:
聽從您的建議
我放棄一次疊太多檔了................
以上該篇回覆, 自 2010-10-29 02:58 PM 發表後, 已被您改過數次
若該篇回覆, 已發表超過幾十分鐘以上
且您想要重新修改內容, 麻煩請以新回覆處理
請不要用編輯的(編輯原來已回覆過的該篇文章)
因為很容易被忽略
(已看過的文章, 通常不會再重新看該文章)
如同
您之前答覆(簡述): 放棄想法, 謝謝
若又過了幾十分鐘後,又將內容修改為有其他需求
沒再重新看內容的人
會認為該篇討論已結束, 不需再處理
最好以新回覆處理, 才能讓人注意到
敬請配合, 以免造成站方困擾, 謝謝!
|
|
向版主報告此篇 |  |
|
2010-11-01 12:00 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|