Changeset 639 in Sophya for trunk/Poubelle/archediab.old/archediab.sources/c/dilution.c

Timestamp:

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

Author:

ansari

Message:

archediab 25

File:

• trunk/Poubelle/archediab.old/archediab.sources/c/dilution.c (modified) (8 diffs)

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

@@ -24 +24 @@
 #define  ecrit_switch(val,ii,bit) {if(val) ii=ii | bit ;else ii=ii& (0xffffffff^bit) ;}
 #define  calib(j)               litD(fenetre_dilution_calibration,j,0L)
+
+
+
+//   fonction ecrit un bit des switch dilution
+//  c'est une telecommande normale 64 bit  a supprimer
+// la telecommande passe a travers le transputer sans etre traitee par lui
+//  elle arrive directement sur l'EPLD
+
 void  ecrit_bit_dilution(int valeur,int bit);
 
@@ -47 +55 @@
 mot_tc[5]=(i>>16)&0xff;
 mot_tc[6]=(i>>24)&0xff;
+mot_tc[7]=0;    
+emission_telecommande(tc_dir_transputer,mot_tc);
+}
+
+//   fonction ecrit un  des dac dilution
+//  c'est une telecommande normale 64 bit  a supprimer
+// la telecommande passe a travers le transputer sans etre traitee par lui
+//  elle arrive directement sur l'EPLD
+
+void  ecrit_dac_dilution(void);
+
+void  ecrit_dac_dilution(void)
+{
+char mot_tc[10];
+int k;
+unsigned long i,j;
+i=litD(fenetre_dilution,dil_dac_1,0); // les 2 bits adresse du dac
+i=i<<14; i+=litD(fenetre_dilution,dil_dac_2,0); // les 12 bits valeur du dac
+// ranger les bits a l'envers;
+j=0; for(k=0;k<16;k++)  {j=(j<<1) | (i&1);i=i>>1;}
+mot_tc[0]=tc_dac_dil;
+mot_tc[1]=(j)&0xff;
+mot_tc[2]=(j>>8)&0xff;
+mot_tc[3]=0;
+mot_tc[4]=0;
+mot_tc[5]=0;
+mot_tc[6]=0;
 mot_tc[7]=0;    
 emission_telecommande(tc_dir_transputer,mot_tc);
@@ -101 +136 @@
     case dil_ch6 :              ecrit_bit_dilution((int)valeur,chauffage6);     break;
     case dil_ch7 :              ecrit_bit_dilution((int)valeur,chauffage7);     break;
+    
+//    case dil_dac_1 :
+//   case dil_dac_2 :
+    case dil_envoi_dac :        ecrit_dac_dilution();   break;
 
     default  :   break;
@@ -142 +181 @@
 ecritD(fenetre_dilution,dil_EVV_retour,((blk->switch_dil&vanne_EVV)?1:0));
 
+
+
+// les temperatures sur les cartes modifiées
+{
+double I,V,R[4];
+int j,k;
+def_gains;
+k=0;
+for(j=0;(j<nb_max_bolo) && (k<4);j++)
+        {
+        if(parametr.bolo[j].bolo_code_util==bolo_thermo_simplifie)
+                {
+                I = 1e-3 * (double)dac_V(gg->reglage.bolo[j]) * 2441. / parametr.bolo[j].bolo_capa;     //      I en µA
+                V=0.001*bol_micro_volt(blk->temperature[k],(double)parametr.bolo[j].bolo_gain*gain_ampli(gg->reglage.bolo[j]));
+                if(I>0.0000001)         R[k]=V/I;       else    R[k]=0;                         //      R  en ‡
+                k++;
+                }
+        }
+
+if(R[0]<90.)    ecritD(fenetre_dilution,dil_temp,"germ= %6.2f‡  4K=%5.1f‡   1.6K=%5.1f‡   10K=%5.1f‡",R[0],R[1],R[2],R[3]);
+else    ecritD(fenetre_dilution,dil_temp,"germ= %6.3fk‡  4K=%5.1f‡   1.6K=%5.1f‡   10K=%5.1f‡",R[0]*0.001,R[1],R[2],R[3]);
+if(litD(fenetre_dilution,dil_trace_tempe,0))// trace les sondes de niveau helium
+        {
+        int temps_cntl=numero_block(blk)*nb_per_block*2;
+        double secondes,minutes;
+        secondes=gg->periode_echantillonage*(double)temps_cntl;
+        minutes=secondes/60.;
+        if(!fenetre(fenetre_temperature_dil)) 
+                        {
+                        nouveauD(fenetre_temperature_dil,0,"temperature_dil",0);
+                        selectgra(fenetre_temperature_dil);
+                        strcpy(graph->xtitre,"minutes");
+                        }
+        tracen(fenetre_temperature_dil,4,minutes,R);
+        }
+}
+
 // les pressions et debits metres des injections de la dilution
 ecritD(fenetre_dilution,dil_p_d_3He,"3He: %4.1fb -> %5.2fµm/s -> %4.1fb"
-        ,40.    *       val_multiplex(p_R3)             //      200 bars pour 5V
+        ,40.    *       val_multiplex(p_R3)  -1.6       //      200 bars pour 5V et 1.6 bar d'offset
         ,2.     *       val_multiplex(d_3He)            //  10 MICRO MOLES  pour  5V
         ,20.    *       val_multiplex(p_C3)             //      100 bars pour 5V
@@ -151 +227 @@
         ,40.    *       val_multiplex(p_R4)             //      200 bars pour 5V
         ,8.     *       val_multiplex(d_4He)            //  40 MICRO MOLES  pour  5V
+//      ,4.     *       val_multiplex(d_4He)            //  20 MICRO MOLES  pour  5V
         ,20.    *       val_multiplex(p_C4)             //      100 bars pour 5V
         );
@@ -227 +304 @@
 // lecture des sondes de niveau helium
 
-//if(blk->switch_dil & switch_helium )
-if(1)
+
         {
         double y[8];
+        static int niveau_pre;
         int niveau,fin;
+//      printf("dilution :  numero de block = %d  \n",numero_block(blk));
         changecontrole(fenetre_dilution,dil_niveau_helium,idem,idem,idem,idem,calrefcon(0,0,rouge,blanc,blanc),"");
         y[0]=val_multiplex(j_he1)-calib(dil_j_he1);
@@ -241 +319 @@
         y[6]=val_multiplex(j_he7)-calib(dil_j_he7);
         y[7]=val_multiplex(j_he8)-calib(dil_j_he8);
-        niveau=0;fin=0;
-        for(i=0;i<8;i++)
+        if(blk->switch_dil & switch_helium)
                 {
-                if(y[i]>0.1)    {
-                                niveau++;
-                                if(fin)         niveau=9;
-                                }
-                else            fin=1;
+                changecontrole(fenetre_dilution,dil_niveau_helium,idem,idem,idem,idem,calrefcon(0,0,rouge,blanc,blanc),"");
+                niveau=0;fin=0;
+                for(i=0;i<8;i++)
+                        {
+                        if(y[i]>0.1)    {
+                                        niveau++;
+                                        if(fin)         niveau=9;
+                                        }
+                        else            fin=1;
+                        }
+//              if(niveau==9)   changecontrole(fenetre_dilution,dil_niveau_helium,idem,idem,idem,idem
+//                                      ,calrefcon(0,0,jaune,blanc,blanc),"");
+                if(niveau<niveau_pre)   niveau_pre=0;
+                else    {niveau_pre=niveau;     ecritD(fenetre_dilution,dil_niveau_helium,niveau);}
+//              printf("niveau=%d \n",niveau);
                 }
-        if(niveau==9)   changecontrole(fenetre_dilution,dil_niveau_helium,idem,idem,idem,idem
-                                ,calrefcon(0,0,jaune,blanc,blanc),"");
-        ecritD(fenetre_dilution,dil_niveau_helium,niveau);
-//      printf("niveau=%d \n",niveau);
+        else    changecontrole(fenetre_dilution,dil_niveau_helium,idem,idem,idem,idem,calrefcon(0,0,vert,blanc,blanc),"");
 
         if(litD(fenetre_dilution,dil_trace_helium,0))// trace les sondes de niveau helium
@@ -270 +354 @@
                 }
         }
-else    
-        {
-        changecontrole(fenetre_dilution,dil_niveau_helium,idem,idem,idem,idem,calrefcon(0,0,vert,blanc,blanc),"");
-        }
-
-
-}
-
-
+
+}
+
+