Mathc complexes/c071a

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

	c01a.c

/* ------------------------------------ */
/*  Save as :   c01a.c                  */
/* ------------------------------------ */

/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(int r)
{
double **A = r_mZ(i_mZ(r,r),9);

  clrscrn();
  printf(" Copy/Past into the octave window.       \n\n");
  printf(" octave give a bad result.                 \n");
  printf(" If you past this type of numbers +1 -2*i  \n");
  printf(" instead of this type (see space)  +1-2*i\n\n");
  p_Octave_mZ(A,"A",P0 ,P0);
  printf(" det(A)\n\n\n");

  printf(" det(A) = ");
  p_Z(det_Z(A), S1,P0, S1,P0);

  f_mZ(A);  
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));

do
{
  fun(rp_I(R3)+R2);
} while(stop_w());

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

Exemple de sortie écran :

 Copy/Past into the octave window.       

 octave give a bad result.                 
 If you past this type of numbers +1 -2*i  
 instead of this type (see space)  +1-2*i

 A=[
-9-5*i,+6+8*i,+4-7*i,+8-7*i,-7+2*i;
-1-1*i,+4-3*i,+8-1*i,-7+2*i,-5-5*i;
-1+2*i,+2+4*i,+4-5*i,-1+8*i,-3-1*i;
+8+2*i,-3+2*i,-7-7*i,-9-3*i,+2+6*i;
+4+2*i,-5-5*i,-3-1*i,+4-9*i,-3+8*i]

 det(A)


 det(A) = -26280+132141i 
 Press return to continue
 Press X      to stop