Mathematica数学实验[4]
工程数学实验
工程数学实验报告成绩：2015—2016—2学期学部：班级：姓名:学号：电话:Ⅰ展示图形之美篇要求：涉及到的文字用中文宋体五号字，Mathematica程序中的字体用Times New Roamn。
【数学实验一】题目:利用Mathematica制作如下图形（1），,其中k的取值为自己学号的后三位。
（2),其中k的取值为自己学号的后三位。
Mathematica程序：（1)ParametricPlot［｛423Sin［t］，423Sin［2t]｝，｛t，0,2Pi｝］（2）x=Sin［u］Cos［423v］y=Sin［u］Cos[v]z=Cos[u］ParametricPlot3D［｛Sin［u］Cos［423v］，Sin[u]Cos［v］，Cos[u］},{u，0,Pi｝,{v,0，2Pi}］运行结果：【数学实验二】题目：请用Mathematica制作五个形态各异三维立体图形，图形函数自选,也可以由几个函数构成更美观、更复杂的图形；并用简短的语言说明选择该图形的理由和意义.Mathematica程序：x［u_，v_]：=Sin[u]Cos［v]；y［u_，v_］:=Sin［u］Sin［v];z［u_,v_］:=Cos［u］；ParametricPlot3D［{x［u,v］，y[u,v],z［u，v］｝，｛u，—Pi/12，Pi/12Pi｝,{v，0，4Pi}，Boxed—〉False,BoxRatios{1，1,1｝］运行结果:图片像一个窝窝头，粮食是人类的生存之本Mathematica程序：ParametricPlot3D[｛r,Exp［—r^2Cos［4r］^2］*Cos[t]，Exp[—r^2Cos[4r］^2]Sin［t]｝,｛r,-1.2,1.2｝，{t,0,2Pi｝]运行结果：图片像一块奶糖Mathematica程序:ContourPlot3D[(2x^2+y^2+z^2-1)^3-（x^2z^3）/10—y^2＊z^30，｛x,—1。
Mathematica基础数学实验4
令其绕 z 轴旋转所得的旋转曲面的参数方程为:
x 1 t 2 cos 2 y 1 t sin z 2t 0 2 t
消去参量 t 和, 得曲面的直角坐标系下的方程:
x y
2 2
z
2
1
4
此曲面为单叶双曲面. 这也是的直纹面性质. 如图:
4. 利用参数方程作空间曲线图形的命令 ParametricPlot3D 作曲线时的基本形式为: ParametricPlot3D[{x[t],y[t],z[t]},{t,t1,t2}, 选项] 其中x[t], y[t], z[t]为参数方程的三个表示式, t1, t2为参 变量 t 的作图范围. 空间螺旋线的参数方程为: x=cost, y=sint,z=t/10, 0 t 8
程序
练习: 1. 用Plot3D命令画出函数
z e
( x2 y2 )/ 8
(cos
2
x sin
2
y)
在-x, -y上的图形, 采用选项PlotPoints->50. 2. 函数
z xy x y
2 2
在(0, 0)处不连续, 用Plot3D命
令画出函数在-2x2, -2y2上的图形,采用选项 PlotPoints->50或更大, 观察曲面在(0, 0)处的变化. 3. 一个圆环面的参数方程为: x=(3+cosu)cosv,y=(3+cosu)sinv,z=sinu(0u2,0v2), 用ParametricPlot3D命令画出它的图形. 4. 一个正螺面的参数方程为: x=ucosv, y=usinv, z=v/3(-1u1, 0v4), 用ParametricPlot3D命令画出它的图形.
mathematica 数学实验报告
数学实验报告实验一数学与统计学院信息与计算科学(1)班郝玉霞201171020107数学实验一一、实验名：微积分基础二、实验目的：学习使用Mathematica的一些基本功能来验证或观察得出微积分学的几个基本理论。
三、实验环境：学校机房，工具：计算机,软件：Mathematica。
四、实验的基本理论和方法：利用Mathematica作图来验证高中数学知识与大学数学内容。
五、实验的内容和步骤及结果内容一、验证定积分dttsx⎰=11与自然对数xb ln=是相等的。
步骤1、作积分dttsx⎰=11的图象；语句：S[x_]:=NIntegrate[1/t,{t,1,x}]Plot[S[x],{x,0.1,10}]实验结果如下：21图1dttsx⎰=11的图象步骤2、作自然对数xb ln=的图象语句：Plot[Log[x],{x,0.1,10}] 实验结果如下：2 1图2xb ln=的图象步骤3、在同一坐标系下作以上两函数的图象语句：Plot[{Log[x],S[x]},{x,0.1,10}] 实验结果如下：21图3dttsx⎰=11和xb ln=的图象内容二、观察级数与无穷乘积的一些基本规律。
（1）在同一坐标系里作出函数xy sin=和它的Taylor展开式的前几项构成的多项式函数3!3xxy-=，!5!353xxxy+-=，⋅⋅⋅的图象，观察这些多项式函数的图象向xy sin=的图像逼近的情况。
语句1：s[x_,n_]:=Sum[(-1)^(k-1)x^(2k-1)/((2k-1)!),{k,1,n}]Plot[{Sin[x],s[x,2]},{x,-2Pi,2Pi},PlotStyle->{RGB[0,0,1]}] 实验结果如下：64242图4x y sin =和它的二阶Taylor 展开式的图象语句2：s[x_,n_]:=Sum[(-1)^(k-1)x^(2k-1)/((2k-1)!),{k,1,n}]Plot[{Sin[x],s[x,3]},{x,-2Pi,2Pi},PlotStyle->{RGB[0,1,1]}] 实验结果如下：642321图5x y sin =和它的三阶Taylor 展开式的图象语句3：s[x_,n_]:=Sum[(-1)^(k-1)x^(2k-1)/((2k-1)!),{k,1,n}]Plot[{Sin[x],s[x,4]},{x,-2Pi,2Pi},PlotStyle->{RGB[0,1,0]}] 实验结果如下：642321图6x y sin =和它的四阶Taylor 展开式的图象语句4：s[x_,n_]:=Sum[(-1)^(k-1)x^(2k-1)/((2k-1)!),{k,1,n}]Plot[{Sin[x],s[x,5]},{x,-2Pi,2Pi},PlotStyle->{RGB[1,0,0]}] 实验结果如下：642321图7x y sin =和它的五阶Taylor 展开式的图象语句5：s[x_,n_]:=Sum[(-1)^(k-1)x^(2k-1)/((2k-1)!),{k,1,n}] Plot[{Sin[x],s[x,2],s[x,3],s[x,4],s[x,5] },{x,-2Pi,2Pi}] 实验结果如下： 6422图8xy sin=和它的二、三、四、五阶Taylor展开式的图象（2）分别取n=10，20，100，画出函数xkkynk)12sin(1211--=∑=在区间[-3π，3π]上的图像，当n→∞时，这个函数趋向于什么函数？语句1：f[x_,n_]:=Sum[Sin[k*x]/k,{k,1,n,2}]Plot[f[x,10],{x,-2Pi,2Pi},PlotStyle->{RGB[0,0,1]}]实验结果如下：6420.5图9 n=10时，xkkynk)12sin(1211--=∑=的图像语句2：f[x_,n_]:=Sum[Sin[k*x]/k,{k,1,n,2}]Plot[f[x,20],{x,-2Pi,2Pi},PlotStyle->{RGB[0,0,1]}] 实验结果如下：6420.5图10 n=20时，xk k y nk )12sin(1211--=∑=的图像语句3：f[x_,n_]:=Sum[Sin[k*x]/k,{k,1,n,2}]Plot[f[x,100],{x,-2Pi,2Pi},PlotStyle->{RGB[0,0,1]}] 实验结果如下：6420.5图11 n=100时，xk k y nk )12sin(1211--=∑=的图像（3）分别取5,15,100,，在同一坐标系里作出函数x x f sin )(=与∏=-⋅=nk k x x x p 1222)1()(π在区间[-2π，2π]上的图像。
mathematica实验报告5张西西
mathematica实验报告5张西西Mathematica是一款强大的数学软件，可以进行各种数值计算和符号计算。
在本次实验中，我使用Mathematica进行了一些数值计算的实验，并总结了实验结果。
首先，我使用Mathematica计算了一元函数的数值积分。
通过使用内置的函数NIntegrate，我计算了函数f(x) = x^2在区间[0, 1]上的数值积分。
结果显示，该函数在该区间上的数值积分为1/3接下来，我进行了一元方程的数值求解实验。
我使用内置函数NSolve，求解了方程x^2 - 2x + 1 = 0。
结果显示，方程的解为x = 1然后，我进行了一些线性代数的实验。
首先，我使用内置函数LinearSolve，求解了线性方程组Ax = b，其中A是一个2x2的矩阵，b是一个长度为2的向量。
结果显示，方程组的解为x = {1, 2}。
接着，我使用内置函数Eigenvalues和Eigenvectors，计算了一个2x2的矩阵的特征值和特征向量。
结果显示，该矩阵的特征值为{-1, 2}，特征向量为{{1, 2}, {1, -1}}。
最后，我进行了一些常微分方程的数值解实验。
我使用内置函数NDSolve，求解了一阶常微分方程dy/dx = y，初始条件为y(0) = 1、结果显示，该方程的数值解为y = Exp[x]。
综上所述，通过本次实验，我使用Mathematica进行了一些数值计算的实验，包括数值积分、方程求解、线性代数和常微分方程的数值解。
Mathematica的强大功能和简洁的语法使得这些实验变得简单而又高效。
我相信在未来的学习和工作中，Mathematica将会成为我不可或缺的工具。
mathematica实验报告
mathematica实验报告《使用Mathematica进行实验报告：探索数学的奥秘》Mathematica是一款强大的数学软件，它不仅可以进行数学计算和图形绘制，还可以进行数据分析和模拟实验。
在本实验报告中，我们将使用Mathematica来探索数学的奥秘，展示其强大的功能和应用。
首先，我们将使用Mathematica进行数学计算。
通过输入数学表达式和方程式，我们可以快速地进行数值计算和符号运算。
Mathematica还提供了丰富的数学函数和算法，可以帮助我们解决复杂的数学问题，如微积分、线性代数和离散数学等。
其次，我们将利用Mathematica进行图形绘制。
通过输入函数表达式和参数设置，我们可以绘制出各种数学图形，如函数图像、曲线图和三维图形等。
Mathematica还提供了丰富的绘图工具和选项，可以帮助我们定制和美化图形，使其更加直观和具有艺术感。
接下来，我们将利用Mathematica进行数据分析。
通过输入数据集和统计方法，我们可以进行数据的可视化和分析，帮助我们发现数据的规律和趋势。
Mathematica还提供了丰富的数据处理和建模工具，可以帮助我们进行数据挖掘和预测分析，为决策和规划提供有力的支持。
最后，我们将利用Mathematica进行模拟实验。
通过输入模型和参数设置，我们可以进行各种科学和工程问题的模拟实验，帮助我们理解和预测实际现象。
Mathematica还提供了丰富的模拟工具和仿真方法，可以帮助我们进行虚拟实验和验证假设，为科学研究和工程设计提供有力的工具支持。
总之，Mathematica是一款强大的数学软件，它可以帮助我们探索数学的奥秘，解决数学问题，展示数学图形，分析数学数据，进行数学模拟实验，为科学研究和工程应用提供有力的支持。
希望本实验报告可以激发更多人对数学和科学的兴趣，让我们一起来探索数学的奥秘吧！。
Mathematica实验报告
Mathematica 实验报告【实验名称】利用MA THEMA TICA 作图、运算及编程.【实验目的】1。
掌握用MA THEMATICA 作二维图形，熟练作图函数Plot 、ParametricPlot 等应用，对图形中曲线能做简单的修饰.2。
掌握用MATHEMA TICA 做三维图形，对于一些二元函数能做出其等高线图等，熟练函数Plot3D ，ParametricPlot 的用法。
3、掌握用MA THEMATICA 进行微积分基本运算：求极限、导数、积分等。
【实验原理】1．二维绘图命令：二维曲线作图：Plot[fx,{x ，xmin,xmax}],二维参数方程作图：ParametricPlot[｛fx ，fy}，{t ，tmin ，tmax}]2．三维绘图命令：三维作图plot3D ［f,{x ，xmin ，xmax}，｛y,ymin ，ymax}］，三维参数方程作图：ParameticaPlot3D[{fx,fy ，fz ｝，{t ，tmin,tmax ｝］【实验内容】（含基本步骤、主要程序清单及异常情况记录等)1。
作出函数)sin(22y x z +=π的图形. 步骤： z=Sin ［Pi Sqrt[x^2+y^2］];Plot3D ［z ，{x,-1，1},{y,—1，1}，PlotPoints →30,Lighting →True]2。
椭球面()⎪⎪⎩⎪⎪⎨⎧=∈⎪⎭⎫ ⎝⎛-∈==u z v u v u y v u x R R R R R R sin ,,,2,0,2,2,sin cos cos cos 332121πππ自行给定,作图. 步骤：ParametricPlot3D ［{4Cos[u ］Cos[v],3Cos ［u]Sin[v]，2Sin[u]｝，{u ，—Pi/2，Pi/2}，｛v,0，2Pi}]3.做出极坐标描绘的图形：)cos 1(4θ+=r步骤：r ［t_］:=4(1+Cos[t ］）；ParametricPlot ［{r ［t ］Cos[t]，r ［t ］Sin ［t]},｛t,0,2Pi}]【实验结果】结果1：结果2:结果3：【总结与思考】MATHEMATICA作图的常见错误：General::spell1: Possible spelling error，因为在MATHEMATICA中作图函数大小写有区别.由于拼写间要有空格，易导致错误。
mathematica实验报告
mathematica实验报告Mathematica 实验报告一、实验目的本实验旨在深入了解和掌握 Mathematica 软件的基本功能和操作方法，通过实际的案例和问题解决，提升运用 Mathematica 进行数学计算、数据分析、图形绘制以及编程的能力。
二、实验环境操作系统：Windows 10Mathematica 版本：121三、实验内容与步骤（一）数学计算1、基本运算在 Mathematica 中，直接输入数学表达式进行计算，例如：计算 2＋ 3 4 的结果，输入｀2 ＋ 3 4` ，得到结果 14。
2、函数计算使用内置函数进行复杂的数学运算，如计算正弦函数｀SinPi ／ 6`的值，结果为 05。
（二）数据分析1、数据导入通过｀Import` 函数导入外部数据文件，如 CSV 格式的数据文件。
假设我们有一个名为｀datacsv` 的文件，包含两列数据｀x` 和｀y` ，使用｀data ＝ Import"datacsv"｀即可将数据导入。
2、数据处理对导入的数据进行处理，如计算平均值、方差等统计量。
可以使用｀Meandata` 计算平均值，｀Variancedata` 计算方差。
（三）图形绘制1、二维图形绘制简单的函数图形，如｀PlotSinx, ｛x, 0, 2 Pi}｀绘制正弦函数在｀0` 到｀2 Pi` 区间的图形。
2、三维图形绘制三维图形，如｀Plot3Dx^2 ＋ y^2, ｛x, －2, 2}，｛y, －2, 2}｀绘制一个抛物面。
（四）编程实践1、定义函数使用｀Function` 关键字定义自己的函数，例如定义一个计算阶乘的函数｀factorialn_ ：＝ Ifn ＝＝ 0, 1, n factorialn 1` 。
2、循环结构使用｀For` 循环和｀While` 循环实现重复操作，例如使用｀For`循环计算 1 到 10 的和，｀sum ＝ 0; Fori ＝ 1, i ＜＝ 10, i+＋， sum ＋＝ i; sum` 。
数学实验三 软件Mathematica求导数全微分
Dxyt[y_,x_,t_]:=D[y,t]/D[x,t]
自定义函数用于求参数方程所确 定的导数
例：求下列函数的一阶导数
y x3 cos x
In[1] : D x 3 * Cos[x ],x
Out[1] 3x 2Cos[x ] x 3Sin[x ]
y ln ln x
In[2] : D Log[Log[x]],x
命令
D[f[x],x] D[f[x],{x,n}]
功能 计算一元函数导数df/dx 计算一元函数高阶导数f(n)(x)
D[f,{x,n},{y,m}]
求函数f对x的n阶，对y的m阶混 合偏导数
Dt[f]
求函数f的全微分
DFxy[f_,x_,y_]:=Solve[D[f,x]==0, 自定义函数用于隐函数求导 y′[x]]
学生实验
基础操作
用mathematica求下列函数的导数
y e4x
y axex
y x 1 x 1 x
y sin x2
y (x 1 x2 )n y ln tan x
应用部分
• 将一物体垂直上抛，其运动方 s 10t ，1 g试t 2 求： １）物体从t=1秒到t=2秒的平均速度；2 ２）物体从t=1秒到t=1+△t秒的平均速度 ２）物体在t=1时的瞬时速度； ３）物体从t秒到t+△t秒的平均速度； ４）物体在任意t秒时的瞬时速度。
某公司在推销一种产品个月后，每月销售额（千元）可表示为
S(t) 2t3 40t2 220t 160
1）分别求1个月，4个月，6个月，9个月，20个月后的每月销售额； 2）求变化率 S(t) 3）分别求在 t 1, 4,6,9,12 处的变化率； 4）解释该公司的CEO为什么不必为6月份的销售额下降而发愁。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
14
求极限
【实验目的】 （1）通过本实验深刻理解极限概念； （2）学习并掌握利用Mathematica求极限的基本方法。 【预备知识】 （1）极限、左极限、右极限的概念； （2）本实验所用Mathematica有关命令： x→ ● Limit[expr, x->x0] 求表达式在x0 时的极限 ● Limit[expr,x->x0,Direction -> 1] 求左极限 ● Limit[expr,x->x0,Direction ->-1] 求右极限
13
【实验内容与要求】 （1）计算 546 × 54564
46545 45676
（2）对于方程 x 4－2 x 3－4 x 2 + 3 = 0 试用Solve []和Nsolve[]分别对 它进行求解，并比较得到的结果，体会代数解即精确解与数值 解的差别。 （3）先观察函数 f ( x) = sin x − cos x 的图形，然后选择一个 初始点求解，并且根据图形确定在某个区间中搜索它的零点。
【实验内容与要求】
x +1 x 2 + 3x + 5
（1）求出被积函数F(x)= 的原函数和导函数，并画 出被积函数、原函数和导函数的图形，试分辨出哪一条曲线属于 哪个函数。 （2）对函数sinx在0点展开10阶和20阶，并以图形方式对比 展开的结果和sinx的差别，并分析阶数高的展式对于原来函数的 逼近程度是否优于阶数低的展式。
2
Mathematica 的编程 Mathematica可以有两种常用的工作方式： 一种是直接交互的指令行操作方式； 另一种是批处理方式。 为了更好的利用Mathematica，需要掌握基本的程序设计技 巧。Mathematica可以把很多命令放在自己定义的函数里， 也可以自己编写更加复杂的程序，下面着重介绍函数的定义和 编写程序的几个结构。
20
综合应用实验介绍 1、放射性废料的处理问题 2、路程估计问题
21
放射性废料的处理问题 美国原子能委员会以往处理浓缩放射性废料的方法，一直是把它 们装入密封的圆桶里，然后扔到水深90多米的海底。生态学家和 科学家们表示担心，怕圆桶下沉到海底时与海底碰撞而发生破裂 ，从而造成核污染。原子能委员会分辩说这是不可能的。为此工 程师们进行了碰撞实验，发现当圆桶下沉到海底时的速度超过 12.2 m/s，圆桶与海底碰撞会发生破裂。为避免圆桶破裂，需要 计算圆桶沉到海底时的速度是多少？这时已知圆桶重为239.46 kg，体积为0.2058 m3,海水密度为1035.71 kg/m3。如果圆 桶下沉到海底时的速度小于12.2 m/s，就说明这种方法是可靠的 ；否则就要禁止用这种方法来处理放射性废料。假设水的阻力与 速度大小成正比，其正比例常数为0.6。
24
【实验内容与要求】 （1）要确定 s与d的近似函数关系，必须收集若干s及与之相 对应的d的具体数据，通过分析找出规律。这里将《中国地图 》中量得的四川省彭州市到其他几个城市的直线距离，并按 比例尺 （1cm为20km）进行转换，以及从到汽车站了解到 的对应的实际路程的有关数据列于下表：
9
用于流程控制的函数：
函数及其表达式 函数功能说明 Break[] 退出最近的一个循环 Continue[] 转入当前循环的下一步 Return[expr] 退出函数中所有过程及循环，并返回expr Lable[name] 定义一个名为name的标号 Goto[name] 直接跳转到当前过程中的name标号处 编程要素 四性：规范性，清晰性，逻辑性，层次性； 三易：易读，易改，易调；
10
软件实验介绍
1、用mathmatica软件解方程（组）、求极限 2、用mathmatica软件做积分运算、微分运算以及函数的幂 级数展开
11
解方程和方程组
【实验目的】 （1）掌握Mathematica软件的计算器功能； （2）学会使用号解。 【预备知识】 （1）方程（或方程组）代数解法的基本理论，函数的零点， 方程（或方程组）的解及数值解； （2）本实验所用命令： ● 用符号“= =”连接两个代数表达式构成一个方程 ● 求方程（组）的代数解：Solve[方程或方程组，变量或变 量组]
5
用于循环的一些基本函数 函数及其表达式 函数功能说明 Do[expr,{I,imax}] 重复计算表达式，步长为1 Do[expr,{I,imin,imax,di}] 重复计算表达式，步长为 di Do[expr,{n}] 计算表达式共 n 次 While[test,body] 只要检测为真，就反复执行body For[Start,test,incr,body] 以 Start 为起始值，重复计算 body 和 incr ，直到检测为 假 Nest[expr,n] 对于表达式运用 f 共 n 次 FixedPoint[f,expr] 以表达式为开始，重复运用 f ， 一直到结果不再变化为止 FixedPoint[f,expr,SameTest->comp] 如果把条件 Comp 运用于两次连续的结果真的话，就结束6
17
【实验内容与要求】
f = a sin( x 2 ) x 3 的原函数； （1）求函数 （2）求 ax n d x ∫
18
微分基本运算及函数的幂级数展开 【实验目的】 （1）掌握求函数的导函数和偏导数的方法； （2）学会使用Mathematica软件进行函数的幂级数展开。 【预备知识】 （1）函数的导函数、偏导数以及函数的幂级数展开式； （2）本实验所用的Mathematica函数提示： （a）求导数（或偏导数）： ● D[表达式F,x] 求F对于变量x的导数 ● D[表达式F,x1,x2,...] 按顺序求F关于x1，x2,…的偏导 数 ● D[表达式F,{x,n}] 求F对x的n阶导数 （b）幂级数展开： ● Series[表达式F,{x,x0,n}] 求F关于变量x在x0的n阶泰 勒展式。 19
如：输出i^2， i 从 1 到 5 Do[Print[i^2], {i,5}] Do[Plot[Sin[n x], {x, 0, 2*Pi}], {n, 1, 3, 0.25}] Do[expr,{i,imin,imax,istep}] 计算 expr, i 从 imin 到 imax 步长 istep; imin=1,istep=1 可省 Do[Plot[Sin[n*x], {x, 0, 2*Pi}], {n, 1, 3, 0.25}] Clear[t];t=x;Do[t=1/(1+t),{4}];t 循环 n 次 Do[expr,{n}] , 计算表达式共 n 次 Clear[t];t=x;Do[t=1/(1+t),{4}] ;t Clear[t];t=x; Do[t=(t-i)/(t-j),{i,4},{j,i-1}];t 多重循环 Do[expr, {i...}, {j...}...] ( 前外后内 )
数 学 实 验
主讲教师： 刘强国 Cell phone: 159 8418 4369 E-mail: mathsuse@
1
四川理工学院 理学院 数学实验中心
第四讲 Mathematica编程与应用
> > > >
• • • •
编程、调试 软件操作实验介绍 综合应用实验介绍 实验报告写法
4
2、程序结构和控制 顺序结构 在 Mathematica 中的顺序结构就是复合表达式，也就是“;” 操作符。在一个表达式的后面写一个分号“;” ，然后接着写 另外一个表达式，这就构成了一个复合表达式。如： x = 3; x = x + 2; x 循环结构 Mathematica 中有很多的函数或者说是命令支持循环结构， 首先给出几个常用的函数，如下表：
8
Switch[expr,form1,value1,form2,…,def] 先计算 expr 的值，然后依次与 formi 比较，返回第一个匹配 的 formi 对应的 valuei, 如果没有与之匹配的就返回 def 程 序流程的控制在正常情况下，系统对于表达式的求值总是按照 规定的顺序和方式进行的。无论对于一般的表达式，还是对于 复合表达式，使用前面的结构就够了。但是有的时候，人们要 打断这种正常的顺序，以方便程序设计。为此，该系统提供了 一些特殊的程序流程控制结构。后面给出了几个常用的流程控 制函数。
3
1、自定义函数
定义函数使用的符号是:= 定义符号的是函数名和方括号里说明的自变量，右边是函数的 定义表达式，说明函数值应当如何从函数自变量的值计算出来。 用户应特别注意在定义式左边方括号里自变量名后面的 _ （下划线符号），在系统里这个符号叫做空白 。 自变量名后面的空白符号是必须的，它应该紧跟在自变量名的 后面，中间不能有空格。如定义函数：,并求f(2,6)的值。 如： fas[x_,y_]:=x^2+y fas[2,6]
7
3、条件和分支结构 Mathematica 中经常用到的条件和分支结构的函数如下： 函数及其表达式 函数功能说明 Lhs:=Rhs/:text 当 text 为 True 的时候，使用定义 If[test,then,else,unknow] 当 text 为 True 时，执行 then ，否则执行 else, 不清楚的执行 unknow Which[test1,value1,test2,value2,…] 依次计算 testi 的值，返回第一个为 Ture 的 testi 对应的 valuei Switch[expr,form1,value1,form2,…] 先计算 expr 的值，然后依次与 formi 比较，返回第一个匹 配的 formi 对应的 valuei, 如果没有与之匹配的就返回 Null
22
【实验目的】 巩固和理解微分方程理论及其应用。 【预备知识】 常微分方程理论和Mathematica解方程的命令。 【实验内容与要求】 （1）根据问题建立数学模型。 （2）根据数学模型求解的结果，判断这种处理废料的方法是 否合理。