大智慧大智慧新一代L2大盘分时叠加主图源码
大智慧大智慧新一代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;