heugaodie 发表于 2012-12-4 22:51

新手跪求指导

r = 3.04042*10^(-6);
p := x^5 - (2 + r) x^4 + (1 + 2 r) x^3 - (1 - r) x^2 +
  2 (1 - r) x + r - 1
q := p - 2 r*x^2;
a0 = 0.5; b0 = 1.5; delta = 10^(-6); k0 = 100;
a = a0; b = b0;
Do[x = (a + b)/2;
If == 0, Break[], If*p] < 0, a = x, b = x]];
If] < delta, Break[], If]], {k, k0}]
x1 = x
Clear
Do[x = (a + b)/2;
If == 0, Break[], If*q] < 0, a = x, b = x]];
If] < delta, Break[], If]], {k, k0}]
x2 = x
Clear

我想让p q 两函数的解都求出来 每次都是两个一样的解（是第一个的）  明明用了clear的 怎么做

qudazi 发表于 2012-12-6 09:08

你试一下将Clear换成x=.看看

花如梦 发表于 2014-4-12 20:35

别只用x,换个变量试试

小小灰 发表于 2014-4-28 16:57

看不懂，看不懂
页: [1]
查看完整版本: 新手跪求指导