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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → [求助]

   

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


  共有2633人关注过本帖平板打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
zhangyong
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:20 积分:0 威望:0 精华:0 注册:2014/7/25 3:24:22
  发帖心情 Post By:2015/3/16 12:27:42    Post IP:180.158.72.158[只看该作者]

代码见下方。

我已经仔细翻看过论坛,也看了老师们给出的方法。DYNAINFO只能显示直线,BUYVOL只能用在分笔,所以SUM()在分钟图当根K上的数据只统计了主动成交方的数据。
除了自定义指数,没有其他方法了吗?



// -------------------------------------------------
// 金字塔
// 指标:BSV
// 内外盘差数据
// -------------------------------------------------

Var_BuyVol  := DYNAINFO(23); // 主动买
Var_SellVol := DYNAINFO(22); // 主动卖
Var_BSVDiff := Var_BuyVol - Var_SellVol; // 内外盘差

买 : Var_BuyVol;
卖 : Var_SellVol;

// 买大于卖,差值显示红色,否则绿色
IF Var_BSVDiff > 0 THEN BEGIN
多  : Var_BSVDiff, COLORRED;
多比: Var_BSVDiff / Var_BuyVol * 100, COLORRED, LINETHICK0;
END
ELSE BEGIN
空: Var_BSVDiff,COLORGREEN;
空比: Var_BSVDiff / Var_SellVol * 100, COLORGREEN, LINETHICK0 ;
END
// ----------------------END------------------------



// -------------------------------------------------
// 文华WH8
// 指标 : BSV1
// 当根K线的内外盘数据
// -------------------------------------------------

Var_BuyVol     := SCALE * V;  // 主动买占比 * 成交量 = 买量
Var_SellVol    := (1-SCALE)*V; // 卖量
Var_Diff       := Var_BuyVol - Var_SellVol; // 内外盘差
Var_Diff_Rate  := Var_Diff / IF(Var_Diff>0, Var_BuyVol,Var_SellVol) * 100, NODRAW;  // 差占比例
// ----------------------END------------------------


// -------------------------------------------------
// 文华WH8
// 指标:BSV2
// 调用日线周期的内外盘在日内N分钟的累计数据
//--------------------------------------------------

#IMPORT[DAY,1,BSV1] AS VAR  // 调用日线周期的BSV1数据

Var_BuyVol_DAY     := VAR.Var_BuyVol;    // 调用BSV1主动买
Var_SellVol_DAY    := VAR.Var_SellVol;   // 调用BSV1主动卖
Var_Diff_DAY       := VAR.Var_Diff;      // 调用BSV1内外盘差
Var_Diff_Rate_DAY  := VAR.Var_Diff_Rate; // 调用BSV1差比

Var_Diff_DAY_MA1   := MA(Var_Diff_DAY,N1); // 差值的N1周期均值
Var_Diff_DAY_MA2   := MA(Var_Diff_DAY,N2); // 差值的N2周期均值

主动买 : Var_BuyVol_DAY,NODRAW;
主动卖 : Var_SellVol_DAY,NODRAW;
差     : Var_Diff_DAY, COLORSTICK; // 显示内外盘差值
差比   : Var_Diff_Rate_DAY,NODRAW;
均差1  : Var_Diff_DAY_MA1;
均差2  : Var_Diff_DAY_MA2;
// ----------------------END------------------------

 回到顶部