分析家公式网,提供股票公式,股票软件用户登录  |  用户 注册
当前位置：分析家公式网 → 软件中心 → 股票公式 → 大智慧L2公式
精品指标-股票直方图（指标 副图 大智慧 贴图）
  • 软件大小：25.0 KB
  • 推荐星级：
  • 更新时间：2015-11-12 01:29:29
  • 软件类别： 国产软件 / 大智慧L2公式
  • 软件语言：简体中文
  • 授权方式： 免费版
  • 联系方式：暂无联系方式
  • 官方主页： Home Page
  • 点击大图：  【一键转帖到论坛】
  • 插件情况：
  • 运行环境：Win9X/Win2000/WinXP/Win2003/Win7/
  • 相关Tags：指标公式 股票软件,公式源码
  • (0)0%
    (0)0%

软件介绍

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

代码 := 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

地址


·上一软件：至尊数据
·下一软件：精准拐点买入指标（主图 指标 通达信 贴图）

软件评论评论内容只代表网友观点，与本站立场无关！

   评论摘要(共 0 条，得分 0 分，平均 0 分) 查看完整评论

说明

* 使用方法：点击上面蓝色块，打开新页面按照提示进行

* 本网站提供的各种股票软件，例如大智慧软件，通达信软件，同花顺软件，东方财富通等等，和各种股票公式指标，例如大智慧公式，通达信公式，同花顺公式，文华公式，博易大师公式，股票价格计算公式等等公式指标等，都来源网上公开来源收集

本网提供的公式文件说明：
* alg格式飞狐股票公式，可以用飞狐交易师或者交易师软件导入；
* fnc格式大智慧新一代公式指标，可以用大智慧股票软件使用，少部分可以用分析家股票软件引入使用；
* exp格式大智慧经典版股票公式，仅可以用大智慧经典版股票软件引入使用；
* tni和tnc格式通达信股票公式，仅可以用通达信新引入使用，例如可以用通达信股票软件引入使用；
* tne，tn6格式通达信公式，可以用通达信公式编辑器5.0版导入，推荐通达信金融终端版本；
* hxf格式同花顺股票公式，仅可以用同花顺股票软件引入使用。
以上的各种软件都可以在本网股票软件栏目找到!

* 关于股票公式时间限制,如果在引入大智慧公式，交易师公式或者飞狐公式的时候，发现公式名称栏是空白的，这时候调整电脑时间到1997年，又能出现公式名称，并且能正常显示，可能是公式使用期限已过。
* 关于还原公式源码如果你忘记了自己编写的大智慧公式，通达信公式，同花顺公式,操盘手公式,飞狐公式，博易大师公式，金字塔公式，文华公式和交易师公式等等公式的密码，本网可帮恢复源码，有.偿.服.务无意勿扰，点击在线咨询联系我。

* 关于股票公式源码编辑
本网提供的源码，一般都可以编辑成公式，如果不明白公式的编辑，在本页右侧教程录像可参考，或者找公式教程资料学习，请搜索：教程

* 如果您发现软件内容或者链接错误，请点击报告错误谢谢！
* 站内提供的所有软件包含源码均是由网上搜集，若侵犯了你的版权利益，请联系通知我们!

~

栏目导航

本类热门

相关软件

如何导入公式

关于本站 | 网站帮助 | 广告合作 | 声明 | 友情连接 | 网站地图 |
分析家公式网声明：本站所有股票公式软件资料均网上公开收集，如侵权请联系删帖。站内所有广告，均与本站无关！
Copyright © 2003-2022 fxjgsw.Com. All Rights Reserved .
页面执行时间：11,232.42000 毫秒