idm 18

clear
 soferi = dlmread('accidente.txt');
 n = rows(soferi);
 gen = soferi(:,1);
 varsta = soferi(:,2);
 acc = soferi(:,3);
 experienta = soferi(:,4);
 disp('varsta medie a soferilor:')
 mean(varsta)

 f=1;
 b=1;

 for i=1:n
   if soferi(i,1)==1
     soferi_b(b,1:4)=soferi(i,:);
     b=b+1;
   else
      soferi_f(f,1:4)=soferi(i,:);
      f+=1;
   endif
endfor
#soferi_b=soferi_b(:,1:4)
#soferi_f=soferi_f(:,1:4)
disp('varsta media a soferilor de gen feminin:')
mean(soferi_f(:,2))
disp('varsta media a soferilor de gen masculin:')
mean(soferi_b(:,2))
disp('medie acc in ultimul an ')
mean(acc)
disp('accidente au provocat în medie bãrbaþii')
mean(soferi_b(:,3))
disp('accidente au provocat în medie femeile?')
mean(soferi_f(:,3))
sum1=0;
k1=0;
sum2=0;
k2=0;
for i=1:n
  if soferi(i,2)>50
    sum1+=soferi(i,3);
    k1+=1;
  endif
  if soferi(i,2)<30
    sum2+=soferi(i,3);
    k2+=1;
  endif
endfor
disp('accidente au provocat în medie ºoferii cu vârsta peste 50 de ani')
disp(sum1/k1)
disp('cei mai tineri decât 30 de ani câte accidente au provocat în medie?')
disp(sum2/k2)

sum3=0;
k3=0;
for i=1:n
  if soferi(i,1)==1 && soferi(i,2)>40
    sum3+=soferi(i,3);
    k3+=1;
   endif
endfor
disp('accidente au provocat în medie bãrbaþii cu vârsta peste 40 de ani?')
disp(sum3/k3)

disp('numãrul maxim de accidente provocate de un ºofer')
disp(max(soferi(:,3)))

disp('este numãrul total de accidente provocate în ultimul an')
disp(sum(soferi(:,3)))

disp('soferi care au 6 accidente')
for i=1:n
  if soferi(i,3)==6
    disp(soferi(i,4))
    disp(soferi(i,2))
    endif
endfor

disp('Ce vârstã au cei mai tineri soferi?')
disp(min(soferi(:,2)))
disp('Ce vârstã au cei mai vârstnici soferi')
disp(max(soferi(:,2)))
sum=0;
k=0
for i=1:n
  if soferi(i,2)==max(soferi(i,2))
   sum+=soferi(i,3);
  k+=1;
 endif
endfor
disp('Câte accidente au provocat în medie ºoferii de vârstã maximã')
sum=0;
k=0;
for i=1:n
  if soferi(i,2)==max(soferi(:,2))
    sum+=soferi(i,3);
    k+=1;
  endif
endfor
disp('Câte accidente au provocat în medie ºoferii de vârstã maximã?')
disp(sum/k)
for i=1:n
  if soferi(i,2)>55
    disp(soferi(i))

  endif
endfor

min=200
for i=1:n
  if soferi(i,3)==0 && soferi(i,2)<min
    min=soferi(i,2)
   endif
endfor
disp('vârstã are cel mai tânãr ºofer care nu a provocat niciun accident?')
disp(min)
max=0
for i=1:n
  if soferi(i,3)==3 && soferi(i,2)>max
    max=soferi(i,2)
   endif
endfor
disp('Dintre cei care au provocat exact 3 accidente, câþi ani are cel mai vârstnic?')
disp(max)