rotaboutz

PURPOSE

[xp,yp,zp]=rotaboutz(x,y,z,t)

SYNOPSIS

function [xp,yp,zp]=rotaboutz(x,y,z,t)

DESCRIPTION

 [xp,yp,zp]=rotaboutz(x,y,z,t)

 Rotate cart coord about z axis by angle t

CROSS-REFERENCE INFORMATION

This function calls:

This function is called by:

spaceangle_dither [az,el]=spaceangle_dither(az,el,rms,units)
mount2apparent function d=mount2apparent(d)
pointing_model [maz,mel]=pointing_model(model,iaz,iel)

SOURCE CODE

0001 function [xp,yp,zp]=rotaboutz(x,y,z,t)
0002 % [xp,yp,zp]=rotaboutz(x,y,z,t)
0003 %
0004 % Rotate cart coord about z axis by angle t
0005 
0006 sint=sin(t); cost=cos(t);
0007 
0008 xp=+cost.*x+sint.*y;
0009 yp=-sint.*x+cost.*y;
0010 zp=z;
0011 
0012 return