Mathc matrices/a73

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

	c00b.c

/* ------------------------------------ */
/*  Save as :   c00b.c                  */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
#define RCA   RC4
#define ARRAY A5
/* ------------------------------------ */
void fun(void)
{
int i;

double **A[ARRAY];  
                      
  for(i = A0; i < ARRAY; i++)
     { 
	   clrscrn();	
	    
       A[i] = rE_mR(i_mR(RCA,RCA),999,+1.E-3);
    
       printf(" Scientific notation.\n\n"
              " Copy/Paste into the octave window.\n\n");
         
       pEAi_Octave_mR(A[i], "A",i, P3);
       printf(" expm (A%d)\n\n\n",i);
       
       stop();
      }  

  for(i = A0; i < ARRAY; i++)
  
      f_mR(A[i]);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));

do
{
    fun();
    
} while(stop_w());

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

Exemple de sortie écran :

 Copy/Paste into the octave window.       
 A0=[
+9.090e-01,-4.210e-01,+1.460e-01,-9.050e-01;
-3.550e-01,+2.040e-01,-9.800e-01,+8.120e-01;
+1.770e-01,-3.810e-01,-3.970e-01,+5.250e-01;
-9.350e-01,+3.690e-01,-9.530e-01,+5.180e-01]

 expm (A0)


 Press return to continue. 


 Copy/Paste into the octave window.       

 A1=[
-8.980e-01,-6.840e-01,+6.120e-01,+8.870e-01;
+5.980e-01,-8.100e-01,+8.970e-01,-8.200e-01;
+9.600e-01,+2.200e-02,+2.740e-01,+6.880e-01;
+8.440e-01,-8.900e-01,+2.010e-01,-3.780e-01]

 expm (A1)


 Press return to continue.