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;
 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);