软件名称：[B]精品指标-股票直方图（指标 副图 大智慧 贴图）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：25.0 KB
官方主页：Home Page
更新时间：2015-11-12 01:29:29
软件简介:

近期心情不错，特发表我精心制作的原创指标：直方图，附送指标及其源码。
你是不是很想知道你持有的股票趋势，量价关系，大盘走势，股票与大盘、板块的走势强弱对比？好了，股票直方图让你一目了然！
直方图分两部分，左半部分体现出股票及大盘指数的量价关系，红色柱体代表了平均价咯，绿色柱体代表了平均成交量，如果红色柱体节节高，则表示股票呈上升趋势。如果红色柱体上升，绿色柱体也上升，则说明价升量增，股票的趋势可以维持；如果红色柱体上升，绿色柱体下降，则说明量价背离，此种情况要看主力的持仓情况（看换手率，如股价上升，换手率低，说明主力持仓较多，也可查看前十大股东的情况），如果主力持仓重，则股票的走势取决于主力的意愿，否则说明量能衰竭，股价将反转。直方图的右半部分显示了股票涨幅与指数涨幅的对比，紫色柱体为股票的涨幅，蓝色柱体为指数的涨幅，从中可以窥见股票的走势是否强于大盘和板块。
 

代码 := STKLABEL;
SCC:=IF(STRCMP( STRLEFT(代码 ,1),'6' )=0,"SH000001$CLOSE",IF(STRCMP( STRLEFT(代码 ,1),'3' )=0,"399006$CLOSE",IF(STRCMP( STRLEFT(代码 ,3),'002' )=0,"399005$CLOSE","SZ399001$CLOSE")));{市场指数}
SCV:=IF(STRCMP( STRLEFT(代码 ,1),'6' )=0,"SH000001$VOL",IF(STRCMP( STRLEFT(代码 ,1),'3' )=0,"399006$VOL",IF(STRCMP( STRLEFT(代码 ,3),'002' )=0,"399005$VOL","SZ399001$VOL")));{市场成交量}
JJC:="998003$close";{平均价咯指数}
{HYC-行业板块指数}
if INBLOCK('工程建筑') then HYC:="991002$close";
if INBLOCK('电力')  then HYC:="991003$close";
if INBLOCK('计算机') then HYC:="991004$close";
if INBLOCK('电子信息') then HYC:="991006$close";
if INBLOCK('房地产') then HYC:="991007$close";
if INBLOCK('纺织服装') then HYC:="991008$close";
if INBLOCK('钢铁') then HYC:="991009$close";
if INBLOCK('供水供气') then HYC:="991010$close";
if INBLOCK('化工化纤')  then HYC:="991011$close";
if INBLOCK('电器') then HYC:="991014$close";
if INBLOCK('交通设施') then HYC:="991016$close";
if INBLOCK('银hang类') then HYC:="991017$close";
if INBLOCK('旅游酒店') then HYC:="991018$close";
if INBLOCK('煤炭石油') then HYC:="991019$close";
if INBLOCK('酿酒食品') then HYC:="991020$close";
if INBLOCK('农林牧渔') then HYC:="991021$close";
if INBLOCK('商业连锁') then HYC:="991023$close";
if INBLOCK('建材') then HYC:="991024$close";
if INBLOCK('其他行业') then HYC:="991025$close";
if INBLOCK('交通工具') then HYC:="991026$close";
if INBLOCK('机械')  then HYC:="991027$close";
if INBLOCK('医药')  then HYC:="991028$close";
if INBLOCK('外贸')  then HYC:="991031$close";
if INBLOCK('教育传媒')  then HYC:="991032$close";
if INBLOCK('仪电仪表')  then HYC:="991033$close";
if INBLOCK('有色金属')  then HYC:="991034$close";
if INBLOCK('造纸印刷') then HYC:="991035$close";
if INBLOCK('券商') then HYC:="991036$close";
if INBLOCK('通信')  then HYC:="991135$close";
if INBLOCK('运输物流') then HYC:="991136$close";
if INBLOCK('保险') then HYC:="991255$close";
if INBLOCK('非银金融') then HYC:="991256$close";

{求平均值}
MA5:=MA(CLOSE,5);
MA20:=MA(CLOSE,20);
MA60:=MA(CLOSE,60);
MAM:=MAX(MA5,MA20,MA60);
MAK5:=MA5/MAM;
MAK20:=MA20/MAM;
MAK60:=MA60/MAM;
MAV5:=MA(VOL,5);
MAV20:=MA(VOL,20);
MAV60:=MA(VOL,60);
MAVM:=MAX(MAV5,MAV20,MAV60);
MAVK5:=MAV5/MAVM;
MAVK20:=MAV20/MAVM;
MAVK60:=MAV60/MAVM;
SCC5:=MA(SCC,5);
SCC20:=MA(SCC,20);
SCC60:=MA(SCC,60);
SCCM:=MAX(SCC5,SCC20,SCC60);
SCCK5:=SCC5/SCCM;
SCCK20:=SCC20/SCCM;
SCCK60:=SCC60/SCCM;
SCV5:=MA(SCV,5);
SCV20:=MA(SCV,20);
SCV60:=MA(SCV,60);
SCVM:=MAX(SCV5,SCV20,SCV60);
SCVK5:=SCV5/SCVM;
SCVK20:=SCV20/SCVM;
SCVK60:=SCV60/SCVM;

{求涨幅}
ZF5:=CLOSE/REF(CLOSE,5);
ZF20:=CLOSE/REF(CLOSE,20);
ZF60:=CLOSE/REF(CLOSE,60);
SCCZ5:=SCC/REF(SCC,5);
SCCZ20:=SCC/REF(SCC,20);
SCCZ60:=SCC/REF(SCC,60);
ZSM5:=MAX(ZF5,SCCZ5);
ZSK5:=ZF5/ZSM5;
SZK5:=SCCZ5/ZSM5;
ZSM20:=MAX(ZF20,SCCZ20);
ZSK20:=ZF20/ZSM20;
SZK20:=SCCZ20/ZSM20;
ZSM60:=MAX(ZF60,SCCZ60);
ZSK60:=ZF60/ZSM60;
SZK60:=SCCZ60/ZSM60;
JJCZ5:=JJC/REF(JJC,5);
JJCZ20:=JJC/REF(JJC,20);
JJCZ60:=JJC/REF(JJC,60);
ZJM5:=MAX(ZF5,JJCZ5);
ZJK5:=ZF5/ZJM5;
JZK5:=JJCZ5/ZJM5;
ZJM20:=MAX(ZF20,JJCZ20);
ZJK20:=ZF20/ZJM20;
JZK20:=JJCZ20/ZJM20;
ZJM60:=MAX(ZF60,JJCZ60);
ZJK60:=ZF60/ZJM60;
JZK60:=JJCZ60/ZJM60;
HYCZ5:=HYC/REF(HYC,5);
HYCZ20:=HYC/REF(HYC,20);
HYCZ60:=HYC/REF(HYC,60);
ZHM5:=MAX(ZF5,HYCZ5);
ZHK5:=ZF5/ZHM5;
HZK5:=HYCZ5/ZHM5;
ZHM20:=MAX(ZF20,HYCZ20);
ZHK20:=ZF20/ZHM20;
HZK20:=HYCZ20/ZHM20;
ZHM60:=MAX(ZF60,HYCZ60);
ZHK60:=ZF60/ZHM60;
HZK60:=HYCZ60/ZHM60;

{画直方图}
DRAWGBKLAST(C>0,STRIP(RGB(0,80,30),RGB(0,0,0),0));
IF BARSTATUS=2 THEN DRAWRECTREL(0 ,0,999 ,999 ,RGB(0,0,0) ),colorred;
IF BARSTATUS=2 THEN DRAWRECTREL(20 ,100,40 ,200 ,RGB(255,0,0) ),color0000ff;
IF BARSTATUS=2 THEN DRAWTEXTREL(20 ,300 ,'价咯' ),colorffffff;
IF BARSTATUS=2 THEN DRAWRECTREL(20 ,600,40 ,700 ,RGB(0,255,0) ),color00ff00;
IF BARSTATUS=2 THEN DRAWTEXTREL(20 ,800 ,'成交量' ),colorffffff;
IF BARSTATUS=2 THEN DRAWTEXTREL(70 ,100 ,'股' ),colorffff00;DRAWTEXTREL(70 ,200 ,'票' ),colorffff00;
IF BARSTATUS=2 THEN DRAWRECTREL(0+100 ,500-400*MAK60,15+100 ,420 ,RGB(255,0,0) ),color0000ff;
IF BARSTATUS=2 THEN DRAWTEXTREL(0+100 ,420-400*MAK60 ,'60日' ),colorffffff;
IF BARSTATUS=2 THEN DRAWRECTREL(30+100 ,500-400*MAK20,45+100 ,420 ,RGB(255,0,0) ),color0000ff;
IF BARSTATUS=2 THEN DRAWTEXTREL(30+100 ,420-400*MAK20 ,'20日' ),colorffffff;
IF BARSTATUS=2 THEN DRAWRECTREL(60+100 ,500-400*MAK5,75+100 ,420 ,RGB(255,0,0) ),color0000ff;
IF BARSTATUS=2 THEN DRAWTEXTREL(60+100 ,420-400*MAK5 ,'5日' ),colorffffff;
IF BARSTATUS=2 THEN DRAWRECTREL(90 ,400,185 ,420 ,RGB(0,0,255) ),coloraa0000;
IF BARSTATUS=2 THEN DRAWRECTREL(0+100 ,1000-400*MAVK60,15+100 ,920 ,RGB(0,255,0) ),color00ff00;
IF BARSTATUS=2 THEN DRAWTEXTREL(0+100 ,920-400*MAVK60 ,'60日' ),colorffffff;
IF BARSTATUS=2 THEN DRAWRECTREL(30+100 ,1000-400*MAVK20,45+100 ,920 ,RGB(0,255,0) ),color00ff00;
IF BARSTATUS=2 THEN DRAWTEXTREL(30+100 ,920-400*MAVK20 ,'20日' ),colorffffff;
IF BARSTATUS=2 THEN DRAWRECTREL(60+100 ,1000-400*MAVK5,75+100 ,920 ,RGB(0,255,0) ),color00ff00;
IF BARSTATUS=2 THEN DRAWTEXTREL(60+100 ,920-400*MAVK5 ,'5日' ),colorffffff;
IF BARSTATUS=2 THEN DRAWRECTREL(90 ,900,185 ,920 ,RGB(0,0,255) ),colorff0000;
IF BARSTATUS=2 THEN DRAWTEXTREL(220 ,100 ,'大' ),colorffff00;DRAWTEXTREL(220 ,200 ,'盘' ),colorffff00;DRAWTEXTREL(220 ,300 ,'指' ),colorffff00;DRAWTEXTREL(220 ,400 ,'数' ),colorffff00;
IF BARSTATUS=2 THEN DRAWRECTREL(0+250 ,500-400*SCCK60,15+250 ,420 ,RGB(255,0,0) ),color0000ff;
IF BARSTATUS=2 THEN DRAWTEXTREL(0+250 ,420-400*SCCK60 ,'60日' ),colorffffff;
IF BARSTATUS=2 THEN DRAWRECTREL(30+250 ,500-400*SCCK20,45+250 ,420 ,RGB(255,0,0) ),color0000ff;
IF BARSTATUS=2 THEN DRAWTEXTREL(30+250 ,420-400*SCCK20 ,'20日' ),colorffffff;
IF BARSTATUS=2 THEN DRAWRECTREL(60+250 ,500-400*SCCK5,75+250 ,420 ,RGB(255,0,0) ),color0000ff;
IF BARSTATUS=2 THEN DRAWTEXTREL(60+250 ,420-400*SCCK5 ,'5日' ),colorffffff;
IF BARSTATUS=2 THEN DRAWRECTREL(240 ,400,335 ,420 ,RGB(0,0,255) ),coloraa0000;
IF BARSTATUS=2 THEN DRAWRECTREL(0+250 ,1000-400*SCVK60,15+250 ,920 ,RGB(0,255,0) ),color00ff00;
IF BARSTATUS=2 THEN DRAWTEXTREL(0+250 ,920-400*SCVK60 ,'60日' ),colorffffff;
IF BARSTATUS=2 THEN DRAWRECTREL(30+250 ,1000-400*SCVK20,45+250 ,920 ,RGB(0,255,0) ),color00ff00;
IF BARSTATUS=2 THEN DRAWTEXTREL(30+250 ,920-400*SCVK20 ,'20日' ),colorffffff;
IF BARSTATUS=2 THEN DRAWRECTREL(60+250 ,1000-400*SCVK5,75+250 ,920 ,RGB(0,255,0) ),color00ff00;
IF BARSTATUS=2 THEN DRAWTEXTREL(60+250 ,920-400*SCVK5 ,'5日' ),colorffffff;
IF BARSTATUS=2 THEN DRAWRECTREL(240 ,900,335 ,920 ,RGB(0,0,255) ),colorff0000;
IF BARSTATUS=2 THEN DRAWRECTREL(355 ,0,356 ,999 ,RGB(255,255,255) ),colorred;{分割线}
IF BARSTATUS=2 THEN DRAWRECTREL(370 ,1

		[url=http://www.70822.com/soft/sort013/sort03/down-90972.html]精品指标-股票直方图（指标 副图 大智慧 贴图）[/url]