我正试图用DateListPlot绘制一个时间序列。我想给它提供一个从SQL数据库获取的时间序列。当我检索时间序列时，列表由SQLDateTime条目组成，而DateListPlot无法理解这些条目 在[24]：=t=SQLExecute[conn，“按时间戳asc选择时间戳，时间序列顺序中的值”] Out[24]={{SQLDateTime[{2010,1,1}]，12.3}，{SQLDateTime[{2010,1,2}]，12.51} 不起作用： In[25]：=DateListPlot[

我的大多数个人软件包只是一个m文件，比如说Foo.m，但它们通常以Foo/Foo.m结束，这样我就可以在Foo目录中存储相关的测试和注释。为了让包只加载，我不太确定是否理解您的问题，但这里还是有一个猜测 你试过类似的东西吗 packagename = StringDrop[DirectoryName[$Input], -1] 在你的第一行 编辑：供将来参考 经过Janus测试，正确的表达式是： packagename=StringDrop[$Input,-2] 因此，您需要一些能够自我意

由于[例如，PointSize[Large}，PointSize[0.5]），我想知道以相对方式更改PointSize[]，Thickness[]等是否可行 也就是说，为什么PointSize[large]不起作用？或者可以通过某种方式查询现有的PointSize，或者执行类似于PointSize[1.25*GetPointSize[]]的操作（如果类似于“GetPointSize[]”的操作，我还无法解决这个问题）存在，既不快速查看文档，也不快速反向工程查看PointSize[x]）Mathe

如果我有一些函数y[x]：=ax+b（只是一个例子），我如何在Mathematica中获得x[y]：=（y-b）/a？我尝试了InverseFunction，Collect，但都不起作用。 具体而言，该行： 在数学中，逆函数是 用逆函数[f]表示 将其视为一个方程，并使用求解 In:=Solve[y-ax-b==0,x] Out={{x -> (-b + y)/a}} 一种方法是使用Solve： In[29]:= Solve[y == a x + b, x] Out[29]= {{x

可能重复： 我经常发现在这里发布的许多答案中大量使用纯函数，而且这些解决方案通常比使用命名模式等要快得多。为什么会这样？为什么纯函数比其他函数更快？这与mma解释器必须做更少的工作有关吗？是的。这意味着它永远不需要复制太多东西，因为纯函数无法改变它。列表处理可能需要一定量的复制，但通常函数算法都是高效的。一旦编译完成，命令式代码将同样快速（几乎总是如此），但对于解释的Mathematica字节码，pure通常是快速的。pure函数有几个优点： -结果可以缓存。 -计算可以安全地并行化。 -在某

伙计们，我在使用mathematica时遇到了一个奇怪的问题。正如您从所附的屏幕截图中看到的，排版以某种方式被解释为纯文本 有办法解决这个问题吗 非常感谢！（我真的很困惑，有时候它实际上显示了正确的东西…） 我可以用V7.0.1重现这一点，但不能用V8.0.1重现 我发现的最简单的解决方法是使用分子和分母的单独字符串来构造分数 您也可以采用排版方式来处理问题，而不必使用字符串： Format[\[Epsilon][x_, sub_, sup_], TraditionalForm] := Su

我有一个mathematica列表，其中我想将所有2替换为1，其他所有替换为0 比如说 {0,1,2,3,2,3,4,5,2,2,6} -> 我假设使用replaceall是可能的，但是有什么规则可以做到这一点呢 谢谢 您可以将函数（Boole[2==#]）和映射到列表中 In[2]:= (Boole[2 == #]) & /@ {0, 1, 2, 3, 2, 3, 4, 5, 2, 2, 6} Out[2]= {0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0} 不同

在Mathematica中定义数值常数的最佳方法是什么 例如，假设我希望g是由于地球表面重力引起的近似加速度。我给它一个数值（在m/s^2中），告诉Mathematica它是数值，是正的，是常数 Unprotect[g]; ClearAll[g] N[g] = 9.81; NumericQ[g] ^= True; Positive[g] ^= True; SetAttributes[g, Constant]; Protect[g]; 然后我可以在符号计算中使用它作为符号，当需要数值结果时，它将

我用Mathematica 8.04编写了一个动画，并将其保存为myfile.cdf。它在我安装了mathematica的电脑上播放得很好。如果我在另一台只安装了cdf播放器的计算机上播放，它只播放一小部分图像。有一个类似于Show[Graphical object1，Graphical object2，…]的命令 我从CDF播放器收到一条错误消息，说 “Show Gcomb:无法在Show[…]中组合图形对象” 有人知道解决办法吗 编辑：请求的代码 \[Phi] = -\[Pi]/6; A2

不久前我问了这个问题，这确实有助于达成解决方案。我已经找到了一个可以接受的方法，但仍然没有完全达到我想要的程度。假设有两个函数f1[x]和g1[y]，我想确定公共切线的x和y的值。我至少可以确定其中一条切线的x和y，例如使用以下各项： f1[x_]:=(5513.12-39931.8x+23307.5x^2+(-32426.6+75662.x-43235.4x^2)Log[(1.-1.33333x)/(1.-1.x)]+x(-10808.9+10808.9x)Log[x/(1.-1.x)])/(

我最近安装了Mathematica 10.0，似乎有一个恼人的bug。第一个命令总是不求值，而是一直运行。我可以做一些琐碎的事情，比如2或1+1，它就一直在运行，就像我在解一些巨大的非线性方程或什么的 但是，如果我中止第一次评估，那么一切都会正常工作。有人遇到过这个错误吗？当然，我每次都可以执行这个中止过程，但我确信Wolfram并不打算这样使用他们的产品。我在安装v.8时也遇到过类似的问题。您使用哪种防病毒和/或防火墙？您可以随时看到它的发生。创建一个最小的小笔记本，上面有任何可以证明这一点的

我有一个简单的问题，对于我正在进行的特定项目，我希望mathematica不要将非常小的小数（约10^-90）计算为零。我想要一张科学记数表。当我将类似的表达式求值到WolframAlpha中时，我收到一个非零的结果。 例如，在wolfram中返回非零，在mathematica中返回零的特定求值： In[219]:= Integrate[dNitrogen, {v, 11000, Infinity}] Out[219]= 0. Mathematica： In[219]:= Integrate

这是我的第n个pell的数字查找函数。它工作正常，但总是返回value+null。例如，当我调用数字5的函数时，它返回99 Null。我希望返回值仅为99Pell[n-2]必须为您提供Pell[-1]，该值为NULL，并且它似乎+在这里作为串联工作，这很好。重新启动内核以确保没有旧的定义。顺便说一句，Return是多余的，只要做Pell[n_]：=Pell[n]=If[n>=1，2*Pell[n-1]+Pell[n-2]（Return在mathematica中几乎从未使用过）@agentp这里删

给定包含6个未知变量的仿射变换方程a_11、a_12、a_21、a_22、b_1、b_2，以及相应的3对点x1、y1、x2、y2、x3、y3、u1、v1、u2、v2、u3、v3： u = a_11 * x + a_12 * y + b_1 v = a_21 * x + a_22 * y + b_2 是否有可能获得此表格中a_11、a_12、a_21、a_22、b_1、b_2的解决方案 a_11 = f1(x1, y1, x2, y2, x3, y3, u1, v1, u2, v2, u3, v

我想把这些数据拟合到一个trig函数中，因为它是周期性的。 到目前为止，这个立方体模型是我最精确的结果 Data = {{0, 4.042704626}, {1, 2.078666417}, {2, 1.174751826}, {3, 0.3352687769}, {4, 0.2094025098}, {5, 0.0614347256}, {6, 0.06293313355}, {7, 0.1011425361}, {8, 0.2648436037}, {9, 0.

如何定义公式不应计算，而应以传统格式显示？这里有两个例子，第一个是我想要的，但是第二个是简化的 Print["5. ", Limit[f[x]/g[x], x -> a], "=", Limit[f[x], x -> a]/Limit[g[x], x -> a], ", where ", Limit[g[x], x -> a] != 0]; Print["7. ", Limit[c, x -> a], "=", c] 用于打印表达式而不计算它 Print["7.

嗨，我正在使用Mathematica 4.0。我试图找到所有的排列，例如，假设有两个数字0和1。我试图用这两个数字在3个（比如）重复的地方生成所有的排列，比如{1,1,1}，{1,1,0}，{1,0,1}，{1,0,0}。。。我还尝试将每个排列放入一个数组中。Mathematica 4.0中是否有任何代码或命令可以让我完成所有这些事情。请帮我完成这项任务……一种考古问题：D.第4版很老了 <<DiscreteMath`Combinatorica` perm1[l_,n_]:=Uni

这是关于数字格式的问题的继续，与我之前关于获取非常具体的Mathematica输出到文本文件的问题有关 我经常需要在Mathematica中使用高精度来生成数据，但仅需要相对较低的精度来实现可视化。我还希望存储数据，以便以后使用，所有符号名和数组结构都保持不变。为此，我一直在使用Save[]，但有两个相关问题 高精度会用多余的数字“污染”我的结果，这些数字很难去除： In[1] := b = SetPrecision[7, 50]; a = Pi/b Out[1] := 0.448798950

将任意嵌套列表映射到函数unflatten以使expr==unflatten的最简单方法是什么@@Flatten@expr 动机： Compile只能处理完整数组（这是我刚学到的，但不是从错误消息中学到的），因此，我们的想法是将unflatten与平坦表达式的编译版本一起使用： fPrivate=Compile[{x,y},Evaluate@Flatten@expr]; f[x_?NumericQ,y_?NumericQ]:=unflatten@@fPrivate[x,y] 解决不太一般问题

我在编写带有选项的函数时遇到了一些问题。选项值之一是函数。我希望得到这个值，但不进行评估。我尝试了我能想到的每一件事，但到目前为止没有任何效果 基本上，为了说明这一点，我尝试了： SetAttributes[Foo, HoldRest]; Options[Foo] = {Blah -> None} Foo[x_, OptionsPattern[]] := Module[{blah}, blah = OptionValue[Automatic, Automatic

我想重新定义下标，以便将“二叉树坐标”转换为“平面阵列坐标”： 我希望得到的是.3,5。相反，我得到的是{.1、.2、.3}\u 1,1中的Set:：write:Tag下标受保护，并且没有赋值。请告知。这是概念上最简单的解决方案-您可以添加一个新的“向上”规则来处理分配： Unprotect[Subscript]; Subscript[x_, i_, j_] := x[[2^i + j]] Set[Subscript[x_, i_, j_], v_] ^:= x[[2^i + j]] = v;

我想实现一个操作符f，它与微分d通勤 Unprotect[D]; D[f[y___], x] := f[D[y, x]]; Protect[D]; D[f[Sin[x]], x] D[f[Sin[x]] + 1, x] 不幸的是，这段代码产生了两种不同的结果 f[Cos[x]] (* as expected *) Cos[x] f´[Sin[x]] (* cannot explain *) 我想知道发生了什么，以及如何修复替换规则，以便第二个表达式的计算结果也是f[Cos[x]] 更新。解

我有一个Mathematica笔记本，里面有绘图、图像、表格和文本，我想把它们放在一个文件中。我试着在nb或m put中添加append>>所有的东西，但这些东西都没有结果（绘图显示为-graphic-） 我相信很多人以前都这样做过！执行此任务的最佳方法是什么？为什么不在应用合适的样式表之后，使用“文件”菜单将当前笔记本保存为PDF格式？或者这只是Mac的功能？@David，我知道这是一个非常普遍的问题，但基本上，它归结为将文档中的每个计算整理成一份报告。我发现NotebookWrite命令（之

正如文档所述，“DumpSave以二进制格式写出定义，该格式针对Mathematica的输入进行了优化。”有没有一种方法可以将Mathematica二进制转储文件转换回定义列表，而无需对其进行评估导入[“file.mx”，“HeldExpression”]不起作用…DumpSave存储与符号相关的值，即OwnValues，DownValues，UpValues，子值，默认值，NValues，格式值 所有评估都是在Mathematica上的会话中完成的，然后DumpSave保存了评估结果 这些值存

我试图解这个微分方程： K[x_, x1_] := 1; NDSolve[{A''[x] == Integrate[K[x, x1] A[x1], {x1, 0, 1}], A[0] == 0, A'[1] == 1}, A[x], x] 我得到了错误（Function:：slotn和NDSolve:：ndnum） （它应该返回一个数值函数，该函数等于3/16 x^2+5/8 x） 我正在寻找一种解决这个微分方程的方法：有没有一种方法可以把它写成更好的形式，这样NDSolv

我正在寻找Mathematica中以小写字母开头的危险符号名称的完整列表 此刻我知道三个这样的名字：min、max和lim。这些名称出现在limitsPositionTokens列表中，并且： 例如，在前端键入以下内容（使用Ctrl+^生成上标-这很重要！）： 在本例中，max^n+4被解释为4*max^n 有人能解释一下limitsPositionTokens选项的真正作用吗 在Mathematica中还有其他以小写字母开头的危险符号吗 我无法确认您报告的问题。此外，您发现的标记似乎是字符

是否可以使用ReadList读取使用ReadList[…，Word]的UTF-8（或任何其他）编码文本文件，还是仅使用ASCII码？如果仅为ASCII码，是否可以以良好的性能“修复”已读取数据的编码（即保持ReadList优于Import）的性能优势） Import[…，CharacterEncoding->“UTF8”]可以工作，但它比ReadList慢很多$CharacterEncoding对ReadList 有关在大型输入上测试性能的信息，请参阅中的测试文件 以下是大型ish文本文件中

在任何Mathematic图表或绘图中，如何显示y轴上的%值 我可能有这样的数据： data = {{{2010, 8, 3}, 0.}, {{2010, 8, 31}, -0.052208}, {{2010, 9, 30}, 0.008221}, {{2010, 10, 29}, 0.133203}, {{2010, 11, 30}, 0.044557}, {{2010, 12, 31}, 0.164891}, {{2011, 1, 31}, 0.055141}, {{201

考虑这样一种情况，即表单列表中包含数据 data = {{x1, x2, x3, ..., xn, y}, {...}, ..., {...}} 比如说, data = {{0, 2, 3, 2}, {0, 0, 1, 4}, {7, 6, 8, 3}} 我想把数据拟合成一个阶数为2的多元多项式。 因此，三变量函数值为： {2, 4, 3} 各点 {{0, 2, 3}, {0, 0, 1}, {7, 6, 8}} 我会这样说 Fit[data, {1, x, y, z, x^2, y^2

根据我在大学和学校学到的知识，数值积分是通过将一个函数切成矩形并求出它们的面积来完成的；因此，积分的精度由每个矩形的宽度定义。矩形越薄，精度就越高（我的问题是计算量越大） 我想在插值函数上做一个三维九次积分。如果我使用mathematica的默认配置，这将非常昂贵。我想增加数值积分中使用的矩形的宽度。在mathematica中有太多的选项用于精确性和准确性等，但我真的不知道哪一个可以做到这一点，并尽可能减少计算工作量 是否有增加积分矩形宽度或其他显著减少计算时间的选项 谢谢你的帮助：）你有没有调

例如，如果我正在定义以下函数 exprod[n_] := Expand[Product[x + i, {i, 1, n}]] 那么为什么函数定义中必须在变量n后面加下划线呢？这种风格是从哪里来的，还是只适用于Mathematica编程语言？下划线来自模式匹配 x_uu匹配任何内容，该内容绑定到函数体中的名称x l[x_ * y_] := l[x] + l[y]; 然后在l[2*z]中，首先将表达式2*z与 图案x*y。然后x与2绑定，y与z绑定。 然后计算表达式l[x]+l[y]，结果变为

我正在寻找一种方法，用Total函数和threshold参数来减少一个巨大列表的长度。我想避免使用For和If（来自旧习惯） 例如： 我要“减少”的列表：{1,5,3,8,11,3,4}，阈值为5 我想要的输出：{6,11,11,7} 这意味着我在列表的第一部分使用Total函数，并查看该函数的结果是否高于阈值。如果是这样，我使用Total函数的结果并转到列表的下一部分 另一个例子是阈值为5的{1,1,1,1}。结果应该是{5} 谢谢 编辑：它正在工作，但速度相当慢。为了更快，有什么想法吗 编辑

我有两本数学笔记本。我需要从nba中打开nbb，并获得一些具有已知名称的参数（列表）的值。如果不运行nb B，我怎么做呢？我想您需要这些函数 NotebookOpen[] 及 但是如果没有更多关于你想做什么的信息，很难比这更具体。我很惊讶，您在Mathematica文档中的搜索并未引导您找到这些函数（及其相关函数）。我想您需要这些函数 NotebookOpen[] 及 但是如果没有更多关于你想做什么的信息，很难比这更具体。我很惊讶您对Mathematica文档的搜索并未引导您找到这些函数（及

我是一名物理系的学生。我必须在数据列表上执行一个简单的松弛循环 我做了一个简单的while循环，看起来像这样 i = 1; While[i < Limit, data[[i]] = f[ data[[i]] , data[[i+1]], data[[i-1]] ]; i = i+2; i = 2; While[i < Limit, data[[i]] = f[ data[[i]] , data[[i+1]], data[[i-1]] ]; i = i+2; i=1； 虽然

我在Mathematica上玩一个讨厌的表情 （-X+（2x-x2）/( 2（-1+X）^2（（1+2（-1+p）X-（-1+p）X^2）/（-1+X）^2^（3/2））/X 我将其与平面z=0一起绘制，其中X和p都限制在0到1之间： Plot3D[{这里有一个方程，0}，{p，0，1}，{X，0，1}] 我决定从这个讨厌的方程和z=0得到平面交点的方程会很有趣。所以我用了： 解[{那个讨厌的方程==0}，{p，X}，Reals] 输出结果甚至更糟糕，一些结果中有#符号（我不知道它是什么，我对M

我在和Mathematica一起工作，我想画一个条形图。我只能画条形图，但我不能让误差条起作用。我唯一能设法开始工作的方法就是使用ErrorListPlot，并将其作为小点绘制。理想情况下，尽管我希望它是顶面上有类似错误条的条。有什么想法吗 这就是我使用的： ErrorListPlot[list // Transpose, PlotRange -> {{0, 6}, {0, 230000}}] 同样，它只生成点。当错误是数据的函数时，我只能找到一个线程来设置带有错误条的条形图，但我似乎

我正在研究一个约束问题，试图用Mathematica实现。在我尝试添加额外的约束以仅选择可用变量的一小部分之前，我的答案似乎是有效的 更新：在此处下载笔记本文件以供参考： 以下是有效的模型： NetV = -Abs[Sum[Ydata[[i]] * Subscript[y,i],{i,Length[Ydata]}]- Sum[Xdata[[i]] * Subscript[x,i],{i,Length[Xdata]}]]; NetT =Sum[Ydata[[i]] * Subscript[y,i

如果表格数据设置为一个值加一个单位 例如，1。“千克”或34300。“英镑” 如何使用函数方法或模式匹配获得数字？这里有一些建议，首先映射或数量大小 表格是否在文本文件中，有多行，例如？或者它已经是一个mathematica列表，包含两个元素字符串？你想保留单位还是只保留数字？

我用Mathematica绘制了一个图形，希望从该图形中读取数据。例如，存在一个带有以下代码的方波，我想要第三个转折点的值： R[t_] := 10 UnitStep[-Sin[0.4 Pi t]]; Plot[R[t], {t, 0, 20}, Exclusions -> None, PlotStyle -> Thick] yui = Flatten[Table[{t, (R[t] /. sol)}, {t, 5, 10, 1.2}]] Partition[yui, 2] // T

我想让Mathematica计算平方变量的平方根。相反，它只是返回平方根下的平方变量。我编写了一个简单的代码作为示例： x = y^2 z = FullSimplify[Sqrt[x]] 但它返回的是平方根符号下的y^2 此行为记录在Sqrt参考页上： Sqrt[z^2]不会自动转换为z。 [……] 这些转换可以使用PowerExpand完成，但通常仅对正实数参数是正确的。 因此： 您还可以通过提供各种假设来简化： In[10]:= Simplify[Sqrt[x], Assumptions

mathematica关于评估可能出现的问题的文件说明： “评估”仅在第一个项目上有效 级别，直接位于保持功能内 为什么Mathematica有这个限制？因此，如果我有一个具有多个级别的表达式，请以这个简化的示例为例： 保持[Plus[Plus[2,2]，2]] 现在，假设我想看看第二个加号的答案是什么，而不需要对它下面的任何级别进行评估。我尝试过不同的方法，例如： In[290]:= Hold[Plus[Evaluate[Plus[2, 2]], 2]] Out[290]= Hold[Eval

以MATLAB中生成的以下任意图形为例。基本思想是我有一个等高线图，我想在右边的子图中展示从中选择的切片。mma中是否存在子批次的等价物 我现在所做的工作是，用切片和箭头绘制等高线图，并分别绘制两个切片图，然后用乳胶将它们放在一起。然而，我希望能够在mma内做到这一点。我该怎么做呢 我的一个想法是生成一个具有完全垂直和半水平纵横比的等高线图，两个具有半垂直和半水平纵横比的图，然后使用GraphicsGrid将它们对齐。但这仍然给了我一个列表，而不是一个综合数字。这是唯一的方法还是有更好、更优雅的

我放弃了理解Mathematica 3D轴配置的尝试 当我进行3D绘图，并标记3个轴以识别哪个轴是哪个轴，然后在这些轴上创建点时，这些点出现在不同的轴上，而不是我希望它们在使用Point命令时显示的轴，该命令采用{x，y，z}坐标 这里有一个例子 g=Graphics3D[ { {PointSize[0],Point[{0,0,0}]} }, AxesOrigin->{0,0,0}, PlotRange->{{-3,3},{-3,3},{-3,3}}, Axes

我想制作一个简单的界面，用于从Mathematica中有很多列的数据库中对较少的列进行SQL SELECT查询。 我有我的列名列表，例如： dbColumnNames={"name1","name2","name3",...."nameN"} 我想做的是为这个列表中的每个元素设置一个复选框，将其命名为与列表中的元素相同的元素，当选中该复选框时，我将得到一个列名为选中的列表。 例如，我单击name1、name50、name74，列表应该如下所示： selectedNames={"name1","

我正在寻找以下方面的快速实现，由于缺少更好的术语，我将其称为Position2D： Position2D[ matrix, sub_matrix ] 它在矩阵中查找子矩阵的位置，并返回匹配的左上和右下行/列 例如，这： Position2D[{ {0, 1, 2, 3}, {1, 2, 3, 4}, {2, 3, 4, 5}, {3, 4, 5, 6} }, { {2, 3}, {3, 4} }] 应将此邮件退回： { {{1, 3}, {2, 4}}, {{2, 2}, {

我想以适当的方式为Mma函数设置别名 目前，我将几个别名复制并粘贴到新笔记本中的一个单元格中，如： tf:=TableForm fi:=FactorInteger re:=RegularExpression 等等 当我在文档中搜索别名时，我找到了Esc的描述。。。Esc方法，以及定义自定义符号的一章。我想我希望找到一些用于定义别名的初始化文件。我现在有点困惑 问题： -定义新笔记本中使用的函数别名的常用/适当/最佳方法是什么？也许会有更好的建议，但您可以做的一件事是收集所有此类定义，然后

我发现有时能够使用自己的本地符号创建本地模块（在父模块内部）很有用，这只需要父模块使用一个小任务。当模块变大时，这非常有用，并且没有充分的理由在模块外创建较小的辅助函数，因为这些辅助函数实际上是需要的，并且仅由一个父模块使用 这是一个愚蠢的例子，有一个模块，里面有一个帮助器模块 foo[x_] := Module[{r}, r = Module[{y, sol}, sol = First@Solve[y^2 + 3 y + 2 == 0]; y /. sol ];

我想创建一个函数，它接受整数列表，并根据列表元素返回列表索引的分区 例如： {1,3,3,7} --> { {1}, {2,3}, {4}} {3,1,3} --> {{1,3}, {2}} 我可以想出一些乱七八糟的方法来做这件事，但是在Mathematica中有没有一种自然的方法来做这件事呢 一种可能性： Function[x, (Flatten@Position[x, #] &) /@ DeleteDuplicates[x]]@{1, 3, 3, 7} 给予 (

我想画一个多元t分布的3D图，并在底部显示相应的countourplot。 我使用以下代码 需要[“多元统计”] A=Plot3D[ PDF[多变量分布[{1，1/2}，{1/2，1}，10]，{x， y} ]，{x，-3,3}，{y，-3,3}] B=ContourPlot[ PDF[多变量分布[{1，1/2}，{1/2，1}，10]，{x， y} ]，{x，-3,3}，{y，-3,3}] 显示[A，B] 但我不能。我知道，如果在单变量情况下使用函数show，则曲线图会合并 请帮帮我 谢谢Sh

我试图解决一个问题：我必须用Mathematica找到电子在石墨烯晶格中的轨迹。我试着用NDSolve解库仑力方程，并绘制每个方向的结果，但我得到了一个白色的图。有人能帮我吗？先谢谢你。以下是x方向的代码： coordx = {0.6327, 1.88058, 3.03927, 4.28716, 5.44584, 6.69373, 7.85241, 9.10029, 1.9728, 3.22069, 4.37937, 5.62726, 6.78594, 8.03382, 9.19