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)

end