寻龙三迹
26-05-21 20:52

hsi恒生指数分钟委买委卖同比或与上日对比图
名称:ZQMC,colorwhite;
代码:CODE,colorred;
年月日:TOSTRING(DATE,8),NODRAW,colorwhite;
时间:TIME/10000,NODRAW,coloryellow; /* 时间数值输出方案设为“一般价格两位 */
星期:TOSTRING(WEEKDAY,8),NODRAW,colormagenta;

/* 恒生指数分时图专用 -︺△▽⊿∠∧☆◇○⊙◎▼★▲◆● */
a:=IF(ISNULL(NEW),PRE,NEW);
b:=SUBSAMEDAY(&VOL) ;
IF (VOL > 1)
{均价:=SUM(b*a,0)/VOL;}
最新:=IF(ISNULL(NEW),PRE,NEW);
涨幅:(NEW-PRE)/PRE*100;
五分钟涨幅:(NEW-REF(NEW,5))/REF(NEW,5)*100,NODRAW,colorwhite;
显示位:=MIN(BUYCOUNT,SELLCOUNT); /* 委买卖函数的价底者显示 */

委买:BUYCOUNT,coloryellow;
委卖:SELLCOUNT,color008800;
委差:委买-委卖; /* 设定-为柱图中心线+与用户设定值比较,数值设为 0 */
委比:(委买-委卖)/(委买+委卖)*100,coloryellow;
多空比:委买/委卖; /* 与用户设定值比较,数值设为 1,数值输出方案设为“涨跌两位”,不显示均线 */

委差创全天个高:(时间>10.30 AND 委差>0 AND 委差>=HHV(委差,340))*委差,colorwhite,LINETHICK2; /*5.5个小时交易时间330钟+尾盘10分钟=340分钟 */
委差水平线:IF(最新>20000,700000000,DRAWNULL),colorwhite,LINETHICK1,DOTLINE; /* 7个亿,连续性上涨或下跌后的有参与作用 */

/* 牛熊证黄线《委买》专用显示创新高“+”号 */
加号:=委买;
DRAWTEXT( 最新<1.9 AND 委买>=HHV(委买,200),加号,'+'),colorgreen; /*委买黄线创300分钟天新高,全天共330分钟,5.5个小时交易时间330钟+尾盘10分钟=340分钟 */
DRAWTEXT( 最新<1.9 AND 委买>=HHV(委买,340),加号,'+'),colorlired; /*委买黄线创300分钟天新高,全天共330分钟,5.5个小时交易时间330钟+尾盘10分钟=340分钟 */

/* 恒生指数《委卖》专用显示创新高20个分钟“+”号和创昨天新高的粗绿色“+”号 */
粗委卖20:= 最新>20000 AND 时间>15.00 AND 时间<=15.50 AND 委卖>=HHV(委卖,20);
DRAWTEXT( 粗委卖20,MIN(委买,委卖),'+'),color008800;
粗委卖410:=最新>20000 AND 时间>15.00 AND 时间<=15.50 AND 委卖>=HHV(委卖,410); /* 与昨天最高点相比用-定410分钟,只从昨天的15.00起算共70分钟+一天340分=410分钟 */
DRAWTEXT( 粗委卖410,MIN(委买,委卖),'+'),colorgreen;

/* 恒生指数《委买》专用显示创新高20个分钟“+”号 */
粗委买20:= 最新>20000 AND 时间>15.00 AND 时间<=15.50 AND 委买>=HHV(委买,20);
DRAWTEXT( 粗委买20,MAX(委买,委卖),'+'),coloryellow;

DRAWTEXT(时间=10.00,委买,'1 '),colorwhite;
DRAWTEXT(时间=10.00,委卖,'1 '),colorcyan;
DRAWTEXT(时间=11.00,委买,'2 '),colorwhite;
DRAWTEXT(时间=11.00,委卖,'2 '),colorcyan;
DRAWTEXT(时间=15.00,委买,'3 '),colorwhite;
DRAWTEXT(时间=15.00,委卖,'3 '),colorcyan;

/* 恒生指数《委卖》在15.58分钟时显示◎,分时图不支持CLOSE,OPEN这种函数 */
DRAWTEXT(时间>=15.58,委差水平线,'○'),colorgray;

/* 以下为委买 B1.上日委买高值、最新委买高值 */
上一日委买高:=HHV(委买,410),NODRAW,colorgreen; /* 与昨天最高点相比用-定410分钟,只从昨天的15.00起算共70分钟+一天340分=410分钟 */
委买高:HHV(委买,70),NODRAW,color7799FF; /* 从15点开始到收盘10分钟共70分钟的最高统计委买的最大值 */
/* 以下为委买 B2. 副图固定显示上日委买高值、最新委买高值 */
即时分钟:=FROMOPEN;
上一日委买高值:=REF(HHV(委买,70),即时分钟 ); /* 即时分钟收盘时为341分,盘中实时变动 ,只取昨天最后70分钟的最高委买数值*/
DRAWTEXT_FIX(ISLASTBAR ,0.00,0.02,0 ,'上日委买高值:'+TOSTRING(上一日委买高值/100000000,2)+'亿'),colorligray;
DRAWTEXT_FIX(ISLASTBAR ,0.00,0.13,0 ,'最新委买高值:'+TOSTRING( 委买高/100000000,2)+'亿'),colorligray;
大于上日委买高:=委买高>=上一日委买高值;
DRAWTEXT_FIX(ISLASTBAR AND 大于上日委买高,0.00,0.13,0 ,'最新委买高值:'+TOSTRING(委买高/100000000,2)+'亿'),color7799FF; /* 当天最大委买大于上一日最大委买高时显深黄色color0099FF */
/* 以下为委买 B3. 上日委买高-距离现在分钟个数、最新委买高-距离现在分钟个数 */
上一日委买高距离数:=REF(HHVBARS(委买,70),即时分钟 )-1; /* 只统计最后70分钟内的最大值,要减一分,否则第二天显示会比上一天会多一分 */
委买高距离数:=HHVBARS(委买,70),NODRAW,colorwhite; /* 从15点开始到收盘10分钟共70分钟 - 注意:委买高定为70分钟内新高,委卖只定20分钟内新高,主要是为了让绿色卖单连续的“+”在加深时更有区别感,好识别*/
DRAWTEXT_FIX(ISLASTBAR ,0.00,0.26,0 ,'上日委买高距离:'+TOSTRING(上一日委买高距离数,0)+' '),colorligray;
DRAWTEXT_FIX(ISLASTBAR ,0.00,0.37,0 ,'最新委买高距离:'+TOSTRING(委买高距离数,0)+' '),colorligray; /* 看数字分析时,如时间个数字越小,说明距收盘前还在创新高,买单还在增加 */

/* 以下为委卖 S1:上日委卖高值、最新委卖高值-注意,!!【凡是有上一日数据计算的,当天的分时图在开盘中数据是对的,但在开盘时间状态中时,昨天之前的数据都不对,要等收盘后才会对,要与以区分】 */
上一日委卖高:=HHV(委卖,410),NODRAW,colorgreen;
委卖高:HHV(委卖,70),NODRAW,colorwhite; /* 从15点开始到收盘10分钟共70分钟的最高统计委卖的最大值 */
/* 以下为委卖 S2.副图固定显示上日委卖高值、最新委卖高值 */
上一日委卖高值:=REF(HHV(委卖,70),即时分钟 ); /* 即时分钟收盘时为341分,盘中实时变动 ,只取昨天最后70分钟的最高委卖数值*/
DRAWTEXT_FIX(ISLASTBAR ,0.30,0.02,0 ,'上日委卖高值:'+TOSTRING(上一日委卖高值/100000000,2)+'亿'),colorligray;
DRAWTEXT_FIX(ISLASTBAR ,0.30,0.13,0 ,'最新委卖高值:'+TOSTRING( 委卖高/100000000,2)+'亿'),colorligray;
大于上日委卖高:=委卖高>=上一日委卖高值;
DRAWTEXT_FIX(ISLASTBAR AND 大于上日委卖高,0.30,0.13,0 ,'最新委卖高值:'+TOSTRING(委卖高/100000000,2)+'亿'),colorgreen; /* 当天最大委卖大于上一日最大委卖高时显绿色-利于做空 */
/* 以下为委卖 S3.上日委卖高和最新委卖高-距离最新收盘价的分钟个数*/
上一日委卖高距离数:=REF(HHVBARS(委卖,70),即时分钟 )-1; /* 这个必须是70分,定20时会显示最后20分内的最大值,但又不能创新高就不行了-,要减一分,否则第二天显示会比上一天多一分 */
委卖高距离数:=HHVBARS(委卖,70); /* 这个必须是70分,定20时会显示最后20分内的最大值,但又不能创新高就不行了 */
DRAWTEXT_FIX(ISLASTBAR ,0.30,0.26,0 ,'上日委卖高距离:'+TOSTRING(上一日委卖高距离数,0)+'分 '),colorligray;
DRAWTEXT_FIX(ISLASTBAR ,0.30,0.37,0 ,'最新委卖高距离:'+TOSTRING(委卖高距离数,0)+'分 '),colorligray;
委卖距离数小于上日:=委卖高距离数<=上一日委卖高距离数;
DRAWTEXT_FIX(ISLASTBAR AND 委卖距离数小于上日 ,0.30,0.37,0 ,'最新委卖高距离:'+TOSTRING(委卖高距离数,0)+'分 '),colorgreen; /* 委卖距离数小于等于上一日委卖高距离数时,显绿色,时间距离数字越小,说明距收盘前还在创新高,卖单还在增加-利于做空-{只适合上涨阳线看盘用} */

/* 以下为委卖 S4.上日委卖高与最新委卖高在最近70分钟内创委卖新高的次数 */
上一日委卖高次数:=REF( COUNT(委卖>=HHV(委卖,20),70) ,即时分钟+1 ); /* 这个《上一日委卖高次数》要+1分次,否则第二天计算上一日时会小一次,与《上一日委卖高距离数》要减一分的计算是不一样的 */
委卖高次数:=COUNT(委卖>=HHV(委卖,20),70);
DRAWTEXT_FIX(ISLASTBAR ,0.30,0.50,0 ,'上日委卖高次数:'+TOSTRING(上一日委卖高次数,0)+'次'),colorligray;
DRAWTEXT_FIX(ISLASTBAR ,0.30,0.61,0 ,'最新委卖高次数:'+TOSTRING(委卖高次数,0)+'次'),colorligray; /* 次数字越多,说明还在创新高,卖单还在增加 */
委卖高次数大于上日:=委卖高次数>=上一日委卖高次数;
DRAWTEXT_FIX(ISLASTBAR AND 委卖高次数大于上日 ,0.30,0.61,0 ,'最新委卖高次数:'+TOSTRING(委卖高次数,0)+'次 '),colorgreen; /* 最新委卖高次数大于等于上一日委卖高次数时,显绿色,时间距离数字越大,说明距收盘前还在多次创新高,大卖单还在增加-利于做空-{只适合上涨阳线看盘用} */

/* 以下为最新委买、委卖,委差与上一日分时图的同时间分钟点对比分析,委买大于昨日看涨用黄色表示,委卖大于昨日看跌用绿色表示,委差大于昨日看涨用黄色表示 */
上一日委买:=REF( 委买,341+1); /* 上一日委买,即时分钟收盘时为341分+1分时就可以与昨天的分钟时间对的上 */
DRAWTEXT_FIX(ISLASTBAR AND 最新>20000 ,0.60,0.02,0 ,'上日委买:'+TOSTRING(上一日委买/100000000,2)+'亿'),colorligray;
DRAWTEXT_FIX(ISLASTBAR AND 最新>20000 ,0.60,0.13,0 ,'最新委买:'+TOSTRING( 委买/100000000,2)+'亿'),colorligray;
同比大于上日委买:=委买>=上一日委买;
DRAWTEXT_FIX(ISLASTBAR AND 最新>20000 AND 同比大于上日委买 ,0.60,0.13,0 ,'最新委买:'+TOSTRING( 委买/100000000,2)+'亿'),color7799ff;
上一日委卖:=REF( 委卖,341+1 ); /* 上一日委卖,即时分钟收盘时为341分+1分时就可以与昨天的分钟时间对的上 */
DRAWTEXT_FIX(ISLASTBAR AND 最新>20000 ,0.60,0.26,0 ,'上日委卖:'+TOSTRING(上一日委卖/100000000,2)+'亿'),colorligray;
DRAWTEXT_FIX(ISLASTBAR AND 最新>20000 ,0.60,0.37,0 ,'最新委卖:'+TOSTRING( 委卖/100000000,2)+'亿'),colorligray;
同比大于上日委卖:=委卖>=上一日委卖;
DRAWTEXT_FIX(ISLASTBAR AND 最新>20000 AND 同比大于上日委卖 ,0.60,0.37,0 ,'最新委卖:'+TOSTRING( 委卖/100000000,2)+'亿'),colorgreen;
上一日委差:=REF( 委差,341+1 ); /* 上一日委差,即时分钟收盘时为341分+1分时就可以与昨天的分钟时间对的上 */
DRAWTEXT_FIX(ISLASTBAR AND 最新>20000 ,0.60,0.50,0 ,'上日委差:'+TOSTRING(上一日委差/100000000,2)+'亿'),colorligray;
DRAWTEXT_FIX(ISLASTBAR AND 最新>20000 ,0.60,0.63,0 ,'最新委差:'+TOSTRING( 委差/100000000,2)+'亿'),colorligray;
同比大于上日委差:=委差>=上一日委差;
DRAWTEXT_FIX(ISLASTBAR AND 最新>20000 AND 同比大于上日委差 ,0.60,0.63,0 ,'最新委差:'+TOSTRING( 委差/100000000,2)+'亿'),color7799ff;

/* HSI-恒生指数涨跌幅及收盘价在分时时图显示+牛证买选回收价大小于恒指-2.3%, 熊证买选回收价大于恒指2.3%,*/
恒指涨幅:=(INDEXDATA("HSI",&NEW)-INDEXDATA("HSI",&PRE))/INDEXDATA("HSI",&PRE)*100;
DRAWTEXT_FIX(ISLASTBAR ,0.00,0.55,0 ,'恒指涨幅:'+TOSTRING(恒指涨幅,2)+'% '),colorligray;
DRAWTEXT_FIX(ISLASTBAR ,0.00,0.65,0 ,'恒指收盘:'+TOSTRING(INDEXDATA("HSI",&NEW),2)+' '),colorligray;
牛证买选回收价小于:=INDEXDATA("HSI",&NEW)*0.977,NODRAW,coloryellow; /* 牛证买选回收价大小于恒指-2.3% */
熊证买选回收价大于:=INDEXDATA("HSI",&NEW)*1.023,NODRAW,colorgreen; /* 熊证买选回收价大于恒指2.3%,牛熊证定上下差600点,约上下为正负2.3% */
DRAWTEXT_FIX(ISLASTBAR AND 最新<0.99 ,0.00,0.75,0 ,'牛证买选回收价小于:'+TOSTRING(牛证买选回收价小于,0)+' '),coloryellow;
DRAWTEXT_FIX(ISLASTBAR AND 最新<0.99 ,0.00,0.85,0 ,'熊证买选回收价大于:'+TOSTRING(熊证买选回收价大于,0)+' '),colorgreen;

发布于 湖南