I need the scale factors for the Oblate Spheroidal Coordiante system. Using Wolfram Mathematica Mathematica, where a is any constant and is the elliptical focus point. The code returns the following result:
\begin{array}{l} \frac{a \sqrt{\cos (2 \eta )+\cosh (2 \xi )}}{\sqrt{2}} \\ \frac{a \sqrt{\cos (2 \eta )+\cosh (2 \xi )}}{\sqrt{2}} \\ a \sin (\eta ) \cosh (\xi ) \\ \end{array}
"ξ">0 ,0<"η"<π ,-π<"φ"≤π
But this result is different from what was published in the MathWorld Encyclopedia
Also contradicts what is published at Field Theory Handbook DOI: 10.1007/978-3-642-83243-7
Can anyone comment which is correct and if there might be a bug?
UPDATE 1
to @Jiaxin Zhong Here is the math code returning various parameters including scale factors.
CoordinateTransformData[{{"OblateSpheroidal", {\[FormalA]}}, 3} ->
"Cartesian", "Mapping"]
CoordinateTransformData[{{"OblateSpheroidal", 1}, 3} ->
"Cartesian", "Mapping"]
toOblatefromSpherical =
CoordinateTransformData["Cartesian" -> {{"OblateSpheroidal", 1}, 3},
"Mapping"];
%[{1, Pi/4, Pi/6}] // Simplify
fromOblatetoSpherical =
CoordinateTransformData[{{"OblateSpheroidal", 1}, 3} -> "Cartesian",
"Mapping"];
param = CoordinateChartData[{{"OblateSpheroidal", {\[FormalA]}},
"Euclidean", 3}, "StandardCoordinateNames"];
param // Column
(*sph=fromOblatetoSpherical@param//Column;*)
sph =
fromOblatetoSpherical@param
Thread[% == {x, y, z}] // Simplify // MatrixForm
sph2 = Simplify[sph /. x_String :> ToExpression[x]] // MatrixForm
CoordinateChartData[{{"OblateSpheroidal", {\[FormalA]}}, "Euclidean",
3}, "CoordinateRangeAssumptions"]@param
CoordinateChartData[{{"OblateSpheroidal", {a}}, "Euclidean", 3},
"ScaleFactors", param] /. x_String :> ToExpression[x] // Column
CoordinateChartData[{{"OblateSpheroidal", {a}}, "Euclidean", 3},
"Metric", param] /. x_String :> ToExpression[x] // MatrixForm