/out,pl_clk,out
/title, Coil Linkages Versus Electrical Angle

*get,_c_d,parm,coil_lnk,dim,x

*set,_pl_clk
*dim,_pl_clk,table,_c_d,_mx_ph

_pl_clk(0,0)=1e-5
*do,_i11,1,_mx_ph
 _pl_clk(0,_i11)=_i11
*enddo
/gmark,1,
/gmark,2,
/gmark,3,
 _angfac=3.141593/180
 _angfac1=(npole/2)
 *vfunc,_pl_clk(1,0),copy,_rotm(1,0)
 *voper,_pl_clk(1,0),_pl_clk(1,0),mult,_angfac1

 *do,_il1,1,_mx_ph
       *vfunc,_pl_clk(1,_il1),copy,coil_lnk(1,_il1)
 *enddo
/axlab,x,Electrical Deg.
/axlab,y,Coil Linakage Weber-turn
*vplo,_pl_clk(1,0),_pl_clk(1,1),2,3
/axlab,x
/axlab,y
/out