题目
用mathematica作出z=Sqrt[1 - x^2 - y^2],x^2+y^2=x及xOy面围成的图形,谢谢~
提问时间:2021-03-25
答案
p1 = Plot3D[Sqrt[1 - x^2 - y^2], {x, -1, 1}, {y, -1, 1},
AxesLabel -> {"x", "y", "z"},
RegionFunction ->
Function[{x, y}, x^2 + y^2 <= 1 && (x^2 + y^2 >= x)]]
p2 = ContourPlot3D[
x^2 + y^2 == x, {x, 0, 1}, {y, -1/2, 1/2}, {z, 0, 1},
RegionFunction -> Function[{x, y, z}, Sqrt[1 - x^2 - y^2] >= z]]
p3 = ContourPlot3D[z == 0, {x, -1, 1}, {y, -1, 1}, {z, -1, 1},
RegionFunction ->
Function[{x, y, z}, x^2 + y^2 <= 1 && x^2 + y^2 >= x]]
Show[p1, p2, p3]
AxesLabel -> {"x", "y", "z"},
RegionFunction ->
Function[{x, y}, x^2 + y^2 <= 1 && (x^2 + y^2 >= x)]]
p2 = ContourPlot3D[
x^2 + y^2 == x, {x, 0, 1}, {y, -1/2, 1/2}, {z, 0, 1},
RegionFunction -> Function[{x, y, z}, Sqrt[1 - x^2 - y^2] >= z]]
p3 = ContourPlot3D[z == 0, {x, -1, 1}, {y, -1, 1}, {z, -1, 1},
RegionFunction ->
Function[{x, y, z}, x^2 + y^2 <= 1 && x^2 + y^2 >= x]]
Show[p1, p2, p3]
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1数以千计造句
- 23道数学题,要列式,不要方程
- 3已知sin2a=-sina,a∈(π/2,π),求tana的值
- 4桃花红村种梨树的棵数比桃树多3/7,梨树和桃树共有850棵.桃树有多少棵?(只列式或解方程),不计算
- 5存在3种同分异构体的甲基最多的烷烃
- 6一根绳子长12米,第一次用去了全长的1/3 ,第二次用去了1/3米,还剩多少米?
- 7-Which hair band do you like best,madam?
- 8关于九上语文文言文中一些不懂的问题(我们老师有些没讲清楚,
- 9where is bob?there is somebody here___wants to speak to him
- 10现有13.3克已部分变质的NaOH,将该固体加到100克某盐酸溶液中,刚好反应,并产生2.2克气体.
热门考点