Re: [問題] 請問圓柱座標下向量繪圖

看板Mathematica作者 (邁向學術之路)時間8年前 (2016/10/18 21:43), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串2/2 (看更多)
※ 引述《silverywings (puss)》之銘言: : 一向量 cos(2θ) êr - r êθ +z êz : 請問要怎麼畫出來 若問題是將柱坐標向量 cos(2θ) ê_r - r ê_θ +z ê_z 以直角坐標表示, 可用 CoordinateTransform 指令進行轉換。 例如 CoordinateTransform["Cylindrical" -> "Cartesian", {r, θ, z}] 將柱座標 {r, θ, z} 轉換成 {r Cos[θ], r Sin[θ], z}。 以下程式以 Manipulate 顯示各種柱座標 {r, θ, z} 下的直角坐標向量。 origin = {0, 0, 0}; InsetShift = {0, 0, .1}; Manipulate[ vector$Cylind = {Cos[2θ], -r, z}; vector = CoordinateTransform["Cylindrical" -> "Cartesian", vector$Cylind]; Graphics3D[ {PointSize@Large, Point@origin, Arrow@{origin, vector}, Inset[N@vector, vector + InsetShift]}, Axes -> True, AxesLabel -> {"x", "y", "z"}, ImageSize -> 280, PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}, ViewPoint -> {2.2, -2.3, 1.2}, ViewVertical -> {0.18, -0.18, 1}], {{r, 0}, -Pi, Round[Pi, 10^-8], Appearance -> "Labeled"}, {{θ, 0}, -Pi/4, Pi/4, Appearance -> "Labeled"}, {{z, 0}, -1, 1, Appearance -> "Labeled"}] -- At the end, it never ends. -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.115.45.65 ※ 文章網址: https://www.ptt.cc/bbs/Mathematica/M.1476798202.A.8C3.html
文章代碼(AID): #1O1YRwZ3 (Mathematica)
文章代碼(AID): #1O1YRwZ3 (Mathematica)