作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在尝试制作 RecurrenceTable
在 Mathematica 中使用条件,并且递归的东西工作正常,但它不会完全评估它。
In:= RecurrenceTable[{x[n] == If[Mod[n, 2] == 0, x[n - 1], y[n - 1]],
y[n] == If[Mod[n, 2] == 0, R x[n - 1] (1 - x[n - 1]), y[n - 1]],
x[1] == x0, y[1] == 0}, {x, y}, {n, 1, 10}]
Out:= {{0.25, 0.}, {x[1], 3 (1 - x[1]) x[1]}, {y[2], y[2]}, {x[3],
3 (1 - x[3]) x[3]}, {y[4], y[4]}, {x[5], 3 (1 - x[5]) x[5]}, {y[6],
y[6]}, {x[7], 3 (1 - x[7]) x[7]}, {y[8], y[8]}, {x[9],
3 (1 - x[9]) x[9]}}
{{0.25, 0.}, {0.25, 0.5625} ...
最佳答案
通常,您应该使用 Piecewise
用于数学函数,并保留 If
用于编程流程。
您可以转换很多 If
使用 PiecewiseExpand
的语句:
If[Mod[n, 2] == 0, x[n - 1], y[n - 1]] // PiecewiseExpand
If[Mod[n, 2] == 0, r*x[n - 1] (1 - x[n - 1]), y[n - 1]] // PiecewiseExpand
r = 3;
x0 = 0.25;
RecurrenceTable[
{x[n] == Piecewise[{{x[n - 1], Mod[n, 2] == 0}}, y[n - 1]],
y[n] == Piecewise[{{r*x[n - 1] (1 - x[n - 1]), Mod[n, 2] == 0}}, y[n - 1]],
x[1] == x0,
y[1] == 0},
{x, y},
{n, 10}
]
Divisible[n, 2]
代替 Mod[n, 2] == 0
如果你希望。 关于wolfram-mathematica - 为什么 Mathematica 不对这个 RecurrenceTable 进行数值评估?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/7763152/
我终于再次处理我的 n-point Pade code ,并且我遇到了以前没有发生的错误。问题的核心围绕着这段代码: zi = {0.1, 0.2, 0.3} ai = {0.904837, 1.05
在回答 a physics forum question今天早上,我遇到了DifferenceRoot的表现非常糟糕的情况。和 RecurrenceTable与通过天真地取指数生成函数的导数来计算表达
我正在尝试制作 RecurrenceTable在 Mathematica 中使用条件,并且递归的东西工作正常,但它不会完全评估它。 In:= RecurrenceTable[{x[n] == If[M
我是一名优秀的程序员,十分优秀!