macro read fig.sm
erase
fig1_
!xemacs fig.data
!head fig.data
!xemacs fig.sm
macro read fig.sm
erase
fig1_
!xemacs fig.sm
macro read fig.sm
erase
fig1_
!xemacs fig.sm
macro read fig.sm
erase
fig1_
erase
fig2_
erase
fig3_
erase
fig4_
erase
fig5d_
!xemacs fig.sm
!xemacs fig.sm &
erase
box5d_
macro read fig.sm
erase
fig5d_
!xemacs fig.sm &
macro read fig.sm
erase
fig5d_
!xemacs fig.sm &
macro read fig.sm
erase
fig5d_
!xemacs fig.sm
macro read fig.sm
erase
fig5d_
!xemacs fig.sm
macro read fig.sm
erase
fig5d_
!xemacs fig.sm
macro read fig.sm
erase
fig5d_
!xemacs fig.sm
macro read fig.sm
erase
fig5d_
!xemacs fig.sm &
set dmb = (mb2-tb2)
limits 0 0 dmb
erase
box
points lge dmb
ims dmb m s k
ams dmb m s
k
ams dmb 2.0 m s
echo "relative error is" $($s/0.80)
quit
