id 25.03

soferi = dlmread('accidente.txt');
n = rows(soferi);
gen = soferi(:,1);
varsta = soferi(:,2);
acc = soferi(:,3);
experienta = soferi(:,4);
#hist(acc,7,'facecolor','r');
grid;
nb = 0;nf =0;
for i=1:n
   if gen(i)==1
     nb++;
     barbati(nb) = acc(i);
     else
     nf++;
     femei(nf) = acc(i);
    endif
endfor
#{
subplot(3,2,1);
hist(femei,7,'facecolor','r');
title("Acc femei");
grid();

subplot(3,2,2);
hist(barbati,7,'facecolor','b');
title("Acc barbati");
grid();

subplot(3,2,3);
hist(experienta,7,'facecolor','g');
title("Experienta");
grid();

subplot(3,2,3)
tabulate(gen);
t=tabulate(gen);
bar(t(:,1),t(:,2));
title('Frecventa variabilei gen');
set(gca,'xticklabel',{'masculin','feminin'})
xlabel('Gen');
ylabel('Nr. persoane');
#}
nrcat1=1;
nrcat2=2;
nrcat3=3;

for i=1:n
  if varsta(i)<35
    cat(i)=nrcat1;
  else if varsta(i)<50
    cat(i)=nrcat2;
  else
    cat(i)=nrcat3;
   endif
   endif
   endfor
  t =tabulate(cat);
   bar(t(:,1),t(:,2),t(:,3));
   title('Frecventa variabilei gen');
set(gca,'xticklabel',{'0-35','35-50','50+'})
xlabel('Varsta');
ylabel('NR');