//  Conversion decimal - binaire et binaire - decimal
//  selon le standard IEEE-754

//  exec("dec2bin.sci");
  exec("bin2dec.sci");

//  Parametres du standard IEEE-754
//  p : nombre de bits de la mantisse (0 < p =< 52)
//  q : nombre de bits de l'exposant  (0 < q =< 11) 
  
  p = 23;
  q = 8;

//  Conversion nombre decimal --> nombre binaire
//  s : signe ( = 0 : positif ou nul, =1 : negatif)
//  m : vecteur-ligne (1xp) contenant la mantisse
//  e : vecteur-ligne (1xq) contenant l'exposant biaise

  x = 465.463;
//  x = 1.463;
//  x=0.463;
  write(%io(2),x,'(''Valeur decimale avant conversion  '',   f18.10)');


//************************************************************
//
//    Programme a realiser par vous.
//
//  [s, m, e] = dec2bin(x, p, q);
//
//************************************************************

  s = 0;
  m = [1 1 0 1 0 0 0 1 0 1 1 1 0 1 1 0 1 0 0 0 0 1 1];
  e = [1 0 0 0 0 1 1 1];
  
//  Afichage des resultats
  
  write(%io(2),s,'(''Bit de signe '',   i2)');
  write(%io(2),' ''Mantisse '' ');
  write(%io(2),m,'(52(i2))');
  write(%io(2),' ''Exposant '' ');
  write(%io(2),e,'(11(i2))');
      
//  Conversion nombre binaire selon le standard IEEE-754 --> nombre decimal

  [xx] = bin2dec(s, m, e, p, q);
 
//  Affichage du resultat

  write(%io(2),xx,'(''Valeur decimale apres conversion '',   f18.10)');
   
