Pathologie cutanée/Profils cliniques
Profils cliniques
Pathologie cutanée/Profils cliniques/Maladies papulosuqameuses

Maladies papulosuqameuses
Pathologie cutanée/Maladies cutanées/Maladies inflammatoires cutanées/Eczéma

Le terme clinique "eczéma" a été critiqué comme étant contus, mais il est généralement utilisé par les dermatologistes pour designer un groupe de maladies caractérisées par une desquamation diffuse, mal définie. 
Les maladies papulo-squameuses ont aussi une desquamation importante mais les lésions sont nettement limitées et plus en relief. Il y a des recoupements entre ces deux groupes. 
Le terme « dermatite» est souvent utilise par les cliniciens comme synonyme d'eczéma, tandis qu'il est utilisé par les autres comme un terme non spécifique pour toute inflammation de la peau.
La principale caractéristique de l'eczéma est la spongiose. Eczéma en grec signifie "bouillir", évoquant les petites vésicules intra-épidermiques qui peuvent apparaitre dans les lésions eczematiformes s'il existe assez de spongiose (oedeme intercellulaire). 
Quand l'eczema devient plus chronique, il a tendance a devenir plus acanthosique et moins spongiotique. Les denominations anciennes "dermatite aigue » (vésicule de spongiose intra-épidermique), "dermatite chronique" (davantage d'acanthose et moins de spongiose) et "dermatite subaigue" (histologie intermediaireentre aiguë et chronique) sont de préférence a laisser de côté. En général, les eczemas sont classes cliniquement plutót qu' histologiquement.
Aspect microscopique : Eczema (dermatite spongiforme ) :
Variantes
Diagnostic differentiel

Mathc matrices/a17
Bibliothèque
Dans cet algorithme le pivot choisi est la plus grande valeur absolue qui se trouve dans la matrice A. Pour cela on fait des échanges de lignes et de colonnes. Attention on ne touche pas à b.
La fonction GJ_TP_mR(Ab); a été introduite pour traiter les deux types de systèmes que la fonction gj_TP_mR(Ab); est capable de résoudre.
L'algorithme consiste à vérifier si la matrice A n'est pas singulière. Si elle n'est pas singulière on appelle la fonction gj_TP_mR(Ab); Si la matrice n'est pas carré, on prend une sous matrice de A qui a r lignes et r colonnes ou r est le nombre de lignes de A pour calculer le déterminant. (voir la fonction c_Ab_subArxr_mR(Ab,A);
Copier la bibliothèque dans votre répertoire de travail avec les fichiers des parties précédentes :
Exemple pour tester la bibliothèque :

Mathc matrices/h17a
Bibliothèque
Installer ce fichier dans votre répertoire de travail.
/* Save as : v_g.h */
/* ------------------------------------ */ 
/* Gauss jordan */
/* ------------------------------------ */
 Déclaration des fichiers h.

Mathc matrices/h17b
Bibliothèque
Installer ce fichier dans votre répertoire de travail.
/* Save as : vgj1tp.h */
double **GJ_TP_mR(
double **Ab
double **A;
 if(Ab[R_SIZE][C0] == Ab[C_SIZE_A][C0])
 A = i_RC_mR(Ab[R_SIZE][C0],Ab[C_SIZE_A][C0]);
 c_Ab_A_mR(Ab,A);
 if(det_R(A)) gj_TP_mR(Ab);
 f_mR(A);
 else if(Ab[R_SIZE][C0] < Ab[C_SIZE_A][C0])
 A = i_RC_mR(Ab[R_SIZE][C0],Ab[R_SIZE][C0]);
 c_Ab_subArxr_mR(Ab,A);
 if(det_R(A)) gj_TP_mR(Ab);
 f_mR(A);
 else if(Ab[R_SIZE][C0] > Ab[C_SIZE_A][C0]) 
 {
 printf("\n Error : GJ_TP_mR();\n");
 printf("\n The number of colums\n");
 printf("\n must be superior or egal\n");
 printf("\n to the number of rows\n");
 printf("\n Press return to continue.\n");
 fflush(stdout);
 getchar();
 exit(EXIT_FAILURE);

return(Ab);
/* ------------------------------------ */
double **GJ_TPfreeV_mR(
double **Ab,
double **new_Ab)
int r;
 c_mR(Ab,new_Ab);
 put_freevariable_mR(new_Ab,Ab[R_SIZE][C0]);
 r = rsize_R(new_Ab);
 while(r>R1)
 zero_below_pivot_gj1Ab_mR(new_Ab,r--); 
return(new_Ab);
/* ------------------------------------ */
 Déclaration des fichiers h.

Mathc matrices/c17a
Application 
Installer et compiler ces fichiers dans votre répertoire de travail.
/* ------------------------------------ */
/* Save as : c00b.c */
void fun(void)
double a[RA*CA]={
 +381, +184, +659, -768, -313, +623, +2, 
 +352, +26, +346, -675, -421, -595, -364 
double tb[RA*Cb]={
 -286, 
 +33 
double **A = ca_A_mR(a, i_mR(RA,CA )); 
double **b = ca_A_mR(tb,i_mR(RA,C1)); 
double **Ab = i_Abr_Ac_bc_mR(RA,CA,Cb);
/* i_Abr_Ac_bc_mR(R_Ab,C_A,C_b)); */
 clrscrn();
 printf(" A :");
 P_mR(A,S8,P0,C7);
 printf(" b :");
 P_mR(b,S8,P0,C7);
 printf(" Ab :");
 c_A_b_Ab_mR(A,b,Ab);
 p_mR(Ab,S8,P0,C7);
 stop();
 clrscrn();
 printf(" Copy/Past into the octave window.\n\n");
 p_Octave_mR(Ab,"Ab",P0);
 printf("\n rref(Ab.00000000001)\n\n");
 printf(" gj_TP_mR(Ab) :");
 GJ_TP_mR(Ab);
 p_mR(Ab,S10,P4,C7);
 stop();
 f_mR(Ab);
 f_mR(b);
 f_mR(A);
/* ------------------------------------ */
int main(void)
 fun();
 return 0;
/* ------------------------------------ */
Nous utilisons la fonction GJ_TP_mR(Ab); pour résoudre ce système.

Exemple de sortie écran :
 A :
 +381, +184, +659, -768, -313, +623, +2, 
 +352, +26, +346, -675, -421, -595, -364 
 b :
 -286, 
 +33 
 Ab :
 +381 +184 +659 -768 -313 +623 +2 
 +352 +26 +346 -675 -421 -595 -364 
 -286 
 +33 
 Press return to continue. 
 -------------------------------------------
 Copy/Past into the octave window.
 Ab=[
+381,+184,+659,-768,-313,+623,+2,-286;
+352,+26,+346,-675,-421,-595,-364,+33]
 rref(Ab.00000000001)
 gj_TP_mR(Ab) :
 +1.0000 +0.0000 +0.8481 -1.8999 -1.2636 -2.2908 -1.2218 
 -0.0000 +1.0000 +1.8253 -0.2399 +0.9155 +8.1293 +2.5407 
 +0.2462 
 -2.0642 
 Press return to continue.

Mathc matrices/c17b
Application 
Installer et compiler ces fichiers dans votre répertoire de travail.
/* ------------------------------------ */
/* Save as : gj_r2.c */
void fun(int r, int c)
double **A = i_mR(r,c);
double **b = i_mR(r,C1);
double **Ab = i_Abr_Ac_bc_mR(r,c,C1);
/* i_Abr_Ac_bc_mR(R_Ab,C_A,C_b)); */
 r_mR(A,999.);
 r_mR(b,999.);
 clrscrn();
 printf(" A :");
 p_mR(A,S8,P0,C7);
 printf(" b :");
 p_mR(b,S8,P0,C7);
 printf(" Ab :");
 c_A_b_Ab_mR(A,b,Ab);
 p_mR(Ab,S8,P0,C7);
 stop();
 clrscrn();
 printf(" Copy/Past into the octave window.\n\n");
 p_Octave_mR(Ab,"Ab",P0);
 printf("\n rref(Ab.00000000001)\n\n");
 printf(" gj_TP_mR(Ab) :");
 GJ_TP_mR(Ab);
 p_mR(Ab,S10,P4,C7);
 f_mR(Ab);
 f_mR(b);
 f_mR(A);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun(rp_I(R3)+R1, rp_I(R3)+R4);
} while(stop_w());
 return 0;
/* ------------------------------------ */
Nous utilisons la fonction GJ_TP_mR(Ab); pour résoudre ce système.

Exemple de sortie écran :
 A :
 +816 +496 +678 -837 +126 
 +490 +624 +832 -285 +632 
 +140 -101 +464 +742 +884 
 b :
 +530 
 -895 
 -313 
 Ab :
 +816 +496 +678 -837 +126 +530 
 +490 +624 +832 -285 +632 -895 
 +140 -101 +464 +742 +884 -313 
 Press return to continue. 
 Copy/Past into the octave window.
 Ab=[
+816,+496,+678,-837,+126,+530;
+490,+624,+832,-285,+632,-895;
+140,-101,+464,+742,+884,-313]
 rref(Ab.00000000001)
 gj_TP_mR(Ab) :
 +1.00000 +0.00000 +0.00000 -1.49815 -0.96054 +2.98320 
 +0.00000 +1.00000 -0.00000 -1.56188 -0.89873 -1.30001 
 +0.00000 +0.00000 +1.00000 +1.71119 +1.99936 -1.85765 
 Press return to continue
 Press X to stop

Auto-éditer un wikilivre/Annexer (Version internationalisée)/Makefile