同花顺揭示真实成交与价格的关系源码幅图 EA

提示：
r1、新版本坐标轴显示的是成交金额，但有些股票同花顺的坐标轴数据是错误的，图形没错。应该是同花顺的软件故障。
r2、新计算方法使用的函数不知道没有Level2行情是否支持，有问题请回馈
r—————————————–
r分时成交揭秘

r

请设置三个参数：
rDD 1-4 默认1
rZUOBIAO 0-2 默认0，
r（这个参数设置成2显示价格坐标，显示价格坐标时要到公式编辑里，进入曲线属性-纵坐标-数据零值，设置成昨日收盘价。设置成价格坐标后，可以叠加大盘指数）
rMODE 0-1 默认0
rLEVEL2 0-1 默认1

r

曲线属性的纵坐标里的数据零值设置成：等于零
r—————————————–
r源码：

r

r//Level2行情数据，经过核对逐笔数据，同花顺的这组成交量函数基本准确
rLEVEL2BUY := BIGBUYCOUNT1 + BIGBUYCOUNT2 + BIGBUYCOUNT3 + BIGBUYCOUNT4;
rLEVEL2SELL := BIGSELLCOUNT1 + BIGSELLCOUNT2 + BIGSELLCOUNT3 + BIGSELLCOUNT4;

r

//普通行情数据，使用内外盘数据计算成交量，与Level2函数略有区别
rREALBUY := (OUTVOL – IF(ISNULL(REF(OUTVOL, 1)), 0, REF(OUTVOL, 1))) * NEW / 10000;//转化成金额
rREALSELL := (INVOL – IF(ISNULL(REF(INVOL, 1)), 0, REF(INVOL, 1))) * NEW / 10000;

r

REALBUY := IF(LEVEL2=0, REALBUY, (LEVEL2BUY – IF(ISNULL(REF(LEVEL2BUY, 1)), 0, REF(LEVEL2BUY, 1))) * NEW / 10000);
rREALSELL := IF(LEVEL2=0, REALSELL, (LEVEL2SELL – IF(ISNULL(REF(LEVEL2SELL, 1)), 0, REF(LEVEL2SELL, 1))) * NEW / 10000);

r

ZF := NEW – REF(NEW, 1);

r

YD1 := REALBUY > REALSELL * 5 AND ZF <= 0; //买入不上涨
rYD2 := REALSELL > REALBUY * 5 AND ZF >= 0; //卖出不下跌

r

//dd 缩放参数
r//以5%换手率为坐标的上下限，也同时是价格的上下10%
r//M1 := SHGZG * 0.05 / 100 / dd ;//手
r//M1 := IF(ZUOBIAO = 0, M1, M1 * 100 * PRE / 10000); //以昨日收盘价来计算上下限
r//默认上下限设置成1000万元
rM1 := IF(DD=1, 500, 0);
rM1 := IF(DD=2, 1000, M1);
rM1 := IF(DD=3, 2000, M1);
rM1 := IF(DD=4, 5000, M1);

r

SHOWBUY := IF(REALBUY > M1, M1, REALBUY);
rSHOWSELL := IF(REALSELL > M1, M1, REALSELL);

r

//将成交数据以0%-10%的坐标显示
r//SHOWBUY := SHOWBUY / M1 * 10;
r//SHOWSELL := SHOWSELL / M1 * 10;

r

LASTclose := PRE;
r//将价格切换到上下600000的数量级坐标
rPrice := (NEW – LASTclose) / LASTclose * 10 * M1;

r

//1
rPRICE := IF(ZUOBIAO=0, PRICE, (NEW – PRE) / PRE * 100);
rSHOWBUY1 := IF(ZUOBIAO=0, SHOWBUY, SHOWBUY / (M1 / 10));
rSHOWSELL1 := IF(ZUOBIAO=0, SHOWSELL, SHOWSELL / (M1 / 10));
r//2
rPRICE := IF(ZUOBIAO=2, NEW, PRICE);
rSHOWBUY1 := IF(ZUOBIAO=2, SHOWBUY / (M1 / (PRE * 0.1)), SHOWBUY);
rSHOWSELL1 := IF(ZUOBIAO=2, SHOWSELL / (M1 / (PRE * 0.1)), SHOWSELL);

r

SHOWBUY := SHOWBUY1;
rSHOWSELL := SHOWSELL1;

r

LPRICE: price;
rU10 := IF(ZUOBIAO=0, m1, 10);
rU10 := IF(ZUOBIAO=2, PRE * 1.1, U10);
rD10 := IF(ZUOBIAO=0, m1 * -1, -10);
rD10 := IF(ZUOBIAO=2, PRE * 0.9, D10);
rUP10:U10, colorred, POINTDOT;
rDOWN10:D10, colorcyan, POINTDOT;

r

num := IF(MODE=0, 0, PRICE);

r

STICKLINE(YD1 = 0, NUM, NUM+ SHOWBUY, 5, 0), colorred;
rSTICKLINE(YD1 <> 0, NUM, NUM+ SHOWBUY, 5,0), colorwhite;
rSTICKLINE(YD2 = 0, NUM, NUM- SHOWSELL, 5,0), colorgreen;
rSTICKLINE(YD2 <> 0, NUM, NUM- SHOWSELL, 5,0), colorblue;

r

//当真实买卖与价格变动相反时，属于异动

r

r