Mercurial > hg > octave-lyh

comparison scripts/general/sph2cart.m @ 6157:045038e0108a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-11-13 22:22:53 by jwe]
author jwe
date Mon, 13 Nov 2006 22:22:54 +0000
parents 34f96dd5441b
children 93c65f2a5668
comparison
equal deleted inserted replaced
6156:a46f14cdbecd 6157:045038e0108a
35 if (nargin != 3) 35 if (nargin != 3)
36 print_usage (); 36 print_usage ();
37 endif 37 endif
38 38
39 if ((! (ismatrix (Theta) && ismatrix (Phi) && ismatrix (R))) 39 if ((! (ismatrix (Theta) && ismatrix (Phi) && ismatrix (R)))
40 || size (Theta) != size (Phi) 40 || (! size_equal (Theta, Phi))
41 || size (Theta) != size (R)) 41 || (! size_equal (Theta, R)))
42 error ("sph2cart: arguments must be matrices of same size"); 42 error ("sph2cart: arguments must be matrices of same size");
43 endif 43 endif
44 44
45 X = R .* cos (Phi) .* cos (Theta); 45 X = R .* cos (Phi) .* cos (Theta);
46 Y = R .* cos (Phi) .* sin (Theta); 46 Y = R .* cos (Phi) .* sin (Theta);