以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  金字塔软件问题提交  (http://weistock.com/bbs/list.asp?boardid=2)
----  [讨论]金字塔能做期货会员持仓分析！  (http://weistock.com/bbs/dispbbs.asp?boardid=2&id=47670)
--  作者：系统使用者
--  发布时间：2013/1/13 11:47:17
--  [讨论]金字塔能做期货会员持仓分析！
可以查看历史空单持仓比例和空单比例变化
--  作者：系统使用者
--  发布时间：2013/1/13 11:49:00
--  


#Run_By_Bar 
#nodefaultoutput           
extern \'http://www.hs633.com/fmldll/Position.zip\'
double Position.Grabber.LongVolSum(LPCWSTR name,
         LPCWSTR contract,
         double t,
         int n,              
         int barpos, 
         int dataCount); 
extern \'Position.dll\'
double Position.Grabber.ShortVolSum(LPCWSTR name,
         LPCWSTR contract,
         double t,
         int n,              
         int barpos, 
         int dataCount); 
extern \'Position.dll\' LPCWSTR  Position.Grabber.QueryUrl(LPCWSTR name,
         LPCWSTR contract,
         double t);
         
        
variable:NumericSimple ID (-1); 
ShowTips(\'正在更新数据 \'+BarPos/DataCount*100 + \'%\');                       
前20会员多单总量 : LongVolSum(MarketLabel+StkName,
         MainContract(date),
         date,
         0,
         BarPos,
         DataCount),ColorRed;
前20会员空单总量 : ShortVolSum(MarketLabel+StkName,
                               MainContract(date),
          date,
          0,
          BarPos,
          DataCount),ColorGreen;
前20会员净持仓:前20会员多单总量 - 前20会员空单总量,BarStack;

// 以下方便连接到中金所数据
if ID < 0 and BarPos == DataCount then begin
 ID = Text_New(date, 0, 0, 62, true);
 Text_SetToolTips(ID, \'链接交易所\\r\\n查看数据\'); 
 Text_SetUrl(ID, QueryUrl(MarketLabel+StkName,
         MainContract(date),
         date));
 Text_SetStyle(ID, 4,3); 
end

 
--  作者：系统使用者
--  发布时间：2013/1/13 11:49:37
--  
请改为金字塔的代码
--  作者：系统使用者
--  发布时间：2013/1/13 11:50:48
--  
#Run_By_Bar 
#nodefaultoutput  
extern \'http://www.hs633.com/fmldll/Position.zip\'           
double Position.Grabber.LongVolSum(LPCWSTR name,
           LPCWSTR contract,
           double t,
           int n,              
           int barpos, 
           int dataCount); 
extern \'http://www.hs633.com/fmldll/Position.zip\'            
double Position.Grabber.LongVol(LPCWSTR name,
        LPCWSTR contract,
        double t,      
        int n,                     
        int barpos,       
        int dataCount,
        StringRef partyName); 
extern \'Position.dll\' LPCWSTR  Position.Grabber.QueryUrl(LPCWSTR name,
         LPCWSTR contract,
         double t);
           
variable:NumericSimple ID (-1), mcCode(\'\'), stkLongName(\'\'), partyName(\'\');  
ShowTips(\'正在更新数据 \'+BarPos/DataCount*100 + \'%\');
stkLongName = MarketLabel+StkName;
mcCode = MainContract(date);            
前20会员多单总量 = LongVolSum(stkLongName,mcCode,  date, 0, BarPos, DataCount);
前6会员多单量 = LongVolSum(stkLongName, mcCode,date, 6, BarPos, DataCount);
其他会员:前20会员多单总量-前6会员多单量,BarPercent,ColorRGB(13,142,207);
会员1:LongVol(stkLongName,mcCode,date,0,BarPos,DataCount,partyName),BarPercent,ColorRGB(80,0,0),partyName;
会员2:LongVol(stkLongName,mcCode,date,1,BarPos,DataCount,partyName),BarPercent,ColorRGB(128,0,0),partyName;
会员3:LongVol(stkLongName,mcCode,date,2,BarPos,DataCount,partyName),BarPercent,ColorRed,partyName;
会员4:LongVol(stkLongName,mcCode,date,3,BarPos,DataCount,partyName),BarPercent,ColorRGB(255,102,0),partyName;
会员5:LongVol(stkLongName,mcCode,date,4,BarPos,DataCount,partyName),BarPercent,ColorRGB(255,158,1),partyName;
会员6:LongVol(stkLongName,mcCode,date,5,BarPos,DataCount,partyName),BarPercent,ColorRGB(0,128,55),partyName;
// 以下方便连接到中金所数据
if ID < 0 and BarPos == DataCount then begin
 ID = Text_New(date, 0, 0, 62, true);
 Text_SetToolTips(ID, \'链接交易所\\r\\n查看数据\'); 
 Text_SetUrl(ID, QueryUrl(MarketLabel+StkName,
         MainContract(date),
         date));
 Text_SetStyle(ID, 4,3); 
end
--  作者：RogarZ
--  发布时间：2013/1/13 13:04:14
--  

从代码看，金魔方软件自己做了一个文件记录持仓信息，然后用户去读取这个网站上压缩包获得数据。

金字塔暂无此项服务，但用户可通过自行维护数据达到同样的效果。

详细方法见下面链接。

http://www.weistock.com/bbs/dispbbs.asp?boardid=10&Id=12610

 

[此贴子已经被作者于2013-1-13 13:05:11编辑过]
--  作者：系统使用者
--  发布时间：2013/1/13 16:48:42
--  

太麻烦了