!*
!* Commands to compute Relative Permeability
!*
cmsel,s,magnet
nsle
/auto
etable,mux,nmisc,1
*afun,rad 
pi=acos(-1) 
per=4*pi*1e-7    
sadd,mur,mux, ,1/per,1
!*
/show,png
/rgb,index,100,100,100, 0
/rgb,index, 80, 80, 80,13
/rgb,index, 60, 60, 60,14
/rgb,index, 0, 0, 0,15
/plo,info,3
/gfile,800
/view,1,-0.25,0.9,0.25
/angle,1,134
/triad,lbot
/plopts,minm,0
/expand,2,rect,half,,0.00001
!*
pletab,mur,avg