自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(4)
  • 收藏
  • 关注

原创 实验四:泰勒公式与函数逼近

cosx泰勒公式的图像展示一.固定x0=0,观察n对其影响1.代码:t = Table[Normal[Series[Cos[x], {x, 0, i}]], {i, 1, 13, 2}];PrependTo[t, Sin[x]];Plot[Evaluate[t], {x, -Pi, Pi}]2.运行结果:二.做出原图与泰勒展开结果的比较图1.代码:For[i = 1, i &l...

2019-12-10 17:30:57 816

原创 数学实验三(mathematica)在一个坐标系做多张图

多个函数图像在一个坐标系里的实现一.题目:做sin(cx)图像,c取不同值说明其对函数影响二.代码:t1 = Plot[Sin[x], {x, -10, 10}, PlotStyle -> RGBColor[0, 1, 0]]t2 = Plot[Sin[2 y], {y, -10, 10}, PlotStyle -> RGBColor[1, 0, 0]]t3 = Plot[...

2019-12-10 16:48:15 5973 2

原创 Mathematica数学实验二:切线迭代法求方程根

二.牛顿法求方程近似解1.题目:2.代码:f[x_] := x^2 + Sqrt[x] - 3;a = 1; b = 2; dalta = 10^(-6); k0 = 10; m = Min[f’[a], f[b]];If[f[a]f’[a] > 0, x0 = a, x0 = b];Do[x = x0 - f[x0]/f’[x0];Print[N[x, 17], " ...

2019-12-10 00:37:44 2351 3

原创 Mathematica 高数一年级作业教学 实验一:观察极限

Mathematica 高数一年级作业教学观察数列极限待续一.观察数列极限1.题目:通过作图,观察重要极限:lim(1+1/n)^n (n趋于无穷) (就是那个最容易的e)2.代码:an = {(1 + (1/1))^1, (1 + (1/2))^2, (1 + (1/3))^3};Do[an = Append[an, (1 + (1/i))^i];t = L...

2019-12-10 00:00:43 745 1

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除