Mathc complexes/a81

Application

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

	c00b.c

/* ------------------------------------ */
/*  Save as :   c00b.c                  */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(int r)
{
double **Q   =        r_q_mZ(  i_mZ(r,r),99);

  clrscrn();
    
  printf(" Q :      An orthogonal matrix ");
  p_mZ(Q,S9,P4, S9,P4, C4);
     
  f_mZ(Q);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));

do
{
  fun(rp_I(R3)+R2);

} while(stop_w());

  return 0;
}

/* ------------------------------------ */
/* ------------------------------------ */

 Matrices orthogonals : 

Exemple de sortie écran :

 ------------------------------------------
 Q :      An orthogonal matrix 
 -88.0000 +86.0000i  -23.6499 -61.1655i  +21.9344 -64.4603i   -0.8629 -39.9697i 
 -62.0000 +18.0000i  +52.3126 +11.5491i  -50.2442 +48.8662i  -50.0638 -64.7237i 
 -87.0000 -88.0000i  -53.0323 -16.6178i  -40.0626 -10.4814i   -0.5080  +8.2917i 
 +45.0000 -39.0000i  -15.3490 +14.8420i  +53.7873 -20.2083i  -54.0107-102.0869i 
 -44.0000 -11.0000i  -44.0567 +48.2351i  +87.2384 +27.1629i  -17.4735 +19.2489i 

 +14.8380  +2.8262i 
 +10.3979 -24.2183i 
 -27.8384 -21.0424i 
 -20.2057 +10.2384i 
 +23.7651 -20.3494i 


 Press return to continue
 Press X      to stop