source: Sophya/trunk/Poubelle/archediab.old/archediab.sources/c/corel.c@ 2013

Last change on this file since 2013 was 651, checked in by ansari, 26 years ago

archediab 29
File size: 2.0 KB
Line 
1#include "diabolo.h"
2#include "corel.h"
3#include "arcunit.h"
4
5/*
6double coef_corel[nb_max_bolo][nb_max_bolo];
7int flag_corel[nb_max_bolo];
8*/
9
10
11
12
13
14void corel(void)
15{
16int j;
17//int k;
18def_gains;
19/*if(gg->flag_corel)
20 for(j=0;j<nb_max_bolo;j++)
21 {
22 gg->corel[j]=0;
23 if(flag_corel[j])
24 {
25 for(k=0;k<parametres.nb_bolo;k++) gg->corel[j]+=xbolbrut(k)*coef_corel[j][k];
26 gg->nb_trace=j+1;
27 }
28 }
29else
30*/
31 {
32 for(j=0;j<nb_max_bolo;j++) gg->corel[j]=xbolbrut(j);
33 for(j=0;j<3;j++) gg->corel[nb_max_bolo+j]=gg->don.gyro[j];
34 for(j=0;j<46;j++) gg->corel[nb_max_bolo+3+j]=xbolbrut(j);
35 }
36
37}
38
39
40
41
42
43
44
45
46
47//-------------------- fonction exec de la fenetre : choix_corel -------------------------------
48
49
50void exec_choix_corel(int fen,int item,double valeur,...)
51{
52//int i,j;
53//char ss[250];
54
55if(item>1000) item-=1000; // pour appeler le case pour tous les cara d'un edit texte
56
57
58switch(item)
59 {
60 case caseferme : cache(fen);stop_exec(fen); break;
61 case ouverture : cache(fen);
62 case chcr_choix_corel_1 :
63 case chcr_bouton_1 :
64 case chcr_choix_corel_13 :
65 case chcr_bouton_14 :
66 case chcr_choix_corel_15 :
67 case chcr_bouton_16 :
68 case chcr_choix_corel_17 :
69 case chcr_bouton_18 :
70 case chcr_choix_corel_19 :
71 case chcr_bouton_110 :
72 case chcr_choix_corel_111 :
73 case chcr_bouton_112 :
74 case chcr_choix_corel_113 :
75 case chcr_bouton_114 :
76 case chcr_choix_corel_115 :
77 case chcr_bouton_116 :
78 case chcr_choix_corel_117 :
79 case chcr_bouton_118 :
80/* for(i=0;i<nb_max_bolo;i++)
81 if(litD(fen,chcr_bouton_1+2*i,0L))
82 {
83 flag_corel[i]=1;
84 for(j=0;j<nb_max_bolo;j++) coef_corel[i][j]=0;
85 litD(fen,chcr_choix_corel_1+2*i,ss);
86 valeurs(ss,coef_corel[i]);
87 printf("canal%d :",i+1);
88 for(j=0;j<nb_max_bolo;j++)
89 {
90 if(coef_corel[i][j])
91 printf(" b%d * %g ,",j,coef_corel[i][j]);
92 }
93 printf("\n");
94 }
95 else flag_corel[i]=0;
96 printf("\n");
97
98*/
99 default : break;
100 }
101
102}
103
104
Note: See TracBrowser for help on using the repository browser.