Mathc complexes/a205

Application

Le code de la fonction :

/* ------------------------------------ */
/* ------------------------------------ */
double **c_s_mZ(
double   s,
double **A,
int r,
int c
)
{
         A[r][c] = s;

return(A);
}
/* ------------------------------------ */
/* ------------------------------------ */

La fonction peut copier un nombre réel dans la partie réelle ou imaginaire d'un nombre de A.

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

	c00a.c

/* ------------------------------------ */
/*  Save as :   c00a.c                  */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
int main(void)
{
double   s = 99.;

double **A = c_s_mZ(s,i_mZ(R3,C4),R1,C1);         /* 1 */

  clrscrn();
  printf(" A : c_s_mZ(%.0f,A, R1,C1);    s->A[R1,C1]\n",s);        
  p_mZ(A, S5,P0, S4,P0,C6);

  m0_mZ(A);
  c_s_mZ(s,A,R1,C2);                              /* 2 */
  printf(" A : c_s_mZ(%.0f,A, R1,C2);    s->A[R1,C2]\n",s);             
  p_mZ(A, S5,P0, S4,P0,C6);
  
  m0_mZ(A);
  printf(" A : c_s_mZ(%.0f,A, R2,C6);    s->A[R2,C6]\n",s);              
  p_mZ(c_s_mZ(s,A,R2,C6), S5,P0, S4,P0,C6);       /* 3 */
  stop();
   
  f_mZ(A);
  
  return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */

Exemple de sortie écran :

 A : c_s_mZ(99,A,R1,C1);    s->A[R1,C1]

  +99  +0i    +0  +0i    +0  +0i    +0  +0i 
   +0  +0i    +0  +0i    +0  +0i    +0  +0i 
   +0  +0i    +0  +0i    +0  +0i    +0  +0i 

 A : c_s_mZ(99,A,R1,C2);    s->A[R1,C2]

   +0 +99i    +0  +0i    +0  +0i    +0  +0i 
   +0  +0i    +0  +0i    +0  +0i    +0  +0i 
   +0  +0i    +0  +0i    +0  +0i    +0  +0i 

 A : c_s_mZ(99,A,R2,C6);    s->A[R2,C6]

   +0  +0i    +0  +0i    +0  +0i    +0  +0i 
   +0  +0i    +0  +0i    +0 +99i    +0  +0i 
   +0  +0i    +0  +0i    +0  +0i    +0  +0i 

 Press return to continue.