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)