scbininst.m

   % script binome_instable;
     debut = 99990;
     fin   = 100010;
     for i=(debut:fin)./100000
       fprintf('%15.5f %10.3e %10.3e\n',i, bin1(i), bin2(i));
     end;
     i=(debut:fin)./100000;
     plot(i,bin1(i));
     pause;
     plot(i,bin2(i));