|
@@
-2,6
+2,7
|
|
2
|
// version 1.0: 31/07/2013
|
|
2
|
// version 1.0: 31/07/2013
|
|
3
|
// version 1.1: 02/04/2014
|
|
3
|
// version 1.1: 02/04/2014
|
|
4
|
// version 1.2: 30/04/2014
|
|
4
|
// version 1.2: 30/04/2014
|
|
|
|
|
5
|
// version 1.3: 02/05/2014
|
|
5
|
|
|
6
|
|
|
6
|
#include "basic_parameters.h"
|
|
7
|
#include "basic_parameters.h"
|
|
7
|
#include <math.h>
|
|
8
|
#include <math.h>
|
|
@@
-92,8
+93,7
void init_k_f0( void )
|
|
92
|
float alpha_M = 45 * (3.1415927/180);
|
|
93
|
float alpha_M = 45 * (3.1415927/180);
|
|
93
|
|
|
94
|
|
|
94
|
void BP1_set( float * compressed_spec_mat, uint8_t nb_bins_compressed_spec_mat, uint8_t * lfr_bp1 ){
|
|
95
|
void BP1_set( float * compressed_spec_mat, uint8_t nb_bins_compressed_spec_mat, uint8_t * lfr_bp1 ){
|
|
95
|
int exponent; // 32 bits signed
|
|
96
|
float PSDB; // 32-bit floating point
|
|
96
|
float PSDB; // 32 bits floating point
|
|
|
|
|
97
|
float PSDE;
|
|
97
|
float PSDE;
|
|
98
|
float tmp;
|
|
98
|
float tmp;
|
|
99
|
float NVEC_V0;
|
|
99
|
float NVEC_V0;
|
|
@@
-110,13
+110,14
void BP1_set( float * compressed_spec_ma
|
|
110
|
float bx_bx_star;
|
|
110
|
float bx_bx_star;
|
|
111
|
float vphi;
|
|
111
|
float vphi;
|
|
112
|
float significand;
|
|
112
|
float significand;
|
|
113
|
uint8_t nbitexp; // 8 bits unsigned
|
|
113
|
int exponent; // 32-bit signed integer
|
|
|
|
|
114
|
uint8_t nbitexp; // 8-bit unsigned integer
|
|
114
|
uint8_t nbitsig;
|
|
115
|
uint8_t nbitsig;
|
|
115
|
uint8_t tmp_uint8;
|
|
116
|
uint8_t tmp_uint8;
|
|
116
|
uint8_t *pt_uint8; // pointer on unsigned 8-bit bytes
|
|
117
|
uint8_t *pt_uint8; // pointer on unsigned 8-bit integer
|
|
117
|
int8_t expmin; // 8 bits signed
|
|
118
|
int8_t expmin; // 8-bit signed integer
|
|
118
|
int8_t expmax;
|
|
119
|
int8_t expmax;
|
|
119
|
int16_t rangesig; // 16 bits unsigned
|
|
120
|
uint16_t rangesig; // 16-bit unsigned integer
|
|
120
|
uint16_t psd;
|
|
121
|
uint16_t psd;
|
|
121
|
uint16_t exp;
|
|
122
|
uint16_t exp;
|
|
122
|
uint16_t tmp_uint16;
|
|
123
|
uint16_t tmp_uint16;
|
|
@@
-161,9
+162,9
void BP1_set( float * compressed_spec_ma
|
|
161
|
exponent = expmax;
|
|
162
|
exponent = expmax;
|
|
162
|
significand = 1.0; // max value that can be recorded
|
|
163
|
significand = 1.0; // max value that can be recorded
|
|
163
|
}
|
|
164
|
}
|
|
164
|
if (significand == 0) {// in that case exponent == 0 too
|
|
165
|
if (significand == 0) { // in that case exponent == 0 too
|
|
165
|
exponent = expmin;
|
|
166
|
exponent = expmin;
|
|
166
|
significand = 0.5; // min value that can be recorded
|
|
167
|
significand = 0.5; // min value that can be recorded
|
|
167
|
}
|
|
168
|
}
|
|
168
|
|
|
169
|
|
|
169
|
psd = (uint16_t) ((significand*2-1)*rangesig + 0.5); // Shift and cast into a 16-bit unsigned int with rounding
|
|
170
|
psd = (uint16_t) ((significand*2-1)*rangesig + 0.5); // Shift and cast into a 16-bit unsigned int with rounding
|
|
@@
-259,16
+260,16
void BP1_set( float * compressed_spec_ma
|
|
259
|
NVEC_V1 = -compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+4] / tmp; // S13 Im => n2
|
|
260
|
NVEC_V1 = -compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+4] / tmp; // S13 Im => n2
|
|
260
|
NVEC_V2 = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+2] / tmp; // S12 Im => n3
|
|
261
|
NVEC_V2 = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+2] / tmp; // S12 Im => n3
|
|
261
|
|
|
262
|
|
|
262
|
lfr_bp1[i*NB_BYTES_BP1+4] = (uint8_t) (NVEC_V0*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
263
|
lfr_bp1[i*NB_BYTES_BP1+4] = (uint8_t) (NVEC_V0*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
263
|
lfr_bp1[i*NB_BYTES_BP1+5] = (uint8_t) (NVEC_V1*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
264
|
lfr_bp1[i*NB_BYTES_BP1+5] = (uint8_t) (NVEC_V1*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
264
|
pt_uint8 = (uint8_t*) &NVEC_V2; // affect an uint8_t pointer with the adress of NVEC_V2
|
|
265
|
pt_uint8 = (uint8_t*) &NVEC_V2; // Affect an uint8_t pointer with the adress of NVEC_V2
|
|
265
|
#ifdef LSB_FIRST_TCH
|
|
266
|
#ifdef LSB_FIRST_TCH
|
|
266
|
lfr_bp1[i*NB_BYTES_BP1+6] = pt_uint8[3] & 0x80; // extract the sign bit of NVEC_V2 (32-bit float, sign bit in the 4th octet:PC convention)
|
|
267
|
lfr_bp1[i*NB_BYTES_BP1+6] = pt_uint8[3] & 0x80; // Extract the sign bit of NVEC_V2 (32-bit float, sign bit in the 4th octet:PC convention)
|
|
267
|
// record it at the 8th bit position (from the right to the left) of lfr_bp1[i*NB_BYTES_BP1+6]
|
|
268
|
// Record it at the 8th bit position (from the right to the left) of lfr_bp1[i*NB_BYTES_BP1+6]
|
|
268
|
#endif
|
|
269
|
#endif
|
|
269
|
#ifdef MSB_FIRST_TCH
|
|
270
|
#ifdef MSB_FIRST_TCH
|
|
270
|
lfr_bp1[i*NB_BYTES_BP1+6] = pt_uint8[0] & 0x80; // extract the sign bit of NVEC_V2 (32-bit float, sign bit in the 0th octet:SPARC convention)
|
|
271
|
lfr_bp1[i*NB_BYTES_BP1+6] = pt_uint8[0] & 0x80; // Extract the sign bit of NVEC_V2 (32-bit float, sign bit in the 0th octet:SPARC convention)
|
|
271
|
// record it at the 8th bit position (from the right to the left) of lfr_bp1[i*NB_BYTES_BP1+6]
|
|
272
|
// Record it at the 8th bit position (from the right to the left) of lfr_bp1[i*NB_BYTES_BP1+6]
|
|
272
|
#endif
|
|
273
|
#endif
|
|
273
|
#ifdef DEBUG_TCH
|
|
274
|
#ifdef DEBUG_TCH
|
|
274
|
printf("NVEC_V0 : %16.8e\n",NVEC_V0);
|
|
275
|
printf("NVEC_V0 : %16.8e\n",NVEC_V0);
|
|
@@
-280,13
+281,13
void BP1_set( float * compressed_spec_ma
|
|
280
|
#endif
|
|
281
|
#endif
|
|
281
|
//=======================================================
|
|
282
|
//=======================================================
|
|
282
|
// BP1 ellipticity == PA_LFR_SC_BP1_ELLIP_F0 == 4 bits
|
|
283
|
// BP1 ellipticity == PA_LFR_SC_BP1_ELLIP_F0 == 4 bits
|
|
283
|
aux = 2*tmp / PSDB; // compute the ellipticity
|
|
284
|
aux = 2*tmp / PSDB; // Compute the ellipticity
|
|
284
|
|
|
285
|
|
|
285
|
tmp_uint8 = (uint8_t) (aux*15 + 0.5); // shift and cast into a 8-bit uint8_t with rounding
|
|
286
|
tmp_uint8 = (uint8_t) (aux*15 + 0.5); // Shift and cast into a 8-bit uint8_t with rounding
|
|
286
|
// where just the first 4 bits are used (0, ..., 15)
|
|
287
|
// where just the first 4 bits are used (0, ..., 15)
|
|
287
|
lfr_bp1[i*NB_BYTES_BP1+6] = lfr_bp1[i*NB_BYTES_BP1+6] | (tmp_uint8 << 3); // put these 4 bits next to the right place
|
|
288
|
lfr_bp1[i*NB_BYTES_BP1+6] = lfr_bp1[i*NB_BYTES_BP1+6] | (tmp_uint8 << 3); // Put these 4 bits next to the right place
|
|
288
|
// of the sign bit of NVEC_V2 (recorded
|
|
289
|
// of the sign bit of NVEC_V2 (recorded
|
|
289
|
// previously in lfr_bp1[i*NB_BYTES_BP1+6])
|
|
290
|
// previously in lfr_bp1[i*NB_BYTES_BP1+6])
|
|
290
|
#ifdef DEBUG_TCH
|
|
291
|
#ifdef DEBUG_TCH
|
|
291
|
printf("ellipticity : %16.8e\n",aux);
|
|
292
|
printf("ellipticity : %16.8e\n",aux);
|
|
292
|
printf("tmp_uint8 for ellipticity : %u\n",tmp_uint8);
|
|
293
|
printf("tmp_uint8 for ellipticity : %u\n",tmp_uint8);
|
|
@@
-304,12
+305,12
void BP1_set( float * compressed_spec_ma
|
|
304
|
+ 2 * compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+10]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+10]
|
|
305
|
+ 2 * compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+10]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+10]
|
|
305
|
+ 2 * compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+11]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+11];
|
|
306
|
+ 2 * compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+11]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+11];
|
|
306
|
aux = PSDB*PSDB;
|
|
307
|
aux = PSDB*PSDB;
|
|
307
|
tmp = ( 3*tr_SB_SB - aux ) / ( 2 * aux ); // compute the degree of polarisation
|
|
308
|
tmp = ( 3*tr_SB_SB - aux ) / ( 2 * aux ); // Compute the degree of polarisation
|
|
308
|
|
|
309
|
|
|
309
|
tmp_uint8 = (uint8_t) (tmp*7 + 0.5);// shift and cast into a 8-bit uint8_t with rounding
|
|
310
|
tmp_uint8 = (uint8_t) (tmp*7 + 0.5); // Shift and cast into a 8-bit uint8_t with rounding
|
|
310
|
// where just the first 3 bits are used (0, ..., 7)
|
|
311
|
// where just the first 3 bits are used (0, ..., 7)
|
|
311
|
lfr_bp1[i*NB_BYTES_BP1+6] = lfr_bp1[i*NB_BYTES_BP1+6] | tmp_uint8; // record these 3 bits at the 3 first bit positions
|
|
312
|
lfr_bp1[i*NB_BYTES_BP1+6] = lfr_bp1[i*NB_BYTES_BP1+6] | tmp_uint8; // Record these 3 bits at the 3 first bit positions
|
|
312
|
// (from the right to the left) of lfr_bp1[i*NB_BYTES_BP1+6]
|
|
313
|
// (from the right to the left) of lfr_bp1[i*NB_BYTES_BP1+6]
|
|
313
|
#ifdef DEBUG_TCH
|
|
314
|
#ifdef DEBUG_TCH
|
|
314
|
printf("DOP : %16.8e\n",tmp);
|
|
315
|
printf("DOP : %16.8e\n",tmp);
|
|
315
|
printf("tmp_uint8 for DOP : %u\n",tmp_uint8);
|
|
316
|
printf("tmp_uint8 for DOP : %u\n",tmp_uint8);
|
|
@@
-348,21
+349,21
void BP1_set( float * compressed_spec_ma
|
|
348
|
#ifdef DEBUG_TCH
|
|
349
|
#ifdef DEBUG_TCH
|
|
349
|
printf("ReaSX / 2 : %16.8e\n",e_cross_b_re/2);
|
|
350
|
printf("ReaSX / 2 : %16.8e\n",e_cross_b_re/2);
|
|
350
|
#endif
|
|
351
|
#endif
|
|
351
|
pt_uint8 = (uint8_t*) &e_cross_b_re; // Affect an uint8_t pointer with the adress of e_cross_b_re
|
|
352
|
pt_uint8 = (uint8_t*) &e_cross_b_re; // Affect an uint8_t pointer with the adress of e_cross_b_re
|
|
352
|
#ifdef LSB_FIRST_TCH
|
|
353
|
#ifdef LSB_FIRST_TCH
|
|
353
|
lfr_bp1[i*NB_BYTES_BP1+1] = lfr_bp1[i*NB_BYTES_BP1+1] | (pt_uint8[3] & 0x80); // Extract its sign bit (32-bit float, sign bit in the 4th octet:PC convention)
|
|
354
|
lfr_bp1[i*NB_BYTES_BP1+1] = lfr_bp1[i*NB_BYTES_BP1+1] | (pt_uint8[3] & 0x80); // Extract its sign bit (32-bit float, sign bit in the 4th octet:PC convention)
|
|
354
|
// Record it at the 8th bit position (from the right to the left)
|
|
355
|
// Record it at the 8th bit position (from the right to the left)
|
|
355
|
// of lfr_bp1[i*NB_BYTES_BP1+1]
|
|
356
|
// of lfr_bp1[i*NB_BYTES_BP1+1]
|
|
356
|
pt_uint8[3] = (pt_uint8[3] & 0x7f); // Make e_cross_b_re be positive in any case: |ReaSX|
|
|
357
|
pt_uint8[3] = (pt_uint8[3] & 0x7f); // Make e_cross_b_re be positive in any case: |ReaSX|
|
|
357
|
#endif
|
|
358
|
#endif
|
|
358
|
#ifdef MSB_FIRST_TCH
|
|
359
|
#ifdef MSB_FIRST_TCH
|
|
359
|
lfr_bp1[i*NB_BYTES_BP1+1] = lfr_bp1[i*NB_BYTES_BP1+1] | (pt_uint8[0] & 0x80); // Extract its sign bit (32-bit float, sign bit in the 0th octet:SPARC convention)
|
|
360
|
lfr_bp1[i*NB_BYTES_BP1+1] = lfr_bp1[i*NB_BYTES_BP1+1] | (pt_uint8[0] & 0x80); // Extract its sign bit (32-bit float, sign bit in the 0th octet:SPARC convention)
|
|
360
|
// Record it at the 8th bit position (from the right to the left)
|
|
361
|
// Record it at the 8th bit position (from the right to the left)
|
|
361
|
// of lfr_bp1[i*NB_BYTES_BP1+1]
|
|
362
|
// of lfr_bp1[i*NB_BYTES_BP1+1]
|
|
362
|
pt_uint8[0] = (pt_uint8[0] & 0x7f); // Make e_cross_b_re be positive in any case: |ReaSX|
|
|
363
|
pt_uint8[0] = (pt_uint8[0] & 0x7f); // Make e_cross_b_re be positive in any case: |ReaSX|
|
|
363
|
#endif
|
|
364
|
#endif
|
|
364
|
significand = frexpf(e_cross_b_re/2, &exponent);// 0.5 <= significand < 1
|
|
365
|
significand = frexpf(e_cross_b_re/2, &exponent); // 0.5 <= significand < 1
|
|
365
|
// ReaSX/2 = significand * 2^exponent
|
|
366
|
// ReaSX/2 = significand * 2^exponent
|
|
366
|
// The division by 2 is to ensure that max value <= 2^30 (rough estimate)
|
|
367
|
// The division by 2 is to ensure that max value <= 2^30 (rough estimate)
|
|
367
|
// Should be reconsidered by taking into account the k-coefficients ...
|
|
368
|
// Should be reconsidered by taking into account the k-coefficients ...
|
|
368
|
|
|
369
|
|
|
@@
-374,15
+375,15
void BP1_set( float * compressed_spec_ma
|
|
374
|
exponent = expmax;
|
|
375
|
exponent = expmax;
|
|
375
|
significand = 1.0; // max value that can be recorded
|
|
376
|
significand = 1.0; // max value that can be recorded
|
|
376
|
}
|
|
377
|
}
|
|
377
|
if (significand == 0) {// in that case exponent == 0 too
|
|
378
|
if (significand == 0) { // in that case exponent == 0 too
|
|
378
|
exponent = expmin;
|
|
379
|
exponent = expmin;
|
|
379
|
significand = 0.5; // min value that can be recorded
|
|
380
|
significand = 0.5; // min value that can be recorded
|
|
380
|
}
|
|
381
|
}
|
|
381
|
|
|
382
|
|
|
382
|
lfr_bp1[i*NB_BYTES_BP1+7] = (uint8_t) ((significand*2-1)*7 + 0.5); // Shift and cast into a 8-bit uint8_t with rounding
|
|
383
|
lfr_bp1[i*NB_BYTES_BP1+7] = (uint8_t) ((significand*2-1)*7 + 0.5); // Shift and cast into a 8-bit uint8_t with rounding
|
|
383
|
// where just the first 3 bits are used (0, ..., 7)
|
|
384
|
// where just the first 3 bits are used (0, ..., 7)
|
|
384
|
tmp_uint8 = (uint8_t) (exponent-expmin); // Shift and cast into a 8-bit uint8_t where
|
|
385
|
tmp_uint8 = (uint8_t) (exponent-expmin); // Shift and cast into a 8-bit uint8_t where
|
|
385
|
// just the first 5 bits are used (0, ..., 2^5-1)
|
|
386
|
// just the first 5 bits are used (0, ..., 2^5-1)
|
|
386
|
#ifdef DEBUG_TCH
|
|
387
|
#ifdef DEBUG_TCH
|
|
387
|
printf("|ReaSX| / 2 : %16.8e\n",e_cross_b_re/2);
|
|
388
|
printf("|ReaSX| / 2 : %16.8e\n",e_cross_b_re/2);
|
|
388
|
printf("significand : %16.8e\n",significand);
|
|
389
|
printf("significand : %16.8e\n",significand);
|
|
@@
-390,8
+391,8
void BP1_set( float * compressed_spec_ma
|
|
390
|
printf("lfr_bp1[i*NB_BYTES_BP1+7] for ReaSX significand : %u\n",lfr_bp1[i*NB_BYTES_BP1+7]);
|
|
391
|
printf("lfr_bp1[i*NB_BYTES_BP1+7] for ReaSX significand : %u\n",lfr_bp1[i*NB_BYTES_BP1+7]);
|
|
391
|
printf("tmp_uint8 for ReaSX exponent : %d\n",tmp_uint8);
|
|
392
|
printf("tmp_uint8 for ReaSX exponent : %d\n",tmp_uint8);
|
|
392
|
#endif
|
|
393
|
#endif
|
|
393
|
lfr_bp1[i*NB_BYTES_BP1+7] = lfr_bp1[i*NB_BYTES_BP1+7] | (tmp_uint8 << 3); // shift these 5 bits to the left before logical addition
|
|
394
|
lfr_bp1[i*NB_BYTES_BP1+7] = lfr_bp1[i*NB_BYTES_BP1+7] | (tmp_uint8 << 3); // Shift these 5 bits to the left before logical addition
|
|
394
|
// with lfr_bp1[i*NB_BYTES_BP1+7]
|
|
395
|
// with lfr_bp1[i*NB_BYTES_BP1+7]
|
|
395
|
#ifdef DEBUG_TCH
|
|
396
|
#ifdef DEBUG_TCH
|
|
396
|
printf("lfr_bp1[i*NB_BYTES_BP1+7] for ReaSX exponent + significand : %u\n",lfr_bp1[i*NB_BYTES_BP1+7]);
|
|
397
|
printf("lfr_bp1[i*NB_BYTES_BP1+7] for ReaSX exponent + significand : %u\n",lfr_bp1[i*NB_BYTES_BP1+7]);
|
|
397
|
printf("lfr_bp1[i*NB_BYTES_BP1+1] for ReaSX sign + PSDE 'exponent' : %u\n",lfr_bp1[i*NB_BYTES_BP1+1]);
|
|
398
|
printf("lfr_bp1[i*NB_BYTES_BP1+1] for ReaSX sign + PSDE 'exponent' : %u\n",lfr_bp1[i*NB_BYTES_BP1+1]);
|
|
@@
-399,15
+400,15
void BP1_set( float * compressed_spec_ma
|
|
399
|
#endif
|
|
400
|
#endif
|
|
400
|
pt_uint8 = (uint8_t*) &e_cross_b_im; // Affect an uint8_t pointer with the adress of e_cross_b_im
|
|
401
|
pt_uint8 = (uint8_t*) &e_cross_b_im; // Affect an uint8_t pointer with the adress of e_cross_b_im
|
|
401
|
#ifdef LSB_FIRST_TCH
|
|
402
|
#ifdef LSB_FIRST_TCH
|
|
402
|
pt_uint8[3] = pt_uint8[3] & 0x7f; // Make e_cross_b_im be positive in any case: |ImaSX|
|
|
403
|
pt_uint8[3] = pt_uint8[3] & 0x7f; // Make e_cross_b_im be positive in any case: |ImaSX|
|
|
403
|
#endif
|
|
404
|
#endif
|
|
404
|
#ifdef MSB_FIRST_TCH
|
|
405
|
#ifdef MSB_FIRST_TCH
|
|
405
|
pt_uint8[0] = pt_uint8[0] & 0x7f; // Make e_cross_b_im be positive in any case: |ImaSX|
|
|
406
|
pt_uint8[0] = pt_uint8[0] & 0x7f; // Make e_cross_b_im be positive in any case: |ImaSX|
|
|
406
|
#endif
|
|
407
|
#endif
|
|
407
|
tmp_uint8 = (e_cross_b_im > e_cross_b_re) ? 0x40 : 0x00; // Determine the sector argument of SX. If |Im| > |Re| affect
|
|
408
|
tmp_uint8 = (e_cross_b_im > e_cross_b_re) ? 0x40 : 0x00; // Determine the sector argument of SX. If |Im| > |Re| affect
|
|
408
|
// an unsigned 8-bit char with 01000000; otherwise with null.
|
|
409
|
// an unsigned 8-bit char with 01000000; otherwise with null.
|
|
409
|
lfr_bp1[i*NB_BYTES_BP1+1] = lfr_bp1[i*NB_BYTES_BP1+1] | tmp_uint8; // Record it as a sign bit at the 7th bit position (from the right
|
|
410
|
lfr_bp1[i*NB_BYTES_BP1+1] = lfr_bp1[i*NB_BYTES_BP1+1] | tmp_uint8; // Record it as a sign bit at the 7th bit position (from the right
|
|
410
|
// to the left) of lfr_bp1[i*NB_BYTES_BP1+1], by simple logical addition.
|
|
411
|
// to the left) of lfr_bp1[i*NB_BYTES_BP1+1], by simple logical addition.
|
|
411
|
#ifdef DEBUG_TCH
|
|
412
|
#ifdef DEBUG_TCH
|
|
412
|
printf("|ImaSX| / 2 : %16.8e\n",e_cross_b_im/2);
|
|
413
|
printf("|ImaSX| / 2 : %16.8e\n",e_cross_b_im/2);
|
|
413
|
printf("ArgSX sign : %u\n",tmp_uint8);
|
|
414
|
printf("ArgSX sign : %u\n",tmp_uint8);
|
|
@@
-462,7
+463,7
void BP1_set( float * compressed_spec_ma
|
|
462
|
printf("n_cross_e_scal_b_im : %16.8e\n",n_cross_e_scal_b_im);
|
|
463
|
printf("n_cross_e_scal_b_im : %16.8e\n",n_cross_e_scal_b_im);
|
|
463
|
#endif
|
|
464
|
#endif
|
|
464
|
// vphi = n_cross_e_scal_b_re / bx_bx_star => sign(VPHI) = sign(n_cross_e_scal_b_re)
|
|
465
|
// vphi = n_cross_e_scal_b_re / bx_bx_star => sign(VPHI) = sign(n_cross_e_scal_b_re)
|
|
465
|
pt_uint8 = (uint8_t*) &n_cross_e_scal_b_re; // Affect an uint8_t pointer with the adress of n_cross_e_scal_b_re
|
|
466
|
pt_uint8 = (uint8_t*) &n_cross_e_scal_b_re; // Affect an uint8_t pointer with the adress of n_cross_e_scal_b_re
|
|
466
|
#ifdef LSB_FIRST_TCH
|
|
467
|
#ifdef LSB_FIRST_TCH
|
|
467
|
lfr_bp1[i*NB_BYTES_BP1+3] = lfr_bp1[i*NB_BYTES_BP1+3] | (pt_uint8[3] & 0x80); // Extract its sign bit (32-bit float, sign bit in the 4th octet:PC convention)
|
|
468
|
lfr_bp1[i*NB_BYTES_BP1+3] = lfr_bp1[i*NB_BYTES_BP1+3] | (pt_uint8[3] & 0x80); // Extract its sign bit (32-bit float, sign bit in the 4th octet:PC convention)
|
|
468
|
// Record it at the 8th bit position (from the right to the left)
|
|
469
|
// Record it at the 8th bit position (from the right to the left)
|
|
@@
-477,8
+478,8
void BP1_set( float * compressed_spec_ma
|
|
477
|
#endif
|
|
478
|
#endif
|
|
478
|
vphi = n_cross_e_scal_b_re / bx_bx_star; // Compute |VPHI|
|
|
479
|
vphi = n_cross_e_scal_b_re / bx_bx_star; // Compute |VPHI|
|
|
479
|
|
|
480
|
|
|
480
|
significand = frexpf(vphi/2, &exponent); // 0.5 <= significand < 1
|
|
481
|
significand = frexpf(vphi/2, &exponent); // 0.5 <= significand < 1
|
|
481
|
// vphi/2 = significand * 2^exponent
|
|
482
|
// vphi/2 = significand * 2^exponent
|
|
482
|
// The division by 2 is to ensure that max value <= 2^30 (rough estimate)
|
|
483
|
// The division by 2 is to ensure that max value <= 2^30 (rough estimate)
|
|
483
|
// Should be reconsidered by taking into account the k-coefficients ...
|
|
484
|
// Should be reconsidered by taking into account the k-coefficients ...
|
|
484
|
|
|
485
|
|
|
@@
-500,9
+501,9
void BP1_set( float * compressed_spec_ma
|
|
500
|
printf("exponent : %d\n" ,exponent);
|
|
501
|
printf("exponent : %d\n" ,exponent);
|
|
501
|
#endif
|
|
502
|
#endif
|
|
502
|
lfr_bp1[i*NB_BYTES_BP1+8] = (uint8_t) ((significand*2-1)*7 + 0.5); // Shift and cast into a 8-bit uint8_t with rounding
|
|
503
|
lfr_bp1[i*NB_BYTES_BP1+8] = (uint8_t) ((significand*2-1)*7 + 0.5); // Shift and cast into a 8-bit uint8_t with rounding
|
|
503
|
// where just the first 3 bits are used (0, ..., 7)
|
|
504
|
// where just the first 3 bits are used (0, ..., 7)
|
|
504
|
tmp_uint8 = (uint8_t) (exponent-expmin); // Shift and cast into a 8-bit uint8_t where
|
|
505
|
tmp_uint8 = (uint8_t) (exponent-expmin); // Shift and cast into a 8-bit uint8_t where
|
|
505
|
// just the first 5 bits are used (0, ..., 2^5-1)
|
|
506
|
// just the first 5 bits are used (0, ..., 2^5-1)
|
|
506
|
#ifdef DEBUG_TCH
|
|
507
|
#ifdef DEBUG_TCH
|
|
507
|
printf("lfr_bp1[i*NB_BYTES_BP1+8] for VPHI significand : %u\n",lfr_bp1[i*NB_BYTES_BP1+8]);
|
|
508
|
printf("lfr_bp1[i*NB_BYTES_BP1+8] for VPHI significand : %u\n",lfr_bp1[i*NB_BYTES_BP1+8]);
|
|
508
|
printf("tmp_uint8 for VPHI exponent : %d\n",tmp_uint8);
|
|
509
|
printf("tmp_uint8 for VPHI exponent : %d\n",tmp_uint8);
|
|
@@
-515,15
+516,15
void BP1_set( float * compressed_spec_ma
|
|
515
|
#endif
|
|
516
|
#endif
|
|
516
|
pt_uint8 = (uint8_t*) &n_cross_e_scal_b_im; // Affect an uint8_t pointer with the adress of n_cross_e_scal_b_im
|
|
517
|
pt_uint8 = (uint8_t*) &n_cross_e_scal_b_im; // Affect an uint8_t pointer with the adress of n_cross_e_scal_b_im
|
|
517
|
#ifdef LSB_FIRST_TCH
|
|
518
|
#ifdef LSB_FIRST_TCH
|
|
518
|
pt_uint8[3] = pt_uint8[3] & 0x7f; // Make n_cross_e_scal_b_im be positive in any case: |ImaSX|
|
|
519
|
pt_uint8[3] = pt_uint8[3] & 0x7f; // Make n_cross_e_scal_b_im be positive in any case: |ImaSX|
|
|
519
|
#endif
|
|
520
|
#endif
|
|
520
|
#ifdef MSB_FIRST_TCH
|
|
521
|
#ifdef MSB_FIRST_TCH
|
|
521
|
pt_uint8[0] = pt_uint8[0] & 0x7f; // Make n_cross_e_scal_b_im be positive in any case: |ImaSX|
|
|
522
|
pt_uint8[0] = pt_uint8[0] & 0x7f; // Make n_cross_e_scal_b_im be positive in any case: |ImaSX|
|
|
522
|
#endif
|
|
523
|
#endif
|
|
523
|
tmp_uint8 = (n_cross_e_scal_b_im > n_cross_e_scal_b_re) ? 0x40 : 0x00; // Determine the sector argument of SX. If |Im| > |Re| affect
|
|
524
|
tmp_uint8 = (n_cross_e_scal_b_im > n_cross_e_scal_b_re) ? 0x40 : 0x00; // Determine the sector argument of SX. If |Im| > |Re| affect
|
|
524
|
// an unsigned 8-bit char with 01000000; otherwise with null.
|
|
525
|
// an unsigned 8-bit char with 01000000; otherwise with null.
|
|
525
|
lfr_bp1[i*NB_BYTES_BP1+3] = lfr_bp1[i*NB_BYTES_BP1+3] | tmp_uint8; // Record it as a sign bit at the 7th bit position (from the right
|
|
526
|
lfr_bp1[i*NB_BYTES_BP1+3] = lfr_bp1[i*NB_BYTES_BP1+3] | tmp_uint8; // Record it as a sign bit at the 7th bit position (from the right
|
|
526
|
// to the left) of lfr_bp1[i*NB_BYTES_BP1+3], by simple logical addition.
|
|
527
|
// to the left) of lfr_bp1[i*NB_BYTES_BP1+3], by simple logical addition.
|
|
527
|
#ifdef DEBUG_TCH
|
|
528
|
#ifdef DEBUG_TCH
|
|
528
|
printf("|n_cross_e_scal_b_im| : %16.8e\n",n_cross_e_scal_b_im);
|
|
529
|
printf("|n_cross_e_scal_b_im| : %16.8e\n",n_cross_e_scal_b_im);
|
|
529
|
printf("|n_cross_e_scal_b_im|/bx_bx_star/2: %16.8e\n",n_cross_e_scal_b_im/bx_bx_star/2);
|
|
530
|
printf("|n_cross_e_scal_b_im|/bx_bx_star/2: %16.8e\n",n_cross_e_scal_b_im/bx_bx_star/2);
|
|
@@
-535,12
+536,21
void BP1_set( float * compressed_spec_ma
|
|
535
|
|
|
536
|
|
|
536
|
void BP2_set( float * compressed_spec_mat, uint8_t nb_bins_compressed_spec_mat, uint8_t * lfr_bp2 )
|
|
537
|
void BP2_set( float * compressed_spec_mat, uint8_t nb_bins_compressed_spec_mat, uint8_t * lfr_bp2 )
|
|
537
|
{
|
|
538
|
{
|
|
538
|
int i, exponent;
|
|
539
|
float cross_re; // 32-bit floating point
|
|
539
|
float aux, significand, cross_re, cross_im;
|
|
540
|
float cross_im;
|
|
540
|
int8_t nbitexp, nbitsig, expmin, expmax; // 8 bits
|
|
541
|
float aux;
|
|
541
|
int16_t rangesig; // 16 bits
|
|
542
|
float significand;
|
|
542
|
uint16_t autocor, tmp_uint16; // 16 bits
|
|
543
|
int exponent; // 32-bit signed integer
|
|
543
|
uint16_t *pt_u_short_int; // pointer on unsigned 16-bit words
|
|
544
|
uint8_t nbitexp; // 8-bit unsigned integer
|
|
|
|
|
545
|
uint8_t nbitsig;
|
|
|
|
|
546
|
uint8_t *pt_uint8; // pointer on unsigned 8-bit integer
|
|
|
|
|
547
|
int8_t expmin; // 8-bit signed integer
|
|
|
|
|
548
|
int8_t expmax;
|
|
|
|
|
549
|
uint16_t rangesig; // 16-bit unsigned integer
|
|
|
|
|
550
|
uint16_t autocor;
|
|
|
|
|
551
|
uint16_t exp;
|
|
|
|
|
552
|
uint16_t tmp_uint16;
|
|
|
|
|
553
|
uint16_t i;
|
|
544
|
|
|
554
|
|
|
545
|
#ifdef DEBUG_TCH
|
|
555
|
#ifdef DEBUG_TCH
|
|
546
|
printf("BP2 : \n");
|
|
556
|
printf("BP2 : \n");
|
|
@@
-548,8
+558,8
void BP2_set( float * compressed_spec_ma
|
|
548
|
#endif
|
|
558
|
#endif
|
|
549
|
|
|
559
|
|
|
550
|
// For floating point data to be recorded on 16-bit words :
|
|
560
|
// For floating point data to be recorded on 16-bit words :
|
|
551
|
nbitexp = 6; // number of bits for the exponent
|
|
561
|
nbitexp = 6; // number of bits for the exponent
|
|
552
|
nbitsig = 16 - nbitexp; // number of bits for the significand
|
|
562
|
nbitsig = 16 - nbitexp; // number of bits for the significand
|
|
553
|
rangesig = (1 << nbitsig)-1; // == 2^nbitsig - 1
|
|
563
|
rangesig = (1 << nbitsig)-1; // == 2^nbitsig - 1
|
|
554
|
expmax = 32;
|
|
564
|
expmax = 32;
|
|
555
|
expmin = expmax - (1 << nbitexp) + 1;
|
|
565
|
expmin = expmax - (1 << nbitexp) + 1;
|
|
@@
-586,8
+596,8
void BP2_set( float * compressed_spec_ma
|
|
586
|
aux = sqrt(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+9]);
|
|
596
|
aux = sqrt(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+9]);
|
|
587
|
cross_re = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+1] / aux;
|
|
597
|
cross_re = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+1] / aux;
|
|
588
|
cross_im = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+2] / aux;
|
|
598
|
cross_im = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+2] / aux;
|
|
589
|
lfr_bp2[i*NB_BYTES_BP2+10] = (uint8_t) (cross_re*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
599
|
lfr_bp2[i*NB_BYTES_BP2+10] = (uint8_t) (cross_re*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
590
|
lfr_bp2[i*NB_BYTES_BP2+20] = (uint8_t) (cross_im*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
600
|
lfr_bp2[i*NB_BYTES_BP2+20] = (uint8_t) (cross_im*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
591
|
#ifdef DEBUG_TCH
|
|
601
|
#ifdef DEBUG_TCH
|
|
592
|
printf("\nBin number: %d\n", i);
|
|
602
|
printf("\nBin number: %d\n", i);
|
|
593
|
printf("lfr_bp2[i*NB_BYTES_BP2+10] for cross12_re (%16.8e) : %.3u\n",cross_re, lfr_bp2[i*NB_BYTES_BP2+10]);
|
|
603
|
printf("lfr_bp2[i*NB_BYTES_BP2+10] for cross12_re (%16.8e) : %.3u\n",cross_re, lfr_bp2[i*NB_BYTES_BP2+10]);
|
|
@@
-597,8
+607,8
void BP2_set( float * compressed_spec_ma
|
|
597
|
aux = sqrt(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+16]);
|
|
607
|
aux = sqrt(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+16]);
|
|
598
|
cross_re = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+3] / aux;
|
|
608
|
cross_re = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+3] / aux;
|
|
599
|
cross_im = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+4] / aux;
|
|
609
|
cross_im = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+4] / aux;
|
|
600
|
lfr_bp2[i*NB_BYTES_BP2+11] = (uint8_t) (cross_re*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
610
|
lfr_bp2[i*NB_BYTES_BP2+11] = (uint8_t) (cross_re*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
601
|
lfr_bp2[i*NB_BYTES_BP2+21] = (uint8_t) (cross_im*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
611
|
lfr_bp2[i*NB_BYTES_BP2+21] = (uint8_t) (cross_im*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
602
|
#ifdef DEBUG_TCH
|
|
612
|
#ifdef DEBUG_TCH
|
|
603
|
printf("lfr_bp2[i*NB_BYTES_BP2+11] for cross13_re (%16.8e) : %.3u\n",cross_re, lfr_bp2[i*NB_BYTES_BP2+11]);
|
|
613
|
printf("lfr_bp2[i*NB_BYTES_BP2+11] for cross13_re (%16.8e) : %.3u\n",cross_re, lfr_bp2[i*NB_BYTES_BP2+11]);
|
|
604
|
printf("lfr_bp2[i*NB_BYTES_BP2+21] for cross13_im (%16.8e) : %.3u\n",cross_im, lfr_bp2[i*NB_BYTES_BP2+21]);
|
|
614
|
printf("lfr_bp2[i*NB_BYTES_BP2+21] for cross13_im (%16.8e) : %.3u\n",cross_im, lfr_bp2[i*NB_BYTES_BP2+21]);
|
|
@@
-607,8
+617,8
void BP2_set( float * compressed_spec_ma
|
|
607
|
aux = sqrt(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+21]);
|
|
617
|
aux = sqrt(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+21]);
|
|
608
|
cross_re = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+5] / aux;
|
|
618
|
cross_re = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+5] / aux;
|
|
609
|
cross_im = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+6] / aux;
|
|
619
|
cross_im = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+6] / aux;
|
|
610
|
lfr_bp2[i*NB_BYTES_BP2+12] = (uint8_t) (cross_re*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
620
|
lfr_bp2[i*NB_BYTES_BP2+12] = (uint8_t) (cross_re*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
611
|
lfr_bp2[i*NB_BYTES_BP2+22] = (uint8_t) (cross_im*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
621
|
lfr_bp2[i*NB_BYTES_BP2+22] = (uint8_t) (cross_im*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
612
|
#ifdef DEBUG_TCH
|
|
622
|
#ifdef DEBUG_TCH
|
|
613
|
printf("lfr_bp2[i*NB_BYTES_BP2+12] for cross14_re (%16.8e) : %.3u\n",cross_re, lfr_bp2[i*NB_BYTES_BP2+12]);
|
|
623
|
printf("lfr_bp2[i*NB_BYTES_BP2+12] for cross14_re (%16.8e) : %.3u\n",cross_re, lfr_bp2[i*NB_BYTES_BP2+12]);
|
|
614
|
printf("lfr_bp2[i*NB_BYTES_BP2+22] for cross14_im (%16.8e) : %.3u\n",cross_im, lfr_bp2[i*NB_BYTES_BP2+22]);
|
|
624
|
printf("lfr_bp2[i*NB_BYTES_BP2+22] for cross14_im (%16.8e) : %.3u\n",cross_im, lfr_bp2[i*NB_BYTES_BP2+22]);
|
|
@@
-617,8
+627,8
void BP2_set( float * compressed_spec_ma
|
|
617
|
aux = sqrt(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+24]);
|
|
627
|
aux = sqrt(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+24]);
|
|
618
|
cross_re = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+7] / aux;
|
|
628
|
cross_re = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+7] / aux;
|
|
619
|
cross_im = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+8] / aux;
|
|
629
|
cross_im = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+8] / aux;
|
|
620
|
lfr_bp2[i*NB_BYTES_BP2+13] = (uint8_t) (cross_re*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
630
|
lfr_bp2[i*NB_BYTES_BP2+13] = (uint8_t) (cross_re*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
621
|
lfr_bp2[i*NB_BYTES_BP2+23] = (uint8_t) (cross_im*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
631
|
lfr_bp2[i*NB_BYTES_BP2+23] = (uint8_t) (cross_im*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
622
|
#ifdef DEBUG_TCH
|
|
632
|
#ifdef DEBUG_TCH
|
|
623
|
printf("lfr_bp2[i*NB_BYTES_BP2+13] for cross15_re (%16.8e) : %.3u\n",cross_re, lfr_bp2[i*NB_BYTES_BP2+13]);
|
|
633
|
printf("lfr_bp2[i*NB_BYTES_BP2+13] for cross15_re (%16.8e) : %.3u\n",cross_re, lfr_bp2[i*NB_BYTES_BP2+13]);
|
|
624
|
printf("lfr_bp2[i*NB_BYTES_BP2+23] for cross15_im (%16.8e) : %.3u\n",cross_im, lfr_bp2[i*NB_BYTES_BP2+23]);
|
|
634
|
printf("lfr_bp2[i*NB_BYTES_BP2+23] for cross15_im (%16.8e) : %.3u\n",cross_im, lfr_bp2[i*NB_BYTES_BP2+23]);
|
|
@@
-627,8
+637,8
void BP2_set( float * compressed_spec_ma
|
|
627
|
aux = sqrt(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+9]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+16]);
|
|
637
|
aux = sqrt(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+9]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+16]);
|
|
628
|
cross_re = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+10] / aux;
|
|
638
|
cross_re = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+10] / aux;
|
|
629
|
cross_im = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+11] / aux;
|
|
639
|
cross_im = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+11] / aux;
|
|
630
|
lfr_bp2[i*NB_BYTES_BP2+14] = (uint8_t) (cross_re*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
640
|
lfr_bp2[i*NB_BYTES_BP2+14] = (uint8_t) (cross_re*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
631
|
lfr_bp2[i*NB_BYTES_BP2+24] = (uint8_t) (cross_im*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
641
|
lfr_bp2[i*NB_BYTES_BP2+24] = (uint8_t) (cross_im*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
632
|
#ifdef DEBUG_TCH
|
|
642
|
#ifdef DEBUG_TCH
|
|
633
|
printf("lfr_bp2[i*NB_BYTES_BP2+14] for cross23_re (%16.8e) : %.3u\n",cross_re, lfr_bp2[i*NB_BYTES_BP2+14]);
|
|
643
|
printf("lfr_bp2[i*NB_BYTES_BP2+14] for cross23_re (%16.8e) : %.3u\n",cross_re, lfr_bp2[i*NB_BYTES_BP2+14]);
|
|
634
|
printf("lfr_bp2[i*NB_BYTES_BP2+24] for cross23_im (%16.8e) : %.3u\n",cross_im, lfr_bp2[i*NB_BYTES_BP2+24]);
|
|
644
|
printf("lfr_bp2[i*NB_BYTES_BP2+24] for cross23_im (%16.8e) : %.3u\n",cross_im, lfr_bp2[i*NB_BYTES_BP2+24]);
|
|
@@
-637,8
+647,8
void BP2_set( float * compressed_spec_ma
|
|
637
|
aux = sqrt(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+9]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+21]);
|
|
647
|
aux = sqrt(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+9]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+21]);
|
|
638
|
cross_re = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+12] / aux;
|
|
648
|
cross_re = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+12] / aux;
|
|
639
|
cross_im = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+13] / aux;
|
|
649
|
cross_im = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+13] / aux;
|
|
640
|
lfr_bp2[i*NB_BYTES_BP2+15] = (uint8_t) (cross_re*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
650
|
lfr_bp2[i*NB_BYTES_BP2+15] = (uint8_t) (cross_re*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
641
|
lfr_bp2[i*NB_BYTES_BP2+25] = (uint8_t) (cross_im*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
651
|
lfr_bp2[i*NB_BYTES_BP2+25] = (uint8_t) (cross_im*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
642
|
#ifdef DEBUG_TCH
|
|
652
|
#ifdef DEBUG_TCH
|
|
643
|
printf("lfr_bp2[i*NB_BYTES_BP2+15] for cross24_re (%16.8e) : %.3u\n",cross_re, lfr_bp2[i*NB_BYTES_BP2+15]);
|
|
653
|
printf("lfr_bp2[i*NB_BYTES_BP2+15] for cross24_re (%16.8e) : %.3u\n",cross_re, lfr_bp2[i*NB_BYTES_BP2+15]);
|
|
644
|
printf("lfr_bp2[i*NB_BYTES_BP2+25] for cross24_im (%16.8e) : %.3u\n",cross_im, lfr_bp2[i*NB_BYTES_BP2+25]);
|
|
654
|
printf("lfr_bp2[i*NB_BYTES_BP2+25] for cross24_im (%16.8e) : %.3u\n",cross_im, lfr_bp2[i*NB_BYTES_BP2+25]);
|
|
@@
-647,8
+657,8
void BP2_set( float * compressed_spec_ma
|
|
647
|
aux = sqrt(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+9]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+24]);
|
|
657
|
aux = sqrt(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+9]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+24]);
|
|
648
|
cross_re = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+14] / aux;
|
|
658
|
cross_re = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+14] / aux;
|
|
649
|
cross_im = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+15] / aux;
|
|
659
|
cross_im = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+15] / aux;
|
|
650
|
lfr_bp2[i*NB_BYTES_BP2+16] = (uint8_t) (cross_re*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
660
|
lfr_bp2[i*NB_BYTES_BP2+16] = (uint8_t) (cross_re*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
651
|
lfr_bp2[i*NB_BYTES_BP2+26] = (uint8_t) (cross_im*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
661
|
lfr_bp2[i*NB_BYTES_BP2+26] = (uint8_t) (cross_im*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
652
|
#ifdef DEBUG_TCH
|
|
662
|
#ifdef DEBUG_TCH
|
|
653
|
printf("lfr_bp2[i*NB_BYTES_BP2+16] for cross25_re (%16.8e) : %.3u\n",cross_re, lfr_bp2[i*NB_BYTES_BP2+16]);
|
|
663
|
printf("lfr_bp2[i*NB_BYTES_BP2+16] for cross25_re (%16.8e) : %.3u\n",cross_re, lfr_bp2[i*NB_BYTES_BP2+16]);
|
|
654
|
printf("lfr_bp2[i*NB_BYTES_BP2+26] for cross25_im (%16.8e) : %.3u\n",cross_im, lfr_bp2[i*NB_BYTES_BP2+26]);
|
|
664
|
printf("lfr_bp2[i*NB_BYTES_BP2+26] for cross25_im (%16.8e) : %.3u\n",cross_im, lfr_bp2[i*NB_BYTES_BP2+26]);
|
|
@@
-657,8
+667,8
void BP2_set( float * compressed_spec_ma
|
|
657
|
aux = sqrt(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+16]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+21]);
|
|
667
|
aux = sqrt(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+16]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+21]);
|
|
658
|
cross_re = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+17] / aux;
|
|
668
|
cross_re = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+17] / aux;
|
|
659
|
cross_im = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+18] / aux;
|
|
669
|
cross_im = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+18] / aux;
|
|
660
|
lfr_bp2[i*NB_BYTES_BP2+17] = (uint8_t) (cross_re*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
670
|
lfr_bp2[i*NB_BYTES_BP2+17] = (uint8_t) (cross_re*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
661
|
lfr_bp2[i*NB_BYTES_BP2+27] = (uint8_t) (cross_im*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
671
|
lfr_bp2[i*NB_BYTES_BP2+27] = (uint8_t) (cross_im*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
662
|
#ifdef DEBUG_TCH
|
|
672
|
#ifdef DEBUG_TCH
|
|
663
|
printf("lfr_bp2[i*NB_BYTES_BP2+17] for cross34_re (%16.8e) : %.3u\n",cross_re, lfr_bp2[i*NB_BYTES_BP2+17]);
|
|
673
|
printf("lfr_bp2[i*NB_BYTES_BP2+17] for cross34_re (%16.8e) : %.3u\n",cross_re, lfr_bp2[i*NB_BYTES_BP2+17]);
|
|
664
|
printf("lfr_bp2[i*NB_BYTES_BP2+27] for cross34_im (%16.8e) : %.3u\n",cross_im, lfr_bp2[i*NB_BYTES_BP2+27]);
|
|
674
|
printf("lfr_bp2[i*NB_BYTES_BP2+27] for cross34_im (%16.8e) : %.3u\n",cross_im, lfr_bp2[i*NB_BYTES_BP2+27]);
|
|
@@
-667,8
+677,8
void BP2_set( float * compressed_spec_ma
|
|
667
|
aux = sqrt(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+16]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+24]);
|
|
677
|
aux = sqrt(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+16]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+24]);
|
|
668
|
cross_re = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+19] / aux;
|
|
678
|
cross_re = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+19] / aux;
|
|
669
|
cross_im = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+20] / aux;
|
|
679
|
cross_im = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+20] / aux;
|
|
670
|
lfr_bp2[i*NB_BYTES_BP2+18] = (uint8_t) (cross_re*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
680
|
lfr_bp2[i*NB_BYTES_BP2+18] = (uint8_t) (cross_re*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
671
|
lfr_bp2[i*NB_BYTES_BP2+28] = (uint8_t) (cross_im*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
681
|
lfr_bp2[i*NB_BYTES_BP2+28] = (uint8_t) (cross_im*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
672
|
#ifdef DEBUG_TCH
|
|
682
|
#ifdef DEBUG_TCH
|
|
673
|
printf("lfr_bp2[i*NB_BYTES_BP2+18] for cross35_re (%16.8e) : %.3u\n",cross_re, lfr_bp2[i*NB_BYTES_BP2+18]);
|
|
683
|
printf("lfr_bp2[i*NB_BYTES_BP2+18] for cross35_re (%16.8e) : %.3u\n",cross_re, lfr_bp2[i*NB_BYTES_BP2+18]);
|
|
674
|
printf("lfr_bp2[i*NB_BYTES_BP2+28] for cross35_im (%16.8e) : %.3u\n",cross_im, lfr_bp2[i*NB_BYTES_BP2+28]);
|
|
684
|
printf("lfr_bp2[i*NB_BYTES_BP2+28] for cross35_im (%16.8e) : %.3u\n",cross_im, lfr_bp2[i*NB_BYTES_BP2+28]);
|
|
@@
-677,8
+687,8
void BP2_set( float * compressed_spec_ma
|
|
677
|
aux = sqrt(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+21]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+24]);
|
|
687
|
aux = sqrt(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+21]*compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+24]);
|
|
678
|
cross_re = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+22] / aux;
|
|
688
|
cross_re = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+22] / aux;
|
|
679
|
cross_im = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+23] / aux;
|
|
689
|
cross_im = compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+23] / aux;
|
|
680
|
lfr_bp2[i*NB_BYTES_BP2+19] = (uint8_t) (cross_re*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
690
|
lfr_bp2[i*NB_BYTES_BP2+19] = (uint8_t) (cross_re*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
681
|
lfr_bp2[i*NB_BYTES_BP2+29] = (uint8_t) (cross_im*127.5 + 128); // shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
691
|
lfr_bp2[i*NB_BYTES_BP2+29] = (uint8_t) (cross_im*127.5 + 128); // Shift and cast into a 8-bit uint8_t (0, ..., 255) with rounding
|
|
682
|
#ifdef DEBUG_TCH
|
|
692
|
#ifdef DEBUG_TCH
|
|
683
|
printf("lfr_bp2[i*NB_BYTES_BP2+19] for cross45_re (%16.8e) : %.3u\n",cross_re, lfr_bp2[i*NB_BYTES_BP2+19]);
|
|
693
|
printf("lfr_bp2[i*NB_BYTES_BP2+19] for cross45_re (%16.8e) : %.3u\n",cross_re, lfr_bp2[i*NB_BYTES_BP2+19]);
|
|
684
|
printf("lfr_bp2[i*NB_BYTES_BP2+29] for cross45_im (%16.8e) : %.3u\n",cross_im, lfr_bp2[i*NB_BYTES_BP2+29]);
|
|
694
|
printf("lfr_bp2[i*NB_BYTES_BP2+29] for cross45_im (%16.8e) : %.3u\n",cross_im, lfr_bp2[i*NB_BYTES_BP2+29]);
|
|
@@
-692,7
+702,7
void BP2_set( float * compressed_spec_ma
|
|
692
|
// == PA_LFR_SC_BP2_AUTO_A4_F0 == 16 bits
|
|
702
|
// == PA_LFR_SC_BP2_AUTO_A4_F0 == 16 bits
|
|
693
|
// S11
|
|
703
|
// S11
|
|
694
|
significand = frexpf(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX], &exponent); // 0.5 <= significand < 1
|
|
704
|
significand = frexpf(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX], &exponent); // 0.5 <= significand < 1
|
|
695
|
// S11 = significand * 2^exponent
|
|
705
|
// S11 = significand * 2^exponent
|
|
696
|
#ifdef DEBUG_TCH
|
|
706
|
#ifdef DEBUG_TCH
|
|
697
|
printf("S11 : %16.8e\n",compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX]);
|
|
707
|
printf("S11 : %16.8e\n",compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX]);
|
|
698
|
printf("significand : %16.8e\n",significand);
|
|
708
|
printf("significand : %16.8e\n",significand);
|
|
@@
-706,30
+716,38
void BP2_set( float * compressed_spec_ma
|
|
706
|
exponent = expmax;
|
|
716
|
exponent = expmax;
|
|
707
|
significand = 1.0; // max value that can be recorded
|
|
717
|
significand = 1.0; // max value that can be recorded
|
|
708
|
}
|
|
718
|
}
|
|
709
|
if (significand == 0) {// in that case exponent == 0 too
|
|
719
|
if (significand == 0) { // in that case exponent == 0 too
|
|
710
|
exponent = expmin;
|
|
720
|
exponent = expmin;
|
|
711
|
significand = 0.5; // min value that can be recorded
|
|
721
|
significand = 0.5; // min value that can be recorded
|
|
712
|
}
|
|
722
|
}
|
|
713
|
|
|
723
|
|
|
714
|
autocor = (uint16_t) ((significand*2-1)*rangesig + 0.5); // Shift and cast into a 16-bit unsigned int with rounding
|
|
724
|
autocor = (uint16_t) ((significand*2-1)*rangesig + 0.5); // Shift and cast into a 16-bit unsigned int with rounding
|
|
715
|
// where just the first nbitsig bits are used (0, ..., 2^nbitsig-1)
|
|
725
|
// where just the first nbitsig bits are used (0, ..., 2^nbitsig-1)
|
|
716
|
tmp_uint16 = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int
|
|
726
|
exp = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int where just
|
|
717
|
// where just the first nbitexp bits are used (0, ..., 2^nbitexp-1)
|
|
727
|
// the first nbitexp bits are used (0, ..., 2^nbitexp-1)
|
|
718
|
pt_u_short_int = (uint16_t*) &lfr_bp2[i*NB_BYTES_BP2+0]; // Affect an uint16_t pointer with the
|
|
728
|
tmp_uint16 = autocor | (exp << nbitsig); // Put the exponent bits (nbitexp) next to the
|
|
719
|
// adress where the 16-bit word result will be stored
|
|
729
|
// left place of the significand bits (nbitsig),
|
|
720
|
*pt_u_short_int = autocor | (tmp_uint16 << nbitsig); // Put the exponent bits (nbitexp) next to the
|
|
730
|
// making the 16-bit word to be recorded
|
|
721
|
// left place of the significand bits (nbitsig), making
|
|
731
|
pt_uint8 = (uint8_t*) &tmp_uint16; // Affect an uint8_t pointer with the adress of tmp_uint16
|
|
722
|
// the 16-bit word to be recorded, and record it using the pointer
|
|
732
|
#ifdef LSB_FIRST_TCH
|
|
|
|
|
733
|
lfr_bp2[i*NB_BYTES_BP2+0] = pt_uint8[0]; // Record LSB of tmp_uint16
|
|
|
|
|
734
|
lfr_bp2[i*NB_BYTES_BP2+1] = pt_uint8[1]; // Record MSB of tmp_uint16
|
|
|
|
|
735
|
#endif
|
|
|
|
|
736
|
#ifdef MSB_FIRST_TCH
|
|
|
|
|
737
|
lfr_bp2[i*NB_BYTES_BP2+0] = pt_uint8[1]; // Record LSB of tmp_uint16
|
|
|
|
|
738
|
lfr_bp2[i*NB_BYTES_BP2+1] = pt_uint8[0]; // Record MSB of tmp_uint16
|
|
|
|
|
739
|
#endif
|
|
723
|
#ifdef DEBUG_TCH
|
|
740
|
#ifdef DEBUG_TCH
|
|
724
|
printf("autocor for S11 significand : %u\n",autocor );
|
|
741
|
printf("autocor for S11 significand : %u\n",autocor);
|
|
725
|
printf("tmp_uint8 for S11 exponent : %u\n",tmp_uint16 );
|
|
742
|
printf("exp for S11 exponent : %u\n",exp);
|
|
726
|
printf("*pt_u_short_int for S11 exponent + significand : %.3d or %x\n",*pt_u_short_int, *pt_u_short_int);
|
|
743
|
printf("pt_uint8[1] for S11 exponent + significand : %.3d or %2x\n",pt_uint8[1], pt_uint8[1]);
|
|
727
|
printf("lfr_bp2[i*NB_BYTES_BP2+1] : %u or %x\n",lfr_bp2[i*NB_BYTES_BP2+1], lfr_bp2[i*NB_BYTES_BP2+1]);
|
|
744
|
printf("pt_uint8[0] for S11 exponent + significand : %.3d or %2x\n",pt_uint8[0], pt_uint8[0]);
|
|
728
|
printf("lfr_bp2[i*NB_BYTES_BP2+0] : %u or %x\n",lfr_bp2[i*NB_BYTES_BP2+0], lfr_bp2[i*NB_BYTES_BP2+0]);
|
|
745
|
printf("lfr_bp2[i*NB_BYTES_BP2+1] : %3u or %2x\n",lfr_bp2[i*NB_BYTES_BP2+1], lfr_bp2[i*NB_BYTES_BP2+1]);
|
|
|
|
|
746
|
printf("lfr_bp2[i*NB_BYTES_BP2+0] : %3u or %2x\n",lfr_bp2[i*NB_BYTES_BP2+0], lfr_bp2[i*NB_BYTES_BP2+0]);
|
|
729
|
#endif
|
|
747
|
#endif
|
|
730
|
// S22
|
|
748
|
// S22
|
|
731
|
significand = frexpf(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+9], &exponent); // 0.5 <= significand < 1
|
|
749
|
significand = frexpf(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+9], &exponent); // 0.5 <= significand < 1
|
|
732
|
// S22 = significand * 2^exponent
|
|
750
|
// S22 = significand * 2^exponent
|
|
733
|
#ifdef DEBUG_TCH
|
|
751
|
#ifdef DEBUG_TCH
|
|
734
|
printf("S22 : %16.8e\n",compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+9]);
|
|
752
|
printf("S22 : %16.8e\n",compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+9]);
|
|
735
|
printf("significand : %16.8e\n",significand);
|
|
753
|
printf("significand : %16.8e\n",significand);
|
|
@@
-743,30
+761,38
void BP2_set( float * compressed_spec_ma
|
|
743
|
exponent = expmax;
|
|
761
|
exponent = expmax;
|
|
744
|
significand = 1.0; // max value that can be recorded
|
|
762
|
significand = 1.0; // max value that can be recorded
|
|
745
|
}
|
|
763
|
}
|
|
746
|
if (significand == 0) {// in that case exponent == 0 too
|
|
764
|
if (significand == 0) { // in that case exponent == 0 too
|
|
747
|
exponent = expmin;
|
|
765
|
exponent = expmin;
|
|
748
|
significand = 0.5; // min value that can be recorded
|
|
766
|
significand = 0.5; // min value that can be recorded
|
|
749
|
}
|
|
767
|
}
|
|
750
|
|
|
768
|
|
|
751
|
autocor = (uint16_t) ((significand*2-1)*rangesig + 0.5); // Shift and cast into a 16-bit unsigned int with rounding
|
|
769
|
autocor = (uint16_t) ((significand*2-1)*rangesig + 0.5); // Shift and cast into a 16-bit unsigned int with rounding
|
|
752
|
// where just the first nbitsig bits are used (0, ..., 2^nbitsig-1)
|
|
770
|
// where just the first nbitsig bits are used (0, ..., 2^nbitsig-1)
|
|
753
|
tmp_uint16 = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int
|
|
771
|
exp = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int where just
|
|
754
|
// where just the first nbitexp bits are used (0, ..., 2^nbitexp-1)
|
|
772
|
// the first nbitexp bits are used (0, ..., 2^nbitexp-1)
|
|
755
|
pt_u_short_int = (uint16_t*) &lfr_bp2[i*NB_BYTES_BP2+2]; // Affect an uint16_t pointer with the
|
|
773
|
tmp_uint16 = autocor | (exp << nbitsig); // Put the exponent bits (nbitexp) next to the
|
|
756
|
// adress where the 16-bit word result will be stored
|
|
774
|
// left place of the significand bits (nbitsig),
|
|
757
|
*pt_u_short_int = autocor | (tmp_uint16 << nbitsig); // Put the exponent bits (nbitexp) next to the
|
|
775
|
// making the 16-bit word to be recorded
|
|
758
|
// left place of the significand bits (nbitsig), making
|
|
776
|
pt_uint8 = (uint8_t*) &tmp_uint16; // Affect an uint8_t pointer with the adress of tmp_uint16
|
|
759
|
// the 16-bit word to be recorded, and record it using the pointer
|
|
777
|
#ifdef LSB_FIRST_TCH
|
|
|
|
|
778
|
lfr_bp2[i*NB_BYTES_BP2+2] = pt_uint8[0]; // Record LSB of tmp_uint16
|
|
|
|
|
779
|
lfr_bp2[i*NB_BYTES_BP2+3] = pt_uint8[1]; // Record MSB of tmp_uint16
|
|
|
|
|
780
|
#endif
|
|
|
|
|
781
|
#ifdef MSB_FIRST_TCH
|
|
|
|
|
782
|
lfr_bp2[i*NB_BYTES_BP2+2] = pt_uint8[1]; // Record LSB of tmp_uint16
|
|
|
|
|
783
|
lfr_bp2[i*NB_BYTES_BP2+3] = pt_uint8[0]; // Record MSB of tmp_uint16
|
|
|
|
|
784
|
#endif
|
|
760
|
#ifdef DEBUG_TCH
|
|
785
|
#ifdef DEBUG_TCH
|
|
761
|
printf("autocor for S22 significand : %d\n",autocor );
|
|
786
|
printf("autocor for S22 significand : %u\n",autocor);
|
|
762
|
printf("tmp_uint8 for S22 exponent : %d\n",tmp_uint16 );
|
|
787
|
printf("exp for S11 exponent : %u\n",exp);
|
|
763
|
printf("*pt_u_short_int for S22 exponent + significand : %.3d or %x\n",*pt_u_short_int, *pt_u_short_int);
|
|
788
|
printf("pt_uint8[1] for S22 exponent + significand : %.3d or %2x\n",pt_uint8[1], pt_uint8[1]);
|
|
764
|
printf("lfr_bp2[i*NB_BYTES_BP2+3] : %.3d or %x\n",lfr_bp2[i*NB_BYTES_BP2+3], lfr_bp2[i*NB_BYTES_BP2+3]);
|
|
789
|
printf("pt_uint8[0] for S22 exponent + significand : %.3d or %2x\n",pt_uint8[0], pt_uint8[0]);
|
|
765
|
printf("lfr_bp2[i*NB_BYTES_BP2+2] : %.3d or %x\n",lfr_bp2[i*NB_BYTES_BP2+2], lfr_bp2[i*NB_BYTES_BP2+2]);
|
|
790
|
printf("lfr_bp2[i*NB_BYTES_BP2+3] : %3u or %2x\n",lfr_bp2[i*NB_BYTES_BP2+3], lfr_bp2[i*NB_BYTES_BP2+3]);
|
|
|
|
|
791
|
printf("lfr_bp2[i*NB_BYTES_BP2+2] : %3u or %2x\n",lfr_bp2[i*NB_BYTES_BP2+2], lfr_bp2[i*NB_BYTES_BP2+2]);
|
|
766
|
#endif
|
|
792
|
#endif
|
|
767
|
// S33
|
|
793
|
// S33
|
|
768
|
significand = frexpf(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+16], &exponent); // 0.5 <= significand < 1
|
|
794
|
significand = frexpf(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+16], &exponent); // 0.5 <= significand < 1
|
|
769
|
// S33 = significand * 2^exponent
|
|
795
|
// S33 = significand * 2^exponent
|
|
770
|
#ifdef DEBUG_TCH
|
|
796
|
#ifdef DEBUG_TCH
|
|
771
|
printf("S33 : %16.8e\n",compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+16]);
|
|
797
|
printf("S33 : %16.8e\n",compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+16]);
|
|
772
|
printf("significand : %16.8e\n",significand);
|
|
798
|
printf("significand : %16.8e\n",significand);
|
|
@@
-780,30
+806,38
void BP2_set( float * compressed_spec_ma
|
|
780
|
exponent = expmax;
|
|
806
|
exponent = expmax;
|
|
781
|
significand = 1.0; // max value that can be recorded
|
|
807
|
significand = 1.0; // max value that can be recorded
|
|
782
|
}
|
|
808
|
}
|
|
783
|
if (significand == 0) {// in that case exponent == 0 too
|
|
809
|
if (significand == 0) { // in that case exponent == 0 too
|
|
784
|
exponent = expmin;
|
|
810
|
exponent = expmin;
|
|
785
|
significand = 0.5; // min value that can be recorded
|
|
811
|
significand = 0.5; // min value that can be recorded
|
|
786
|
}
|
|
812
|
}
|
|
787
|
|
|
813
|
|
|
788
|
autocor = (uint16_t) ((significand*2-1)*rangesig + 0.5); // Shift and cast into a 16-bit unsigned int with rounding
|
|
814
|
autocor = (uint16_t) ((significand*2-1)*rangesig + 0.5); // Shift and cast into a 16-bit unsigned int with rounding
|
|
789
|
// where just the first nbitsig bits are used (0, ..., 2^nbitsig-1)
|
|
815
|
// where just the first nbitsig bits are used (0, ..., 2^nbitsig-1)
|
|
790
|
tmp_uint16 = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int
|
|
816
|
exp = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int where just
|
|
791
|
// where just the first nbitexp bits are used (0, ..., 2^nbitexp-1)
|
|
817
|
// the first nbitexp bits are used (0, ..., 2^nbitexp-1)
|
|
792
|
pt_u_short_int = (uint16_t*) &lfr_bp2[i*NB_BYTES_BP2+4]; // Affect an uint16_t pointer with the
|
|
818
|
tmp_uint16 = autocor | (exp << nbitsig); // Put the exponent bits (nbitexp) next to the
|
|
793
|
// adress where the 16-bit word result will be stored
|
|
819
|
// left place of the significand bits (nbitsig),
|
|
794
|
*pt_u_short_int = autocor | (tmp_uint16 << nbitsig); // Put the exponent bits (nbitexp) next to the
|
|
820
|
// making the 16-bit word to be recorded
|
|
795
|
// left place of the significand bits (nbitsig), making
|
|
821
|
pt_uint8 = (uint8_t*) &tmp_uint16; // Affect an uint8_t pointer with the adress of tmp_uint16
|
|
796
|
// the 16-bit word to be recorded, and record it using the pointer
|
|
822
|
#ifdef LSB_FIRST_TCH
|
|
|
|
|
823
|
lfr_bp2[i*NB_BYTES_BP2+4] = pt_uint8[0]; // Record LSB of tmp_uint16
|
|
|
|
|
824
|
lfr_bp2[i*NB_BYTES_BP2+5] = pt_uint8[1]; // Record MSB of tmp_uint16
|
|
|
|
|
825
|
#endif
|
|
|
|
|
826
|
#ifdef MSB_FIRST_TCH
|
|
|
|
|
827
|
lfr_bp2[i*NB_BYTES_BP2+4] = pt_uint8[1]; // Record LSB of tmp_uint16
|
|
|
|
|
828
|
lfr_bp2[i*NB_BYTES_BP2+5] = pt_uint8[0]; // Record MSB of tmp_uint16
|
|
|
|
|
829
|
#endif
|
|
797
|
#ifdef DEBUG_TCH
|
|
830
|
#ifdef DEBUG_TCH
|
|
798
|
printf("autocor for S33 significand : %d\n",autocor );
|
|
831
|
printf("autocor for S33 significand : %u\n",autocor);
|
|
799
|
printf("tmp_uint8 for S33 exponent : %d\n",tmp_uint16 );
|
|
832
|
printf("exp for S33 exponent : %u\n",exp);
|
|
800
|
printf("*pt_u_short_int for S33 exponent + significand : %.3d or %x\n",*pt_u_short_int, *pt_u_short_int);
|
|
833
|
printf("pt_uint8[1] for S33 exponent + significand : %.3d or %2x\n",pt_uint8[1], pt_uint8[1]);
|
|
801
|
printf("lfr_bp2[i*NB_BYTES_BP2+5] : %.3d or %x\n",lfr_bp2[i*NB_BYTES_BP2+5], lfr_bp2[i*NB_BYTES_BP2+5]);
|
|
834
|
printf("pt_uint8[0] for S33 exponent + significand : %.3d or %2x\n",pt_uint8[0], pt_uint8[0]);
|
|
802
|
printf("lfr_bp2[i*NB_BYTES_BP2+4] : %.3d or %x\n",lfr_bp2[i*NB_BYTES_BP2+4], lfr_bp2[i*NB_BYTES_BP2+4]);
|
|
835
|
printf("lfr_bp2[i*NB_BYTES_BP2+5] : %3u or %2x\n",lfr_bp2[i*NB_BYTES_BP2+5], lfr_bp2[i*NB_BYTES_BP2+5]);
|
|
|
|
|
836
|
printf("lfr_bp2[i*NB_BYTES_BP2+4] : %3u or %2x\n",lfr_bp2[i*NB_BYTES_BP2+4], lfr_bp2[i*NB_BYTES_BP2+4]);
|
|
803
|
#endif
|
|
837
|
#endif
|
|
804
|
// S44
|
|
838
|
// S44
|
|
805
|
significand = frexpf(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+21], &exponent); // 0.5 <= significand < 1
|
|
839
|
significand = frexpf(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+21], &exponent); // 0.5 <= significand < 1
|
|
806
|
// S44 = significand * 2^exponent
|
|
840
|
// S44 = significand * 2^exponent
|
|
807
|
#ifdef DEBUG_TCH
|
|
841
|
#ifdef DEBUG_TCH
|
|
808
|
printf("S44 : %16.8e\n",compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+21]);
|
|
842
|
printf("S44 : %16.8e\n",compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+21]);
|
|
809
|
printf("significand : %16.8e\n",significand);
|
|
843
|
printf("significand : %16.8e\n",significand);
|
|
@@
-818,30
+852,38
void BP2_set( float * compressed_spec_ma
|
|
818
|
exponent = expmax;
|
|
852
|
exponent = expmax;
|
|
819
|
significand = 1.0; // max value that can be recorded
|
|
853
|
significand = 1.0; // max value that can be recorded
|
|
820
|
}
|
|
854
|
}
|
|
821
|
if (significand == 0) {// in that case exponent == 0 too
|
|
855
|
if (significand == 0) { // in that case exponent == 0 too
|
|
822
|
exponent = expmin;
|
|
856
|
exponent = expmin;
|
|
823
|
significand = 0.5; // min value that can be recorded
|
|
857
|
significand = 0.5; // min value that can be recorded
|
|
824
|
}
|
|
858
|
}
|
|
825
|
|
|
859
|
|
|
826
|
autocor = (uint16_t) ((significand*2-1)*rangesig + 0.5); // Shift and cast into a 16-bit unsigned int with rounding
|
|
860
|
autocor = (uint16_t) ((significand*2-1)*rangesig + 0.5); // Shift and cast into a 16-bit unsigned int with rounding
|
|
827
|
// where just the first nbitsig bits are used (0, ..., 2^nbitsig-1)
|
|
861
|
// where just the first nbitsig bits are used (0, ..., 2^nbitsig-1)
|
|
828
|
tmp_uint16 = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int
|
|
862
|
exp = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int where just
|
|
829
|
// where just the first nbitexp bits are used (0, ..., 2^nbitexp-1)
|
|
863
|
// the first nbitexp bits are used (0, ..., 2^nbitexp-1)
|
|
830
|
pt_u_short_int = (uint16_t*) &lfr_bp2[i*NB_BYTES_BP2+6]; // Affect an uint16_t pointer with the
|
|
864
|
tmp_uint16 = autocor | (exp << nbitsig); // Put the exponent bits (nbitexp) next to the
|
|
831
|
// adress where the 16-bit word result will be stored
|
|
865
|
// left place of the significand bits (nbitsig),
|
|
832
|
*pt_u_short_int = autocor | (tmp_uint16 << nbitsig); // Put the exponent bits (nbitexp) next to the
|
|
866
|
// making the 16-bit word to be recorded
|
|
833
|
// left place of the significand bits (nbitsig), making
|
|
867
|
pt_uint8 = (uint8_t*) &tmp_uint16; // Affect an uint8_t pointer with the adress of tmp_uint16
|
|
834
|
// the 16-bit word to be recorded, and record it using the pointer
|
|
868
|
#ifdef LSB_FIRST_TCH
|
|
|
|
|
869
|
lfr_bp2[i*NB_BYTES_BP2+6] = pt_uint8[0]; // Record LSB of tmp_uint16
|
|
|
|
|
870
|
lfr_bp2[i*NB_BYTES_BP2+7] = pt_uint8[1]; // Record MSB of tmp_uint16
|
|
|
|
|
871
|
#endif
|
|
|
|
|
872
|
#ifdef MSB_FIRST_TCH
|
|
|
|
|
873
|
lfr_bp2[i*NB_BYTES_BP2+6] = pt_uint8[1]; // Record LSB of tmp_uint16
|
|
|
|
|
874
|
lfr_bp2[i*NB_BYTES_BP2+7] = pt_uint8[0]; // Record MSB of tmp_uint16
|
|
|
|
|
875
|
#endif
|
|
835
|
#ifdef DEBUG_TCH
|
|
876
|
#ifdef DEBUG_TCH
|
|
836
|
printf("autocor for S44 significand : %d\n",autocor );
|
|
877
|
printf("autocor for S44 significand : %u\n",autocor);
|
|
837
|
printf("tmp_uint8 for S44 exponent : %d\n",tmp_uint16 );
|
|
878
|
printf("exp for S44 exponent : %u\n",exp);
|
|
838
|
printf("*pt_u_short_int for S44 exponent + significand : %.3d or %x\n",*pt_u_short_int, *pt_u_short_int);
|
|
879
|
printf("pt_uint8[1] for S44 exponent + significand : %.3d or %2x\n",pt_uint8[1], pt_uint8[1]);
|
|
839
|
printf("lfr_bp2[i*NB_BYTES_BP2+7] : %.3d or %x\n",lfr_bp2[i*NB_BYTES_BP2+7], lfr_bp2[i*NB_BYTES_BP2+7]);
|
|
880
|
printf("pt_uint8[0] for S44 exponent + significand : %.3d or %2x\n",pt_uint8[0], pt_uint8[0]);
|
|
840
|
printf("lfr_bp2[i*NB_BYTES_BP2+6] : %.3d or %x\n",lfr_bp2[i*NB_BYTES_BP2+6], lfr_bp2[i*NB_BYTES_BP2+6]);
|
|
881
|
printf("lfr_bp2[i*NB_BYTES_BP2+7] : %3u or %2x\n",lfr_bp2[i*NB_BYTES_BP2+7], lfr_bp2[i*NB_BYTES_BP2+7]);
|
|
|
|
|
882
|
printf("lfr_bp2[i*NB_BYTES_BP2+6] : %3u or %2x\n",lfr_bp2[i*NB_BYTES_BP2+6], lfr_bp2[i*NB_BYTES_BP2+6]);
|
|
841
|
#endif
|
|
883
|
#endif
|
|
842
|
// S55
|
|
884
|
// S55
|
|
843
|
significand = frexpf(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+24], &exponent); // 0.5 <= significand < 1
|
|
885
|
significand = frexpf(compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+24], &exponent); // 0.5 <= significand < 1
|
|
844
|
// S55 = significand * 2^exponent
|
|
886
|
// S55 = significand * 2^exponent
|
|
845
|
#ifdef DEBUG_TCH
|
|
887
|
#ifdef DEBUG_TCH
|
|
846
|
printf("S55 : %16.8e\n",compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+24]);
|
|
888
|
printf("S55 : %16.8e\n",compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+24]);
|
|
847
|
printf("significand : %16.8e\n",significand);
|
|
889
|
printf("significand : %16.8e\n",significand);
|
|
@@
-855,26
+897,34
void BP2_set( float * compressed_spec_ma
|
|
855
|
exponent = expmax;
|
|
897
|
exponent = expmax;
|
|
856
|
significand = 1.0; // max value that can be recorded
|
|
898
|
significand = 1.0; // max value that can be recorded
|
|
857
|
}
|
|
899
|
}
|
|
858
|
if (significand == 0) {// in that case exponent == 0 too
|
|
900
|
if (significand == 0) { // in that case exponent == 0 too
|
|
859
|
exponent = expmin;
|
|
901
|
exponent = expmin;
|
|
860
|
significand = 0.5; // min value that can be recorded
|
|
902
|
significand = 0.5; // min value that can be recorded
|
|
861
|
}
|
|
903
|
}
|
|
862
|
|
|
904
|
|
|
863
|
autocor = (uint16_t) ((significand*2-1)*rangesig + 0.5); // Shift and cast into a 16-bit unsigned int with rounding
|
|
905
|
autocor = (uint16_t) ((significand*2-1)*rangesig + 0.5); // Shift and cast into a 16-bit unsigned int with rounding
|
|
864
|
// where just the first nbitsig bits are used (0, ..., 2^nbitsig-1)
|
|
906
|
// where just the first nbitsig bits are used (0, ..., 2^nbitsig-1)
|
|
865
|
tmp_uint16 = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int
|
|
907
|
exp = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int where just
|
|
866
|
// where just the first nbitexp bits are used (0, ..., 2^nbitexp-1)
|
|
908
|
// the first nbitexp bits are used (0, ..., 2^nbitexp-1)
|
|
867
|
pt_u_short_int = (uint16_t*) &lfr_bp2[i*NB_BYTES_BP2+8]; // Affect an uint16_t pointer with the
|
|
909
|
tmp_uint16 = autocor | (exp << nbitsig); // Put the exponent bits (nbitexp) next to the
|
|
868
|
// adress where the 16-bit word result will be stored
|
|
910
|
// left place of the significand bits (nbitsig),
|
|
869
|
*pt_u_short_int = autocor | (tmp_uint16 << nbitsig); // Put the exponent bits (nbitexp) next to the
|
|
911
|
// making the 16-bit word to be recorded
|
|
870
|
// left place of the significand bits (nbitsig), making
|
|
912
|
pt_uint8 = (uint8_t*) &tmp_uint16; // Affect an uint8_t pointer with the adress of tmp_uint16
|
|
871
|
// the 16-bit word to be recorded, and record it using the pointer
|
|
913
|
#ifdef LSB_FIRST_TCH
|
|
|
|
|
914
|
lfr_bp2[i*NB_BYTES_BP2+8] = pt_uint8[0]; // Record LSB of tmp_uint16
|
|
|
|
|
915
|
lfr_bp2[i*NB_BYTES_BP2+9] = pt_uint8[1]; // Record MSB of tmp_uint16
|
|
|
|
|
916
|
#endif
|
|
|
|
|
917
|
#ifdef MSB_FIRST_TCH
|
|
|
|
|
918
|
lfr_bp2[i*NB_BYTES_BP2+8] = pt_uint8[1]; // Record LSB of tmp_uint16
|
|
|
|
|
919
|
lfr_bp2[i*NB_BYTES_BP2+9] = pt_uint8[0]; // Record MSB of tmp_uint16
|
|
|
|
|
920
|
#endif
|
|
872
|
#ifdef DEBUG_TCH
|
|
921
|
#ifdef DEBUG_TCH
|
|
873
|
printf("autocor for S55 significand : %d\n",autocor );
|
|
922
|
printf("autocor for S55 significand : %u\n",autocor);
|
|
874
|
printf("tmp_uint8 for S55 exponent : %d\n",tmp_uint16 );
|
|
923
|
printf("exp for S55 exponent : %u\n",exp);
|
|
875
|
printf("*pt_u_short_int for S55 exponent + significand : %.3d or %x\n",*pt_u_short_int, *pt_u_short_int);
|
|
924
|
printf("pt_uint8[1] for S55 exponent + significand : %.3d or %2x\n",pt_uint8[1], pt_uint8[1]);
|
|
876
|
printf("lfr_bp2[i*NB_BYTES_BP2+9] : %.3d or %x\n",lfr_bp2[i*NB_BYTES_BP2+9], lfr_bp2[i*NB_BYTES_BP2+9]);
|
|
925
|
printf("pt_uint8[0] for S55 exponent + significand : %.3d or %2x\n",pt_uint8[0], pt_uint8[0]);
|
|
877
|
printf("lfr_bp2[i*NB_BYTES_BP2+8] : %.3d or %x\n",lfr_bp2[i*NB_BYTES_BP2+8], lfr_bp2[i*NB_BYTES_BP2+8]);
|
|
926
|
printf("lfr_bp2[i*NB_BYTES_BP2+9] : %3u or %2x\n",lfr_bp2[i*NB_BYTES_BP2+9], lfr_bp2[i*NB_BYTES_BP2+9]);
|
|
|
|
|
927
|
printf("lfr_bp2[i*NB_BYTES_BP2+8] : %3u or %2x\n",lfr_bp2[i*NB_BYTES_BP2+8], lfr_bp2[i*NB_BYTES_BP2+8]);
|
|
878
|
#endif
|
|
928
|
#endif
|
|
879
|
}
|
|
929
|
}
|
|
880
|
}
|
|
930
|
}
|