欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件金字塔软件问题提交 → [讨论]金字塔能做期货会员持仓分析!

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有4365人关注过本帖树形打印复制链接

主题:[讨论]金字塔能做期货会员持仓分析!

帅哥哟,离线,有人找我吗?
系统使用者
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:808 积分:667 威望:0 精华:0 注册:2011/4/9 16:17:57
[讨论]金字塔能做期货会员持仓分析!  发帖心情 Post By:2013/1/13 11:47:17 [显示全部帖子]

可以查看历史空单持仓比例和空单比例变化

 回到顶部
帅哥哟,离线,有人找我吗?
系统使用者
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:808 积分:667 威望:0 精华:0 注册:2011/4/9 16:17:57
  发帖心情 Post By: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

 


 回到顶部
帅哥哟,离线,有人找我吗?
系统使用者
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:808 积分:667 威望:0 精华:0 注册:2011/4/9 16:17:57
  发帖心情 Post By:2013/1/13 11:49:37 [显示全部帖子]

请改为金字塔的代码

 回到顶部
帅哥哟,离线,有人找我吗?
系统使用者
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:808 积分:667 威望:0 精华:0 注册:2011/4/9 16:17:57
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
系统使用者
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:808 积分:667 威望:0 精华:0 注册:2011/4/9 16:17:57
  发帖心情 Post By:2013/1/13 16:48:42 [显示全部帖子]

太麻烦了


 回到顶部