Mercurial > hg > fxanalyse
annotate FXAnalyse.c @ 26:4bb197635664
Cleanup N1 measurement code
| author | Daniele Nicolodi <daniele.nicolodi@obspm.fr> |
|---|---|
| date | Tue, 02 Oct 2012 16:31:32 +0200 |
| parents | fde495ba28d2 |
| children | 419db63a9949 |
| rev | line source |
|---|---|
| 0 | 1 #include <utility.h> |
| 2 #include <ansi_c.h> | |
| 3 #include <cvirte.h> | |
| 4 #include <userint.h> | |
| 5 #include <formatio.h> | |
| 6 #include <string.h> | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
7 #include <future.h> |
| 0 | 8 |
| 9 #include "YLCStuff.h" | |
| 10 #include "FXAnalyse.h" | |
| 11 #include "Plot.h" | |
| 12 #include "Allan.h" | |
| 13 #include "DDSBes.h" | |
| 14 #include "DDS4xAD9912.h" | |
| 15 #include "DDS_Fox.h" | |
| 16 #include "muParserDLL.h" | |
| 17 | |
| 18 | |
| 19 #define FXLINELENGTH 123 | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
20 #define LOGFILEPATH "C:\\Femto\\Software\\FXQE80" |
| 0 | 21 |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
22 #define DDSBESCLOCK (200.e6) // 200MHz de clock pour la DDS de Besancon... |
| 0 | 23 #define FACTORDDSBES 36*(8/770000) |
| 24 | |
| 25 //============================================================================== | |
| 26 // Static global variables | |
| 27 | |
| 28 /* multi threading stuff */ // to be used when I will replace timer by thread for counder readout | |
| 29 //static int ghPool; | |
| 30 //static volatile int vgExiting = 0; | |
| 31 | |
| 32 /* panel handling stuff */ | |
| 33 static PanelHandle MainPanel ; | |
| 34 static PanelHandle CalcN1Panel ; | |
| 35 static PanelHandle CalcN2Panel ; | |
| 36 static PanelHandle CalcN3Panel ; | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
37 static PanelHandle EstimateN3Panel; |
| 0 | 38 |
| 39 //============================================================================== | |
| 40 // Static functions | |
| 41 | |
| 42 //static int CVICALLBACK ReadCounterThread(void *functionData); // to be used when I will replace timer by thread for counder readout | |
| 43 | |
| 44 //============================================================================== | |
| 45 // Global variables | |
| 46 | |
|
25
fde495ba28d2
Correct DDS3 frequency adjustement on N3 measurement. Cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
24
diff
changeset
|
47 char LogFileName[MAX_PATHNAME_LEN]; |
|
fde495ba28d2
Correct DDS3 frequency adjustement on N3 measurement. Cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
24
diff
changeset
|
48 char ExtraMathFileName[MAX_PATHNAME_LEN]; |
| 0 | 49 |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
50 double utc = 0; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
51 double mjd = 0; |
| 0 | 52 |
| 53 double Ch1, Ch2, Ch3, Ch4 ; // le type long double est identique au double (8 octets) sous CVI !!! | |
| 54 double Math1, Math2, Math3, Math4, Math5; // N est en fait un entier en pratique... | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
55 double N1, N2, N3, N4 ; |
| 0 | 56 |
| 57 Plot_Data PlotCh1, PlotCh2, PlotCh3, PlotCh4, PlotMath1, PlotMath2, PlotMath3, PlotMath4, PlotMath5 ; | |
| 58 Allan_Data AllanCh1, AllanCh2, AllanCh3, AllanCh4, AllanMath1, AllanMath2, AllanMath3, AllanMath4, AllanMath5 ; | |
| 59 | |
| 60 DDSBes_Data DDSBes ; | |
| 61 DDS4xAD9912_Data DDS4xAD9912 ; | |
| 62 | |
| 63 muParserHandle_t MathParser1, MathParser2, MathParser3, MathParser4, MathParser5 ; | |
| 64 | |
| 65 volatile bool Acquiring = FALSE ; | |
| 66 | |
| 67 long OldLogFilePtr = 0 ; | |
| 68 double Ndiv=8.0; | |
| 69 | |
| 70 /////////////////// | |
| 71 //Pour les calculs des N | |
| 72 | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
73 enum { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
74 N_MEASUREMENT_STEP_0, |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
75 N_MEASUREMENT_STEP_1, |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
76 N_MEASUREMENT_STEP_2, |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
77 N_MEASUREMENT_STEP_3, |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
78 N_MEASUREMENT_STEP_4, |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
79 }; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
80 |
|
26
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
81 enum { |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
82 N_MEASUREMENT_NONE, |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
83 N_MEASUREMENT_INIT, |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
84 N_MEASUREMENT_SLOPE, |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
85 N_MEASUREMENT_ADJUST_FREQ_PLUS, |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
86 N_MEASUREMENT_FREP_PLUS, |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
87 N_MEASUREMENT_ADJUST_FREQ_MINUS, |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
88 N_MEASUREMENT_FREP_MINUS, |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
89 }; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
90 |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
91 int settling = 0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
92 |
| 0 | 93 volatile bool Measuring_1 = FALSE,Step1_1 = FALSE,Step2_1 = FALSE,Step3_1 = FALSE, Measuring_2 = FALSE,Step1_2 = FALSE,Step2_2 = FALSE,Step3_2 = FALSE; |
| 94 volatile bool Measuring_3 = FALSE,Step1_3 = FALSE,Step2_3 = FALSE,Step3_3 = FALSE; | |
| 95 volatile bool TimetoBegin=FALSE; | |
| 96 | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
97 double FrequDDS1=110000000.0, FrequDDS2=15300000.0, FrequDDS3=150400000.0, FrequDDS4=110000000.0; |
| 0 | 98 double Slope_1=0.0,Slope_2=0.0,Slope_3=0.0,Beatslope_2=0.0; |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
99 double SlopeTime1=40.0, SlopeTime2=40.0; SlopeTime3=40.0; |
| 0 | 100 |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
101 double N_1=0.0, N_2=0.0, N_3=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
102 double DeltaT_1=20.0, DeltakHz_1=500.0, t1_1=0.0, t2_1=0.0, t3_1=0.0, Frepplus_1=0.0, Frepminus_1=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
103 double DeltaT_2=20.0, DeltakHz_2=500.0, t1_2=0.0, t2_2=0.0, t3_2=0.0, Frepplus_2=0.0, Frepminus_2=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
104 double DeltaT_3=20.0, DeltakHz_3=500.0, t1_3=0.0, t2_3=0.0, t3_3=0.0, Frepplus_3=0.0, Frepminus_3=0.0; |
| 0 | 105 |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
106 int n_1=0, n_2=0, n_3=0; |
| 0 | 107 double Frequ_slope_1=0.0,Moy_slope_1=0.0,Slope_slope_1=0.0,Frequ_slope_2=0.0,Moy_slope_2=0.0,Slope_slope_2=0.0,Frequ_slope_3=0.0,Moy_slope_3=0.0,Slope_slope_3=0.0; |
| 108 int N_slope_1=0,N_slope_2=0,N_slope_3=0; | |
| 109 double Beat_slope_2=0.0 ,Moy_Beatslope_2=0.0,Slope_Beatslope_2=0.0; | |
| 110 double Ch4_slope=0.0,Moy_Ch4slope_1=0.0,Slope_Ch4slope_1=0.0,Ch4Slope=0.0; | |
| 111 | |
| 112 double FrequencyDDSBes=0.0,FrequencyDDSBesInit=0.0; | |
| 113 double FrequencyDDS3=0.0,FrequencyDDS3Init=0.0; | |
| 114 double DeltaFrep275=0.0,DeltaFrep10=0.0; ; | |
| 115 double DDSBesChanged1=FALSE,DDSBesChanged2=FALSE; | |
| 116 | |
| 117 double DeltaDDS3=0.0,Delta10K_Plus=0.0,Delta10K_Minus=0.0; | |
| 118 double Nu1=0.0, Nu2= 200000-147000+282143746.557455e6; | |
| 119 | |
| 120 double Step1=800000.0,Step2=800000.0; | |
| 121 | |
| 122 double Ch4Plus=0.0,Ch4Minus=0.0; | |
| 123 | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
124 int nDDSChange=0, nstabilization=0; |
| 0 | 125 |
| 126 ////// | |
| 127 //Pour les signes de fb | |
| 128 | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
129 double Frequencystep1=10000.0, tbegin1=0.0, Frepbefore1=0.0, Frequency1=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
130 double Frequencystep2=10.0, tbegin2=0.0, Frepbefore2=0.0, Ch2before=0.0, Frequency2=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
131 double Frequencystep3=100000.0, tbegin3=0.0, Frepbefore3=0.0, Frequency3=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
132 |
| 0 | 133 volatile bool Getsign1=FALSE,Getsign2=FALSE,Getsign3=FALSE; |
| 134 double Signe1=1.0,Signe2=1.0,Signe3=0.0; | |
| 135 | |
| 136 | |
| 137 | |
| 138 | |
| 139 | |
| 140 ///////////////////////// | |
| 141 // Slope Cancelling Variables | |
| 142 | |
| 143 volatile bool SlopeMeasuring=FALSE; | |
| 144 volatile bool AutoStopSlopeCancellingIfDelock=TRUE; | |
| 145 volatile bool OnSlopeCancelling =FALSE; | |
| 146 double SlopeMath2=0.0; | |
| 147 double TimetoSlope=60.0; | |
| 148 double SlopeMeasuringTimeBegin=0.0; | |
| 149 | |
| 150 char DDSFoxName[255] = "DDS Fox Control" ; | |
| 151 double DDSFoxClock=200000000; | |
| 152 int DDSFoxSweepSign=0; | |
| 153 double DDSFoxFrequency=70000000.0; | |
| 154 char DDSFoxip[255]="145.238.205.58"; | |
| 155 int DDSFoxPort=6665 ; | |
| 156 unsigned int DDSFoxProfil=7; | |
| 157 double DDSFoxSweeprate=0.0;// numéro de profil de la DDS : single freq=0, sweep=7 ; | |
| 158 double DDSFoxDeltaT=0.01; | |
| 159 | |
| 160 double Slope_Math2slope=0.0,Math2_slope=0.0,Moy_Math2slope=0.0; | |
| 161 int N_Math2slope=0.0,nstabilisationSlopeMeasuring=0; | |
| 162 | |
| 163 double LimitToDelock=5.0; | |
|
25
fde495ba28d2
Correct DDS3 frequency adjustement on N3 measurement. Cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
24
diff
changeset
|
164 double SlopeCorrection=0.0; |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
165 double limitotakoff=70.0; |
| 0 | 166 |
| 167 int ratio=10; //Recentre la frequence tous les ratios | |
| 168 | |
| 169 volatile bool FrequCorrec=FALSE,KeepFrequ=TRUE, KeepSlope=TRUE ; | |
| 170 int Nratio=-1; | |
| 1 | 171 double MoyMath2 = 0.0, CenterFrequencyCh2 = 0.0; |
| 0 | 172 volatile bool CenterFrequencyCh2ToDetermine=FALSE; |
| 173 | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
174 |
| 0 | 175 |
|
2
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
176 enum { |
|
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
177 SLOPE_REFERENCE_MICROWAVE = 0, |
|
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
178 SLOPE_REFERENCE_HG_CAVITY = 1, |
|
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
179 }; |
| 0 | 180 |
|
2
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
181 int slopeReference = SLOPE_REFERENCE_MICROWAVE; |
| 0 | 182 |
| 183 ////////////////////////////////// | |
| 184 // Keep Centered Variables | |
| 185 | |
| 186 volatile bool KeepCentering=FALSE; | |
| 187 double Timetorecenter275K=3600.0*10; | |
| 188 double Timetorecenter10K=3600.0*3; | |
| 189 double CenteringTimeBegin275K=0.0; | |
| 190 double CenteringTimeBegin10K=0.0; | |
| 191 | |
| 192 | |
| 193 | |
| 194 //============================================================================== | |
| 195 // Functions | |
| 196 int LaunchDDSFOX (char *Name,char *ip,int Port,unsigned int Profil,double Clock,double DeltaT,double Frequency,double Sweeprate,int mode) ; | |
| 197 double ReadDDSFOX (char *Name,char *ip,int Port,unsigned int Profil,double Clock,double DeltaT,double Frequency,double Sweeprate) ; | |
| 198 | |
| 199 | |
| 200 | |
| 201 | |
| 202 | |
| 203 void initMathParser(muParserHandle_t * pMathParser) | |
| 204 { | |
| 205 (* pMathParser) = mupCreate() ; // Math parser number 1, normally used for frep | |
| 206 mupDefineOprtChars( * pMathParser, "abcdefghijklmnopqrstuvwxyzµ" | |
| 207 "ABCDEFGHIJKLMNOPQRSTUVWXYZ" | |
| 208 "+-*^/?<>=#!$%&|~'_"); | |
| 209 mupDefineVar( * pMathParser, "UTC", &utc); | |
| 210 mupDefineVar( * pMathParser, "MJD", &mjd); | |
| 211 mupDefineVar( * pMathParser, "Ch1", &Ch1); | |
| 212 mupDefineVar( * pMathParser, "Ch2", &Ch2); | |
| 213 mupDefineVar( * pMathParser, "Ch3", &Ch3); | |
| 214 mupDefineVar( * pMathParser, "Ch4", &Ch4); | |
| 215 mupDefineVar( * pMathParser, "DDS_Frep", &(DDSBes.Frequency)); | |
| 216 mupDefineVar( * pMathParser, "DDS1", &(DDS4xAD9912.Frequency1)); | |
| 217 mupDefineVar( * pMathParser, "DDS2", &(DDS4xAD9912.Frequency2)); | |
| 218 mupDefineVar( * pMathParser, "DDS3", &(DDS4xAD9912.Frequency3)); | |
| 219 mupDefineVar( * pMathParser, "DDS4", &(DDS4xAD9912.Frequency4)); | |
| 220 mupDefineVar( * pMathParser, "N1", &N1); | |
| 221 mupDefineVar( * pMathParser, "N2", &N2); | |
| 222 mupDefineVar( * pMathParser, "N3", &N3); | |
| 223 mupDefineVar( * pMathParser, "Nu1", &Nu1); | |
| 224 mupDefineVar( * pMathParser, "Nu2", &Nu2); | |
| 225 mupDefineVar( * pMathParser, "DeltaDDS3", &DeltaDDS3); | |
| 226 mupDefineVar( * pMathParser, "Signe1", &Signe1); | |
| 227 mupDefineVar( * pMathParser, "Signe2", &Signe2); | |
| 228 mupDefineVar( * pMathParser, "Ndiv", &Ndiv); | |
| 229 mupDefinePostfixOprt( * pMathParser, "P", &Peta , 1); | |
| 230 mupDefinePostfixOprt( * pMathParser, "T", &Tera , 1); | |
| 231 mupDefinePostfixOprt( * pMathParser, "G", &Giga , 1); | |
| 232 mupDefinePostfixOprt( * pMathParser, "M", &Mega , 1); | |
| 233 mupDefinePostfixOprt( * pMathParser, "k", &kilo , 1); | |
| 234 mupDefinePostfixOprt( * pMathParser, "m", &milli, 1); | |
| 235 mupDefinePostfixOprt( * pMathParser, "u", µ, 1); | |
| 236 mupDefinePostfixOprt( * pMathParser, "µ", µ, 1); | |
| 237 mupDefinePostfixOprt( * pMathParser, "n_1", &nano, 1); | |
| 238 mupDefinePostfixOprt( * pMathParser, "p", &pico, 1); | |
| 239 mupDefinePostfixOprt( * pMathParser, "f", &femto, 1); | |
| 240 } | |
| 241 | |
| 242 int main (int argc, char *argv[]) | |
| 243 { | |
| 244 //int ThreadId ; // to be used when I will replace timer by thread for counder readout | |
| 245 | |
| 246 double initfreqDDS ; | |
| 247 char * MathString1 = " " ; | |
| 248 char * MathString2 = " " ; | |
| 249 char * MathString3 = " " ; | |
| 250 char * MathString4 = " " ; | |
| 251 char * MathString5 = " " ; | |
| 252 | |
| 253 if (InitCVIRTE (0, argv, 0) == 0) | |
| 254 return -1; /* out of memory */ | |
| 255 if ((MainPanel = LoadPanel (0, "FXAnalyse.uir", PANEL)) < 0) | |
| 256 return -1; | |
| 257 if ((CalcN1Panel = LoadPanel (0, "FXAnalyse.uir", CALCN1)) < 0) | |
| 258 return -1; | |
| 259 if ((CalcN2Panel = LoadPanel (0, "FXAnalyse.uir", CALCN2)) < 0) | |
| 260 return -1; | |
| 261 if ((CalcN3Panel = LoadPanel (0, "FXAnalyse.uir", CALCN3)) < 0) | |
| 262 return -1; | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
263 if ((EstimateN3Panel = LoadPanel (MainPanel, "FXAnalyse.uir", ESTIMATEN3)) < 0) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
264 return -1; |
| 0 | 265 |
| 266 DisplayPanel (MainPanel); | |
| 267 | |
| 268 // Initialyze the DDS Besancon Output | |
| 269 | |
| 270 DDSBes_Initialize(&DDSBes) ; | |
| 271 DDSBes_SetClockFrequency(&DDSBes, DDSBESCLOCK) ; // Peut etre passer tout ca dans DDSBes-Initialize ? | |
| 272 DDSBes_SetAmplitude(&DDSBes, 4095) ; | |
| 273 GetCtrlVal(MainPanel, PANEL_DDSFREPOUT,&initfreqDDS) ; | |
| 274 DDSBes_SetFrequency(&DDSBes, initfreqDDS) ; | |
| 275 | |
| 276 // Initialize the quadruple AD9959 DDS (Fox board interface) | |
| 277 | |
| 278 DDS4xAD9912_Reset(&DDS4xAD9912) ; | |
| 279 GetCtrlVal(MainPanel, PANEL_DDS1, &initfreqDDS) ; | |
| 280 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 1, initfreqDDS) ; | |
| 281 GetCtrlVal(MainPanel, PANEL_DDS2, &initfreqDDS) ; | |
| 282 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 2, initfreqDDS) ; | |
| 283 GetCtrlVal(MainPanel, PANEL_DDS3, &initfreqDDS) ; | |
| 284 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 3, initfreqDDS) ; | |
| 285 GetCtrlVal(MainPanel, PANEL_DDS4, &initfreqDDS) ; | |
| 286 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 4, initfreqDDS) ; | |
| 287 | |
| 288 | |
| 289 // Initialyze the DDSFOX Output | |
| 290 LaunchDDSFOX (DDSFoxName,DDSFoxip,DDSFoxPort,DDSFoxProfil,DDSFoxClock,DDSFoxDeltaT,DDSFoxFrequency,DDSFoxSweeprate,1); | |
| 291 | |
| 292 // Initialize the 5 (separate) math parsers for frep, Nu_Hg, Nu_Sr, N3 and ExtraMath | |
| 293 | |
| 294 Ch1=0.0 ; Ch2=0.0 ; Ch3=0.0 ; Ch4=0.0 ; | |
| 295 GetCtrlVal(MainPanel, PANEL_N1CHOICE, &N1) ; | |
| 296 GetCtrlVal(MainPanel, PANEL_N2CHOICE, &N2) ; | |
| 297 | |
| 298 GetCtrlVal(MainPanel, PANEL_N3CHOICE, &N3) ; | |
| 299 | |
| 300 initMathParser(&MathParser1) ; | |
| 301 mupDefineVar(MathParser1, "DDS", &(DDSBes.Frequency)); | |
| 302 GetCtrlVal(MainPanel, PANEL_MATHSTRING1, MathString1) ; | |
| 303 mupSetExpr(MathParser1, MathString1); | |
| 304 | |
| 305 initMathParser(&MathParser2) ; | |
| 306 mupDefineVar( MathParser2, "Math1", &Math1); | |
| 307 mupDefineVar( MathParser2, "DDS", &(DDS4xAD9912.Frequency1)); | |
| 308 GetCtrlVal(MainPanel, PANEL_MATHSTRING2, MathString2) ; | |
| 309 mupSetExpr(MathParser2, MathString2); | |
| 310 | |
| 311 initMathParser(&MathParser3) ; | |
| 312 mupDefineVar( MathParser3, "Math1", &Math1); | |
| 313 mupDefineVar( MathParser3, "Math2", &Math2); | |
| 314 mupDefineVar( MathParser3, "DDS", &(DDS4xAD9912.Frequency2)); | |
| 315 GetCtrlVal(MainPanel, PANEL_MATHSTRING3, MathString3) ; | |
| 316 mupSetExpr(MathParser3, MathString3); | |
| 317 | |
| 318 initMathParser(&MathParser4) ; | |
| 319 mupDefineVar( MathParser4, "Math1", &Math1); | |
| 320 mupDefineVar( MathParser4, "Math2", &Math2); | |
| 321 mupDefineVar( MathParser4, "Math3", &Math3); | |
| 322 GetCtrlVal(MainPanel, PANEL_MATHSTRING4, MathString4) ; | |
| 323 mupSetExpr(MathParser4, MathString4); | |
| 324 | |
| 325 initMathParser(&MathParser5) ; | |
| 326 mupDefineVar( MathParser5, "Math1", &Math1); | |
| 327 mupDefineVar( MathParser5, "Math2", &Math2); | |
| 328 mupDefineVar( MathParser5, "Math3", &Math3); | |
| 329 mupDefineVar( MathParser5, "Math4", &Math4); | |
| 330 GetCtrlVal(MainPanel, PANEL_MATHSTRING5, MathString5) ; | |
| 331 mupSetExpr(MathParser5, MathString5); | |
| 332 | |
| 333 | |
| 334 RunUserInterface (); | |
| 335 | |
| 336 // Stops everything at the end | |
| 337 | |
| 338 DiscardPanel (MainPanel); | |
| 339 return 0; | |
| 340 } | |
| 341 | |
| 342 | |
| 343 void OnCloseViewPanel(int panel){ | |
| 344 | |
| 345 if (panel==PlotCh1.PlotPanel) { SetCtrlVal(MainPanel,PANEL_CHECKBOX_FREQ1PLOT, FALSE) ; } ; | |
| 346 if (panel==PlotCh2.PlotPanel) { SetCtrlVal(MainPanel,PANEL_CHECKBOX_FREQ2PLOT, FALSE) ; } ; | |
| 347 if (panel==PlotCh3.PlotPanel) { SetCtrlVal(MainPanel,PANEL_CHECKBOX_FREQ3PLOT, FALSE) ; } ; | |
| 348 if (panel==PlotCh4.PlotPanel) { SetCtrlVal(MainPanel,PANEL_CHECKBOX_FREQ4PLOT, FALSE) ; } ; | |
| 349 if (panel==PlotMath1.PlotPanel) { SetCtrlVal(MainPanel,PANEL_CHECKBOX_MATH1PLOT, FALSE) ; } ; | |
| 350 if (panel==PlotMath2.PlotPanel) { SetCtrlVal(MainPanel,PANEL_CHECKBOX_MATH2PLOT, FALSE) ; } ; | |
| 351 if (panel==PlotMath3.PlotPanel) { SetCtrlVal(MainPanel,PANEL_CHECKBOX_MATH3PLOT, FALSE) ; } ; | |
| 352 if (panel==PlotMath4.PlotPanel) { SetCtrlVal(MainPanel,PANEL_CHECKBOX_MATH4PLOT, FALSE) ; } ; | |
| 353 if (panel==PlotMath5.PlotPanel) { SetCtrlVal(MainPanel,PANEL_CHECKBOX_MATH5PLOT, FALSE) ; } ; | |
| 354 | |
| 355 if (panel==AllanCh1.AllanPanel) { SetCtrlVal(MainPanel,PANEL_CHECKBOX_FREQ1ALLAN, FALSE) ; } ; | |
| 356 if (panel==AllanCh2.AllanPanel) { SetCtrlVal(MainPanel,PANEL_CHECKBOX_FREQ2ALLAN, FALSE) ; } ; | |
| 357 if (panel==AllanCh3.AllanPanel) { SetCtrlVal(MainPanel,PANEL_CHECKBOX_FREQ3ALLAN, FALSE) ; } ; | |
| 358 if (panel==AllanCh4.AllanPanel) { SetCtrlVal(MainPanel,PANEL_CHECKBOX_FREQ4ALLAN, FALSE) ; } ; | |
| 359 if (panel==AllanMath1.AllanPanel) { SetCtrlVal(MainPanel,PANEL_CHECKBOX_MATH1ALLAN, FALSE) ; } ; | |
| 360 if (panel==AllanMath2.AllanPanel) { SetCtrlVal(MainPanel,PANEL_CHECKBOX_MATH2ALLAN, FALSE) ; } ; | |
| 361 if (panel==AllanMath3.AllanPanel) { SetCtrlVal(MainPanel,PANEL_CHECKBOX_MATH3ALLAN, FALSE) ; } ; | |
| 362 if (panel==AllanMath4.AllanPanel) { SetCtrlVal(MainPanel,PANEL_CHECKBOX_MATH4ALLAN, FALSE) ; } ; | |
| 363 if (panel==AllanMath5.AllanPanel) { SetCtrlVal(MainPanel,PANEL_CHECKBOX_MATH5ALLAN, FALSE) ; } ; | |
| 364 | |
| 365 return ; | |
| 366 } | |
| 367 | |
| 368 | |
| 369 | |
| 370 | |
| 371 | |
| 372 int CVICALLBACK QuitCallback (int panel, int control, int event, | |
| 373 void *callbackData, int eventData1, int eventData2) | |
| 374 { | |
| 375 switch (event) | |
| 376 { | |
| 377 case EVENT_COMMIT: | |
| 378 QuitUserInterface (0); | |
| 379 DDSBes_Close(&DDSBes); | |
| 380 mupRelease(MathParser1); | |
| 381 mupRelease(MathParser2); | |
| 382 mupRelease(MathParser3); | |
| 383 mupRelease(MathParser4); | |
| 384 mupRelease(MathParser5); | |
| 385 break; | |
| 386 case EVENT_RIGHT_CLICK: | |
| 387 | |
| 388 break; | |
| 389 } | |
| 390 return 0; | |
| 391 } | |
| 392 | |
| 393 int CVICALLBACK CB_OnEventMain(int panel, int event, void *callbackData, int eventData1, int eventData2) | |
| 394 { | |
| 395 int ActiveControl ; | |
| 396 int StepIndex ; | |
| 397 double Step ; | |
| 398 | |
| 399 switch (event) { | |
| 400 case EVENT_CLOSE: | |
| 401 QuitUserInterface (0); | |
| 402 DDSBes_Close(&DDSBes); | |
| 403 mupRelease(MathParser1); | |
| 404 mupRelease(MathParser2); | |
| 405 mupRelease(MathParser3); | |
| 406 break; | |
| 407 case EVENT_KEYPRESS: | |
| 408 switch (eventData1) // ie the code of the key which has been stroke | |
| 409 { | |
| 410 case VAL_RIGHT_ARROW_VKEY : | |
| 411 ActiveControl = GetActiveCtrl(panel); | |
| 412 if (ActiveControl==PANEL_DDSFREPOUT || ActiveControl==PANEL_DDSFREPSTEP) { | |
| 413 GetCtrlIndex(MainPanel, PANEL_DDSFREPSTEP, &StepIndex); | |
| 414 if (StepIndex<14){ | |
| 415 SetCtrlIndex(MainPanel, PANEL_DDSFREPSTEP, ++StepIndex) ; | |
| 416 GetCtrlVal(MainPanel, PANEL_DDSFREPSTEP, &Step); | |
| 417 SetCtrlAttribute(MainPanel, PANEL_DDSFREPOUT, ATTR_INCR_VALUE, Step) ; | |
| 418 }; | |
| 419 }; | |
| 420 if (ActiveControl==PANEL_DDS1 || ActiveControl==PANEL_DDS1STEP) { | |
| 421 GetCtrlIndex(MainPanel, PANEL_DDS1STEP, &StepIndex); | |
| 422 if (StepIndex<14){ | |
| 423 SetCtrlIndex(MainPanel, PANEL_DDS1STEP, ++StepIndex) ; | |
| 424 GetCtrlVal(MainPanel, PANEL_DDS1STEP, &Step); | |
| 425 SetCtrlAttribute(MainPanel, PANEL_DDS1, ATTR_INCR_VALUE, Step) ; | |
| 426 }; | |
| 427 }; | |
| 428 if (ActiveControl==PANEL_DDS2 || ActiveControl==PANEL_DDS2STEP) { | |
| 429 GetCtrlIndex(MainPanel, PANEL_DDS2STEP, &StepIndex); | |
| 430 if (StepIndex<14){ | |
| 431 SetCtrlIndex(MainPanel, PANEL_DDS2STEP, ++StepIndex) ; | |
| 432 GetCtrlVal(MainPanel, PANEL_DDS2STEP, &Step); | |
| 433 SetCtrlAttribute(MainPanel, PANEL_DDS2, ATTR_INCR_VALUE, Step) ; | |
| 434 }; | |
| 435 }; | |
| 436 if (ActiveControl==PANEL_DDS3|| ActiveControl==PANEL_DDS3STEP) { | |
| 437 GetCtrlIndex(MainPanel, PANEL_DDS3STEP, &StepIndex); | |
| 438 if (StepIndex<14){ | |
| 439 SetCtrlIndex(MainPanel, PANEL_DDS3STEP, ++StepIndex) ; | |
| 440 GetCtrlVal(MainPanel, PANEL_DDS3STEP, &Step); | |
| 441 SetCtrlAttribute(MainPanel, PANEL_DDS3, ATTR_INCR_VALUE, Step) ; | |
| 442 }; | |
| 443 }; | |
| 444 if (ActiveControl==PANEL_DDS4|| ActiveControl==PANEL_DDS4STEP) { | |
| 445 GetCtrlIndex(MainPanel, PANEL_DDS4STEP, &StepIndex); | |
| 446 if (StepIndex<14){ | |
| 447 SetCtrlIndex(MainPanel, PANEL_DDS4STEP, ++StepIndex) ; | |
| 448 GetCtrlVal(MainPanel, PANEL_DDS4STEP, &Step); | |
| 449 SetCtrlAttribute(MainPanel, PANEL_DDS4, ATTR_INCR_VALUE, Step) ; | |
| 450 }; | |
| 451 }; | |
| 452 break; | |
| 453 case VAL_LEFT_ARROW_VKEY : | |
| 454 ActiveControl = GetActiveCtrl(panel); | |
| 455 if (ActiveControl==PANEL_DDSFREPOUT || ActiveControl==PANEL_DDSFREPSTEP) { | |
| 456 GetCtrlIndex(MainPanel, PANEL_DDSFREPSTEP, &StepIndex); | |
| 457 if (StepIndex>0){ | |
| 458 SetCtrlIndex(MainPanel, PANEL_DDSFREPSTEP, --StepIndex) ; | |
| 459 GetCtrlVal(MainPanel, PANEL_DDSFREPSTEP, &Step); | |
| 460 SetCtrlAttribute(MainPanel, PANEL_DDSFREPOUT, ATTR_INCR_VALUE, Step) ; | |
| 461 }; | |
| 462 }; | |
| 463 if (ActiveControl==PANEL_DDS1 || ActiveControl==PANEL_DDS1STEP) { | |
| 464 GetCtrlIndex(MainPanel, PANEL_DDS1STEP, &StepIndex); | |
| 465 if (StepIndex>0){ | |
| 466 SetCtrlIndex(MainPanel, PANEL_DDS1STEP, --StepIndex) ; | |
| 467 GetCtrlVal(MainPanel, PANEL_DDS1STEP, &Step); | |
| 468 SetCtrlAttribute(MainPanel, PANEL_DDS1, ATTR_INCR_VALUE, Step) ; | |
| 469 }; | |
| 470 }; | |
| 471 if (ActiveControl==PANEL_DDS2 || ActiveControl==PANEL_DDS2STEP) { | |
| 472 GetCtrlIndex(MainPanel, PANEL_DDS2STEP, &StepIndex); | |
| 473 if (StepIndex>0){ | |
| 474 SetCtrlIndex(MainPanel, PANEL_DDS2STEP, --StepIndex) ; | |
| 475 GetCtrlVal(MainPanel, PANEL_DDS2STEP, &Step); | |
| 476 SetCtrlAttribute(MainPanel, PANEL_DDS2, ATTR_INCR_VALUE, Step) ; | |
| 477 }; | |
| 478 }; | |
| 479 if (ActiveControl==PANEL_DDS3 || ActiveControl==PANEL_DDS3STEP) { | |
| 480 GetCtrlIndex(MainPanel, PANEL_DDS3STEP, &StepIndex); | |
| 481 if (StepIndex>0){ | |
| 482 SetCtrlIndex(MainPanel, PANEL_DDS3STEP, --StepIndex) ; | |
| 483 GetCtrlVal(MainPanel, PANEL_DDS3STEP, &Step); | |
| 484 SetCtrlAttribute(MainPanel, PANEL_DDS3, ATTR_INCR_VALUE, Step) ; | |
| 485 }; | |
| 486 }; | |
| 487 if (ActiveControl==PANEL_DDS4 || ActiveControl==PANEL_DDS4STEP) { | |
| 488 GetCtrlIndex(MainPanel, PANEL_DDS4STEP, &StepIndex); | |
| 489 if (StepIndex>0){ | |
| 490 SetCtrlIndex(MainPanel, PANEL_DDS4STEP, --StepIndex) ; | |
| 491 GetCtrlVal(MainPanel, PANEL_DDS4STEP, &Step); | |
| 492 SetCtrlAttribute(MainPanel, PANEL_DDS4, ATTR_INCR_VALUE, Step) ; | |
| 493 }; | |
| 494 }; | |
| 495 break; | |
| 496 case VAL_F1_VKEY : | |
| 497 SetActiveCtrl(MainPanel, PANEL_DDSFREPOUT); | |
| 498 break; | |
| 499 case VAL_F2_VKEY : | |
| 500 SetActiveCtrl(MainPanel, PANEL_DDS1); | |
| 501 break; | |
| 502 case VAL_F3_VKEY : | |
| 503 SetActiveCtrl(MainPanel, PANEL_DDS2); | |
| 504 break; | |
| 505 case VAL_F4_VKEY : | |
| 506 SetActiveCtrl(MainPanel, PANEL_DDS3); | |
| 507 break; | |
| 508 case VAL_F5_VKEY : | |
| 509 SetActiveCtrl(MainPanel, PANEL_DDS4); | |
| 510 break; | |
| 511 }; | |
| 512 break; | |
| 513 | |
| 514 } | |
| 515 return 0; | |
| 516 } | |
| 517 | |
|
25
fde495ba28d2
Correct DDS3 frequency adjustement on N3 measurement. Cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
24
diff
changeset
|
518 |
|
fde495ba28d2
Correct DDS3 frequency adjustement on N3 measurement. Cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
24
diff
changeset
|
519 void CurrentFileName(char *fname) |
| 0 | 520 { |
|
25
fde495ba28d2
Correct DDS3 frequency adjustement on N3 measurement. Cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
24
diff
changeset
|
521 char day[3], month[3], year[3]; |
|
fde495ba28d2
Correct DDS3 frequency adjustement on N3 measurement. Cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
24
diff
changeset
|
522 char *date = DateStr(); |
|
fde495ba28d2
Correct DDS3 frequency adjustement on N3 measurement. Cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
24
diff
changeset
|
523 Scan(date, "%s>%s[w2]-%s[w2]-20%s[w2]", month, day, year); |
|
fde495ba28d2
Correct DDS3 frequency adjustement on N3 measurement. Cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
24
diff
changeset
|
524 Fmt(fname, "%s<%s\\%s%s%s_Frequ.txt", LOGFILEPATH, year, month, day); |
| 0 | 525 } |
| 526 | |
| 527 | |
| 528 int CVICALLBACK CB_OnStart (int panel, int control, int event, | |
| 529 void *callbackData, int eventData1, int eventData2) | |
| 530 { | |
| 531 switch (event) | |
|
20
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
532 { |
| 0 | 533 case EVENT_COMMIT: |
| 534 if (Acquiring) { | |
|
20
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
535 PlotCh1.IndexPoint = 0; |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
536 PlotCh2.IndexPoint = 0; |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
537 PlotCh3.IndexPoint = 0; |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
538 PlotCh4.IndexPoint = 0; |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
539 PlotMath1.IndexPoint = 0; |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
540 PlotMath2.IndexPoint = 0; |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
541 PlotMath3.IndexPoint = 0; |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
542 PlotMath4.IndexPoint = 0; |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
543 PlotMath5.IndexPoint = 0; |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
544 Allan_Reset(&AllanCh1); |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
545 Allan_Reset(&AllanCh2); |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
546 Allan_Reset(&AllanCh3); |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
547 Allan_Reset(&AllanCh4); |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
548 Allan_Reset(&AllanMath1); |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
549 Allan_Reset(&AllanMath2); |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
550 Allan_Reset(&AllanMath3); |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
551 Allan_Reset(&AllanMath4); |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
552 Allan_Reset(&AllanMath5); |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
553 } |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
554 Acquiring = TRUE; |
| 0 | 555 SetCtrlAttribute(MainPanel, PANEL_STARTBUTTON, ATTR_LABEL_TEXT, "__RESET"); |
| 556 | |
|
25
fde495ba28d2
Correct DDS3 frequency adjustement on N3 measurement. Cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
24
diff
changeset
|
557 CurrentFileName(LogFileName); |
|
20
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
558 GetFileInfo(LogFileName, &OldLogFilePtr); |
| 0 | 559 OldLogFilePtr -= OldLogFilePtr%FXLINELENGTH + FXLINELENGTH - 2; |
| 560 break; | |
| 561 } | |
| 562 return 0; | |
| 563 } | |
| 564 | |
| 565 int CVICALLBACK CB_OnStop (int panel, int control, int event, | |
| 566 void *callbackData, int eventData1, int eventData2) | |
| 567 { | |
| 568 switch (event) | |
| 569 { | |
| 570 case EVENT_COMMIT: | |
| 571 Acquiring = FALSE ; | |
| 572 SetCtrlAttribute(MainPanel, PANEL_STARTBUTTON, ATTR_LABEL_TEXT, "__START"); | |
| 573 break; | |
| 574 case EVENT_RIGHT_CLICK: | |
| 575 | |
| 576 break; | |
| 577 } | |
| 578 return 0; | |
| 579 } | |
| 580 | |
| 581 int CVICALLBACK CB_OnTimer (int panel, int control, int event, | |
| 582 void *callbackData, int eventData1, int eventData2) | |
| 583 { | |
|
20
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
584 int LogFile, FileOpt, FileHg, FileExtraMath; |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
585 long LogFileSize; |
| 0 | 586 char LineBuffer[FXLINELENGTH+10] = "\r\n_1 "; |
| 587 | |
|
20
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
588 char TimeTag[] = "100103 000000.000"; // K+K time tag meaning here 2010 january the 3rd at 00:00:00.000 |
| 0 | 589 char Date[] = "03/01/2010" ; |
| 590 char Time[] = "00:00:00.000" ; | |
| 591 char Year[] = "2010"; | |
| 592 char ShortYear[] = "10"; // the last 2 digits of calendar year only | |
| 593 char Month[] = "01"; | |
| 594 char Day[] = "03"; | |
| 595 char Hour[] = "00"; | |
| 596 char Min[] = "00" ; | |
| 597 char Sec[] = "00.000"; | |
| 598 struct tm LocalTime ; | |
|
20
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
599 time_t utcTime; |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
600 char * ReportString = "dd.mm.yy\t00:00:00\t3481610838.000\t0000000000000.00000000"; |
| 0 | 601 |
|
20
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
602 int BoxChecked = FALSE; |
| 0 | 603 |
| 604 double FoxFrequ=0.0; | |
| 605 | |
| 606 double FrequencyToChange=0.0; | |
| 607 double DeltaCh2=0.0; | |
| 608 double DeltaCh4=0.0; | |
| 609 | |
| 610 double ActualFrequ=0.0; | |
| 611 double ActualSlope=0.0; | |
| 612 | |
| 613 switch (event) | |
|
20
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
614 { |
| 0 | 615 case EVENT_TIMER_TICK: |
| 616 switch(Acquiring) | |
| 617 { | |
| 618 case TRUE: | |
| 619 | |
| 620 GetFileInfo(LogFileName, &LogFileSize) ; | |
| 621 | |
| 622 if (LogFileSize > OldLogFilePtr+2*FXLINELENGTH-2) { // if a complete newline has been written | |
| 623 | |
|
2
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
624 SuspendTimerCallbacks() ; |
| 0 | 625 |
| 626 // Open Log file and get to the beginning of newly completed line | |
| 627 LogFile = OpenFile(LogFileName, VAL_READ_ONLY, VAL_OPEN_AS_IS, VAL_ASCII) ; | |
| 628 OldLogFilePtr += FXLINELENGTH; | |
| 629 SetFilePtr(LogFile, OldLogFilePtr, 0) ; | |
| 630 | |
| 631 // return the last complete string from the log file and scan it for date and time information | |
| 632 | |
| 633 // first, the time tag, and store it in various formats | |
| 634 ReadFile(LogFile, TimeTag, 17); | |
| 635 | |
| 636 CopyBytes(Date,0,TimeTag,4,2); | |
| 637 CopyBytes(Date,3,TimeTag,2,2); | |
| 638 CopyBytes(Date,8,TimeTag,0,2); | |
| 639 CopyBytes(Time,0,TimeTag,7,2); | |
| 640 CopyBytes(Time,3,TimeTag,9,2); | |
| 641 CopyBytes(Time,6,TimeTag,11,6); | |
| 642 SetCtrlVal(MainPanel, PANEL_DATE, Date) ; | |
| 643 SetCtrlVal(MainPanel, PANEL_TIME, Time) ; | |
| 644 | |
| 645 CopyBytes(Year,2,TimeTag,0,2); // first 2 bytes of year string remains "20" | |
| 646 CopyBytes(ShortYear,0,TimeTag,0,2); | |
| 647 CopyBytes(Month,0,TimeTag,2,2); | |
| 648 CopyBytes(Day,0,TimeTag,4,2); | |
| 649 CopyBytes(Hour,0,TimeTag,7,2); | |
| 650 CopyBytes(Min,0,TimeTag,9,2); | |
| 651 CopyBytes(Sec,0,TimeTag,11,6); | |
| 652 Fmt(&LocalTime.tm_year, "%d<%s", Year); | |
| 653 Fmt(&LocalTime.tm_mon, "%d<%s", Month); | |
| 654 Fmt(&LocalTime.tm_mday, "%d<%s", Day); | |
| 655 Fmt(&LocalTime.tm_hour, "%d<%s", Hour); | |
| 656 Fmt(&LocalTime.tm_min, "%d<%s", Min); | |
| 657 Fmt(&LocalTime.tm_sec, "%d<%s", "00"); // special case to handle non integer number of UTC seconds | |
| 658 LocalTime.tm_hour += 0; | |
| 659 LocalTime.tm_min -= 0; | |
| 660 LocalTime.tm_sec -= 0; | |
| 661 LocalTime.tm_mon -= 1 ; // january is month 0 for tm struct | |
| 662 LocalTime.tm_year -= 1900 ; // year is number of years since 1900 for tm struct | |
| 663 LocalTime.tm_isdst = -1; // daylight saving flag MUST be set to -1 (unallocated is bugging and +1 is making 1 hour error in summer) | |
| 664 utcTime = mktime (&LocalTime); | |
| 665 utc = (double) utcTime + strtod(Sec,NULL) ; | |
| 666 mjd=utc/86400.; //nb de jours depuis l'origine d'UTC (01/01/1900 à 00h00 GMT) | |
| 667 mjd+=15020; //date MJD de la date origine d'UTC | |
| 668 SetCtrlVal(MainPanel, PANEL_UTC, utc); | |
| 669 SetCtrlVal(MainPanel, PANEL_MJD, mjd); | |
| 670 | |
| 671 // scan the line for counters's channels information | |
| 672 | |
| 673 ReadLine(LogFile, LineBuffer, FXLINELENGTH+9) ; | |
| 674 CloseFile(LogFile); | |
| 675 | |
| 676 Scan(LineBuffer, "%f%f%f%f", &Ch1, &Ch2, &Ch3, &Ch4) ; | |
| 677 Ch1 = 1000*Ch1; | |
| 678 Ch2 = 1000*Ch2; | |
| 679 Ch3 = 1000*Ch3; | |
| 680 Ch4 = 1000*Ch4; | |
| 681 | |
| 682 SetCtrlVal(MainPanel, PANEL_FREQ1, Ch1) ; | |
| 683 SetCtrlVal(MainPanel, PANEL_FREQ2, Ch2) ; | |
| 684 SetCtrlVal(MainPanel, PANEL_FREQ3, Ch3) ; | |
| 685 SetCtrlVal(MainPanel, PANEL_FREQ4, Ch4) ; | |
| 686 SetCtrlVal(MainPanel, PANEL_SIGN1, Signe1); | |
| 687 SetCtrlVal(MainPanel, PANEL_SIGN2, Signe2); | |
| 688 SetCtrlVal(MainPanel, PANEL_SIGN3, Signe3); | |
|
22
b7b3b5f1c5a6
Remove unused widgets from N1 measurement panel. Harmonize widgets names
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
20
diff
changeset
|
689 SetCtrlVal(CalcN1Panel, CALCN1_N, N_1) ; |
| 0 | 690 SetCtrlVal(CalcN1Panel, CALCN1_SLOPE, Slope_1) ; |
|
22
b7b3b5f1c5a6
Remove unused widgets from N1 measurement panel. Harmonize widgets names
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
20
diff
changeset
|
691 SetCtrlVal(CalcN2Panel, CALCN2_N, N_2) ; |
| 0 | 692 SetCtrlVal(CalcN2Panel, CALCN2_SLOPE, Beatslope_2) ; |
| 693 SetCtrlVal(MainPanel, PANEL_SLOPETOCANCEL, SlopeMath2); | |
| 694 SetCtrlVal(MainPanel, PANEL_CENTERFREQUENCY, CenterFrequencyCh2); | |
| 695 SetCtrlVal(MainPanel, PANEL_LED1, SlopeMeasuring); | |
| 696 SetCtrlVal(MainPanel, PANEL_LED2, OnSlopeCancelling); | |
| 697 // Treat data | |
| 698 | |
| 699 Math1 = mupEval(MathParser1) ; | |
| 700 SetCtrlVal(MainPanel,PANEL_MATH1, Math1) ; | |
| 701 | |
| 702 Math2 = mupEval(MathParser2) ; | |
| 703 SetCtrlVal(MainPanel,PANEL_MATH2, Math2) ; | |
| 704 | |
| 705 Math3 = mupEval(MathParser3) ; | |
| 706 SetCtrlVal(MainPanel,PANEL_MATH3, Math3) ; | |
| 707 | |
| 708 Math4 = mupEval(MathParser4) ; | |
| 709 SetCtrlVal(MainPanel,PANEL_MATH4, Math4) ; | |
| 710 | |
| 711 Math5 = mupEval(MathParser5) ; | |
| 712 SetCtrlVal(MainPanel,PANEL_MATH5, Math5) ; | |
| 713 | |
| 714 // Plot Data and calculus if required | |
| 715 | |
| 716 GetCtrlVal(MainPanel, PANEL_CHECKBOX_FREQ1PLOT, &BoxChecked) ; | |
| 717 if (BoxChecked) { | |
| 718 Plot_AddFrequency(&PlotCh1, Ch1) ; | |
| 719 } | |
| 720 GetCtrlVal(MainPanel, PANEL_CHECKBOX_FREQ1ALLAN, &BoxChecked) ; | |
| 721 if (BoxChecked) { | |
| 722 Allan_AddFrequency(&AllanCh1, Ch1) ; | |
| 723 } | |
| 724 | |
| 725 GetCtrlVal(MainPanel, PANEL_CHECKBOX_FREQ2PLOT, &BoxChecked) ; | |
| 726 if (BoxChecked) { | |
| 727 Plot_AddFrequency(&PlotCh2, Ch2) ; | |
| 728 } | |
| 729 GetCtrlVal(MainPanel, PANEL_CHECKBOX_FREQ2ALLAN, &BoxChecked) ; | |
| 730 if (BoxChecked) { | |
| 731 Allan_AddFrequency(&AllanCh2, Ch2) ; | |
| 732 } | |
| 733 | |
| 734 GetCtrlVal(MainPanel, PANEL_CHECKBOX_FREQ3PLOT, &BoxChecked) ; | |
| 735 if (BoxChecked) { | |
| 736 Plot_AddFrequency(&PlotCh3, Ch3) ; | |
| 737 } | |
| 738 GetCtrlVal(MainPanel, PANEL_CHECKBOX_FREQ3ALLAN, &BoxChecked) ; | |
| 739 if (BoxChecked) { | |
| 740 Allan_AddFrequency(&AllanCh3, Ch3) ; | |
| 741 } | |
| 742 | |
| 743 GetCtrlVal(MainPanel, PANEL_CHECKBOX_FREQ4PLOT, &BoxChecked) ; | |
| 744 if (BoxChecked) { | |
| 745 Plot_AddFrequency(&PlotCh4, Ch4) ; | |
| 746 } | |
| 747 GetCtrlVal(MainPanel, PANEL_CHECKBOX_FREQ4ALLAN, &BoxChecked) ; | |
| 748 if (BoxChecked) { | |
| 749 Allan_AddFrequency(&AllanCh4, Ch4) ; | |
| 750 } | |
| 751 | |
| 752 GetCtrlVal(MainPanel, PANEL_CHECKBOX_MATH1PLOT, &BoxChecked) ; | |
| 753 if (BoxChecked) { | |
| 754 Plot_AddFrequency(&PlotMath1, Math1) ; | |
| 755 } | |
| 756 GetCtrlVal(MainPanel, PANEL_CHECKBOX_MATH1ALLAN, &BoxChecked) ; | |
| 757 if (BoxChecked) { | |
| 758 Allan_AddFrequency(&AllanMath1, Math1) ; | |
| 759 } | |
| 760 | |
| 761 GetCtrlVal(MainPanel, PANEL_CHECKBOX_MATH2PLOT, &BoxChecked) ; | |
| 762 if (BoxChecked) { | |
| 763 Plot_AddFrequency(&PlotMath2, Math2) ; | |
| 764 } | |
| 765 GetCtrlVal(MainPanel, PANEL_CHECKBOX_MATH2ALLAN, &BoxChecked) ; | |
| 766 if (BoxChecked) { | |
| 767 Allan_AddFrequency(&AllanMath2, Math2) ; | |
| 768 } | |
| 769 | |
| 770 GetCtrlVal(MainPanel, PANEL_CHECKBOX_MATH3PLOT, &BoxChecked) ; | |
| 771 if (BoxChecked) { | |
| 772 Plot_AddFrequency(&PlotMath3, Math3) ; | |
| 773 } | |
| 774 GetCtrlVal(MainPanel, PANEL_CHECKBOX_MATH3ALLAN, &BoxChecked) ; | |
| 775 if (BoxChecked) { | |
| 776 Allan_AddFrequency(&AllanMath3, Math3) ; | |
| 777 } | |
| 778 | |
| 779 GetCtrlVal(MainPanel, PANEL_CHECKBOX_MATH4PLOT, &BoxChecked) ; | |
| 780 if (BoxChecked) { | |
| 781 Plot_AddFrequency(&PlotMath4, Math4) ; | |
| 782 } | |
| 783 GetCtrlVal(MainPanel, PANEL_CHECKBOX_MATH4ALLAN, &BoxChecked) ; | |
| 784 if (BoxChecked) { | |
| 785 Allan_AddFrequency(&AllanMath4, Math4) ; | |
| 786 } | |
| 787 | |
| 788 GetCtrlVal(MainPanel, PANEL_CHECKBOX_MATH5PLOT, &BoxChecked) ; | |
| 789 if (BoxChecked) { | |
| 790 Plot_AddFrequency(&PlotMath5, Math5) ; | |
| 791 } | |
| 792 GetCtrlVal(MainPanel, PANEL_CHECKBOX_MATH5ALLAN, &BoxChecked) ; | |
| 793 if (BoxChecked) { | |
| 794 Allan_AddFrequency(&AllanMath5, Math5) ; | |
| 795 } | |
|
26
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
796 |
| 0 | 797 // Calcul de N |
| 798 | |
|
26
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
799 switch (Measuring_1) { |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
800 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
801 case N_MEASUREMENT_NONE: |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
802 // not measuring |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
803 break; |
| 0 | 804 |
|
26
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
805 case N_MEASUREMENT_INIT: |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
806 // initialization step |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
807 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
808 // set DDS1 to nominal frequency |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
809 SetCtrlVal(MainPanel, PANEL_DDS1, FrequDDS1); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
810 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 1, FrequDDS1); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
811 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
812 GetCtrlVal(MainPanel, PANEL_DDS2, &FrequencyDDSBesInit); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
813 t2_1 = t3_1 = 0.0; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
814 t1_1 = utc; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
815 Frequ_slope_1 = Math1; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
816 Moy_slope_1 = Frequ_slope_1; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
817 Ch4_slope = Ch4; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
818 Moy_Ch4slope_1 = Ch4_slope; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
819 N_slope_1 = 1; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
820 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
821 // next step |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
822 Measuring_1 += 1; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
823 break; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
824 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
825 case N_MEASUREMENT_SLOPE: |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
826 // slope measurement |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
827 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
828 N_slope_1 = N_slope_1 + 1; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
829 Frequ_slope_1 = Math1; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
830 Ch4_slope = Ch4; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
831 Moy_slope_1 = ((N_slope_1-1)*Moy_slope_1 + Frequ_slope_1)/N_slope_1; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
832 Moy_Ch4slope_1 = ((N_slope_1-1)*Moy_Ch4slope_1 + Ch4_slope)/N_slope_1; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
833 Slope_slope_1 = (Slope_slope_1*(N_slope_1-2) + 6*(Frequ_slope_1-Moy_slope_1)/N_slope_1)/(N_slope_1+1); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
834 Slope_Ch4slope_1 = (Slope_Ch4slope_1*(N_slope_1-2) + 6*(Ch4_slope-Moy_Ch4slope_1)/N_slope_1)/(N_slope_1+1); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
835 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
836 if ((utc - t1_1) > SlopeTime1) { |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
837 Slope_1 = Slope_slope_1; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
838 Ch4Slope = Slope_Ch4slope_1; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
839 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
840 N_slope_1 = 0; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
841 Frequ_slope_1 = 0.0; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
842 Moy_slope_1 = 0.0; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
843 Slope_slope_1 = 0.0; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
844 Ch4_slope = 0.0; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
845 Moy_Ch4slope_1 = 0.0; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
846 Slope_Ch4slope_1 = 0.0; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
847 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
848 // frep positive step |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
849 DDS4xAD9912_FrequencyRampe(&DDS4xAD9912,1, FrequDDS1,(FrequDDS1+DeltakHz_1*1000), Step1/Ndiv ); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
850 SetCtrlVal(MainPanel, PANEL_DDS1, (FrequDDS1+DeltakHz_1*1000)); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
851 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 1, (FrequDDS1+DeltakHz_1*1000)); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
852 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
853 // allow counter to settle |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
854 settling = 3; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
855 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
856 // next step |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
857 Measuring_1 += 1; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
858 } |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
859 break; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
860 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
861 case N_MEASUREMENT_ADJUST_FREQ_PLUS: |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
862 case N_MEASUREMENT_ADJUST_FREQ_MINUS: |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
863 // adjust DDS frequency to keep beatnote within the bandpass filter |
| 0 | 864 |
|
26
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
865 if (settling > 0) { |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
866 settling--; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
867 break; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
868 } |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
869 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
870 DeltaFrep275 = 275000 - Ch4; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
871 double fDDS2 = FrequencyDDSBesInit + (DeltaFrep275); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
872 SetCtrlVal(MainPanel, PANEL_DDS2, fDDS2) ; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
873 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 2, fDDS2); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
874 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
875 // allow counter to settle |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
876 settling = 3; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
877 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
878 // next step |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
879 Measuring_1 += 1; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
880 break; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
881 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
882 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
883 case N_MEASUREMENT_FREP_PLUS: |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
884 // frep positive step |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
885 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
886 if (settling > 0) { |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
887 settling--; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
888 break; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
889 } |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
890 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
891 if (t2_1 == 0.0) |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
892 t2_1 = utc; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
893 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
894 Frepplus_1 = Frepplus_1 + Math1 - Slope_1 * (utc - t2_1); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
895 Ch4Plus = Ch4Plus + Ch4 - Ch4Slope * (utc - t2_1); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
896 n_1 += 1; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
897 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
898 if ((utc - t2_1) > DeltaT_1) { |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
899 Frepplus_1 = Frepplus_1 / n_1; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
900 Ch4Plus = Ch4Plus / n_1; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
901 n_1 = 0; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
902 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
903 // frep negative step |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
904 DDS4xAD9912_FrequencyRampe(&DDS4xAD9912,1, (FrequDDS1+DeltakHz_1*1000),(FrequDDS1-DeltakHz_1*1000), Step1/Ndiv); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
905 SetCtrlVal(MainPanel, PANEL_DDS1, (FrequDDS1-DeltakHz_1*1000)); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
906 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 1, (FrequDDS1-DeltakHz_1*1000)); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
907 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
908 // allow counter to settle |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
909 settling = 3; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
910 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
911 // next step |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
912 Measuring_1 += 1; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
913 } |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
914 break; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
915 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
916 case N_MEASUREMENT_FREP_MINUS: |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
917 // frep negative step |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
918 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
919 if (settling > 0) { |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
920 settling--; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
921 break; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
922 } |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
923 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
924 if (t3_1 == 0.0) |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
925 t3_1 = utc; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
926 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
927 Frepminus_1 = Frepminus_1 + Math1 - Slope_1 * (utc - t3_1); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
928 Ch4Minus = Ch4Minus + Ch4 - Ch4Slope * (utc - t3_1); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
929 n_1 += 1; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
930 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
931 if ((utc - t3_1) > DeltaT_1) { |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
932 Frepminus_1 = Frepminus_1 / n_1; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
933 Ch4Minus = Ch4Minus / n_1; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
934 n_1 = 0; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
935 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
936 t1_1 = 0.0; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
937 t2_1 = 0.0; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
938 t3_1 = 0.0; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
939 Frepminus_1 = 0.0; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
940 Frepplus_1 = 0.0; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
941 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
942 // compute N1 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
943 N_1 = Signe1 * (2*Ndiv * DeltakHz_1 * 1000)/(Frepminus_1 - Frepplus_1 - Slope_1 * (t3_1 - t2_1)); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
944 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
945 DDS4xAD9912_FrequencyRampe(&DDS4xAD9912, 1, FrequDDS1-DeltakHz_1*1000,FrequDDS1, Step1/Ndiv ); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
946 SetCtrlVal(MainPanel, PANEL_DDS1, FrequDDS1); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
947 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 1, FrequDDS1); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
948 SetCtrlVal(MainPanel, PANEL_DDS2, FrequencyDDSBesInit); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
949 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 2, FrequencyDDSBesInit); |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
950 |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
951 // done |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
952 Measuring_1 = N_MEASUREMENT_NONE; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
953 } |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
954 break; |
|
4bb197635664
Cleanup N1 measurement code
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
25
diff
changeset
|
955 } |
| 0 | 956 |
| 957 if (Measuring_2==TRUE) | |
| 958 { | |
| 959 if (Step1_2==FALSE) { | |
| 960 SetCtrlVal(MainPanel, PANEL_DDS1, FrequDDS1) ; | |
| 961 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 1, FrequDDS1); | |
| 962 | |
| 963 GetCtrlVal(MainPanel, PANEL_DDS2, &FrequencyDDSBesInit) ; | |
| 964 GetCtrlVal(MainPanel, PANEL_DDS3, &FrequencyDDS3Init) ; | |
| 965 t1_2=utc; | |
| 966 Frequ_slope_2=Math1; | |
| 967 Beat_slope_2=Ch2; | |
| 968 Moy_slope_2= Frequ_slope_2; | |
| 969 Moy_Beatslope_2= Beat_slope_2; | |
| 970 N_slope_2=1; | |
| 971 Step1_2=TRUE ; | |
| 972 Nu1=(250000000+Math1)*N1; | |
| 973 } | |
| 974 else { | |
| 975 if(Step2_2==FALSE){ | |
| 976 N_slope_2=N_slope_2+1; | |
| 977 Frequ_slope_2=Math1; | |
| 978 Beat_slope_2=Ch2; | |
| 979 Moy_slope_2=((N_slope_2-1)*Moy_slope_2 + Frequ_slope_2)/N_slope_2; | |
| 980 Moy_Beatslope_2=((N_slope_2-1)*Moy_Beatslope_2 + Beat_slope_2)/N_slope_2; | |
| 981 Slope_slope_2 = (Slope_slope_2*(N_slope_2-2) + 6*(Frequ_slope_2-Moy_slope_2)/N_slope_2)/(N_slope_2+1) ; | |
| 982 Slope_Beatslope_2 = (Slope_Beatslope_2*(N_slope_2-2) + 6*(Beat_slope_2-Moy_Beatslope_2)/N_slope_2)/(N_slope_2+1) ; | |
| 983 if (utc-t1_2>SlopeTime2) { | |
| 984 Slope_2 = Slope_slope_2; | |
| 985 Beatslope_2 = Slope_Beatslope_2; | |
| 986 Step2_2=TRUE ; | |
| 987 N_slope_2=0; | |
| 988 Frequ_slope_2=0.0; | |
| 989 Moy_slope_2=0.0; | |
| 990 Slope_slope_2 =0.0; | |
| 991 Moy_Beatslope_2=0.0; | |
| 992 Slope_Beatslope_2 =0.0; | |
| 993 Beat_slope_2=0.0; | |
| 994 | |
| 995 DDS4xAD9912_FrequencyRampe (&DDS4xAD9912,1, FrequDDS1,(FrequDDS1+DeltakHz_2*1000), Step2/Ndiv ) ; | |
| 996 SetCtrlVal(MainPanel, PANEL_DDS1, (FrequDDS1+DeltakHz_2*1000)) ; | |
| 997 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 1, (FrequDDS1+DeltakHz_2*1000)); | |
| 998 Delay(0.1); | |
| 999 DeltaDDS3 = -DeltakHz_2*1000*(-Signe1/Signe2)*Ndiv*(Nu2)/(Nu1) - Beatslope_2*(utc-t1_2); | |
| 1000 SetCtrlVal(MainPanel, PANEL_DDS3, (FrequencyDDS3Init+DeltaDDS3)) ; | |
| 1001 DDS4xAD9912_SetFrequency (&DDS4xAD9912,3,(FrequencyDDS3Init+DeltaDDS3)) ; | |
| 1002 | |
| 1003 } | |
| 1004 } | |
| 1005 else { | |
| 1006 if (DDSBesChanged1==FALSE){ | |
| 1007 | |
| 1008 if (nDDSChange<3) | |
| 1009 { nDDSChange=nDDSChange+1;} | |
| 1010 | |
| 1011 else | |
| 1012 { | |
| 1013 nDDSChange=0; | |
| 1014 | |
| 1015 DeltaFrep275=275000-Ch4; | |
| 1016 DeltaFrep10=10000-Ch2; | |
| 1017 DeltaDDS3= DeltaDDS3 +(DeltaFrep10); | |
| 1018 FrequencyDDSBes=FrequencyDDSBesInit+(DeltaFrep275); | |
| 1019 FrequencyDDS3=FrequencyDDS3Init+DeltaDDS3; | |
| 1020 | |
| 1021 SetCtrlVal(MainPanel, PANEL_DDS2, FrequencyDDSBes) ; | |
| 1022 DDS4xAD9912_SetFrequency(&DDS4xAD9912,2,FrequencyDDSBes); | |
| 1023 | |
| 1024 Delay(0.1); | |
| 1025 SetCtrlVal(MainPanel, PANEL_DDS3, FrequencyDDS3) ; | |
| 1026 DDS4xAD9912_SetFrequency(&DDS4xAD9912,3,FrequencyDDS3); | |
| 1027 | |
| 1028 DDSBesChanged1=TRUE; | |
| 1029 t2_2=utc; | |
| 1030 | |
| 1031 } | |
| 1032 | |
| 1033 } | |
| 1034 else{ | |
| 1035 | |
| 1036 if(Step3_2==FALSE){ | |
| 1037 if (nstabilization<3) | |
| 1038 {nstabilization= nstabilization+1;} | |
| 1039 else | |
| 1040 { | |
| 1041 if (utc-t2_2<DeltaT_2) { | |
| 1042 Frepplus_2=Frepplus_2 +Math1+250000000-Slope_2*(utc-t2_2); | |
| 1043 Delta10K_Plus= Delta10K_Plus + 10000 - (Ch2 -Beatslope_2*(utc-t2_2)); | |
| 1044 n_2=n_2+1; | |
| 1045 } | |
| 1046 else{ | |
| 1047 Frepplus_2=Frepplus_2/n_2; | |
| 1048 Delta10K_Plus=Delta10K_Plus/n_2; | |
| 1049 n_2=0; | |
| 1050 Step3_2=TRUE ; | |
| 1051 nstabilization=0; | |
| 1052 DDS4xAD9912_FrequencyRampe ( &DDS4xAD9912,1, (FrequDDS1+DeltakHz_2*1000),(FrequDDS1-DeltakHz_2*1000), Step2/Ndiv ) ; | |
| 1053 SetCtrlVal(MainPanel, PANEL_DDS1, (FrequDDS1-DeltakHz_2*1000)) ; | |
| 1054 DDS4xAD9912_SetFrequency (&DDS4xAD9912,1, (FrequDDS1-DeltakHz_2*1000) ) ; | |
| 1055 | |
| 1056 Delay(0.1); | |
| 1057 DeltaDDS3 = (FrequencyDDS3Init+DeltakHz_2*1000*(-Signe1/Signe2)*Ndiv*(Nu2)/(Nu1)) - FrequencyDDS3; | |
| 1058 SetCtrlVal(MainPanel, PANEL_DDS3, FrequencyDDS3+DeltaDDS3) ; | |
| 1059 DDS4xAD9912_SetFrequency (&DDS4xAD9912,3, FrequencyDDS3+DeltaDDS3 ) ; | |
| 1060 | |
| 1061 } | |
| 1062 } | |
| 1063 } | |
| 1064 | |
| 1065 else { | |
| 1066 if (DDSBesChanged2==FALSE){ | |
| 1067 | |
| 1068 if (nDDSChange<3) | |
| 1069 { nDDSChange=nDDSChange+1;} | |
| 1070 | |
| 1071 else | |
| 1072 { | |
| 1073 nDDSChange=0; | |
| 1074 | |
| 1075 | |
| 1076 DeltaFrep275=275000-Ch4; | |
| 1077 DeltaFrep10=10000-Ch2; | |
| 1078 DeltaDDS3 = DeltaDDS3+(DeltaFrep10) ; | |
| 1079 FrequencyDDSBes=FrequencyDDSBes+(DeltaFrep275) ; | |
| 1080 FrequencyDDS3=FrequencyDDS3+DeltaDDS3 ; | |
| 1081 DDS4xAD9912_SetFrequency(&DDS4xAD9912,2,FrequencyDDSBes); | |
| 1082 SetCtrlVal(MainPanel, PANEL_DDS2, FrequencyDDSBes); | |
| 1083 | |
| 1084 Delay(0.1); | |
| 1085 SetCtrlVal(MainPanel, PANEL_DDS3, FrequencyDDS3) ; | |
| 1086 DDS4xAD9912_SetFrequency(&DDS4xAD9912,3,FrequencyDDS3); | |
| 1087 | |
| 1088 DDSBesChanged2=TRUE; | |
| 1089 t3_2=utc; | |
| 1090 | |
| 1091 | |
| 1092 } | |
| 1093 } | |
| 1094 | |
| 1095 else{ | |
| 1096 if (nstabilization<3) | |
| 1097 { nstabilization=nstabilization+1;} | |
| 1098 else | |
| 1099 { | |
| 1100 if (utc-t3_2<DeltaT_2) { | |
| 1101 Frepminus_2=Frepminus_2 +Math1+250000000-Slope_2*(utc-t3_2); | |
| 1102 Delta10K_Minus= Delta10K_Minus +10000 - ( Ch2 -Beatslope_2*(utc-t3_2)); | |
| 1103 n_2=n_2+1; | |
| 1104 } | |
| 1105 else{ | |
| 1106 Frepminus_2=Frepminus_2/(n_2); | |
| 1107 Delta10K_Minus= Delta10K_Minus/n_2; | |
| 1108 N_2 = (Signe2)*(-DeltaDDS3+Delta10K_Plus-Delta10K_Minus-Beatslope_2*(t3_2-t2_2) )/(Frepminus_2-Frepplus_2-Slope_2*(t3_2-t2_2)); | |
| 1109 n_2=0; | |
| 1110 Frepminus_2=0.0; | |
| 1111 Frepplus_2=0.0; | |
| 1112 Delta10K_Minus=0.0; | |
| 1113 Delta10K_Plus=0.0; | |
| 1114 DDS4xAD9912_FrequencyRampe (&DDS4xAD9912, 1, FrequDDS1-DeltakHz_2*1000,FrequDDS1, Step2/Ndiv ) ; | |
| 1115 SetCtrlVal(MainPanel, PANEL_DDS1, FrequDDS1) ; | |
| 1116 DDS4xAD9912_SetFrequency(&DDS4xAD9912,1,FrequDDS1); | |
| 1117 | |
| 1118 Delay(0.1); | |
| 1119 | |
| 1120 SetCtrlVal(MainPanel, PANEL_DDS2, FrequencyDDSBesInit) ; | |
| 1121 DDS4xAD9912_SetFrequency (&DDS4xAD9912, 2, FrequencyDDSBesInit ) ; | |
| 1122 | |
| 1123 Delay(0.1); | |
| 1124 | |
| 1125 SetCtrlVal(MainPanel, PANEL_DDS3, FrequencyDDS3Init-Beatslope_2*(utc-t1_2)) ; | |
| 1126 DDS4xAD9912_SetFrequency (&DDS4xAD9912, 3, FrequencyDDS3Init-Beatslope_2*(utc-t1_2) ) ; | |
| 1127 | |
| 1128 Measuring_2=FALSE ; | |
| 1129 Step1_2=FALSE ; | |
| 1130 Step2_2=FALSE ; | |
| 1131 Step3_2=FALSE ; | |
| 1132 t1_2=0.0; | |
| 1133 t2_2=0.0; | |
| 1134 t3_2=0.0; | |
| 1135 DDSBesChanged1=FALSE; | |
| 1136 DDSBesChanged2=FALSE; | |
| 1137 FrequencyDDSBes=0.0; | |
| 1138 nstabilization=0; | |
| 1139 | |
| 1140 } | |
| 1141 } | |
| 1142 } | |
| 1143 } | |
| 1144 } | |
| 1145 } | |
| 1146 } | |
| 1147 } | |
| 1148 | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1149 switch (Measuring_3) { |
| 0 | 1150 |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1151 case N_MEASUREMENT_STEP_0: |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1152 // not measuring N3 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1153 break; |
| 0 | 1154 |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1155 case N_MEASUREMENT_STEP_1: // init |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1156 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1157 SetCtrlVal(MainPanel, PANEL_DDS4, FrequDDS4); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1158 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 4, FrequDDS4); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1159 settling = 3; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1160 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1161 t1_3 = utc; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1162 N_slope_3 = 0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1163 // record current DDS3 frequency |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1164 GetCtrlVal(MainPanel, PANEL_DDS3, &FrequencyDDS3Init); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1165 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1166 // step 1 done |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1167 Measuring_3 = N_MEASUREMENT_STEP_2; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1168 break; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1169 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1170 case N_MEASUREMENT_STEP_2: // slope measurement |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1171 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1172 if (settling > 0) { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1173 settling--; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1174 break; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1175 } |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1176 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1177 N_slope_3++; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1178 Frequ_slope_3 = Ch2; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1179 Moy_slope_3 = ((N_slope_3-1)*Moy_slope_3 + Frequ_slope_3)/N_slope_3; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1180 Slope_slope_3 = (Slope_slope_3*(N_slope_3-2) + 6*(Frequ_slope_3-Moy_slope_3)/N_slope_3)/(N_slope_3+1) ; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1181 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1182 if (utc - t1_3 > SlopeTime3) { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1183 // slope measurement |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1184 Slope_3 = Slope_slope_3; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1185 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1186 t2_3 = utc; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1187 N_slope_3 = 0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1188 Frequ_slope_3 = 0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1189 Moy_slope_3 = 0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1190 Slope_slope_3 = 0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1191 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1192 // step 2 done |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1193 Measuring_3 = N_MEASUREMENT_STEP_3; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1194 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1195 // frep positive step |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1196 SetCtrlVal(MainPanel, PANEL_DDS4, FrequDDS4 + DeltakHz_3 * 1000); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1197 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 4, FrequDDS4 + DeltakHz_3 * 1000); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1198 // compensate with DDS3 to keep measured beatnote in counter box range |
|
25
fde495ba28d2
Correct DDS3 frequency adjustement on N3 measurement. Cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
24
diff
changeset
|
1199 double fDDS3 = FrequencyDDS3Init + N3/N1 * Ndiv * DeltakHz_3 * 1000; |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1200 SetCtrlVal(MainPanel, PANEL_DDS3, fDDS3); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1201 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 3, fDDS3); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1202 // allow counter to settle |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1203 settling = 3; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1204 } |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1205 break; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1206 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1207 case N_MEASUREMENT_STEP_3: // frep positive step |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1208 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1209 if (settling > 0) { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1210 settling--; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1211 break; |
| 0 | 1212 } |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1213 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1214 n_3++; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1215 Frepplus_3 += Ch2 - Slope_3 * (utc - t2_3); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1216 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1217 if (utc - t2_3 > DeltaT_3) { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1218 // positive step measurement |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1219 Frepplus_3 = Frepplus_3 / n_3; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1220 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1221 n_3 = 0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1222 t3_3 = utc; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1223 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1224 // step 3 done |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1225 Measuring_3 = N_MEASUREMENT_STEP_4; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1226 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1227 // frep negative step |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1228 SetCtrlVal(MainPanel, PANEL_DDS4, FrequDDS4 - DeltakHz_3 * 1000); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1229 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 4, FrequDDS4 - DeltakHz_3 * 1000); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1230 // compensate with DDS3 to keep measured beatnote in counter box range |
|
25
fde495ba28d2
Correct DDS3 frequency adjustement on N3 measurement. Cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
24
diff
changeset
|
1231 double fDDS3 = FrequencyDDS3Init - N3/N1 * Ndiv * DeltakHz_3 * 1000; |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1232 SetCtrlVal(MainPanel, PANEL_DDS3, fDDS3); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1233 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 3, fDDS3); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1234 // allow counter to settle |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1235 settling = 3; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1236 } |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1237 break; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1238 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1239 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1240 case N_MEASUREMENT_STEP_4: // frep negative step |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1241 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1242 if (settling > 0) { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1243 settling--; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1244 break; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1245 } |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1246 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1247 n_3++; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1248 Frepminus_3 += Ch2 - Slope_3 * (utc - t3_3); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1249 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1250 if (utc - t3_3 > DeltaT_3) { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1251 // positive step measurement |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1252 Frepminus_3 = Frepminus_3 / n_3; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1253 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1254 // compute N3 |
|
25
fde495ba28d2
Correct DDS3 frequency adjustement on N3 measurement. Cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
24
diff
changeset
|
1255 N_3 = 1000.0 * DeltakHz_3 / (Frepplus_3 - Frepminus_3 + (2 * N3/N1 * Ndiv * DeltakHz_3 * 1000)); |
|
22
b7b3b5f1c5a6
Remove unused widgets from N1 measurement panel. Harmonize widgets names
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
20
diff
changeset
|
1256 SetCtrlVal(CalcN3Panel, CALCN3_N, N_3); |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1257 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1258 t1_3=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1259 t2_3=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1260 t3_3=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1261 n_3 = 0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1262 Frepminus_3 = 0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1263 Frepplus_3 = 0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1264 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1265 // step 4 done |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1266 Measuring_3 = N_MEASUREMENT_STEP_0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1267 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1268 // back to nominal frep |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1269 SetCtrlVal(MainPanel, PANEL_DDS4, FrequDDS4); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1270 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 4, FrequDDS4); |
|
25
fde495ba28d2
Correct DDS3 frequency adjustement on N3 measurement. Cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
24
diff
changeset
|
1271 // back to initial DDS3 frequency |
|
fde495ba28d2
Correct DDS3 frequency adjustement on N3 measurement. Cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
24
diff
changeset
|
1272 SetCtrlVal(MainPanel, PANEL_DDS3, FrequencyDDS3Init); |
|
fde495ba28d2
Correct DDS3 frequency adjustement on N3 measurement. Cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
24
diff
changeset
|
1273 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 3, FrequencyDDS3Init); |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1274 } |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1275 break; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1276 } |
| 0 | 1277 |
| 1278 // Calcul du signe de fb | |
| 1279 | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1280 if (Getsign1 == TRUE) { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1281 if (utc > tbegin1+2) { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1282 if (Math1 > Frepbefore1) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1283 Signe1 = -1.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1284 else |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1285 Signe1 = +1.0; |
| 0 | 1286 SetCtrlVal(MainPanel, PANEL_DDS1, Frequency1) ; |
| 1287 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 1, Frequency1); | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1288 Getsign1 = FALSE; |
| 0 | 1289 } |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1290 } |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1291 if (Getsign2 == TRUE) { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1292 if (utc > tbegin2+2){ |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1293 if (Math1 > Frepbefore2) { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1294 if (Ch2 > Ch2before) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1295 Signe2 = +1.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1296 else |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1297 Signe2 = -1.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1298 } else { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1299 if (Ch2 > Ch2before) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1300 Signe2 = -1.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1301 else |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1302 Signe2 = +1.0; |
| 0 | 1303 } |
| 1304 SetCtrlVal(MainPanel, PANEL_DDS1, Frequency2) ; | |
| 1305 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 1, Frequency2); | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1306 Getsign2 = FALSE; |
| 0 | 1307 } |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1308 } |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1309 if (Getsign3 == TRUE) { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1310 if (utc > tbegin3+2){ |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1311 if (Ch3 > Frepbefore3) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1312 Signe3 = -1.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1313 else |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1314 Signe3 = +1.0; |
| 0 | 1315 SetCtrlVal(MainPanel, PANEL_DDS3, Frequency3) ; |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1316 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 4, Frequency3); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1317 Getsign3 = FALSE; |
| 0 | 1318 } |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
1319 } |
| 0 | 1320 |
| 1321 | |
| 1322 | |
| 1323 | |
| 1 | 1324 /* |
| 1325 * Slope Cancelling | |
| 1326 */ | |
| 0 | 1327 |
| 1 | 1328 if (SlopeMeasuring == TRUE) |
| 1329 { | |
|
20
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
1330 double currentFreq = 0.0; |
|
2
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
1331 |
|
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
1332 /* select reference */ |
|
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
1333 switch (slopeReference) { |
|
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
1334 case SLOPE_REFERENCE_MICROWAVE: |
|
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
1335 currentFreq = Math2; |
|
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
1336 break; |
|
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
1337 case SLOPE_REFERENCE_HG_CAVITY: |
|
10
239f2fe67cc0
Fix slope cancelling following Hg cavity
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
8
diff
changeset
|
1338 currentFreq = Ch2 * 1062.5 / 1542.2; |
|
2
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
1339 break; |
|
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
1340 } |
|
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
1341 |
| 1 | 1342 if (utc-SlopeMeasuringTimeBegin > TimetoSlope) |
| 0 | 1343 { |
| 1 | 1344 Nratio = Nratio + 1; |
| 0 | 1345 |
| 1 | 1346 if (Nratio >= 1) |
| 0 | 1347 { |
| 1 | 1348 MoyMath2 = MoyMath2 + Moy_Math2slope; |
| 0 | 1349 } |
| 1 | 1350 SlopeMath2 = SlopeMath2 + Slope_Math2slope; |
| 1351 N_Math2slope = 0.0; | |
| 1352 Math2_slope = 0.0; | |
| 1353 Moy_Math2slope = 0.0; | |
| 1354 Slope_Math2slope = 0.0; | |
| 0 | 1355 |
| 1 | 1356 if (Nratio == 1 && CenterFrequencyCh2ToDetermine == TRUE) |
| 1357 { | |
| 1358 CenterFrequencyCh2 = MoyMath2; | |
| 1359 CenterFrequencyCh2ToDetermine = FALSE; | |
| 1360 } | |
| 0 | 1361 |
| 1 | 1362 OnSlopeCancelling = TRUE; |
| 0 | 1363 |
| 1 | 1364 FoxFrequ = ReadDDSFOX (DDSFoxName,DDSFoxip,DDSFoxPort,DDSFoxProfil,DDSFoxClock,DDSFoxDeltaT,DDSFoxFrequency,DDSFoxSweeprate); |
| 1365 | |
| 1366 if (Nratio == ratio) | |
| 1367 { | |
| 1368 if (FrequCorrec == TRUE) | |
| 0 | 1369 { |
| 1 | 1370 SlopeCorrection = (MoyMath2/ratio-CenterFrequencyCh2)/TimetoSlope; |
| 1371 SlopeMath2 = SlopeMath2 + SlopeCorrection; | |
| 0 | 1372 } |
| 1 | 1373 Nratio = 0; |
| 1374 MoyMath2 = 0.0; | |
| 1375 } | |
| 0 | 1376 |
| 1377 LaunchDDSFOX (DDSFoxName,DDSFoxip,DDSFoxPort,DDSFoxProfil,DDSFoxClock,DDSFoxDeltaT,FoxFrequ,SlopeMath2,0); | |
| 1378 | |
| 1 | 1379 nstabilisationSlopeMeasuring = 0; |
| 1380 SlopeMeasuringTimeBegin = utc; | |
| 0 | 1381 |
| 1382 } | |
| 1383 else | |
| 1384 { | |
| 1 | 1385 if (nstabilisationSlopeMeasuring < 5) |
| 1386 { | |
| 1387 nstabilisationSlopeMeasuring = nstabilisationSlopeMeasuring + 1; | |
|
2
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
1388 Math2_slope = currentFreq; |
| 1 | 1389 } |
| 1390 else | |
| 1391 { | |
|
2
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
1392 if ((currentFreq-Math2_slope) < limitotakoff && (currentFreq-Math2_slope) > -limitotakoff) |
| 0 | 1393 { |
| 1 | 1394 N_Math2slope = N_Math2slope + 1; |
|
2
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
1395 Math2_slope = currentFreq; |
| 1 | 1396 Moy_Math2slope = ((N_Math2slope-1)*Moy_Math2slope + Math2_slope)/N_Math2slope; |
| 1397 Slope_Math2slope = (Slope_Math2slope*(N_Math2slope-2) + 6*(Math2_slope-Moy_Math2slope)/N_Math2slope)/(N_Math2slope+1) ; | |
| 0 | 1398 } |
| 1399 else | |
| 1400 { | |
| 1401 if (AutoStopSlopeCancellingIfDelock) | |
| 1402 { | |
| 1 | 1403 |
| 1404 /* | |
| 1405 * stop slope cancelling if the comb is not locked | |
| 1406 */ | |
| 1407 | |
| 1408 if (KeepFrequ == TRUE) | |
| 1409 { | |
| 1410 ActualFrequ = ReadDDSFOX (DDSFoxName,DDSFoxip,DDSFoxPort,DDSFoxProfil,DDSFoxClock,DDSFoxDeltaT,DDSFoxFrequency,DDSFoxSweeprate); | |
| 1411 } | |
| 1412 else | |
| 1413 { | |
| 1414 ActualFrequ = DDSFoxFrequency; | |
| 1415 } | |
| 1416 | |
| 1417 if (KeepSlope == TRUE) | |
| 1418 { | |
| 1419 ActualSlope = SlopeMath2; | |
| 1420 } | |
| 1421 else | |
| 1422 { | |
| 1423 ActualSlope = DDSFoxSweeprate; | |
| 1424 OnSlopeCancelling = FALSE; | |
| 1425 } | |
| 1426 | |
| 0 | 1427 LaunchDDSFOX (DDSFoxName,DDSFoxip,DDSFoxPort,DDSFoxProfil,DDSFoxClock,DDSFoxDeltaT,ActualFrequ,ActualSlope,0); |
| 1428 | |
| 1 | 1429 SlopeMeasuring = FALSE; |
| 1430 N_Math2slope = 0.0; | |
| 1431 Math2_slope = 0.0; | |
| 1432 MoyMath2 = 0.0; | |
| 1433 Moy_Math2slope = 0.0; | |
| 1434 Slope_Math2slope = 0.0; | |
| 1435 CenterFrequencyCh2 = 0.0; | |
| 1436 CenterFrequencyCh2ToDetermine = TRUE; | |
| 1437 Nratio = -1; | |
| 1438 nstabilisationSlopeMeasuring = 0; | |
| 1439 | |
| 1440 SetCtrlVal(MainPanel, PANEL_STARTCANCEL, 0); | |
| 0 | 1441 } |
| 1442 } | |
| 1 | 1443 } |
| 0 | 1444 } |
| 1445 } | |
| 1446 | |
| 1447 | |
| 1448 //// For re-centering | |
| 1449 | |
| 1450 if (KeepCentering) | |
| 1451 { | |
| 1452 | |
| 1453 DeltaCh4=275000-Ch4; | |
| 1454 DeltaCh2=10000-Ch2; | |
| 1455 | |
| 1456 if (utc- CenteringTimeBegin275K > Timetorecenter275K && CenteringTimeBegin275K>10) | |
| 1457 { | |
| 1458 GetCtrlVal(MainPanel, PANEL_DDS2, &FrequencyToChange) ; | |
| 1459 SetCtrlVal(MainPanel, PANEL_DDS2, FrequencyToChange+DeltaCh4) ; | |
| 1460 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 2, FrequencyToChange+DeltaCh4); | |
| 1461 CenteringTimeBegin275K=utc; | |
| 1462 | |
| 1463 | |
| 1464 } | |
| 1465 | |
| 1466 if (utc- CenteringTimeBegin10K > Timetorecenter10K && CenteringTimeBegin10K>10) | |
| 1467 { | |
| 1468 GetCtrlVal(MainPanel, PANEL_DDS3, &FrequencyToChange) ; | |
| 1469 SetCtrlVal(MainPanel, PANEL_DDS3, FrequencyToChange+DeltaCh2) ; | |
| 1470 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 3, FrequencyToChange+DeltaCh2); | |
| 1471 CenteringTimeBegin10K=utc; | |
| 1472 | |
| 1473 | |
| 1474 } | |
| 1475 | |
| 1476 | |
| 1477 } | |
| 1478 | |
| 1479 GetCtrlVal(MainPanel, PANEL_CHECKBOX_MATH2AUTOSAV, &BoxChecked) ; // AutoSave OL | |
| 1480 if (BoxChecked) { | |
| 1481 SetCtrlVal(MainPanel, PANEL_CHECKBOX_MATH2SAVE, TRUE) ; // so that it will try to write it (at next block) if it seems reasonnable, even though it was off before | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1482 } |
| 0 | 1483 |
| 1484 GetCtrlVal(MainPanel, PANEL_CHECKBOX_MATH2SAVE, &BoxChecked) ; // Save OL (Math2) | |
| 1485 if (BoxChecked) { | |
| 1486 FileOpt = OpenFile("z:\\MeasuresFifi1\\OptCavity.txt", VAL_WRITE_ONLY, VAL_APPEND, VAL_ASCII) ; | |
| 1487 Fmt(ReportString, "%s\t%s\t%f[p3]\t%f[p3]", Date, Time, utc, Math2); | |
| 1488 WriteLine(FileOpt, ReportString, -1) ; | |
| 1489 CloseFile(FileOpt) ; | |
| 1490 FileOpt = OpenFile("C:\\Femto\\Results\\OptCavity.txt", VAL_WRITE_ONLY, VAL_APPEND, VAL_ASCII) ; // a local backup for debugging | |
| 1491 Fmt(ReportString, "%s\t%s\t%f[p3]\t%f[p3]", Date, Time, utc, Math2); | |
| 1492 WriteLine(FileOpt, ReportString, -1) ; | |
| 1493 CloseFile(FileOpt) ; | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1494 } |
| 0 | 1495 |
| 1496 GetCtrlVal(MainPanel, PANEL_CHECKBOX_MATH3AUTOSAV, &BoxChecked) ; // AutoSave Hg (Math3) | |
| 1497 if (BoxChecked) { | |
| 1498 SetCtrlVal(MainPanel, PANEL_CHECKBOX_MATH3SAVE, TRUE) ; // so that it will try to write it (at next block) if it seems reasonnable, even though it was off before | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1499 } |
| 0 | 1500 |
| 1501 GetCtrlVal(MainPanel, PANEL_CHECKBOX_MATH3SAVE, &BoxChecked) ; // Save Hg | |
| 1502 | |
| 1503 if (BoxChecked) { | |
| 1504 FileHg = OpenFile("z:\\MeasuresFifi1\\HgCavity.txt", VAL_WRITE_ONLY, VAL_APPEND, VAL_ASCII) ; | |
| 1505 Fmt(ReportString, "%s\t%s\t%f[p3]\t%f[p3]", Date, Time, utc, Math3); | |
| 1506 WriteLine(FileHg, ReportString, -1) ; | |
| 1507 CloseFile(FileHg) ; | |
| 1508 FileHg = OpenFile("C:\\Femto\\Results\\HgCavity.txt", VAL_WRITE_ONLY, VAL_APPEND, VAL_ASCII) ; | |
| 1509 Fmt(ReportString, "%s\t%s\t%f[p3]\t%f[p3]", Date, Time, utc, Math3); | |
| 1510 WriteLine(FileHg, ReportString, -1) ; | |
| 1511 CloseFile(FileHg) ; | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1512 } |
| 0 | 1513 |
| 1514 GetCtrlVal(MainPanel, PANEL_CHECKBOX_MATH5SAVE, &BoxChecked) ; // Save ExtraMath (Math5) | |
| 1515 if (BoxChecked) { | |
| 1516 FileExtraMath = OpenFile(ExtraMathFileName, VAL_WRITE_ONLY, VAL_APPEND, VAL_ASCII) ; | |
| 1517 Fmt(ReportString, "%s\t%s\t%f[p3]\t%f[p7]", Date, Time, utc, Math5); | |
| 1518 WriteLine(FileExtraMath, ReportString, -1) ; | |
| 1519 CloseFile(FileExtraMath) ; | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1520 } |
| 0 | 1521 |
| 1522 // Special case to handle change of day at next second | |
| 1523 if ( LocalTime.tm_hour==23 && LocalTime.tm_min==59 && strtod(Sec,NULL)>=58 ) { | |
| 1524 printf("Entering change of date substructure\r\n"); | |
| 1525 printf("old file : %s %s %s \r\n",Date, Time, LogFileName); | |
| 1526 Acquiring = FALSE ; | |
| 1527 do { | |
| 1528 Delay(5.1); | |
|
25
fde495ba28d2
Correct DDS3 frequency adjustement on N3 measurement. Cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
24
diff
changeset
|
1529 CurrentFileName(LogFileName) ; |
|
fde495ba28d2
Correct DDS3 frequency adjustement on N3 measurement. Cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
24
diff
changeset
|
1530 } while (!GetFileInfo(LogFileName, &OldLogFilePtr)); |
| 0 | 1531 printf("new file : %s \r\n\r\n",Date, Time, LogFileName); |
| 1532 Acquiring = TRUE ; | |
| 1533 OldLogFilePtr = 2; | |
|
25
fde495ba28d2
Correct DDS3 frequency adjustement on N3 measurement. Cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
24
diff
changeset
|
1534 } |
| 0 | 1535 |
|
2
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
1536 ResumeTimerCallbacks() ; |
| 0 | 1537 |
| 1538 } ; | |
| 1539 | |
| 1540 break; | |
| 1541 case FALSE: | |
| 1542 break; | |
| 1543 } | |
| 1544 break; | |
| 1545 } | |
| 1546 return 0; | |
| 1547 } | |
| 1548 | |
| 1549 | |
| 1550 | |
| 1551 | |
| 1552 int CVICALLBACK CB_OnFreqPlot (int panel, int control, int event, | |
| 1553 void *callbackData, int eventData1, int eventData2) | |
| 1554 { | |
| 1555 int BoxChecked ; | |
| 1556 Plot_Data * pPlot = NULL; | |
| 1557 char PlotTitle[] = "Ch? Frequency Plot" ; | |
| 1558 double PlotMin = 10e6 ; | |
| 1559 double PlotMax = 65e6 ; | |
| 1560 | |
| 1561 switch (event) | |
| 1562 { | |
| 1563 case EVENT_COMMIT: | |
| 1564 | |
| 1565 GetCtrlVal(MainPanel, control, &BoxChecked); | |
| 1566 switch (control) { | |
| 1567 case PANEL_CHECKBOX_FREQ1PLOT : | |
| 1568 pPlot = &PlotCh1 ; | |
| 1569 Fmt(PlotTitle, "Ch1 Frequency Plot") ; | |
| 1570 PlotMin = 54.999e6 ; PlotMax = 55.001e6 ; | |
| 1571 break ; | |
| 1572 case PANEL_CHECKBOX_FREQ2PLOT : | |
| 1573 pPlot = &PlotCh2 ; | |
| 1574 Fmt(PlotTitle, "Ch2 Frequency Plot") ; | |
| 1575 PlotMin = 8.0e3 ; PlotMax = 12.0e3 ; | |
| 1576 break ; | |
| 1577 case PANEL_CHECKBOX_FREQ3PLOT : | |
| 1578 pPlot = &PlotCh3 ; | |
| 1579 Fmt(PlotTitle, "Ch3 Frequency Plot") ; | |
| 1580 PlotMin = 8.0e3 ; PlotMax = 12.0e3 ; | |
| 1581 break ; | |
| 1582 case PANEL_CHECKBOX_FREQ4PLOT : | |
| 1583 pPlot = &PlotCh4 ; | |
| 1584 Fmt(PlotTitle, "Ch4 Frequency Plot") ; | |
| 1585 break ; | |
| 1586 case PANEL_CHECKBOX_MATH1PLOT : | |
| 1587 pPlot = &PlotMath1 ; | |
| 1588 Fmt(PlotTitle, "Math1 Plot") ; | |
| 1589 PlotMin = 765.0e6 ; PlotMax = 775.0e6 ; | |
| 1590 break ; | |
| 1591 case PANEL_CHECKBOX_MATH2PLOT : | |
| 1592 pPlot = &PlotMath2 ; | |
| 1593 Fmt(PlotTitle, "Math2 Plot") ; | |
| 1594 PlotMin = -1.0e9 ; PlotMax = 1.0e9 ; | |
| 1595 break ; | |
| 1596 case PANEL_CHECKBOX_MATH3PLOT : | |
| 1597 pPlot = &PlotMath3 ; | |
| 1598 Fmt(PlotTitle, "Math3 Plot") ; | |
| 1599 PlotMin = -1.0e9 ; PlotMax = 1.0e9 ; | |
| 1600 break ; | |
| 1601 case PANEL_CHECKBOX_MATH4PLOT : | |
| 1602 pPlot = &PlotMath4 ; | |
| 1603 Fmt(PlotTitle, "Math4 Plot") ; | |
| 1604 PlotMin = -1.0e9 ; PlotMax = 1.0e9 ; | |
| 1605 break ; | |
| 1606 case PANEL_CHECKBOX_MATH5PLOT : | |
| 1607 pPlot = &PlotMath5 ; | |
| 1608 Fmt(PlotTitle, "Math5 Plot") ; | |
| 1609 PlotMin = -1.0e9 ; PlotMax = 1.0e9 ; | |
| 1610 break ; | |
| 1611 } | |
| 1612 | |
| 1613 if (BoxChecked) { | |
| 1614 Plot_InitPanel(pPlot, PlotTitle, PlotMin, PlotMax, &OnCloseViewPanel) ; | |
| 1615 } | |
| 1616 else { | |
| 1617 Plot_ClosePanel(pPlot) ; | |
| 1618 } ; | |
| 1619 break; | |
| 1620 | |
| 1621 case EVENT_RIGHT_CLICK: | |
| 1622 | |
| 1623 break; | |
| 1624 | |
| 1625 } | |
| 1626 return 0; | |
| 1627 } | |
| 1628 | |
| 1629 | |
| 1630 int CVICALLBACK CB_OnAllanPlot (int panel, int control, int event, | |
| 1631 void *callbackData, int eventData1, int eventData2) | |
| 1632 { | |
| 1633 int BoxChecked ; | |
| 1634 Allan_Data * pAllan = NULL; | |
| 1635 char AllanTitle[] = "Ch? Allan Deviation " ; | |
| 1636 double Normalizer = 300e12 ; | |
| 1637 | |
| 1638 switch (event) | |
| 1639 { | |
| 1640 case EVENT_COMMIT: | |
| 1641 | |
| 1642 GetCtrlVal(MainPanel, control, &BoxChecked); | |
| 1643 switch (control) { | |
| 1644 case PANEL_CHECKBOX_FREQ1ALLAN : | |
| 1645 pAllan = &AllanCh1 ; | |
| 1646 Fmt(AllanTitle, "Ch1 Allan Deviation") ; | |
| 1647 Normalizer = 1.84e12 ; | |
| 1648 break ; | |
| 1649 case PANEL_CHECKBOX_FREQ2ALLAN : | |
| 1650 pAllan = &AllanCh2 ; | |
| 1651 Fmt(AllanTitle, "Ch2 Allan Deviation") ; | |
| 1652 Normalizer = 10.e3 ; | |
| 1653 break ; | |
| 1654 case PANEL_CHECKBOX_FREQ3ALLAN : | |
| 1655 pAllan = &AllanCh3 ; | |
| 1656 Fmt(AllanTitle, "Ch3 Allan Deviation") ; | |
| 1657 Normalizer = 429.228e12 ; | |
| 1658 break ; | |
| 1659 case PANEL_CHECKBOX_FREQ4ALLAN : | |
| 1660 pAllan = &AllanCh4 ; | |
| 1661 Fmt(AllanTitle, "Ch4 Allan Deviation") ; | |
| 1662 Normalizer = 275.0e3 ; | |
| 1663 break ; | |
| 1664 case PANEL_CHECKBOX_MATH1ALLAN : | |
| 1665 pAllan = &AllanMath1 ; | |
| 1666 Fmt(AllanTitle, "Math1 Allan Deviation") ; | |
| 1667 Normalizer = 250.0e6 ; | |
| 1668 break ; | |
| 1669 case PANEL_CHECKBOX_MATH2ALLAN : | |
| 1670 pAllan = &AllanMath2 ; | |
| 1671 Fmt(AllanTitle, "Math2 Allan Deviation") ; | |
| 1672 Normalizer = 194.395e12 ; | |
| 1673 break ; | |
| 1674 case PANEL_CHECKBOX_MATH3ALLAN : | |
| 1675 pAllan = &AllanMath3 ; | |
| 1676 Fmt(AllanTitle, "Math3 Allan Deviation") ; | |
| 1677 Normalizer = 282.143e12 ; | |
| 1678 break ; | |
| 1679 case PANEL_CHECKBOX_MATH4ALLAN : | |
| 1680 pAllan = &AllanMath4 ; | |
| 1681 Fmt(AllanTitle, "Math4 Allan Deviation") ; | |
| 1682 Normalizer = 429.228e12 ; | |
| 1683 break ; | |
| 1684 case PANEL_CHECKBOX_MATH5ALLAN : | |
| 1685 pAllan = &AllanMath5 ; | |
| 1686 Fmt(AllanTitle, "Math5 Allan Deviation") ; | |
| 1687 Normalizer = 429.228e12 ; | |
| 1688 break ; | |
| 1689 } | |
| 1690 | |
| 1691 if (BoxChecked) { | |
| 1692 Allan_InitPanel(pAllan, AllanTitle, Normalizer, &OnCloseViewPanel) ; | |
| 1693 } | |
| 1694 else { | |
| 1695 Allan_ClosePanel(pAllan) ; | |
| 1696 } ; | |
| 1697 break; | |
| 1698 | |
| 1699 case EVENT_RIGHT_CLICK: | |
| 1700 | |
| 1701 break; | |
| 1702 | |
| 1703 } | |
| 1704 return 0; | |
| 1705 } | |
| 1706 | |
| 1707 int CVICALLBACK CB_ChangeDDSOut (int panel, int control, int event, | |
| 1708 void *callbackData, int eventData1, int eventData2) | |
| 1709 { | |
| 1710 double Frequency ; | |
| 1711 | |
| 1712 switch (event) | |
| 1713 { | |
| 1714 case EVENT_COMMIT: | |
| 1715 GetCtrlVal(MainPanel, control, &Frequency) ; | |
| 1716 if (control==PANEL_DDSFREPOUT) { DDSBes_SetFrequency(&DDSBes, Frequency) ;} | |
| 1717 if (control==PANEL_DDS1) { DDS4xAD9912_SetFrequency(&DDS4xAD9912, 1, Frequency);} | |
| 1718 if (control==PANEL_DDS2) { DDS4xAD9912_SetFrequency(&DDS4xAD9912, 2, Frequency);} | |
| 1719 if (control==PANEL_DDS3) { DDS4xAD9912_SetFrequency(&DDS4xAD9912, 3, Frequency);} | |
| 1720 if (control==PANEL_DDS4) { DDS4xAD9912_SetFrequency(&DDS4xAD9912, 4, Frequency);} | |
| 1721 case EVENT_RIGHT_CLICK: | |
| 1722 | |
| 1723 break; | |
| 1724 | |
| 1725 } | |
| 1726 return 0; | |
| 1727 } | |
| 1728 | |
| 1729 int CVICALLBACK CB_ChangeDDSStep (int panel, int control, int event, | |
| 1730 void *callbackData, int eventData1, int eventData2) | |
| 1731 { | |
| 1732 double Step ; | |
| 1733 | |
| 1734 switch (event) | |
| 1735 { | |
| 1736 case EVENT_COMMIT: | |
| 1737 GetCtrlVal(MainPanel, control, &Step) ; | |
| 1738 if (control==PANEL_DDSFREPSTEP) { SetCtrlAttribute(panel, PANEL_DDSFREPOUT, ATTR_INCR_VALUE, Step) ;} | |
| 1739 if (control==PANEL_DDS1STEP) { SetCtrlAttribute(panel, PANEL_DDS1, ATTR_INCR_VALUE, Step) ;} | |
| 1740 if (control==PANEL_DDS2STEP) { SetCtrlAttribute(panel, PANEL_DDS2, ATTR_INCR_VALUE, Step) ;} | |
| 1741 if (control==PANEL_DDS3STEP) { SetCtrlAttribute(panel, PANEL_DDS3, ATTR_INCR_VALUE, Step) ;} | |
| 1742 if (control==PANEL_DDS4STEP) { SetCtrlAttribute(panel, PANEL_DDS4, ATTR_INCR_VALUE, Step) ;} | |
| 1743 break; | |
| 1744 case EVENT_RIGHT_CLICK: | |
| 1745 | |
| 1746 break; | |
| 1747 | |
| 1748 } | |
| 1749 return 0; | |
| 1750 } | |
| 1751 | |
| 1752 int CVICALLBACK CB_ChangeDDSAmpli (int panel, int control, int event, | |
| 1753 void *callbackData, int eventData1, int eventData2) | |
| 1754 { | |
| 1755 unsigned short int Amplitude ; | |
| 1756 | |
| 1757 switch (event) | |
| 1758 { | |
| 1759 case EVENT_COMMIT: | |
| 1760 GetCtrlVal(MainPanel, control, &Amplitude) ; | |
| 1761 if (control==PANEL_DDSFREPAMP) { DDSBes_SetAmplitude(&DDSBes, Amplitude) ;} | |
| 1762 case EVENT_RIGHT_CLICK: | |
| 1763 | |
| 1764 break; | |
| 1765 | |
| 1766 } | |
| 1767 return 0; | |
| 1768 } | |
| 1769 | |
| 1770 int CVICALLBACK CB_ChangeMath (int panel, int control, int event, | |
| 1771 void *callbackData, int eventData1, int eventData2) | |
| 1772 { | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1773 int len; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1774 char *string; |
| 0 | 1775 |
| 1776 switch (event) | |
| 1777 { | |
| 1778 case EVENT_COMMIT: | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1779 GetCtrlAttribute(panel, control, ATTR_STRING_TEXT_LENGTH, &len); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1780 string = (char *)malloc(sizeof(char) * (len + 1)); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1781 GetCtrlVal(panel, control, string); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1782 switch (control) { |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1783 case PANEL_MATHSTRING1: |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1784 mupSetExpr(MathParser1, string); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1785 break; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1786 case PANEL_MATHSTRING2: |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1787 mupSetExpr(MathParser2, string); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1788 break; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1789 case PANEL_MATHSTRING3: |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1790 mupSetExpr(MathParser3, string); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1791 break; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1792 case PANEL_MATHSTRING4: |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1793 mupSetExpr(MathParser4, string); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1794 break; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1795 case PANEL_MATHSTRING5: |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1796 mupSetExpr(MathParser5, string); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1797 break; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1798 } |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1799 free(string); |
| 0 | 1800 break; |
| 1801 } | |
| 1802 return 0; | |
| 1803 } | |
| 1804 | |
| 1805 int CVICALLBACK CB_ChangeN (int panel, int control, int event, | |
| 1806 void *callbackData, int eventData1, int eventData2) | |
| 1807 { | |
| 1808 | |
| 1809 switch (event) | |
| 1810 { | |
| 1811 case EVENT_COMMIT: | |
| 1812 if (control==PANEL_N1CHOICE) GetCtrlVal(MainPanel, control, &N1) ; | |
| 1813 if (control==PANEL_N2CHOICE) GetCtrlVal(MainPanel, control, &N2) ; | |
| 1814 if (control==PANEL_N3CHOICE) GetCtrlVal(MainPanel, control, &N3) ; | |
| 1815 break; | |
| 1816 } | |
| 1817 return 0; | |
| 1818 } | |
| 1819 | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1820 |
| 0 | 1821 int CVICALLBACK CB_OnPlus275k (int panel, int control, int event, |
| 1822 void *callbackData, int eventData1, int eventData2) | |
| 1823 { | |
| 1824 double Frequency ; | |
| 1825 | |
| 1826 switch (event) | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1827 { |
| 0 | 1828 case EVENT_COMMIT: |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1829 GetCtrlVal(MainPanel, PANEL_DDSFREPOUT, &Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1830 Frequency += 275000.0; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1831 DDSBes_SetFrequency(&DDSBes, Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1832 SetCtrlVal(MainPanel, PANEL_DDSFREPOUT, Frequency); |
| 0 | 1833 break; |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1834 } |
| 0 | 1835 return 0; |
| 1836 } | |
| 1837 | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1838 |
| 0 | 1839 int CVICALLBACK CB_OnMinus275k (int panel, int control, int event, |
| 1840 void *callbackData, int eventData1, int eventData2) | |
| 1841 { | |
| 1842 double Frequency ; | |
| 1843 | |
| 1844 switch (event) | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1845 { |
| 0 | 1846 case EVENT_COMMIT: |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1847 GetCtrlVal(MainPanel, PANEL_DDSFREPOUT, &Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1848 Frequency -= 275000.0; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1849 DDSBes_SetFrequency(&DDSBes, Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1850 SetCtrlVal(MainPanel, PANEL_DDSFREPOUT, Frequency); |
| 0 | 1851 break; |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1852 } |
| 0 | 1853 return 0; |
| 1854 } | |
| 1855 | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1856 |
| 0 | 1857 int CVICALLBACK CB_OnPlus10k (int panel, int control, int event, |
| 1858 void *callbackData, int eventData1, int eventData2) | |
| 1859 { | |
| 1860 double Frequency ; | |
| 1861 | |
| 1862 switch (event) | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1863 { |
| 0 | 1864 case EVENT_COMMIT: |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1865 switch (control) |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1866 { |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1867 case PANEL_PLUS10KDDS1: |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1868 GetCtrlVal(MainPanel, PANEL_DDS1, &Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1869 Frequency += 10000.0; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1870 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 1, Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1871 SetCtrlVal(MainPanel, PANEL_DDS1, Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1872 break; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1873 case PANEL_PLUS10KDDS2: |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1874 GetCtrlVal(MainPanel, PANEL_DDS2, &Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1875 Frequency += 10000.0; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1876 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 2, Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1877 SetCtrlVal(MainPanel, PANEL_DDS2, Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1878 break; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1879 case PANEL_PLUS10KDDS3: |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1880 GetCtrlVal(MainPanel, PANEL_DDS3, &Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1881 Frequency += 10000.0; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1882 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 3, Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1883 SetCtrlVal(MainPanel, PANEL_DDS3, Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1884 break; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1885 case PANEL_PLUS10KDDS4: |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1886 GetCtrlVal(MainPanel, PANEL_DDS4, &Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1887 Frequency += 10000.0; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1888 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 4, Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1889 SetCtrlVal(MainPanel, PANEL_DDS4, Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1890 break; |
| 0 | 1891 } |
| 1892 break; | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1893 } |
| 0 | 1894 return 0; |
| 1895 } | |
| 1896 | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1897 |
| 0 | 1898 int CVICALLBACK CB_OnMinus10k (int panel, int control, int event, |
| 1899 void *callbackData, int eventData1, int eventData2) | |
| 1900 { | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1901 double Frequency; |
| 0 | 1902 |
| 1903 switch (event) | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1904 { |
| 0 | 1905 case EVENT_COMMIT: |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1906 switch (control) |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1907 { |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1908 case PANEL_MINUS10KDDS1: |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1909 GetCtrlVal(MainPanel, PANEL_DDS1, &Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1910 Frequency -= 10000.0; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1911 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 1, Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1912 SetCtrlVal(MainPanel, PANEL_DDS1, Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1913 break; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1914 case PANEL_MINUS10KDDS2: |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1915 GetCtrlVal(MainPanel, PANEL_DDS2, &Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1916 Frequency -= 10000.0; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1917 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 2, Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1918 SetCtrlVal(MainPanel, PANEL_DDS2, Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1919 break; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1920 case PANEL_MINUS10KDDS3: |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1921 GetCtrlVal(MainPanel, PANEL_DDS3, &Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1922 Frequency -= 10000.0; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1923 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 3, Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1924 SetCtrlVal(MainPanel, PANEL_DDS3, Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1925 break; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1926 case PANEL_MINUS10KDDS4: |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1927 GetCtrlVal(MainPanel, PANEL_DDS4, &Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1928 Frequency -= 10000.0; |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1929 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 4, Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1930 SetCtrlVal(MainPanel, PANEL_DDS4, Frequency); |
|
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1931 break; |
| 0 | 1932 } |
| 1933 break; | |
|
24
b838371c7a91
Code cleanup and dead code removal
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
23
diff
changeset
|
1934 } |
| 0 | 1935 return 0; |
| 1936 } | |
| 1937 | |
| 1938 | |
| 1939 | |
| 1940 int CVICALLBACK CB_OnSaveOpt (int panel, int control, int event, | |
| 1941 void *callbackData, int eventData1, int eventData2) | |
| 1942 { | |
| 1943 bool BoxChecked = FALSE ; | |
| 1944 | |
| 1945 switch (event) | |
| 1946 { | |
| 1947 case EVENT_COMMIT: | |
| 1948 | |
| 1949 GetCtrlVal(MainPanel, control, &BoxChecked); | |
| 1950 | |
| 1951 if (BoxChecked) { | |
| 1952 SetCtrlAttribute(MainPanel, PANEL_CHECKBOX_MATH2AUTOSAV, ATTR_DIMMED, FALSE) ; | |
| 1953 } | |
| 1954 | |
| 1955 if (!BoxChecked) { | |
| 1956 SetCtrlAttribute(MainPanel, PANEL_CHECKBOX_MATH2AUTOSAV, ATTR_DIMMED, TRUE) ; | |
| 1957 } | |
| 1958 | |
| 1959 break; | |
| 1960 } | |
| 1961 return 0; | |
| 1962 } | |
| 1963 | |
| 1964 | |
| 1965 | |
| 1966 | |
| 1967 int CVICALLBACK CB_OnSaveHg (int panel, int control, int event, | |
| 1968 void *callbackData, int eventData1, int eventData2) | |
| 1969 { | |
| 1970 bool BoxChecked = FALSE ; | |
| 1971 | |
| 1972 switch (event) | |
| 1973 { | |
| 1974 case EVENT_COMMIT: | |
| 1975 | |
| 1976 GetCtrlVal(MainPanel, control, &BoxChecked); | |
| 1977 | |
| 1978 if (BoxChecked) { | |
| 1979 SetCtrlAttribute(MainPanel, PANEL_CHECKBOX_MATH3AUTOSAV, ATTR_DIMMED, FALSE) ; | |
| 1980 } | |
| 1981 | |
| 1982 if (!BoxChecked) { | |
| 1983 SetCtrlAttribute(MainPanel, PANEL_CHECKBOX_MATH3AUTOSAV, ATTR_DIMMED, TRUE) ; | |
| 1984 } | |
| 1985 | |
| 1986 break; | |
| 1987 } | |
| 1988 return 0; | |
| 1989 } | |
| 1990 | |
| 1991 int CVICALLBACK CB_OnAutoSaveHg (int panel, int control, int event, | |
| 1992 void *callbackData, int eventData1, int eventData2) | |
| 1993 { | |
| 1994 bool BoxChecked = FALSE ; | |
| 1995 | |
| 1996 switch (event) | |
| 1997 { | |
| 1998 case EVENT_COMMIT: | |
| 1999 | |
| 2000 GetCtrlVal(MainPanel, control, &BoxChecked); | |
| 2001 | |
| 2002 if (BoxChecked) { | |
| 2003 SetCtrlAttribute(MainPanel, PANEL_CHECKBOX_MATH2SAVE, ATTR_DIMMED, TRUE) ; | |
| 2004 } | |
| 2005 | |
| 2006 if (!BoxChecked) { | |
| 2007 SetCtrlAttribute(MainPanel, PANEL_CHECKBOX_MATH2SAVE, ATTR_DIMMED, FALSE) ; | |
| 2008 } | |
| 2009 | |
| 2010 break; | |
| 2011 } | |
| 2012 return 0; | |
| 2013 } | |
| 2014 | |
| 2015 int CVICALLBACK CB_OnSaveSr (int panel, int control, int event, | |
| 2016 void *callbackData, int eventData1, int eventData2) | |
| 2017 { | |
| 2018 bool BoxChecked = FALSE ; | |
| 2019 | |
| 2020 switch (event) | |
| 2021 { | |
| 2022 case EVENT_COMMIT: | |
| 2023 | |
| 2024 GetCtrlVal(MainPanel, control, &BoxChecked); | |
| 2025 | |
| 2026 if (BoxChecked) { | |
| 2027 SetCtrlAttribute(MainPanel, PANEL_CHECKBOX_MATH3AUTOSAV, ATTR_DIMMED, FALSE) ; | |
| 2028 } | |
| 2029 | |
| 2030 if (!BoxChecked) { | |
| 2031 SetCtrlAttribute(MainPanel, PANEL_CHECKBOX_MATH3AUTOSAV, ATTR_DIMMED, TRUE) ; | |
| 2032 } | |
| 2033 break; | |
| 2034 } | |
| 2035 return 0; | |
| 2036 } | |
| 2037 | |
| 2038 int CVICALLBACK CB_OnAutoSaveSr (int panel, int control, int event, | |
| 2039 void *callbackData, int eventData1, int eventData2) | |
| 2040 { | |
| 2041 bool BoxChecked = FALSE ; | |
| 2042 | |
| 2043 switch (event) | |
| 2044 { | |
| 2045 case EVENT_COMMIT: | |
| 2046 | |
| 2047 GetCtrlVal(MainPanel, control, &BoxChecked); | |
| 2048 | |
| 2049 if (BoxChecked) { | |
| 2050 SetCtrlAttribute(MainPanel, PANEL_CHECKBOX_MATH3SAVE, ATTR_DIMMED, TRUE) ; | |
| 2051 } | |
| 2052 | |
| 2053 if (!BoxChecked) { | |
| 2054 SetCtrlAttribute(MainPanel, PANEL_CHECKBOX_MATH3SAVE, ATTR_DIMMED, FALSE) ; | |
| 2055 } | |
| 2056 | |
| 2057 break; | |
| 2058 } | |
| 2059 return 0; | |
| 2060 } | |
| 2061 | |
| 2062 | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2063 int CVICALLBACK CB_OnAcceptN (int panel, int control, int event, |
| 0 | 2064 void *callbackData, int eventData1, int eventData2) |
| 2065 { | |
| 2066 switch (event) | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2067 { |
| 0 | 2068 case EVENT_COMMIT: |
| 2069 if (panel == CalcN1Panel) { | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2070 N1 = round(N_1); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2071 SetCtrlVal(MainPanel, PANEL_N1CHOICE, N1); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2072 } |
| 0 | 2073 if (panel == CalcN2Panel) { |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2074 N2 = round(N_2); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2075 SetCtrlVal(MainPanel, PANEL_N2CHOICE, N2); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2076 } |
| 0 | 2077 if (panel == CalcN3Panel) { |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2078 N3 = round(N_3); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2079 SetCtrlVal(MainPanel, PANEL_N3CHOICE, N3); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2080 } |
| 0 | 2081 break; |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2082 } |
| 0 | 2083 return 0; |
| 2084 } | |
| 2085 | |
| 2086 | |
| 2087 int CVICALLBACK OnChooseSaveFile (int panel, int control, int event, | |
| 2088 void *callbackData, int eventData1, int eventData2) | |
| 2089 { | |
| 2090 switch (event) | |
| 2091 { | |
| 2092 case EVENT_COMMIT: | |
| 2093 | |
| 2094 FileSelectPopup("D:\\Manip Femto", "*.txt", "*.txt", "Selection of the ExtraMath saving file", VAL_SAVE_BUTTON, 0, 0, 0, FALSE, ExtraMathFileName) ; | |
| 2095 SetCtrlAttribute(MainPanel, PANEL_CHECKBOX_MATH5SAVE, ATTR_DIMMED, FALSE) ; | |
| 2096 | |
| 2097 break; | |
| 2098 } | |
| 2099 return 0; | |
| 2100 } | |
| 2101 | |
| 2102 | |
| 2103 int CVICALLBACK CB_OnNCalculus (int panel, int control, int event, | |
| 2104 void *callbackData, int eventData1, int eventData2) | |
| 2105 { | |
| 2106 | |
| 2107 int PanelIsVisible, PanelTop, PanelLeft, PanelWidth ; | |
| 2108 | |
| 2109 switch (event) | |
| 2110 { | |
| 2111 case EVENT_COMMIT: | |
| 2112 | |
| 2113 if (control==PANEL_N1CALCULUS){ | |
| 2114 GetPanelAttribute (CalcN1Panel, ATTR_VISIBLE , &PanelIsVisible); | |
| 2115 if (PanelIsVisible) { | |
| 2116 } | |
| 2117 else { | |
| 2118 GetPanelAttribute (MainPanel, ATTR_TOP, &PanelTop) ; | |
| 2119 GetPanelAttribute (MainPanel, ATTR_LEFT, &PanelLeft) ; | |
| 2120 GetPanelAttribute (MainPanel, ATTR_WIDTH, &PanelWidth) ; | |
| 2121 SetPanelAttribute (CalcN1Panel, ATTR_TOP, PanelTop+170 ) ; | |
| 2122 SetPanelAttribute (CalcN1Panel, ATTR_LEFT, PanelLeft+PanelWidth+4 ) ; | |
| 2123 DisplayPanel(CalcN1Panel) ; | |
| 2124 } | |
| 2125 } | |
| 2126 if (control==PANEL_N2CALCULUS){ | |
| 2127 GetPanelAttribute (CalcN2Panel, ATTR_VISIBLE , &PanelIsVisible); | |
| 2128 if (PanelIsVisible) { | |
| 2129 } | |
| 2130 else { | |
| 2131 GetPanelAttribute (MainPanel, ATTR_TOP, &PanelTop) ; | |
| 2132 GetPanelAttribute (MainPanel, ATTR_LEFT, &PanelLeft) ; | |
| 2133 GetPanelAttribute (MainPanel, ATTR_WIDTH, &PanelWidth) ; | |
| 2134 SetPanelAttribute (CalcN2Panel, ATTR_TOP, PanelTop+310 ) ; | |
| 2135 SetPanelAttribute (CalcN2Panel, ATTR_LEFT, PanelLeft+PanelWidth+4 ) ; | |
| 2136 DisplayPanel(CalcN2Panel) ; | |
| 2137 } | |
| 2138 } | |
| 2139 if (control==PANEL_N3CALCULUS){ | |
| 2140 GetPanelAttribute (CalcN3Panel, ATTR_VISIBLE , &PanelIsVisible); | |
| 2141 if (PanelIsVisible) { | |
| 2142 } | |
| 2143 else { | |
| 2144 GetPanelAttribute (MainPanel, ATTR_TOP, &PanelTop) ; | |
| 2145 GetPanelAttribute (MainPanel, ATTR_LEFT, &PanelLeft) ; | |
| 2146 GetPanelAttribute (MainPanel, ATTR_WIDTH, &PanelWidth) ; | |
| 2147 SetPanelAttribute (CalcN3Panel, ATTR_TOP, PanelTop+480 ) ; | |
| 2148 SetPanelAttribute (CalcN3Panel, ATTR_LEFT, PanelLeft+PanelWidth+4 ) ; | |
| 2149 DisplayPanel(CalcN3Panel) ; | |
| 2150 } | |
| 2151 } | |
| 2152 break; | |
| 2153 } | |
| 2154 | |
| 2155 return 0; | |
| 2156 } | |
| 2157 | |
| 2158 | |
| 2159 int CVICALLBACK CB_OnStartNCalculus (int panel, int control, int event, | |
| 2160 void *callbackData, int eventData1, int eventData2) | |
| 2161 { | |
| 2162 | |
| 2163 switch (event) | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2164 { |
| 0 | 2165 case EVENT_COMMIT: |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2166 if (panel == CalcN1Panel) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2167 Measuring_1 = TRUE; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2168 if (panel == CalcN2Panel) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2169 Measuring_2 = TRUE; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2170 if (panel == CalcN3Panel) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2171 Measuring_3 = TRUE; |
| 0 | 2172 break; |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2173 } |
| 0 | 2174 |
| 2175 return 0; | |
| 2176 } | |
| 2177 | |
| 2178 | |
| 2179 | |
| 2180 int CVICALLBACK CB_OnNStop (int panel, int control, int event, | |
| 2181 void *callbackData, int eventData1, int eventData2) | |
| 2182 { | |
| 2183 int PanelIsVisible; | |
| 2184 | |
| 2185 switch (event) | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2186 { |
| 0 | 2187 case EVENT_COMMIT: |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2188 if (panel == CalcN1Panel) { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2189 GetPanelAttribute (CalcN1Panel, ATTR_VISIBLE, &PanelIsVisible); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2190 if (PanelIsVisible) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2191 HidePanel(CalcN1Panel); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2192 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2193 Measuring_1=FALSE; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2194 Step1_1=FALSE ; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2195 Step2_1=FALSE ; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2196 Step3_1=FALSE ; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2197 Frepminus_1=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2198 Frepplus_1=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2199 t1_1=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2200 t2_1=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2201 t3_1=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2202 N_slope_1=0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2203 Frequ_slope_1=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2204 Moy_slope_1=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2205 Slope_slope_1 =0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2206 Ch4_slope=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2207 Moy_Ch4slope_1=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2208 Slope_Ch4slope_1=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2209 DDSBesChanged1=FALSE; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2210 DDSBesChanged2=FALSE; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2211 nDDSChange=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2212 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2213 SetCtrlVal(MainPanel, PANEL_DDS1, FrequDDS1) ; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2214 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 1, FrequDDS1); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2215 SetCtrlVal(MainPanel, PANEL_DDS2, FrequencyDDSBesInit) ; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2216 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 2, FrequencyDDSBesInit); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2217 nstabilization=0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2218 } |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2219 if (panel == CalcN2Panel) { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2220 GetPanelAttribute (CalcN2Panel, ATTR_VISIBLE, &PanelIsVisible); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2221 if (PanelIsVisible) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2222 HidePanel(CalcN2Panel); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2223 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2224 Measuring_2=FALSE; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2225 Step1_2=FALSE ; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2226 Step2_2=FALSE ; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2227 Step3_2=FALSE ; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2228 Frepminus_2=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2229 Delta10K_Minus=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2230 Frepplus_2=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2231 Delta10K_Plus=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2232 DeltaDDS3=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2233 t1_2=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2234 t2_2=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2235 t3_2=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2236 N_slope_2=0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2237 Frequ_slope_2=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2238 Moy_slope_2=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2239 Beat_slope_2=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2240 Moy_Beatslope_2=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2241 Slope_Beatslope_2 =0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2242 Slope_slope_2 =0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2243 DDSBesChanged1=FALSE; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2244 DDSBesChanged2=FALSE; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2245 nDDSChange=0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2246 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2247 SetCtrlVal(MainPanel, PANEL_DDS1, FrequDDS1) ; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2248 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 1, FrequDDS1); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2249 SetCtrlVal(MainPanel, PANEL_DDS2, FrequencyDDSBesInit) ; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2250 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 2, FrequencyDDSBesInit); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2251 SetCtrlVal(MainPanel, PANEL_DDS3, FrequencyDDS3Init) ; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2252 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 3, FrequencyDDS3Init); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2253 nstabilization=0; |
| 0 | 2254 } |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2255 if (panel == CalcN3Panel) { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2256 GetPanelAttribute (CalcN3Panel, ATTR_VISIBLE, &PanelIsVisible); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2257 if (PanelIsVisible) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2258 HidePanel(CalcN3Panel); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2259 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2260 Measuring_3 = FALSE; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2261 Frepminus_3 = 0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2262 Frepplus_3 = 0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2263 t1_3 = 0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2264 t2_3 = 0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2265 t3_3 = 0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2266 N_slope_3 = 0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2267 Frequ_slope_3 = 0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2268 Moy_slope_3 = 0.0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2269 Slope_slope_3 = 0.0; |
| 0 | 2270 } |
| 2271 break; | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2272 } |
| 0 | 2273 return 0; |
| 2274 } | |
| 2275 | |
| 2276 | |
| 2277 int CVICALLBACK CB_OnIntegrationTime (int panel, int control, int event, | |
| 2278 void *callbackData, int eventData1, int eventData2) | |
| 2279 { | |
| 2280 double Time ; | |
| 2281 | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2282 switch (event) { |
| 0 | 2283 case EVENT_COMMIT: |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2284 if (panel == CalcN1Panel) { |
| 0 | 2285 GetCtrlVal(CalcN1Panel, CALCN1_INTEGRATIONTIME, &Time) ; |
| 2286 DeltaT_1=Time; | |
| 2287 } | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2288 if (panel == CalcN2Panel) { |
| 0 | 2289 GetCtrlVal(CalcN2Panel, CALCN2_INTEGRATIONTIME, &Time) ; |
| 2290 DeltaT_2=Time; | |
| 2291 } | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2292 if (panel == CalcN3Panel) { |
| 0 | 2293 GetCtrlVal(CalcN3Panel, CALCN3_INTEGRATIONTIME, &Time) ; |
| 2294 DeltaT_3=Time; | |
| 2295 } | |
| 2296 break; | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2297 } |
| 0 | 2298 return 0; |
| 2299 } | |
| 2300 | |
| 2301 | |
| 2302 int CVICALLBACK CB_OnDeltaFreq (int panel, int control, int event, | |
| 2303 void *callbackData, int eventData1, int eventData2) | |
| 2304 { | |
| 2305 double Frequ ; | |
| 2306 | |
| 2307 switch (event) | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2308 { |
| 0 | 2309 case EVENT_COMMIT: |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2310 if (panel == CalcN1Panel) { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2311 GetCtrlVal(CalcN1Panel, CALCN1_DELTAFREQ, &Frequ); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2312 DeltakHz_1 = Frequ; |
| 0 | 2313 } |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2314 if (panel == CalcN2Panel) { |
| 0 | 2315 GetCtrlVal(CalcN2Panel, CALCN2_DELTAFREQ, &Frequ) ; |
| 2316 DeltakHz_2=Frequ; | |
| 2317 } | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2318 if (panel == CalcN3Panel) { |
| 0 | 2319 GetCtrlVal(CalcN3Panel, CALCN3_DELTAFREQ, &Frequ) ; |
| 2320 DeltakHz_3=Frequ; | |
| 2321 } | |
| 2322 break; | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2323 } |
| 0 | 2324 return 0; |
| 2325 } | |
| 2326 | |
| 2327 | |
| 2328 int CVICALLBACK CB_OnFindSign (int panel, int control, int event, | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2329 void *callbackData, int eventData1, int eventData2) |
| 0 | 2330 { |
| 2331 | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2332 switch (event) { |
| 0 | 2333 case EVENT_COMMIT: |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2334 switch (control) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2335 { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2336 case PANEL_FINDSIGN1: |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2337 tbegin1 = utc; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2338 Frepbefore1 = Math1; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2339 GetCtrlVal(MainPanel, PANEL_DDS1, &Frequency1) ; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2340 SetCtrlVal(MainPanel, PANEL_DDS1, Frequency1+Frequencystep1) ; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2341 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 1, Frequency1+Frequencystep1); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2342 Getsign1 = TRUE; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2343 break; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2344 case PANEL_FINDSIGN2: |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2345 tbegin2 = utc; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2346 Frepbefore2 = Math1; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2347 Ch2before = Ch2; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2348 GetCtrlVal(MainPanel, PANEL_DDS1, &Frequency2) ; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2349 SetCtrlVal(MainPanel, PANEL_DDS1, Frequency2+Frequencystep2) ; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2350 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 1, Frequency2+Frequencystep2); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2351 Getsign2 = TRUE; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2352 break; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2353 case PANEL_FINDSIGN3: |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2354 tbegin3 = utc; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2355 Frepbefore3 = Math1; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2356 GetCtrlVal(MainPanel, PANEL_DDS4, &Frequency3) ; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2357 SetCtrlVal(MainPanel, PANEL_DDS4, Frequency3+Frequencystep3) ; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2358 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 4, Frequency3+Frequencystep3); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2359 Getsign3 = TRUE; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2360 break; |
| 0 | 2361 } |
| 2362 break; | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2363 } |
| 0 | 2364 return 0; |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2365 } |
| 0 | 2366 |
| 2367 | |
| 2368 int CVICALLBACK CB_OnFind275K (int panel, int control, int event, | |
| 2369 void *callbackData, int eventData1, int eventData2) | |
| 2370 { | |
| 2371 | |
| 2372 | |
| 2373 double FrequencyToChange,DeltaCh4,DeltaCh2; | |
| 2374 | |
| 2375 DeltaCh4=275000-Ch4; | |
| 2376 DeltaCh2=10000-Ch2; | |
| 2377 | |
| 2378 switch (event) | |
| 2379 { | |
| 2380 case EVENT_COMMIT: | |
| 2381 if (control==PANEL_FIND275K2){ | |
| 2382 GetCtrlVal(MainPanel, PANEL_DDS2, &FrequencyToChange) ; | |
| 2383 SetCtrlVal(MainPanel, PANEL_DDS2, FrequencyToChange+DeltaCh4) ; | |
| 2384 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 2, FrequencyToChange+DeltaCh4); | |
| 2385 | |
| 2386 } | |
| 2387 | |
| 2388 if (control==PANEL_FIND10K3){ | |
| 2389 GetCtrlVal(MainPanel, PANEL_DDS3, &FrequencyToChange) ; | |
| 2390 SetCtrlVal(MainPanel, PANEL_DDS3, FrequencyToChange+DeltaCh2) ; | |
| 2391 DDS4xAD9912_SetFrequency(&DDS4xAD9912, 3, FrequencyToChange+DeltaCh2); | |
| 2392 | |
| 2393 } | |
| 2394 | |
| 2395 break; | |
| 2396 | |
| 2397 } | |
| 2398 return 0; | |
| 2399 } | |
| 2400 | |
| 2401 | |
| 2402 int CVICALLBACK CB_OnSlopeTime (int panel, int control, int event, | |
| 2403 void *callbackData, int eventData1, int eventData2) | |
| 2404 { | |
| 2405 double Time ; | |
| 2406 | |
| 2407 switch (event) | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2408 { |
| 0 | 2409 case EVENT_COMMIT: |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2410 if (panel == CalcN1Panel) { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2411 GetCtrlVal(CalcN1Panel, CALCN1_SLOPETIME, &Time); |
| 0 | 2412 SlopeTime1=Time; |
| 2413 } | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2414 if (panel == CalcN2Panel) { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2415 GetCtrlVal(CalcN2Panel, CALCN2_SLOPETIME, &Time); |
| 0 | 2416 SlopeTime2=Time; |
| 2417 } | |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2418 if (panel == CalcN3Panel) { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2419 GetCtrlVal(CalcN3Panel, CALCN3_SLOPETIME, &Time); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2420 SlopeTime3=Time; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2421 } |
| 0 | 2422 break; |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2423 } |
| 0 | 2424 return 0; |
| 2425 } | |
| 2426 | |
| 2427 | |
| 2428 int CVICALLBACK CB_OnChangeNdiv (int panel, int control, int event, | |
| 2429 void *callbackData, int eventData1, int eventData2) | |
| 2430 { | |
| 2431 double NewN ; | |
| 2432 | |
| 2433 switch (event) | |
| 2434 { | |
| 2435 case EVENT_COMMIT: | |
| 2436 if (control==PANEL_CHANGENDIV){ | |
| 2437 GetCtrlVal(MainPanel, PANEL_CHANGENDIV, &NewN) ; | |
| 2438 Ndiv=NewN; | |
| 2439 FrequDDS1=880000000.0/Ndiv; | |
| 2440 DeltakHz_1=1800.0*8/Ndiv; | |
| 2441 DeltakHz_2=1500.0*8/Ndiv; | |
| 2442 SetCtrlVal(MainPanel, PANEL_DDS1, FrequDDS1) ; | |
| 2443 DDS4xAD9912_SetFrequency(&DDS4xAD9912,1,FrequDDS1); | |
| 2444 SetCtrlVal(CalcN1Panel, CALCN1_DELTAFREQ, DeltakHz_1) ; | |
| 2445 SetCtrlVal(CalcN2Panel, CALCN2_DELTAFREQ, DeltakHz_2) ; | |
| 2446 } | |
| 2447 | |
| 2448 break; | |
| 2449 | |
| 2450 } | |
| 2451 return 0; | |
| 2452 } | |
| 2453 | |
| 2454 | |
| 2455 int CVICALLBACK CB_OnStartSlopeCancelling (int panel, int control, int event, | |
| 2456 void *callbackData, int eventData1, int eventData2) | |
| 2457 { | |
| 2458 | |
| 2459 double ActualFrequ=0.0; | |
| 2460 double ActualSlope=0.0; | |
| 2461 int buttonstatu=0; | |
| 2462 | |
| 2463 switch (event) | |
| 2464 { | |
| 2465 case EVENT_COMMIT: | |
| 2466 if (control==PANEL_STARTCANCEL){ | |
| 2467 | |
| 2468 GetCtrlVal(MainPanel, PANEL_STARTCANCEL, &buttonstatu) ; | |
| 2469 | |
| 2470 if (buttonstatu==1) | |
| 2471 { | |
| 2472 SlopeMeasuringTimeBegin=utc; | |
| 2473 SlopeMeasuring=TRUE; | |
| 2474 ActualFrequ=ReadDDSFOX (DDSFoxName,DDSFoxip,DDSFoxPort,DDSFoxProfil,DDSFoxClock,DDSFoxDeltaT,DDSFoxFrequency,DDSFoxSweeprate); | |
| 2475 ActualSlope= SlopeMath2; | |
| 2476 LaunchDDSFOX (DDSFoxName,DDSFoxip,DDSFoxPort,DDSFoxProfil,DDSFoxClock,DDSFoxDeltaT,ActualFrequ,ActualSlope,0); | |
| 2477 Nratio=-1; | |
| 2478 CenterFrequencyCh2ToDetermine=TRUE ; | |
| 2479 CenterFrequencyCh2=0.0; | |
| 2480 | |
| 2481 } | |
| 2482 else | |
| 2483 { | |
| 2484 if (KeepFrequ==TRUE) {ActualFrequ=ReadDDSFOX (DDSFoxName,DDSFoxip,DDSFoxPort,DDSFoxProfil,DDSFoxClock,DDSFoxDeltaT,DDSFoxFrequency,DDSFoxSweeprate);} | |
| 2485 else { ActualFrequ= DDSFoxFrequency;} | |
| 2486 if (KeepSlope==TRUE) {ActualSlope= SlopeMath2; | |
| 2487 OnSlopeCancelling =TRUE; } | |
| 2488 else { ActualSlope= DDSFoxSweeprate; | |
| 2489 OnSlopeCancelling =FALSE; } | |
| 2490 LaunchDDSFOX (DDSFoxName,DDSFoxip,DDSFoxPort,DDSFoxProfil,DDSFoxClock,DDSFoxDeltaT,ActualFrequ,ActualSlope,0); | |
| 2491 SlopeMeasuring=FALSE; | |
| 2492 N_Math2slope=0.0; | |
| 2493 Math2_slope=0.0; | |
| 2494 Moy_Math2slope=0.0; | |
| 2495 Slope_Math2slope=0.0; | |
| 2496 MoyMath2=0.0; | |
| 2497 Slope_Math2slope=0.0; | |
| 2498 CenterFrequencyCh2= 0.0; | |
| 2499 Nratio=-1; | |
| 2500 nstabilisationSlopeMeasuring=0; | |
| 2501 } | |
| 2502 } | |
| 2503 | |
| 2504 break; | |
| 2505 | |
| 2506 } | |
| 2507 return 0; | |
| 2508 } | |
| 2509 | |
| 2510 | |
|
14
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2511 int CVICALLBACK CB_OnResetSlope (int panel, int control, int event, |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2512 void *callbackData, int eventData1, int eventData2) |
| 0 | 2513 { |
| 2514 | |
|
14
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2515 switch (event) { |
| 0 | 2516 case EVENT_COMMIT: |
|
14
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2517 SlopeMath2 = 0.0; |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2518 CenterFrequencyCh2 = 0.0; |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2519 MoyMath2 = 0.0; |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2520 Nratio = -1; |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2521 CenterFrequencyCh2ToDetermine = TRUE ; |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2522 OnSlopeCancelling = FALSE; |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2523 LaunchDDSFOX (DDSFoxName,DDSFoxip,DDSFoxPort,DDSFoxProfil,DDSFoxClock,DDSFoxDeltaT,DDSFoxFrequency,DDSFoxSweeprate,0); |
| 0 | 2524 break; |
|
14
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2525 } |
| 0 | 2526 return 0; |
| 2527 } | |
| 2528 | |
| 2529 | |
|
14
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2530 int CVICALLBACK CB_ChangeSlopeTime (int panel, int control, int event, |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2531 void *callbackData, int eventData1, int eventData2) |
| 0 | 2532 { |
| 2533 | |
|
14
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2534 switch (event) { |
| 0 | 2535 case EVENT_COMMIT: |
|
14
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2536 GetCtrlVal(MainPanel, PANEL_SLOPETIME, &TimetoSlope); |
| 0 | 2537 break; |
|
14
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2538 } |
| 0 | 2539 return 0; |
| 2540 } | |
| 2541 | |
| 2542 | |
|
14
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2543 int LaunchDDSFOX (char *Name,char *ip,int Port,unsigned int Profil,double Clock,double DeltaT,double Frequency,double Sweeprate,int mode) |
| 0 | 2544 { |
|
14
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2545 //mode =0 pour normal |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2546 //mode =1 pour reset |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2547 |
| 0 | 2548 DDSParameter DDSState; |
|
14
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2549 |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2550 strcpy(DDSState.Name, Name); |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2551 DDSState.Profil = Profil; |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2552 strcpy(DDSState.ip, ip); |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2553 DDSState.Port = Port; |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2554 DDSState.Clock = Clock; |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2555 DDSState.Delta_T = DeltaT; |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2556 DDSState.Frequency = Frequency; |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2557 DDSState.SweepRate = Sweeprate; |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2558 |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2559 if (mode == 1) { |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2560 DDS_Initialize (&DDSState); |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2561 } else { |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2562 DDS_ReInitialize (&DDSState); |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2563 } |
| 0 | 2564 |
| 2565 return 0; | |
| 2566 } | |
| 2567 | |
|
14
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2568 double ReadDDSFOX (char *Name,char *ip,int Port,unsigned int Profil,double Clock,double DeltaT,double Frequency,double Sweeprate) |
| 0 | 2569 { |
| 2570 | |
| 2571 DDSParameter DDSState; | |
|
14
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2572 |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2573 strcpy(DDSState.Name, Name); |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2574 DDSState.Profil = Profil; |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2575 strcpy(DDSState.ip, ip); |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2576 DDSState.Port = Port; |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2577 DDSState.Clock = Clock; |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2578 DDSState.Delta_T = DeltaT; |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2579 DDSState.Frequency = Frequency; |
|
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2580 DDSState.SweepRate = Sweeprate; |
| 0 | 2581 |
|
14
783407954cdf
Minor code cleanup
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
10
diff
changeset
|
2582 return DDSFox_ReadFreq(&DDSState); |
| 0 | 2583 } |
| 2584 | |
| 2585 | |
| 2586 int CVICALLBACK CB_OnCROX (int panel, int control, int event, | |
| 2587 void *callbackData, int eventData1, int eventData2) | |
| 2588 { | |
| 2589 bool BoxChecked = FALSE; | |
| 2590 double ActualFrequ=0.0; | |
| 2591 | |
| 2592 switch (event) | |
| 2593 { | |
| 2594 case EVENT_COMMIT: | |
| 2595 | |
| 2596 if (control== PANEL_CHECKBOX_CORRFREQU) | |
| 2597 { | |
| 2598 GetCtrlVal(MainPanel, PANEL_CHECKBOX_CORRFREQU, &BoxChecked) ; | |
| 2599 if (BoxChecked) { | |
| 2600 FrequCorrec=TRUE ; | |
| 2601 } | |
| 2602 else {FrequCorrec=FALSE ;} | |
| 2603 | |
| 2604 } | |
| 2605 | |
| 2606 if (control== PANEL_CHECKBOX_KEEP) | |
| 2607 { | |
| 2608 GetCtrlVal(MainPanel, PANEL_CHECKBOX_KEEP, &BoxChecked) ; | |
| 2609 if (BoxChecked) { | |
| 2610 KeepFrequ=TRUE ; | |
| 2611 } | |
| 2612 else {KeepFrequ=FALSE ;} | |
| 2613 | |
| 2614 } | |
| 2615 | |
| 2616 | |
| 2617 if (control== PANEL_CHECKBOX_KEEPSLOPE) | |
| 2618 { | |
| 2619 GetCtrlVal(MainPanel, PANEL_CHECKBOX_KEEPSLOPE, &BoxChecked) ; | |
| 2620 if (BoxChecked) { | |
| 2621 KeepSlope=TRUE ; | |
| 2622 if (SlopeMeasuring==FALSE && OnSlopeCancelling==FALSE) | |
| 2623 { | |
| 2624 ActualFrequ=ReadDDSFOX (DDSFoxName,DDSFoxip,DDSFoxPort,DDSFoxProfil,DDSFoxClock,DDSFoxDeltaT,DDSFoxFrequency,DDSFoxSweeprate); | |
| 2625 LaunchDDSFOX (DDSFoxName,DDSFoxip,DDSFoxPort,DDSFoxProfil,DDSFoxClock,DDSFoxDeltaT,ActualFrequ,SlopeMath2,0); | |
| 2626 OnSlopeCancelling=TRUE; | |
| 2627 | |
| 2628 | |
| 2629 } | |
| 2630 } | |
| 2631 else {KeepSlope=FALSE ; | |
| 2632 if (SlopeMeasuring==FALSE && OnSlopeCancelling==TRUE) | |
| 2633 { | |
| 2634 ActualFrequ=ReadDDSFOX (DDSFoxName,DDSFoxip,DDSFoxPort,DDSFoxProfil,DDSFoxClock,DDSFoxDeltaT,DDSFoxFrequency,DDSFoxSweeprate); | |
| 2635 LaunchDDSFOX (DDSFoxName,DDSFoxip,DDSFoxPort,DDSFoxProfil,DDSFoxClock,DDSFoxDeltaT,ActualFrequ,DDSFoxSweeprate,0); | |
| 2636 OnSlopeCancelling=FALSE; | |
| 2637 } | |
| 2638 | |
| 2639 } | |
| 2640 | |
| 2641 } | |
| 2642 | |
| 2643 break; | |
| 2644 | |
| 2645 } | |
| 2646 return 0; | |
| 2647 } | |
| 2648 | |
| 2649 | |
| 2650 | |
| 2651 int CVICALLBACK CB_OnReCentering (int panel, int control, int event, | |
| 2652 void *callbackData, int eventData1, int eventData2) | |
| 2653 { | |
| 2654 bool BoxChecked = FALSE; | |
| 2655 | |
| 2656 switch (event) | |
| 2657 { | |
| 2658 case EVENT_COMMIT: | |
| 2659 | |
| 2660 if (control== PANEL_CHECKBOX_RECENTER) | |
| 2661 { | |
| 2662 GetCtrlVal(MainPanel, PANEL_CHECKBOX_RECENTER, &BoxChecked) ; | |
| 2663 if (BoxChecked) { | |
| 2664 KeepCentering=TRUE ; | |
| 2665 CenteringTimeBegin275K=utc; | |
| 2666 CenteringTimeBegin10K=utc; | |
| 2667 } | |
| 2668 else {KeepCentering=FALSE ;} | |
| 2669 | |
| 2670 } | |
| 2671 | |
| 2672 | |
| 2673 break; | |
| 2674 | |
| 2675 } | |
| 2676 return 0; | |
| 2677 } | |
| 2678 | |
| 2679 | |
| 2680 int CVICALLBACK CB_OnAutoStopSlopeCancellingIfDelock (int panel, int control, int event, | |
| 2681 void *callbackData, int eventData1, int eventData2) | |
| 2682 { | |
| 2683 switch (event) | |
|
20
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
2684 { |
| 0 | 2685 case EVENT_COMMIT: |
|
20
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
2686 GetCtrlVal(MainPanel, PANEL_CHECKBOX_STOPIFAUTODE, &AutoStopSlopeCancellingIfDelock); |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
2687 break; |
|
3a7f088d4960
Get rid of unused variables. Some minor coding style improvements
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
17
diff
changeset
|
2688 } |
| 0 | 2689 return 0; |
| 2690 } | |
|
2
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
2691 |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2692 int CVICALLBACK CB_OnSlopeReference (int panel, int control, int event, |
|
2
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
2693 void *callbackData, int eventData1, int eventData2) |
|
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
2694 { |
|
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
2695 switch (event) |
|
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
2696 { |
|
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
2697 case EVENT_COMMIT: |
|
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
2698 GetCtrlVal(MainPanel, PANEL_SLOPE_REFERENCE, &slopeReference); |
|
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
2699 break; |
|
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
2700 } |
|
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
2701 return 0; |
|
bd7501b65f56
Implement reference selection (microwave or Hg cavity) for slope cancelling
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
1
diff
changeset
|
2702 } |
|
17
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2703 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2704 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2705 int CVICALLBACK CB_OnEstimateN (int panel, int control, int event, |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2706 void *callbackData, int eventData1, int eventData2) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2707 { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2708 int visible; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2709 double wl; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2710 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2711 switch (event) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2712 { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2713 case EVENT_COMMIT: |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2714 /* be prepaid to support more N estimates for different beat notes */ |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2715 switch (control) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2716 { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2717 case PANEL_ESTIMATE_N3: |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2718 GetPanelAttribute(EstimateN3Panel, ATTR_VISIBLE , &visible); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2719 if (! visible) { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2720 DisplayPanel(EstimateN3Panel); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2721 } |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2722 /* set current frep */ |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2723 SetCtrlVal(EstimateN3Panel, ESTIMATEN3_FREP, 250e6 + Math1); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2724 /* default wavelenght for Sr cavity */ |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2725 GetCtrlVal(EstimateN3Panel, ESTIMATEN3_WAVELENGTH, &wl); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2726 if (wl == 0.0) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2727 SetCtrlVal(EstimateN3Panel, ESTIMATEN3_WAVELENGTH, 698.50); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2728 /* reset N3 estimate */ |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2729 SetCtrlVal(EstimateN3Panel, ESTIMATEN3_N, 0.0); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2730 break; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2731 } |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2732 break; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2733 } |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2734 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2735 return 0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2736 } |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2737 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2738 int CVICALLBACK CB_OnNEstimateCancel (int panel, int control, int event, |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2739 void *callbackData, int eventData1, int eventData2) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2740 { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2741 int visible; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2742 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2743 switch (event) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2744 { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2745 case EVENT_COMMIT: |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2746 GetPanelAttribute(panel, ATTR_VISIBLE, &visible); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2747 if (visible) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2748 HidePanel(panel); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2749 break; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2750 } |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2751 return 0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2752 } |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2753 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2754 int CVICALLBACK CB_OnNEstimateSet (int panel, int control, int event, |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2755 void *callbackData, int eventData1, int eventData2) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2756 { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2757 switch (event) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2758 { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2759 case EVENT_COMMIT: |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2760 GetCtrlVal(panel, ESTIMATEN3_N, &N3); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2761 SetCtrlVal(MainPanel, PANEL_N3CHOICE, N3); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2762 HidePanel(panel); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2763 break; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2764 } |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2765 return 0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2766 } |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2767 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2768 int CVICALLBACK CB_OnNEstimate (int panel, int control, int event, |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2769 void *callbackData, int eventData1, int eventData2) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2770 { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2771 double frep, wl, N; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2772 |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2773 switch (event) |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2774 { |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2775 case EVENT_COMMIT: |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2776 GetCtrlVal(panel, ESTIMATEN3_FREP, &frep); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2777 GetCtrlVal(panel, ESTIMATEN3_WAVELENGTH, &wl); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2778 N = round(299792458.0 / wl / 1e-9 / frep); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2779 SetCtrlVal(panel, ESTIMATEN3_N, N); |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2780 break; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2781 } |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2782 return 0; |
|
9cadd12e7722
Implement N3 measurement. Large code cleanup.
Daniele Nicolodi <daniele.nicolodi@obspm.fr>
parents:
14
diff
changeset
|
2783 } |