#!/bin/sh  
# \
exec oagtclsh "$0" "$@"

set auto_path [linsert $auto_path 0  /usr/local/oag/apps/lib/$env(HOST_ARCH)]
set auto_path [linsert $auto_path 0 /usr/local/oag/lib_patch/$env(HOST_ARCH)]
APSStandardSetup

exec sddssequence -defi=z,type=double,units=m -seq=beg=-0.1,end=0.1,n=500 -repeat=5 -pipe=out \
| sddsbreak -rowlimit=500 -pipe \
| sddsprocess -pipe=in sole.tmp1 \
"-define=param,b,0.06" "-define=param,a,0.02" \
"-define=col,Bz,z abs b - 0 < ? 1 : pop a / 1 swap - $ 0 < ? 0 : pop $ ,units=T" 

exec sddsderiv sole.tmp1 -pipe=out -differ=Bz -versus=z \
| sddsxref -pipe sole.tmp1 -take=* \
| sddsprocess -pipe=in solenoid.sdds "-defi=col,r,i_page 1 - 0.001 *,units=m" \
"-define=col,Br,BzDeriv -2 / r *,units=T" -clip=1,1

file delete sole.tmp1
