l3p1,2 SPD

%Intr-un calculator sosesc in medie 15 mesaje pe secunda.Nr de mesaje /s
%este o variabila aleatoare Poisson.Sa se calculeze probabilitatea ca
%intr-o secunda
%a) sa nu soseasca nici un mesaj;
%b) sa soseasca 10 mesaje;
%c) sa soseasca cel mult 10 mesaje;
%d) sa soseasca cel putin 10 mesaje.


clc;
clear all;
help l3p2.m

a=10;
n=input('n=');
l=input('lambda =');

x=zeros(2,n+1);
F=zeros(1,n+1);
k=(0:n);

for k=0:n
    x(1,k+1)=k;
    x(2,k+1)=((l^k)/factorial(k))*(exp(-l));
end

%x'

F=cumsum(x(2,:));
[x',F']

subplot(2,1,1);
stem(x(1,:),x(2,:));
subplot(2,1,2);
stairs(x(1,:),F);

M=sum(x(1,:).*x(2,:));
M

D=sum(x(1,:).^2.*x(2,:))-M^2;
D

D2=sum((x(1,:)-M).^2.*x(2,:));
D2

disp('-              a');
x(2,1)

disp('-              b');
x(2,11)

disp('-              c');
F(a+1)
sum(x(2,1:a+1))

disp('-              d');
1-F(a)
1-sum(x(2,1:a))
sum(x(2,a+1:n))