1076/CH9/EX9.9/9_9.sce


1
2
3
4
5
6
7
8
9
10
11
12
13

clear
clc

e=1e-5
x=1
E=100
while (E>e)
    x1=.5*(7+log10(x))
    E=abs(x-x1)
    x=x1
end

mprintf("x = %f",x)