rotaboutx

PURPOSE

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

SYNOPSIS

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

DESCRIPTION

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

 Rotate cart coord about x axis by angle t

CROSS-REFERENCE INFORMATION

This function calls:

This function is called by:

SOURCE CODE

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