Mathc complexes/a56
Le code de la fonction :
/* ------------------------------------ */
/* ------------------------------------ */
double **r_mRZ(
double **A,
int n
)
{
int r;
int c;
for (r=R1; r<A[R_SIZE][C0]; r++)
for (c=R1; c<A[C_SIZE][C0]; c+=C2)
{
A[r][c] = r_I(n);
A[r][c+C1] = 0;
}
return(A);
}
/* ------------------------------------ */
/* ------------------------------------ */
Le paramètre "n" permet de contrôler les valeurs maximales. En choisissant 9 les valeurs sont comprises entre -9 et +9. En choisissant 99 les valeurs sont comprises entre -99 et +99. Le zéro est exclu (r_I(n);). La partie imaginaire est mise à zéro, pour éventuellement effacer des valeurs précédentes.
Installer et compiler ces fichiers dans votre répertoire de travail.
|
c00.c |
|---|
/* ------------------------------------ */
/* Save as : c00.c */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(int rc)
{
double **A = r_mRZ(i_mZ(rc,rc), 999);
clrscrn();
printf(" A : Real Values");
p_mZ(A, S6,P0, S3,P0, C8);
printf(" A : Real Values");;
p_mRZ(A, S6,P0, C8);
f_mZ(A);
}
/* ------------------------------------ */
int main(void)
{
time_t t;
srand(time(&t));
do
fun(rp_I(RC3)+R2);
while(stop_w());
return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */
Exemple de sortie écran :
A : Real Values
-672 +0i +314 +0i +555 +0i -481 +0i +185 +0i
-745 +0i +820 +0i +442 +0i -274 +0i -976 +0i
+627 +0i -197 +0i -466 +0i +187 +0i -626 +0i
-435 +0i +616 +0i +24 +0i +596 +0i -950 +0i
+247 +0i +953 +0i +771 +0i -213 +0i +884 +0i
A : Real Values
-672 +314 +555 -481 +185
-745 +820 +442 -274 -976
+627 -197 -466 +187 -626
-435 +616 +24 +596 -950
+247 +953 +771 -213 +884
Press return to continue
Press X return to stop