input: nn(22,1,70);
mid:=ma(c,26);
upper:mid+2*std(c,26),Linethick2,colorcd7f7d;
lower:mid-2*std(c,26),Linethick2,colorcd7f7d;
fillrgn(c>0,upper,lower),color333311;
mid,colorcd7f7d;
upper,colorcd7f7d;
lower,colorcd7f7d;
slqs:=hhv(ma((l+h+c)/3,3),1);
a:=reverse((h+l+c)/3)+2*slqs;
b:=hhv(ma((l+h+c)/3,5),4);
bb:=if(b<=ema(c,5),a,b);
d:=ma(ma((l+h+c)/3,3),5);
d1:=reverse((h+l+c)/3)+2*d;
aa:=100/100*llv(slqs,188);
a1:=ma(ma((l+h+c)/3,1),5);
a2:=reverse((h+l+c)/3)+2*a1;
a3:=3*a2-2*sma(a2,2,1);
a4:=if(a3<a2,a2,a3);
kx:=if(a4>1.05*slqs,1.05*slqs,a4);
slfsl:=if(d1<kx,kx,d1);
drawtext(c>slfsl and islastbar=1,h,' ←-强'),colorffff;
drawtext(c<slfsl and islastbar=1,l,' ←-弱'),colorffff;
slfsl,Linethick2,colorff00;
slqs,Linethick2,colorff;
d1:=o;
d2:=h;
d3:=l;
d4:=c;
stickline(d4>=ref(d4,1),d3,d2,1,0),color777777;
{萃富网-股票公式网站 www.cuiv.com}
stickline(d4<d1,d3,d2,0,0),coloreeeeee;
stickline(d4<d1,d1,d4,8,0),color777777;
stickline(d4<d1,d1,d4,7,0),color888888;
stickline(d4<d1,d1,d4,6,0),color999999;
stickline(d4<d1,d1,d4,5,0),coloraaaaaa;
stickline(d4<d1,d1,d4,4,0),colorbbbbbb;
stickline(d4<d1,d1,d4,3,0),colorcccccc;
stickline(d4<d1,d1,d4,2,0),colordddddd;
stickline(d4<d1,d1,d4,1,0),coloreeeeee;
stickline(d4<ref(d4,1),d3,d2,1,0),colorccccf;
stickline(d4>=d1,d3,d2,0,0),color5555cc;
stickline(d4>=d1,d4,d1,8,0),color5555cc;
stickline(d4>=d1,d4,d1,7,0),color6666dd;
stickline(d4>=d1,d4,d1,6,0),color7777ee;
stickline(d4>=d1,d4,d1,5,0),color8888ff;
stickline(d4>=d1,d4,d1,4,0),color9999ff;
stickline(d4>=d1,d4,d1,3,0),coloraaaaff;
stickline(d4>=d1,d4,d1,2,0),colorbbbbff;
stickline(d4>=d1,d4,d1,1,0),colorccccff;
fillrgn(slqs<slfsl,slqs,slfsl),colorff0000;
fillrgn(slqs>=slfsl,slqs,slfsl),colorff00ff;
rsv:=(c-llv(l,13))/(hhv(h,13)-llv(l,13))*100;
k:=sma(rsv,3,1);
d:=sma(k,3,1);
j:=3*k-2*d;
rsv12:=(c-llv(l,34))/(hhv(h,34)-llv(l,34))*100;
k12:=sma(rsv12,3,1);
d12:=sma(k12,3,1);
j12:=3*k12-2*d12;
rsv24:=(c-llv(l,55))/(hhv(h,55)-llv(l,55))*100;
k24:=sma(rsv24,3,1);
d24:=sma(k24,3,1);
j24:=3*k24-2*d24;
支撑:=if(cross(j,j24),l,ref(l,barslast(cross(j,j24))));
压力:if(cross(j24,j),h,ref(h,barslast(cross(j24,j)))),Linethick3,colorff;
u2l:=if(c>=ma(c,nn),80,50);
l2l:=if(c>=ma(c,nn),50,20);
rh1:=if(j<u2l and ref(j,1)>=u2l,hhv(ref(h,1),barslast(j>=u2l and ref(j,1)<u2l)-1),ref(hhv(ref(h,1),barslast(j>=u2l and ref(j,1)<u2l)-1),barslast(j<u2l and ref(j,1))));
rh4:=if(h>rh1,l,ref(l,barslast(h>rh1)));
rh42:=if(h>rh1,j,ref(j,barslast(h>rh1)));
强压:if(h>rh4 and j<rh42 and j<j24,h,ref(h,barslast(h>rh4 and j<rh42 and j<j24))),Linethick3,colorffff;
rl1:=if(j>l2l and ref(j,1)<=l2l,llv(ref(l,1),barslast(j<=l2l and ref(j,1)>l2l)-1),ref(llv(ref(l,1),barslast(j<=l2l and ref(j,1)>l2l)-1),barslast(j>l2l and ref(j,1))));
rl4:=if(l<rl1,h,ref(h,barslast(l<rl1)));
rl42:=if(l<rl1,j,ref(j,barslast(l<rl1)));
强支撑:=if(l<rl4 and j>rl42 and j>j24,l,ref(l,barslast(l<rl4 and j>rl42 and j>j24)));
cb:=amount/v/100;
cd:=cb>h or cb<l;
stickline(cd<1,cb-0.002,cb+0.002,8,1),colorffff;
partline(1,c*2-ref(c,3)),shift3,colorffff;
partline(1,ref(c,1)*2-ref(c,4)),shift2,colorff00;
partline(1,ref(c,2)*2-ref(c,5)),shift1,colorffcc00;
vara:=if(c>150,91.3,0.913);
箱体下沿:intpart(c/vara)*vara,pointdot,Linethick3,colorff00;
箱体上沿:箱体下沿+vara,pointdot,Linethick3,colorffff;
箱体中线:(箱体下沿+箱体上沿)/2,pointdot,Linethick3,colorffffff;
up:=ma(ema(c,34)*1.12,5);
dn:=ma(ema(c,34)*0.82,5);
drawicon(up,up,11);
drawicon(dn,dn,11);