Exemple de sortie écran :
 A :
 -17.0000 +8.0000i -39.0000 +94.0000i -80.0000 +14.0000i 
 +72.0000 +68.0000i -48.0000 -53.0000i -31.0000 +68.0000i 
 -97.0000 -89.0000i +37.0000 -45.0000i +88.0000 -61.0000i 
 V :
 -0.0422 +0.6941i +0.3636 -0.1371i -0.1351 -0.5892i 
 +0.3094 -0.0302i -0.2540 +0.8219i -0.1699 -0.3668i 
 +0.6479 +0.0000i +0.3302 +0.0000i +0.6865 +0.0000i 
 U :
 -0.3009 -0.1048i -0.7883 -0.1238i +0.4883 +0.1525i 
 -0.5162 -0.0029i +0.5926 -0.0845i +0.6124 +0.0136i 
 +0.7950 +0.0000i +0.0698 +0.0000i +0.6026 +0.0000i 
 X_Value = U_T * A * V
 +167.2611-148.6020i +0.0000 +0.0000i +0.0000 +0.0000i 
 -0.0000 +0.0000i +131.3255 +37.8114i +0.0000 -0.0000i 
 -0.0000 +0.0000i -0.0000 +0.0000i -2.8497 +35.4677i 
 Press return to continue. 
 X_Value = U_T * A * V
 +167.2611-148.6020i +0.0000 +0.0000i +0.0000 +0.0000i 
 -0.0000 +0.0000i +131.3255 +37.8114i +0.0000 -0.0000i 
 -0.0000 +0.0000i -0.0000 +0.0000i -2.8497 +35.4677i 
 Singular value : 
 +223.7383 +0.0000i 
 +136.6604 +0.0000i 
 +35.5820 +0.0000i 
 Press return to continue
 Press X to stop

Mathc complexes/a59
Application 
Installer et compiler ces fichiers dans votre répertoire de travail.
/* ------------------------------------ */
/* Save as : c00b1.c */
/* Standard file */
int main(void)
double x = -128.8279;
double y = -184.7775; 
 printf("\n\n\n sqrt(x*x+y*y) = %.4f \n\n\n", sqrt(x*x+y*y));
 return 0;
/* ------------------------------------ */

Mathc complexes/a57
Application 
Installer et compiler ces fichiers dans votre répertoire de travail.
/* ------------------------------------ */
/* Save as : c00b.c */
/* ------------------------------------ */
void fun(void)
int r = RCA;
int c = RCA;
double **A = r_mZ(i_mZ(r,c),99); 
double **A_T = ctranspose_mZ(A,i_mZ(c,r));
double **V = i_mZ(r,c);
double **V_T = i_mZ(c,r);
double **U = i_mZ(r,c);
double **U_T = i_mZ(c,r); // :c,r 
double **U_TA = i_mZ(c,c); // c,r r,c :c,c
double **U_TA2 = i_mZ(c,r); // c,r :c,r 
double **U_TA2V = i_mZ(c,c); // c,r r,c :c,c X_Value
double **A2V = i_mZ(r,c); 
double **A2 = i_mZ(r,r); // A = U * X_Value * V_T 
 clrscrn();
 printf(" A :");
 p_mZ(A, S10,P2, S8,P2, C3);
 X_U_mZ(A_T,U,FACTOR_E);
 printf(" U :");
 p_mZ(U, S10,P4, S8,P4, C3);
 X_V_mZ(A_T,V,FACTOR_E);
 printf(" V :");
 p_mZ(V, S10,P4, S8,P4, C3);
 ctranspose_mZ(U,U_T);
 ctranspose_mZ(V,V_T); 
/* X_Value = U_T * A * V */
 mul_mZ( U_T, A, U_TA); // U_TA : c,c
 c_mZ( U_TA, U_TA2); // U_TA2 : c,r 
 mul_mZ( U_TA2, V, U_TA2V); // V : r,c
 printf(" X_Value = U_T * A * V :");
 p_mZ(U_TA2V, S10,P4, S8,P4, C3);
 stop();
 clrscrn();
/* A = U * X_Value * V_T */ 
 mul_mZ( U, U_TA2V, A2V); // U,U_T = 1;
 mul_mZ(A2V, V_T, A2); // V,V_T = 1;
 printf(" A2 = U * X_Value * V_T : \t\t U * (U_T*A*V) * V_T ");
 p_mZ(A2, S5,P0, S4,P0, C3); 
 printf(" A :");
 p_mZ(A, S5,P0, S4,P0, C3);
 f_mZ(A); 
 f_mZ(A_T); 
 f_mZ(V); 
 f_mZ(V_T); 
 f_mZ(U); 
 f_mZ(U_T); 
 f_mZ(U_TA); 
 f_mZ(U_TA2); 
 f_mZ(U_TA2V); 
 f_mZ(A2V); 
 f_mZ(A2); 
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun();
} while(stop_w());
 return 0;
/* ------------------------------------ */
 Exemple de sortie écran :
 A :
 -31.00 -96.00i +70.00 -50.00i +56.00 -97.00i 
 -38.00 +27.00i +96.00 -62.00i -8.00 -8.00i 
 -97.00 -34.00i +25.00 +5.00i -96.00 -7.00i 
 U :
 +0.2573 +0.7258i -0.3396 -0.1574i +0.0722 -0.5115i 
 +0.3040 +0.0685i -0.1878 -0.7200i -0.1054 +0.5815i 
 +0.5567 +0.0000i +0.5534 +0.0000i +0.6196 +0.0000i 
 V :
 +0.5841 +0.3137i +0.1472 -0.3070i -0.6600 -0.0945i 
 +0.1352 -0.3924i +0.3081 +0.7735i -0.3373 -0.1441i 
 +0.6230 +0.0000i +0.4369 +0.0000i +0.6488 +0.0000i 
 X_Value = U_T * A * V :
 -180.4533-114.5869i -0.0000 -0.0000i +0.0000 -0.0000i 
 -0.0000 +0.0000i -113.5372+76.9620i +0.0000 -0.0000i 
 -0.0000 +0.0000i +0.0000 -0.0000i -14.8443+35.1462i 
 Press return to continue. 
 A2 = U * X_Value * V_T : U * (U_T*A*V) * V_T 
 -31 -96i +70 -50i +56 -97i 
 -38 +27i +96 -62i -8 -8i 
 -97 -34i +25 +5i -96 -7i 
 A :
 -31 -96i +70 -50i +56 -97i 
 -38 +27i +96 -62i -8 -8i 
 -97 -34i +25 +5i -96 -7i 
 Press return to continue
 Press X to stop

Mathc complexes/a58
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* ------------------------------------ */
/* Save as : c00c.c */
/* ------------------------------------ */
void fun(void)
int r = RCA;
int c = RCA;
double **A = r_mZ(i_mZ(r,c),99);
double **A_T = ctranspose_mZ(A,i_mZ(c,r));
double **V = i_mZ(r,c);
double **V_T = i_mZ(c,r);
double **U = i_mZ(r,c);
double **U_T = i_mZ(c,r); // :c,r 
double **U_TA = i_mZ(c,c); // c,r r,c :c,c
double **U_TA2 = i_mZ(c,r); // c,r :c,r 
double **U_TA2V = i_mZ(c,c); // c,r r,c :c,c X_Value
double **invU_TA2V = i_mZ(c,c); // c,r r,c :c,c invX_Value
double **VinvU_TA2V = i_mZ(r,c);
double **VinvU_TA2VU_T = i_mZ(r,r);
double **VinvU_TA2VU_TA2 = i_mZ(r,c); // r,c | r,r
 clrscrn();
 printf(" A :");
 p_mZ(A, S6,P1, S6,P1, C3);
 X_U_mZ(A_T,U,FACTOR_E);
 printf(" U :");
 p_mZ(U, S9,P4, S8,P4, C3);
 X_V_mZ(A_T,V,FACTOR_E);
 printf(" V :");
 p_mZ(V, S9,P4, S8,P4, C3);
 ctranspose_mZ(U,U_T);
 ctranspose_mZ(V,V_T); 
/* X_Value = U_T * A * V */
 mul_mZ( U_T, A, U_TA); // U_TA : c,c
 c_mZ( U_TA, U_TA2); // U_TA2 : c,r 
 mul_mZ( U_TA2, V, U_TA2V); // V : r,c
 printf(" X_Value = U_T * A * V :");
 p_mZ(U_TA2V, S9,P4, S8,P4, C3);
 stop(); 
 clrscrn(); 
 X_inv_mZ(U_TA2V, invU_TA2V);
 printf(" invX_Value invU_TA2V:");
 pE_mZ(invU_TA2V, S12,P4, S8,P4, C3);
/* invA = V * invX_Value * U_T */ 
 mul_mZ(V,invU_TA2V,VinvU_TA2V);
 mul_mZ(VinvU_TA2V,U_T,VinvU_TA2VU_T); 
 printf(" InvA = V * invX_Value * U_T:");
 pE_mZ(VinvU_TA2VU_T, S12,P4, S8,P4, C3); 
 mul_mZ(VinvU_TA2VU_T,A,VinvU_TA2VU_TA2); 
 printf(" Ide = InvA * A ");
 p_mZ(VinvU_TA2VU_TA2, S9,P4, S8,P4, C3); 
 mul_mZ(A,VinvU_TA2VU_T,VinvU_TA2VU_TA2); 
 printf(" Ide = A * InvA ");
 p_mZ(VinvU_TA2VU_TA2, S9,P4, S8,P4, C3); 
 f_mZ(A);
 f_mZ(A_T);
 f_mZ(V);
 f_mZ(V_T);
 f_mZ(U);
 f_mZ(U_T);
 f_mZ(U_TA);
 f_mZ(U_TA2);
 f_mZ(U_TA2V);
 f_mZ(invU_TA2V);
 f_mZ(VinvU_TA2V);
 f_mZ(VinvU_TA2VU_T);
 f_mZ(VinvU_TA2VU_TA2); 
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun();
} while(stop_w());
 return 0;
/* ------------------------------------ */
 Exemple de sortie écran :
 A :
 -59.0 +68.0i +28.0 +61.0i -94.0 -1.0i 
 +2.0 -39.0i +73.0 +60.0i +29.0 -9.0i 
 -85.0 -66.0i +90.0 +41.0i +31.0 +50.0i 
 U :
 +0.2029 -0.0566i -0.9336 +0.2832i -0.0616 +0.0107i 
 +0.4681 +0.1635i +0.1553 +0.0444i -0.8065 -0.2788i 
 +0.8425 +0.0000i +0.1490 +0.0000i +0.5177 -0.0000i 
 V :
 -0.5808 -0.2201i +0.2563 +0.5431i -0.1041 -0.4928i 
 +0.6767 +0.3492i +0.0055 +0.3856i -0.1878 -0.4860i 
 +0.1856 +0.0000i +0.7005 +0.0000i +0.6891 +0.0000i 
 X_Value = U_T * A * V :
+103.4642+148.9531i -0.0000 -0.0000i -0.0000 -0.0000i 
 -0.0000 +0.0000i +137.3221+46.1353i -0.0000 -0.0000i 
 +0.0000 +0.0000i +0.0000 +0.0000i +1.3722+61.3710i 
 Press return to continue. 
 ----------------------------------
 invX_Value invU_TA2V:
 +3.1456e-03-4.5286e-03i +0.0000e+00+0.0000e+00i +0.0000e+00+0.0000e+00i 
 +0.0000e+00+0.0000e+00i +6.5436e-03-2.1984e-03i +0.0000e+00+0.0000e+00i 
 +0.0000e+00+0.0000e+00i +0.0000e+00+0.0000e+00i +3.6414e-04-1.6286e-02i 
 InvA = V * invX_Value * U_T:
 -2.0037e-03-3.3787e-03i +5.6534e-03-1.7658e-03i -6.1252e-03+2.8628e-03i 
 +1.2724e-03-2.8754e-03i +7.2985e-03-5.7264e-03i -8.7546e-04+2.1004e-04i 
 -4.6842e-03+6.9024e-04i +3.7062e-03+8.1892e-03i +1.3047e-03-6.7473e-03i 
 Ide = InvA * A 
 +1.0000 -0.0000i -0.0000 +0.0000i +0.0000 -0.0000i 
 +0.0000 +0.0000i +1.0000 +0.0000i -0.0000 -0.0000i 
 -0.0000 -0.0000i +0.0000 +0.0000i +1.0000 +0.0000i 
 Ide = A * InvA 
 +1.0000 -0.0000i -0.0000 -0.0000i -0.0000 -0.0000i 
 +0.0000 +0.0000i +1.0000 +0.0000i -0.0000 +0.0000i 
 +0.0000 +0.0000i +0.0000 -0.0000i +1.0000 +0.0000i 
 Press return to continue
 Press X to stop

Fonctionnement d'un ordinateur/Le cache d'instructions