空间曲线与曲面绘制1. (1) 输入：Plot3D[3*x^2-5*y^2,{x,-5,5},{y,-5,5}]
输出：
（2）输入：a=10/8^(1/2);
b=10/15^(1/2);
c=10/5^(1/2);
ParametricPlot3D[{a*Cos[u]*Sin[v],b*Sin[u]*Sin[v],c*Cos[v]},{u,0,2Pi},{v,0,Pi}]
输出：
（3）输入：ParametricPlot3D[{v*Cos[u],1/2*v*Sin[u],v},{u,0,2P...
1. (1) 输入：Plot3D[3*x^2-5*y^2,{x,-5,5},{y,-5,5}]
输出：
（2）输入：a=10/8^(1/2);
b=10/15^(1/2);
c=10/5^(1/2);
ParametricPlot3D[{a*Cos[u]*Sin[v],b*Sin[u]*Sin[v],c*Cos[v]},{u,0,2Pi},{v,0,Pi}]
输出：
（3）输入：ParametricPlot3D[{v*Cos[u],1/2*v*Sin[u],v},{u,0,2Pi},
{v,-100,100},PlotPoints100]
输出：
（4）输入：f[x_,y_]:=If[x0,Sin[x]/x,1]*If[y0,Sin[y]/y,1]
Plot3D[f[x,y],{x,-10,10},{y,-10,10},PlotPoints40,PlotRangeAll]
输出：
2. （1）输入：ParametricPlot3D[{(4+Sin[20t])*Cos[t],(4+Sin[20t])*Sin[t],
Cos[20t]},{t,-Pi,Pi},PlotPoints200]
输出：
（2）输入：ParametricPlot3D[{(2+Cos[1.5t])*Cos[t],(2+Cos[1.5t])*Sin[t],
Sin[1.5t]},{t,0,4Pi},PlotPoints200]
输出：
3. 输入：Do[ParametricPlot3D[{u+v,u-v,(2+k)*u^2+(2-k)*v^2},{u,-2,2},
{v,-2,2},AspectRatio1,PlotPoints20], {k,-3,3}]
输出：
由图可知：|k|<2时， 椭圆抛物面；
|k|>2时， 双曲抛物面；
|k|=2时， 抛物柱面。
4. （1）输入：
t1=ParametricPlot3D[{Sin[u]*Cos[v],Sin[u]*Sin[v],Cos[u]},{u,0,Pi/2},{v,0,2Pi}]；
t2=ParametricPlot3D[{0.5*(Cos[u]+1/2),0.5*Sin[u],v},{u,0,2Pi},{v,0,1.2}]；
t3=ParametricPlot3D[{u,v,0},{u,-1,1},{v,-1,1}]；
Show[t1,t2,t3]
输出：
（2）输入：
t1=ParametricPlot3D[{Sin[u]*Cos[v],Sin[u]*Sin[v],Cos[u]},{u,0,Pi},{v,0,2Pi}]；
t2=ParametricPlot3D[{u,v,0.5},{u,-1,1},{v,-1,1}]；
Show[t1,t2]
输出：
本文档为【空间曲线与曲面绘制】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483