公式指标平台 股票指标公式源码分享 登录 注册
公式指标平台
未来函数检测
首 页 金钻指标 通达信公式 大智慧公式 同花顺公式 文华财经公式 操盘手公式 东财通公式 飞狐公式 其他公式 公式解答 股票软件 股票池
当前位置:→ 公式指标平台 > 大智慧公式 > 正文 → 正文

大智慧大智慧新一代L2大盘分时叠加主图源码

发布时间:2012/7/29 7:34:27  浏览次数:

大智慧大智慧新一代L2大盘分时叠加主图源码

红色的即为大盘分时线,调出方法在个股分时线上打入:dpdj 要去除也同样再次打:dpdj即可。

此公式分两步:

一、先建公式,公式名为“001”,公式代码如下:

c1:c;
o1:o;
h1:h;
l1:l;
rc:dYNAINFO(3);
j:AMOUNT;

二、于建主公式,公式名可以随意,如“dpdj”,描述可输入:大盘分时叠加

公式源码如下:

gqc:=DYNAINFO(3);
gh:=DYNAINFO(5);
gL:=DYNAINFO(6);
gzdz:=max(gh-gqc,gqc-gL);
gf:=gzdz/gqc;
w:=gqc-gzdz;

shqc:=hhv(STKINDI('sh000001','001.rc#day'),0);
shH:=hhv(STKINDI('sh000001','001.H1#day'),0);
shL:=HHv(STKINDI('sh000001','001.L1#day'),0);
shc:=STKINDI('sh000001','001.c1#min1');
shjh:=STKINDI('sh000001','001.j#min1');

szqc:=hhv(STKINDI('399001','001.rc#day'),0);
szH:=hhv(STKINDI('399001','001.H1#day'),0);
szL:=HHv(STKINDI('399001','001.L1#day'),0);
szc:=STKINDI('399001','001.c1#min1');
szjh:=STKINDI('399001','001.j#min1');

zqc:=if(STRCMP(MARKETLABEL,'SH')=0,shqc,szqc);
zc:=if(STRCMP(MARKETLABEL,'SH')=0,shc,szc);
zh:=if(STRCMP(MARKETLABEL,'SH')=0,shh,szh);
zl:=if(STRCMP(MARKETLABEL,'SH')=0,shl,szl);
zjh:=if(STRCMP(MARKETLABEL,'SH')=0,shjh,szjh);

zzdz:=max(zh-zqc,zqc-zl);
ZF:=zzdz/zqc;
bl:=GF/ZF;
s:=(zc/zqc-1)*bl*gqc+gqc;
XS:=if(STRCMP(MARKETLABEL,'SH')=0,s,if(TIME<=145800 and TIME<=145900 and STRCMP(MARKETLABEL,'SH')>=1,s,ref(s,1)));
J:=SUM(XS*zjh,0)/SUM(zjh,0);
jj:=if(STRCMP(MARKETLABEL,'SH')=0,j,if(TIME<=145800 and TIME<=145900 and STRCMP(MARKETLABEL,'SH')>=1,j,ref(j,1)));
J1:=SUM(zc*zjh,0)/SUM(zjh,0);

POLYLINE(C,xs),COLORMAGENTA;
指数:zc,LINETHICK0,COLORMAGENTA,PRECIS2;
涨跌%:(zc/zqc-1)*100,LINETHICK0,COLORMAGENTA,PRECIS2;
POLYLINE(C,jj),COLORMAGENTA;
成交额(亿):zjh/10000/10000,LINETHICK0,COLORMAGENTA,PRECIS2;
均价:if(TIME<=145800 and TIME<=145900,j1,ref(j1,1)),LINETHICK0,COLORMAGENTA,PRECIS2;

if STRCMP(MARKETLABEL,'SH')<1 then
wz:='叠加:上证指数 000001';
if STRCMP(MARKETLABEL,'SH')>=1 then
wz:='叠加:深圳成指 399001';
DRAWTEXTABS( 2,3,wz+' 板块:'+BKNAME),LINETHICK1,COLORMAGENTA;
va:=zjh/10000/10000;
vb:=gzdz/hhv(va,0);
vv:=zjh/10000/10000*vb+w;

{STICKLINE(zc>=ref(zc,1),w,vv,0.1,1),COLORRED;}
{STICKLINE(zc<ref(zc,1),w,vv,0.1,1),COLORCYAN;}
{STICKLINE(c,w,w,10,1),COLORCYAN;}

if CATEGORY>0 then begin
zg:=FINANCE2(1);{总股}
lta:=FINANCE2(7);{流通A}
wf:=FINANCE2(32);{未分}
sy:=FINANCE2(33);{收益}
jz:=FINANCE2(34);{净资}
gj:=FINANCE2(18);{公积}
cw:=' 总股:'+zg+' 流通A:'+lta+' 收益:'+sy+' 未分:'+wf+' 公积:'+gj+' 净资:'+jz;
{DRAWTEXT(DISPSTATUS=1,w,BKNAME+cw),COLORWHITE,VALIGN0; }
{本公式由木子短线炒股群编制,欢迎加入QQ群一起交流,QQ群号:124424265}
END;
 

资源下载链接   资源大小:unknow

关于我们 - 联系我们 - 广告合作 - 下载声明 - 网站帮助 - 友情链接 - 网站地图 - RSS订阅 - TOP
湘ICP备09016573号 增值电信业务经营ICP许可证:湘B2-20210269 湘公网安备43108102000039号
Copyright © GSZB.COM ,All Rights Reserved.
股票公式,股票指标,股票软件,股票知识