Código para obtener la probabilidad del problema de los zapatos

En un clóset hay dispuestos dos cajones con zapatos. El primero contiene 10 zapatos derechos y el segundo, los 10 zapatos izquierdos compañeros. Se sacan uno a uno 8 zapatos del primer cajón y 8zapatos del segundo cajón. ¿Cuál es la probabilidad de que al comparar el i-ésimo zapato sacado del primer cajón con el i-ésimo zapato extraído del segundo cajón no se obtenga un par completo?
CÓGIGO:promt='Introduzca el numero de experimentos:';
a=input(promt);

A=zeros(1,a);
B=zeros(1,a);
i=0;
j=0;
s=0;
c=0;
p=0;
Pro=0;
n=0;
h=0;

for b=1:a
disp +++++;
disp(b);
disp-----;
h=1;
disp(h);
i=randi([1,6],1);
disp(i);
j=randi([1,6],1);
disp(j);
s=i+j;
disp Suma:;
disp(s);
c=0;
if s==7
c=1;
n=n+1;else
if s==11
c=1;
n=n+1;
else
if s==2
c=2;
else
if s==3
c=2;else
if s==12
c=2;
else
p=s;
end
end
endend
end
while c==0
h=h+1;
disp -----;
disp(h);
i=randi([1,6],1);
disp(i);
j=randi([1,6],1);
disp(j);
disp Suma:;s=i+j;
disp(s);
if s==p
c=1;
n=n+1;
else
if s==7
c=2;
end
end
end
Pro=n/b;A(1,b)=b;
B(1,b)=Pro;
end

disp(B);
plot(A,B);

disp Gano:;
disp(n);


El juego de Craps se practica dejando que un jugador lance dos dados hasta que gana o pierde, el jugador gana elprimer lanzamiento si tiene como total 7 u 11, pierde en el primer lanzamiento si tiene un total de 2, 3 o 12, si el jugador obtiene otro total en su primer lanzamiento, ese total se denomina su...