a1:=ref(h,n)=hhv(h,2*n+1);
 b1:=filter(a1,n);
 c1:=backset(b1,n+1);
 d1:=filter(c1,n);{高点}
 a2:=ref(l,n)=llv(l,2*n+1);
 b2:=filter(a2,n);
 c2:=backset(b2,n+1);
 d2:=filter(c2,n);{低点}
 e1:=(ref(llv(l,2*n),1)+ref(hhv(h,2*n),1))/2; e2:=(h+l)/2;{高低点出现在同一k线上时可作取舍}
 h1:=(d1 and not(d2 and e1>=e2)) or barstatus=2 or barscount(c)=1;
 l1:=(d2 and not(d1 and e1<e2)); h2:=d1 and not(d2 and e1>=e2);
 x1:=ref(barslast(h1),1)+1; f1:=backset(h1 and count(l1,x1)>0,llvbars
 (if(l1,l,10000),x1));
 g1:=f1>ref(f1,1); i1:=backset(g1,2); ld:=i1>ref(i1,1);{过滤后低点}
 l2:=ld or barstatus=2 or barscount(c)=1;
 x2:=ref(barslast(l2),1)+1; f2:=backset(l2 and count(h2,x2)>0,hhvbars
 (if(h2,h,0),x2));
 g2:=f2>ref(f2,1); i2:=backset(g2,2); hd:=i2>ref(i2,1);{过滤后高点}
 r1:=backset(barstatus=2,barslast(hd)+1);
s1:=r1>ref(r1,1); {前一高}
 t1:=backset(barstatus=2,barslast(ld)+1);
u1:=t1>ref(t1,1); {前一低}
 r2:=backset(s1,ref(barslast(hd),1)+2);
s2:=r2>ref(r2,1); {前二高}
 t2:=backset(u1,ref(barslast(ld),1)+2);
u2:=t2>ref(t2,1); {前二低}
 短期压力:drawline(s2,h,s1,h,1),colorred;
 短期支撑:drawline(u2,l,u1,l,1),colorgreen;var1:=amount/vol;
 a:=sma(var1,5,1)-sma(var1,55,1);
 b:=sma((a-sma(a,5,1)),5,1);
 stickline(close>ma(close,5) and a>ref(a,1) and b>ref(b,1),l,h,0,0),color0000ff;
 stickline(close>ma(close,5) and a>ref(a,1) and b>ref(b,1),c,o,2,1),color0000ff;
 stickline(cross(close,ma(close,5)) and a>ref(a,1) and b>ref(b,1),c,o,2,0),color0000ff;
 stickline(close<ma(close,5) and a>ref(a,1) and b>ref(b,1),l,h,0,0),colorffffff;
 stickline(close<ma(close,5) and a>ref(a,1) and b>ref(b,1),c,o,2,1),colorffffff;
 前期高位:ref(high,barslast(hd)),color00ff00,pointdot;
 前期低位:ref(low,barslast(ld)),colorff00ff,pointdot;
 stickline(close,前期高位,前期高位,10,0),color00ff00;
 stickline(close,前期低位,前期低位,10,0),colorff00ff;
 stickline(a<ref(a,3) and b<ref(b,3),l,h,0,0),color00ff00;
 stickline(a<ref(a,3) and b<ref(b,3),c,o,2,1),color00ff00;
 stickline(a>ref(a,1) and b<ref(b,1),l,h,0,0),colorffffff;
 stickline(a>ref(a,1) and b<ref(b,1),c,o,2,1),colorffffff;
 stickline(a<ref(a,1) and b>ref(b,1),l,h,0,0),colorffffff;
 stickline(a<ref(a,1) and b>ref(b,1),c,o,2,1),colorffffff;