!   mabbr.mac   
!  abbreviations for 3D models
/nopr
*afun,rad
pi=4*atan(1)
muz=pi*4e-7

*abbr,Mag_3d,*list,mag_3d,mac
*abbr,howto_3D,*list,howto_3d,mac
*abbr,stator_h,*list,stat_doc,mac
*abbr,rslot_h,*list,rslotdoc,mac
*abbr,rotor_h,*list,pmrotdoc,mac
*abbr,fitplot,fitplot
*abbr,pick_nod,nsel,,p
*abbr,pick_ele,esel,,p
*abbr,Get_Dims,g_parfil
*abbr,pmrotor,pm_rotor,rref,0,nrpgen,,r_mesh
*abbr,r_slot,rslotsta,0,stref,,nspgen   !  build the stator-rectangular slot
*abbr,stator,slotsta,0,stref,0,nspgen,0,0,s_mesh
*abbr,Build3d,b_mach3d,,,,,1
*abbr,winding,B_wndsc,,,,,,,,,,,,1
*abbr,dele_wnd,d_wnd
*abbr,even_BC,pmach3d,1
*abbr,shomodel,sho_mod
*abbr,showind,sho_mod,36                !  plots the winding
*abbr,shosolid,sho_mod,96               !  plots the solid 96 elements
*abbr,plt_form,plt_form             !  plots the loaded current form
*abbr,Rotate,mvrot3d,,1,0,0,0,0,0,0,1
*abbr,Load,ld_coil,,,,,,,,,1
*abbr,Solution,mvpsol
*abbr,solv_rot,rotsols,,,,,,,,,,1
*abbr,torque,tor_3d
*abbr,mur,mur                  !  computes permeability
*abbr,_mmf,mmf_                !  computes MMF
*abbr,B_vector,plvln
*abbr,H_vector,plvln,2
/gopr