##// END OF EJS Templates
HG_REPOSITORIES » LPP » INSTRUMENTATION » USERS » CHUST » LFR_basic-parameters
RSS

Fork of HG_REPOSITORIES/LPP/INSTRUMENTATION/SOLO_LFR/LFR_basic-parameters

modification fonction lecture_file_sm()
modification fonction lecture_file_sm()
thomas - - Load All Authors

File last commit:

r0:f328b9239ea0 default
r1:323f9b4b5db0 default
Show More
basic_parameters_1_ICD_issue1rev6_V1.c
625 lines | 39.1 KiB | text/x-c | CLexer
/ basic_parameters_1_ICD_issue1rev6_V1.c
History | Annotation | Raw |Copy content |Copy permalink
#include "basic_parameters_1_ICD_issue1rev6.h"
#include <math.h>
#include <stdio.h>
float k44_pe = 1;
float k55_pe = 1;
float k45_pe_re = 1;
float k45_pe_im = 1;
float k14_sx_re = 1;
float k14_sx_im = 1;
float k15_sx_re = 1;
float k15_sx_im = 1;
float k24_sx_re = 1;
float k24_sx_im = 1;
float k25_sx_re = 1;
float k25_sx_im = 1;
float k34_sx_re = 1;
float k34_sx_im = 1;
float k35_sx_re = 1;
float k35_sx_im = 1;
float k24_ny_re = 1;
float k24_ny_im = 1;
float k25_ny_re = 1;
float k25_ny_im = 1;
float k34_ny_re = 1;
float k34_ny_im = 1;
float k35_ny_re = 1;
float k35_ny_im = 1;
float k24_nz_re = 1;
float k24_nz_im = 1;
float k25_nz_re = 1;
float k25_nz_im = 1;
float k34_nz_re = 1;
float k34_nz_im = 1;
float k35_nz_re = 1;
float k35_nz_im = 1;
float alpha_M = 45;
void BP1_set(){
int i, j;
unsigned char tmp_u_char;
unsigned char *pt_u_char;
float significand;
int exponent;
float PSDB, PSDE;
float NVEC_V0, NVEC_V1, NVEC_V2;
float aux, tr_SB_SB, tmp;
float e_cross_b_re, e_cross_b_im;
float n_cross_e_scal_b_re = 0, n_cross_e_scal_b_im = 0;
float nx = 0, ny = 0;
float bz_bz_star = 0;
unsigned char toto_u_char;
unsigned char *pt_toto_u_char;
signed char toto_s_char;
float toto_f;
FILE *infile;
infile = fopen("sm_test1.dat", "rb"); // open explicitely a binary file !!! ...
if(infile == NULL) {
printf("Hello I cannot open the file!\n");
return 0;
}
(void) fread(compressed_spectral_matrix_f0, sizeof(compressed_spectral_matrix_f0), 1, infile);
(void) fclose(infile);
//printf("size of compressed_spectral_matrix_f0 : %d\n", sizeof(compressed_spectral_matrix_f0));
printf("compressed_spectral_matrix_f0 : \n");
for (i = 0; i < 15; i++) {
printf("Element number %.2d (%.2d & %.2d) => Re:%16.8e Im:%16.8e\n", i+1, 2*i, 2*i+1,
compressed_spectral_matrix_f0[2*i],
compressed_spectral_matrix_f0[2*i+1]);
}
printf("Number of bins: %d\n", NB_BINS_COMPRESSED_MATRIX_f0);
printf("BP1 : \n");
for(i=0; i<1; i++){
//==============================================
// BP1 PSD == B PAR_LFR_SC_BP1_PB_F0 == 12 bits = 5 bits (exponent) + 7 bits (significand)
PSDB = compressed_spectral_matrix_f0[i*30] // S11
+ compressed_spectral_matrix_f0[i*30+10] // S22
+ compressed_spectral_matrix_f0[i*30+18]; // S33
significand = frexpf(PSDB/3, &exponent); // 0.5 <= significand < 1
// PSDB = significand * 2^exponent
// the division by 3 is to ensure that max value <= 2^30
printf("PSDB : %16.8e\n",PSDB);
printf("significand : %16.8e\n",significand);
printf("exponent : %d\n" ,exponent);
if (exponent < 0) { // value is >= 0.5 * 2^0 (min value included)
exponent = 0;
significand = 0.5; // min value that can be recorded
}
if (exponent > 31) { // value is < 1.0 * 2^31 (max value excluded)
exponent = 31;
significand = 0.999; // max value that can be recorded
// (a minimum of 3 decimal is important !...)
}
if (significand == 0) {// in that case exponent == 0 too
significand = 0.5; // min value that can be recorded
}
LFR_BP1_F0[i*9+8] = (unsigned char) (significand*256 -128); // shift and cast into a 8-bit unsigned char
// where just the first 7 bits are used (0, ..., 127)
LFR_BP1_F0[i*9+7] = (unsigned char) exponent; // shift and cast into a 8-bit unsigned char
// where just the first 5 bits are used (0, ..., 31)
printf("LFR_BP1_F0[i*9+8] for PSDB significand : %u\n",LFR_BP1_F0[i*9+8]);
printf("LFR_BP1_F0[i*9+7] for PSDB exponent : %u\n",LFR_BP1_F0[i*9+7]);
//toto_f = 32768*32768; // max value ?
//significand = frexp(toto_f, &exponent);
//printf("toto_f : %16.8e\n",toto_f);
//printf("significand : %16.8e\n",significand);
//printf("exponent : %d\n" ,exponent);
//==============================================
// BP1 PSD == E PAR_LFR_SC_BP1_PE_F0 == 12 bits = 5 bits (exponent) + 7 bits (significand)
PSDE = compressed_spectral_matrix_f0[i*30+24] * k44_pe // S44
+ compressed_spectral_matrix_f0[i*30+28] * k55_pe // S55
+ compressed_spectral_matrix_f0[i*30+26] * k45_pe_re // S45 Re
- compressed_spectral_matrix_f0[i*30+27] * k45_pe_im; // S45 Im
significand = frexpf(PSDE/2, &exponent); // 0.5 <= significand < 1
// PSDE = significand * 2^exponent
// the division by 2 is to ensure that max value < 2^31
printf("PSDE : %16.8e\n",PSDE);
printf("significand : %16.8e\n",significand);
printf("exponent : %d\n" ,exponent);
if (exponent < 0) { // value is >= 0.5 * 2^0 (min value included)
exponent = 0;
significand = 0.5; // min value that can be recorded
}
if (exponent > 31) { // value is < 1.0 * 2^31 (max value excluded)
exponent = 31;
significand = 0.999; // max value that can be recorded
// (a minimum of 3 decimal is important !...)
}
if (significand == 0) {// in that case exponent == 0 too
significand = 0.5; // min value that can be recorded
}
LFR_BP1_F0[i*9+6] = (unsigned char) (significand*256 -128); // shift and cast into a 8-bit unsigned char
// where just the first 7 bits are used (0, ..., 127)
LFR_BP1_F0[i*9+5] = (unsigned char) exponent; // shift and cast into a 8-bit unsigned char
// where just the first 5 bits are used (0, ..., 31)
printf("LFR_BP1_F0[i*9+6] for PSDE significand : %u\n",LFR_BP1_F0[i*9+6]);
printf("LFR_BP1_F0[i*9+5] for PSDE exponent : %u\n",LFR_BP1_F0[i*9+5]);
//toto_f = 1./3; // min value ?
//significand = frexp(toto_f, &exponent);
//printf("toto_f : %16.8e\n",toto_f);
//printf("significand : %16.8e\n",significand);
//printf("exponent : %d\n" ,exponent);
//==============================================================================
// BP1 normal wave vector == PAR_LFR_SC_BP1_NVEC_V0_F0 == 8 bits
// == PAR_LFR_SC_BP1_NVEC_V1_F0 == 8 bits
// == PAR_LFR_SC_BP1_NVEC_V2_F0 == 1 sign bit
tmp = sqrt( compressed_spectral_matrix_f0[i*30+3] *compressed_spectral_matrix_f0[i*30+3] //Im S12
+compressed_spectral_matrix_f0[i*30+5] *compressed_spectral_matrix_f0[i*30+5] //Im S13
+compressed_spectral_matrix_f0[i*30+13]*compressed_spectral_matrix_f0[i*30+13] //Im S23
);
NVEC_V0 = compressed_spectral_matrix_f0[i*30+13]/ tmp; // Im S23
NVEC_V1 = -compressed_spectral_matrix_f0[i*30+5] / tmp; // Im S13
NVEC_V2 = compressed_spectral_matrix_f0[i*30+3] / tmp; // Im S12
printf("NVEC_V0 : %16.8e\n",NVEC_V0);
printf("NVEC_V1 : %16.8e\n",NVEC_V1);
printf("NVEC_V2 : %16.8e\n",NVEC_V2);
LFR_BP1_F0[i*9+4] = (unsigned char) (NVEC_V0*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
LFR_BP1_F0[i*9+3] = (unsigned char) (NVEC_V1*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
pt_u_char = (unsigned char*) &NVEC_V2; // affect an unsigned char pointer with the adress of NVEC_V2
LFR_BP1_F0[i*9+2] = pt_u_char[3] & 0x80; // extract the sign bit of NVEC_V2 (32-bit float, sign bit in the 4th octet)
// record it at the 8th bit position of LFR_BP1_F0[i*9+2]
printf("LFR_BP1_F0[i*9+4] for NVEC_V0 : %u\n",LFR_BP1_F0[i*9+4]);
printf("LFR_BP1_F0[i*9+3] for NVEC_V1 : %u\n",LFR_BP1_F0[i*9+3]);
printf("LFR_BP1_F0[i*9+2] for NVEC_V2 : %u\n",LFR_BP1_F0[i*9+2]);
//toto_f = 128.9999 ;
//toto_s_char = (signed char) toto_f;
//printf("toto_s_char : %d\n",toto_s_char);
//toto_f = 255.999 ;
//toto_u_char = (unsigned char) (toto_f);
//printf("toto_u_char : %d\n",toto_u_char);
//toto_f = -1110.999 ;
//pt_toto_u_char = (unsigned char*) &toto_f;
//printf("pt_toto_u_char : %u\n", pt_toto_u_char[3] & 0x80);
//=======================================================
// BP1 ellipticity == PAR_LFR_SC_BP1_ELLIP_F0 == 4 bits
aux = 2*tmp / PSDB; // compute the ellipticity
printf("ellipticity : %16.8e\n",aux);
tmp_u_char = (unsigned char) (aux*15.999);// shift and cast into a 8-bit unsigned char
// where just the first 4 bits are used (0, ..., 15)
LFR_BP1_F0[i*9+2] = LFR_BP1_F0[i*9+2] | (tmp_u_char << 3); // put these 4 bits next to the right place
// of the sign bit of NVEC_V2 (recorded
// previously in LFR_BP1_F0[i*9+2])
printf("tmp_u_char for ellipticity : %u\n",tmp_u_char);
printf("LFR_BP1_F0[i*9+2] for NVEC_V2 + ellipticity : %u\n",LFR_BP1_F0[i*9+2]);
//==============================================================
// BP1 degree of polarization == PAR_LFR_SC_BP1_DOP_F0 == 3 bits
tr_SB_SB = compressed_spectral_matrix_f0[i*30] *compressed_spectral_matrix_f0[i*30]
+ compressed_spectral_matrix_f0[i*30+10]*compressed_spectral_matrix_f0[i*30+10]
+ compressed_spectral_matrix_f0[i*30+18]*compressed_spectral_matrix_f0[i*30+18]
+ 2 * compressed_spectral_matrix_f0[i*30+2] *compressed_spectral_matrix_f0[i*30+2]
+ 2 * compressed_spectral_matrix_f0[i*30+3] *compressed_spectral_matrix_f0[i*30+3]
+ 2 * compressed_spectral_matrix_f0[i*30+4] *compressed_spectral_matrix_f0[i*30+4]
+ 2 * compressed_spectral_matrix_f0[i*30+5] *compressed_spectral_matrix_f0[i*30+5]
+ 2 * compressed_spectral_matrix_f0[i*30+12]*compressed_spectral_matrix_f0[i*30+12]
+ 2 * compressed_spectral_matrix_f0[i*30+13]*compressed_spectral_matrix_f0[i*30+13];
aux = PSDB*PSDB; // compute the degree of polarisation
tmp = ( 3*tr_SB_SB - aux ) / ( 2 * aux );
printf("DOP : %16.8e\n",tmp);
tmp_u_char = (unsigned char) (tmp*7.999);// shift and cast into a 8-bit unsigned char
// where just the first 3 bits are used (0, ..., 7)
LFR_BP1_F0[i*9+2] = LFR_BP1_F0[i*9+2] | tmp_u_char; // record these 3 bits at the 3 first
// bit positions of LFR_BP1_F0[i*9+2]
printf("tmp_u_char for DOP : %u\n",tmp_u_char);
printf("LFR_BP1_F0[i*9+2] for NVEC_V2 + ellipticity + DOP : %u\n",LFR_BP1_F0[i*9+2]);
//=======================================================================================
// BP1 X_SO-component of the Poynting flux == PAR_LFR_SC_BP1_SX_F0 == 12 bits
// = 5 bits (exponent) + 5 bits (significand)
// + 1 sign bit + 1 argument bit (two sectors)
e_cross_b_re = compressed_spectral_matrix_f0[i*30+20]*k34_sx_re
+ compressed_spectral_matrix_f0[i*30+22]*k35_sx_re
+ compressed_spectral_matrix_f0[i*30+6] *k14_sx_re
+ compressed_spectral_matrix_f0[i*30+8] *k15_sx_re
+ compressed_spectral_matrix_f0[i*30+14]*k24_sx_re
+ compressed_spectral_matrix_f0[i*30+16]*k25_sx_re
+ compressed_spectral_matrix_f0[i*30+21]*k34_sx_im
+ compressed_spectral_matrix_f0[i*30+23]*k35_sx_im
+ compressed_spectral_matrix_f0[i*30+7] *k14_sx_im
+ compressed_spectral_matrix_f0[i*30+9] *k15_sx_im
+ compressed_spectral_matrix_f0[i*30+15]*k24_sx_im
+ compressed_spectral_matrix_f0[i*30+17]*k25_sx_im;
// Im(S_ji) = -Im(S_ij)
// k_ji = k_ij
e_cross_b_im = compressed_spectral_matrix_f0[i*30+20]*k34_sx_im
+ compressed_spectral_matrix_f0[i*30+22]*k35_sx_im
+ compressed_spectral_matrix_f0[i*30+6] *k14_sx_im
+ compressed_spectral_matrix_f0[i*30+8] *k15_sx_im
+ compressed_spectral_matrix_f0[i*30+14]*k24_sx_im
+ compressed_spectral_matrix_f0[i*30+16]*k25_sx_im
- compressed_spectral_matrix_f0[i*30+21]*k34_sx_re
- compressed_spectral_matrix_f0[i*30+23]*k35_sx_re
- compressed_spectral_matrix_f0[i*30+7] *k14_sx_re
- compressed_spectral_matrix_f0[i*30+9] *k15_sx_re
- compressed_spectral_matrix_f0[i*30+15]*k24_sx_re
- compressed_spectral_matrix_f0[i*30+17]*k25_sx_re;
printf("ReaSX : %16.8e\n",e_cross_b_re);
pt_u_char = (unsigned char*) &e_cross_b_re; // affect an unsigned char pointer with the adress of e_cross_b_re
//LFR_BP1_F0[i*9+7] = LFR_BP1_F0[i*9+7] | (pt_u_char[3] & 0x80); // extract the sign bit of e_cross_b_re (32-bit float, sign bit in the 4th octet)
// record it at the 8th bit position of LFR_BP1_F0[i*9+7]
pt_u_char[3] = pt_u_char[3] & 0x7f; // make e_cross_b_re be positive in any case: |ReaSX|
significand = frexpf(e_cross_b_re, &exponent);
printf("|ReaSX| : %16.8e\n",e_cross_b_re);
printf("significand : %16.8e\n",significand);
printf("exponent : %d\n" ,exponent);
//printf("LFR_BP1_F0[i*9+7] for PSDB exponent + ReaSX sign : %u\n",LFR_BP1_F0[i*9+7]);
LFR_BP1_F0[i*9+1] = (unsigned char) (significand*64 -32); // shift and cast into a 8-bit unsigned char
// where just the first 5 bits are used (0, ..., 31)
LFR_BP1_F0[i*9+1] = (unsigned char) exponent+28; // shift and cast into a 8-bit unsigned char
// where just the first 6 bits are used (0, ..., 63)
// à réfléchir ...
// tmp = e_cross_b_re * e_cross_b_im;
// pt_char = (unsigned char*) &tmp;
// LFR_BP1_F0[i*9+1] = LFR_BP1_F0[i*9+1] | (pt_char[0] & 0x80); // extract the sign of ArgSz
printf("ImaSX : %16.8e\n",e_cross_b_im);
pt_u_char = (unsigned char*) &e_cross_b_im; // affect an unsigned char pointer with the adress of e_cross_b_im
pt_u_char[3] = pt_u_char[3] & 0x7f; // make e_cross_b_im be positive in any case: |ImaSX|
tmp_u_char = (e_cross_b_im > e_cross_b_re) ? 0x40 : 0x00; // determine the sector argument of SX
//LFR_BP1_F0[i*9+7] = LFR_BP1_F0[i*9+7] | tmp_u_char; // record it as a sign bit at the 7th bit position of LFR_BP1_F0[i*9+7]
printf("|ImaSX| : %16.8e\n",e_cross_b_im);
printf("argSX sign : %d\n",tmp_u_char);
//printf("LFR_BP1_F0[i*9+7] for PSDB exponent + ReaSX sign + argSX sign: %u\n",LFR_BP1_F0[i*9+7]);
//======================================================================
//======================================================================
}
}
void BP2_set(){
int i, exponent;
float aux, significand, cross_re, cross_im;
signed char nbitexp, nbitsig, expmin, expmax; // 8 bits
short int rangesig; // 16 bits
unsigned short int autocor, tmp_u_short_int; // 16 bits
unsigned short int *pt_u_short_int; // pointer on unsigned 16-bit words
printf("Number of bins: %d\n", NB_BINS_COMPRESSED_MATRIX_f0);
printf("BP2 : \n");
// For floating point data to be recorded on 16-bit words :
nbitexp = 6; // number of bits for the exponent
nbitsig = 16 - nbitexp; // number of bits for the significand
rangesig = (1 << nbitsig)-1; // == 2^nbitsig - 1
printf("nbitexp : %d, nbitsig : %d, rangesig : %d\n", nbitexp, nbitsig, rangesig);
expmax = 32;
expmin = expmax - (1 << nbitexp) + 1;
printf("expmin : %d, expmax : %d\n", expmin, expmax);
for(i = 0; i<1; i++){
//==============================================
// BP2 normalized cross correlations == PA_LFR_SC_BP2_CROSS_F0 == 10 * (8+8) bits
// == PA_LFR_SC_BP2_CROSS_RE_0_F0 == 8 bits
// == PA_LFR_SC_BP2_CROSS_IM_0_F0 == 8 bits
// == PA_LFR_SC_BP2_CROSS_RE_1_F0 == 8 bits
// == PA_LFR_SC_BP2_CROSS_IM_1_F0 == 8 bits
// == PA_LFR_SC_BP2_CROSS_RE_2_F0 == 8 bits
// == PA_LFR_SC_BP2_CROSS_IM_2_F0 == 8 bits
// == PA_LFR_SC_BP2_CROSS_RE_3_F0 == 8 bits
// == PA_LFR_SC_BP2_CROSS_IM_3_F0 == 8 bits
// == PA_LFR_SC_BP2_CROSS_RE_4_F0 == 8 bits
// == PA_LFR_SC_BP2_CROSS_IM_4_F0 == 8 bits
// == PA_LFR_SC_BP2_CROSS_RE_5_F0 == 8 bits
// == PA_LFR_SC_BP2_CROSS_IM_5_F0 == 8 bits
// == PA_LFR_SC_BP2_CROSS_RE_6_F0 == 8 bits
// == PA_LFR_SC_BP2_CROSS_IM_6_F0 == 8 bits
// == PA_LFR_SC_BP2_CROSS_RE_7_F0 == 8 bits
// == PA_LFR_SC_BP2_CROSS_IM_7_F0 == 8 bits
// == PA_LFR_SC_BP2_CROSS_RE_8_F0 == 8 bits
// == PA_LFR_SC_BP2_CROSS_IM_8_F0 == 8 bits
// == PA_LFR_SC_BP2_CROSS_RE_9_F0 == 8 bits
// == PA_LFR_SC_BP2_CROSS_IM_9_F0 == 8 bits
// S12
aux = sqrt(compressed_spectral_matrix_f0[i*30]*compressed_spectral_matrix_f0[i*30+10]);
cross_re = compressed_spectral_matrix_f0[i*30+2] / aux;
cross_im = compressed_spectral_matrix_f0[i*30+3] / aux;
LFR_BP2_F0[i*30+19] = (unsigned char) (cross_re*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
LFR_BP2_F0[i*30+9] = (unsigned char) (cross_im*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
printf("LFR_BP2_F0[i*30+19] for cross12_re (%16.8e) : %u\n",cross_re, LFR_BP2_F0[i*30+19]);
printf("LFR_BP2_F0[i*30+9] for cross12_im (%16.8e) : %u\n",cross_im, LFR_BP2_F0[i*30+9]);
// S13
aux = sqrt(compressed_spectral_matrix_f0[i*30]*compressed_spectral_matrix_f0[i*30+18]);
cross_re = compressed_spectral_matrix_f0[i*30+4] / aux;
cross_im = compressed_spectral_matrix_f0[i*30+5] / aux;
LFR_BP2_F0[i*30+18] = (unsigned char) (cross_re*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
LFR_BP2_F0[i*30+8] = (unsigned char) (cross_im*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
printf("LFR_BP2_F0[i*30+18] for cross13_re (%16.8e) : %u\n",cross_re, LFR_BP2_F0[i*30+18]);
printf("LFR_BP2_F0[i*30+8] for cross13_im (%16.8e) : %u\n",cross_im, LFR_BP2_F0[i*30+8]);
// S14
aux = sqrt(compressed_spectral_matrix_f0[i*30]*compressed_spectral_matrix_f0[i*30+24]);
cross_re = compressed_spectral_matrix_f0[i*30+6] / aux;
cross_im = compressed_spectral_matrix_f0[i*30+7] / aux;
LFR_BP2_F0[i*30+17] = (unsigned char) (cross_re*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
LFR_BP2_F0[i*30+7] = (unsigned char) (cross_im*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
printf("LFR_BP2_F0[i*30+17] for cross14_re (%16.8e) : %u\n",cross_re, LFR_BP2_F0[i*30+17]);
printf("LFR_BP2_F0[i*30+7] for cross14_im (%16.8e) : %u\n",cross_im, LFR_BP2_F0[i*30+7]);
// S15
aux = sqrt(compressed_spectral_matrix_f0[i*30]*compressed_spectral_matrix_f0[i*30+28]);
cross_re = compressed_spectral_matrix_f0[i*30+8] / aux;
cross_im = compressed_spectral_matrix_f0[i*30+9] / aux;
LFR_BP2_F0[i*30+16] = (unsigned char) (cross_re*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
LFR_BP2_F0[i*30+6] = (unsigned char) (cross_im*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
printf("LFR_BP2_F0[i*30+16] for cross15_re (%16.8e) : %u\n",cross_re, LFR_BP2_F0[i*30+16]);
printf("LFR_BP2_F0[i*30+6] for cross15_im (%16.8e) : %u\n",cross_im, LFR_BP2_F0[i*30+6]);
// S23
aux = sqrt(compressed_spectral_matrix_f0[i*30+10]*compressed_spectral_matrix_f0[i*30+18]);
cross_re = compressed_spectral_matrix_f0[i*30+12] / aux;
cross_im = compressed_spectral_matrix_f0[i*30+13] / aux;
LFR_BP2_F0[i*30+15] = (unsigned char) (cross_re*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
LFR_BP2_F0[i*30+5] = (unsigned char) (cross_im*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
printf("LFR_BP2_F0[i*30+15] for cross23_re (%16.8e) : %u\n",cross_re, LFR_BP2_F0[i*30+15]);
printf("LFR_BP2_F0[i*30+5] for cross23_im (%16.8e) : %u\n",cross_im, LFR_BP2_F0[i*30+5]);
// S24
aux = sqrt(compressed_spectral_matrix_f0[i*30+10]*compressed_spectral_matrix_f0[i*30+24]);
cross_re = compressed_spectral_matrix_f0[i*30+14] / aux;
cross_im = compressed_spectral_matrix_f0[i*30+15] / aux;
LFR_BP2_F0[i*30+14] = (unsigned char) (cross_re*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
LFR_BP2_F0[i*30+4] = (unsigned char) (cross_im*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
printf("LFR_BP2_F0[i*30+14] for cross24_re (%16.8e) : %u\n",cross_re, LFR_BP2_F0[i*30+14]);
printf("LFR_BP2_F0[i*30+4] for cross24_im (%16.8e) : %u\n",cross_im, LFR_BP2_F0[i*30+4]);
// S25
aux = sqrt(compressed_spectral_matrix_f0[i*30+10]*compressed_spectral_matrix_f0[i*30+28]);
cross_re = compressed_spectral_matrix_f0[i*30+16] / aux;
cross_im = compressed_spectral_matrix_f0[i*30+17] / aux;
LFR_BP2_F0[i*30+13] = (unsigned char) (cross_re*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
LFR_BP2_F0[i*30+3] = (unsigned char) (cross_im*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
printf("LFR_BP2_F0[i*30+13] for cross25_re (%16.8e) : %u\n",cross_re, LFR_BP2_F0[i*30+13]);
printf("LFR_BP2_F0[i*30+3] for cross25_im (%16.8e) : %u\n",cross_im, LFR_BP2_F0[i*30+3]);
// S34
aux = sqrt(compressed_spectral_matrix_f0[i*30+18]*compressed_spectral_matrix_f0[i*30+24]);
cross_re = compressed_spectral_matrix_f0[i*30+20] / aux;
cross_im = compressed_spectral_matrix_f0[i*30+21] / aux;
LFR_BP2_F0[i*30+12] = (unsigned char) (cross_re*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
LFR_BP2_F0[i*30+2] = (unsigned char) (cross_im*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
printf("LFR_BP2_F0[i*30+12] for cross34_re (%16.8e) : %u\n",cross_re, LFR_BP2_F0[i*30+12]);
printf("LFR_BP2_F0[i*30+2] for cross34_im (%16.8e) : %u\n",cross_im, LFR_BP2_F0[i*30+2]);
// S35
aux = sqrt(compressed_spectral_matrix_f0[i*30+18]*compressed_spectral_matrix_f0[i*30+28]);
cross_re = compressed_spectral_matrix_f0[i*30+22] / aux;
cross_im = compressed_spectral_matrix_f0[i*30+23] / aux;
LFR_BP2_F0[i*30+11] = (unsigned char) (cross_re*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
LFR_BP2_F0[i*30+1] = (unsigned char) (cross_im*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
printf("LFR_BP2_F0[i*30+11] for cross35_re (%16.8e) : %u\n",cross_re, LFR_BP2_F0[i*30+11]);
printf("LFR_BP2_F0[i*30+1] for cross35_im (%16.8e) : %u\n",cross_im, LFR_BP2_F0[i*30+1]);
// S45
aux = sqrt(compressed_spectral_matrix_f0[i*30+24]*compressed_spectral_matrix_f0[i*30+28]);
cross_re = compressed_spectral_matrix_f0[i*30+26] / aux;
cross_im = compressed_spectral_matrix_f0[i*30+27] / aux;
LFR_BP2_F0[i*30+10] = (unsigned char) (cross_re*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
LFR_BP2_F0[i*30+0] = (unsigned char) (cross_im*127.5 + 128); // shift and cast into a 8-bit unsigned char (0, ..., 255) with rounding
printf("LFR_BP2_F0[i*30+10] for cross45_re (%16.8e) : %u\n",cross_re, LFR_BP2_F0[i*30+10]);
printf("LFR_BP2_F0[i*30+0] for cross45_im (%16.8e) : %u\n",cross_im, LFR_BP2_F0[i*30+0]);
//==============================================
// BP2 auto correlations == PA_LFR_SC_BP2_AUTO_F0 == 5*16 bits = 5*[6 bits (exponent) + 10 bits (significand)]
// == PA_LFR_SC_BP2_AUTO_A0_F0 == 16 bits
// == PA_LFR_SC_BP2_AUTO_A1_F0 == 16 bits
// == PA_LFR_SC_BP2_AUTO_A2_F0 == 16 bits
// == PA_LFR_SC_BP2_AUTO_A3_F0 == 16 bits
// == PA_LFR_SC_BP2_AUTO_A4_F0 == 16 bits
// S11
significand = frexpf(compressed_spectral_matrix_f0[i*30], &exponent); // 0.5 <= significand < 1
// S11 = significand * 2^exponent
printf("S11 : %16.8e\n",compressed_spectral_matrix_f0[i*30]);
printf("significand : %16.8e\n",significand);
printf("exponent : %d\n" ,exponent);
if (exponent < expmin) { // value should be >= 0.5 * 2^expmin
exponent = expmin;
significand = 0.5; // min value that can be recorded
}
if (exponent > expmax) { // value should be < 0.5 * 2^(expmax+1)
exponent = expmax;
significand = 1.0; // max value that can be recorded
}
if (significand == 0) {// in that case exponent == 0 too
exponent = expmin;
significand = 0.5; // min value that can be recorded
}
autocor = (unsigned short int) ((significand*2-1)*rangesig + 0.5); // shift and cast into a 16-bit unsigned int with rounding
// where just the first nbitsig bits are used (0, ..., 2^nbitsig-1)
tmp_u_short_int = (unsigned short int) (exponent-expmin); // shift and cast into a 16-bit unsigned int
// where just the first nbitexp bits are used (0, ..., 2^nbitexp-1)
pt_u_short_int = (unsigned short int*) &LFR_BP2_F0[i*30+28]; // affect an unsigned short int pointer with the
// adress where the 16-bit word result will be stored
*pt_u_short_int = autocor | (tmp_u_short_int << nbitsig); // put the exponent bits (nbitexp) next to the
// left place of the significand bits (nbitsig), making
// the 16-bit word to be recorded, and record it using the pointer
//printf("size of autocor : %d\n",sizeof(autocor) );
//printf("size of tmp_u_short_int : %d\n",sizeof(tmp_u_short_int) );
printf("autocor for S11 significand : %u\n",autocor );
printf("tmp_u_char for S11 exponent : %u\n",tmp_u_short_int );
printf("*pt_u_short_int for S11 significand + exponent: %u or %x\n",*pt_u_short_int, *pt_u_short_int);
printf("LFR_BP2_F0[i*30+29] : %u or %x\n",LFR_BP2_F0[i*30+29], LFR_BP2_F0[i*30+29]);
printf("LFR_BP2_F0[i*30+28] : %u or %x\n",LFR_BP2_F0[i*30+28], LFR_BP2_F0[i*30+28]);
// S22
significand = frexpf(compressed_spectral_matrix_f0[i*30+10], &exponent); // 0.5 <= significand < 1
// S22 = significand * 2^exponent
printf("S22 : %16.8e\n",compressed_spectral_matrix_f0[i*30+10]);
printf("significand : %16.8e\n",significand);
printf("exponent : %d\n" ,exponent);
if (exponent < expmin) { // value should be >= 0.5 * 2^expmin
exponent = expmin;
significand = 0.5; // min value that can be recorded
}
if (exponent > expmax) { // value should be < 0.5 * 2^(expmax+1)
exponent = expmax;
significand = 1.0; // max value that can be recorded
}
if (significand == 0) {// in that case exponent == 0 too
exponent = expmin;
significand = 0.5; // min value that can be recorded
}
autocor = (unsigned short int) ((significand*2-1)*rangesig + 0.5); // shift and cast into a 16-bit unsigned int with rounding
// where just the first nbitsig bits are used (0, ..., 2^nbitsig-1)
tmp_u_short_int = (unsigned short int) (exponent-expmin); // shift and cast into a 16-bit unsigned int
// where just the first nbitexp bits are used (0, ..., 2^nbitexp-1)
pt_u_short_int = (unsigned short int*) &LFR_BP2_F0[i*30+26]; // affect an unsigned short int pointer with the
// adress where the 16-bit word result will be stored
*pt_u_short_int = autocor | (tmp_u_short_int << nbitsig); // put the exponent bits (nbitexp) next to the
// left place of the significand bits (nbitsig), making
// the 16-bit word to be recorded, and record it using the pointer
printf("autocor for S22 significand : %d\n",autocor );
printf("tmp_u_char for S22 exponent : %d\n",tmp_u_short_int );
printf("*pt_u_short_int for S22 significand + exponent: %d or %x\n",*pt_u_short_int, *pt_u_short_int);
printf("LFR_BP2_F0[i*30+27] : %d or %x\n",LFR_BP2_F0[i*30+27], LFR_BP2_F0[i*30+27]);
printf("LFR_BP2_F0[i*30+26] : %d or %x\n",LFR_BP2_F0[i*30+26], LFR_BP2_F0[i*30+26]);
// S33
significand = frexpf(compressed_spectral_matrix_f0[i*30+18], &exponent); // 0.5 <= significand < 1
// S33 = significand * 2^exponent
printf("S33 : %16.8e\n",compressed_spectral_matrix_f0[i*30+18]);
printf("significand : %16.8e\n",significand);
printf("exponent : %d\n" ,exponent);
if (exponent < expmin) { // value should be >= 0.5 * 2^expmin
exponent = expmin;
significand = 0.5; // min value that can be recorded
}
if (exponent > expmax) { // value should be < 0.5 * 2^(expmax+1)
exponent = expmax;
significand = 1.0; // max value that can be recorded
}
if (significand == 0) {// in that case exponent == 0 too
exponent = expmin;
significand = 0.5; // min value that can be recorded
}
autocor = (unsigned short int) ((significand*2-1)*rangesig + 0.5); // shift and cast into a 16-bit unsigned int with rounding
// where just the first nbitsig bits are used (0, ..., 2^nbitsig-1)
tmp_u_short_int = (unsigned short int) (exponent-expmin); // shift and cast into a 16-bit unsigned int
// where just the first nbitexp bits are used (0, ..., 2^nbitexp-1)
pt_u_short_int = (unsigned short int*) &LFR_BP2_F0[i*30+24]; // affect an unsigned short int pointer with the
// adress where the 16-bit word result will be stored
*pt_u_short_int = autocor | (tmp_u_short_int << nbitsig); // put the exponent bits (nbitexp) next to the
// left place of the significand bits (nbitsig), making
// the 16-bit word to be recorded, and record it using the pointer
printf("autocor for S33 significand : %d\n",autocor );
printf("tmp_u_char for S33 exponent : %d\n",tmp_u_short_int );
printf("*pt_u_short_int for S33 significand + exponent: %d or %x\n",*pt_u_short_int, *pt_u_short_int);
printf("LFR_BP2_F0[i*30+25] : %d or %x\n",LFR_BP2_F0[i*30+25], LFR_BP2_F0[i*30+25]);
printf("LFR_BP2_F0[i*30+24] : %d or %x\n",LFR_BP2_F0[i*30+24], LFR_BP2_F0[i*30+24]);
// S44
significand = frexpf(compressed_spectral_matrix_f0[i*30+24], &exponent); // 0.5 <= significand < 1
// S44 = significand * 2^exponent
printf("S44 : %16.8e\n",compressed_spectral_matrix_f0[i*30+24]);
printf("significand : %16.8e\n",significand);
printf("exponent : %d\n" ,exponent);
if (exponent < expmin) { // value should be >= 0.5 * 2^expmin
exponent = expmin;
significand = 0.5; // min value that can be recorded
}
if (exponent > expmax) { // value should be < 0.5 * 2^(expmax+1)
exponent = expmax;
significand = 1.0; // max value that can be recorded
}
if (significand == 0) {// in that case exponent == 0 too
exponent = expmin;
significand = 0.5; // min value that can be recorded
}
autocor = (unsigned short int) ((significand*2-1)*rangesig + 0.5); // shift and cast into a 16-bit unsigned int with rounding
// where just the first nbitsig bits are used (0, ..., 2^nbitsig-1)
tmp_u_short_int = (unsigned short int) (exponent-expmin); // shift and cast into a 16-bit unsigned int
// where just the first nbitexp bits are used (0, ..., 2^nbitexp-1)
pt_u_short_int = (unsigned short int*) &LFR_BP2_F0[i*30+22]; // affect an unsigned short int pointer with the
// adress where the 16-bit word result will be stored
*pt_u_short_int = autocor | (tmp_u_short_int << nbitsig); // put the exponent bits (nbitexp) next to the
// left place of the significand bits (nbitsig), making
// the 16-bit word to be recorded, and record it using the pointer
printf("autocor for S44 significand : %d\n",autocor );
printf("tmp_u_char for S44 exponent : %d\n",tmp_u_short_int );
printf("*pt_u_short_int for S44 significand + exponent: %d or %x\n",*pt_u_short_int, *pt_u_short_int);
printf("LFR_BP2_F0[i*30+23] : %d or %x\n",LFR_BP2_F0[i*30+23], LFR_BP2_F0[i*30+23]);
printf("LFR_BP2_F0[i*30+22] : %d or %x\n",LFR_BP2_F0[i*30+22], LFR_BP2_F0[i*30+22]);
// S55
significand = frexpf(compressed_spectral_matrix_f0[i*30+28], &exponent); // 0.5 <= significand < 1
// S55 = significand * 2^exponent
printf("S55 : %16.8e\n",compressed_spectral_matrix_f0[i*30+28]);
printf("significand : %16.8e\n",significand);
printf("exponent : %d\n" ,exponent);
if (exponent < expmin) { // value should be >= 0.5 * 2^expmin
exponent = expmin;
significand = 0.5; // min value that can be recorded
}
if (exponent > expmax) { // value should be < 0.5 * 2^(expmax+1)
exponent = expmax;
significand = 1.0; // max value that can be recorded
}
if (significand == 0) {// in that case exponent == 0 too
exponent = expmin;
significand = 0.5; // min value that can be recorded
}
autocor = (unsigned short int) ((significand*2-1)*rangesig + 0.5); // shift and cast into a 16-bit unsigned int with rounding
// where just the first nbitsig bits are used (0, ..., 2^nbitsig-1)
tmp_u_short_int = (unsigned short int) (exponent-expmin); // shift and cast into a 16-bit unsigned int
// where just the first nbitexp bits are used (0, ..., 2^nbitexp-1)
pt_u_short_int = (unsigned short int*) &LFR_BP2_F0[i*30+20]; // affect an unsigned short int pointer with the
// adress where the 16-bit word result will be stored
*pt_u_short_int = autocor | (tmp_u_short_int << nbitsig); // put the exponent bits (nbitexp) next to the
// left place of the significand bits (nbitsig), making
// the 16-bit word to be recorded, and record it using the pointer
printf("autocor for S55 significand : %d\n",autocor );
printf("tmp_u_char for S55 exponent : %d\n",tmp_u_short_int );
printf("*pt_u_short_int for S55 significand + exponent: %d or %x\n",*pt_u_short_int, *pt_u_short_int);
printf("LFR_BP2_F0[i*30+21] : %d or %x\n",LFR_BP2_F0[i*30+21], LFR_BP2_F0[i*30+21]);
printf("LFR_BP2_F0[i*30+20] : %d or %x\n",LFR_BP2_F0[i*30+20], LFR_BP2_F0[i*30+20]);
}
}