www.pudn.com > roboter.zip > newton.m

function [w1,t]=newton(w1,p,l) 
 
%Diese Programm berechnet die Winkelwerte mit Hilfe des 
%verallgemeinerten Newton-Verfahrens. Ist diese Berechnung 
%nicht moeglich (Funkttonalmatrix nicht invertierbar oder 
%keine Konvergenz), so wird der Kontrollparameter t=0 
%gesetzt. Sonst wird t=1 uebergeben. 
 
  A=[-1;0;0];                     %Festlegen des Vergleichsparameter 
                                  %fuer die Winkelwerte 
  t=1;                            %Kontrollparameter auf 1 setzen 
  n=0;                            %Zaehler fuer die Iterationsschritte 
 
%Berechnung der neuen Winkelwerte 
  while A~=w1 & n<100 & t==1 
    A=w1;                         %Ablegen des alten Wertes 
                                  %im Vergleichsparameter 
    [w1,t]=iterati(w1,p,l);       %Berechnung des naechsten 
                                  %Iterationswertes  
    n=n+1;                        %Erhoehung des Zaehlers 
  end 
 
%Setzen des Kontrollparameters t=0, falls nach 
%100 Iterationsschritten keine Konvergenz erfolgte. 
  if n==100 
    t=0; 
  end