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

[chungyuandye (養花種魚數月亮賞星星)]

※ 引述《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:太屌了,真的弄得出來,尤其是第二題 這對我滿有幫助的
→ abbybao:第一題我執行程式後還是沒有看到點在圖型上顯示,如圖
→ abbybao:http://ppt.cc/SrnK  我把pointsize調到30還是沒看到
→ chungyuandye:30太大了，把整個點都包住了。