Changeset 643 in Sophya for trunk/Poubelle/archediab.old/archediab.sources/c/fourier_diabolo.c

Timestamp:

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

Author:

ansari

Message:

archediab 26

File:

• trunk/Poubelle/archediab.old/archediab.sources/c/fourier_diabolo.c (modified) (1 diff)

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

@@ -70 +70 @@
         
         ss[0]=0;
-        for(j=0;j<k;j++)        if( (j!=0) && (j!=3))
+        for(j=0;j<k;j++)        //if( (j!=0) && (j!=3))
                 {
                 mm=0;m1=0;  for(i=10;i<n/8;i++) {mm=mm+fo(k,n,j,i);m1++;}
                 if(m1>1)        mm=1000.*qq*mm/m1;
-                printf("%s: %5.1f nV\n",parametr.bolo[j].bolo_nom,mm);
-                if(strlen(ss)<200)      sprintf(ss+strlen(ss),"%s: %5.1f nV\r",parametr.bolo[j].bolo_nom,mm);
+                printf("%s: %5.1f nV\n",parametr.nom_coef[parametr.bolo[j].numero_nom_coef].bolo_nom,mm);
+                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);
                 if(strlen(ss) > 240)    erreur("dans fourier, string trop long ");
                 }