Mathc matrices/a73

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

	c00h.c

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

double **A[tA];  
                      
  for(i = R0; i < R3; i++)
     { 
	   clrscrn();	
	    
       A[i] = rE_mR(i_mR(RCA,RCA),999,+1.E-3);
    
       printf(" Copy/Past into the octave window.       \n\n");
       pEAi_Octave_mR(A[i], "A",i, P3);
       printf(" expm (A%d)\n\n\n",i);
       
       if(i<R2) stop();
      }  

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

  srand(time(&t));

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

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

Vous pouvez trouvez toutes les commandes Octave utilisés dans ce cours ici :  Listes des commandes 



Exemple de sortie écran :

 Copy/Past 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/Past 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.