// xcas version=1.0.0 fontsize=14 font=0 currentlevel=0
// fltk 7Fl_Tile 11 36 854 399 14 0
[
// fltk N4xcas7EditeurE 11 36 854 287 14 0
442 ,
input(n);
input(p);
k:=0;                     
tantque binomial_cdf(n,p,k)<=0.025 faire // ici c'est infÃ©rieur ou Ã©gal
  k:=k+1
ftantque;
a:=k;
tantque binomial_cdf(n,p,k)<0.975 faire  // ici c'est infÃ©rieur strict
  k:=k+1
ftantque;
b:=k;
print("avec n= "+n+" et p= "+p+", a= "+a+" et b= "+b);
print("Intervalle de fluctuation au seuil 95% : ["+a/n+" ; "+b/n+"]");
print("soit environ ["+approx(a/n,3)+" ; "+approx(b/n,3)+"]");
print("");,
// fltk N4xcas10Log_OutputE 11 323 854 92 14 0
avec n= 115 et p= 0.38, a= 34 et b= 54£Intervalle de fluctuation au seuil 95% : [34/115 ; 54/115]£soit environ [0.296 ; 0.47]££Evaluation time: 10.359£
,
// fltk N4xcas8EquationE 11 415 854 20 14 0 1
[1,115],[1,0.38],0,34,34,54,54,1,1,1,1
]
,
// fltk 7Fl_Tile 11 437 854 25 14 0
[
// fltk N4xcas19Multiline_Input_tabE 11 437 854 24 14 0

,
// fltk N4xcas10Log_OutputE 11 461 854 1 14 0

]
// context 548 giac archive
7 0 11 8 0 0 'cas_setup' 7 0 11 0 0 0
0 0 0
0 0 0
0 1 0
0 0 0
7 0 2 1 íµ ÷Æ°>
1 n8]   
0 12 0
7 0 4 0 2 0
0 50 0
0 0 0
0 25 0
0 0 0
0 1 0
0 0 0
8 0 0 'xyztrange' 7 0 16 1       $À
1       $@
1       $À
1       $@
1       $À
1       $@
1       $À
1       $@
1       $À
1       $@
1 ffffffö¿
1 š™™™™™ñ?
0 1 0
1         
1       ð?
0 3 0
7 0 0 7 0 0 8 0 15 7 0 2 0 34 0
6 1 a 8 0 15 7 0 2 0 54 0
6 1 b 8 0 15 7 0 2 0 54 0
6 1 k 8 0 15 7 0 2 0 115 0
6 1 n 8 0 15 7 0 2 0 1 0
6 2 ok 8 0 15 7 0 2 1   adå a
6 1 p 8 0 0 'xcas_mode' 0 0 0