Coordinate Conversions: Rectangular, Cylindrical, Spherical

[BERNARD MICHAUD]

Sorry Eddie if I misled you. What I mean is this. You have the first section below, but should be the second section. ρ*COS(θ)]; should be ρ*COS(φ)];

First section
IF ch==6 THEN
INPUT({ρ,θ,φ});
RETURN [ρ*COS(θ)*SIN(φ),ρ*SIN(θ)*SIN(φ),
ρ*COS(θ)]; error
END;

Second section
IF ch==6 THEN
INPUT({ρ,θ,φ});
RETURN [ρ*COS(θ)*SIN(φ),ρ*SIN(θ)*SIN(φ),
ρ*COS(φ)]; correct
END;