Mathc matrices/c12b17
Application
Installer ce fichier dans votre répertoire de travail.
/* ------------------------------------ */
/* Save as : c00b.c */
void fun(void)
double **A = r_mR(i_mR(RA,CA),9);
double **Pinv = i_mR(CA,RA); 
double **Ide = i_mR(RA,RA); 
 clrscrn();
 printf(" A :");
 p_mR(A,S7,P2,C7); 
 printf(" PseudoInverse = V * invS_T * U_T ");
 pseudo_Cn_uv_mR(A,Pinv,FACTOR_E); 
 pE_mR(Pinv,S12,P4,C10);
 printf(" Ide = A * Pinv ");
 mul_mR(A,Pinv,Ide); 
 p_mR(Ide,S7,P2,C10); 
 f_mR(A); 
 f_mR(Pinv); 
 f_mR(Ide); 
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do

fun();
} while(stop_w());
 return 0;
/* ------------------------------------ */
Cet version fonctionne quand il y a plus de colonnes que de lignes. 
 pseudo_Cn_uv_mR(A,Pinv,FACTOR_E);
 Exemple de sortie écran :
 A :
 +9.00 +3.00 -4.00 -2.00 +5.00 
 -3.00 +1.00 +6.00 +4.00 +5.00 
 +6.00 -1.00 -3.00 +9.00 +5.00 
 PseudoInverse = V * invS_T * U_T 
 +5.2041e-02 -2.1138e-02 +1.8845e-02 
 +4.9634e-02 +3.8999e-02 -3.5594e-02 
 +8.0140e-03 +8.1849e-02 -3.6351e-02 
 -5.9396e-02 +9.7580e-04 +8.6410e-02 
 +5.9198e-02 +8.0518e-02 -7.0809e-03 
 Ide = A * Pinv 
 +1.00 +0.00 -0.00 
 -0.00 +1.00 -0.00 
 +0.00 +0.00 +1.00 
 Press return to continue
 Press X to stop

Mathc matrices/c12b18
Application
Installer ce fichier dans votre répertoire de travail.
/* Save as : c01a.c */
void fun(void)
double **A = r_mR(i_mR(RA,CA),9);
double **Pinv = i_mR(CA,RA); 
double **Ide = i_mR(CA,CA); 
 clrscrn();
 printf(" A :");
 p_mR(A,S7,P2,C7);
 printf(" Pinv = V * invS_T * U_T ");
 pseudo_Rn_uv_mR(A,Pinv,FACTOR_E); 
 pE_mR(Pinv,S12,P4,C10); 
 printf(" Ide = Pinv * A "); 
 mul_mR(Pinv,A,Ide); 
 p_mR(Ide,S7,P2,C10); 
 f_mR(A);
 f_mR(Pinv);
 f_mR(Ide); 
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun();
} while(stop_w());
 return 0;
/* ------------------------------------ */
Cet version fonctionne quand il y a plus de lignes que de colonnes.. 
 pseudo_Rn_uv_mR(A,Pinv,FACTOR_E);

Exemple de sortie écran :
 A :
 +7.00 +9.00 -1.00 
 -6.00 -3.00 -2.00 
 -9.00 -1.00 -6.00 
 -5.00 +3.00 -4.00 
 -8.00 -4.00 -2.00 
 Pinv = V * invS_T * U_T 
 +2.7372e-02 -8.5701e-03 +2.5214e-01 -2.7874e-01 -2.0407e-01 
 +5.1836e-02 -1.8127e-02 -2.4547e-01 +2.8619e-01 +1.5624e-01 
 -5.8173e-02 -1.9737e-02 -4.9507e-01 +3.7321e-01 +2.8759e-01 
 Ide = Pinv * A 
 +1.00 +0.00 -0.00 
 +0.00 +1.00 -0.00 
 -0.00 +0.00 +1.00 
 Press return to continue
 Press X to stop

Pathologie cutanée/Anomalies morphologiques/Anomalies dermiques/Cellules géantes multinucléées

Cellules géantes multinucléées
Il n est pas très important de distinguer ces deux types cellulaires qui peuvent tous deux être rencontrés dans des lésions d'origine très diverses.

Pathologie cutanée/Anomalies morphologiques/Anomalies dermiques/Granulomes

Un granulome est un agrégat nodulaire de cellules histiocytaires (macrophages) dérivées du monocyte, parfois mélangées à d'autres types de cellules inflammatoires. 
Les grands histiocytes des granulomes souvent qualifiés de cellules épithélioïdes. Il est important de souligner que la présence de cellules géantes multinucléées n'est absolument pas requise dans les critères de définition du granulome. 
Les granulomes organisés en « tubercules" sont bien délimités et entourés d'un infiltrat lymphocytaire sont appelés tuberculoïdes (rencontrés par exemple dans la plupart des types de tuberculose, dans la lèpre tuberculoïde ou interpolaire, dans la syphilis secondaire tardive et la syphilis tertiaire). 
Les granulomes bien délimités mais entourés par un infiltrat lymphocytaire très réduits sont dits sarcoïdosiques (par exemple, sarcoïdose, granulomes au Béryllium et au zirconium). 
Une nécrose caséeuse se développe à l'interieur de certains granulomes (par exemple tuberculose, certaines mycobactérioses atypiques, syphilis tertiaire, granulome au beryllium, tularémie, érythème induré de Bazin). 
Les granulomes palissadiques entourent un foyer central de nécrobiose collagène, un dépôt de mucine ou de fibrine (par exemple nécrobiose lipoïdique, granulome annulaire, nodule rhumatoïde, nodules du rhumatisme articulaire aigu. 
Les granulomes linéaires surviennent sur le trajet des nerfs cutanés dans la lèpre tuberculoïde. Toutefois, aucune des descriptions classiques que nous venons de mentionner n'est parfaite : un granulome annulaire peut n'être pas palissadique, une tuberculose peut ne pas comporter de nécrose caséeuse, une sarcoïdose peut s'entourer d un important infiltrat lymphocytaire. 
Le bilan d'un granulome devrait comprendre une étude en lumière polarisée a la recherche de corps étrangers et des colorations spéciales pour les microorganismes. Ces colorations comportent un Gram pour les bactéries (Brown-Brenn), des colorations fongiques (PAS: acide periodique de Schiff et GMS: argent-méthenamine de Gomori). des colorations des mycobacleries (Ziehl-Neelsen, auramine. Fite). des colorations des spirochetes (Warthin-Starry) et des leishmanies (Giemsa). 
Infections 
Divers :

Mathc matrices/e12d
Application 
Installer et compiler ce fichier dans votre répertoire de travail.
/* Save as : c00c.c */
void fun(int r,int c)
double **A = r_mR(i_mR(r,c),9);
double **B = r_mR(i_mR(r,c),9);
 clrscrn();
 printf(" See the files \"a.txt\" and \"b.txt\" \n\n");
 fP_mR(A,"a.txt","\n\n\nA :", S5,P0, C6);
 fP_mR(B,"b.txt", "B :", S5,P0, C6);

f_mR(A);
 f_mR(B);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
 do 
 fun(rp_I(R4)+R3,rp_I(C6)+R4);
 while(stop_w());
 return 0;
/* ------------------------------------ */
 La fonction fP_mR(); est identique à la fonction p_mR(); mais elle écrit les matrices dans un fichier texte. Elle ajoute des virgules pour pouvoir facilement introduire ces matrices dans un fichier *.c

Mathc matrices/e12d1
Application 
Installer et compiler ce fichier dans votre répertoire de travail.
/* Save as : c00d.c */
void fun(int r,int c)
double **A = rE_mR(i_mR(r,c),9999,1E-2);
double **B = rE_mR(i_mR(r,c),9999,1E-3);
 clrscrn();
 printf(" See the files \"a.txt\" and \"b.txt\" \n\n");
 fPE_mR(A,"a.txt","\n\n\nA :", S5,P4, C6);
 fPE_mR(B,"b.txt", "B :", S5,P4, C6);

f_mR(A);
 f_mR(B);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
 do 
 fun(rp_I(R4)+R3,rp_I(C6)+R4);
 while(stop_w());
 return 0;
/* ------------------------------------ */
La fonction fPE_mR(); est identique à la fonction pE_mR(); mais elle écrit les matrices dans un fichier texte. Elle ajoute des virgules pour pouvoir facilement introduire ces matrices dans un fichier *.c

Mathc matrices/e12d2
Utiliser la fonction d'affichage des matrices :
Contrôler la fonction d'affichage des matrices :
Space (espace) : S = eSpace; P = Point; C = Colonnes
Afficher une matrice
Afficher une matrice à introduire dans un fichier *.c : (virgules de séparation)
Afficher la structure d'une matrice
Afficher une matrice dans un fichier *.txt 
Afficher une matrice à introduire dans un fichier *.c : (virgules de séparation)
Afficher une matrice pour Octave