Matlab——Newton&割线法

已知方程xe^x-1=0在0.5附近有一个实根x*：

1. 取初值x0=0.5，用牛顿法求x*（迭代两次）
2. 取初值x0=0.5，x1=0.6，用割线法求x*（迭代两次）

Q1

clc;clear;
x=0.5-((0.5-(exp(1)^(-0.5)))/(1+0.5));
y=x-((x-(exp(1)^(-x)))/(1+x));
disp('x0=0.5');
fprintf('x1=%6.7f\n',x);
fprintf('x2=%6.7f\n',y);

Q2

clc;clear;
x=0.6-(0.6-0.5)*(((0.6*(exp(1)^(0.6)))-1)/((0.6*(exp(1)^(0.6)))-((0.5)*(exp(1)^(0.5)))));
y=x-(x-0.6)*(((x*(exp(1)^(x)))-1)/((x*(exp(1)^(x)))-((0.6)*(exp(1)^(0.6)))));
disp('x0=0.5');
disp('x1=0.6')
fprintf('x2=%6.7f\n',x);
fprintf('x3=%6.10f\n',y);