Coordinate Conversions: Rectangular, Cylindrical, Spherical
05-01-2016, 04:26 PM
Post: #6
 Eddie W. Shore Senior Member Posts: 1,421 Joined: Dec 2013
RE: Coordinate Conversions: Rectangular, Cylindrical, Spherical
Thank you Bernard.

The corrected program below:
Code:
EXPORT COORDCONV() BEGIN // 2014-02-03 EWS // updated 2016-05-01 // Source: CRC LOCAL ch,X,Y,Z,R; LOCAL θ,ρ,φ; CHOOSE(ch,"Coord. Conv.","Cart→Cyl", "Cyl→Cart","Cyl→Sph","Sph→Cyl", "Cart→Sph","Sph→Cart"); CASE IF ch==1 THEN  INPUT({X,Y,Z}); RETURN [√(X²+Y²),ARG(X+Y*i),Z]; END; IF ch==2 THEN  INPUT({R,θ,Z}); RETURN [R*COS(θ),R*SIN(θ),Z]; END; IF ch==3 THEN INPUT({R,θ,Z}); RETURN [√(R²+Z²),ARG(Z+R*i),θ]; END; IF ch==4 THEN INPUT({ρ,φ,θ}); RETURN [ρ*SIN(φ),θ,ρ*COS(φ)]; END; IF ch==5 THEN INPUT({X,Y,Z}); RETURN [√(X²+Y²+Z²), ARG(Z+*√(X²+Y²)),ARG(X+i*Y)]; END; IF ch==6 THEN INPUT({ρ,θ,φ}); RETURN [ρ*COS(θ)*SIN(φ),ρ*SIN(θ)*SIN(φ), ρ*COS(θ)]; END; DEFAULT RETURN "CANCELLED"; END; END;
 « Next Oldest | Next Newest »

 Messages In This Thread Coordinate Conversions: Rectangular, Cylindrical, Spherical - Eddie W. Shore - 02-04-2014, 04:48 AM RE: Coordinate Conversions: Rectangular, Cylindrical, Spherical - Eddie W. Shore - 12-16-2014, 01:38 PM RE: Coordinate Conversions: Rectangular, Cylindrical, Spherical - Han - 12-16-2014, 02:11 PM RE: Coordinate Conversions: Rectangular, Cylindrical, Spherical - Eddie W. Shore - 12-17-2014, 05:05 AM RE: Coordinate Conversions: Rectangular, Cylindrical, Spherical - BERNARD MICHAUD - 03-23-2016, 11:13 PM RE: Coordinate Conversions: Rectangular, Cylindrical, Spherical - Eddie W. Shore - 05-01-2016 04:26 PM RE: Coordinate Conversions: Rectangular, Cylindrical, Spherical - BERNARD MICHAUD - 10-03-2016, 11:51 PM

User(s) browsing this thread: 1 Guest(s)