我有一个坐标矩阵（X，Y），我想通过逐点绘制并连接点来为它们设置动画。我试过“ListAnimate”，但它只对每个坐标的值进行动画处理。
这是示例的外观：
{{1,1},
{1,2},
{5,4},...}
我有一个最大值方程，我想找到这个方程中变量的数值解。我想知道是否有人知道 maxima 中的哪个函数与 mathematica 中的 FindRoot 最相似？
似乎有几种方法可以做到这一点，但我希望根据 mathematica 代码检查结果，因此我对类似于 FindRoot 的东西感兴趣。
本
我有一个这样的表达式，由 Sympy 计算：
-1.0*pi*(-1.0*sin(1.0*t) - 0.025*cos(1.0*t) + 4.0*cos(2.0*t))
然后我尝试了很多为简化表达而提供的选项，但它们并没有太大作用。
当我使用时expand_trig()，它返回：
pi*(1.0*sin(1.0*t) + 0.025*cos(1.0*t) - 4.0*cos(2.0*t))
但是当我使用 Mathematica 时，它返回：
-25.0542 Cos t + 3.14159 Sin t
如何使用 Python 获得像 Mathematica 这样的结果？如果我想进一步简化 Mathematica 给出的表达式，我该怎么办？
我正在将以下 python 计算的结果与 Mathematica 进行比较：https://www.wolframalpha.com/input ?i=sum+%28500+choose+r+%29%28-1%29%5Er+%2F%28r%21 %29+%2C+r%3D0+至+500
import numpy as np
from decimal import *
import scipy.special
from scipy.special import factorial
getcontext().prec = 30
i = 500
sum(np.array([scipy.special.comb(Decimal(i), (r), exact=True)*pow(-1, r)/Decimal(factorial(r, exact=False)) for r in range(i+1)]))
尽管我通过模块在 python 代码中设置了任意精度，但这两个计算都给出了几乎相同的值，i = 400但之后未能收敛decimal。用 Mathematica 计算似乎是正确的。我想知道，对于更大的数据，我们怎样才能在 python 中得到与 Mathematica 相同的结果呢i？
python precision wolfram-mathematica numpy binomial-coefficients
我对Mathematica进行了为期15天的试用,需要对其进行评估,看看它是否可以用于帮助我们正在开发的某些游戏创建算法.
有没有什么好的资源可以教我一些基础知识并让我探索应用程序？
这很奇怪:
DateList@AbsoluteTime[596523]
回报
{2078, 7, 2, 2, 42, 9.7849}
但
DateList@AbsoluteTime[596524]
回报
{1942, 5, 26, 20, 28, 39.5596}
问题:发生了什么事？请注意,带有数字参数的AbsoluteTime未记录.
(I think I now know what it's doing but figured this is useful to have as a StackOverflow question for future reference; and I'm curious if there's some reason for that magic 596523 number.)
PS: I encountered this when writing these utility functions for converting to and from unix time in Mathematica:
(* Using Unix time (an integer) instead of Mathematica's …我在mathematica中有以下简单的代码,这是我想要的单个输出.但我希望得到数百或数千.我能怎么做？
Clear["Global`*"]
k = 2; Put["phiout"]; Put["omegadiffout"];
Random[NormalDistribution[0, 0.1]];
For[i = 1, i < 31,
rnd[i] = Random[NormalDistribution[0, 0.1]]; i++]
Table[rnd[i], {i, 1, 30}]
For[i = 1, i < 30,
rnddf[i] = rnd[i + 1] - rnd[i]; i++
]
diffomega = Table [rnddf[i], {i, 1, 29}];
Table[
Table [rnddf[i], {i, 1, 29}], {j, 1, 100}];
PutAppend[Table[
diffomega, {j, 1, 100}] , "diffomega"]
eqs0 = Table [
k*phi[i + 1] + k*phi[i - 1] - 2*k*phi[i] - rnddf[i] == …原始问题:
我知道Mathematica有一个内置的地图(f,x),但这个功能是什么样的？我知道你需要查看列表中的每个元素.
任何帮助或建议？
编辑(由Jefromi,Mike的评论拼凑而成):
我正在开发一个程序,需要通过像Map这样的列表,但是我不允许使用它.我也不允许使用Table; 我需要在没有其他功能帮助的情况下浏览列表.我正在处理一个递归版本,我有一个空列表,但是在列表中包含其中的项目并没有成功.这是我的第一种情况:( newMap[#, {}] = {}空列表的地图只是一个空列表)
我想知道如何编写一个特殊的Tally函数,它将以下列表{{{1,0},{2,1,3}},{{1,1},{0,1,1}},{{2,1,2},{3,2}},{{1,0},{2,1}}}视为:
{{1,0},{2,1,3}}并且{{1,1},{0,1,1}}是等价的,但不是{{1,0},{2,1}}.{{1,0},{2,1,3}}并且{{2,1,2},{3,2}}是等价的.级别1列表的元素可以是艺术嵌套的.我怎么写这样的功能？
非常感谢.
这个等式适用于所有序列f[n]吗？
f[n_] := Module[{x = intial value, y = 0, i = 0},
While[i++ < n, {x, y} = {y, equation}]; y]
具体来说,我正在查看6*n*f[n]=f[n-1]+n!具有初始条件的等式f[0] = 7.但是,我想要一般的解决方案,以便我可以将它应用于其他方程式.而且,我想使用Module和While.
谢谢.