Ignore:
Timestamp:
Nov 25, 1999, 2:26:53 PM (26 years ago)
Author:
ansari
Message:

archediab 26

Location:
trunk/Poubelle/archediab.old/archediab.sources/c
Files:
1 added
18 edited

Legend:

Unmodified
Added
Removed

  • trunk/Poubelle/archediab.old/archediab.sources/c/acqui_util.c

    r639 r643  
    88#include "auto.h"
    99#include "config_transputer.h"
     10#include "bit_block.h"
    1011
    1112
    … …  
    3536                {
    3637//              parametr.bolo[j].bolo_code_util=0;
    37 //              strcpy(parametr.bolo[j].bolo_nom,"");
     38//              strcpy(parametr.nom_coef[parametr.bolo[j].numero_nom_coef].bolo_nom,"");
    3839//              parametr.bolo[j].bolo_bebo=0;
    3940//              parametr.bolo[j].bolo_num=0;
    … …  
    130131                        case    900+err_sauve_block     : printf(" err_sauve_block");break;
    131132                        case    900+err_pile_pleine     : printf(" err_pile_pleine");son(133);break;
     133                       
     134                        case    920+erreur_bit_erreur   : printf(" bit_erreur");break;
     135                        case    920+erreur_bit_vide     : printf(" bit_vide");break;
     136                        case    920+erreur_type         : printf(" bit_type_erreur");break;
     137                        case    920+erreur_longueur     : printf(" bit_erreur_longueur");break;
     138                        case    920+erreur_somme        : printf(" bit_erreur_somme");break;
     139                        case    920+erreur_fin          : printf(" bit_erreur_fin");break;
     140                        case    920+cherche_debut       : printf(" bit_cherche_debut");break;
     141                       
     142                       
    132143                       
    133144                        case    8       : printf(" +");break;

  • trunk/Poubelle/archediab.old/archediab.sources/c/acquisition_archeops.c

    r639 r643  
    5050if(verifie_block_printf(blk_tm))        return;
    5151
    52 //{def_nom_block  printf("lit un block %s   N°%d   \n",nom_block[type_block(blk_tm)],numero_block(blk_tm));     }                               
     52        {
     53        def_nom_block
     54        static int mon_num_block;
     55        if(mon_num_block!=numero_block(blk_tm))
     56                {
     57                mon_num_block=numero_block(blk_tm);
     58                printf("\n%d ->",mon_num_block);
     59                }
     60        printf(" %s  ",nom_block[type_block(blk_tm)]); 
     61        }                               
    5362
    5463switch(type_block(blk_tm))
    … …  
    6675        case block_une_periode :        traite_block_une_periode((block_type_une_periode*)blk_tm);      break;
    6776       
    68         case block_bolo_comprime :      traite_block_bolo_comprime((block_type_bolo_comprime*)blk_tm);  break;
    69        
    7077        case block_bolo :               traite_block_bolo((block_type_bolo*)blk_tm);                    break;
     78        case block_bolo_comprime :      traite_block_bolo_comprime((block_type_bolo_comprime*)blk_tm);  break; 
    7179       
    7280        case block_sst :                traite_block_sst((block_type_sst*)blk_tm);                      break;
     81        case block_sst_comprime  :      traite_block_sst_comprime((block_type_sst_comprime*)blk_tm);    break;
     82
     83        case block_gyro :               traite_block_gyro((block_type_gyro*)blk_tm);                    break;
     84        case block_gyro_comprime  :     traite_block_gyro_comprime((block_type_gyro_comprime*)blk_tm);  break;
    7385       
    7486        case block_synchro_sol :        traite_block_synchro_sol((block_type_synchro_sol*)blk_tm);      break;
     87       
     88        case block_status_flash :       printf("******************status flash recut  ********************* \n");son(133);                      break;
    7589       
    7690#ifdef  transmet_data_brute
    … …  
    201215void    traite_block_bolo_comprime(block_type_bolo_comprime*    blk)
    202216{               
    203 int j;
     217int j,jc;
    204218#define blk2  ((block_type_bolo*)(&bktm))       // pointeur sur la memoire locale
    205219// maintenant, decomprime  blk  pour le reecrire dans blk2
    … …  
    210224        ( (blk->data_bolo[1][0] & 0x0000ffff)<<5 )  & 0x001fffe0);
    211225*/
     226/*
    212227for(j=0;j<nb_bolo_util;j++)     
    213228                {
    214229                decompress_7_2((long *)blk->data_bolo[j],blk2->data_bolo[j],nb_per_block*2);
    215230                }
    216 
     231*/
     232jc=0;for(j=0;j<nb_max_bolo;j++)  // jc = bolo_comprime  //   j=bolo normal
     233                {
     234                if( (parametr.bolo[j].bolo_code_util==bolo_normal_transmis) &&  (jc<nb_bolo_util)  )
     235                        {
     236                        decompress_7_2((long *)blk->data_bolo[jc],blk2->data_bolo[j],nb_per_block*2);
     237                        jc++;
     238                        }
     239                }
    217240/*printf("ds1= %x  , %x  ds2= %x  , %x   \n",
    218241                                        blk2->data_bolo[0][0],

  • trunk/Poubelle/archediab.old/archediab.sources/c/acquisition_general.c

    r639 r643  
    151151                                               
    152152       
    153         case e_transmission :   {
     153        case e_flash : 
     154        case e_telemesure :     {
    154155                                long ll=(long)(&(gg->reglage.dilu.transmission))-(long)(&(gg->reglage.dilu));
    155                                 int a=(int) valeur;     
     156                                int a=(int) (litD(fenetre_acquisition,e_flash,0)-1);
     157                                a=a<<4;
     158                                a=a + (int) (litD(fenetre_acquisition,e_telemesure,0)-1);
    156159                                emission_tc_reduite(tc2_auto_dilu,ll,a);
    157160                                }

  • trunk/Poubelle/archediab.old/archediab.sources/c/auto.c

    r637 r643  
    312312        ll=(long)(&(gg->reglage.autom[i].gain))-(long)(&(gg->reglage.autom[0]));
    313313        a=litD(fenetre_automatismes,atm_gain+i,0L)-1+20;
    314         if( (a!=gg->reglage.autom[i].gain) ou ( clavier(touche_alt) et (item==atm_gain+i) ) )   
     314        if( (a!=gg->reglage.autom[i].gain) ou ( /*clavier(touche_alt) et*/ (item==atm_gain+i) ) )   
    315315                emission_tc_reduite(tc2_auto_bolo,ll,a);
    316316
    317317        ll=(long)(&(gg->reglage.autom[i].courant))-(long)(&(gg->reglage.autom[0]));
    318318        a=litD(fenetre_automatismes,atm_courant+i,0L)-1;
    319         if( (a!=gg->reglage.autom[i].courant) ou ( clavier(touche_alt) et (item==atm_courant+i) ) )   
     319        if( (a!=gg->reglage.autom[i].courant) ou ( /*clavier(touche_alt) et*/ (item==atm_courant+i) ) )   
    320320                emission_tc_reduite(tc2_auto_bolo,ll,a);
    321321
    322322        ll=(long)(&(gg->reglage.autom[i].delai))-(long)(&(gg->reglage.autom[0]));
    323323        a=litD(fenetre_automatismes,atm_delai+i,0L);
    324         if( (a!=gg->reglage.autom[i].delai) ou ( clavier(touche_alt) et (item==atm_delai+i) ) )   
     324        if( (a!=gg->reglage.autom[i].delai) ou ( /*clavier(touche_alt) et*/ (item==atm_delai+i) ) )   
    325325                emission_tc_reduite(tc2_auto_bolo,ll,a);
    326326        }

  • trunk/Poubelle/archediab.old/archediab.sources/c/bit_block.c

    r637 r643  
    150150                                {
    151151                                cpt_cherche_debut=0;
    152                                 ecrit_erreur_bit(cherche_debut);
     152//                              ecrit_erreur_bit(cherche_debut);
    153153                                }
    154154                        }

  • trunk/Poubelle/archediab.old/archediab.sources/c/bolo.c

    r639 r643  
    5050        case tache_de_fond  :   // appellé par le programme d'acquisition pour tracer   ----  la cadence est variable
    5151                                n=gg->reglage.horloge.nb_mesures;
     52//                              printf(" nb mesure = %d \n",n);
    5253                                        {
    5354                                        selectgra(fen);

  • trunk/Poubelle/archediab.old/archediab.sources/c/config_transputer.c

    r637 r643  
     1SUPPRIME DU PROGRAMME
     2
    13#include "diabolo.h"
    24#include "config_transputer.h"

  • trunk/Poubelle/archediab.old/archediab.sources/c/diabolo.c

    r639 r643  
    8080
    8181#ifdef _archeops
    82 nouveauD(fenetre_vitesse_block,config_transputer_id,"config_transputer",exec_config_transputer);
     82//nouveauD(fenetre_vitesse_block,config_transputer_id,"config_transputer",exec_config_transputer);
    8383
    8484printf(" acquisition  Archeops  \n\n");
    … …  
    102102                        printf(" cherche a ouvrir bolo %d ",j+1);
    103103                        printf(" capa=%g ",capa(j+1));
    104                         printf(" boloutil = %d  bolonom = %s  \n",parametr.bolo[j].bolo_code_util,parametr.bolo[j].bolo_nom);
     104                        printf(" boloutil = %d  bolonom = %s  \n",parametr.bolo[j].bolo_code_util,parametr.nom_coef[parametr.bolo[j].numero_nom_coef].bolo_nom);
    105105                        if(parametr.bolo[j].bolo_code_util)
    106106                                {
    107                                 sprintf(ss,"%d: %s",j+1,parametr.bolo[j].bolo_nom);
     107                                sprintf(ss,"%d: %s",j+1,parametr.nom_coef[parametr.bolo[j].numero_nom_coef].bolo_nom);
    108108                                ouvreD(j+1,bolo_id,ss,exec_bolo);
    109109                                }

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

    r639 r643  
    1616
    1717
    18 #define  val_multiplex(i)       (0.0003052*(double)(blk->ADC_dil[i]-0x8000))   
    19 //#define  val_temperature(i)   (34.+ (300./4.4)*(4.4-val_multiplex(i)) )
    20 //#define  val_temperature(i)   ((1146.3/(val_multiplex(i)-0.1)) - 245.13)
    21 #define  val_temperature(i)     ((val_multiplex(i)<0.2)?-99:((1146.3/(val_multiplex(i)-0.1)) - 245.13))
    22 #define  cnt_temperature(i)     (20+(int)val_temperature(i))
     18#define  cnt_temperature(i)     (20+(int)val_temperature(blk->ADC_dil[i]))
    2319
    2420#define  ecrit_switch(val,ii,bit) {if(val) ii=ii | bit ;else ii=ii& (0xffffffff^bit) ;}
    2521#define  calib(j)               litD(fenetre_dilution_calibration,j,0L)
    2622
     23
     24void  ecrit_moteur_dilution(int valeur);        // valeur sur 10 bit: poid fort=on/off
     25
     26void  ecrit_moteur_dilution(int valeur)
     27{
     28int i;
     29char mot_tc[10];
     30
     31                i=litD(fenetre_dilution,dil_switch_1,0);
     32i=i<<8;         i+=litD(fenetre_dilution,dil_switch_2,0);
     33i=i<<8;         i+=litD(fenetre_dilution,dil_switch_3,0);
     34i=i<<8;         // les 3 octets en poid fort, rien dans le dernier octet
     35i=i& 0x003fffff;
     36i = i| ( (valeur & 0x3ff)<<22);
     37ecritD(fenetre_dilution,dil_switch_1,(i>>24)&0xff);
     38ecritD(fenetre_dilution,dil_switch_2,(i>>16)&0xff);
     39ecritD(fenetre_dilution,dil_switch_3,(i>>8 )&0xff);
     40
     41mot_tc[0]=tc_switch_dil;
     42mot_tc[1]=0;
     43mot_tc[2]=0;
     44mot_tc[3]=0;
     45mot_tc[4]=(i>>8 )&0xff;
     46mot_tc[5]=(i>>16)&0xff;
     47mot_tc[6]=(i>>24)&0xff;
     48mot_tc[7]=0;   
     49emission_telecommande(tc_dir_transputer,mot_tc);
     50}
    2751
    2852
    … …  
    139163//    case dil_dac_1 :
    140164//   case dil_dac_2 :
    141     case dil_envoi_dac :        ecrit_dac_dilution();   break;
     165//   case dil_envoi_dac :       ecrit_dac_dilution();   break;
     166        case dil_envoi_dac :    ecrit_moteur_dilution((int)litD(fenetre_dilution,dil_dac_2,0)); // les 12 bits
     167                                break;
    142168
    143169    default  :   break;
    … …  
    220246// les pressions et debits metres des injections de la dilution
    221247ecritD(fenetre_dilution,dil_p_d_3He,"3He: %4.1fb -> %5.2fµm/s -> %4.1fb"
    222         ,40.    *       val_multiplex(p_R3)  -1.6       //      200 bars pour 5V et 1.6 bar d'offset
    223         ,2.     *       val_multiplex(d_3He)            //  10 MICRO MOLES  pour  5V
    224         ,20.    *       val_multiplex(p_C3)             //      100 bars pour 5V
     248        ,40.    *       val_multiplex(blk->ADC_dil[ p_R3])  -1.6        //      200 bars pour 5V et 1.6 bar d'offset
     249        ,2.     *       val_multiplex(blk->ADC_dil[ d_3He])             //  10 MICRO MOLES  pour  5V
     250        ,20.    *       val_multiplex(blk->ADC_dil[ p_C3])              //      100 bars pour 5V
    225251        );
    226252ecritD(fenetre_dilution,dil_p_d_4He,"4He: %4.1fb -> %5.2fµm/s -> %4.1fb"
    227         ,40.    *       val_multiplex(p_R4)             //      200 bars pour 5V
    228         ,8.     *       val_multiplex(d_4He)            //  40 MICRO MOLES  pour  5V
    229 //      ,4.     *       val_multiplex(d_4He)            //  20 MICRO MOLES  pour  5V
    230         ,20.    *       val_multiplex(p_C4)             //      100 bars pour 5V
     253        ,40.    *       val_multiplex(blk->ADC_dil[ p_R4])              //      200 bars pour 5V
     254        ,8.     *       val_multiplex(blk->ADC_dil[ d_4He])             //  40 MICRO MOLES  pour  5V
     255//      ,4.     *       val_multiplex(blk->ADC_dil[ d_4He])             //  20 MICRO MOLES  pour  5V
     256        ,20.    *       val_multiplex(blk->ADC_dil[ p_C4])              //      100 bars pour 5V
    231257        );
    232258
    233259ecritD(fenetre_dilution,dil_p_air,"Van=%4.1fb  charb=%4.1fb  mmb=%4.3fb  haut=%4.3fb"
    234         ,20.*val_multiplex(p_air),20.*val_multiplex(p_charb)
    235         ,0.2*val_multiplex(p_memb),0.2*val_multiplex(p_haut)    );
     260        ,20.*val_multiplex(blk->ADC_dil[ p_air]),20.*val_multiplex(blk->ADC_dil[ p_charb])
     261        ,0.2*val_multiplex(blk->ADC_dil[ p_memb]),0.2*val_multiplex(blk->ADC_dil[ p_haut])      );
    236262                       
    237263ecritD(fenetre_dilution,dil_piles," Trp=%4.1fV   Dil=%4.1fV / %4.1fV  \rBebo=%4.1fV   /   %4.1fV / %4.1fV  Ch=%4.1fV"
    238         ,2.03*val_multiplex(p_10T),3.90*val_multiplex(p_p18D),3.90*val_multiplex(p_m18D)
    239         ,2.03*val_multiplex(p_10B),3.90*val_multiplex(p_p18B),3.90*val_multiplex(p_m18B)
    240         ,3.8*val_multiplex(p_Ch));
     264        ,2.03*val_multiplex(blk->ADC_dil[ p_10T]),3.90*val_multiplex(blk->ADC_dil[ p_p18D]),3.90*val_multiplex(blk->ADC_dil[ p_m18D])
     265        ,2.03*val_multiplex(blk->ADC_dil[ p_10B]),3.90*val_multiplex(blk->ADC_dil[ p_p18B]),3.90*val_multiplex(blk->ADC_dil[ p_m18B])
     266        ,3.8*val_multiplex(blk->ADC_dil[ p_Ch]));
    241267
    242268/* valeur seuil au mini (5.3 ou 15.3V) , *17 =  +5.9 V au maxi  */
    243269
    244270
    245 ecritD(fenetre_dilution,dil_p_10T,(int)(17*(2.03*val_multiplex(p_10T)-5.3)));
    246 ecritD(fenetre_dilution,dil_p_p18D,(int)(17*(3.90*val_multiplex(p_p18D)-15.3)));
    247 ecritD(fenetre_dilution,dil_p_m18D,(int)(17*(-3.90*val_multiplex(p_m18D)-15.3)));
    248 ecritD(fenetre_dilution,dil_p_10B,(int)(17*(2.03*val_multiplex(p_10B)-5.3)));
    249 ecritD(fenetre_dilution,dil_p_p18B,(int)(17*(3.93*val_multiplex(p_p18B)-15.3)));
    250 ecritD(fenetre_dilution,dil_p_m18B,(int)(17*(-3.93*val_multiplex(p_m18B)-15.3)));
    251 ecritD(fenetre_dilution,dil_p_Ch,(int)(10*(3.8*val_multiplex(p_Ch)-25)));       /* 25 a 35 V  */
     271ecritD(fenetre_dilution,dil_p_10T,(int)(17*(2.03*val_multiplex(blk->ADC_dil[ p_10T])-5.3)));
     272ecritD(fenetre_dilution,dil_p_p18D,(int)(17*(3.90*val_multiplex(blk->ADC_dil[ p_p18D])-15.3)));
     273ecritD(fenetre_dilution,dil_p_m18D,(int)(17*(-3.90*val_multiplex(blk->ADC_dil[ p_m18D])-15.3)));
     274ecritD(fenetre_dilution,dil_p_10B,(int)(17*(2.03*val_multiplex(blk->ADC_dil[ p_10B])-5.3)));
     275ecritD(fenetre_dilution,dil_p_p18B,(int)(17*(3.93*val_multiplex(blk->ADC_dil[ p_p18B])-15.3)));
     276ecritD(fenetre_dilution,dil_p_m18B,(int)(17*(-3.93*val_multiplex(blk->ADC_dil[ p_m18B])-15.3)));
     277ecritD(fenetre_dilution,dil_p_Ch,(int)(10*(3.8*val_multiplex(blk->ADC_dil[ p_Ch])-25)));        /* 25 a 35 V  */
    252278
    253279//  --  les voyants de switch de piles
    … …  
    257283
    258284ecritD(fenetre_dilution,dil_temperatures,"temp-Haut =   %4.1f°   %4.1f°   %4.1f°   %4.1f° \rtemp-Bas  =   %4.1f°   %4.1f°   %4.1f°   %4.1f°  "
    259         ,val_temperature(t_h1),val_temperature(t_h2),val_temperature(t_h3),val_temperature(t_h4)
    260         ,val_temperature(t_b1),val_temperature(t_b2),val_temperature(t_b3),val_temperature(t_b4)       
     285        ,val_temperature(blk->ADC_dil[ t_h1]),val_temperature(blk->ADC_dil[ t_h2]),val_temperature(blk->ADC_dil[ t_h3]),val_temperature(blk->ADC_dil[ t_h4])
     286        ,val_temperature(blk->ADC_dil[ t_b1]),val_temperature(blk->ADC_dil[ t_b2]),val_temperature(blk->ADC_dil[ t_b3]),val_temperature(blk->ADC_dil[ t_b4])   
    261287        );
    262288
    … …  
    277303//  les afficheurs analogiques de pression helium et pirani 
    278304
    279 ecritD(fenetre_dilution,dil_RP_He,(int)(2500*val_multiplex(RP_He)-7500));
     305ecritD(fenetre_dilution,dil_RP_He,(int)(2500*val_multiplex(blk->ADC_dil[ RP_He])-7500));
    280306//  je veux 10000 pour 0.8 bars  soit    alors que l'on a 5V pour 1 bar ou 1V = 0.2 bar
    281307//  soit multiplier par 2500
    282308// puis j'enleve 0.6 bars soit 7500
    283 ecritD(fenetre_dilution,dil_pirani,(int)(1000*val_multiplex(pirani)));
     309ecritD(fenetre_dilution,dil_pirani,(int)(1000*val_multiplex(blk->ADC_dil[ pirani])));
    284310
    285311
    … …  
    295321        ecritT(fenetre_dilution_lecture_brute,fin_f,"dil_switch= %x  \n",blk->switch_dil);
    296322
    297         for(i=0;i<16;i++)       ecritT(fenetre_dilution_lecture_brute,fin_f,"%2d=%6.3f ",i<8?i+11:i+13,val_multiplex(i));
     323        for(i=0;i<16;i++)       ecritT(fenetre_dilution_lecture_brute,fin_f,"%2d=%6.3f ",i<8?i+11:i+13,val_multiplex(blk->ADC_dil[ i]));
    298324        ecritT(fenetre_dilution_lecture_brute,fin_f,"\n");
    299         for(i=16;i<32;i++)      ecritT(fenetre_dilution_lecture_brute,fin_f,"%2d=%6.3f ",i<24?i+15:i+17,val_multiplex(i));
     325        for(i=16;i<32;i++)      ecritT(fenetre_dilution_lecture_brute,fin_f,"%2d=%6.3f ",i<24?i+15:i+17,val_multiplex(blk->ADC_dil[ i]));
    300326        ecritT(fenetre_dilution_lecture_brute,fin_f,"\n");
    301         for(i=32;i<48;i++)      ecritT(fenetre_dilution_lecture_brute,fin_f,"%2d=%6.3f ",i<40?i+19:i+21,val_multiplex(i));
     327        for(i=32;i<48;i++)      ecritT(fenetre_dilution_lecture_brute,fin_f,"%2d=%6.3f ",i<40?i+19:i+21,val_multiplex(blk->ADC_dil[ i]));
    302328        ecritT(fenetre_dilution_lecture_brute,fin_f,"\n");
    303329        }
    … …  
    311337//      printf("dilution :  numero de block = %d  \n",numero_block(blk));
    312338        changecontrole(fenetre_dilution,dil_niveau_helium,idem,idem,idem,idem,calrefcon(0,0,rouge,blanc,blanc),"");
    313         y[0]=val_multiplex(j_he1)-calib(dil_j_he1);
    314         y[1]=val_multiplex(j_he2)-calib(dil_j_he2);
    315         y[2]=val_multiplex(j_he3)-calib(dil_j_he3);
    316         y[3]=val_multiplex(j_he4)-calib(dil_j_he4);
    317         y[4]=val_multiplex(j_he5)-calib(dil_j_he5);
    318         y[5]=val_multiplex(j_he6)-calib(dil_j_he6);
    319         y[6]=val_multiplex(j_he7)-calib(dil_j_he7);
    320         y[7]=val_multiplex(j_he8)-calib(dil_j_he8);
     339        y[0]=val_multiplex(blk->ADC_dil[ j_he1])-calib(dil_j_he1);
     340        y[1]=val_multiplex(blk->ADC_dil[ j_he2])-calib(dil_j_he2);
     341        y[2]=val_multiplex(blk->ADC_dil[ j_he3])-calib(dil_j_he3);
     342        y[3]=val_multiplex(blk->ADC_dil[ j_he4])-calib(dil_j_he4);
     343        y[4]=val_multiplex(blk->ADC_dil[ j_he5])-calib(dil_j_he5);
     344        y[5]=val_multiplex(blk->ADC_dil[ j_he6])-calib(dil_j_he6);
     345        y[6]=val_multiplex(blk->ADC_dil[ j_he7])-calib(dil_j_he7);
     346        y[7]=val_multiplex(blk->ADC_dil[ j_he8])-calib(dil_j_he8);
    321347        if(blk->switch_dil & switch_helium)
    322348                {

  • trunk/Poubelle/archediab.old/archediab.sources/c/fourier_diabolo.c

    r637 r643  
    7070       
    7171        ss[0]=0;
    72         for(j=0;j<k;j++)        if( (j!=0) && (j!=3))
     72        for(j=0;j<k;j++)        //if( (j!=0) && (j!=3))
    7373                {
    7474                mm=0;m1=0;  for(i=10;i<n/8;i++) {mm=mm+fo(k,n,j,i);m1++;}
    7575                if(m1>1)        mm=1000.*qq*mm/m1;
    76                 printf("%s: %5.1f nV\n",parametr.bolo[j].bolo_nom,mm);
    77                 if(strlen(ss)<200)      sprintf(ss+strlen(ss),"%s: %5.1f nV\r",parametr.bolo[j].bolo_nom,mm);
     76                printf("%s: %5.1f nV\n",parametr.nom_coef[parametr.bolo[j].numero_nom_coef].bolo_nom,mm);
     77                if(strlen(ss)<200)      sprintf(ss+strlen(ss),"%s: %5.1f nV\r",parametr.nom_coef[parametr.bolo[j].numero_nom_coef].bolo_nom,mm);
    7878                if(strlen(ss) > 240)    erreur("dans fourier, string trop long ");
    7979                }       

  • trunk/Poubelle/archediab.old/archediab.sources/c/menu.c

    r639 r643  
    1818#include "dilution.h"
    1919#include "senseur_stellaire.h"
     20#include "gyroscope.h"
    2021
    2122
    … …  
    7172        case    d_senseur_stellaire             :       if(fenetre(fenetre_senseur_stellaire)) select(fenetre_senseur_stellaire);
    7273                                                                else    ouvreD(fenetre_senseur_stellaire,senseur_stellaire_id,"senseur_stellaire",exec_senseur_stellaire);
     74                                                                if(fenetre(fenetre_gyroscope)) select(fenetre_gyroscope);
     75                                                                else    ouvreD(fenetre_gyroscope,0,"fenetre_gyroscope",exec_gyroscope);
    7376                                                                break;
    7477

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

    r637 r643  
    1919//******************************************************************************************************//
    2020
    21 #define c(i)            (1e-4*(double)parametr.bolo[fen-1].coef[i])     
     21#define c(i)            (1e-4*(double)parametr.nom_coef[parametr.bolo[fen-1].numero_nom_coef].coef[i]) 
    2222
    2323
    … …  
    8585
    8686
    87 ecritT(fenetre_mesures_bolo,fin_f,"%d %s :",fen,parametr.bolo[fen-1].bolo_nom);
     87ecritT(fenetre_mesures_bolo,fin_f,"%d %s :",fen,parametr.nom_coef[parametr.bolo[fen-1].numero_nom_coef].bolo_nom);
    8888
    8989//ecritT(fenetre_mesures_bolo,fin_f,"%s (b%d) :"/* bebo=%d  num=%d  gain_pa=%d   coef0=%g  coef1=%g  coef2=%g */,

  • trunk/Poubelle/archediab.old/archediab.sources/c/pointage.c

    r637 r643  
    152152                }
    153153
    154         printf(" bolo %d (%s) :",bolo,parametr.bolo[bolo-1].bolo_nom);
     154        printf(" bolo %d (%s) :",bolo,parametr.nom_coef[parametr.bolo[bolo-1].numero_nom_coef].bolo_nom);
    155155        if(k)   sprintf(ss,"elevation :");
    156156        else    sprintf(ss,"azimuth :");

  • trunk/Poubelle/archediab.old/archediab.sources/c/rafraichis_fenetre.c

    r637 r643  
    2020        ecritD(fenetre_acquisition,e_nb_mes,(int)gg->reglage.horloge.nb_mesures/2);
    2121        ecritD(fenetre_acquisition,e_temp_mort,(int)gg->reglage.horloge.temp_mort);
    22         ecritD(fenetre_acquisition,e_transmission,(int)gg->reglage.dilu.transmission);
     22        ecritD(fenetre_acquisition,e_telemesure,1+(0x0f & (int)gg->reglage.dilu.transmission));
     23        ecritD(fenetre_acquisition,e_flash,1+((0x30 & (int)gg->reglage.dilu.transmission)>>4));
    2324
    2425        // affichage de toutes les fréquences 
    … …  
    5354//printf("\n");
    5455
    55 if(fenetre(fenetre_vitesse_block))
     56/*if(fenetre(fenetre_vitesse_block))
    5657        for(i=0;i<14;i++)
    5758                ecritD(fenetre_vitesse_block,ct_cadence+i,"%d",gg->reglage.vitesse[i]);
    58 
     59*/
    5960
    6061if(fenetre(fenetre_regulation))

  • trunk/Poubelle/archediab.old/archediab.sources/c/reglage.c

    r639 r643  
    145145
    146146/*  ecrit horloge    */
    147 ecritT(fenetre_fichier_archeops_c,insert_f,"{%d,%d,%d,%d},\n",uc(gg->reglage.horloge.periode),uc(gg->reglage.horloge.nb_mesures)
     147ecritT(fenetre_fichier_archeops_c,insert_f,"{%d,%d,%d,%d},{\n",uc(gg->reglage.horloge.periode),uc(gg->reglage.horloge.nb_mesures)
    148148                ,uc(gg->reglage.horloge.temp_mort),uc(gg->reglage.horloge.flag));
    149149
    150 /* ecrit vitesses  */
    151 for(i=0;i<nb_type_blocks;i++)
    152         {if(i>0) ecritT(fenetre_fichier_archeops_c,insert_f,",%d\n",uc(gg->reglage.vitesse[i])); else  ecritT(fenetre_fichier_archeops_c,insert_f,"{%d\n",uc(gg->reglage.vitesse[i])); }
    153 
    154 ecritT(fenetre_fichier_archeops_c,insert_f,"},{\n");
    155150
    156151/* ecrit        reglage_un_bolo  : 2 mots long */
    … …  
    190185
    191186/*  ecrit horloge    */
    192 ecritT(fenetre_fichier_archeops_c,insert_f,"{%d,%d,%d,%d},\n",uc(gg->reglage.horloge.flag),uc(gg->reglage.horloge.temp_mort)
     187ecritT(fenetre_fichier_archeops_c,insert_f,"{%d,%d,%d,%d},{\n",uc(gg->reglage.horloge.flag),uc(gg->reglage.horloge.temp_mort)
    193188                ,uc(gg->reglage.horloge.nb_mesures),uc(gg->reglage.horloge.periode));
    194189
    195 /* ecrit vitesses  */
    196 for(i=0;i<nb_type_blocks;i++)
    197         {if(i>0) ecritT(fenetre_fichier_archeops_c,insert_f,",%d\n",uc(gg->reglage.vitesse[i^3])); else  ecritT(fenetre_fichier_archeops_c,insert_f,"{%d\n",uc(gg->reglage.vitesse[i^3])); }
    198 
    199 ecritT(fenetre_fichier_archeops_c,insert_f,"},{\n");
    200190
    201191/* ecrit        reglage_un_bolo  : 2 mots long */

  • trunk/Poubelle/archediab.old/archediab.sources/c/senseur_stellaire.c

    r639 r643  
    22#include "senseur_stellaire.h"
    33
    4 int diodes[12]={1,2,3,4,5,6,7,8,9,10,11,12};
    54
    65
    … …  
    5150#define place_paquet(i,j)        (i/8) * 24  + j*8 + (i%8)
    5251
     52void    traite_block_sst_comprime       (block_type_sst_comprime*       blk){}
     53
    5354
    5455void    traite_block_sst(block_type_sst*        blk)
    … …  
    9899for(k=0;k<72;k++)
    99100        {
    100          for(i=0;i<12;i++)              //  seulement les 8 premieres diodes
     101         for(i=0;i<12;i++)              //  seulement 12 diodes
    101102                {
    102103                int q;
    103                 q=i+4;
    104                 if(i>3 ) q=i+8;
    105                 if(i>7 ) q=i+12;
    106                 q=diodes[i];
    107104                q=i+prem_d-1;
    108                
     105                               
    109106                a=place_paquet(q,0);
    110107                b0= ( blk->sst[k][a/8] >>( (a%8)*4) ) & 0xf;

  • trunk/Poubelle/archediab.old/archediab.sources/c/tache_archeops_bit2.c

    r639 r643  
    4747
    4848
    49 
     49//              un bit pour 8 bit en parallele dans la fifo             
     50/*
    5051char    un_bit(void)
    5152{
    … …  
    6061if( (RR>>i) & 1 )       return(bit_un);
    6162        else            return(bit_zero);
     63}
     64
     65*/
     66
     67//              un bit pour  fifo avec un seul bit (bit0) et la valeur de la periode en bit 1..6  (37 ou 38)           
     68
     69
     70
     71char    un_bit(void)
     72{
     73static int i;
     74static unsigned long RR;
     75lit_carte;      if(rien_a_lire)         return(bit_vide);       //  fifo vide  ->  retour  ->  sort du while
     76//if( RR & 1 )          return(bit_un);
     77//else          return(bit_zero);
     78if( RR & 1 )    return(bit_zero);
     79else            return(bit_un);
    6280}
    6381

  • trunk/Poubelle/archediab.old/archediab.sources/c/telecommande.c

    r637 r643  
    1818void    relit_telecommandes_reduites(unsigned char* tc)
    1919{
    20 int bolo,a,i;
     20int bolo,a;
    2121if(tc[0]!=tc_reduite)   return;
    2222printf("relit une telecommande reduite :  ");
    … …  
    8181                                                break;         
    8282                                default :       
    83                                         i=tc[2]-tc3_vitesse;
    84                                         if( (i>=0) && (i<nb_type_blocks) )
    85                                                 gg->reglage.vitesse[i]=tc[3];
    86                                         printf(" nouvelle valeur block%d vitesse %d \n",i,tc[3]);
     83//                                      i=tc[2]-tc3_vitesse;
     84//                                      if( (i>=0) && (i<nb_type_blocks) )
     85//                                              gg->reglage.vitesse[i]=tc[3];
     86//                                      printf(" nouvelle valeur block%d vitesse %d \n",i,tc[3]);
    8787                                        break;
    8888                                }
Note: See TracChangeset for help on using the changeset viewer.