Mathc complexes/c083b
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c01b.c */
void fun(int r)
double **A = i_mZ(r,r);
double **Inv = i_mZ(r,r);
double **B = r_mZ(i_mZ(r,C5),99.);
double **X = i_mZ(r,C5);
double **T = i_mZ(r,C5);
 do
 r_mZ(A,99.);
 printf(".");
 }while(!det_Z(A).r);
 clrscrn();
 printf(" \n");
 printf(" Linear systems with common coefficient matrix.\n\n");
 printf(" Ax1=b1 \n");
 printf(" Ax2=b2 \n");
 printf(" ... \n");
 printf(" Axn=bn \n\n");
 printf(" We can write these equalities in this maner. \n\n");
 printf(" A|x1|x2|...|xn| = b1|b2|...|bn| \n\n");
 printf(" or simply : \n\n");
 printf(" AX = B \n\n");
 printf(" where B = b1|b2|...|bn \n\n");
 printf(" and X = x1|x2|...|xn \n\n");
 getchar();
 clrscrn();
 printf(" We want to find X such as, \n\n");
 printf(" AX = B \n\n");
 printf(" If A is a square matrix and, \n\n");
 printf(" If A has an inverse matrix, \n\n");
 printf(" you can find X by this method\n\n");
 printf(" X = inv(A) B \n\n\n");
 printf(" To verify the result you can \n\n");
 printf(" multiply the matrix A by X. \n\n");
 printf(" You must refind B. \n\n");
 getchar();
 clrscrn();
 printf(" A :\n");
 p_mZ(A, S5,P0, S4,P0, C6);
 printf(" b1 b2 ... bn");
 p_mZ(B, S8,P0, S4,P0, C6);
 getchar();
 clrscrn();
 printf(" inv(A) :");
 inv_mZ(A,Inv);
 pE_mZ(Inv, S1,P4, S1,P4, C3);
 printf(" X = inv(A) * B :\n");
 printf(" x1 x2 ... xn");
 mul_mZ(Inv,B,X);
 p_mZ(X, S6,P4, S5,P4, C4);
 getchar();
 clrscrn();
 printf(" b1 b2 ... bn");
 p_mZ(B, S8,P0, S4,P0, C6);
 printf(" Ax1 Ax2 ... Axn");
 mul_mZ(A,X,T);
 p_mZ(T, S8,P0, S4,P0, C6);
 f_mZ(T);
 f_mZ(X);
 f_mZ(B);
 f_mZ(Inv);
 f_mZ(A);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun(rp_I(RC3)+RC1);
} while(stop_w());
 return 0;
/* ------------------------------------ */
 Nous résolvons un système d'équations, et nous vérifions les calculs.

Exemple de sortie écran :
 Linear systems with common coefficient matrix.
 Ax1=b1 
 Ax2=b2 
 Axn=bn 
 We can write these equalities in this maner. 
 A|x1|x2|...|xn| = b1|b2|...|bn| 
 or simply : 
 AX = B 
 where B = b1|b2|...|bn 
 and X = x1|x2|...|xn 
 We want to find X such as, 
 AX = B 
 If A is a square matrix and, 
 If A has an inverse matrix, 
 you can find X by this method
 X = inv(A) B 
 To verify the result you can 
 multiply the matrix A by X. 
 You must refind B. 
-------------------------------------- 
 A :
 +2 -1i +8 -7i +4 +4i 
 +2 -5i -5 -5i -3 +2i 
 +6 -9i +4 -3i -5 +8i 
 b1 b2 ... bn
 +8 +4i +6 +6i +8 +4i +2 -1i +6 -1i 
 -9 -3i -9 -3i -7 -5i +6 +6i +2 -5i 
 -7 -9i -3 +6i -9 -1i -3 +6i -3 -7i 
 inv(A) :
+1.3599e-01-1.8737e-01i -1.0924e-01-2.6287e-01i +8.7837e-02+2.1346e-01i 
-8.0369e-02+3.9115e-02i -1.1129e-01+1.7666e-01i +5.4537e-02-9.6259e-02i 
+1.1497e-01-2.0616e-01i -2.0510e-01-2.3886e-01i +8.2640e-02+1.2054e-01i 
 X = inv(A) * B :
 x1 x2 ... xn
+3.3383-0.5462i +0.5904+2.2719i +0.7107-0.5777i -0.5379-2.8567i 
-0.5159-1.0817i +1.2287-0.8876i +0.2759+0.1231i -1.4354+1.1668i 
+3.3802-0.0119i +2.0849+2.3521i +1.3626+0.3406i -0.7449-3.0569i 
+0.3265-2.4950i 
-0.6198+1.1319i 
-0.5250-1.7443i 
-------------------------------------- Ax = B ?
 b1 b2 ... bn
 +8 +4i +6 +6i +8 +4i +2 -1i +6 -1i 
 -9 -3i -9 -3i -7 -5i +6 +6i +2 -5i 
 -7 -9i -3 +6i -9 -1i -3 +6i -3 -7i 
 Ax1 Ax2 ... Axn
 +8 +4i +6 +6i +8 +4i +2 -1i +6 -1i 
 -9 -3i -9 -3i -7 -5i +6 +6i +2 -5i 
 -7 -9i -3 +6i -9 -1i -3 +6i -3 -7i 
 Press return to continue
 Press X to stop

Auto-éditer un wikilivre/Annexer (Version internationalisée)/sbin/manuels/doc2html.sh

.../tests/02-manuels/docu2html.sh.
VERSION=211123
 pwd > pwd.txt
 if cat pwd.txt | grep ~/Annexer
 then Workdir=~/Annexer
 elif cat pwd.txt | grep ~/Add_appendix
 then Workdir=~/Add_appendix
 else echo "Workind directory not found"
 exit -1
 fi
 rm pwd.txt
 source $Workdir/vars/installdir.var
 if test -z $Mandir
 then Mandir=$Installdir/man
 fi
 if test -z $Sbindir
 then Sbindir=$Installdir/sbin
 fi
 if test -z $Testsdir
 then Testsdir=$Workdir/tests
 fi
 echo "Manuals directories = $Mandir"
 echo "Sbindir = $Sbindir"
 echo "Testsdir = $Testsdir"
 cd $Testsdir/02-manuels
 if (ls -al *.1)
 then
 echo "*.1 found in $Testsdir/02-manuels"; cp -u *.1 archives/.
 else "*.1 not found, exit -1"
 exit -1
 fi
 mkdir -p de en es fr fr.UTF-8 ko
 mkdir -p man1
 mkdir -p de/man1
 mkdir -p en/man1
 mkdir -p es/man1
 mkdir -p fr/man1
 mkdir -p fr.UTF-8/man1
 mkdir -p ko/man1
 ls -1 *.1 > man1.list
 while read line
 do
 case $line in
 (*_de.1) echo "line: $line"; gzip -c $line > de/man1/$line.gz; man2html -r de/man1/$line.gz > de/man1/*.html; man de/man1/$line.gz > de/man1/$line.txt ;;
 (*_en.1) echo "line: $line"; gzip -c $line > en/man1/$line.gz; man2html -r en/man1/$line.gz > en/man1/$line.html; man en/man1/$line.gz > en/man1/$line.txt ;;
 (*_es.1) echo "line: $line"; gzip -c $line > es/man1/$line.gz; man2html -r es/man1/$line.gz > es/$line.html; man es/man1/$line.gz > es/man1/$line.txt ;;
 (*_fr.1) echo "line: $line"; gzip -c $line > fr/man1/$line.gz; man2html -r fr/man1/$line.gz > fr/man1/$line.html; man fr/man1/$line.gz > fr/man1/$line.txt ;;
 (*_fr.UTF-8.1) echo "line: $line"; gzip -c $line > fr.UTF-8/man1/$line.gz; man2html -r fr.UTF-8/man1/$line.gz > fr.UTF-8/$line.html; man fr.UTF-8/man1/$line.gz > fr.UTF-8/man1/$line.txt ;;
 (*_ko.1) echo "line: $line"; gzip -c $line > ko/man1/$line.gz; man2html -r ko/man1/$line.gz > ko/$line.html; man ko/man1/$line.gz > ko/man1/$line.txt ;;
 esac 
 done < man1.list
 rm man1html.list
 ls -R man1/*_en.1.html > man1html.list
 ls -R de/man1/*_de.1.html » man1html.list
 ls -R en/man1/*_en.1.html » man1html.list
 ls -R es/man1/*_es.1.html » man1html.list
 ls -R fr/man1/*_fr.1.html » man1html.list
 ls -R fr.UTF-8/man1/*_fr.UTF-8.1.html » man1html.list
 ls -R ko/man1/*_ko.1.html » man1html.list 
 if test -s man1html.list
 then
 while read newline
 do
 echo -n "newline : "
 if echo $newline | grep "_en"; then echo $newline | sed "s/_en.1//g" > newname.txt;fi
 if echo $newline | grep "_de"; then echo $newline | sed "s/_de.1//g" > newname.txt;fi
 if echo $newline | grep "_es"; then echo $newline | sed "s/_es.1//g" > newname.txt;fi
 if echo $newline | grep "_fr"; then echo $newline | sed "s/_fr.1//g" > newname.txt;fi
 if echo $newline | grep "_fr.UTF-8"; then echo $newline | sed "s/_fr.UTF-8.1//g" > newname.txt;fi
 if echo $newline | grep "_ko"; then echo $newline | sed "s/_ko.1//g" > newname.txt;fi
 read Newname < newname.txt
 echo "newname : $Newname"
 mv $newline $Newname
 done <man1html.list
 fi
 rm man1txt.list
 ls -R man1/*_en.1.txt > man1txt.list
 ls -R de/man1/*_de.1.txt » man1txt.list
 ls -R en/man1/*_en.1.txt » man1txt.list
 ls -R es/man1/*_es.1.txt » man1txt.list
 ls -R fr/man1/*_fr.1.txt » man1txt.list
 ls -R fr.UTF-8/man1/*_fr.UTF-8.1.txt » man1txt.list
 ls -R ko/man1/*_ko.1.txt » man1txt.list
 if test -s man1txt.list
 then
 while read newline
 do
 echo -n "newline : "
 if echo $newline | grep "_en"; then echo $newline | sed "s/_en.1//g" > newname.txt;fi
 if echo $newline | grep "_de"; then echo $newline | sed "s/_de.1//g" > newname.txt;fi
 if echo $newline | grep "_es"; then echo $newline | sed "s/_es.1//g" > newname.txt;fi
 if echo $newline | grep "_fr"; then echo $newline | sed "s/_fr.1//g" > newname.txt;fi
 if echo $newline | grep "_fr.UTF-8"; then echo $newline | sed "s/_fr.UTF-8.1//g" > newname.txt;fi
 if echo $newline | grep "_ko"; then echo $newline | sed "s/_ko.1//g" > newname.txt;fi
 read Newname < newname.txt
 echo "newname : $Newname"
 mv $newline $Newname
 done <man1txt.list
 fi
 rm *.list newname*
 exit 0

Auto-éditer un wikilivre/Annexer (Version internationalisée)/manuels/annex fr.1

Auto-éditer un wikilivre/Annexer (Version internationalisée)/manuels/annex.1