本文目录索引 1,如何用matlab求积分 2,如何用Mathematica计算积分 3,如何用Mathematica计算积分 4,mathematica中如何把For循环产生的三维维数据导出到txt文件中 5,Mathematica能不能运用拉普拉斯变换解偏微分方程??如果能,如何运用啊?求大神指教 6,m
本文目录索引
- 1,如何用matlab求积分
- 2,如何用Mathematica计算积分
- 3,如何用Mathematica计算积分
- 4,mathematica中如何把For循环产生的三维维数据导出到txt文件中
- 5,Mathematica能不能运用拉普拉斯变换解偏微分方程??如果能,如何运用啊?求大神指教
- 6,mathematica 带入式子
- 7,数学软件mathematica怎么画图啊?非常的急!!!
- 8,mathematica中出现的问题,怎么回事啊
- 9,在mathematica中循环语句的问题
- 10,如何在 Linux 上安装 Mathematica
1,如何用matlab求积分
1、在matlab中,积分运算有多种方式,为了便于查看不同方式处理异同,以下面这个积分为例: 2、梯形积分法 第一种,采用最简单的方式,以函数trapz为例,z = trapz(x,y) 其中x表示积分区间的离散化向量,y是与x同维数的向量,表示被积函数,z是返回的积分近似值。 clc;clear; % 梯形积分法 x = -1:0.001:1; y = exp(-x.^2); s = trapz(x,y) % 计算结果: s = 1.4936 3、高精度数值积分(1) 为了克服梯形积分法精度低的问题,可以采用高精度积分方式,第一种可以采用 z = quad(Fun,a,b) 该方式是自适应步长Simpson计分法求得函数Fun在区间[a,b]上定积分,如下: clc;clear; % 梯形积分法 s = quad(inline('exp(-x.^2)'),-1,1) % 计算结果: s = 1.4936 4、高精度数据积分(2) 采用高精度Lobatto积分法,格式: z = quadl(Fun,a,b) clc;clear; % 梯形积分法 s = quadl(inline('exp(-x.^2)'),-1,1) % 计算结果: s = 1.4936 % 注:在编写完代码后,要按如下图红色箭头所指处运行程序才会有输出!
2,如何用Mathematica计算积分
用Integrate函数.
求不定积分:
Integrate[被积函数, 自变量]
例:
In[1]:= Integrate[1/(x^3 + 1), x]
Out[1]:= ArcTan[(-1 + 2 x)/Sqrt[3]]/Sqrt[3] + 1/3 Log[1 + x] - 1/6 Log[1 - x + x^2]
求定积分:
Integrate[被积函数, {自变量, 积分下限, 积分上限}]
例:
In[1]:= Integrate[1/(x^3 + 1), {x, 0, 1}]
Out[1]:= 1/18 (2 Sqrt[3] \[Pi] + Log[64])
求重积分:
Integrate[被积函数, {自变量1, 积分下限1, 积分上限1}, {自变量2, 积分下限2, 积分上限2}, …]
例:
In[1]:= Integrate[Sin[x y], {x, 0, 1}, {y, 0, x}]
Out[1]:= 1/2 (EulerGamma - CosIntegral[1])
此外还有求数值积分用的函数NIntegrate
例:
In[1]:= NIntegrate[Sin[Sin[x]], {x, 0, 2}]
Out[1]:= 1.24706
3,如何用Mathematica计算积分
数学积分有的时候真的很变态,还好我们有Mathematica这个无比强大的数学工具!定积分不定积分都可以计算。
工具/原料
Mathematica
WolframAlpha
Mathematica
1
打开Mathematica,输入“Integrate[(Cos[x]^2 - Sin[x])/Cos[x]/(1 + Cos[x] E^Sin[x]), x]”,注意不包含双引号,英文状态下输入。
按Shift+Enter就可以得到结果了。点击“更多”还会有其它诸如绘图、求极值等功能。
2
如果你觉得输入“Integrate[(Cos[x]^2 - Sin[x])/Cos[x]/(1 + Cos[x] E^Sin[x]), x]”显得不直观,没关系,符号是Mathematica最擅长的!
打开“数学助手”,图中标出的一个为不定积分,另一个为定积分。
3
从“数学助手”面板中选择需要的符号组成直观的表达式,然后Shift+Enter,结果秒出!
4
什么,你觉得Mathematica只能帮你求出结果?从结果倒过来求导不就是完整的积分过程么?下面这张图就是更具结果倒推过来的!
END
WolframAlpha
1
我的电脑上没有安装Mathematica怎么办?没关系,这货还有更强大的在线版,不过它叫WolframAlpha。经验不让贴网址,自行百度/谷歌WolframAlpha,基本上第一条就是。
2
这是一个神奇的网站!在搜索框里输入“Integrate[(Cos[x]^2 - Sin[x])/Cos[x]/(1 + Cos[x] E^Sin[x]), x]”,回车!它帮你搞定一切!
3
看到没有,它帮你把积分算出来了,还帮你把图像画出来了,甚至还帮你表示成复数的形式,碉堡了!
END
注意事项
这么强大的工具,一定不要独享!
4,mathematica中如何把For循环产生的三维维数据导出到txt文件中
用Export就行了。示例:
Table[i j k, {i, 1, 5}, {j, 1, 5}, {k, 1, 5}]
Export["shuzu.txt", %]
这样就把用Table产生的这个三维数组弄到shuzu.txt里面了。至于保存的路径嘛,用Directory指令:
Directory[]
要改储存路径的话就先执行SetDirectory,比如:
SetDirectory["D:\\文字"]
这样就把路径改到D盘的文字路径下面了。
5,Mathematica能不能运用拉普拉斯变换解偏微分方程??如果能,如何运用啊?求大神指教
您好,这样的:
确切地说,应该是它的反变换不能用初等函数(以及Mathematica内置的某些特殊函数)的有限次复合来表达。这很正常啊,就和无理数发明之前我们没法表达根号2,虚数发明之前我们没法表达x^2+1==0的根,不定义误差函数 。
如果你依旧指的是解析式的话,那么,很可能。当然了,这种事最好还是试试,不过我刚试了几组值,结果是不行。
如果只是要数值结果的话,用我上面的程序包。
6,mathematica 带入式子
mathematica中的带入式子叫做模式替换,运算符是斜杠点 比如你有个式子(a + b + c)/(2 a + b + c), 想把a=R*Cos[x + y]带入进去,就这么写 (a + b + c)/(2 a + b + c) /. {a -> R*Cos[x + y]} ------>嘿,注意这里的斜杠点 输出 (b + c + R Cos[x + y])/(b + c + 2 R Cos[x + y]) 另外,你的mathematica的图贴的真小,看得费劲死了,你可以点中你的程序右边的cell,就是那个小框,选中之后会变成蓝色,然后按Alt再按加号,就可以把式子调大了,Alt按减号就是减小字体。
7,数学软件mathematica怎么画图啊?非常的急!!!
用ParametricPlot命令来画图。代码如下,
r = 1;
ParametricPlot[{r a - r Cos[a], -r + r Sin[a]}, {a, -2 Pi, 2 Pi}]
大小写不可搞错。已测试,直接拷贝到Mathematica窗口按Shift+Enter运行就是了。
r赋值为几都可以,形状不变的。
注意“{a, -2 Pi, 2 Pi}”给出了参数的取值范围。楼主可以试着修改。
Pi在Mathematica中代表圆周率π。
默认的坐标是黄金分割比例。加一个命令可以调比例,如
r = 1;
ParametricPlot[{r a - r Cos[a], -r + r Sin[a]}, {
a, -2 Pi, 2 Pi}, AspectRatio -> 1]
"AspectRatio"后面的数表示高宽比例,越大则图形越瘦长。
你想画哪一点的切线?算出来参数方程之后再画图就是了。如果你不会告诉我在哪一点画切线我再帮你画。
真是懒,算了算了,帮人帮到底。
切线方程我也帮你算了,这样以下两个就是你要的图和切线图,
fig1 := ParametricPlot[{a - Cos[a], -1 + Sin[ a]}, {a, -2 Pi, 2 Pi}, AspectRatio -> 1];
f[a_] := Plot[Cos[a]/(1 + Sin[a])(x - a + Cos[a]) - 1 + Sin[a], {x, -10, 10}];
首先运行这两个式子。然后运行下面这个式子可以看图和切线,比如
Show[fig1, f[2]];
是在一张图上同时画出图形和在x=2处的切线。你可以自己调整f后面方括号里的值,看你想要的点的切线。
8,mathematica中出现的问题,怎么回事啊
……你只给一幅图不太好判断。你可以试试在你的输入后面加个 //FullForm 再执行看看是什么形式,若是出现特殊式子再贴出来。
单从你这幅图来看,似乎你采用了TraditionalForm作为输入形式?你重设了输入单元的显示形式吗?那请务必改为默认的StandardForm形式或是InputForm形式,TraditionalForm虽然看起来像传统数学表达式,但是可能导致式子没法正确计算。然后这个警告信息……难道说……你按一下F1看看能不能正常打开帮助?你用的是什么版本?如果是中文版,那帮助是不是中文的?
9,在mathematica中循环语句的问题
LZ你前面的定义有些问题,B1、B2等需要写作B[1]、B[2]这样的形式,最后循环那段这么写就好(用的Do,这里感觉Nest不太方便)
Do[p[i] = \!\(
\*UnderoverscriptBox[\(\[Sum]\), \(k =
1\), \(16\)]\((\(\(NDSolveValue[{\(y'\)[x] == R . y[x],
y[0] == Table[
Tr[V . p[i - 1] . ConjugateTranspose[V] . B[k]]/4, {k,
16}]}, y, {x, 0, 2}]\)[1.5]\)[\([k]\)]*B[k])\)\), {i, 1,
50}]; p[50]//Chop
{{-1057.12, 0, 0, 0}, {0, -11.2151, 0, 0}, {0, 0, 379.48, 0}, {0, 0,
0, 689.859}}
NDSolveValue的好处就是不用替换直接得到结果...
另外不保证不会由于误差累计导致最后结果总误差较大
10,如何在 Linux 上安装 Mathematica
首先要搞懂一点:Windows和Linux是互不兼容的。凡是Windows能用的软件,Linux都不能用;凡是Linux能用的软件,Windows也都不能用。在Windows中,安装程序的扩展名是.exe或者.msi,在Linux中安装程序的扩展名是rpm和deb。当然,在Linux中安装Wine来运行Windows程序,在Windows中安装andLinux来运行Linux程序,是可以的。这种做法不是正常的做法,有点虚拟化技术。请不要随便使用。Linux有两大系列:Red Hat 系列:Red Hat、CentOS、Fedora、红旗LinuxDebian系列:Debian、Ubuntu、LinuxMint、LinuxDeepin在 Red Hat 系列中,安装程序是.rpm;在Debian系列中,安装程序是.deb。自己找到安装程序,用鼠标双击安装就是了。如果你联网的话,还可以使用软件仓库中中记录的软件,不过必须在线安装,方法如下:在 Red Hat 系列中,在终端键入 “sudo yum install 软件名”来在线下载安装软件。在 Debian 系列中,在终端键入 “sudo apt-get install 软件名”来在线下载安装软件。Linux的软件还有一个办法,就是找到源代码,编译安装。这个可能比较复杂,如果你不是Linux程序员,那就忽略这个方法吧。
下一篇:没有了