新手跪求指导

heugaodie

r = 3.04042*10^(-6);
5 ?) n& Y! D- w# O1 F6 Zp[x_] := x^5 - (2 + r) x^4 + (1 + 2 r) x^3 - (1 - r) x^2 +
  2 (1 - r) x + r - 1
( B9 R. c2 g8 p2 J& e  g, j- }6 bq[x_] := p[x] - 2 r*x^2;
+ m# ~6 c: C  O1 v4 L+ K: J5 y$ Za0 = 0.5; b0 = 1.5; delta = 10^(-6); k0 = 100;
2 {+ C+ _) }! A6 R) ~% `a = a0; b = b0;
Do[x = (a + b)/2;
If[p[x] == 0, Break[], If[N[p[x]*p[b]] < 0, a = x, b = x]];
% ?# Q0 P5 L. Y% I0 ] If[N[Abs[b - a]] < delta, Break[], If[k == k0, Print[失败]]], {k, k0}]
" a" i- Z9 G$ ?x1 = x
Clear[x]
Do[x = (a + b)/2;
If[q[x] == 0, Break[], If[N[q[x]*q[b]] < 0, a = x, b = x]];
. a) u4 T! |3 V# a3 v If[N[Abs[b - a]] < delta, Break[], If[k == k0, Print[失败]]], {k, k0}]
; S* v  ~' P* x4 J+ ^9 D  f& wx2 = x
/ X" Z0 i3 a% ^% gClear[x]

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

qudazi

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

花如梦

别只用x,换个变量试试

小小灰

看不懂，看不懂