Changeset 649 in Sophya for trunk/Poubelle/archediab.old/archediab.sources/c/mesures_bolo.c

Timestamp:

Nov 25, 1999, 2:56:34 PM (26 years ago)

Author:

ansari

Message:

archediab 28 vol

File:

• trunk/Poubelle/archediab.old/archediab.sources/c/mesures_bolo.c (modified) (3 diffs)

trunk/Poubelle/archediab.old/archediab.sources/c/mesures_bolo.c

@@ -70 +70 @@
 //                                                                                                      //
 //      Ptot =  coef3  *  ( (10*Tb) ** coef4    -    (10*Tcryo)  **  coef4 )                            //
-Tcryo=0.1;
-
+/* Desormais 30/06/1999, Tcryo est calculee avec la germanium */
+//Tcryo=0.1;
+Tcryo= gg->temperature_cryo ;
 Ptot=0; if( (c(4)>0.01) && (T>0.01) )   Ptot = c(3) * ( pow(10.*T,c(4)) - pow(10.*Tcryo,c(4)) );
 
@@ -79 +80 @@
 //              tau     =       - ln ( 1 +  Pciel / coef6 )     coef6= I * Bi (tables xavier)           //
 
-Pciel = 0;  if( c(5)>Pelec)     Pciel = c(5) - Pelec;
-a=1;    if( c(6) >0.1 )         a =  1 - Pciel / c(6) ;
-tau=0;  if( a>0 )               tau =  - log ( a );
-
+//Pciel = 0;  if( c(5)>Pelec)   Pciel = c(5) - Pelec;
+Pciel = 0;  if( Ptot>Pelec)     Pciel = Ptot - Pelec;  /* Pour avoir la puissance de rayonnement absorbé */
+//a=1;  if( c(6) >0.1 )         a =  1 - Pciel / c(6) ;
+//tau=0;        if( a>0 )               tau =  - log ( a );
+tau=Tcryo ;  /* FXD pour avoir Tcryo 16/07/99 */
 
 
@@ -92 +94 @@
 
 
-ecritT(fenetre_mesures_bolo,fin_f," R=%7.3fM‡  I=%6.3fnA  V=%7.3fmV   Pelec=%5.1fpW",R*1e-6,I*1e3,V*1e-3,Pelec);
+ecritT(fenetre_mesures_bolo,fin_f," R=%7.3fM‡  I=%6.3fnA  V=%7.3fmV   Pelec=%6.2fpW",R*1e-6,I*1e3,V*1e-3,Pelec);
 
 if(T>0.01) ecritT(fenetre_mesures_bolo,fin_f,"  T=%6.1fmK  ", T*1e3);
 
-if( Ptot>0.1) ecritT(fenetre_mesures_bolo,fin_f," Ptot=%5.1fpW   Pciel=%5.1fpW   tau=%5.3f  ",Ptot,Pciel,tau);
+if( Ptot>0.01) ecritT(fenetre_mesures_bolo,fin_f," Ptot=%6.2fpW   Pciel=%6.2fpW   Tcryo=%6.1f  ",Ptot,Pciel,tau*1e3);