laenge.m

来自「三臂机器人仿真程序」· M 代码 · 共 38 行

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