Mathc complexes/c072a
Installer et compiler ces fichiers dans votre répertoire de travail.
c02a.c |
---|
/* ------------------------------------ */
/* Save as : c02a.c */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(int r)
{
double **A = r_mZ(i_mZ(r,r),9.);
double **At = i_mZ(r,r);
clrscrn();
printf(" A\n");
p_mZ(A, S3,P0, S3,P0, C6);
printf(" At\n");
p_mZ(transpose_mZ(A,At), S3,P0, S3,P0, C6);
printf("\n det(A ) = ");
p_Z(det_Z(A), S1,P0, S1,P0);
printf("\n det(At) = ");
p_Z(det_Z(At), S1,P0, S1,P0);
f_mZ(A);
f_mZ(At);
}
/* ------------------------------------ */
int main(void)
{
time_t t;
srand(time(&t));
do
{
fun(rp_I(RC5)+RC1);
} while(stop_w());
return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */
Exemple de sortie écran :
A
+8 +4i -5 -3i +2 -1i -7 +4i
-5 +4i +8 -9i -5 +4i -5 -7i
+4 +2i +4 -9i -7 -1i -9 -9i
+4 +2i -1 -5i -7 -7i -3 -3i
At
+8 +4i -5 +4i +4 +2i +4 +2i
-5 -3i +8 -9i +4 -9i -1 -5i
+2 -1i -5 +4i -7 -1i -7 -7i
-7 +4i -5 -7i -9 -9i -3 -3i
det(A ) = +1478-5234i
det(At) = +1478-5234i
Press return to continue
Press X to stop