mathematica-8

1热度

2回答

我希望用户输入矩阵。我有下面的代码。 rmatrix = {{Input["r11"], Input["r12"]}, {Input["r21"], Input["r22"]}} 但它显示了每个项目的单独对话框。我想在一个对话框中获得完整的矩阵。我也试过用另一种方法。检查下面的代码。 form = FormFunction[{{"r11" -> "Number", "r12" -

2热度

1回答

SVD-like矩阵变换（等级标准形式）

我正在MATLAB中实现一篇研究论文，并遇到了一个矩阵变换，我不知道如何在MATLAB中完成。这， P*L*Q = [I O] 其中P，Q是变换矩阵，L是给定矩阵，I，O是身份和零分别矩阵。任何人都可以帮助我通过一些函数或算法在MATLAB中做到这一点，所以我可以通过我的代码实现这个吗？

1热度

1回答

在Mathematica中绘制最佳曲线

我会问你的善意援助。我目前正在试图绘制我生成的一组点的最佳曲线（它可能是指数，对数，双曲线等）。到目前为止，我一直在使用这种类型的代码： Show[ListPlot[ L, {PlotRange -> {{0, 3}, {0, 50}}, PlotStyle -> {PointSize[Tiny]}, Frame -> True, FrameStyle -> Dire

0热度

1回答

LaguerreL在枫叶中的计算问题

我正在计算Maple中的LaguerreL(n, a x)，但是发生了问题。它适用于小数和分数，我认为。含义，它适用于LaguerreL(m,n,0.5)而不适用于LaguerreL(m,n, 1/2)。它不应该适用于两者吗？不计算负值a的值。 LaguerreL(3.0, 2.0, 2.0) = -1.33333333333 但是， LaguerreL(3.0, -2.0, 2.0)

2热度

1回答

数学最大列表

我有这种形式的列表： {{1.39339, 11.5378}, {1.38379, 11.5362}, {1.37495, 11.5342}, {1.36668, 11.5319}, {1.35878, 11.5295}, {1.35199, 11.527}, {1.34565, 11.5246}, {1.34034, 11.5222}, {1.33551, 11.52}, {1.33128,

1热度

1回答

我不想在数学中的ContourPlot3D中使用box。盒装 - > False不能正常工作

mathematica中的ContourPlot3D在盒子内产生图。当我设置“盒装 - >错误”时，它不能正常工作，盒子不会完全消失。 PLZ的帮助，我很着急，不要骂。代码我使用生成一个球体： Show[ContourPlot3D[ x^2 + y^2 + z^2 == 25, {x, -5, 5}, {y, -5, 5}, {z, -5, 5}], Boxed -> False]

0热度

2回答

如何从下三角矩阵得到元素列表

我是Mathematica的新手。我有一个下三角矩阵定义为遵循 A = Table[If[i > j, Subscript[a, i, j], 0], {i, s}, {j, s}]; 我想在一个列表中的下三角元素。例如，当s = 2，该列表将包含listOfElement = {a_{2,1}}和s = 3，listOfElement = {a_{2,1},a_{3,1},a_{3,2}} 我

0热度

1回答

保存变量求解结果

我正在为2个变量求解下列方程。 Solve[{2*x1* y1 + 2*k*x3*y3 + (Sqrt[2 + q])*x1 == m1, 2*x1*y3 - 2*x3*y1 - (Sqrt[2 + q])*x3 == m2}, {x1, x3}] 输出OD的代码是 {{X1 - >61分之18，X3 - > - （61分之15）}} 我怎样才能保存在2个独立的变量这些输出。

0热度

1回答

绘制一个无限势阱（双阱）

我一直在试图绘制一个具有3个区域的分段势函数的双阱势图，但是我的代码没有正确地绘制我正在寻找的东西。这是我走到这一步：正如你可以在这两个势阱之间的屏障中间看到的情节开始。它应该在vL之前的障碍开始，但不是。任何帮助都可以，谢谢！

1热度

1回答

根据未知常数求解方程wolfram mathematica

我想解下面的方程。我想用未知常量alpha和beta来表达x的表达式。有谁知道如何在Matlab或Mathematica中解决这个问题？谢谢。这是我在wolfram Mathematica中的一行代码。 'Assuming[alpha>beta>0,Solve[Cos(alpha*Cos(x)) + Cos(beta*Cos(x)) -1.96 ==0,x]] '