Mathc matrices/a224
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00a.c */
void fun(int r)
double s = r_I(9);
double **A = r_mR( i_mR(r,r),9.);
double **sA = smul_mR(s,A,i_mR(r,r) );
 clrscrn();
 printf(" A[r][r] : r = rows \n\n\n"
 " ( s**r)\n"
 " A : (%+.0f**%d)*det_R(A) = %+.0f", s,r, pow(s,r)*det_R(A));
 p_mR(A, S4, P0, C5);
 printf(" sA : detR(sA) = %+.0f", det_R(sA));
 p_mR(sA, S4, P0, C5);
 f_mR(sA);
 f_mR(A);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun(rp_I(RC3)+C2);
} while(stop_w());
 return 0;
/* ------------------------------------ */

Exemple de sortie écran :
 A[r][r] : r = rows 
 ( s**r)
 A : (-2**5)*det_R(A) = -1585856
 +4 -9 +6 -7 +1 
 -2 +9 +6 +6 +6 
 +8 +1 +3 +2 -3 
 -6 -8 -8 +3 +4 
 +2 +1 -1 +6 -5 
 sA : detR(sA) = -1585856
 -8 +18 -12 +14 -2 
 +4 -18 -12 -12 -12 
 -16 -2 -6 -4 +6 
 +12 +16 +16 -6 -8 
 -4 -2 +2 -12 +10 
 Press return to continue
 Press X return to stop

Mathc complexes/a204
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00a.c */
void fun(int r)
nb_Z z = r_Z(9);;
double **A = r_mZ( i_mZ(r,r),9.);
double **zA = zmul_mZ(z,A, i_mZ(r,r) );
 clrscrn(); 
 printf(" With z = ");p_Z(z,S3,P0,S3,P0);printf(" and r = %d\n\n",r);
 printf(" A[r][r] : r = rows \n\n\n"
 " A : (z**r)*det_Z(A) = ");
 p_Z(mul_Z( pow_Z(r,z), det_Z(A) ), S4,P0, S5,P0);
 p_mZ(A, S4,P0, S4,P0, C3);
 printf(" zA : det_Z(zA) = ");
 p_Z(det_Z(zA), S4,P0, S5,P0);
 p_mZ(zA, S4,P0, S4,P0, C3);
 f_mZ(zA);
 f_mZ(A);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun(RC3);
} while(stop_w());
 return 0;
/* ------------------------------------ */

Exemple de sortie écran :
 With z = -7 -4i and r = 3
 A[r][r] : r = rows 
 A : (z**r)*det_Z(A) = -228724+768232i 
 +4 +6i +1 +8i +2 -5i 
 +1 -8i -2 +8i -4 -1i 
 +3 -9i -4 -6i +7 +7i 
 zA : det_Z(zA) = -228724+768232i 
 -4 -58i +25 -60i -34 +27i 
 -39 +52i +46 -48i +24 +23i 
 -57 +51i +4 +58i -21 -77i 
 Press return to continue
 Press X return to stop