代码之家 › 专栏 › 技术社区 › Smile_SafeLY

如何在列表中振荡数字?

wolfram-mathematica list

Smile_SafeLY · 技术社区 · 7 年前

问题:对于下面提供的列表,我如何使这些振荡,使第一个数字或表达式是+下一个是-是+之后的一个,等等(如果存在振荡,则不使用专门的振荡函数)。

我目前得到的输出如下所示:

    x + x^3/6 + x^5/120 + x^7/5040 + x^9/362880  
1. {1, 5, 9, 13, 17, 21, 25, 29, 33, 37, 41, 45, 49, 53, 57, 61, 65, 69,
73, 77, 81, 85, 89}

预期输出:

x - x^3/6 + x^5/120 - x^7/5040 + x^9/362880  
2. {1, -5, 9, -13, 17, -21, 25, -29, 33, -37, 41, -45, 49, -53, 57, -61, 65, -69, 73, -77, 81, -85, 89}

Sum[x^j/Factorial[j], {j, 1, 9, 2}];
myOsc = Table[i, {i, 1, 89, 4}];

3 回复 | 直到 7 年前

Picaud Vincent 7 年前

一个不需要额外s变量的小改进:

MapIndexed[(-1)^(1 + #2[[1]])*#1 &, x + x^3/6 + x^5/120 + x^7/5040 + x^9/362880]

x-x^3/6+x^5/120-x^7/5040+x^9/362880

Chris Degnen Akila Dilan Md 7 年前

Sum[If[OddQ[(j - 1)/2], -x^j, x^j]/Factorial[j], {j, 1, 9, 2}]

x-x^3/6+x^5/120-x^7/5040+x^9/362880

myOsc = Table[If[OddQ[(i - 1)/4], -i, i], {i, 1, 89, 4}]

{1, -5, 9, -13, 17, -21, 25, -29, 33, -37, 41, -45, 49, -53, 57, -61, 65, -69, 73, -77, 81, -85, 89}

agentp 7 年前

s = -1; Map[(s *= -1) # &, x + x^3/6 + x^5/120 + x^7/5040 + x^9/362880]

x-x^3/6+x^5/120-x^7/5040+x^9/362880

注意:mathematica将首先将表达式按规范顺序排列。例如,如果你像这样输入:

s = -1; Map[(s *= -1) # &,x^3/6 + x  + x^5/120 + x^7/5040 + x^9/362880]

你会得到同样的结果

x-x^3/6+x^5/120-x^7/5040+x^9/362880

推荐文章

user4290866 · TradingChart示例不起作用

7 年前

Felipe Jiménez · Mathematica:定义函数控制替换顺序

7 年前

Smile_SafeLY · 如何在列表中振荡数字?

7 年前

Red Eyez · 在没有Wolfram Alpha的情况下,如何求解Mathematica中的绝对值?

7 年前

HEART94 · 如何使用Wolfram Mathematica修改列中的数据?

7 年前

Joseph P Nardone · 具有交互变量的数学图

8 年前

Mike22LFC · 数学问题:符号化求解矩阵方程AX=\lambdaBX

8 年前

NoMan · Mathematica代码中的等效MATLAB代码

9 年前

Mark Green · 在Mathematica/Wolfram语言中,是否有任何方法可以检查表达式的求值结果?

9 年前

Botulus · Mathematica拟合多项式不正确

10 年前