mathematica代码大全
@帅冯2788：Mathematica解四元二次方程组,结果太大了,怎么回事? -
郁要13728363580…… 因为在你的代码里,未知数是Dx, Dy, Ex, Ey,而Bx,By,Cx是字母常数,不是数字常数,Mathematica已无法把未知数表示为更为简单明了的形式了.也就是说,Mathematica给出的解答事实上已经是最简单的形式了,无法再化简了--除非你给Bx,By,Cx赋予具体的数值(你不妨试一下就知道了).因而也是完全正确的解答.
@帅冯2788：Mathematica解四元二次方程组,结果太大了,怎么回事?我要解一个四元二次方程组,我用的代码是:\(Solve[{\((Dx - Ex)\)\^2 + \((Dy - Ey)\)\^2 - 1400\^2 == ... - 作业帮
郁要13728363580…… [答案] 因为在你的代码里,未知数是Dx,Dy,Ex,Ey,而Bx,By,Cx是字母常数,不是数字常数,Mathematica已无法把未知数表示为更为简单明了的形式了.也就是说,Mathematica给出的解答事实上已经是最简单的形式了,无法再化简了--除非你给Bx,By,Cx赋...
@帅冯2788：大学数学实验,mathematica,求助这个题的代码. -
郁要13728363580…… Mathematica系统自带的函数Fibonacci[n]帮你自动生成第n个Fibonacci数,所有直接调用这个函数生成Fn,Gn,Rn.Fn=Table[Fibonacci[n],{n,1,50}];Gn=Table[Fibonacci[n]/Fibonacci[n+1],{n,1,50}];Rn=Table[Log[Fibonacci[n]],{n,1,50}];散点图ListPlot[{Fn,Gn,Rn}]折线图图ListPlot[{Fn,Gn,Rn},Joined->True]
@帅冯2788：用Mathematica编写程序,计算 limn→∞(1+1/n)^n的近似值
郁要13728363580…… 其原理是:( 1+1/n )^n = 1+ 1+ 1/2!+ 1/3!+1/4!+1/5!+1/6!+ … + 1/n!Mathematica程序如下(默认取n=10,10!=360万,已经很大了): n = 10; y1 = 1.0; y = 1.0; For[i = 1, i <= n, i++, For[j = 1, j <= i, j++, y1 = y1*j;]; y = y + 1.0/y1; ] Print[＂近似值为: ＂, y, ＂ 误差为: ＂, E - y];运行结果如下:近似值为: 2.58683 误差为: 0.131447
@帅冯2788：数学软件mathematica怎么画图啊?非常的急!!!
郁要13728363580…… 用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}”...
@帅冯2788：mathematica 画出部分球面图形的有关代码 -
郁要13728363580…… S球冠面积=2πR hS球面面积=2πR 2 R1) 画出3/4球面3/4球面,对应的v = 5/6 πParametricPlot3D[{Sin[v]*Cos[u], Sin[v]*Sin[u], Cos[v]}, {v, 0, 5/6 Pi}, {u, 0, 2*Pi}]2)画出上半球面的3/4部分上半球面的3/4部分,对应的v = 1.31812ParametricPlot3D[{Sin[v]*Cos[u], Sin[v]*Sin[u], Cos[v]}, {v, 0, 1.31812}, {u, 0, 2*Pi}]
@帅冯2788：有没有大神可以帮忙看一下这个mathematica程序,想把一系列曲线画在同一个图中.程序如下 -
郁要13728363580…… 这样就可以了 a=5; Show[Table[ ContourPlot[(3*Sqrt[x^2 + z^2] - a^2/(Sqrt[x^2 + z^2]))* x^2/(x^2 + z^2) == c, {x, 0, 20}, {z, 0, 20}], {c, 0.01, 1, 0.1}]] mathematica做循环的时候最好使用table,少用while. 把很多个图放在一起,用show函数.
@帅冯2788：Mathematica 有哪些不如 MATLAB 的地方 -
郁要13728363580…… 1 Mathematica没有workspace,查看已定义变量不是太方便. 2 Mathematica的debug功能让人蛋疼. 3 Mathematica不支持OOP(面向对象编程). 4 Mathematica是黑箱,用户无法看到函数代码,也无法修改代码,而MATLAB大部分函数是有源代码的,可以看到代码,可以修改代码.Mathematica 有哪些不如 MATLAB 的地方? - Wolfram Mathematica - 知乎 https://www.zhihu.com/question/36143989
@帅冯2788：如何用最简单的代码说明Mathematica里面的各个水平层次 -
郁要13728363580…… 你去下载 matlab软件.这个软件有点大,但是下载好以后很有用,在里面输入:A = [这里面是你的判断矩阵,行之间用英文分号分开,同一行的数据之间用空格即可]; [x, y] = eig(A); eigenvalue = diag(y); lamda = eigenvalue(1) y_lamda = x(:, 1)然后打回车,最上方显示的记为最大特征值.
@帅冯2788：求一段matlab代码,高分送上 -
郁要13728363580…… mathematica的解法要不要……在mathematica下很容易做到,说白了就是判你那式子的最大值和最小值:Minimize[{n0/n1 - n0/n3 + n1/n2 - 1, 0.1 < n0 < 0.8 && 0.05 < n1 < n0 && 0.05 < n2 < n1 && 0.05 < n3 < n2}, {n1, n2, n0, n3}]解出:{-15., {...
郁要13728363580…… 因为在你的代码里,未知数是Dx, Dy, Ex, Ey,而Bx,By,Cx是字母常数,不是数字常数,Mathematica已无法把未知数表示为更为简单明了的形式了.也就是说,Mathematica给出的解答事实上已经是最简单的形式了,无法再化简了--除非你给Bx,By,Cx赋予具体的数值(你不妨试一下就知道了).因而也是完全正确的解答.
@帅冯2788：Mathematica解四元二次方程组,结果太大了,怎么回事?我要解一个四元二次方程组,我用的代码是:\(Solve[{\((Dx - Ex)\)\^2 + \((Dy - Ey)\)\^2 - 1400\^2 == ... - 作业帮
郁要13728363580…… [答案] 因为在你的代码里,未知数是Dx,Dy,Ex,Ey,而Bx,By,Cx是字母常数,不是数字常数,Mathematica已无法把未知数表示为更为简单明了的形式了.也就是说,Mathematica给出的解答事实上已经是最简单的形式了,无法再化简了--除非你给Bx,By,Cx赋...
@帅冯2788：大学数学实验,mathematica,求助这个题的代码. -
郁要13728363580…… Mathematica系统自带的函数Fibonacci[n]帮你自动生成第n个Fibonacci数,所有直接调用这个函数生成Fn,Gn,Rn.Fn=Table[Fibonacci[n],{n,1,50}];Gn=Table[Fibonacci[n]/Fibonacci[n+1],{n,1,50}];Rn=Table[Log[Fibonacci[n]],{n,1,50}];散点图ListPlot[{Fn,Gn,Rn}]折线图图ListPlot[{Fn,Gn,Rn},Joined->True]
@帅冯2788：用Mathematica编写程序,计算 limn→∞(1+1/n)^n的近似值
郁要13728363580…… 其原理是:( 1+1/n )^n = 1+ 1+ 1/2!+ 1/3!+1/4!+1/5!+1/6!+ … + 1/n!Mathematica程序如下(默认取n=10,10!=360万,已经很大了): n = 10; y1 = 1.0; y = 1.0; For[i = 1, i <= n, i++, For[j = 1, j <= i, j++, y1 = y1*j;]; y = y + 1.0/y1; ] Print[＂近似值为: ＂, y, ＂ 误差为: ＂, E - y];运行结果如下:近似值为: 2.58683 误差为: 0.131447
@帅冯2788：数学软件mathematica怎么画图啊?非常的急!!!
郁要13728363580…… 用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}”...
@帅冯2788：mathematica 画出部分球面图形的有关代码 -
郁要13728363580…… S球冠面积=2πR hS球面面积=2πR 2 R1) 画出3/4球面3/4球面,对应的v = 5/6 πParametricPlot3D[{Sin[v]*Cos[u], Sin[v]*Sin[u], Cos[v]}, {v, 0, 5/6 Pi}, {u, 0, 2*Pi}]2)画出上半球面的3/4部分上半球面的3/4部分,对应的v = 1.31812ParametricPlot3D[{Sin[v]*Cos[u], Sin[v]*Sin[u], Cos[v]}, {v, 0, 1.31812}, {u, 0, 2*Pi}]
@帅冯2788：有没有大神可以帮忙看一下这个mathematica程序,想把一系列曲线画在同一个图中.程序如下 -
郁要13728363580…… 这样就可以了 a=5; Show[Table[ ContourPlot[(3*Sqrt[x^2 + z^2] - a^2/(Sqrt[x^2 + z^2]))* x^2/(x^2 + z^2) == c, {x, 0, 20}, {z, 0, 20}], {c, 0.01, 1, 0.1}]] mathematica做循环的时候最好使用table,少用while. 把很多个图放在一起,用show函数.
@帅冯2788：Mathematica 有哪些不如 MATLAB 的地方 -
郁要13728363580…… 1 Mathematica没有workspace,查看已定义变量不是太方便. 2 Mathematica的debug功能让人蛋疼. 3 Mathematica不支持OOP(面向对象编程). 4 Mathematica是黑箱,用户无法看到函数代码,也无法修改代码,而MATLAB大部分函数是有源代码的,可以看到代码,可以修改代码.Mathematica 有哪些不如 MATLAB 的地方? - Wolfram Mathematica - 知乎 https://www.zhihu.com/question/36143989
@帅冯2788：如何用最简单的代码说明Mathematica里面的各个水平层次 -
郁要13728363580…… 你去下载 matlab软件.这个软件有点大,但是下载好以后很有用,在里面输入:A = [这里面是你的判断矩阵,行之间用英文分号分开,同一行的数据之间用空格即可]; [x, y] = eig(A); eigenvalue = diag(y); lamda = eigenvalue(1) y_lamda = x(:, 1)然后打回车,最上方显示的记为最大特征值.
@帅冯2788：求一段matlab代码,高分送上 -
郁要13728363580…… mathematica的解法要不要……在mathematica下很容易做到,说白了就是判你那式子的最大值和最小值:Minimize[{n0/n1 - n0/n3 + n1/n2 - 1, 0.1 < n0 < 0.8 && 0.05 < n1 < n0 && 0.05 < n2 < n1 && 0.05 < n3 < n2}, {n1, n2, n0, n3}]解出:{-15., {...
