rsv:=(close-llv(low,9))/(hhv(high,9)-llv(low,9))*100;k:=sma(rsv,3,1) ;d:=sma(k,3,1) ;j:=3*k-2*d ;a:=250;diff:=(ema(close,12) - ema(close,26));dea:=ema(diff,9) ;macd:=2*(diff-dea);mm:=if(macd< 0,macd,0); jj:=mm> ref(mm,1); zz:=ref(jj,1)=1; 准备:=(jj and zz)*dea; jh:=hhv(max(k,max(d,j)),a);dh:=hhv(max(diff,dea),a);sh:=intpart(jh/dh)/2;diff50:=sh*diff+50 ;dea50:=sh*dea+50 ;红柱:=if(1.5*(diff50-dea50)>ref(1.5*(diff50-dea50),1),1.5*(diff50-dea50),0);绿柱:=if(1.5*(diff50-dea50)<ref(1.5*(diff50-dea50),1),1.5*(diff50-dea50),0);缩头:=if(1.5*(diff50-dea50)>0 and ref(1.5*(diff50-dea50),1)>ref(1.5*(diff50-dea50),2) and 1.5*(diff50-dea50)< ref(1.5*(diff50-dea50),1),1,0);缩脚:=if(1.5*(diff50-dea50)<0 and ref(1.5*(diff50-dea50),1)< ref(1.5*(diff50-dea50),2) and 1.5*(diff50-dea50)>ref(1.5*(diff50-dea50),1),1,0);杀多:=if(1.5*(diff50-dea50)<0 and ref(1.5*(diff50-dea50),1)> ref(1.5*(diff50-dea50),2) and 1.5*(diff50-dea50)<ref(1.5*(diff50-dea50),1),1,0);诱空:=if(1.5*(diff50-dea50)>0 and ref(1.5*(diff50-dea50),1)< ref(1.5*(diff50-dea50),2) and 1.5*(diff50-dea50)>ref(1.5*(diff50-dea50),1),1,0);阻力:=if(cross(c,ma(c,20)) or cross(c,ma(c,60)),1,0);洗盘:filter(诱空,3) and 诱空; 20210311