Re: [問題] mathematica旋轉體問題

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Mathematica
標題: Re: [問題] mathematica旋轉體問題
時間: Sun Dec 2 09:47:52 2012

※ 引述《abbybao (小寶)》之銘言：
: 1. http://tinyurl.com/czwfb6v
: Q1:如果我想對 y=sin(x)對x=π/2 為旋轉軸旋轉要怎麼寫呢?
: ps: 圖裡是對z軸旋轉
: Q2:如果我想要標註點(1,0,0)的位置這有辦法做的到嗎?
: ps: 圖裡是點是我自己亂標的

(* RevolutionPlot3D 的轉軸必須是有原點出發的線，可參考 RevolutionAxis設定 *)
(* 所以要對x=π/2旋轉，必須把圖形平移，之後再做調整。 *)

temp = RevolutionPlot3D[Sin[Pi/2 - x], {x, -Pi/2, 0},
BoxRatios -> {1, 1, 0.4}]

Show[ListPlot3D[temp[[1, 1]] /. {x_, y_, z_} -> {x + Pi/2, y, z},
PlotStyle -> Opacity[0.5]],
Graphics3D[{PointSize[0.025], Red, Point[{1, 0, 0}]}]]


: 2. http://ppt.cc/LO-C
: 我想要看對題目裡的拋物面跟圓柱兩者圖形取交集所產生的圖形
: 這有辦法做的到嗎?

Plot3D[(x^2 + y^2)/4, {x, -10, 10}, {y, -10, 10},
RegionFunction -> Function[{x, y}, x^2 + y^2 <= 8 y],
Filling -> Bottom]

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org


--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.134.123
→ abbybao:太屌了,真的弄得出來,尤其是第二題 這對我滿有幫助的  12/02 12:40
→ abbybao:第一題我執行程式後還是沒有看到點在圖型上顯示,如圖  12/02 12:42
→ abbybao:http://ppt.cc/SrnK 我把pointsize調到30還是沒看到  12/02 12:43
→ chungyuandye:30太大了，把整個點都包住了。  12/02 15:17