Mathc matrices/h09j

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

	c00g.c

/* ------------------------------------ */
/*  Save as :   c00g.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");
       pAi_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=[
-0.337,+0.211,-0.566,+0.159;
+0.336,+0.943,-0.447,+0.127;
-0.456,-0.399,-0.950,-0.236;
-0.282,-0.207,+0.064,-0.890]

 expm (A0)


 Press return to continue. 

/* ------------------------------------ */
 Copy/Past into the octave window.       

 A1=[
-0.173,+0.607,-0.111,+0.377;
-0.884,+0.316,+0.837,+0.531;
-0.502,+0.733,+0.659,-0.240;
+0.568,-0.893,+0.744,+0.469]

 expm (A1)


 Press return to continue. 

/* ------------------------------------ */
 Copy/Past into the octave window.       

 A2=[
+0.041,+0.375,+0.560,-0.035;
+0.227,-0.212,-0.229,+0.356;
-0.671,+0.900,-0.495,-0.708;
-0.024,+0.850,-0.821,-0.122]

 expm (A2)



 Press   return to continue
 Press X return to stop