数学实验大作业(1)
二. 用作图命令作出圆柱面 x 2 y 2 22 在第一卦限中被平面 z 0 ,
z x , x 1 所截下部分的图形，并求其面积。
三. g1=ParametricPlot3D[{2Cos[u],2Sin[u],v},{u,0,2Pi}, {v,0,Pi}]; g2=Plot3D[0,{x,0,3},{y,0,3}]; g3=Plot3D[x,{x,0,3},{y,0,3}]; g4=ParametricPlot3D[{1,u,v},{u,0,3},{v,0,3}]; Show[g1,g2,g3,g4,g5,g6,PlotRange->{{0,2},{0,2},{0,2}} ] f[x_,y_,z_]=x^2+y^2-4;
dian={r,h}/.Table[extpts[[s,j]],{s,1,2},{j,2,3}] g1=ListPlot[dian,PlotStyle PointSize[0.03],PlotRange -3,3},{-3,3}},DisplayFunction {{ Identit y]; cp1=ContourPlot[f[r,h],{r,-3,3},{h,-3,3},Contours 20,PlotPoints 60,ContourShading False,Fr ame False,Axes Automatic,AxesOrigin {0,0},DisplayFunction Identity]; cp2=ContourPlot[g[r,h],{r,-3,3},{h,-3,3},Contours 60,Contours {0},ContourShading False,Fr ame False,Axes Automatic,ContourStyle Dashing[{0.01}],AxesOrigin {0,0},DisplayFuncti on Identity]; Show[g1,cp1,cp2,AspectRatio 1,DisplayFunction $DisplayFunction] (−5)2 3 2(−5)2 3 52 {{ 1 3 , }, { 1 ������ ������ 1 3 ������
{0, {0, 0,
{0, {0, {0,
谈一谈学习 Mathematica 软件的心得体会。
虽然之前我们已经接触过 C++， 但是学习这个软件并不容易， 常常会因为一个疏忽而导 致程序无法运行，在写程序时，我必须万分小心，生怕因为自己的马虎而做错，每次老师布 置作业时，我们便一边看课件一边做题，不知不觉中，我们已经学会了使用它。 经过本次使用 mathematica 这个著名的数学软件，使我对数学有了更加浓厚的兴趣，我 的想象力不太好，平时做题时总是模棱两可，常常遇到因为图形画不好而做错题这种事，但 这个软件使我可以三维立体的观察各种方程所衍化出的图形， 使得某些抽象的， 不可感的变 的简单明了，不止如此，有些题我们用笔算很难算出，但通过用电脑算，变得异常简单，通 过它我解决了许多自己不明白的问题，验证了人为计算。如果在科学研究中，我想这会极大 的提高正确率和效率， 另外从使用这个软件的过程中， 我还更加了解到我们所学知识的框架 以及各个知识点之间的联系。通过用 Mathematica 软件做实验加深了我对所学知识的再了解 和认识，会运用 Mathematica 分析并完成一些简单的数学问题。实验步骤由浅入深，内容充 实，理论与实验相辅，突出课程的数学应用和工程计算的特色。使我充分感受、领悟和掌握 “数学实验”中最本质的内涵，从而使我在高等数学的理解、应用、计算能力等方面得到提 高，在创造性方面受到启迪。
������
������(−������)������ ������ (−������)������ ������ ������������������ ������ ������������������ ������ ������������ ������ , ������ → }, { ������ → − , ������ → , ������ → }, {������ ������������ ������ ������������ ������ ������������ ������ ������������ ������ ������������ ������ ������(−������)������ ������ ������������ ������ ������ ������ →− , ������ → −������������������ ������ (− )������ ������ , ������ → −������������ ������ (− )������ ������ }} ������ ������ ������ ������ ������ , ������ → ������[������, ������]/. ������������������������������������//������������������������������������������������ {−������������(−������������)������ ������ , ������������(������������)������ ������ , ������������(−������)������ ������ (������������)������ ������ }
,1Байду номын сангаас
{0, {0,
1 1 1 2 5 1 7 4 1 5 11 2 13 7 5 8 17 , , , , , , , , , , , , , , , , , 1} 18 9 6 9 18 3 18 9 2 9 18 3 18 9 6 9 18 1 1 1 2 5 1 7 4 1 5 11 2 13 7 5 8 17 , , , , , , , , , , , , , , , , , 1} 18 9 6 9 18 3 18 9 2 9 18 3 18 9 6 9 18 1 1 1 2 5 1 7 4 1 5 11 2 13 7 5 8 17 , , , , , , , , , , , , , , , , , 1} 18 9 6 9 18 3 18 9 2 9 18 3 18 9 6 9 18 1 1 1 2 5 1 7 4 1 5 11 2 13 7 5 8 17 , , , , , , , , , , , , , , , , , 1} 18 9 6 9 18 3 18 9 2 9 18 3 18 9 6 9 18 1 1 1 2 5 1 7 4 1 5 11 2 13 7 5 8 17 , , , , , , , , , , , , , , , , ,1 18 9 6 9 18 3 18 9 2 9 18 3 18 9 6 9 18 1 1 1 2 5 1 7 4 1 5 11 2 13 7 5 8 17 , , , , , , , , , , , , , , , , , 1} 18 9 6 9 18 3 18 9 2 9 18 3 18 9 6 9 18 1 1 1 2 5 1 7 4 1 5 11 2 13 7 5 8 17 , , , , , , , , , , , , , , , , , 1} 18 9 6 9 18 3 18 9 2 9 18 3 18 9 6 9 18 1 1 1 2 5 1 7 4 1 5 11 2 13 7 5 8 17 , , , , , , , , , , , , , , , , , 1} 18 9 6 9 18 3 18 9 2 9 18 3 18 9 6 9 18
Hue[5,0,0],Table[Disk[c[[i]],0.02],{i,1,Length[c]}]}]
0,
1
18 9 6 9 18 3 18 9 2 9 18 3 18 9 6 9 18
, , , ,
1 1 2
5
, ,
1
7
, , , ,
4 1 5 11 2 13 7 5 8 17
, ,
, , , ,
3
, 3
252 3 }} ������ 1 3
四、用黑白棋子组成一个口字
a={0};For[i=1,i 18,i++,AppendTo[a,i/18]];a b={{7/18,12/18},{7/18,13/18},{4/18,11/18}, {5/18.11/18},{7/18,11/18},{3/18,11/18}, {6/18,11/18},{5/18,11/18}}; c={{3/18,14/18},{4/18,14/18},{5/18,14/18},{6/18,14/18},{7/18,14/18},{3/18,13/18},{3/18,12/1 8}}; Plot[{0,1},{x,0,1},PlotRange {{0,1},{0,1}}, Axes None,Background Hue[0.12],AspectRatio 1, Epilog {Table[Line[{{0,a[[i]]}}],{i,1,19}], Table[Line[{{a[[i]],0},{a[[i]],1}}],{i,1,19}], Hue[0,0,5],Table[Disk[b[[i]],0.02],{i,1,Length[b]}],
Integrate[f[x,y,z],{x,0,1},{y,
3
,2},{z,0,1}]
������ (−������ + ������ ������) ������
三、 某生产队要建造一个体积为 50 立方米的有盖圆柱形水池， 问 这个水池的高和底半径取多大时用料最省。
Clear[f,g,la]; f[r_,h_]=2Pi*r^2+2Pi*r*h; g[r_,h_]=Pi*r^2*h-50; la[r_,h_,R_]=f[r,h]+R*g[r,h]; extpts=Solve[{D[la[r,h,R],r] 0,D[la[r,h,R],h] 0,D[la[r,h,R],R] 0}] {{������ → ������(−������)������ ������������ ������
