【分析家公式网提示：源码中需引用的公式：涨幅引用xx 没有提供，公式不能使用】
A1:=F10FIND('◆ 控盘情况 ◆',500);
A2:=F10FIND('点评',A1);
B1:=F10TEXT(A2,120);
DRAWTEXTEX(C,1,0,1850,B1),COLORwhite;
C1:=F10TEXT(A2+120,200);
DRAWTEXTEX(C,1,0,1900,C1),COLOrwhite;
INPUT:N(2,1,100);
RQ:=DATE;//取日期
A:=BLKNAME;
HY:=IF(STRFIND(A,',',1)>0,STRLEFT(A,STRFIND(A,',',1)-1),A);//DRAWTEXT(BARPOS=SYSPARAM(2),2,HY);
HYs:=STKCOUNT(HY);
DYZB:=IF(X=1,'涨幅引用xx.ZDF',IF(X=2,'涨幅引用xx.HSH','涨幅引用xx.CC'));
DAS:=DATACOUNT;
D0:=RQ[DAS];//取最后日期
variable:DM[HYs]='',vcp[HYs]=0,vci[HYs]=0,TP=0;
for k=1 to HYs do begin
DDD:=STKFROMBLK(HY,k);
DM[k]:=DDD;
TMP:=STKINDI(DDD,DYZB,0,6);
TMPD:=STKINDI(DDD,'涨幅引用xx.DD',0,6);
vcp[k]:=TMP[DAS];
vci[k]:=IF(TMPD[DAS]=D0,TMP[DAS],-1000);//去除当天停牌股
TP:=TP+IF(vci[k]=-1000,1,0);
end;
PX1:=SORTPOS(vci,1,1,HYs);
KHYS:=HYS-TP,LINETHICK;
BKXS:='当前股所属行业: '+HY;
Z，:=IF(X=3,' 元',' %');
LBS:=IF(X=3,'收盘价',IF(X=1,'涨跌幅','换手率'));
WZ:=INTPART((SYSPARAM(3)-SYSPARAM(2))/10);
HST:=' \n\n';
kg:='领涨';
//
COL1:=HST+kg+' ①'+STKNAMEEX(DM[vci[1]])+' '+numtostr(vcp[vci[1]],2)+Z，+
' ②'+STKNAMEEX(DM[vci[2]])+' '+numtostr(vcp[vci[2]],2)+Z，+
IF(KHYS>3,' ③'+STKNAMEEX(DM[vci[3]])+' '+numtostr(vcp[vci[3]],2)+Z，,'')+
IF(KHYS>4,' ④'+STKNAMEEX(DM[vci[4]])+' '+numtostr(vcp[vci[4]],2)+Z，+' ⑤'+STKNAMEEX(DM[vci[5]])+' '+numtostr(vcp[vci[5]],2)+' ⑥'+STKNAMEEX(DM[vci[6]])+' '+numtostr(vcp[vci[6]],2)+Z，+' ⑦'+STKNAMEEX(DM[vci[7]])+' '+numtostr(vcp[vci[7]],2)+Z，
+' ⑧'+STKNAMEEX(DM[vci[8]])+' '+numtostr(vcp[vci[8]],2)+Z，+' ⑨'+STKNAMEEX(DM[vci[9]])+' '+numtostr(vcp[vci[9]],2)+Z，
+' ⑩'+STKNAMEEX(DM[vci[10]])+' '+numtostr(vcp[vci[10]],2)
+Z，,'');//领
DRAWTEXTEX(c,1,1,1590,COL1),Colorwhite;
zq:=DATATYPE;
r:=OPENMINUTES(TIME);
zs:=ref(c,r);
zsr:=DYNAINFO( 3);
j:=SUM(C*V,SUMBARS(VOL,CAPITAL))/SUM(V,SUMBARS(VOL,CAPITAL));
jj:=SUM(C*V,0)/SUM(V,0);
jj1:=SUM(C*V,r)/SUM(V,r)LINETHICK0;
jja:=if(zq=6,jj,if(zq=1,jj1,jj));
zsa:=if(zq=6,zsr,if(zq=1,zs,zsr));
cr:=if(zq=6,c>0,if(zq=1,r>1,c>0));
PARTLINE(cr,zsa),COLORGRAY,POINTDOT;
dk:=(SMA(C,2,1)-SMA(C,6,1))*2.1,LINETHICK0;
STICKLINE(dk>0and jja>0 ,zsa,ZSa+dk,0.1,0),Color5050FF;
STICKLINE(dk<=0and jja>0 ,zsa,ZSa+dk,0.1,0),ColorCyan;
fv:=v;
pv:=fv;
fh:=h;
ph:=fh;
fl:=L;
pl:=fl;
a:=SORTPOS(pv,1,1,DATACOUNT);
a:=SORTPOS(ph,1,1,DATACOUNT);
a:=SORTPOS(pl,0,1,DATACOUNT);
h1:=fh[ph[1]];
l1:=fl[pl[1]];
v1:=fv[pv[1]];
jh:=(max(zs,h1)-min(zs,l1))/n;
jl:=min(zs,l1)-jh;
xs:=jh/v1;
vs:=v*xs;
STICKLINE(c>0,jl,jl+vs,0.1,1)COLORYELLOW;
A1:=EMA(((((2 * CLOSE) + HIGH) + LOW) / 4),34);
A2:=EMA(A1,3);
A3:=EMA(A2,3);
A4:=EMA(A3,3);
A5:=EMA(A4,3);
A6:=EMA(A5,3);
A7:=EMA(A6,3);
A8:=EMA(A7,3);
A9:=EMA(A8,3);
A10:=EMA(A9,3);
A11:=EMA(A10,3);
A12:=EMA(A11,3);
A13:=EMA(A12,3);
A14:=EMA(A13,3);
A15:=EMA(A14,3);
A:=REF(HHV(HIGH,240),1);
AA:=A[DATACOUNT];
B:=REF(LLV(LOW,240),1);
BB:=B[DATACOUNT];
ZJ1:=(((HIGH + LOW) + (2 * CLOSE)) / 4);
ZJ2:=(((ZJ1 - EMA(ZJ1,21)) / STD(ZJ1,21)) * 100);
ZJ3:=EMA(ZJ2,5);
ZJ4:=EMA(ZJ3,2);
ZJ5:=EMA(ZJ4,2);
ZJ6:=(((3 * ZJ4) - (2 * ZJ5)) / 2);
IF((ZJ6 > 90),(AA * 0.995),AA),LINETHICK2,coloryellow;
IF((ZJ6 < (0 - 95)),(BB * 1.005),BB),LINETHICK2,colorDD66AA;
Var41:=IF(DYNAINFO( 7)<REF(ASKPRICE(1),1) AND REF(BIDVOL(1),1)>0 AND REF(ASKVOL(1),1)>0,BUYVOL,0);
Var42:=IF((BUYVOL>REF(ASKVOL(1),1) AND DYNAINFO( 7)=REF(ASKPRICE(1),1) AND REF(BIDVOL(1),1)>0),BUYVOL,0);
Var42a:=IF(Var42>0,Var42-REF(ASKVOL(1),1),0);
Var4b:=Var41+Var42a;
Var51:=IF(BUYVOL>REF(ASKVOL(1),1) AND DYNAINFO( 7)>REF(ASKPRICE(1),1) AND DYNAINFO( 7)<REF(ASKPRICE(2),1),BUYVOL,0);
Var52:=IF(BUYVOL>(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)) AND DYNAINFO( 7)=REF(ASKPRICE(2),1) AND REF(BIDVOL(1),1)>0,BUYVOL,0);
Var52a:=IF(Var52>0,Var52-(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)),0);
Var5b:=Var51+Var52a;
Var61:=IF(BUYVOL>REF(ASKVOL(1),1)+REF(ASKVOL(2),1) AND DYNAINFO( 7)>REF(ASKPRICE(2),1) AND DYNAINFO( 7)<REF(ASKPRICE(3),1),BUYVOL,0);
Var62:=IF(BUYVOL>(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)) AND DYNAINFO( 7)=REF(ASKPRICE(3),1) AND REF(BIDVOL(1),1)>0,BUYVOL,0);
Var62a:=IF( Var62>0,Var62-(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)),0);
Var6b:=Var61+Var62a;
VarA2:=IF(SELLVOL>REF(BIDVOL(1),1) AND DYNAINFO( 7)=REF(BIDPRICE(1),1) AND REF(ASKVOL(1),1)>0,SELLVOL,0);
VarAa:=IF(VarA2>0,SELLVOL-REF(BIDVOL(1),1),0);
VarB1:=IF(SELLVOL>REF(BIDVOL(1),1) AND DYNAINFO( 7)<REF(BIDPRICE(1),1) AND DYNAINFO( 7)>REF(BIDPRICE(2),1),SELLVOL,0);
VarB2:=IF(SELLVOL>(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)) AND DYNAINFO( 7)=REF(BIDPRICE(2),1) AND REF(ASKVOL(1),1)>0,SELLVOL,0);
VarBa:=if(VarB2>0,SELLVOL-(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)),0);
VarAb:=VarB1+VarBa;
VarC1:=IF(SELLVOL>REF(BIDVOL(1),1)+REF(BIDVOL(2),1) AND DYNAINFO( 7)<REF(BIDPRICE(2),1) AND DYNAINFO( 7)>REF(BIDPRICE(3),1),SELLVOL,0);
VarC2:=IF(SELLVOL>(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1)) AND DYNAINFO( 7)=REF(BIDPRICE(3),1) AND REF(ASKVOL(1),1)>0,SELLVOL,0);
VarCa:=if(VarC2>0,SELLVOL-(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1)),0);
VarAc:=VarC1+VarCa;
VarF:=IF(ASKVOL(1)<REF(ASKVOL(1),1) AND ASKPRICE(1)=REF(ASKPRICE(1),1) AND DYNAINFO( 7)<REF(ASKPRICE(1),1) AND (REF(ASKVOL(1),1)-ASKVOL(1))<>SELLVOL,REF(ASKVOL(1),1)-ASKVOL(1),0);
Var10:=IF(ASKVOL(3)<REF(ASKVOL(3),1) AND ASKPRICE(3)=REF(ASKPRICE(3),1) AND DYNAINFO( 7)<REF(ASKPRICE(3),1),REF(ASKVOL(3),1)-ASKVOL(3),0);
Var11:=IF((REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1))=0 AND REF(ASKVOL(1),1)>0 AND (REF(ASKVOL(1),1)-ASKVOL(1))<SELLVOL AND ASKVOL(1)<REF(ASKVOL(1),1) AND ASKPRICE(1)=REF(ASKPRICE(1),1) AND DYNAINFO( 7)<REF(ASKPRICE(1),1),REF(ASKVOL(1),1)-ASKVOL(1),0);
Var12:=IF(ASKVOL(2)<REF(ASKVOL(3),1) AND ASKPRICE(2)=REF(ASKPRICE(3),1) AND DYNAINFO( 7)<REF(ASKPRICE(3),1),REF(ASKVOL(3),1)-ASKVOL(2),0);
Var13:=IF(ASKVOL(3)<REF(ASKVOL(2),1) AND ASKPRICE(3)=REF(ASKPRICE(2),1) AND DYNAINFO( 7)<REF(ASKPRICE(2),1),REF(ASKVOL(2),1)-ASKVOL(3),0);
Var14:=IF(BIDVOL(1)<REF(BIDVOL(1),1) AND BIDPRICE(1)=REF(BIDPRICE(1),1) AND DYNAINFO( 7)>REF(BIDPRICE(1),1) AND REF(BIDVOL(1),1)-BIDVOL(1)<>BUYVOL,REF(BIDVOL(1),1)-BIDVOL(1),0);
Var15:=IF(BIDVOL(3)<REF(BIDVOL(3),1) AND BIDPRICE(3)=REF(BIDPRICE(3),1) AND DYNAINFO( 7)>REF(BIDPRICE(3),1),REF(BIDVOL(3),1)-BIDVOL(3),0);
Var16:=IF(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)=0 AND REF(BIDVOL(1),1)>0 AND REF(BIDVOL(1),1)-BIDVOL(1)<BUYVOL AND BIDVOL(1)<REF(BIDVOL(1),1) AND BIDPRICE(1)=REF(BIDPRICE(1),1) AND DYNAINFO( 7)=REF(BIDPRICE(1),1),REF(BIDVOL(1),1)-BIDVOL(1),0);
Var17:=IF(BIDVOL(2)<REF(BIDVOL(3),1) AND BIDPRICE(2)=REF(BIDPRICE(3),1) AND DYNAINFO( 7)>REF(BIDPRICE(3),1),REF(BIDVOL(3),1)-BIDVOL(2),0);
Var18:=IF(BIDVOL(3)<REF(BIDVOL(2),1) AND BIDPRICE(3)=REF(BIDPRICE(2),1) AND DYNAINFO( 7)>REF(BIDPRICE(2),1),REF(BIDVOL(2),1)-BIDVOL(3),0);
zq:=DATATYPE;
r:=OPENMINUTES(TIME);
zs:=ref(c,r);
zsr:=DYNAINFO(3);
j:=SUM(C*V,SUMBARS(VOL,CAPITAL))/SUM(V,SUMBARS(VOL,CAPITAL));
jj:=SUM(C*V,0)/SUM(V,0);
jj1:=SUM(C*V,r)/SUM(V,r);
jja:=if(zq=6,jj,if(zq=1,jj1,jj));
zsa:=if(zq=6,zsr,if(zq=1,zs,zsr));
cr:=if(zq=6,c>0,if(zq=1,r>1,c>0));
PARTLINE(cr,zsa),COLORGRAY,POINTDOT;
dk:=(SMA(C,2,1)-SMA(C,6,1))*2.1;
STICKLINE(dk>0and jja>0 ,zsa,ZSa+dk,0.1,0),Color5050FF;
STICKLINE(dk<=0and jja>0 ,zsa,ZSa+dk,0.1,0),ColorCyan;
k1:=hhv(h,0);
k2:=llv(l,0);
k3:=barslast(OPENMINUTES(TIME)<=240);
t1:=barslast(OPENMINUTES(TIME)<=60);
DRAWSL(OPENMINUTES(TIME)>=60,ref(k1,t1),0,k3,2),LINEDOT;
DRAWSL(OPENMINUTES(TIME)>=60,ref(k2,t1),0,k3,2),LINEDOT;
DRAWICON(OPENMINUTES(TIME)>60 and cross(c,ref(k1,t1)+0.001),ref(k1,t1),1);
流通:=FINANCE(7)/10000,LINETHICK;
qj1:=CAPITAL/2500; qj2:=CAPITAL/8000; qj3:=CAPITAL/16000; qj4:=CAPITAL/33000; qj5:=CAPITAL/80000; qj6:=CAPITAL/150000; qj7:=CAPITAL/200000; qj8:=CAPITAL/400000;
XS:=IF(流通<1.0,qj1,IF(流通>=1.0 AND 流通<5.0,qj2,IF(流通>=5.0 AND 流通<10,qj3,IF(流通>=10 AND 流通<20,qj4,IF(流通>=20 AND 流通<50,qj5,IF(流通>=50 AND 流通<100,qj6,IF(流通>=100 AND 流通<300,qj7,IF(流通>=300,qj8,0))))))));
门限:=XS;
特门限:=XS*2.67;
委买:=BIDVOL(1)+BIDVOL(2)+BIDVOL(3);
委卖:=ASKVOL(1)+ASKVOL(2)+ASKVOL(3);
委买总量:=SUM(委买,0);
委卖总量:=SUM(委卖,0);
www1:=SUM(BUYVOL,0)-SUM(SELLVOL,0);
买卖存量:=REF(www1,1)+www1;
总成交A:=DYNAINFO(8)*100;
总J:=总成交A*DYNAINFO(7);
k1:=hhv(h,0);
k2:=llv(l,0);
k3:=barslast(OPENMINUTES(TIME)<=240);
t1:=barslast(OPENMINUTES(TIME)<=60);
DRAWSL(OPENMINUTES(TIME)>=60,ref(k1,t1),0,k3,2),LINEDOT;
DRAWSL(OPENMINUTES(TIME)>=60,ref(k2,t1),0,k3,2),LINEDOT;
DRAWICON(OPENMINUTES(TIME)>60 and cross(c,ref(k1,t1)+0.001),ref(k1,t1),1);
PK:=VOL*(OPEN+CLOSE+HIGH+LOW)/4;
PK1:=IF(VOL>0,PK/VOL,(OPEN+CLOSE+HIGH+LOW)/4);
C11:=PK1;
A01:=(C11-LLV(C11,75))/(HHV(C11,75)-LLV(C11,75));
A11:=SMA(A01,13,1);
A21:=SMA(A11,13,1);
A31:=3*A11-2*A21;
A41:=2*A31-0.5;
ZS:=DYNAINFO(3)*0.95;
选a:=C11*(1-(A41-A21)/40);
选b:=CROSS(C11,选a) AND CLOSE/REF(CLOSE,1)<1.03;
选:IF(选b,ZS*1.03,ZS),colorred;
x1:=140 ;
y1:=60; y2:=90;
BKNAME:='板块指数';
STKC:=stkcount(BKNAME);
variable:s=0,Z，SZ[STKC]=0,Z，NAME[15]='',Z，Number[15]=0;
for p=1 to stkc do begin
Ty1:=STKFROMBLK(BKNAME,p);
Ty2:=dynainfo2(14,ty1)*100;
Z，SZ[p]:=Ty2;
if Ty2>=0 then s:=s+1;
end
NWY:=sortpos(Z，SZ,0,1,stkc);
for p1 =1 to 15 do begin
Z，DM:=STKFROMBLK(BKNAME,Z，SZ[stkc-(p1-1)]);
Te:=stknameex(Z，DM);
Z，NAME[p1]:=strleft(te,strlen(te)-4);
Z，Number[p1]:=dynainfo2(14,Z，DM)*100;
end;
DRAWTEXTEX(c,1,20,800,Z，NAME[1]),COLOrred,align2;
DRAWTEXTEX(c,1,20,850,Z，NAME[2]),COLOrred,align2;
DRAWTEXTEX(c,1,20,900,Z，NAME[3]) ,COLOrred,align2;
DRAWTEXTEX(c,1,20,950,Z，NAME[4]),COLOrred,align2;
DRAWTEXTEX(c,1,20,1000,Z，NAME[5]),COLOrred,align2;
DRAWTEXTEX(c,1,20,1050,Z，NAME[6]),COLOrred,align2;
DRAWTEXTEX(c,1,20,1100,Z，NAME[7]),COLOrred,align2;
DRAWTEXTEX(c,1,20,1150,Z，NAME[8]),COLOrred,align2;
DRAWTEXTEX(c,1,20,1200,Z，NAME[9]),COLOrred,align2;
DRAWTEXTEX(c,1,20,1250,Z，NAME[10]),COLOrred,align2;
DRAWTEXTEX(c,1,20,1300,Z，NAME[11]),COLOrred,align2;
DRAWTEXTEX(c,1,20,1350,Z，NAME[12]),COLOrred,align2;
variable:MinZ，Str[15]='';
paa:=0;
WHILE Paa<15 do begin
PAA:=Paa+1;
MinStkName:=Z，NAME[paa];
STKNum:=stkcount(MinStkName);
variable:Z，[STKNum]=0;
for p2=1 to stkNum do begin
Ty1:=STKFROMBLK(MinStkName,p2);
Ty2:=dynainfo2(14,ty1)*100;
Z，[p2]:=Ty2;
end
NWY:=sortpos(Z，,0,1,stkNum );
ub:=if(STKNum>=8,8,STKNum);
for p3 =1 to UB do begin
Z，DM:=STKFROMBLK(MinStkName,Z，[STKNum-(p3-1)]);
Te:=stknameex(Z，DM);
MinZ，Str[paa]:=MinZ，Str[paa] +'('+Te + numtostr(dynainfo2(14,Z，DM)*100,2) +'％'+')'+ ' ';//
end;
end;
x4:=160;
{指定板块内个股排序，引用网友bajatje（懒汉）提供的指标，谢谢懒汉网友}
bk:='自选股'; //可任意指定版块，板块内个股数需大于9个
stksum:=STKCOUNT(bk);dcount:=DATACOUNT;yygs4:='涨幅引用xx.A0';
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dn:=stkfromblk(bk,k);
dmstr[k]:=dn;
temp1:=stkindi(dn,yygs4,0,-1);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,1,1,stksum);
dm_max1:=var_indi[1];dm_max2:=var_indi[2];dm_max3:=var_indi[3];dm_max4:=var_indi[4];
dm_max5:=var_indi[5];dm_max6:=var_indi[6];dm_max7:=var_indi[7];
max1:=var_px[dm_max1];max2:=var_px[dm_max2];max3:=var_px[dm_max3];
max4:=var_px[dm_max4];max5:=var_px[dm_max5];max6:=var_px[dm_max6];max7:=var_px[dm_max7];
DRAWTEXTEX(c,1,10,1470,hst+hst+hst+hst+hst+hst+'正%'+'['+STKNAMEEX(dmstr[dm_max1])+''+NUMTOSTR(max1,2)
+']['+STKNAMEEX(dmstr[dm_max2])+''+NUMTOSTR(max2,2)
+']['+STKNAMEEX(dmstr[dm_max3])+''+NUMTOSTR(max3,2)
+']['+STKNAMEEX(dmstr[dm_max4])+''+NUMTOSTR(max4,2)
+']['+STKNAMEEX(dmstr[dm_max5])+''+NUMTOSTR(max5,2)
+']['+STKNAMEEX(dmstr[dm_max6])+''+NUMTOSTR(max6,2)
+']['+STKNAMEEX(dmstr[dm_max7])+''+NUMTOSTR(max7,2)
),Colorred,align4;
yygs5:='涨幅引用xx.A0';
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dn:=stkfromblk(bk,k);
dmstr[k]:=dn;
temp1:=stkindi(dn,yygs5,0,-1);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,0,1,stksum);
dm_max1:=var_indi[1];dm_max2:=var_indi[2];dm_max3:=var_indi[3];dm_max4:=var_indi[4];
dm_max5:=var_indi[5];dm_max6:=var_indi[6];dm_max7:=var_indi[7];
max1:=var_px[dm_max1];max2:=var_px[dm_max2];max3:=var_px[dm_max3];
max4:=var_px[dm_max4];max5:=var_px[dm_max5];max6:=var_px[dm_max6];max7:=var_px[dm_max7];
DRAWTEXTEX(c,1,10,1490,hst+hst+hst+hst+hst+hst+hst+'逆%'+'['+STKNAMEEX(dmstr[dm_max1])+''+NUMTOSTR(max1,2)
+']['+STKNAMEEX(dmstr[dm_max2])+''+NUMTOSTR(max2,2)
+']['+STKNAMEEX(dmstr[dm_max3])+''+NUMTOSTR(max3,2)
+']['+STKNAMEEX(dmstr[dm_max4])+''+NUMTOSTR(max4,2)
+']['+STKNAMEEX(dmstr[dm_max5])+''+NUMTOSTR(max5,2)
+']['+STKNAMEEX(dmstr[dm_max6])+''+NUMTOSTR(max6,2)
+']['+STKNAMEEX(dmstr[dm_max7])+''+NUMTOSTR(max7,2)
),Colorred,align4;
DRAWTEXTEX(c,1,40,800,MinZ，Str[1]),COLOR555555;
DRAWTEXTEX(c,1,40,850,MinZ，Str[2]),COLOR555555;
DRAWTEXTEX(c,1,40,900,MinZ，Str[3]),COLOR555555;
DRAWTEXTEX(c,1,40,950,MinZ，Str[4]),COLOR555555;
DRAWTEXTEX(c,1,40,1000,MinZ，Str[5]),COLOR555555;
DRAWTEXTEX(c,1,40,1050,MinZ，Str[6]),COLOr555555;
DRAWTEXTEX(c,1,40,1100,MinZ，Str[7]),COLOR555555;
DRAWTEXTEX(c,1,40,1150,MinZ，Str[8]),COLOR555555;
DRAWTEXTEX(c,1,40,1200,MinZ，Str[9]),COLOR555555;
DRAWTEXTEX(c,1,40,1250,MinZ，Str[10]),COLOR555555;
DRAWTEXTEX(c,1,40,1300,MinZ，Str[11]),COLOR555555;
input:N(2000,1,10000),M(3,1,10);
ZQ:=DATATYPE;
R:=OPENMINUTES(TIME);
ZS:=REF(CLOSE,R);
ZSR:=DYNAINFO(3);
JJ:=SUM(CLOSE*VOL,0)/SUM(VOL,0);
JJ1:=SUM(CLOSE*VOL,R)/SUM(VOL,R);
JJA:=IF(ZQ=6,JJ,IF(ZQ=1,JJ1,JJ));
ZSA:=IF(ZQ=6,ZSR,IF(ZQ=1,ZS,ZSR));
DK:=(SMA(CLOSE,2,1)-SMA(CLOSE,6,1))*2.1;
STICKLINE(DK>0 AND JJA>0,ZSA,ZSA+DK,0.1,0),color5050FF;
STICKLINE(DK<=0 AND JJA>0,ZSA,ZSA+DK,0.1,0),colorFFFF00;
BU:=BARSLAST(CLOSE=HHV(CLOSE,2400));
SE:=BARSLAST(CLOSE=LLV(CLOSE,2400));
KK1:=SE;
KK2:=BU;
LM1:=SE;
LM2:=BU;
OK:=KK1>KK2 AND LM1>LM2;
OK1:=KK1>KK2 AND LM1<LM2;
NOK:=KK2>KK1 AND LM2>LM1;
NOK1:=KK2>KK1 AND LM2<LM1;
DRAWICON(CROSS(KK1,1.09*KK2),OPEN*1,1);
DRAWTEXT(CROSS(KK1,1.09*KK2),OPEN*0.995,'抓'),colorFF00;
VAR1:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),25);
VAR2:=HIGH-REF(HIGH,1);
VAR3:=REF(LOW,1)-LOW;
VAR4:=SUM(IF(VAR2>0 AND VAR2>VAR3,VAR2,0),25);
VAR5:=SUM(IF(VAR3>0 AND VAR3>VAR2,VAR3,0),25);
VAR6:=VAR4*100/VAR1;
VAR7:=VAR5*100/VAR1;
VAR8:=MA(ABS(VAR7-VAR6)/(VAR7+VAR6)*100,115);
VAR9:=(VAR8+REF(VAR8,15))/2;
A1:=REF(DYNAINFO( 7),1);
B1:=SMA(MAX(DYNAINFO( 7)-A1,0),9,1)/SMA(ABS(DYNAINFO( 7)-A1),9,1)*100;
DRAWICON(CROSS(20,B1),L,4);
DRAWICON(CROSS(B1,80),H,5);
rq:=FINANCE(0);
Y1:=IF(rq=201003,1,2);
DRAWTEXTEX(CLOSE,1,1,1520,' '+STRLEFT(BLKNAME,48)),ColorFFB060;
DRAWTEXTEX(c,1,100,1570,
'更新月份:'+ NUMTOSTR(FINANCE(0),0)+' ' +'总股本:'+NUMTOSTR(FINANCE(1)/10000,2 )+'亿'+' '+'流通股:'+ NUMTOSTR(FINANCE(7)/10000,2)+'亿'+' '+'最新收益:'+ NUMTOSTR(FINANCE(33),3)+'元'
),ColorFFB060;;
日时转换:=IF(DATATYPE=8,120,240);
QZS:=(EMA(CLOSE,10)+EMA(CLOSE,32))/2;
VAR1:=(EMA(CLOSE,30)+EMA(CLOSE,72))/2;
VAR2:=(EMA(VOL,10)+EMA(VOL,32))/2;
VAR3:=(VAR1+VAR2)/2;
VAR4:=EMA(VAR3,30);
VAR5:=EMA(VAR3,60);
VAR6:=ALL(VAR1>REF(VAR1,1),5) AND ALL(VAR4>REF(VAR4,1),5);
FILLRGN(VAR1>EMA(VAR1,60),VAR1,EMA(VAR1,60)),color3333bb;
FILLRGN(VAR1<EMA(VAR1,60),VAR1,EMA(VAR1,60)),color008833;
牵引线:VAR1,COLORYELLOW;
强弱线:EMA(VAR1,日时转换),POINTDOT,COLORWHITE;
趋势关注:IF(CROSS(VAR1,EMA(VAR1,60)) AND VAR6,1,0),LINETHICK0,COLORRED;
量价关注:IF(CROSS(VAR3,VAR5) AND VAR6,1,0),LINETHICK0,COLORWHITE;
冲击量:IF(VAR3>VAR5 AND VAR6,1,0),LINETHICK0,COLORYELLOW;
强势区:IF(VAR1>强弱线,1,0),LINETHICK0,COLORRED;
止损区:IF(VAR1<强弱线,1,0),LINETHICK0,COLORGREEN;
STICKLINE(QZS>VAR1,QZS,VAR1,3,0),COLORFF00FF;
STICKLINE(冲击量=1,QZS,VAR1,3,0),COLORYELLOW;
DRAWICON(趋势关注=1,EMA(VAR1,60),13);
DRAWTEXT(量价关注=1,EMA(VAR1,60),'L0V'),COLORWHITE;
{忘了作者}
MA30:EMA(CLOSE,30),linethick0;
强弱:EMA(CLOSE,900),colorffffff,linethick2;
H1:=MAX(DYNAINFO(3),DYNAINFO(5));
L1:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H1-L1;
阻力:L1+P1*7/8,COLOR00DD00;
支撑:L1+P1*0.5/8,COLOR00DD00;
现价:CLOSE,COLORffffff,LINETHICK1;
支差:现价-支撑,linethick0;
阻差:现价-阻力,linethick0;
支差比:支差/MA30*100,linethick0;
阻差比:阻差/MA30*100,linethick0;
STICKLINE(CROSS(支撑,现价),支撑,阻力,1,0),COLORffffff,linethick2;
DRAWTEXT(LONGCROSS(支撑,现价,2),支撑,'★低'),COLORYELLOW,linethick2;
DRAWTEXT(LONGCROSS(现价,阻力,2),现价*1.001,'★高'),COLORffffff,linethick2;
{一品老师的分时过顶}
KP30:=TIME0<36000;
KPGD:=H=HHV(H,0) AND KP30;
GDSJ:=BARSLAST(KPGD);
HH:REF(H,GDSJ),COLORFF00FF,POINTDOT,LINETHICK2;
过顶:IF(CROSS(C,HH),1,0),COLOR00FF00,POINTDOT,LINETHICK0;
冲高:IF(FILTER(CROSS(C,HH*1.01),15),1,0),COLOR00FFFF,POINTDOT,LINETHICK0;
DRAWTEXT(过顶,HH,'↑'),COLORffFFff,ALIGN2;
DRAWTEXT(冲高,HH,'★'),COLORffFFFF,ALIGN2; {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
