/com, gr_torq.mac   graphs the torque versus angle after
/com, the series of solutions for a machine
*get,_typ,parm,_sene1,type
*if,_typ,eq,2,then
 _iunit=0
 /yran
 *vabs,,1
 *vscfun,_mtor,max,_sene1(1,1)
 *if,_mtor,gt,1000,then
    /axlab,y,Torque (ft-lb)
    _unit=1
    _ufac=1/192
    *voper,_sene1(1,1),_sene1(1,1),mult,_ufac
  *else
   /axlab,y,Torque (oz-in)
  *endif
 /axlab,x,Mechanical Deg.
 *vscf,_xmx,max,_sene1(1,0)
 *vscf,_xmn,min,_sene1(1,0)
 /xran,_xmn,_xmx
 /grid,1
 *vplo,_sene1(1,0),_sene1(1,1)
 /xran
 *if,_unit,eq,1,then
    _ufac=192
    *voper,_sene1(1,1),_sene1(1,1),mult,_ufac
 *endif
*else
 /nerr
 *msg,error
 The table containing the torque versus angle is not available
 /nerr,0,1e5
*endif