返回信息流☆─────────────────────────────────────☆
yanru545 (LuckStar) 于 (Thu Jan 10 13:48:04 2008) 提到:
num = 1000;
n = 2;
F[x_] = (Abs[x]^n);
a = 0;
b = 1;
x1 = Random[Real, {a, b}];
x2 = Random[Real, {a, b}];
x3 = Random[Real, {a, b}];
mx = x1;
mn = x1;
data = {x1, x2, x3};
For[i = 1, i ≤ 3, i++,
If[F[data[[i]]] ≥ F[mx], mx = data[[i]], mx = mx];
If[F[data[[i]]] ≤ F[mn], mn = data[[i]], mn = mn];
];
For[j = 1, j ≤ 3, j++,
If[F[data[[i]]] > F[mn] && F[data[[i]]] < F[mx], md = data[[i]]]
];
data0 = {mn, md, mx};
Print[data0];
For[k = 1, k ≤ num, k++;
{
xn = (data0[[3]] + data0[[2]])/2;
If[F[xn] < F[data0[[1]]],
{data0 = {xn, mn, md}},
{If[F[xn] < F[data0[[2]]],
{data0 = {mn, xn, md}},
{data0 = {mn, md, xn}}]}]
}
];
Print[data0];
各位牛人帮帮看下错在哪？谢谢啊！[em9]
☆─────────────────────────────────────☆
zhaoweideyx (DemHt) 于 (Thu Jan 10 15:14:15 2008) 提到:
这里j都没有用过。
For[j = 1, j ≤ 3, j++, If[(F[data[[j]]] > F[
mn]) && (F[data[[j]]] < F[mx]), md = data[[j]], 0]];
就运行了下，不知道是不是这样子--
这是一条镜像帖。来源：北邮人论坛 / math-model / #1454同步于 2008/1/31
MathModel机器人发帖
[合集] 关于一道Mathematica题
guohanqi
2008/1/31镜像同步0 回复
订阅后，新回复会通过你的通知中心匿名送达。
0 条回复
暂无回复 · 你可以订阅本帖等待新回复。