您现在的位置:好股网 >> 股票公式 >> 通达信公式 >> 一键转帖:主图叠加成交量源码 主图 通达信 贴图

主图叠加成交量源码 主图 通达信 贴图


指标功能:[B]国产软件[/B]
指标类型:简体中文
所需积分:0
推荐星级:
授权方式:共享版
公式大小:2.00 KB
更新时间:2019-02-06 18:52:00
公式简介:

分享一个自己整理的主图叠加成交量主图源码,要需要的拿去。
前面的那个刚刚发现有很少量显示会有错误,(比如东方通信2018.11.29日),所以做了修改,重新上传了,把第一次和修改后的都放到一起了。


{修改后}
MAXV:=CONST(HHV(VOL,42));
MAXS:=CONST(HHV(HIGH,42));
BS:=MAXV/MAXS;
VOLUME:=VOL/BS*0.18;
ORIGIN:=CONST(LLV(LOW,0))-CONST(0.5*HHV(VOLUME,0));
STICKLINE(CLOSE>=OPEN,ORIGIN,ORIGIN+VOLUME,2,1),COLORRED;
STICKLINE(CLOSE<OPEN,ORIGIN,ORIGIN+VOLUME,2,0),COLORCYAN;

MAV5:(MA(VOLUME,5)+ORIGIN),COLORFFFFFF;
MAV10:(MA(VOLUME,10)+ORIGIN),COLORYELLOW;
MAV60:(MA(VOLUME,60)+ORIGIN),COLORMAGENTA,,LINETHICK2;

BL:=V>=REF(V,1)*2;
STICKLINE(BL,ORIGIN,ORIGIN+VOLUME,1,0),COLORYELLOW;

SBL:=V>=REF(V,1)*3;
STICKLINE(SBL,ORIGIN,ORIGIN+VOLUME,1,0),COLORMAGENTA;

IF(MAV60<REF(MAV60,1),MAV60,DRAWNULL),LINETHICK2,COLORGREEN;
JC:=CROSS(MAV5,MAV10);
DRAWICON(JC,ORIGIN+VOLUME,1);

MA5:MA(CLOSE,5),COLORWHITE,LINETHICK1;
MA10:MA(CLOSE,10),COLORYELLOW,LINETHICK1;
MA20:MA(CLOSE,20),COLORLIRED,LINETHICK1;
MA30:MA(CLOSE,30),COLORFFFF00,LINETHICK1;


所属地区:DRAWTEXT_FIX(1,0,0,0,'地:'),COLORYELLOW;
DRAWTEXT_FIX(1,0.04,0,0,DYBLOCK),COLORYELLOW;
所属行业:DRAWTEXT_FIX(1,0,0.08,0,'行:'),COLORYELLOW;
DRAWTEXT_FIX(1,0.04,0.08,0,HYBLOCK),COLORYELLOW;
所属概念:DRAWTEXT_FIX(1,0,0.16,0,'概:'),COLORYELLOW;
DRAWTEXT_FIX(1,0.04,0.16,0,GNBLOCK),COLORYELLOW;
所属风格:DRAWTEXT_FIX(1,0,0.24,0,'风:'),COLORYELLOW;
DRAWTEXT_FIX(1,0.04,0.24,0,FGBLOCK),COLORYELLOW;


STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,1 ),COLOR5B5BFF;
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,3,0 ),COLOR0000CC;
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,2,0 ),COLOR0E0EFF;
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,1.2,0 ),COLOR4848FF;
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,0.6,0 ),COLOR7878FF;
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,0.1,0 ),COLORA1A1FF;
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,0,0 ),COLORCACAFF;

STICKLINE(CLOSE< OPEN,HIGH,LOW,0,1 ),COLORCYAN;
STICKLINE(CLOSE< OPEN,OPEN,CLOSE,3,0 ),COLOR990000;
STICKLINE(CLOSE< OPEN,OPEN,CLOSE,2,0 ),COLORCC0000;
STICKLINE(CLOSE< OPEN,OPEN,CLOSE,1.2,0 ),COLORFF4400;
STICKLINE(CLOSE< OPEN,OPEN,CLOSE,0.6,0 ),COLORFF8800;
STICKLINE(CLOSE< OPEN,OPEN,CLOSE,0.1,0 ),COLORFFCC00;
STICKLINE(CLOSE< OPEN,OPEN,CLOSE,0,0 ),COLORCYAN;


STICKLINE(C/REF(C,1)>1.097 AND C=H,C,O,2,0),COLORYELLOW;
CC3:=REF(C,1);
跌停:=IF((CC3-C)*100/CC3>=(10-0.01*100/CC3),1,0);
STICKLINE(跌停,OPEN,CLOSE,2,0),COLORGREEN;
STICKLINE(C/REF(C,1)<=1.097 AND C/REF(C,1)>=1.05 ,C,O,1.8,0),COLORFFFF00;


{下面是第一次的,可以参考,发现有很少量错误)

{主图成交量}
HH0:=CONST(HHV(H,120))*1;
LL0:=CONST(LLV(L,120))*1;
MM0:=CONST((HH0+LL0)/2);
HH1:=IF(CONST(C)<MM0,LL0-(HH0-LL0)*0.4,LL0-(HH0-LL0)*0.4),COLORRED;
LL1:=LL0;
HLMAX:=MAX(HH1,LL1);
HLMIN:=MIN(HH1,LL1);
HLMN1:=(HLMAX+HLMIN)/2;
HLMN2:=(HLMAX-HLMIN);
HLMN3:=HHV(V,250)/2;
HLMN4:=HHV(V,250);
VZ:=(V-HLMN3)*HLMN2/HLMN4+HLMN1;
STICKLINE(C>=O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2.5,1),COLORRED;
STICKLINE(C<O,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2.5,0),COLORCYAN;
MAV5:(MA(V,5)-HLMN3)*HLMN2/HLMN4+HLMN1,COLORFFFFFF;
MAV10:(MA(V,10)-HLMN3)*HLMN2/HLMN4+HLMN1,COLORYELLOW;
MAV60:(MA(V,60)-HLMN3)*HLMN2/HLMN4+HLMN1,COLORMAGENTA,,LINETHICK2;
JC:=CROSS(MAV5,MAV10);
DRAWICON(JC,(V-HLMN3)*HLMN2/HLMN4+HLMN1,1);

STICKLINE(C/REF(C,1)>1.099,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2,0),COLORRED;
STICKLINE(C/REF(C,1)<0.901,VZ,(0-HLMN3)*HLMN2/HLMN4+HLMN1,2,0),COLORGREEN;
VY:=(0-HLMN3)*HLMN2/HLMN4+HLMN1;
STICKLINE(V>=2*REF(V,1),VZ,VY,1,0),COLORYELLOW;
STICKLINE(V>=3*REF(V,1),VZ,VY,1,0),COLORMAGENTA;
IF(MAV60<REF(MAV60,1),MAV60,DRAWNULL),LINETHICK2,COLORGREEN;

MA5:MA(CLOSE,5),COLORWHITE,LINETHICK1;
MA10:MA(CLOSE,10),COLORYELLOW,LINETHICK1;
MA20:MA(CLOSE,20),COLORLIRED,LINETHICK1;
MA30:MA(CLOSE,30),COLORFFFF00,LINETHICK1;


所属地区:DRAWTEXT_FIX(1,0,0,0,'地:'),COLORYELLOW;
DRAWTEXT_FIX(1,0.04,0,0,DYBLOCK),COLORYELLOW;
所属行业:DRAWTEXT_FIX(1,0,0.08,0,'行:'),COLORYELLOW;
DRAWTEXT_FIX(1,0.04,0.08,0,HYBLOCK),COLORYELLOW;
所属概念:DRAWTEXT_FIX(1,0,0.16,0,'概:'),COLORYELLOW;
DRAWTEXT_FIX(1,0.04,0.16,0,GNBLOCK),COLORYELLOW;
所属风格:DRAWTEXT_FIX(1,0,0.24,0,'风:'),COLORYELLOW;
DRAWTEXT_FIX(1,0.04,0.24,0,FGBLOCK),COLORYELLOW;


STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,1 ),COLOR5B5BFF;
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,3,0 ),COLOR0000CC;
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,2,0 ),COLOR0E0EFF;
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,1.2,0 ),COLOR4848FF;
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,0.6,0 ),COLOR7878FF;
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,0.1,0 ),COLORA1A1FF;
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,0,0 ),COLORCACAFF;

STICKLINE(CLOSE< OPEN,HIGH,LOW,0,1 ),COLORCYAN;
STICKLINE(CLOSE< OPEN,OPEN,CLOSE,3,0 ),COLOR990000;
STICKLINE(CLOSE< OPEN,OPEN,CLOSE,2,0 ),COLORCC0000;
STICKLINE(CLOSE< OPEN,OPEN,CLOSE,1.2,0 ),COLORFF4400;
STICKLINE(CLOSE< OPEN,OPEN,CLOSE,0.6,0 ),COLORFF8800;
STICKLINE(CLOSE< OPEN,OPEN,CLOSE,0.1,0 ),COLORFFCC00;
STICKLINE(CLOSE< OPEN,OPEN,CLOSE,0,0 ),COLORCYAN;


STICKLINE(C/REF(C,1)>1.097 AND C=H,C,O,2,0),COLORYELLOW;
CC3:=REF(C,1);
跌停:=IF((CC3-C)*100/CC3>=(10-0.01*100/CC3),1,0);
STICKLINE(跌停,OPEN,CLOSE,2,0),COLORGREEN;
STICKLINE(C/REF(C,1)<=1.097 AND C/REF(C,1)>=1.05 ,C,O,1.8,0),COLORFFFF00;




主图叠加成交量源码 主图 通达信 贴图

主图叠加成交量源码 主图 通达信 贴图


[url=http://www.goodgupiao.com/gupiaogongshi/53210.html][B]主图叠加成交量源码 主图 通达信 贴图[/B][/url]