Matlab - ejercicio de probabilidad

vector=[3,4,8,6,4,2,1,3];

f=unique(vector);

for k=1:length(f)

    disp([num2str(f(k)) ' se repite ' num2str(sum(vector==f(k))) 'vez-veces'])

end

clear all

A=[3,4,8,6,4,2,1,3]

B=unique(A,'stable');

s=0;

for i=1:length(B)

    n=find(A==B(i));

    m=[A(n(1)) length(n)];

    fprintf(' %4.0f se repite %3d \n', m(1), m(2))

    s=s+m(1)*m(2);

end

media_p=s/length(A)

>> media_ponderada

A =

     3     4     8     6     4     2     1     3

    3 se repite   2

    4 se repite   2

    8 se repite   1

    6 se repite   1

    2 se repite   1

    1 se repite   1

media_p =

    3.8750

>> media_ponderada

A =

     1     2     3     4     5     6     7     8     9     1     5     6     7     7     1     5     3     7

    7 se repite   4

    1 se repite   3

    5 se repite   3

    3 se repite   2

    6 se repite   2

    2 se repite   1

    4 se repite   1

    8 se repite   1

    9 se repite   1

media_p =

    4.8333

clear all

A=[3,4,8,6,4,2,1,3]

B=unique(A,'stable');

for i=1:length(B)

    n=find(A==B(i));

    m(i,:)=[A(n(1)) length(n)];

end

n=size(m,1);

for i=1:n

    for j=1:n-i

        if m(j,2)<m(j+1,2)

            aux=m(j,:);

            m(j,:)=m(j+1,:);

            m(j+1,:)=aux;

        end

    end

end

s=0;

for i=1:size(m,1)

    fprintf(' %4.0f se repite %3d \n', m(i,1), m(i,2))

    s=s+m(i,1)*m(i,2);

end

media_p=s/length(A)

>> media_ponderada

A =

     3     4     8     6     4     2     1     3

    3 se repite   2

    4 se repite   2

    8 se repite   1

    6 se repite   1

    2 se repite   1

    1 se repite   1

media_p =

    3.8750