非线性方程牛顿迭代法和数值积分的龙贝格解法

				Newton.m
				function [x_star,index,num]=Newton(fun1,fun2 ,x,ep,maxnum)
				if nargin				if nargin				index=0;k=1;
				while k				    x1=x;
				    f=zeros(1,2);
				    f(1)=feval(fun1,x);
				    f(2)=feval(fun2,x);
				    if(abs(f(2))				        break;
				    end
				    x=x-f(1)/f(2);
				    if(abs(x-x1)				        index=1;break;
				    end
				    k=k+1;
				end
				x_star=x;
				num=k;
				end