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

function [l]=laenge 
 
%Definition der benoetigten Abfragetexte 
text1 =['Geben Sie die Laenge des n.Roboterarmes ein:  ']; 
text2 =['!!! Die Roboterarmlaenge muss positiv sein !!!']; 
text2a=['      neue Eingabe fuer die n.Armlaenge:      ']; 
text3 =['!!!  Die Laenge des 3.Armes muss kleiner   !!!']; 
text3a=['!!!    als die Laenge des 1.Armes sein.    !!!']; 
text3b=['      neue Eingabe fuer die 3.Armlaenge:      ']; 
 
text1(26)=['1']; text2a(29)=['1'];    %Abfrage der Laenge  
l(1,1)=input(text1);                  %des 1.Roboterarmes. 
 while l(1,1)<=0                      %Wiederholen der   
   disp(text2);                       %Abfrage, bis die 
   l(1,1)=input(text2a);              %Armlaenge positiv  
 end                                  %ausfaellt. 
 
text1(26)=['2']; text2a(29)=['2'];    %Abfrage der Laenge 
l(2,1)=input(text1);                  %des 2.Roboterarmes. 
 while l(2,1)<=0                      %Wiederholen der  
   disp(text2);                       %Abfrage, bis die 
   l(2,1)= input(text2a);             %Armlaenge positiv 
 end                                  %ausfaellt. 
 
text1(26)=['3']; text2a(29)=['3'];    %Abfrage der Laenge 
l(3,1)=input(text1);                  %des 3.Roboterarmes. 
 while l(3,1)<=0 | l(3,1)>=l(1,1)     %Wiederholen   
   if l(3,1)<=0                       %der Abfrage, bis  
     disp(text2);                     %die Armlaenge 
     l(3,1)=input(text2a);            %positiv 
   else                               %und 
     disp(text3);                     %kleiner 
     disp(text3a);                    %als die  
     l(3,1)=input(text3b);            %1.Armlaenge  
   end                                %ausfaellt. 
 end