
 % Umfallgeschehen in der Schweiz zwischen 1980 und 1997
 % =====================================================
 
 % Daten aus ASCII-Files einlesen
 % ------------------------------
 
 % Strassenverkehrsunfälle, 1980-1997
 % 1. Kolonne: Jahr
 % 2. Kolonne: Unfälle insgesamt
 % 3. Kolonne: Unfälle mit verunfallten Personen
 % 4. Kolonne: Unfälle mit Sachschden
 % 5. Kolonne: Verletzte
 % 6. Kolonne: Getötete
 load -ascii StatUnf.mat
 A=StatUnf;
 
 A(:,2:6)=StatUnf(:,2:6)./1000;
 figure
 plot(A(:,1),A(:,2),A(:,1),A(:,3),A(:,1),A(:,4),A(:,1),A(:,5),...
 		A(:,1),A(:,6))
 xlabel('Jahr'), ylabel('Unfaelle 10^3')
 title('Strassenverkehrsunfaelle, 1980-1997')
 axis([1980 1997 0 90])
 legend('Unfaelle insgesamt','Unfaelle mit verunfallten Personen',...
 		'Unfaelle mit Sachschden','Verletzte','Getoetete',-1)
 
 
 % Verletzte nach Verkehrsteilnahme, 1980 - 1997
 % 1. Kolonne: Jahr
 % 2. Kolonne: Personenwagen
 % 3. Kolonne: Motorräder
 % 4. Kolonne: Motorfahrräder
 % 5. Kolonne: Fahrräder
 % 6. Kolonne: Fussgänger
 % 7. Kolonne: Übrige
 % 8. Kolonne: Total
 load -ascii StatVerl.mat
 B=StatVerl;
 
 B(:,2:8)=StatVerl(:,2:8)./1000;
 figure
 plot(B(:,1),B(:,2),B(:,1),B(:,3),B(:,1),B(:,4),B(:,1),B(:,5),...
 		B(:,1),B(:,6),B(:,1),B(:,7))
 xlabel('Jahr'), ylabel('Verletzte und Getoetete 10^3')
 title('Verletzte nach Verkehrsteilnahme, 1980 - 1997')
 axis([1980 1997 0 20])
 legend('Personenwagen','Motorraeder','Motorfahrraeder','Fahrraeder',...
 		'Fussgaenger','Uebrige',-1)

 % Fahrzeugbestand, 1980 - 1997 
 % 1. Kolonne: Jahr
 % 2. Kolonne: Personenwagen
 % 3. Kolonne: Sachentransportfahrzeuge
 % 4. Kolonne: Motorräder
 % 5. Kolonne: Andere Motorfahrzeuge
 % 6. Kolonne: Total Motorfahrzeuge
 % 7. Kolonne: Motorfahrräder
 load -ascii StatBest.mat
 C=StatBest;
 
 C(:,2:7)=StatBest(:,2:7)./1000;
 figure
 plot(C(:,1),C(:,2),C(:,1),C(:,3),C(:,1),C(:,4),C(:,1),C(:,5),...
 		C(:,1),C(:,7))
 xlabel('Jahr'), ylabel('Fahrzeugbestand 10^3')
 title('Fahrzeugbestand, 1980 - 1997 ')
 axis([1980 1997 0 3500])
 legend('Personenwagen','Sachentransportfahrzeuge','Motorraeder',...
 		'Andere Motorfahrzeuge','Motorfahrraeder',-1)
 
 % Strassenverkehrsunfälle unter Alkoholeinfluss, 1980 - 1997 
 % 1. Kolonne: Jahr
 % 2. Kolonne: Unfälle abs.
 % 3. Kolonne: Unfälle %
 % 4. Kolonne: Verletzte abs.
 % 5. Kolonne: Verletzte %
 % 6. Kolonne: Getötete abs.
 % 7. Kolonne: Getötete %
 load -ascii StatAlk.mat
 D=StatAlk;
 
 figure
 plot(D(:,1),D(:,3),D(:,1),D(:,5),D(:,1),D(:,7))
 xlabel('Jahr'), ylabel('Angaben in %')
 title('Strassenverkehrsunfaelle unter Alkoholeinfluss, 1980 - 1997 ')
 axis([1980 1997 0 25])
 legend('Unfaelle %','Verletzte %','Getoetete %',-1)
 figure
 plot(D(:,1),D(:,2),D(:,1),D(:,4),D(:,1),D(:,6))
 xlabel('Jahr'), ylabel('absolut')
 title('Strassenverkehrsunfaelle unter Alkoholeinfluss, 1980 - 1997 ')
 axis([1980 1997 0 8000])
 legend('Unfaelle abs.','Verletzte abs.','Getoetete abs.',-1)
















