// xcas version=0.7.0 fontsize=16 // fltk 7Fl_Tile 24 -225 1068 675 16 [ // fltk N4xcas7EditeurE 24 -225 1068 675 16 1551 , probcon22(pa,a,pba,b,pbna):={ local pna,pnba,pnbna,paib,painb,pnaib,pnainb,pb,pnb,pab,panb, pnab, pnanb, A, NA, BA, NBA, BNA, NBNA, PA, PNA, PBA, PNBA, PBNA, PNBNA, LA, LNA, LBA, LNBA, LBNA, LNBNA, LAIB, LAINB, LNAIB, LNAINB; pna:=1-pa; pnba:=1-pba; pnbna:=1-pbna; paib:=pa*pba; painb:=pa*pnba; pnaib:=pna*pbna; pnainb:=pna*pnbna; pb:=paib+pnaib; pnb:=1-pb; pab:=paib/pb; panb:=painb/pnb; pnab:=pnaib/pb; pnanb:=pnainb/pnb; print("La probabilité de "+b+" vaut "+pb); print(" La probabilité de "+a+" sachant "+b+" vaut "+pab); print(" La probabilité de "+a+" sachant non-"+b+" vaut "+panb); print(" La probabilité de non-"+a+" sachant "+b+" vaut "+pnab); print(" La probabilité de non-"+a+" sachant non-"+b+" vaut "+pnanb); A:=point(1,1);NA:=point(1,-1);BA:=point(2,1.5);NBA:=point(2,0.5);BNA:=point(2,-0.5);NBNA:=point(2,-1.5); PA:=segment(point(0,0),A); PNA:=segment(point(0,0),NA); PBA:=segment(A,BA); PNBA:=segment(A,NBA); PBNA:=segment(NA,BNA); PNBNA:=segment(NA,NBNA); LA:=legend(0.5*A,"p("+a+")="+pa);LNA:=legend(0.5*NA,"p(non-"+a+")="+pna); LBA:=legend(0.5*(BA+A),"p("+b+"/"+a+")="+pba); LNBA:=legend(0.5*(NBA+A),"p(non-"+b+"/"+a+")="+pnba); LBNA:=legend(0.5*(BNA+NA),"p("+b+"/non-"+a+")="+pbna); LNBNA:=legend(0.5*(NBNA+NA),"p(non-"+b+"/non-"+a+")="+pnbna); LAIB:=legend(BA,"p("+a+" ET "+b+")="+paib);LAINB:=legend(NBA,"p("+a+" ET non-"+b+")="+painb); LNAIB:=legend(BNA,"p(non-"+a+" ET "+b+")="+pnaib); LNAINB:=legend(NBNA,"p(non-"+a+" ET non-"+b+")="+pnainb); PA,PNA,PBA,PNBA,PBNA,PNBNA,LA,LNA,LBA,LNBNA,LBNA,LNBA,LAIB,LAINB,LNAIB,LNAINB; }:;, // fltk N4xcas10Log_OutputE 24 450 1068 0 16 // Parsing probcon22£// Success compiling probcon22£ , // fltk N4xcas8EquationE 24 450 1068 0 16 "Done" ] , // fltk 7Fl_Tile 24 452 1068 470 16 [ // fltk N4xcas19Multiline_Input_tabE 24 452 1068 26 16 probcon22(3/5,"V",3/4,"D",2/3) , // fltk N4xcas10Log_OutputE 24 478 1068 104 16 "La probabilité de D vaut 43/60"£" La probabilité de V sachant D vaut 27/43"£" La probabilité de V sachant non-D vaut 9/17"£" La probabilité de non-V sachant D vaut 16/43"£" La probabilité de non-V sachant non-D vaut 8/17"£ , // fltk 7Fl_Tile 24 582 1068 340 16 [ // fltk N4xcas7Graph2dE 24 582 730 340 16 -0.24394,2.8659,-2.3324,2.3324,[pnt(pnt[group[0,1+i],0]),pnt(pnt[group[0,1-i],0]),pnt(pnt[group[1+i,2.0+1.5*i],0]),pnt(pnt[group[1+i,2.0+0.5*i],0]),pnt(pnt[group[1-i,2.0-0.5*i],0]),pnt(pnt[group[1-i,2.0-1.5*i],0]),pnt(pnt[0.5+0.5*i,0,"p(V)=3/5"]),pnt(pnt[0.5-0.5*i,0,"p(non-V)=2/5"]),pnt(pnt[1.5+1.25*i,0,"p(D/V)=3/4"]),pnt(pnt[1.5-1.25*i,0,"p(non-D/non-V)=1/3"]),pnt(pnt[1.5-0.75*i,0,"p(D/non-V)=2/3"]),pnt(pnt[1.5+0.75*i,0,"p(non-D/V)=1/4"]),pnt(pnt[2.0+1.5*i,0,"p(V ET D)=9/20"]),pnt(pnt[2.0+0.5*i,0,"p(V ET non-D)=3/20"]),pnt(pnt[2.0-0.5*i,0,"p(non-V ET D)=4/15"]),pnt(pnt[2.0-1.5*i,0,"p(non-V ET non-D)=2/15"])],-79.879,79.879,1,0,0,0,0.2,0.2,0,0,1,2.0714,0,0,1,[],24,18,256,0,100,0,0,1,0.1 , // fltk 7Fl_Tile 754 582 343 340 16 [ // fltk N4xcas14Mouse_PositionE 754 582 343 32 16 [] , // fltk 8Fl_Group 754 614 343 95 16 [ // fltk 9Fl_Button 754 614 114 19 16 [] , // fltk 9Fl_Button 868 614 113 19 16 [] , // fltk 9Fl_Button 981 614 114 19 16 [] , // fltk 9Fl_Button 754 633 114 19 16 [] , // fltk 9Fl_Button 868 633 113 19 16 [] , // fltk 9Fl_Button 981 633 114 19 16 [] , // fltk 9Fl_Button 754 652 114 19 16 [] , // fltk 9Fl_Button 868 652 113 19 16 [] , // fltk 9Fl_Button 981 652 114 19 16 [] , // fltk 9Fl_Button 754 671 114 19 16 [] , // fltk 9Fl_Button 868 671 113 19 16 [] , // fltk 9Fl_Button 981 671 114 19 16 [] , // fltk 9Fl_Button 754 690 114 19 16 [] , // fltk 11Fl_Menu_Bar 868 690 227 19 16 [] ] , // fltk 8Fl_Group 754 709 343 213 16 [ ] ] ] ]