股票池選出個股后按名次分配權(quán)重資金。 [金字塔]
- 咨詢內(nèi)容：
本帖引自普通問題板塊，金字塔目前通過股票池選出的個股是等權(quán)重分配資金買入，通過后臺也無法確定哪一個是第一名，如果想對名次靠前的個股給予更多的資金分配，名次靠后的個股給予少一些的資金分配目前來說還做不到。上面第一圖是假期里面股票池選出來的個股，如果能對第一名讀者傳媒給予更多的資金買入，兩個漲停板交易日后的今天則會取得更好的成績。為啥我要強(qiáng)調(diào)名次的順序呢。雖然金字塔提供了股票池這個大殺器，但是從實(shí)戰(zhàn)上來說運(yùn)用還不夠靈活，比如某賬戶資金100萬，我想拿20%的資金購買量比排行榜（降序）前三位的個股，第一名50%權(quán)重（100萬*20%*50%=10萬），第二名30%權(quán)重（100萬*20%*30%=6萬），第三名20%（100萬*20%*20%=4萬）權(quán)重。
不知道這個問題能不能有其他方式解決呢？
- 金字塔客服：
稍等，相關(guān)范例編寫中
- 用戶回復(fù)：
我得從一個實(shí)戰(zhàn)的角度來解釋一下這個股票池名次重要的問題，以便于金字塔能了解一下實(shí)戰(zhàn)中用戶更需要哪些功能，才能開發(fā)出更加貼近真實(shí)實(shí)戰(zhàn)的軟件功能。目前的股票池把條件選股、排序選股兩塊集于一身，其實(shí)這兩個說的不是一回事。
1、當(dāng)使用的是股票池的條件選股功能時，名次排名沒意義：比如我可以讓股票池選出所有5日均線>10日均線的個股。這個選出的股票在股票池里叫狀態(tài)池，這個狀態(tài)池里面比如說選出有200個股票，這么多股票不可能都買，就有待繼續(xù)加工，這些個股的名次排名沒任何價值。
2、狀態(tài)池選了那么多的股票我們可以加工一下，這個時候就可以用到排序選股功能（勾選下圖“選擇指標(biāo)排序”），名次就重要了：比如對這200個股票用kdj指標(biāo)的j線進(jìn)行排序，取j值最小（升序）的頭二支個股作為買進(jìn)的個股；或者對這200個股票用量比指標(biāo)進(jìn)行排序，取量比最大（降序）的頭二支個股作為買進(jìn)個股。這個排序在實(shí)戰(zhàn)當(dāng)中是非常有用的，用來挑選最合適的目標(biāo)個股（現(xiàn)在的金字塔默認(rèn)只能是升序排序）
3、最后才是對挑選出的個股進(jìn)行資產(chǎn)配置，比如第一名配多少權(quán)重資金，第二名配多少權(quán)重資金等。 - 網(wǎng)友回復(fù)：
'全局變量，計(jì)算觸發(fā)的個數(shù)
Dim StockCount
StockCount = 0'獲取股票池觸發(fā)事件
Sub MARKETDATA_StockPoolNotifyIng(StockPool, StatusPool, Code, Market)
'觸發(fā)的股票池數(shù)據(jù)記錄到文本文件中
Document.DebugFile "C:\GPCLog.txt",Market&Code,1
'判斷股票池有多少品種
If StockPool = "股票池" And StatusPool = "狀態(tài)池1" Then
StockCount = StockCount + 1
End If
CalcCash = 0 '計(jì)算該使用多少資金
'計(jì)算下單價格，防止出現(xiàn)漲停板
PleacePrice = 0
Set MyReport = marketdata.GetReportData(Code,Market)
If MyReport.SellPrice1 > 0 Then
PleacePrice = MyReport.SellPrice1
Else
PleacePrice = MyReport.NewPrice '如果賣1價格為0表示已經(jīng)漲停板，取最新價計(jì)算
End If
'調(diào)試代碼
'Application.MsgOut StockCount
If StockCount = 1 Then '第一個觸發(fā)品種
CalcCash = 500000
ElseIf StockCount = 2 Then
CalcCash = 300000
ElseIf StockCount = 3 Then
CalcCash = 200000
End If
If PleacePrice > 0 And CalcCash > 0 Then
CalcVol = CalcCash / PleacePrice
call Order.Buy(0,CalcVol,PleacePrice,0,Code,Market,"",0)
Application.MsgOut "已觸發(fā)股票池下單,代碼:"&Code&" - 價格:"&PleacePrice&" - 數(shù)量:"&CalcVol
End If
End Sub - 網(wǎng)友回復(fù)： 你說的問題2，我們后面會修正一下，對于后幾名選項(xiàng)，按照倒序觸發(fā)
有思路，想編寫各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 511411198 進(jìn)行 有償 編寫！（不貴！點(diǎn)擊查看價格！）
相關(guān)文章
-
沒有相關(guān)內(nèi)容
會員登錄/注冊