input:显提示(1,0,1,1),n(8,3,120,1),低(750,1,9999,1),高(2600,1,9999,1),板块数(10,1,20,1);
ccc:=(h+2*c+l+o)/5;
gdc:=hhv(ccc,n)-llv(ccc,n);
jg:=1.1*gdc+llv(ccc,n);
jd:=-0.1*gdc+llv(ccc,n);
upper:sma(jg,n,1),LINEDOT;
lower:sma(jd,n,1),LINEDOT;
tjw:=ccc<upper and ccc>lower;
tjzb:=ccc>upper;
tjzs:=ccc<lower;
stickline(tjw,o,c,6,0),color888888;
stickline(tjzs,o,c,6,0),colorgreen;
stickline(tjzb,o,c,6,0),color0000aa;
stickline(tjw,h,l,0.01,0),color888888;
stickline(tjzs,h,l,0.01,0),colorgreen;
stickline(tjzb,h,l,0.01,0),color0000aa;
if 显提示=1 then begin
a1:=STKINDI('399002','kDJ.j(9,3,3)',0,-1);
a2:=STKINDI('399001','kDJ.j(9,3,3)',0,-1);
a3:=STKINDI('399331','kDJ.j(9,3,3)',0,-1);
a4:=STKINDI('399332','kDJ.j(9,3,3)',0,-1);
a5:=STKINDI('399101','kDJ.j(9,3,3)',0,-1);
a6:=STKINDI('399333','kDJ.j(9,3,3)',0,-1);
a7:=STKINDI('399360','kDJ.j(9,3,3)',0,-1);
a8:=STKINDI('399327','kDJ.j(9,3,3)',0,-1);
a9:=STKINDI('399964','kDJ.j(9,3,3)',0,-1);
a10:=STKINDI('399005','kDJ.j(9,3,3)',0,-1);
a11:=STKINDI('399932','kDJ.j(9,3,3)',0,-1);
a12:=STKINDI('399323','kDJ.j(9,3,3)',0,-1);
a13:=STKINDI('399933','kDJ.j(9,3,3)',0,-1);
a14:=STKINDI('399361','kDJ.j(9,3,3)',0,-1);
a15:=STKINDI('399913','kDJ.j(9,3,3)',0,-1);
a16:=STKINDI('399912','kDJ.j(9,3,3)',0,-1);
a17:=STKINDI('399328','kDJ.j(9,3,3)',0,-1);
a18:=STKINDI('399368','kDJ.j(9,3,3)',0,-1);
a19:=STKINDI('399003','kDJ.j(9,3,3)',0,-1);
a20:=STKINDI('399365','kDJ.j(9,3,3)',0,-1);
a21:=STKINDI('399100','kDJ.j(9,3,3)',0,-1);
a22:=STKINDI('399324','kDJ.j(9,3,3)',0,-1);
a23:=STKINDI('399944','kDJ.j(9,3,3)',0,-1);
a24:=STKINDI('399305','kDJ.j(9,3,3)',0,-1);
a25:=STKINDI('399325','kDJ.j(9,3,3)',0,-1);buy:=CROSS(a1,0)+CROSS(a2,0)+CROSS(a3,0)+CROSS(a4,0)+CROSS(a5,0)+CROSS(a6,0)+CROSS(a7,0)+CROSS(a8,0)+CROSS(a9,0)+CROSS(a10,0)+CROSS(a11,0)+CROSS(a12,0)+CROSS(a13,0)+CROSS(a14,0)+CROSS(a15,0)+CROSS(a16,0)+CROSS(a17,0)+CROSS(a18,0)+CROSS(a19,0)+CROSS(a20,0)+CROSS(a21,0)+CROSS(a22,0)+CROSS(a23,0)+CROSS(a24,0)+CROSS(a25,0);
sell:=CROSS(90,a1)+CROSS(90,a2)+CROSS(90,a3)+CROSS(90,a4)+CROSS(90,a5)+CROSS(90,a6)+CROSS(90,a7)+CROSS(90,a8)+CROSS(90,a9)+CROSS(90,a10)+CROSS(90,a11)+CROSS(90,a12)+CROSS(90,a13)+CROSS(90,a14)+CROSS(90,a15)+CROSS(90,a16)+CROSS(90,a17)+CROSS(90,a18)+CROSS(90,a19)+CROSS(90,a20)+CROSS(90,a21)+CROSS(90,a22)+CROSS(90,a23)+CROSS(90,a24)+CROSS(90,a25);
drawtext(buy>板块数,l,'买'),coloryellow;
drawtext(sell>板块数,h,'卖'),colorwhite;
dc:="399100$CLOSE";
a:=100*(h-ref(h,1))/ref(h,1)-((dC-ref(dC,1))/ref(dC,1));
a1:=ma(a,n);
过强:=hhv(a1,高/10)*0.8<=a1;
过弱:=llv(a1,低/10)=a1 ;
drawtext(过弱 ,h,'●'),coloryellow;
drawtext(过强,l,'●'),colorwhite;
end; |
