mathematica画一个立体的旋转曲面
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/09/13 05:31:24
mathematica画一个立体的旋转曲面
要求旋转曲面的过程可以控制 也就是说旋转到任何时候都可以停.
我要的是直接能复制的代码 鼠标旋转都知道.要用manipulate控制的代码
要求旋转曲面的过程可以控制 也就是说旋转到任何时候都可以停.
我要的是直接能复制的代码 鼠标旋转都知道.要用manipulate控制的代码
嘿嘿,我以前做过这个
转换公式:
x^2 - y^2 ==
z(*你要的式子*) /.{x -> Cos[\[Beta]]*(x*Cos[\[Theta]] - y*Sin[\[Theta]]) -
Sin[\[Beta]]*(z*Cos[\[Alpha]] +
Sin[\[Alpha]]*(y*Cos[\[Theta]] + x*Sin[\[Theta]])),
y -> (-z)*Sin[\[Alpha]] +
Cos[\[Alpha]]*(y*Cos[\[Theta]] + x*Sin[\[Theta]]),
z -> z*Cos[\[Alpha]]*Cos[\[Beta]] + Cos[\[Beta]]*Sin[\[Alpha]]*
(y*Cos[\[Theta]] + x*Sin[\[Theta]]) +
Sin[\[Beta]]*(x*Cos[\[Theta]] - y*Sin[\[Theta]])}
然后的出来的式子粘到manipulate里面:
Manipulate[
ContourPlot3D[(*粘到这里*),{x,-10,
10},{y,-10,10},{z,-10,10},Mesh -> None],{\[Theta],0,
2 \[Pi]},{\[Beta],0,2 \[Pi]},{\[Alpha],0,2 \[Pi]}]
例如:
Manipulate[
ContourPlot3D[-(-z Sin[\[Alpha]] +
Cos[\[Alpha]] (y Cos[\[Theta]] +
x Sin[\[Theta]]))^2 + (Cos[\[Beta]] (x Cos[\[Theta]] -
y Sin[\[Theta]]) -
Sin[\[Beta]] (z Cos[\[Alpha]] +
Sin[\[Alpha]] (y Cos[\[Theta]] + x Sin[\[Theta]])))^2 ==
z Cos[\[Alpha]] Cos[\[Beta]] +
Cos[\[Beta]] Sin[\[Alpha]] (y Cos[\[Theta]] + x Sin[\[Theta]]) +
Sin[\[Beta]] (x Cos[\[Theta]] - y Sin[\[Theta]]),{x,-10,
10},{y,-10,10},{z,-10,10},Mesh -> None],{\[Theta],0,
2 \[Pi]},{\[Beta],0,2 \[Pi]},{\[Alpha],0,2 \[Pi]}]
转换公式:
x^2 - y^2 ==
z(*你要的式子*) /.{x -> Cos[\[Beta]]*(x*Cos[\[Theta]] - y*Sin[\[Theta]]) -
Sin[\[Beta]]*(z*Cos[\[Alpha]] +
Sin[\[Alpha]]*(y*Cos[\[Theta]] + x*Sin[\[Theta]])),
y -> (-z)*Sin[\[Alpha]] +
Cos[\[Alpha]]*(y*Cos[\[Theta]] + x*Sin[\[Theta]]),
z -> z*Cos[\[Alpha]]*Cos[\[Beta]] + Cos[\[Beta]]*Sin[\[Alpha]]*
(y*Cos[\[Theta]] + x*Sin[\[Theta]]) +
Sin[\[Beta]]*(x*Cos[\[Theta]] - y*Sin[\[Theta]])}
然后的出来的式子粘到manipulate里面:
Manipulate[
ContourPlot3D[(*粘到这里*),{x,-10,
10},{y,-10,10},{z,-10,10},Mesh -> None],{\[Theta],0,
2 \[Pi]},{\[Beta],0,2 \[Pi]},{\[Alpha],0,2 \[Pi]}]
例如:
Manipulate[
ContourPlot3D[-(-z Sin[\[Alpha]] +
Cos[\[Alpha]] (y Cos[\[Theta]] +
x Sin[\[Theta]]))^2 + (Cos[\[Beta]] (x Cos[\[Theta]] -
y Sin[\[Theta]]) -
Sin[\[Beta]] (z Cos[\[Alpha]] +
Sin[\[Alpha]] (y Cos[\[Theta]] + x Sin[\[Theta]])))^2 ==
z Cos[\[Alpha]] Cos[\[Beta]] +
Cos[\[Beta]] Sin[\[Alpha]] (y Cos[\[Theta]] + x Sin[\[Theta]]) +
Sin[\[Beta]] (x Cos[\[Theta]] - y Sin[\[Theta]]),{x,-10,
10},{y,-10,10},{z,-10,10},Mesh -> None],{\[Theta],0,
2 \[Pi]},{\[Beta],0,2 \[Pi]},{\[Alpha],0,2 \[Pi]}]
用mathematica软件在一张图里画一个曲面在一点的切平面,法线及曲面本身
求两曲面立体的相贯线
mathematica中绘制X=5的曲面
旋转曲面及其方程中曲面方程的求法?
求由旋转抛物曲面Z=x^2+y^2与平面z=1所围成的立体的体积
Mathematica画一个函数的曲线图,
一个长方形,宽2分米,以它的长为轴旋转一周,得到一个立体图形,求这个立体
将右图中的直角三角形绕斜边旋转一周,得到一个立体图形,这个立体图形的体积是多少?
把三角形ABC以AB边为轴,旋转一周得到一个立体图形,求这个立体图形的体积
一个直角三角形,绕其斜边旋转一周所得的立体图形是___,一个半圆绕其直径旋转一周所得到的立体图形是__
求双纽线 绕极轴旋转所得旋转曲面的面积
CAD里旋转曲面和旋转得到实体的区别