Aller au contenu

Mathc complexes/a178

Un livre de Wikilivres.

Application


Installer et compiler ce fichier dans votre répertoire de travail.

c00a.c
/* ------------------------------------ */
/*  Save as :   c00a.c                  */
/* ------------------------------------ */
#include "w_a.h" 
/* ------------------------------------ */
/* ------------------------------------ */
#define  TAB  C3
#define   RA  R5
#define   CA  C1
#define   CB  C3
/* ------------------------------------ */
/* ------------------------------------ */
void fun(void)
{
double **A[TAB];
double **B = i_mZ(RA,CB);
int c;

  clrscrn();

  printf(" The problem :\n\n");
  
  for(c=C0; c<TAB; c++)
     {
	  A[c] = r_mZ(i_mZ(RA,CA),99);	
	   
	  printf(" A[%d] :",c);      
      p_mZ(A[c],S5,P0,S5,P0,C6); 
     }  
	  
  stop();
  
  clrscrn();
  
    for(c=C0; c<TAB; c++)
  
	  c_c_mZ(A[c],C1,B,c+C1);
	  
  printf(" A solution :\n\n");  
  
  printf("    A[0]        A[1]        A[2] :");	     
  p_mZ(B,S6,P0,S4,P0,C10);

  for(c=C0; c<TAB; c++)
  
       f_mZ(A[c]); 
       
  f_mZ(B);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));

do
{
  fun();

} while(stop_w());

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


L'affichage des vecteurs d'une colonne prend trop de place. J'ai donc tenté de les installer dans une matrice avant de les afficher.


Exemple de sortie écran :

 -------------------------------
 The problem :

 A[0] :
   -2  -62i 
  -34  -15i 
  +87  -46i 
  +15  +16i 
  -13  -60i 

 A[1] :
  +26  +76i 
  +68  +90i 
  +61  -70i 
  -58  +96i 
  +29  -65i 

 A[2] :
  -46  +53i 
  -82  +54i 
  +60  +42i 
  +86  -99i 
  +75  -25i 

 Press return to continue. 


 -------------------------------
 A solution :

    A[0]        A[1]        A[2] :
    -2 -62i    +26 +76i    -46 +53i 
   -34 -15i    +68 +90i    -82 +54i 
   +87 -46i    +61 -70i    +60 +42i 
   +15 +16i    -58 +96i    +86 -99i 
   -13 -60i    +29 -65i    +75 -25i 


 Press   return to continue
 Press X return to stop