% olincut,  Ekvation, omskrivning till enklare form
  clear, format long
  xstart=[1.3  1.7  2.2  2.4];
  for nr=1:4
    x=xstart(nr);  dx=x;  iter=0;  
    disp('         x                dx')         
    while abs(dx/x)>1e-14 & iter<10    
      f=sin(2*x^2)+0.07*exp(x);  
      fp=4*x*cos(2*x^2)+0.07*exp(x);
      dx=-f/fp;  disp([x dx]),  x=x+dx;  iter=iter+1; 
    end
    if iter==10, disp('Ingen konvergens!'), end
  end


  						


