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

[問題] 如何動態性 多個股同列於主圖

請教總版主:
原碼如下: (於日K + 主圖中)
PP:=BarsLast(barpos=datacount-200) , Linethick0 ;
X:=REF(IndexC,PP);
Y:=REF(CLOSE,PP);
CC:( IndexC / X ) * Y,Linethick5,,precision1,colorgreen;

小弟有以下幾個問題求教如何寫公式:

問題一: 個股部分如何也像CC一般曲線(本主圖不秀任何K棒)
而且 只從 第 201 天前開始畫線( 第202天前留空白)

問題二: 希望比照 CC:( IndexC / X ) * Y 疊出 Top 1~Top 20
一共20檔 成交金額前20名個股(上市合併上櫃一起排序)
劃線方法比照問題一(一共20條)

問題三: 問題二之 Top 20 必須是動態的(當下最新行情之總額持倉)
每30分鐘重新運算一次找到當下最新的 Top 1~Top 20

問題四: 請問如何於這21條線之最左邊空白處秀出股名

問題五: 有某[自訂版塊](由F7條件選股所產生的) 1~20 檔
是否可以 從本主圖公式調入作同問題二 之劃線處理，
如何調入使用請版主教導

問題六: PP週期維持200不變，但所有曲線只從第(前30天)起畫出
最左邊空白處秀出股名也比照辦理




感謝總版主

回覆: [問題] 如何動態性 多個股同列於主圖

引用:

---

最初由 tycoon868 發表
請教總版主:
原碼如下: (於日K + 主圖中)
PP:=BarsLast(barpos=datacount-200) , Linethick0 ;
X:=REF(IndexC,PP);
Y:=REF(CLOSE,PP);
CC:( IndexC / X ) * Y,Linethick5,,precision1,colorgreen;

小弟有以下幾個問題求教如何寫公式:

問題一: 個股部分如何也像CC一般曲線(本主圖不秀任何K棒)
而且 只從 第 201 天前開始畫線( 第202天前留空白)

問題二: 希望比照 CC:( IndexC / X ) * Y 疊出 Top 1~Top 20
一共20檔 成交金額前20名個股(上市合併上櫃一起排序)
劃線方法比照問題一(一共20條)

問題三: 問題二之 Top 20 必須是動態的(當下最新行情之總額持倉)
每30分鐘重新運算一次找到當下最新的 Top 1~Top 20

問題四: 請問如何於這21條線之最左邊空白處秀出股名

問題五: 有某[自訂版塊](由F7條件選股所產生的) 1~20 檔
是否可以 從本主圖公式調入作同問題二 之劃線處理，
如何調入使用請版主教導

問題六: PP週期維持200不變，但所有曲線只從第(前30天)起畫出
最左邊空白處秀出股名也比照辦理

感謝總版主

---

謝謝版主提醒:

請求版主提示我 問題1~6 的處理方式

視覺上我會套入公式後作調整(從錯誤中去學習更正)

1. 我可能會將 Top 20 改成 只看 TOP 10
2. 由於TOP 10強弱高低水位都不同，相信應該會有一點間距
3. 如果輸出股名間距仍太擠，請教我單數靠左輸出+雙數靠右輸出


小弟功力不夠 以致於 空有想法卻無從著手試誤調整

請求版主先給我 TOP 10 的問題1~6之相關語法
讓我有機會自行嘗試套入修改

拜託您了

引用:

---

最初由 tycoon868 發表
謝謝版主提醒:

請求版主提示我 問題1~6 的處理方式

視覺上我會套入公式後作調整(從錯誤中去學習更正)

1. 我可能會將 Top 20 改成 只看 TOP 10
2. 由於TOP 10強弱高低水位都不同，相信應該會有一點間距
3. 如果輸出股名間距仍太擠，請教我單數靠左輸出+雙數靠右輸出


小弟功力不夠 以致於 空有想法卻無從著手試誤調整

請求版主先給我 TOP 10 的問題1~6之相關語法
讓我有機會自行嘗試套入修改

拜託您了

---

感謝版主:

看不懂這例子(是論壇系統出錯嗎?)

股價差異是很大的, 您跑跑這例子看看線條:
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天)起畫出

最左邊空白處秀出股名也比照辦理




感謝版主耐心回覆

//您把以下這兩行公式跑跑看就知道結果了

505;23;14;52;62;690;386;89;98;364;
82;251;67;68;57;243;86;88;26;17;

版主您好:

聽從您的建議

我放棄一次疊太多檔了

謝謝指教 免去我做白工之苦


以下兩點需求仍盼望總版主指導:


需求一: 個股部分如何像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 發表
版主您好:

聽從您的建議

我放棄一次疊太多檔了

謝謝指教 免去我做白工之苦


以下兩點需求仍盼望總版主指導:


需求一: 個股部分如何像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 發表
版主您好:

聽從您的建議
我放棄一次疊太多檔了................

---

謝謝版主

測試中

已聊解您的意思