新手跪求指导

heugaodie

r = 3.04042*10^(-6);
, m) G. V3 l) Y! L* ^6 Vp[x_] := x^5 - (2 + r) x^4 + (1 + 2 r) x^3 - (1 - r) x^2 +
  2 (1 - r) x + r - 1
; f$ C9 F! h! T* W8 d/ x. Uq[x_] := p[x] - 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[p[x] == 0, Break[], If[N[p[x]*p[b]] < 0, a = x, b = x]];
# v" F) B& b* C; ?: \/ ^3 Y If[N[Abs[b - a]] < delta, Break[], If[k == k0, Print[失败]]], {k, k0}]
x1 = x
4 [* z3 j8 g6 [8 D# ^$ ~5 P+ ZClear[x]
  \& {1 N/ Z3 v/ P4 yDo[x = (a + b)/2;
: H" O  r; R! V If[q[x] == 0, Break[], If[N[q[x]*q[b]] < 0, a = x, b = x]];
! m+ @2 o' H7 q  Z+ B3 r3 C0 ? If[N[Abs[b - a]] < delta, Break[], If[k == k0, Print[失败]]], {k, k0}]
x2 = x
Clear[x]
# J" E5 Z  t3 Q& s& G
' s. F9 o" a1 w3 `% u8 A- `我想让p q 两函数的解都求出来 每次都是两个一样的解（是第一个的）  明明用了clear的 怎么做
# e% ^4 @$ B+ [! w$ G

小小灰

看不懂，看不懂

花如梦

别只用x,换个变量试试

qudazi

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