Timeline for Concentric layered sphere with logarithmically scaled radius
Current License: CC BY-SA 4.0
4 events
| when toggle format | what | by | license | comment | |
|---|---|---|---|---|---|
| Jan 10, 2020 at 21:41 | comment | added | Ozan Yarman | This is a repeat from my response to morbo above: I think this range is now both correct and aesthetically pleasing: Range[1, N[4 E], (N[4 E] - 1)/5]^(1/E) | |
| Jan 10, 2020 at 20:46 | comment | added | Ozan Yarman | This is a repeat from my response to morbo above: After some experimentation, I could align the concentric spheres according to a logarithmic scale. Here is the code so far: Show[Graphics3D[ MapThread[{Black, Arrow@Tube@{{0, 0, 0}, #1}, Text[#2, #1, {0, -1}]} &, {2 IdentityMatrix[3], {x, z, y}}], Boxed -> False], SphericalPlot3D[ Evaluate[Range[-2, 2, 1/E]^(1/E)], {[Theta], 0, Pi}, {[Phi], 0, 3 Pi/2}] ] | |
| Jan 10, 2020 at 14:30 | comment | added | Ozan Yarman | Thank you MarcoB for the prompt answer, and sorry for my delay in replying. I have added the axes too in this fashion: Show[Graphics3D[ MapThread[{Black, Arrow@Tube@{{0, 0, 0}, #1}, Text[#2, #1, {0, -1}]} &, {4 IdentityMatrix[3], {x, z, y}}], Boxed -> False], SphericalPlot3D[ Evaluate[E^Range[0, 1, 0.2]], {[Theta], 0, 3 Pi/2}, {[Phi], 0, 3 Pi/2}] ] | |
| Jan 9, 2020 at 21:15 | history | answered | MarcoB | CC BY-SA 4.0 |