mathematica数学实验报告

合集下载

mathematica数学实验报告

mathematica数学实验报告

mathematica数学实验报告本次实验使用Mathematica进行数学建模实验,主要包括以下内容:三角函数、极限和导数、积分和微分方程。

一、三角函数1. 三角函数的绘制使用Mathematica的Plot函数绘制正弦函数和余弦函数的图像。

代码:Plot[{Sin[x], Cos[x]}, {x, -2 Pi, 2 Pi},PlotStyle -> {Blue, Red}, PlotTheme -> "Web"]结果:![trigonometric_functions.png](2. 求三角函数的值使用Mathematica的N函数计算正弦函数和余弦函数在不同角度下的取值。

代码:N[Sin[Pi/6]]N[Cos[Pi/6]]N[Sin[Pi]]N[Cos[Pi]]结果:0.50.8660251.22465*10^-16-1.二、极限和导数1. 求函数的极限使用Mathematica的Limit函数计算函数x^2/(4-x)在x趋近于4时的极限。

代码:Limit[x^2/(4 - x), x -> 4]结果:82. 求函数的导数使用Mathematica的D函数计算函数x^3 - 3x的导数。

代码:D[x^3 - 3x, x]结果:3 x^2 - 3三、积分和微分方程1. 求定积分使用Mathematica的Integrate函数计算函数e^x * cos(x)在0到π/2之间的定积分。

代码:Integrate[E^x * Cos[x], {x, 0, Pi/2}]结果:1/2 (1 + E^(π/2))2. 解微分方程使用Mathematica的DSolve函数求解微分方程y''(x) + 4y(x) = 0。

代码:DSolve[y''[x] + 4 y[x] == 0, y[x], x]结果:y[x] -> C[1] Cos[2 x] + C[2] Sin[2 x]本次实验使用Mathematica进行数学建模实验,主要包括三角函数的绘制、求三角函数的值,函数的极限、导数,积分和微分方程等内容。

mathematica 数学实验报告

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数学实验报告实验四

mathematica数学实验报告实验四

数学实验报告实验四学院:数学与统计学院班级:信息与计算科学(1)班姓名:郝玉霞学号: 7实验四一、实验名称:数列与级数二、实验目的:1、通过使用编程复习并巩固以前学过的数列与级数的知识;2、通过编程演示Fabonacci数列、调和级数以及3n+1问题的函数图象及函数关系式;3、通过图示的方法发现数列与级数的规律及其极限行为,并体会数列与级数在理论与实际应用中的差距;4、通过上机来增强自己的动手能力及实践创新能力。

三、实验环境:学校机房,Mathematica4.0软件四、实验基本理论和方法:1、Mathematica中常用的函数及函数调用的方法;2、对Fabonacci数列、调和级数以及3n+1问题规律的掌握。

五、实验的内容、步骤和结果分析内容一:Fibonacci数列练习1、实验内容:分别取N=20,50,100,200,500,观察Fibonacci数列的折线图。

Fibonacci数列是否单调增?它是否趋于无穷?它增加的速度是快还是慢?你能否证实你的观察?实验步骤:方法一:画Fibonacci数列的折线图语句1:n20;FibShow n_IntegerModulet,i,For i1,i n,i,AppendTo t,i,Fibonacci i;ListPlot t,PlotJoined True结果:图一:N=20时,Fibonacci数列的折线图语句2:n50;FibShow n_IntegerModulet,i,For i1,i n,i,AppendTo t,i,Fibonacci i;ListPlot t,PlotJoined True结果:6108510841083108210811081020304050图二:N=50时,Fibonacci数列的折线图语句3:n 100;FibShow n_IntegerModule t ,i ,For i1,in,i,AppendTo t,i,Fibonacci i;ListPlot t,PlotJoinedTrue结果:2040608010051016110171.51017210172.51017图三:N=100时,Fibonacci 数列的折线图语句4:n200;FibShow n_IntegerModule t ,i ,For i1,in,i,AppendTo t,i,Fibonacci i;ListPlot t,PlotJoinedTrue结果:5010015020051033110341.51034210342.5103431034图四:N=200时,Fibonacci数列的折线图语句5:n500;FibShow n_IntegerModulet,i,For i1,i n,i,AppendTo t,i,Fibonacci i;ListPlot t,PlotJoined True结果:210861.510861108651085100200300400500图五:N=500时,Fibonacci数列的折线图结果分析:从实验得出的五个图像可以看出,Fibonacci数列得变化速度非常快,数列单调递增而且趋于无穷大。

mathematica实验报告5张西西

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数学实验报告 实验三

Mathematica数学实验报告   实验三

数学实验报告实验三学院:数学与统计学院班级:信息与计算科学(1)班姓名:郝玉霞学号:201171020107实验三一、实验名:最佳分数近似值二、实验目的:研究怎样用分数近似值去给定的无理数作最佳逼近。

“最佳”就是既要误差小,又要分母小。

我们首先需要对“最佳”定出具体而明确的标准,还要寻找一个求最佳分数近似值的简单易行的算法。

三、实验环境:学校机房,Mathematica 软件。

四、实验的基本理论和方法:1、根据高中数学及大学数学中所学内容,经过分析研究,得出基本结论,利用Mathematica 来进行验证,并寻找一个求最佳分数近似值的简单易行的算法。

2、计算圆周率π“连分数展开”方法,并且利用特定的函数来展开其他数。

五、实验的内容和步骤实验步骤: 1、计算对数值对给定的正实数b ,N 且b ≠1,要求对数值a=N b log ,也就是求实数a 使a b =N ,如果能找到整数p ,q 使q pN b≈,则N b qp ≈,N b log qp≈,以lg2为例:由102=1024≈1000=310可得lg2≈103=0.3,再要提高精确度,就要找出更大的q 使q2更接近10的某个幂q10,也就是使p q32更接近于1。

练习题1:让q 依次取遍1到10000的所有的正整数,对每一个q ,按如下的递推法则求出一个正整数p=p(q)使实数p qq 102)(=λ最接近于1:q=1时,p(1)=0,λ(1)=01102=2.设已对q 求出p(q)和λ(q),计算2λ(q),如果2λ(q)<10,则取p(q+1)=p(q),λ(q+1)=2λ(q),如果2λ(q )≥10,则取p(q+1)=p(q)+1,λ(q+1)=10)(2q λ. 如果λ(q)比以前所有的λ(i)(11-≤≤q i )都更接近1,即|λ(q)-1|<|λ(i)-1|对所有3、Mathematica 中常用的展开数与多项式的函数的使用;的1≤i ≤q-1成立,就取qp都是最佳逼近lg2的的分数近似值,它们可以展开成小数近似值。

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 软件的基本功能和操作方法,通过实际的案例和问题解决,提升运用 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` 。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

高等数学实验报告
实验一
一、实验题目
1:作出各种标准二次曲面的图形
ParametricPlot3D Sin u Sin v,Sin u Cos v,Cos u ,u,0,Pi ,v,0,2Pi,P
Graphics3D
ParametricPlot3D u Sin v,u Cos v,u^2,u,0,2,v,0,2Pi,PlotPoints30
Graphics3D
ParametricPlot3D u,v,u^2v^2,u,2,2,v,2,2,PlotPoints30
Graphics3D
ParametricPlot3D Sec u Sin v,Sec u Cos v,Tan u,u,Pi4,Pi4,v,0,2
Graphics3D
t1ParametricPlot3D u^21Sin v,u^21Cos v,u,u,1,5,v,0,2Pi t2ParametricPlot3D u^21Sin v,u^21Cos v,u,u,5,1,v,0,2 show t1,t2
Graphics3D
Graphics3D
show Graphics3D,Graphics3D
ParametricPlot3D u Cos v,u Sin v,u,u,6,6,v,0,2Pi,PlotPoints60
Graphics3D
2:作出曲面所围的图形
t1ParametricPlot3D
Sin u Sin v,Sin u Cos v,Cos u,
u,Pi2,pi2,v,0,2Pi,PlotPoints60
t2ParametricPlot3D0.5Cos u12,0.5Sin u,
u,0,2Pi,v,0,2Pi,PlotPoints60
t3Plot3D0,PlotPoints60
show t1,t2,t3
二、实验目的和意义
方法的理论意义和实用价值。

如利用数形结合的方法观察数列的极限,可以从点图上看出数列的收敛性,以及近似地观察出数列的收敛值;通过编程可以输出数列的任意多项值,以此来得到数列的收敛性。

通过此实验对数列极限概念的理解形象化、具体化。

三、计算公式
请写出在程序中所需要的计算公式。

比如定积分的数值计算中,如用梯形法计算的,请描述梯形法的公式。

四、程序设计
五、程序运行结果
六、结果的讨论和分析
如初值对结果的影响;不同方法的比较;该方法的特点和改进;整个实验过程中(包括程序编写,上机调试等)出现的问题及其处理等广泛的问题,以此扩大知识面和对实验环节的认识。

相关文档
最新文档