新手跪求指导

heugaodie

r = 3.04042*10^(-6);
1 U9 j( a: K+ ]p[x_] := x^5 - (2 + r) x^4 + (1 + 2 r) x^3 - (1 - r) x^2 +
, c+ v, g& Q4 n( h* y9 u  O  2 (1 - r) x + r - 1
: T" o* p/ i( J. hq[x_] := p[x] - 2 r*x^2;
: K; n" D; x% e- \, Z  g) k6 Q7 r* [a0 = 0.5; b0 = 1.5; delta = 10^(-6); k0 = 100;
a = a0; b = b0;
- b, L, F, B% @& d# V6 yDo[x = (a + b)/2;
If[p[x] == 0, Break[], If[N[p[x]*p[b]] < 0, a = x, b = x]];
% \8 O& I( E! W1 a If[N[Abs[b - a]] < delta, Break[], If[k == k0, Print[失败]]], {k, k0}]
, ^0 x! u( ^8 Y' `, c. Q# Cx1 = x
6 @* W: A( r" \# @1 h" k* a# {: gClear[x]
8 v/ R! f: y) n& d6 N- JDo[x = (a + b)/2;
$ _. W  y  M+ r/ L- n 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}]
9 f: D7 ?1 t/ x0 s- U* t! `x2 = x
Clear[x]
+ _2 M" y5 t. r3 N$ H/ z
( M9 O4 r- E3 _# P我想让p q 两函数的解都求出来 每次都是两个一样的解（是第一个的）  明明用了clear的 怎么做
6 J2 ^7 e6 z: i. S" g

qudazi

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

花如梦

别只用x,换个变量试试

小小灰

看不懂，看不懂