新手跪求指导

heugaodie

r = 3.04042*10^(-6);
  ^8 Y. g: Y8 \. C+ Hp[x_] := x^5 - (2 + r) x^4 + (1 + 2 r) x^3 - (1 - r) x^2 +
  2 (1 - r) x + r - 1
q[x_] := p[x] - 2 r*x^2;
a0 = 0.5; b0 = 1.5; delta = 10^(-6); k0 = 100;
a = a0; b = b0;
/ ~" Y$ _4 u7 O  \( v  Y2 WDo[x = (a + b)/2;
) C+ D) m' K$ B1 P8 E6 i( ?$ J If[p[x] == 0, Break[], If[N[p[x]*p[b]] < 0, a = x, b = x]];
! z: F; b9 w6 H/ p# `, z  b If[N[Abs[b - a]] < delta, Break[], If[k == k0, Print[失败]]], {k, k0}]
x1 = x
. D; d3 b/ X9 A9 _Clear[x]
6 C/ M7 |4 c" r3 M9 S, p/ lDo[x = (a + b)/2;
. }: J/ I. ^7 E5 A1 Y8 ]- q1 s If[q[x] == 0, Break[], If[N[q[x]*q[b]] < 0, a = x, b = x]];
If[N[Abs[b - a]] < delta, Break[], If[k == k0, Print[失败]]], {k, k0}]
' |5 e; }0 R" y- Rx2 = x
7 P8 w1 m* w  ?Clear[x]

6 P4 y9 s: H5 N3 n( [- ]+ S3 ]我想让p q 两函数的解都求出来 每次都是两个一样的解（是第一个的）  明明用了clear的 怎么做

qudazi

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

花如梦

别只用x,换个变量试试

小小灰

看不懂，看不懂