Aller au contenu

Mathc complexes/a167

Un livre de Wikilivres.


Application


Installer et compiler ces fichiers dans votre répertoire de travail.


c00b.c
/* ------------------------------------ */
/*  Save as :   c00b.c                  */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */  
#define RAb          R2  
#define CA           C2
#define Cb           C1
/* ------------------------------------ */
/* ------------------------------------ */
void fun(void)
{
double ab[R2*(CA+Cb)*C2] ={  
   +6.0000,+0.5000,    +0.5000,-9.0000,    -5.0000,+12.5000, 
   -4.0000,-0.5000,    -0.5000,-3.0000,    -4.0000,+6.5000    
};
                     
double **Ab = ca_A_mZ(ab, i_Abr_Ac_bc_mZ(RAb,CA,Cb));                        
	
  clrscrn();
  printf(" Copy/Past into the octave window.\n\n");
  p_Octave_mZ(Ab,"Ab",P0, P0);
  printf(" rref(Ab,.00000000001)\n\n");
  printf(" Let's calculate B and C :");
  p_mZ(gj_mZ(Ab), S5,P8, S9,P8, C3);
  stop();

  f_mZ(Ab);
}
/* ------------------------------------ */
int main(void)
{
  fun();

  return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */


 Calculons B et C.


Exemple de sortie écran :
 ------------------------------------ 
 Copy/Past into the octave window.

 Ab=[
+6+0*i,+0-9*i,-5+12*i;
-4-0*i,-0-3*i,-4+6*i]

 rref(Ab,.00000000001)

 Let's calculate B and C :
+1.00000000-0.00000000i -0.00000000+0.00000000i +0.53196192-0.35481129i 
-0.00000000+0.00000000i +1.00000000+0.00000000i -1.64246855-0.83866032i 

 Press return to continue.