Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- %cylyndric: (radius ρ, azimuth φ, elevation z) (rho, alpha, z) (r, theta, z)
- %spheric: (radius r, azimuth φ, inclination θ,) (r, alpha, epsilon) (rho, theta, phi)
- function [rho, alpha, z] = mysph2cyl(varargin)
- switch nargin
- case 1
- Xi = varargin{1};
- [w,h] = size(Xi);
- rho = zeros(w, h);
- for i = 1:Xi
- point = Xi(:,i);
- [point(1), point(2), point(3)] =mysph2cyl(point(1), point(2),point(3));
- rho(:,i) = point;
- end
- case 3
- r = varargin{1};
- alpha = varargin{2};
- epsilon = varargin{3};
- %The other two are simple:
- rho = r*sin(epsilon);
- z = r*cos(epsilon);
- end
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement