Musterlösung Walzwerk

function walzwerk
   ii = 2;
   vektorV = [ 0 1 ]; % Geschwindigkeitsvektor
   v = 1; % Geschwindigkeit v in [m/s]
   varFehler = 0;%Fehlerwahrscheinlichkeit
   while v > 0
      ii = ii+1
      if varFehler <= 98
         varFehler = randi(100);
      end
      switch varFehler % wenn Zufallszahl > 98 dann Fehler (2% Wahrsch.)
         case 99
            umdr = num2str(ii) %Umdrehungen als string
            disp (['Fehler nach' umdr 'Umdrehungen'] );
            if v > 0
               v = v - 1; %Geschwindigkeit wird verringert
            end
         case 100
            umdr = num2str(ii)
            disp (['schwerer Fehler nach' umdr 'Umdrehungen']);
            if v > 0
               v = v - 1; %Geschwindigkeit wird verringert
            end
         otherwise
            if v < 30 %maximale Geschwindigkeit der Walze 30 m/s
               v = v + 1; %Geschwindigkeit um 1[m/s] erhöht
            end
      end
      vektorV(ii) = v;
   end
   disp('Walzenstillstand');
   plot(vektorV)