diff --git a/.hgignore b/.hgignore --- a/.hgignore +++ b/.hgignore @@ -1,2 +1,2 @@ syntax: glob -tab_test2_v1.3 +*.user diff --git a/CMakeLists.txt b/CMakeLists.txt new file mode 100644 --- /dev/null +++ b/CMakeLists.txt @@ -0,0 +1,75 @@ +cmake_minimum_required(VERSION 3.6) +project(LFR-BasicParameters CXX C) + +include(GNUInstallDirs) + +OPTION (CPPCHECK "Analyzes the source code with cppcheck" OFF) +OPTION (CLANG_TIDY "Analyzes the source code with Clang Tidy" OFF) +OPTION (IWYU "Analyzes the source code with Include What You Use" OFF) +OPTION (Coverage "Enables code coverage" OFF) + + +OPTION (Debug_tch "" OFF) +OPTION (LSB_FIRST_TCH "" ON) + +if(Debug_tch) + add_definitions(-DDEBUG_TCH) +endif() +if(LSB_FIRST_TCH) + add_definitions(-DLSB_FIRST_TCH) +else() + add_definitions(-DMSB_FIRST_TCH) +endif() + +set(CMAKE_CXX_STANDARD 17) + +set(CMAKE_INCLUDE_CURRENT_DIR ON) + +if(NOT CMAKE_BUILD_TYPE) + set(CMAKE_BUILD_TYPE "Release" CACHE STRING "" FORCE) +endif() + + +IF(CPPCHECK) + set(CMAKE_CXX_CPPCHECK "cppcheck;--enable=warning,style") +ENDIF(CPPCHECK) + +IF(CLANG_TIDY) + set(CMAKE_CXX_CLANG_TIDY "clang-tidy;-style=file;-checks=*") +ENDIF(CLANG_TIDY) + +IF(IWYU) + set(CMAKE_CXX_INCLUDE_WHAT_YOU_USE "include-what-you-use") +ENDIF(IWYU) + +file(GLOB sources src/*.c) +add_library(lfr_basic_params SHARED ${sources}) + +target_include_directories(lfr_basic_params + PUBLIC + $ +) + +IF(Coverage) + set(CMAKE_CXX_FLAGS_RELEASE "${CMAKE_C_FLAGS_RELEASE} -g -O0 -Wall -W -Wshadow -Wunused-variable -Wunused-parameter -Wunused-function -Wunused -Wno-system-headers -Wno-deprecated -Woverloaded-virtual -Wwrite-strings -fprofile-arcs -ftest-coverage") + set(CMAKE_CXX_FLAGS_DEBUG "${CMAKE_C_FLAGS_DEBUG} -g -O0 -Wall -W -Wshadow -Wunused-variable \ + -Wunused-parameter -Wunused-function -Wunused -Wno-system-headers \ + -Wno-deprecated -Woverloaded-virtual -Wwrite-strings -fprofile-arcs -ftest-coverage") + set(CMAKE_EXE_LINKER_FLAGS "${CMAKE_EXE_LINKER_FLAGS} -fprofile-arcs -ftest-coverage") + + add_custom_command(OUTPUT ${CMAKE_CURRENT_BINARY_DIR}/gcov.html + COMMAND gcovr --exclude='.*Test.*' --exclude='.*external.*' --object-directory ${CMAKE_BINARY_DIR} -r ${CMAKE_SOURCE_DIR} --html --html-details -o ${CMAKE_CURRENT_BINARY_DIR}/gcov.html + ) + add_custom_target(gcovr + DEPENDS ${CMAKE_CURRENT_BINARY_DIR}/gcov.html gcovr + ) + add_custom_target(show_coverage + COMMAND xdg-open ${CMAKE_CURRENT_BINARY_DIR}/gcov.html + DEPENDS ${CMAKE_CURRENT_BINARY_DIR}/gcov.html gcovr + ) +ENDIF(Coverage) + +enable_testing() +find_package (Python3 COMPONENTS Interpreter Development) +add_test(NAME init_k_coefficients COMMAND ${Python3_EXECUTABLE} ${CMAKE_CURRENT_SOURCE_DIR}/tests/init_k_coefficients.py WORKING_DIRECTORY ${EXECUTABLE_OUTPUT_PATH}) + diff --git a/Tests_LFR_BasicParams.ipynb b/Tests_LFR_BasicParams.ipynb new file mode 100644 --- /dev/null +++ b/Tests_LFR_BasicParams.ipynb @@ -0,0 +1,195 @@ +{ + "cells": [ + { + "cell_type": "code", + "execution_count": 1, + "metadata": { + "ExecuteTime": { + "end_time": "2019-11-08T17:24:20.336383Z", + "start_time": "2019-11-08T17:24:20.048293Z" + } + }, + "outputs": [], + "source": [ + "from ctypes import * \n", + "import matplotlib.pyplot as plt\n", + "import numpy as np\n", + "import os\n", + "import sys\n", + "\n", + "%matplotlib notebook" + ] + }, + { + "cell_type": "code", + "execution_count": 2, + "metadata": { + "ExecuteTime": { + "end_time": "2019-11-08T17:24:20.382711Z", + "start_time": "2019-11-08T17:24:20.378601Z" + } + }, + "outputs": [], + "source": [ + "lib_basic_params = cdll.LoadLibrary('../build-LFR_basic-parameters-Desktop-Default/liblfr_basic_params.so')" + ] + }, + { + "cell_type": "code", + "execution_count": null, + "metadata": {}, + "outputs": [], + "source": [] + }, + { + "cell_type": "markdown", + "metadata": {}, + "source": [ + "Code C:\n", + "\n", + "```c\n", + "void init_k_coefficients_f0(float *k_coefficients, unsigned char nb_binscompressed_matrix )\n", + "```" + ] + }, + { + "cell_type": "code", + "execution_count": 3, + "metadata": { + "ExecuteTime": { + "end_time": "2019-11-08T17:24:21.853368Z", + "start_time": "2019-11-08T17:24:21.554426Z" + } + }, + "outputs": [ + { + "data": { + "text/plain": [ + "[]" + ] + }, + "execution_count": 3, + "metadata": {}, + "output_type": "execute_result" + }, + { + "data": { + "image/png": "iVBORw0KGgoAAAANSUhEUgAAAXoAAAD8CAYAAAB5Pm/hAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDMuMC4zLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvnQurowAAIABJREFUeJzsvXm8bUdVLvrVXGvvfZqc9AldIgmQwAXe5Sp5gigIyrVX9F25dj8uKspTfNf+KSpcfDaIPp567UVQIwLSSrgkoDSJCCSBExKSkABpSHJO2tN3u1lrzVnvj5qjatSoUTXn2l1ydtb4/c5Za89Vs2bNOatGffWNpoy1FjOZyUxmMpOtK9XD3YCZzGQmM5nJxspM0c9kJjOZyRaXmaKfyUxmMpMtLjNFP5OZzGQmW1xmin4mM5nJTLa4zBT9TGYyk5lscZkp+pnMZCYz2eIyU/QzmclMZrLFZaboZzKTmcxki8vw4W4AAJx99tn2ggsueLibMZOZzGQmJ5Vcd911+62153SVe0Qo+gsuuAC7d+9+uJsxk5nMZCYnlRhj7u5TbkbdzGQmM5nJFpeZop/JTGYyky0uM0U/k5nMZCZbXGaKfiYzmclMtrjMFP1MZjKTmWxx6VT0xpi/NcY8ZIy5mR070xjzEWPMbe3nGe1xY4z5E2PM7caYG40xX7ORjZ/JTGYyk5l0Sx9E//cAvk0cezWAj1lrLwLwsfZvAPh2ABe1/14J4C/Xp5kzmclMZjKT1UqnorfWfgLAQXH4JQAubb9fCuB72fF/sE6uAXC6MeZx69XYmcxkveX2h47hmjsPPNzNmMlMNlRWy9E/xlp7PwC0n+e2x58AYA8rt7c9logx5pXGmN3GmN379u1bZTNmMpO1yZ9feQd+/Z9veribMZOZbKistzHWKMfU3cettW+y1l5irb3knHM6I3hnMpMNkVHdYFKrXXRLyImVCf7gw1/EaNI83E2ZycMoq1X0DxIl034+1B7fC+B8Vu48APetvnkzmcnGStNYNHbrKvo/+fht+Iur7sA7d+/pLjyTLSurVfQfAPDy9vvLAVzGjv+31vvmuQCOEMUzk5k8EqVuLLainv+ld30eb7v2bqyMHZIfb0FE//sf/iJe9pZrH+5mnBTSmdTMGPMOAC8EcLYxZi+A1wF4A4B3GWNeAeAeAC9ti18B4DsA3A5gEcCPbUCbZ7LOsufgIs7cOY+dC4+IHHebKo21sFtQ07/3c3vx3s/txcu/7okAAKORqie5/OVVdzzcTThppHNkW2t/KPPTNytlLYCfWWujZrK58tK/uho/+LXn4+dffPHD3ZRNl8a6f2uRT9+xHz/8N9fiyl9+IS48e+f6NGydhG5tC+r5mUwhs8jYLSjL43oqlHp0eYyjS5MNbNEjV+qWo28ai1973424+d4jU9dx2fXODPVIdNOkbmC2IqSfSW+ZKfotJoujCS75nY/iX295sPc5jbWwunPUlhd378CJ0QTv+MwefPL2/VPXUVWhrkeqzPT8o1tmin6LybHlCY6vTHD/4aXe51iLLWmQ7CPE0TetrXI1z4HQ8iPxGa7nBP7hmx/AkcXxutXXRz7+xQfxxn/50qZecyvKTNFvMZm0hHPJNXx5XOOmvYGisMCWNEj2EUfdAJNW069GMVYtWn4kPkNP3ayxniNLY/zUP16HD3z+3jW3aRr5yC0P4R2fuWdTr7kVZabot5g0raJvChbG177/Znz3n30S9x9xqN/aRytxAzSNQ/V1+7xWo6urFtGv1ai7EeKbtEbuZlK7iXC0ycFlG9037zmwiP/yl5/GkaXNXalstswU/RaTgOjzw+OGPYcBwBtgH83UTW2dH/3EK/rpHwSp0EcKR88n+WkR/f7jK7jg1Zfj374cpyWhKnPPZzRpNmRF09iNDWi75f6juO7uQ9hzcHHDriHl/dffi0s/fdemXQ+YKfotJ4RM6wK8JHBHWMkiVVKvv+JW/OYHvrAhbXwkCSkSel6rQeUPN0ffNHEsQDzJu+99AT1Ren/3qa9Ex31fUe7x8OII//H/+RdcvQFeR40tr06B7t/L9dvoczPk5995A163yWNrpui3mNQ9qBuDWDE1yvL4TZ+4E3+/Dqjjk7ftx/+47Obugg+TNG1k7PpQN5uv6Q8vjvCkX78Cb/lkUMzaJG9g8MEb78PfCwUuhe5Bzgu8r0g5tDjG8rjB/YeXp2t8D2lsd+TyuFl91G9Q9Kuu4qSQmaLfYlL3oG48orfhc6N01Cdu24d/+uwjN89K3XrdTJoystt3bAU//DfXYN+xleQ3MsY+HIr+/iNOub57915/bKJQNwDwf739evzm/7qlWF/O776kEGk1sRF3b233c11LUrq6472vt3AA9n1/8Sm8a5PGxkzRbzHphegZAg1L/o3p6Nbajap61XLf4SW84A+uxL2Hl1A3FB1bVlZvvfoufPqOA3j7takHSFU9/O6VXC/Xdaro+1I3dGYlynuOXnlC9NtGKEtttSllLYrer1Q2CdIfODHy36+/5zB+5b03bsp1Z4p+iwkh+SKiZ99DR9+Y9jQ9ENlmyz99dg/uObiId312j/Oht9Yri5xBcXFUAwC2z6dDJhhj16d9+4+v4P/71y/1Uj5acyfsZZKa7GuMDe9KIPoitWWjj/UUilwuyVqom7XYZlYjDxxZf3qrjzxqFH1fr4ClUY1DbNY92aRuO31d6Pucugl4fqMQ/SMO0HulNaiMz17ZxdEvjUnRp+mhzDpz9L/2vpvwpx+/HZ++o9u4qb23WqFueiP6trxE9CTa5OMpwA140466cd//+fq9uOdA6h1Tcjzoks02xt53pH8g43rKo0LRn1iZ4OLXfAh//NHbOss+7w0fw9e94WOb0KqNEUKmpY7LvW48v7pB/dxibe5xo0mDb3rjVbjyiw91F+4ptNoZVMZx9LCdAVOk6OcHqQZc74Cp5fZapVUZicapTzLG2D5C90DVNY2NcvZrOjVQN70uMZUQvXjv4SX8wjs/j19+9+eTMuMSqulRP//caCFEf/qOuU25HsmjQtEfbBH6e67bWyx3w57D3oNgs2RSN+vKD3rqpqfXTeBeN0bWauh96Ngy7tx/Aq95//p57tCgrozxz6DL+4KU74qS171aZ/fKtUazRoh+2muDru2u/pI//xQufs2Hihx9yfVSk9e8/6be0a7O/RV+oj9NUZBdHP0VN92P4yt60r4QHxAfv/2h47jg1Zfjyw8e69XOvkLG8zN3zK9rvV3yqFD01PGHChrj8vFbQyKwzdp67Sm/8SH8+KWfXbf6pvOjn36QTithxRAuMK4b/Ptt/fYJDj7q69dAmlgrEzjgwNHr5xBHTwqfS/C6WbcmAlh9MKvqdTMtddNqhpvuPYJJB6Kflrr5x2vuwa+9r98+vTQJf7xV9E88c0dSZlLg6G++9whe9bbP4XWX6X7rOa+by290+yV98Mb8vkmf33MY/3jN3eUbEHJ0+eGJwH1UKHrqCIMc8djKmPXiQ4ubx9Nf9aX12xy9j7sYPQXLfJRzinStqw1tWX/Vl/bhZW/5DO7af6Lz/PU2dPK6dI6+bIzVVnvrzdGvhuvmPbvmxtiMXzyX1112M57z+o8CYH70YpYp9RPvsbQBYIH66B37jgPQaSntGAl5uTx0TDeC2swERs9wWNAZL/nzT0290lxsVxabbbd6VCj6cYvW5qry7fKBevAkNcj2QfSI3CvdoVzp0Rr4T1dvqkCJ7yblWZKNSK9be0Rv/Dv3KRAy5xxtc6HoiH59Vx2Buul/8/w5ccVH76+Uj/7Sq+/Gg0ddfEBuARAUYsEYuyHule6z1K9L1A29r4XhQP09545Mz7ALHE4rJ9o+v9meaI8KRU8doYu64c9+Kyt648vqipjL0177YfzhR7686vZoiJ6uNY23RA7l3rDn8NTGOBpkgyooeqojt4I5vEiKXkP0VO9UzVgXUd0rmeKj++qrrmwG0ee47OjcnteYRhrRVzSapvT+SdFvm9NVXS4GwNO966zoF0cT9XobLY8KRU9+tsNB+Xa54jmwlRW9CWX7GGP/loXXTysaf0vH+niVyHQNXPYdW8H3/cWn8C9feGCqNgVEH9xQSVloLbLW4mBL5S1PShz9OiP6HjrG+8nzgKmGK/rp2pRzryx73fSnbqalAqk4IWwNvZeoG9ocfducjuhz90XPbd0R/UqL6Dd5r/ZHhaL3iL7jpUXUzfE01P1kkD7ZKwOit1mOkktukPQRzX2TlFPdo7fzxGtS3JaJzn12GqF7rSJEn6cmlsa1N85r1E3g6KdqRqf0UTEazRNRNxOibvpdk+e64fcalHmeuukz0U1LBTYCuExL3Sx1Inr9vdPKYa4DHE4rhOjX4vu/GnmUKHp6ad3Uza5tQxhz8lI3vuP2SIHgfMidlPhVLRq0S7784DFc8OrLcdeBE239rI3tWO8Tuh743/S31RoBg9eNSSgBrS6+n+6KQt14jn6dyItVGWMziD5w9D2v7VcTBseWJ8lxlaMXZUqiuaeWRFI33GGC7qnkdUNulduyHL37lP1/wzj6lRlHv2FCL61rdq4bi7lBhTN2zJ+01A0pz5IO9Z4sjYWljl6oc8dcGg3aJe/e7ZI1XXPnQXct1rHpWx/qpjQgVhuo4wOmmDF2PMlXwjlgHdG7z/X2o1+tIz1XfB7R9w2Yoksb4BhzBew14faof0WhvkoiFT1fBdIKvQQYSNFXGYWdo27qnizAtDLj6DdQ+rpXNtaiMsCZO+dPWkRf90D0hEDrhm0KXqJu5qenbmQ/5n/KwduvHo0yyNMtJfGIvjL+OyFfrS5+rMjR95xxrLV46zV3+0G/FtHmhJijXy11Y3CUIfpefvQ93oO2Iiq3x33SGOZKncZzyRhLk1WujN+RbbMQfet1M6NuNkDGfnbudq+sjMGubcNsJN16ynq4ox1dHuMjt4RAr37ulW1Z5l5ZUpbbM/xmSWRtEaKfQtGX6JlmCgWj1TmowsRI9J5WFW+n5nUz7VaCd+w7gde+/+Zs/ERQ3qtTMhNF0fcWsl8IRF9OFdCfQpuWo5d9hd/boH3uJWPs8XayyqH+3KrQ+9F30L3TyKRu/Aprsz20HiWKvh9H3zRu0BpsXKRodL11uMYHbrgPP/kPu3Gkdf/rlY+ers8iHkv3u30VxtgE0Tfpb1LRN43Fv37hgUhxl/z8V5sHvfbKzAR7QSHQLFb0KaLXPItK4tFpRwfo5XWjuOjwNMXTRHhTJk+q7liE6MX1mJTSI0hZPaJXFH3VQ9G3gC3H4+dWwAHRT68i3/SJO3DBqy9Pji9y4/YM0a+/kKLvcq9srMWgMi4HyibErq3H8o2MW4SU+uWjb6/PjbGF+92+GupG1Mf/loOXZPfdh/DKt17n97R1ZWkiUqgbKjOty17D2xJTN1pNPAmaqujR/cyj8l0rkZ6387ef/IoP1ecSI/r+aLux8WriaLRhdn5SDavC7muslqMP4CAobK/oC6sEop9GGRtMjv7ripQuyeuv+KJ67uJKuPc+9qn1lOmtbCehkKGty7BSWwtjnCLcDD/X9TDISI6xn3sl4+i90slfY/sqjLGyvihgKqMYtcRhJeWx2m3g+ARLz4n6iDawadm/Y36gUjfTKDpXrkSDMN/4jnp+64Nht6gcR0/Psg9w4f2hqnREr0fGTkHdTLpTC3DJ+bcDAW0XjbHLHYi+0ftQ2Cy+u43WWjXy2Np4VXaitcnsWhiuKYf+auRRoehX6n6dy9qWutkkRL8uil4oDel3rEmI5LS96I9p3CuttXjV2z6XZP3jCjSH6DUFWGofjZWpjbHsOta3Jc/RU/lTFoYqIp2GuuDX6Brr09xVnAIhVDwu2B6k0Ebprj7jE3BVhgMK7Txqbw/qplX088N+fUqCAd6vaTyXlOaxlQ5jbGYCmxSM81odGivcWIuKTcGE6HcuDH0A3mbJo0LRjyf9qJu6cdSNweYYS9aDupFpibv2PgWCUvjdy2/FE8/aCaC8RM3lCVHb01h86OY0UjW61YwxVltdNMoxX36Vk7Ff/USpAvLPjZ7pjvkBHjyaGun9CqVnc7oM4H1WWSXRvG76tM15YTnhAVONLXP002RAXZka0QsFrHD0pXFEiD4XIZyjBieFiU2rY6Csv+S5hOh3LAyw//jmUjePKo6+0xjLqJvNSC+3Hqs3ucVbH9dF8hLZf3yE6+4+FJ1Pslr/4dxVNY4+McZqiF7k4jm2PMa9h5eiNk+P6NPrl5AvPeNTFoZlY2zPdvQN9JpmIuNvS4uM7dO22lrfKMPSQwAdbZ7i/mlF1BvRS0qlTjn6UpoHClDqdq+Mj0+zaXgXBUeyyKibzebo16TojTG/YIz5gjHmZmPMO4wx24wxFxpjrjXG3GaMeacxZnMz7CvijbEdFnSibnhWw42U9XjZ1H89oidkujqvOi/crWyaZmbtixFK1ycjzdWN7oMO/dmVt+NH/uaaqM7VcvRcIU5KxliP6IeYNDYx/nmDXs9n3s3RU7396gPiJGT8uXZl5eRS1yH3kRwDpZViadUlhSae+Z6pBeTkoVE3JWOs5n8f1Zd5F117CMdt7Hf8BKNuNlnPr17RG2OeAOBnAVxirX0mgAGAHwTw+wD+yFp7EYBDAF6xHg1di4x6Zq+sG4uBMTBmUwD9ulA3XmlmPjXRDUdxeR5FPM2klysb8+7usw9HL+s7ujTGkdYbZLXbwAXqhkWQFqgbek87FxyFtSxcFjlHfftDx3HzvUeK16cr5F7/Wrd3VN0Ne9RVc44eYsIoUEClfERSVnrSqCQl6qbq4V5Jv+QQfbCXyOv0t230VfSE6HcubD5jvlbqZghguzFmCGAHgPsBfBOA97S/Xwrge9d4jTVLWJaX3xpRN26LuY1X9etpjA2BJbGbpSbadCeLrzaZ01SIXhTWdqPyX/2ATNHltI+xhOg1bUXt3NFuDC7pG76yePEf/hu+608/Wbx+34je0u+l/lkrSq0PDdQwrxtjTPR+Sm6akkL7pXd9Ht/5J/+uXmOlfXZdNKpvk7heRN2Y7shYaluuTM7rJndcb2M3uAHC/gunnEyK3lp7L4A3ArgHTsEfAXAdgMPWWrJY7QXwhLU2cjXyustu9kEL457RaI0NvN9mGGN5R1gtug+RsO7vaYyxXEpXX29ETyIVkqduNG6Y/e3tEu2x1UbG6kbLtK6JRPRC0U+7suji9Pm95kSi2BxHL69ZEh5XYZinDVD2K5cT7ns/txdfuO+oeo2Rt5etHdHzdNua8LbmUH8+e2X/d9pFwZFQH1voaZ9YT1kLdXMGgJcAuBDA4wHsBPDtSlH1KRhjXmmM2W2M2b1v3/ptpUdy6dVhL8e+LmaUAsEFTJXFWouP3frgmiLcNEXTJZd++i68le1TKQ2LvdwrlWNyAGtUSx/p8iThZXq5V4r2NZb7OOdRl9uCLjO4xaQIhKyI2hn0TMn7KPEWEuW6RLNFaFL6WUa85rJXymuWhKetNpAcfX4iFIuuolBkbF9jrLxctPG5R+s5JR6+5yKEs0nNChNb0sbMcfmsxj0p5I2QtUwtLwbwFWvtPmvtGMD7ADwPwOktlQMA5wG4TzvZWvsma+0l1tpLzjnnnDU0oyzWWs+/di1fKamZMd0v+F279+AVl+7Ge67bu+q2ceTaV9G/7gNfwGvZPpVSOU76KPoesfX89qfx/sjzzmkZORBUY6xA9DxMP1fPaNLgkt/5KK64Sd+QJOS3YYq+sOqjZ0nKKSnjqSj1col0GmM7ED9QTm2gIvpe1E1oUyW8boL7qdbg7vaSrPj8+Gt3r6R7yhljeyH6jjTFfSZIm3kV8jj1o/XOcd9H1nLFewA81xizw7i39s0AbgFwJYDvb8u8HMBla2vi2qRuLHMx6y5bUQqEjrJ37HN51tcS+MA50D652dU6xBJztYg+VbqWfe/fnjwdkSIxOfh0jj5tV0BbcX0kS6MaB06MsPfQotoWLeWtXCVo5YlXznoL9XxQdInFUY3r7zmU/i7KaSKBAU+Apr37PquySdN45c43ZQHKXknT2Ep8UrOey0R5L1yp5/qR/519z3L0OepmqoCp7j7P61zv1Md9ZC0c/bVwRtfPAbipretNAH4VwC8aY24HcBaAt6xDO1ctl159N977OYe6uxCHtSGpWdcLpvDwtRhWVkPdSJHotlcKBI2jt+nfTzh9u/pbuT3dxz1HLiY3bRktXfca6/5xZE80jdxEJPcMqB9oWR61M6geQmKyb3hk2dO/kq7/vs/txff/1dXZTKmleSPZwCOKjNUQfbdEkbHQ3TT1FAh0jR6IngVh9RF5uUOLY7zqbdfhyOKYrWLLtAxQyl6pI/dpA6b04/Hf48ZibmB8HMtmyprWENba11lrn2atfaa19mXW2hVr7Z3W2q+11j7FWvtSa+3Duiffb7N8IF3vLFA33YieBueubatX9HziGfft+UIkgpfIXhc9L4ds27c/87E4d9fCVMbOPB2hIGWJ1pWUBsHwGt+f2+82DMbfeP/NePKvXxHVm3sGMpoYKHtmySV3jnLqO1dT+eMrE9SN9crPSwe1A5TT/dZNk+z52me2rhv2zEz8fkqcNR3p04Wnyb3j6kzLXXHTA7j5viO+hpwS56eO6gb3HV5K9hfOrYDXg6NP6KC6cbE8m6/nHx2RsSRdKL1ubJvrprss7VNKLnerkch9bcot1mQdMqx/akSPVHkFV9P+7emDbnKDq2yMjcu4KM5w7O3X3uPP6XKNCxuCc0VPA1sr7w5SkE8udUNvrxvE959feeTr6OLo5wZV9J77GmOpLS6FczoRauA5R91oStLnY58yuAyINwEZTRr//nPGWH75Sd3g+/7iU/g/33qdqF9v63p43SSIvrYYPkyI/lGR64ak651ZC5/rpkv8FmWrfGc/9dbr8GGGLvou+6VIfjh43+TP0Z6D7JQWYdKbxhibe8ZWUd79ct3Y6By6L4fo4/pI/GSXNcDR74yj7+FeSRx9TqF15Zf31/crAP1dhcktX1/K0Qepa4thZVA3BhPF7pFvl436gR5hqyB6/x5SZSn95Vcm/blvVy58nx9UWGoow2kdEH2ms/P2TGqLQ4srbXtDtskAlOJzp/Gjz/b55Hk0bgLurnLd5VGF6LX38YX7jvhIy9qGfPR9Ef0qGZdIyQP5fNld0ghUqNESUtRBLw45RD99grd8p+d1Z5bLGqJP2hXOlXSOr6cDjWnunSVET894bphB9KJcl/iJIbP6CoozLyX3yknT9mOGQvq0bNKwGAUbv3cZGXvNnQdw6afvimqXz05bdVCum76rRN5X+aSxMmmS55ie6z6NiamuCEhk+kopriJ3He34G//lS/jXdqz7pIkz6mZjRXsh3/knn8SPvNnlTqHIWOdeGcrUjcWB47Gp4fjK+m7yu1pjrPRA6WOM1X2hpbKhZ7Fe1I1l3+O2yjKa4TbQNO4zQvSsvLW2c7IrcfTaKdIYm9oWuidXLvJd5SaIIkdfoG7qxmI4qHzkKL9mSTh1w43dAJ8I3ecPvukavO4DX2jbCf9bl4PB9Bx9+D7PsqiuTJpORE/tnx9UUV/TUmzkEH2f51bq83925e14ZUsXjWuLueokNMaebJJbvt58r4viayzUgKnLbrgXL/iDK6OISEL065UqYa3UzeuvuBX//R3XB4RSUDraTykdgRBT0GNQXnHT/fjdy2/p9A3nf+STmqWTgsxiGRljWT3Wdi+7qXyUAsF/T0+SHL185/RX3yR1ckWTrhDK7QdSYywnHAnRD6ZE9Nzrxop2lZ4pp9z4BKQZjKehRKhNJDyidDRpErtU0q72c35YRfcS01PU9riOkrttqY3R9cXhSd1gOKNuNl66jEVNO0AgjLEHjo9wYlRHLm3H10jdSFk1ddO284sPHMNtDx5bA6JPy/hJr0fTrvrSQ7jshvuyZTXlnXL06eCSCb40Y2w0h4Bl8OwwkvVG9MLrRuovm7mfnARE388NVJNyZGyDYWUi+1GvNMURdRMj+pLi4xMTB0OakVS+xy7hk3hK3bTXyTx3CliSmTIbpX/l6b/uNvbp89TO4cDo3hAbLI8uRZ/QE/Hv5F5ZifSVGnKkLeXWCdCvGtFzVMgHapmjT49pLoMG/aKEqc7G9kM3we88nWjp2vI8OhRTN+kg5ag0S920xzm10M+9kvIgyWfV/cy18tKQTsIRck4SRK9w9DxDZC8KorEM4QpjbGEi5KuuZbYDl0YvTRNcJa/HI0pHTNF3BenJdAv8/QUaj53HKKi1cvRcJnWDuWqG6NdVtElTdlJVuSkBUzZTPndsNbLWgCn63sX7ynNIJM8NTGeMdWVstiyvP6fgdOomr1R1jr47DYRVFLPnoJXyXtFTCoSenLq1FlfcdH/WeOvrT86jcvkHX+ovdWNbRM+pmxTFJufZODahf8BUUN58T12tjXwsveuze3BseZyU4cKvxxV2n03G6dRU0affo5gWthLp1/e7wQ3gVpoPl3vl1lX0yrEUwYu/G5ePvhL56HMGG/7bWqW0S05JJCXS5ZstzyHhR+jnvgne3Pm2jOg7UiDIAKjQVjonRoJNoy+7XYqEclpqn+tmSmPsfM4Ym0H07969F6962+fw9mvvjo6XNtMAuBeP2nwACnWjcvT8muH7yqTBi954Ff79NpdMkPTOpOEcvaRu+q1gOXXD2/jBG+/D837vY35lsPfQEn7lvTfiI7c8WKyPtyFF9GXU3Yj3ptVJk/bxlQkePLoMIJ6g1sTRK+6mw5nXzdrkXbv34NO37/d/q5trsAf/3uv24h+uviv6vbEWVeXO1Vz86KVzNDGtnr//yJJ6fK1eN/S9jx+9ilIUFG0MgKmom0LGSGXFwP3Yn/zrV+B3Lr81+p1/l6uqSdOoiB7oDhqTu3Lxc1Tqpv0tRMbGv9MpkcGvsdjbbnl44EScDykFGGoziyCi6HVTWwwr4XXDfr9j33F8Zf8J/Nb/ugV7Dy36ck0T5xHi7ZwUEgNyCm0lY4y9+8Ai7juy7H+XO6LlhLeBK2zudZOlTug8iegjw6z7/rZr78FzXv8xAPFY7Bcw1e/4pJkZY9csf/bx2/GOz+7xf/OH6fs7e/Dvv+FevJOVB5xi8EFCimKiF0cafI5VAAAgAElEQVR5btyx/pr+U7fvx9f93sfx4ZvvT35bbVKz2IPA9kL0ek5x9nv72dqle7uYNU2eutHoGLplzSgu2yWVKZ9UEkSv8K5aW3SOPi1P9VF62ZRyShF9bUMyPalo5DVy7+qTt+9PwAhJkuuGieZHr9FUtz10HN/4/14VUV2yP9HY8dkrlctym0JkjJ2kyDgXDZ0T3jfmM143XdRJibrR6L1RpOiLzaMrqUdT3/yWUjuZkpo90oQbIoGYo//J5z8JX3XmjgSla5GZLqmZEYrefdL5fJD1tL8BAL70wDEAwNV3HEh+K+UuKUnsWtjtQw7obY437yZET9RNP0RPqD73u/xOiD61nfCy6TsCnDKzankecVoegH0jP11qjJB1MEe1yNwwfiPsAnWg1tf+ftkN9+Gv/+1O9R4k1Zd43Qxi90r+LHhundjt0IIHEDXW+lVMMR89KXrYrNeNHEP++h2KPjbGcq+butNoTc+x7HWTnhdz9KtH9OlKs3lYUhQDW0zR807LOcsQyh+EGy75MS0fvTQSaku/PrJ93gV8LMkkVlgDdcOVi7innKJTXeQURSyDxz500/34KZErxF+rVQxdg86VdZ85N0jNFVP+xjn9uG5bNBzSuYCeskBDrBTRSEY0zejK66UyhOgX5gZR+dL9SslRYZK6uevACbzsLdfixMpE9aPn/SQHKuoGLGDK3Q8pyUkpcpiteHPGWP/OMwb4nBQ5+vb71NSNGDNStFTIfdsYXV8cnzTOGPtwcPRbJtdNzdAsgIi7IQ8E/nPd2GTDgpCPXlIZcSePNj8o9ISmsVga134zYOJCl8bpQFsf6iZW7rW10BhBFdErip6MsdSRf/ptn8u2w7b15g1T/HusiOUpew4u4sM3P4Bve+Zjs0rRGWOVtiNw6nmOPlXMsm2yfFnRx/UCro/Qym+hA8Xlcv64a+nnjOoYLOw5uIQ9B5fwb1/e571uOEevJShL2mFjY2zdKiZ3P/mIVq5wuf0qXvnqq6ySd5gVwCH2ugnulVMbY5u0DJcI0fdYsudsLPLMcWs7mXndrEG4IQmIOfqqUlwmrbbxBaNuIiqDPklB9Jvx//Tjt+MZr/sX3HzvEQBhF3i55yiwBvdKgSKlJ4smpX0/+XcChHsPLeHb/vgTxbZa63LP5J6HjF4F8i57b//MPfi5f7relU3aSefqHK1lqDQ3SOm62s5EqtdN47yxcvsJe4UjVlOEugeCk00mryLNJlBh3eDew0tZL61jy2NMGmdryiL6DL9fN43IdWNZkFhA7YnY8GUlg+ipSM5jSRN5rXmB6KnWXA1UdQnRa88+F0Wbkxy1mVJ0LpBtZoxdg9RWKHqB6KFQN1oO6soAVSUUuI07eR0hgnybbr3fpVZ49ftuBACcaHeB1xT9ajl6SRfwSSiPdMp1eo4eBsYY3PbgcXyxtS8AevvdNnT9EL3kyOUp45p7f8jJOCj3gOj4dbhBWr+/EnWjjVlKdkd6JmdQlBz9SHiYhHtI68+JbOLvXH4rvv4NH8f9R5bV8seWJ2ia1F+b32vOkOuom3DdunG5WQC+lWB+FdQ0iAKmNDdFiX5LfVFea0563XQgejpaVPTKqfEElRb4yv4TwjNMvXzWj37mXrkG4ZwtEHP0PvVwtCS2CTJt2gENmKgDSEQ/6aFMAeDMU+YBAF+47yiOLI09oj+6lAaJTEH1J20mkXaK7D6ZXRx9++ny0aeKaFmhnhya7+d1I6mOLpe9+Didyym1eOB2BfeslroxOeqGlSP5/N7DeOiYU8ZdvHQu1428N8ClmgCA/cf0/XyOLk9URM+Ra3aj7GgMuXdJQWI+XUNj/QpV3k9qjE1XvskkOcVqJud107WKHFZ5ryetD8TUbPzbzfcewYveeBX+9lN3ZduZOz72aYpjTb9e+bJKsmU4+qaxEc/NZ03iV/kAqq2GzEI0KJ8VpELhqKT0kniQz+fuOYQTK24QSL9qav9qRC5DpS+3fo7SVn6/7f2REVs+JxXR2w5ELyZZoLxdm59cEwQYJlu/sXN0nbCq6VqWq8ZYDdGTcTOj6DUvnh//+93s/BRQlP7WnpVsXy5lxrHlsQcssXtlKJNF9FamKQ7UDSH6G/cewXf96SfV9lobg4CRwtHnMpZqIn+KEX3IR9+lKKWJRK6CpUwKfvS0kuIxO1MheiVgqrHAYINR/tZB9DY2xvLnNqBdo4SC1jqdL6sievcZI/pCmxqL07bPYVgZ7L7roM94eeB4quj7Zj7UrsHbom3/JqXLj54HTGmGI03Rk2LI5h1RVgy5XOC8nTlF56ii9HxHObjvXWhN4+hzuW64MTY5LYNWtWvy8qH+/M/pqe5AnqOfeJsC34SaP6M8Rx8HTNVNytFLIdsMtZUbY0dKKoFp3CsT6maoJzXL1UDnD6oSdZOeXXKv3D6Xes71RvS1Sx8tgzmn8dxbrWwhRB8jOP4wHXUjDax590oLo3JwumIpdVS3efjZp8zjK/tP+CWb5l65SkAfnVdbG224nRtEOUrDf28/K6MbjlTqpuXMu4KU+LW873r2nHQQh3ODe13K0ed9vvXUxPE1pZDiJH3RB9HL87Xyud9LZQljlBC9XIHIa+QM/w2j3sinfp68brLnxNTNseUJts1VWB43KtfdZa+QdXORxtiuFAh0WCJ6DcSRPON/fFgo8fh38uUvlSGR9+p2mErHlJtQ9TrWS7YUoucDN0L0VRrt2jQ6X6gl8pKUzURBKpq4+tySs26sT22cK7saSaib6O/cOekxC+Cho8v4jX++yaOyitJXCtEmKqoyi/z4d4GAS14Lubww/LecN5WqtPlEqHL0yjnWYsACkJJsk6ycJl0c/TT0BZXNoXKP6KswMcm20bkyQHNSi3z01voMmLkVRGMtOLQ+eGKEc3dtS9rowVKjv89s3UwSYyyV63BvHBQQtGzPiVGtjn3Z3qVRnS2Ta39d08pQtHPjAf0WUvSNMMYKjt7lrwnHtMHV2FBWQ7gacivxg+StYYxB3QT3Sk1Wu3yTYfcOHRj/d+9rWeB1H/gC3nbtPfjYrc7gB5N2SiDH0ZfRlbYKKrrsIUaY6blsgEQDMwxenbpp2PfyyobEI3qjP9ecPcFfR6BhObHlImNd3ToCzsVdHFueuPgJGTDFypOH11CJGI2pm4Bg89RNePwWwKHFEc4+ZR7GiIApeieZ1ZBat3ievCtKr5tffOcNuGHPYbVumXKg74rctTv+m3LfL3JFnzlXviNvjBUTz2pp22lkSyh6bWCn1A0AlF8wUTcp+g+dH4hfjLXAR295EL/3oVujWd7Vh9b/2tVNxlhN1oOjJzRLS9x8ZKxyjH0nxUS5bqSUqKfsBtk2LcvRea6dOUVXs6RmEaJHOTK2m6NP2xEC6XJ+9LoS066pnZ/z4tF+84g+Q6UcWx6zLKy6Hz0ZY4dCAUbRxtBTIEghioe+Hzwxxpk7FzA/qOJ9Wtk14vPVaqN71cqOJrV/7vuPr+B919+Ln7j0s1F5T91IRM9upTsFQ/w79ZkTbHWeG2ey7pwxtrSqWS/ZEoq+K/+4St3kBrQPmAoiEb3cf/Kt19yNv/63O/Gb7R6a/reWuhm00aWLo0nWh7bU30aTBrvvOtjrvPGkyW5izdusHSMESMv0yui5s3VjbDvYe1zTo9KO1LddiD5vjO2p6FWOXkf0w6oHddOTo5c3nP7O2yPb5z5zPDsh+mHVnetGKsAoMtbGxtjcBB4hegscOjHCmTvnMD+oMJ7w96K/kxJlWUL/nLqh+0y9iWz0u1ZP134/snk0NjgNm12RKs4fWvbKzXCv3BKKXqNUIupGyaue8yWnFAja8rlRlFljgV3bnE373sNxCmLu5uY4+hqnLOj279Ks/pdX3YHv/6urVWUvB8O4ttm86fJ+uFgbEB4hsQxFn/W6AcoKIXyn5xn/nbYTiVL0qwFrmYKN6y5N/FGKCJW6SdtBAID0RbrKKA/Uaf3oS3XT30WOvnYrEI7YeV8gY7qmdHmgmkP0ZIzN9yVOoRxcHOGMnfOYG1ZRmoawEssrb61uLufsWvDfRzWnbtpj4pnQ8bVQN2m+GneNlcj+oNeh0YRzLB6DZIboe0qIhAwPrJLUjSkbYYCYuokNMvS7+5SInnd02a7KmAjR71IUfWXKHW7fcee7KzlI7T5GLENeFl1rqWZhvRvahCF6ze8mFzAFpD7j/poRveIkZERUT+lA9MHrQqakCNkry+1QOXqlHZTzhRTGNJ4jWvkuP/r4N719OePoqG6cbUhSN6wiil6VQKBu2OQL13+CH33JU8eddGJlgtGkwZk75hNELyd3f83CvcufnnTOTnz0F78Rv/Dii2Et2yymrVTSWXS+pKi6bHUkg8okv2sTXq6GqK+15zn3Slku24R1k62h6DVEz34njr6TumEDRItO1OiJ0v6SjW3pj8pgUlssjmrs2jaXXHduUBWXsOefsQOA27xBitZRF4ZlRJ/LXjn01E2L6E1/RB/c/groXLSZDIQ5rxvbpPcXkKE+wLmi1+6ft6O3H71QnNMoaned8sRQ8qNPcvXb9J6lrEyayEvIXSPUQ/lo5EQoc93UlmWv7PFeD7aBgA7RGzV7pZTSo5PPtTIGTzn3FOxos8D6nEXChvbL7/48Lnj15cEYW/C6KWUemRuYpN3ac8+9f16UQM2wSsHTZvjRbwlF37Uhtvek4ecoS2JrWyNukr2SznGfMaIPCkVDn1XlqCPi9HYupA6zc4OqOKvT5HD3wVTRa8qsK8hFO2wtMBhIRa/n5SBj7ANHlvH8P/g47tp/QqXPxBWia/G2rxrRt8dkBGbJGCv5/KSVGgBoZGRs9znx+eXI2HTP2Hwbqa+XkuCNJk3r9z8loreWvROLpgl9KedHDxvunyK+z9wxj7lBhZWOnDGyXYDLXEr7yMp7J4Vd2jEKAN5z3V53zfaw5Oi1Hcw0mRtUSas1RE+Xv2PfcVzw6sv98SgK2yP61JNtpuh7SliqM0SfuFeKAZThTb0BUkGgmkHJ2hTx83ZRoA3tSrVToW6GA1NcwtJvexRFr9ET834Ta70+naO3DNETEspFxrqK3/nZPdhzcAnvvm5Pp0FSRfTKe5PtzCFaTjNE/toIilWl5zrWyTljLPdL7+s58tJnn4dtc5V3yfNtzChv/7uoRwveK+mGlUmTBExFhsyxnmxNUjfOj77sXsmpG4r4PmMnUTfdiF4+7+f/wZX4P/7i0+43cRIpSKnosyvXjDGWz1mlcbcwrFLqRhlUVEbuf8vPHROiV6ibGUffUzx1wx5s5F5puqkbeimDCmpKY15mIkKkc1kYHaJ3EwcFIS0MU0Q/rKoisqAOf/eBE+lvynnzHdSNimQB5nVD7pU6oifq5oGjzvj82NO2J9GuSf02/S6X3Fo74/MCwq/ZJDBK3kcoo9VZEu3nYIzVvW5yLO13/MfH4fTt85EPuyudAoKS9OWUZXuz1M1Ed/PlrpKwsdeNnKz4OfQLrfTO3DmP4cD02rdBO3zbQ8fV32hMS2+hrj5Xom5KE//8IB2Xqm2kPaS5q/o20r7DCnWzCYB+ayh6mmSzHP0g5d1zPGvYPo//5j4DPxx3YPpTq5MGHHWQOSV70bD1yslJKbBIO687yEVD9BmOXjXGugFNCZ7O3DGf9aogkb7uvGyWo7dxEFzdBOVeM68LmSWREL3GNnQrVR3RDwd56iZX5VxVYVCZ6f3oC7/3BX9yK0GunzRjOuDuU2b2nOuRAkG2d+f8wDsgkOSU2TSRsXQ7iTGzQ9GnKRD6Pc+5YZWsivU9DFwlJUXvYxceJkS/plw3xpjTAbwZwDPh5rUfB/AlAO8EcAGAuwD8V2vtoTW1skNUY6xwr5RJzVLu030Sio07GSnadOXQWE7ppHUOWq+bMXvRUpx1P39/07igAcB8u2rInZf3o4/D3ftw9HSuFmPAJZo4xcScX9bHv/E9B2r23EfC1S2sFOKKf/U9N3Zv8KJNptZGq5sSp85lODCOlhPaoqTIu/7uy+eSt5e/B9aG5Qyi5wFT3h2QPLgyl9USz1U9I9FLx4H0ORMylwg9H6gWVqZxm/tdf36gUTfa2HGfcmxHdpF2zMwNDKQvw8nA0f9PAB+21j4NwLMA3Arg1QA+Zq29CMDH2r83VLqMsWTpLiF66iyDCm0KBF4/neM+pXtlnVEstXUBU1VlvLVeQ/RuEupG9JpoP8138qrpMYsU0TtX025E7xRE29aMIo1TSsTKpKQEJCr0q6cmvM2Uo9f7w7VfOYDr7iljDnUSbCiiMY2xoGtqMtei6q7UvPKRJZw9+7OvShhUyBpjVwqIXtqhujaz1voSxRzIeBP9fP5+yxOoV/SiSTk9Sc895eit+l3KUHGS0OIXrH9W+QmIEH2I0g/yiFb0xphTAbwAwFsAwFo7stYeBvASAJe2xS4F8L1rbWSXaAEyfBavaIepwkw+4bx0e8wbWQWilx04h+itDd4aXtHLXgrdX5dL0VCrdNRgjM0tadPj1qYcve5FH/a8PdJuoFIzpduHo+fKWv7GRRpjJeKk77EbH0f9UsF2782r/UqbbQPuGfU1xg6rSqXlcgbmXH0lZZgTSr3h62D6KcfR8xUTvUdp+JRCG85wqUzap7PvOHJBLD8HGtJ991wdZ1I99GmXm6TT560bY92nTIesIfphpVE3+XtYL1kLon8SgH0A/s4Yc70x5s3GmJ0AHmOtvR8A2s9ztZONMa80xuw2xuzet2/fGpqh+03zZzmkaFd2LAk0mjBF355M1QWOPh4EdCwgfonUAkdPPw0VRF8Zk932Tmtr129dkbH64ZzXTVpyeVxHvvScO++zRE/SFBfaKSfn8E7Cd5klMefN09h0VzHtmlLoPQJuhdOXupkbVBhUVWLAk8W7A6r07yUZVFVM3XB0mUH0TROeKQEfqSSTc2zapkDddE9Qpf0TND/6aYTAlYyM5dXmxgjtP9ArYCqH6BWOfm6QphV5RCN6OH7/awD8pbX2qwGcwBQ0jbX2TdbaS6y1l5xzzjlraAZH2vrvFVE3hZl8haVupRdhRVmv0LmiR94fvLbU6cMxbSmc2gREPQXdpJ23o3XhXBzlvSukWBsGROxHnw6ulXEd5fqomdLN56OPr+WPN6mvPG9npORYANWkDpPLikD0uTTF1haSrrHzpZAxFnBIWRYpoUKH6PXQfF5/6fdVIfoCdVPi6Kkvc9qjpF/55EASqBv9HqLz2fFka0/Rlwgw90b0rVIupinOTdJVldgZeJ1xfe5TblnI6/aI/iR0r9wLYK+19tr27/fAKf4HjTGPA4D286G1NbFbwnIzzZYHwGeMK83kfPan90AvSqJVPgj4PpsaxzgwMUeoISSnPAqKfsrfvupMF0l776Gl5Dd3H9ox6zsg97rRAN3SuI4GJadRcikQcql3+blaOyOvG8bZ12wSkIg+Z7NZNaK3AdFr1E3Oa2g4qBI3Q2pH6e+kHxWcCHKS5LphJ+bSJ0TGbtbHS4rV2vT+VeqmcL7WRiCP6Psreh3Rc5tabmhRYFMfP/q8v36q6OeUAbUJgH71it5a+wCAPcaYp7aHvhnALQA+AODl7bGXA7hsTS3sIdx7Q6MQyAeaP0/5ArnvOHUMKmL9OXS9sAxrmGLRluTS+0HzuqlM2b2yTN2kx84+ZQE75gfYcygNsHL3oSB6dh2e60ZLVDyaNHFmQr7k78HR8xK1ggh5O+UEwfn93MokZ+RtrC1y9MNKn3ApeyWgr75yK8lhZXSOXqk/+rtjIiApsSrDKh8ZmxPtPcr+m5xj0xUZjTfpnaZJaQJKVwrxZ5fQmE4RfblNAHyWSdmGEqIvIXWiy4aDqrfX0HrKWrcS/O8A3maMmQdwJ4Afg5s83mWMeQWAewC8dI3X6BTpFzsw8UscDpSkZvIFTrhyi+uViJ1A4VxVxcpH4VYrMeA0r5uqw71ymn01ATfIzz9jB/Yc1BG9Vp214ZmMm0BjaWN8NGminB8xos8oeujPnqP0tE02satwfl8iKLpOzuumsfm86oDrJ1pL6sb6d0irOHlNTRxHnyJ6zTsramcHsg3trbJZLKWC7sMDTxr+7AIarioAma0UGmuTDmVa+jOm6/TryziJ3G+uXhN9aqL7rkuOvtxXAbLraRx93usmtxuVa0ubGlqhwjaDo1+TorfW3gDgEuWnb15LvdNKFIHWNBhUg+ihU4e3hY5HKVW1sH/PPzN6whgXiFVMata4bJh8wGkcvXRFkzJNzm7Adabzz9yOvQVEf8FZO3AXS5LG/aG7qJtRHe8H2gfR5wZ9XZcQfTo580lVUx5cmaccvc3SFoDjWEvulQASpKpdx9c3MBhWVbJRi7xEyZ2yVP98QdEPqnxkbE4+eOP9/vuE8dslRG+RrlCIo8/ZxDj9VeTos9RN/h64RxFfpXPh+XxyMqQgywTRN35PXNnO1EYXDlB5t2esWGE8wjn6R4xEykCJktWSmsmO742xbMaViN5TNzZkM+TKKKFubMhHT6J53XS6V2bpEF1JDiuD887YgT0HFzPK0OK7n/V4/NEPPIvVxRB9u7px++cqxthJE1Egk8Ym0a5pW/XvbpPvPNrLoX/uux9fJ6RA6HJblDI3SAe2a2NYPUik6i6aq69F9LXLCtkoys3dS3xeF2fP25sTya1PSw8Ejj7luGXbNIUs6UheJlppFN0rZb2h/pxwBTye6Io+twLnMte6QSYUb2OxYz7GxzZTn7Z9I9/XQLZnI2VLKHotSRF/eH5D3hJ1E+2q5I5Jjl7SBgakjDKI3rrNxjmI1/zoTYd75TQ5awA3MM8/cwdOjGocWhzjHZ+5B2+95u7oPEr1QGLZ/YXNwU0SnAKk1A1XyKUNKrTvtS143TSibM29e6w6QTQ20A51Y3HLfUfx2vffnOX0uQ7QAmSovcEYqyDwLHXjOPpJY/Gyv70WT3vth30bZf3yHkp/8/bmZDWInguVlzlzpDi7WHysMikdycvkNi3v8k4KLq75dnO3X+91k7hX6gicSw7RT+oG2+fifFU5zp/fW7THw8PgdbNWjv4RIVGkW50q3aCU3d8aQhr5yLWQ3yXnddM0Nlol5EL5ae/O2Bired2U3eaye1Jmjg8rg3Pb3XgOHF/Br73vJgDAD1xyvkeBMuqVIzNa3ThTrGKMrZuIMuCujiW+PXxndU2arCcM95UHYn49h+jB94xtLH7s7z+DB4+u4Gde9BT1OQ55HiIWwcxlIqkbhfvXZFhVbQoEi0/dfoC1UCJ68bdE9LmJpKCAB2Ztip7sNDILppTGpq3TIoh5v3BuiK5+XkbSavJ99QmY4js/0bvMbSVYeiaDqkJVpW2a1DZJNZ7zuuPtDx5AgHRw2IytBLeEopcIEUg5QaeU8zO5GjDV/uaXZm0fIkRPnblkjKVrk6zG60ZD9NqS2ddXGb85A/el//Qd+/H8i84J98nrQ3gu/FloobHWxr7Y3I8+Z+zkLeXt/obfv1ItT9fhg0Du96rdvrWI+N+hz9/TqO99WFUY18HHOd13NDbGatRNiVoZVimPLou/9Zq78ZX9J/CPP/Ectb5c15grRK1WVX7P2D5SMzRcom7kqovTKzF1g6SMPN41gU6P6AN440JzeTkXvW6MHTcW2xPqJtU5QDxuOXWTIPpNUPRbgrrhCkDzuAhKGclvJGSM5UFCVnC9EtFXxkQdPXnRTbs5OPe6UQZN1cnRp8esBfYdW1HLDyuD7UzRX/yYUwAAV37xIX8daXTmFJRH9IphmuQED5hqGoaS9HuQQWZ9RHL0UXroJm+M5ZHS9Oxz/vp8heXcZZU6GaLX7Ck5HWpaVH3n/ji9tKZ0P3n7/mx9OSVdilqVK8lplQmNKULnObGw0QsN+Wjkc4rHo2+Xgno90FK4f/6piaboc5GoXV43WsDUpG58LimSHEfP9RIHTzmbwUbKllD02obPqfEnvDRtMJMBcsCQLq0APFfvUav1aRUam09q5gKmYmSlI/rYKFW6P5IHji7j+X+go+GBMZ5HXBpPfMc6tjzx9y4HsEPP7jtx9BlAD0Aq+jCMswFT/HtPpcMnH0BQN5kVTeQF1cSJ2jTkyZWltqOQuy5H9IqxtHAPUhlffccBdacwLqkxVi9XSjjG97gFytHVmnhjbJfXTaznI2XMu21sM6vY8XTshi0b42tpxlg5CfEV2do4+kpNYDeprRIBG3/64xp1o4ypzfC62RLUTcTRK+iaEgnlllgAX1qFzmPFC+RIoDJhxpfleFvkDK55SpBnRvb+lAbn0DzVR54BS6PAgY9YDne5hLQIHU4zTEs5vsJz3QQl2s+9Mtv05BxelvOluUCrxrIkdzakLlge11EbhlWFUd1ESmc4UHzkrYumpfxBlRYAVbghqWR+6G+uyZalumR1OQ5Ys/eQOD/6tI6+EqK/y143jbXRM6M+NRATYmwz09vFcyxpbTbGRL+77/HKgSP60STH0ev1cwl+9MDffOJO3HTvEfzJD301RnWDXXOx2sw5Y/AhXdrM55GeAuERI1EEnoLoqyqeRbUXPIrcK40oFyMAipSsKoEglRftuNJwTPejL28lqM342gbdJMMB5+gnIUVEHVCwNMbCphOVQT44JUH07NlokjPMlUTbeIR/1y7FA6YaG3Lsr0yaOLaiHfx84h1WKaI/tjJBY4HTtrt9ezXetnQ7JWWsiXZPOT9tiSy5SK+bEpAAgGeddxp+9psv8n9P5XUjrkvn8ecU2cwy7pUpoo9vmJrB+6SchFRjrPSjz4xXLoToG2tx071HcP0el9560jTJGM4FTGmTmJZSYjMCpraEoueKkKM5Enq4Xhlpil7xc6VSGqIftIEPjbWqSyfgXrwMmNJ4VdU3m4nW3uVMoAzVRxy9y0tDaDsYJOVKQ9IkQJz3h4ROkRw9p7U04VX3BTAS0XNlladueC6TgB5TRO9uRHL0ssojiy4VMyn6QWuXidtps/yVziEAACAASURBVAbCkpLURLURtIekd9J8p3slp0jK133uk8/C9zzr8f7vyTReN6xunuUzl9QsopS4MhQbhchHoQVMyccbBU9mct0cPDHCkcVxEUnPMY6+tiFD7aS2yapc6gmtLSNufxBtnin6niJTncrlL4Ud+yWwoiNHLHslBKKQM3YImIr9z7XQdum1sJrIWK1DrpQQfVVFXjc0aMcM0Uv+nd8Hb5dE9Nva3atk9kpuqNaEO+H17dYpR8/ec8Zfnyt6dw9E3cQc/aAdrBwVa3v3Hm4V/Rk75l19lZamOEWNvM5pJGd3ANJJtLRaGJiYduuiBypjcNbO+aS8TOGhtY232VM3VV6BcbAjo6TduUZtM59EQl35HPA56uYPP/JlPOu3/rVzJWbo/pqwShzXTWJnywXC8ffFg7cSjn7j9fwWUfSRG1fKcdJWgpaVkcIz3fl+4ZF8/BncK03k5ZF4YzQaRz/9xiPab0VEXwWFvDiqvbfKpGn8JCeDobibaJCUT6SVAiH6+WEV8eV9UyD0AbrWxuf1McY21kbljFf0tbDbpOhwOEhXVocWRwCA03fM+fKx73fTUkQ5RT8dos/ZHYCUfukKmOLvrsvrxsCtWr7mq04HEKf47TLGcomNsfG49GW426fyfulyCUfv0xTz68XXV+mSTPvLXjeVZwHqJsRmTBqbeM5NZ4xNqZsZR99TItRXpwrA+9EzRC4l8nNt59xP3bEfR5bGyQQRAqaE103SrpTj1FCY6fKjn5ajrypUlcG2uQpLo4nvZGPJ0TNsYZEOLG6YJtnW+m6TMXZbq+i7XNYkX1tSUqGcFUpVrtyUcxAPOGq+zDfDd4yie3ReNwLRt7tokaLneVqWxzUu+o0P4YsPHMsq+sHUHL0+eQHpJCoVDp9UaA8GX0eHMjHGnfO+V309vuEpZ/vjnX70Np74OI/O5yVO48R72SqKuaIVdXwtDdHnUhAD+YApX7bI0TsgRC6+/h3UNum7VEspWV1Ig65sbj6jbvpJLbhA3kGIfnDLsFBGyijaeMQd+4V3fh7vvW5v4o7lED3N+GzXI9EzHdKL3cHy+ej73R9JibqhfrhjfoilcR0tO7l7ZWSLtZqiT3PdbJuLEf22uUGb68ZJP44+RUWaNDadxEn45BKfEyN6uoycGAcMedL7cWmK4/qOeEQ/78tTM4jW4fVJmRbRaxMlVzJc5OqQ/017MJB0bbjC+yg/z5j0Hp509k789Auf7NsWjzeaQEU0dMaPXm4VyevQqET+CeQNrUDej56EtsLUZOg3HrERmBvVTcrRZ2jLqC0sO26S1Gym6PuJ9KNPw60RJTXTnqvn84QCXGJLfp7elBR40+gunVTOIfpwTPWjr8roQqVuMtvBAcFPefvcAIujGmPmdUM1uQmtvIQ0JkUfC3PBmwdwip4HL/XbeKQfopc0HFfgUsGEC8X8Pd2j3G1rMAiKnu5xblgl7/CQMMZy6oZHvOZQL72LXQv9PJlVT6L2mDTGyshYroDI/bev8JL8vIExiWI7fcccvvHic9r2xjmHDJtAc/noo4ApQYPRufIcfjyelPJKkwdgaY/ivsN6Gm8gRMYSdRP2aki9bnJeUdrqQnOvLMXQrJdsCUUvQ+OlayUAb1gByhy9zNjIk2FFXjcsu13Oj7axtuX8OUcfv+X/+1ufqrrscakbm2zSnNvgGQgIbMf8AEuj2nO7JUTvrhP/rSmL7XNE3UzcxhoDh3ADj9yN6K21xWAfklJkrPueQ/Rc8bhPqegJAPAUFXOVSambxTFOWRj69nLqhqKpXX1lRH9aS/2URFJV/J6AdCKWqyL+TDkl1Uu48mSHB5VJ3hVfBVkbv1se1BRFQ3NDOOfoVffK9jfJ0bO6Q13xbfSNRgXyO7BRGys2vv0Wi8WAqTx1M2kCY5CMuxmi7ycxcoiVA70U8pABMl4szEIvl7yB8gHetXsPPnX7fgxaSqixobMmxhjrrhulQGA986df+GT8zIueErl+atJYm7jSlRA9ocvt8wMcb/3A5b3oodjdiD5QN7VLw2tM616Zn0Td8fDd2nKKXV7OKoMFiF3e5Dn6Ckjn6LnxXcteeXhp5NE8AL+cB1wwGkkO0dNRXkdOcrEB4f1JY6zJ/j1QuOCSxIg+fK8qk4AM3i9y1I3s01YpQ+eTjL2iN8lv/DhvX7J7VBNcXUe19eW1R3FvEdFXkbOFpz8bjbpJ75HaQhLF6cySmq1OStQNNw4Fd8m0DlrGSZdCjtjv2n8Cb/jQFwGQVb4BwP3oU44uSYHADWaMc+wyxsrOVTbGtop+boBjy8ENcsIQvYosJHWDFBVyjn5uYDzCpVP77DBlYXsFEkn3yrHIdZPj6EeTxreLBjtRTSQ+dw2jsOYG6VaChxfHOGNnUNIDZjjnBt4coqcyfRR9Lh9P0yL9y298IDpe4ugHVaVmHs1JRIew4wNjEpDB+4VrbjreKpMCMBL+rKKAOGE8lY9ioCh6zRhr2haNI7sbHQ2yt4DoycZB/HxsjNUBUtG9spimONuMdZOtgeilomd/ExfsqBt3TL6QUxaGuP2h466cSf2PqfQ/fXaPP14RR88QpKQnXLmY/uCDMZ8AKr2/lLopB0wBjro5thwMTs7rJpSRiiDxW2Ypm0m2EXUzmviNNSh2QauDhB9urJ6XXzuHnxfvJKYn77VwfCjl+iEkxdE3EEdwBmOsgugXRzh9+3x0HikwPnnkDH5EGZ3eg7qZiL7r78la3HL/UfzRR78cHS8qekWhlCRSnhE1klI3YGBI2lHouHQZjlB/1r0yIHBAtxlp7eNS2/B7sGnoz+LBo8vpwVYW5oJ7JfH0tqUFJXWTy52jInqT9pUZddNTZJi8tpQ0bCkpX8iTz9npjW6J/3Fj1Qgfh+hjNz+ueqIQ8oyip6OSz9TuTw42juhlJw4c/TBC9ON2pyM6R4JQLUAlR904+qXym1/TM8h6d7B3ZG1/RM9ri7YvtDr6tdZiZdJ4f/9Ra8tYGuuInkf/am06vDQW1E3ob0uM98+58C1Pg+gzqZSthQci2j3wNnhEPeXIzlI3xiRGX66sJFXmbWJGbDzC28lXzGLypvsA4noNm1zipGYpdUMSb4mZvp/cNoz/9ZLz8MPPeaLn6GlzHL9vQYLo6VOs6DOGZt6U617zYrzsuU9U27GesiUUvUxqpi0TjUEWdT753FP8dznj5tz4yIgXe4Ig+e5C0ePzSDz6MR0pEBqFo2edVKJj8ijZPj/AUYboE44+QUOSukkHCN9dZ27o6uDoug+it7ZfxKiMuuTucJPMXrOj9rhH9DUh+owfPfe6aZ8xp2+OLk1wKlPSfHPwPtQNIfpTt3Ur+rESAwK4Z3fHvhPJcem5ZBCeK7kH9pW4KFOkVarYOHUjEX1wW0U/Yyy3wQivmxyvzx91AlaY4bRElwBQN5kBgG95+mPxhNO3eycJ6tPkADE3qBLXZHmPQN7VM55Up1h2rUG2hqKPeL54sFCn4gydfCFPiRR9/OBzFAGhpwkL8tAiATmaMEYq+vaaHe6VtU2X6RzRSyRKg23H/MAbbeeHVeR1IxO9AakfsNYJt3FF3yJ6jq7zkbHxsyltmhHKuXf1pLN3YvvcADfsORzVoRmx6LlI6ibndVOx7Iyk0PgtHF0e49TtwZQ1MJy6CXXKSfOSJ54BIEwGp/Y2xmqK3uLOfSmilwqYB+c599/OS3rh71oaOxOOnvVpueANfvSFpGYZ90pJ3Wi2NtlWzUWYTvP5ZZRyQB7Ry1WJXMFtmxuodoaie+WEe93ok9ZGypZQ9I1A9Fqncoi+LZ9QN7Gi70r2RfVWxvjOScE2ctXAjbGUw55fiz5LlndrLeaGcY9YLqBJuh5H3zvmByJ7Zeo6KZW0ZrAdDsL9zLeeCbzevDE2/t4vYMp51gwHBv/beafh+nuCos95qFAg2baWuiFbRi4yVnL0QHiHy+Mao0kToXGerIu/A05H/Pb3PhPv+ennAQAed9o2AMB5Z2zvvN8xSyPNxSn6FNHLyd8YntpB39g9JzFdw75n3Ct52yTF4j6dkvzyg8dwwasvx033HvFlcu6V0jWXv9+ccpSUGaf3uvzos4recJ0REP0Jr+grNeiLnsPPftNTAAhE3/Bxx+5rine0FtkSij4OtbbRA55jgTE56/gFZ+3032WIci7Unpb8XNEDqcGXoyypXLnPcbfXTd4YK3/zin4+KPptw0GUvVLzo0/dK1MXzIohvOHAtPlhurcSlIi+H0fv7B6VMfjq80/3idS8AVg5h1YwO9pJbjzRqRu6Pu0nDIR3SM+I7BunbmOIniXryiF6fme//h3/AW/+b5fgORee1Xm/tei7JE0DfGW/Rt0ISsUYT9tJW1OXcIXDv7uAqTyitxbRLO4Rffv50VsfTK6Vc6/ke/3y3xydqp8v+ydX3uMOP/ouRV+ZOEkeRYMvDAexnUEAyFe96CnpvfFJh19shuj7i1z+0QP+8a+/EL/1kmcCQJTUTA4mjrYGolNwjxIuk8a2+TzcCyS+1E8mlDysCvXJIJbYQ6FwfwpHz1MgSAVNnZDTLNvnB0mum67I2Ep2yrZu8gAiX+Mo1iDnDCQ4+j4BU5RozRiDpz/+VH98bmCySc08dTMfc/RJZGzE0ZsopwtNIWTf4LQLAYarvvQQPsaUWOw2G75vmxvgxU9/TK+4gUnTqPe0NK6xNK7xy99yMf76Zc/2qwRpm6kYoucTWB+J+2X4PqhMspoEAr1hhcGcK0kAOHRilJyb23iElCF1Qxp3lGAs1z4uMaJPVxpcVjIcvUzMRk0MaT8Eovc70dloFRwnWwy0zYy6WaU00QMNL+bpjz8VX+8TNBlmNInP5wqR8uKQ5JDjyqSOOHrJ71IHHphYqWgd1piUH4/uz6bulTxgSkaCksLaxs7ZJjhrh3Li62heN5J7rgwiRT9sjZP0lPog+r6Knnj4yjgXWJK5QZVMwPSMadNyoq1osCfUjV+eu+fAjbJUbUD0TNG3q4kf/bvP4vN7j0THSTSlIt+fJtz9NT7ununCcIBvfcZjA9VU5OhX714Z0TiVxtGHfsw5bH4uPY8DiqLnhnjNvVJy3nKzjpxhFoiVe0gkNiWi91kyQz56AFhs+9DC3EAYlOkzzlYrg8TlJAjMjLFTidwcnKNWEvfdYlI3eED4z8pyEXWTQY5Lozri6KVLGHUOHnk5GAhFjzABdPrRJ143dfQ7CUeWEaJv/d/5lol9kivJbmgYdTPf+tFPmh4BUxGit1kvlag9DSGhmD4Iij6UpfpoAuT3DsQ+78bw1VRQkPQ8qN6jS4ToY2OsdotaIByXPhNbbvUo86qH3bE0RF/5dk7DC0TUDeujGnXDqRTpdSPz0WiIPvKjj9wr3X1K+lMmaJMTERfNk8ZgOuTMOXpnJ2oVvc/YOoC27y31VbqUzPvk641oss2RLaHoJc8ns+AB9NKA911/L37yH3ZH50cdu4qXVlKhEHJfnrSKvu1Yaf6L0AbOW2pGL20zi7iustcNN2JxpLEwF86hPWRJaWgcfWKMVbibyhgseETPI2PbCa6He6V2P/o5rl5jYkQ8N4iv6Y653+m57JiPFT1fAfFNOQj5ckM51UvUzS6O6I0+IXLOViNNSrtBkYwzfvSkvLhdAVDSSHB70FoQPTteGcXoCxEwxctX4TwAOLiYZojM7WVL/Vj2JQmQKjERcdFQOp/Y+4hM40Bj88SIUzfsBDYxcfuFnHP4Cl67l42ULaHoIy6MocvYQOY8W/YfjzfVpiKPb3lPCqHmdfPBR4EvS6Maxmg5tAVHXxh8MRdYvj/pjhjtdt/ESoyENh8BQkRrKdGTpI80Hp9TN8MoMtb9PmksTt02xPd99RNw4dnByL0aY6zzYnKDNE7BWyXvJWwC7u5vu1D08T2E90DPgb8bqvboUp66Serkr0e5taoynauYnDGW3hnP2wTkEH1L62ToipzE7pVMqVZarpswlVlB3UhEf/BEuol9tJVghOhjRU/V5rzVZF2Aruil73qXBCeJkAIBABZZau6XPvt8X563l/ctOZ64ByDJJun5rafoaxuWv5KSsUCyBR09/B9+zlcBAHYuDIvGWDLMLY+byFuGFM2RpTG+588+iS8/eKytP3RGOfgM71CdXjdxj1ge196I/E1PPdfXxRE9py9Sjj7tZGnAVDpAqsrgnF0LAIi6qZIUFAtzA/zRD/wnnH/mDvV+LKZD9JWBX0UAwRgbUzctop8EX+eccNRFA5O/G3rfx5Z16kb1wsoYY7l08fS5gKmxXzXGiF4GTElQQUbbPmIy350fvUnK+mcFGxnaffRq246DxxVjLHs+1gLX3HkAr7/i1sQYq62K3d96XUCaylm2t49Q28kYS2OT3CsXhhV+8T9fjFt+61txysIwtLchY6w7X9qrNOpms2RLKPoILXJEL1BK09iEnqCX8jMvegque82L8ZhTtxXdKwnRr0zq1r3SvUzygPj4Fx/CjXuP4A8/8mXfBm2TC37tPlsJyg69PG7w1V91Bu56w3fi/DN3RGl0SbhyJOPkSgHRSz9mHdEbXHTuLn+tgYlXFJMmbBPIB2RsjE0nLv2+A0qKqZvUGEv1rYiAKU24oZIMfZpx7ejyGMPKRHXlXGFj24suXZPbpNH96MeCuqFryViEysSG/2c+4TRc/rPfgGe3wVsl0ShFAKoffWSMbeLUH/LdnxDeTvw+AAcufvBN1+BNn7jTj02Z739hriqsOOK6VUVvUscDLrR9YrgHQt7CGMv2YKgqgx3zQxikHD3dv+wmJzV1Y4wZGGOuN8Z8sP37QmPMtcaY24wx7zTGzHfVsVZx+eFpFuUcfVzOQptl3acxBmedstAe44M+3liBUzeaMZYk5J+OPSFSA3HoULmgKX5/XIj3rYzxg54biRaEeyUQcqg7VJteR3oEyH5YGeCix7gAs33HVjCoqmiCoH1yqV0ksTG2XwfniD6ibgZVwtFL6kZy9PE9BDsMIfrINuONsRPs2jZMqAzNnhJv46dftwvR57JX9jXGGpiEx3/G408r7vkazmXfOQeuKvo4epUPKe5KnJOcH/1YIPqVSeOowkEl+qVeFxBSE6ftzbfnjS99Ft7+k89hdYZPvpfyiZV0tWhMbDwOyjwFBNzIq93LRsp6IPqfA3Ar+/v3AfyRtfYiAIcAvGIdrlGUhiFErgCSsG6rRX8qT5od4h4lQFD0y20nrIV7peeqGXfPO3/UpvaTBmIO1DfWqvnOSXH8l2c/Ab/xnU9vEV34fdtciug5R69RN1wZGZOiU4fonaK/68AJDKrYpW3CFD0/V3L0lenmrCnXjUGM6OcHacCUp256IHpuY6ZVC5+Eqa3HlsdJ6gIa/LLpUWqLDKbvMshq+x0DQXnxzVIALWAqTPSRou2hTHIBXwOTJjUzrLy1OqIvKdYofQCbJGiS5nvybpsbKNSN/h0IQVKyvSWFunNhiKc/LsRpSNuZz23EImN92SpEtVs2TiuTOibwwEnets2QNSl6Y8x5AL4TwJvbvw2AbwLwnrbIpQC+dy3X6JLjKxPsPbTkUQd39xqIDqFx9JqiL3H0pOjrNmCKaIskXWpDk03o/APWCQBEnQIIS8Tddx3EVV96KKpLQ2VEzTzj8afhh5/zVRhUJvL+WRiWOPo0BUIj3Di1MlVlfG6g+48st+6V8eAyymDnT52CR0qbTlM5Z4yNPUzcBiHp3sAA86MvIfpk8m1d+ERbjy07RM+FjM+y32g5jKR0IvpaD5jyxlhJ3Sgcfcizz/t+ei15zGT+qCqkHD3r03n3yvSaoU4d0dMkTceWJ1zR623nk8agMip1o9GU8nctf44xrTFWet0MYyov2BRiHl4LQHS/xdfeDFkrov9jAL8CgJ7uWQAOW2vJaXkvgCes8RpF+aE3XYN/v22/V3p8+cuX0AbupaUcfVonPyQ5+oVhhbN2zuN13/30aNb2ee/bk6nDueyV8eCTiJc6PrX7+//qavzo3302aoO2FF5I0sfGXHOE6D11wycgMTlZi/moE6fPpzJuo+ynPXYXfvf7nukUfWby5E2ONoq2bpLsQvSkRCpjsDDgydQoGpdRNx7Rt143RUTPvG6q4HUj38PypI4GNZ07aW093/y0c/Gkc5xnkZaVVIpml/imp52L51/kgvomjfX0ABdpjKVLyedXVQxMdKwwkuyhBcSsTShUpwuYQnJuiS6K0wekip4OLY8bbBtWCfUiqbRwT0b3ozfpxCMni9guEa5jbRjji6Pa0Uhi9cNTq9AvxijODScjdWOM+S4AD1lrr+OHlaIqIWGMeaUxZrcxZve+fftW2wyfLMnzZAXqxtq8JTx3TFIEg6rCda/9z/ixr78QlTGetpCDjiYUUiJAbM3n7eOGLU04UuAiESKfVAAZMBUjeo2WqWsbTR4uHa1QJu3fH/75F+BHnvNEDEyKosLyPRyTHD3x4iVxSsS6VLksDH9uUEUDEAjPVqZA0CSJbYBA9G21o0mTPOPKGG/QfvYFZ+AJpzvPJ24byd2Whuhf9LRzfZqOSdPggOKO6GM1hME9pVTc5Cn7oqZMpJ7PMT35XDfuuxsd/D1QfQVFHyH6cJwmaT/RjmssEKJnTcih+7lBpfvRK/2Yr3Zl5CxPtQzEuW4kuDItU0D3wse05q5M5/DzN0PWgui/HsD3GGPuAvBPcJTNHwM43RhD693zANynnWytfZO19hJr7SXnnHPOGprh5HAbxVg3sVsWiaNuUj9lbVDyZy+z8+VymuSoG+5148cLoUnRoXKpdx2iT9spOV+J6DWvmzf/+52+rI7omaKvNI4+/ntQVVlPppzRzSpt1STi6EVkLBDbW+hnLTI2TeercfTBs4N7faSTaZgsKTIYiIOAchz9wjCdfAZsZTOpLQ607oj83Y0SRN8q+ipVwDxnDz8uRSL6ODI2HFe9bhCoDqLXfHkFtUrJUXZLgrpZmTRYGFZ+Nzd5DSAed8OBTt2YCklH5sGEMsWC7L+0Yj0xmkQODq4MX61apszTtMs+7QYQHd8MWbWit9b+mrX2PGvtBQB+EMDHrbU/AuBKAN/fFns5gMvW3MqCED1BirVmGRqj5aNxnXKc8aPnwo9MBHWTy2kiBwP3xgneEnHAi+8A7YGr7zjgd7riUmeMsQNFgUUBU9yPvkW4lHtENcY2UDj6uIxsx6Dqt+VbHBlrPYouCfHwEv0HxcgCxdpnuzKuMaziiUEqWG4Up0ApHmZPTV2ZNCltwdpBm6PL47kB/EvfcjGedd5pcX0mcO+TxuLAiRHmBiayDYwm8aoxZ4wljl7SJtrEk3D0ykTl01HLpGYc0QsgxF2Gc5KjdQJHH/7uMsZyRDysTBLA2DY3ATWckpMpFrwNrf0kFmBxpY7oUGoLrcSbhoO3gOjD5kfiU30KGyMb4Uf/qwB+0RhzOxxn/5YNuIaXM3ak+3k2Hk2HcgYGsJpSUhQ9V1DSjS/DxVLHCl436R6RA9+BYiRP9fzEP+zGOz5zT9KeJmOMlcckdcOVlOSsNf5dJk8zSJ9PaoRMu5Avw4om7pVVN6JvbED/0b67QwXRtz8vT2rMtyiQRKNfOMryHL2J3+Go1qkbXq+0v7gy+v0878ln47lPitMVO+Xc3k/d4MDxFZy5cx784fVNgVAZ9z7kc1URvZLWwNfT/kT3pHH0gW6U2StDmZzk3jt5tRBCXhk32DZXJV4z/Dt/7sOq8oiePxtpzAViRJ+bSPiqBXAcvQzEMybm6LnBlTh6vsmNq5/O3TxVvy6K3lp7lbX2u9rvd1prv9Za+xRr7UuttSnpuI6SKPomvJiEo0dqjO2ibnIbmchzuXsnwDj6Kvajd+fFHYmPV76LEm+DNjjksRIdIhX9sZVJMhgndRNRBiqiF39rlJI22DklRYi+y7+bZ6/kQjEDfHVGg2nc2hl2zgdErO+QRO1PvW4aRt0syFz/fMLh1E3UyPx9abTKHEf0x0c4a+cCOO899n70IW6Crh/X5batTBV9v74j20+KKUmBwMrnqJuSR1Wujy5KRN963ch9ESJFn6Fuor2ZTTrx8H4u41s0N0jAUTcaotc4emO4o0YMBqindeCcdZWTPjKWG90GxrTUTYroHZeWzyiXO+b2Ju3m6IOiiX2BOZqQuS7obD4o9h0L86JtFV0uwCgxlBZQ8vb58Kofc+oCnnXe6QqiR+JHL68hlUYJ0fOSfHq17YCQ1JMUS8ZYcU3P0TPqRiL4Uxj1sSAGJ89USUqER8tSW3WOniv6dBIHygO4tAqb1Bb7T4xw1inzkfLsnwLB9cNE0fdoBy8kOWXNGEvlpQ1L0h6a5PoojZnIGDus2lVxKJejceYGlTeU88ldo64WhHeZNpHIZi6OUi8sjuht6zjgjgf3Snp+0n6xmakQTnpFz63sAdFrPJ1LMyA5ek2B8kMyO1/OX9rzxoToiSs0wTgmkYL8BGJFz6N8+yB6btiTwpecn/iVF+HMnfOpMbbpDphKFFWB+qrEcySxrdGqE9E3LupSFhuqxthQaGE4iPLXa0ZrT09Uwbbhl+ptvWOFuuHAYmGoI/rSkjzN7x+MneOmwcETKzhrZxxMLqmbYIxNJ2FpWHTH03aUJgMPQNoTkxUR8opcM8R3XVuKtU5prkyaTo6eN21YGa8P+iJ6stfwn7VxCbjxoVE3PDKW07K10EPJI5kh+v4iFT0PpEmpm7zhkAvvhzIsPYvoafndDspxEzh66T8fOLq0Hp6VcmXSJJ0laqdU9FXqcUHCqRtCM/Lea6sFTMlrxn9rWSh16ib8rhlYNSH3Sqk4ieoYK8ZYwCF6vjRPeXaARhlNxMNBiq9GkyZRcjy1Qo66mQbR8+dQt143Z52yEIELmb2SmqTx7Kp7pdaOAnUj6ZciR58ETKX1JdfuwU03tjXGDgeJjSaH7oeDwNEnK1PRb2mVxzeg8SuZnGKGHrsS9oyNJwl6LjQhy+c6ORQP9QAAIABJREFUo26mkFHd4Pwzt+Odr3yuj9LUqBsKfuiVAoENjUZ43QwiRciOM44YCIqtxNF7Iy0P7GJ1jiZNlO5YiqY0cohe8+FONh5p4r1pNRfMrr+jYzlE71MgpG2KwuOV9whw6iY1xgJuMHLFoA1ObhD7+RdfjFe98CmR8gJ0Y+yO+XinK+86qyz9NZE2DfKUAZzdZHFU46xTMoi+kv0mRaJPe9wuPINtu8jLx+3Io36p8NK89zFHr6cpTi4ZyvTQcI21LmBqrkoCnnIBU3ODEKWaGmMloncTNn8OQenH98JFIvrK8MhYnusmlBkIIzr9NKNuppCVcY3nXHgWnvOks1AZR92ENMVs8LWfk0xwT+5YLULt8xx9i+iFDYCj7KFACuFTf+Erk5oh+nI76Vo5lKxlTpRFJ03sxqlOgaKt2sSiInr2e2MR5UvhwttPrntZjr5p1POkci563VQG33jxOfi6J58VOHrrJr1xnW7hyBF95HXDFMs01A1RB8PK4GDr+nrqtrnILsSjrHkdkqapKuCVL3gy3vKj/3t0ja5VqyxjfJlW0SuBWVS+a4cpTXokLm0VPRlj8/UNlDEICOoGaV/m1E2u7dpQkvYeY9J89O44b1cVHdMmg42Wk17Rc9RF+5fWCgqmr0kUp/I2ox2maguuprIcvacTUq+eJPWB+IxCwtmsMpo06m5ZubYPTF7R6wo5r6Rd+zT3ynIb3HnpQOGJn6iM1qYY0etRwXPKs+Zl+A5YAKK0DtRmjoplHY21HkXLCXK7oG680lVAhSbpigi+HeRHPj+ooolxPImNenwVEa8kclfWnnMpYIqeDXx7orJM8VobJzWTqwFNBhpqEdI0LGDKpO6Rvi72A6eyYo4+zdlEfUT2dyCmc6TImAwDydGH475dgqrRnBU2Wk56RU+dAUBL3eRy3eQUcVnZlRC9DNZw9adePcHwJ184knaOBEfflIyxUmko/KxvnzK4NL0gFUeyauiB6ANzwycw9+kprcykFIfHt+9SFNO8britgBQ7eUik1E2KWnm7LQJdIs/dwZbuPH1u1UvhanSb8fdEil7aPUYC0QdkryNxKep77kPdsLZxqUwow/d/4PUW6avCj/S8l9lG3JKjz7U7RvR8Ak8BCinsoaAq4898+/g5NNHFxth0ApIKvrTqWW8Zdhd5ZMsKc4GrqjiNQGxgcp+5fPRcuIKS2StzRrehwhtTG2T0ZHjhaadYYcprZVw2xspjzhCnz91aQq2uYDHXxvLvGqIPRqdwjA8GV49+T3zgNe1iSg4Iv3pqdERPA37b/ADHViaqi6S26ggpEFiagwJHP9+iTaoztCW5rfBbxgg6HBifvmFQxbtYBU+SuL8MjMEpC0OsTEbRcSna0ZKvve+XVXpv9LtH9P6/+H6KiL4ALxeGzkWSfOq3zQ1wyQVnYFHZwAQQ1E0B0Scc/VysfN33tjxzkZSi0YA+Mlb40ft2CcqNkfSbJie1orfWuqAWmp3FXqIqdTOZzr0y2Zu0ShEAECzrKkdPgzkxxqb1cEQ/qmsW5asoVDGYXv3tT8PpO/R9Xqjjv+DikFeoD3ebKqb49xJHH0UYt8/QsjJdk1fg6OMy8xqi50a19jt5GsmgJ83DAgjjjvoVvxZJTN3oFFDJyCbnW+9Bw6gbl7SNUXgJog9tf/tPPhfv2r0Hb/nkV7ITjOfaB3qKANdm9l3plxC/0+lyY56uc7t+W5gbAMsTLLGNuF/xDRdny/MVBH+26T634jqM7pXtklQrF43GivzolfsPbrHxb5uo509uRU+dlvNtfINlDa1JakVHteF7bvMAVz9XLrHXDa9L8rie2uhAP52IXrT9hU89Nynzim+4EJ/48j7MDSr86y+8AOefEfZxLXrMUPs7fi/50fNfOI9JZbo5eqty9FQmSo/LFX1bnqIYpQHNLeXTwcxRag7R71wQHP2UiD6HpIdV5ZN6DSsTc/S1dK803n7y1MfuwuntHgklxUznj9sdxorUTaatvM08PYCWprjESpQ2hqexTAheBihpbaHrRgb5QdAJvFy4Tup1Iycp7fa1aGQ1Hz07d05ENNNPfbyP1ktOakW/MgnGKwBtwBTn6BVEvwrqRqMFeJ1A6kdPwj1h0jTF+TYAjsbxAVPKyOlh08Jrv+vp/vvFj9kV/aZdN2F+pGKvyn/zemM/+tjtNEfdxBx97LJGotkb+PMhDxiP6GVSM2NUZeZ5Z2tVf2wA2DHHIm6HFVMk7p+1KEK1HHXDjbFSmVAKBB4wpbpzZq4bFD0HJno7eBt5kd2veTEuu+E+/PYHb4n6rbUxtUnnlHh43v+tBXYtDHFsJezHCgRFLydpKfSojLgHeoYaRQcwcMiqp/surUrmhvK5AYg4ekR1uDbGbdgqSc02TfjmwYBD1Tw3Texe2SL6HtQNf/m1jIwV/rn+OBlj5QqADcqc9T3nibEyZn70BS58taJRDF1eNvKSuqJPUQ09Fa/ooRtjJaJ3tti4nLYln+YPLX2eefs0ZUZfrYUaSg/kvW44b112LdSf75zg6LnIPQ9kYFxXNCo9P46k0wyX6XfejrNPWfCTnkekxiSR48E+U3gG7W+EdHeyKGZahS31RPScZonSUwivmsRzy1M3eWOs9ji1KGuO6LV3ISOa/by8xvE7jZzUil4ORkqZqwdMuc/cJhlcpLdINnslO0dLneuuG7xuAmLQFT4JJeQa1U2HH/0aFb2G6KViF0o2oW5KxlhWlmf4o+voq5RwjELhE7tAxrBM1XmO3u+qJV1q9eVzoCOCe2XJJ3+u3f3I10uILWkdv7Z4fgQCBoy6GZjIwDmqG2FA1hF9Vrf65xLaru03K8vLd/21F5wJAPi2Zz7WnyOpG93IHTcn7M/gPqO8RMMY0ecmaxKOwqPgKTYBa22QoIt/D4Fi6aDToqw1jl7TDX28ejZKTmrqJkH0xgiOPlXKffzo+aFJ02BQscRpnIvlHYvylSj57mX0JDVLKiaS7a23yMq4LvrRd6UQ6JI+HL28RI4v5yLvD9CMsTlEz71udI4+F/xl2vqlMVbuOsTd9TSFGXndFPgxboylDVIAfe8Akpx7ZWKMleexOh972jY87rRtoQ7Feyu6BmuvVh9vB69PlnnqY3fhrjd8Z3SOtYjyW2i0h9z5KSRlM8A4RvSBow/G2JJw5Skzi7Y3k7SH/63lKAqrLEXRy2MmjozVQI7POkqn+p9miL6XeNQ1CIYVHqkXo60WcfdIgSAVVIzoK7Wcp26UFUMuBYLmigWE6MsR2yy6T66baUVH9AWkh5TDL1I3rCNbgeiN0ZG55kcv4xB0RR9vDwgAL/lPjwcANSWAppB4EFDOGMuF+9FbHv6ePUPjxuGvQ4jeuVfG/ZRPqD/xDRfi8p99vv9bm1jjazDFSu0oUDcS2eakMsA7P3sPPr/3SFIPf65SOcrxsEtR9Evjfoiee93wZ5R63QiA4tMScOomLqu9ey2mwPdttvEIf6DSLbbrfW2EnNSKfmUcD8ZB5Taq1rYSnIq6EW8glyUxRi3ue7pVIUOP0iij1AMA21vqZmXcYYxdY0/pmuRcG3UkRFJOahaOkd4Kk3Dq2yzrI1pAPj8tJqAybIXU/v5tz3wc7nj9d+Cic4URugqBYFrKh//5sdu8oikpen4POY+LpJ1S0bPJKyTBSq/JldhwUEW2AvqlK6iI11tE9CY9pkllTLIjmrZKTXbC8jSnu+FTIo5eUjdlFcUnbG2FTUuj3MqU620ZWa71M82PnnuUaQAil+NqRt30lFHrKhbcK90OU6SYNSUUh83rnVke4co79rsNZQgZJAFTDL3kk5rFV9zJEL2nblREnxyaSrSO1onoxYFSPnpu8CSTnU+BAKG8KoPzz9yBi87dhRv3HvFlrbWBeqgMRshF+dKEGu/G5QyXsn2cnmDH2+8fvfVB36dKip6uC5B3VnxMk9QYm05eWr/V7lnWkVMcdDgyWEtFH31vn02HIirZiPhPEgXTe6cVeczRu7InWi+c7fNlFcXzR0XUzZAm4NDftPNKkeB9EL0B5+g1D5s8wJslNespK5MU0TeMo88FN5EMq6qXsuOSQ/Sy8/rybZlzTlnA2W1WQmmZl5cjtLYyZtTNBiB6TSElxthEMcW/l1MgOHHvxX23DGHxSeKUbUNc+csvxNc88XR/rGnCVoJUD683bpfuMgmkz2nABrTmmQUE6qDE0dN9uPsK/GzpraTZK90nVyDSj56O5URDkfHv7jifLBIKqeLl9TK560bHFHuBzJtP74PosR3zA18XGWOPk6LvMsayscTBEL03K8r58wR95I7F/V1791oKhGgrQW8aCO1Kc10h+twM2RKKXua64Rtzk2gPdTjQ6YPSC+BoK8p147eDSz08AOBDP/d8/OjzLnTHxIuWimh+UGFYGaxMahxbnvh7eftPPgc/9LXn+3JrNcbyNvj2dih2ubLQFb2JPitjkhQILn1zet2nPXYXnv64U3Hmznk01kZI+dXf/h8AINo4m99HboWk0hRi8FEdJLTy6EL09O4ox76sU0rOKBgpekbj+GM93nWuBB0vGmOVpGZdXl36hJvWn+yEJa79/7f37UF2HeWdv+/ce+etmdFII2n01kiyJVnWy8IytvzCYFs2YDvBG8cOcYpXEZtgCkhiQoVl2bBxshvyKKjNEsKGLNQS1iGB1JpKCDFLbapiwsMYO45ixzHGwS+CbdmSPaOZ6fxxTp/T3efrPn3uPfcxl/5VTc2959H93T59vv7693399VCjltJKMrDi1Fw80KrZQjmosxm1GmksqQv0VJi7dcmy1HfRy6InfuORrC8A+Wg7v/atEsta0ZsOM+mMXUhXEqrWWh5qegIVrilVcXgl7+xdOTqQ5eQxOwOjmAbqEZ49NY+bPnFPes3521fjpiNbsrIrUPR5qsb87r7eh6OPn0v8Od0UBsCWVaO5e87ZMoW7brsQw40aFoXAybkFjCQc7o1HNuPRO65mHXQqR28qRS6NA6eQ1N8un2KRopdlx9ac/lw5yPqmRgfw6t1rMTsdt4FG3UQEYdj0rm0XTee+CTWyx5Qjuyj/sdiitw/y6q1mMWa5g/Uo7Ufy2b44vwCivAVtoqYoUTVsU84M1BmkxMqRRo5GlZ/V6/zCK1WOPm/kEFS5nD+lregLRZ9a9BSHV3IWvS33OTv9dL6oPB0kaSIbdcOVbwuLiztqhGdemE+PHdg0mZOtCovALCH//rstfOeeseqMJXkZXnj5dHKOcOulO3Dn21/JShJFMU+7sCQwkSzxz+pkBhdl0LbFqqv3c22vXiUHpMFaflC5/pyN2Dw1ov1Gc3chG6Rs02OD+MTNh7FiKP5tqlLhFAznoE3lLphJpAOgQQ9p1zDXFyl6M/BAr5MfQNVy16wYBADsWjeeJaJTOPrhZGNwF1SjQrbtcKOW8y/IYn7zJ/fh2x+4XA/xVK7RooVYiz5vCPG5bpQyjUGlG9TNsnbGZtRNFl6pxtGbmw+YUEPyVDipG22qpxxPUyD4hG/qVo8ZSictEhlL/N+u358qO1XxtsrRZ/IJ47sqK3d9Bleee1XxLgmB40++gCt+52taubYl6mpEh6nobbOw1BK1KBb1fs6iV8uVSbXMJe8A8F+v35+7R3UauyBlMy32hoM/tx2TkGds3UEe9k2BUBSXL2FGsKlw5eeX5647tAFX7Z3B/k2T+MAX7geQJDVDrOiLaBtAp0XUFdG2VBPp4jFmUFbDbgGeo2ct+uQzF3ml9jUz7DhQN57gqBvVoteeNdOotkU7PhaZ+bmeRt3onV9NgpWVr9/PLbIaqEc4OZ8lucrqBPu5aZgKNiItpK2IyuHaz3inUkrt17/0YFaPwadz3PVzp+IZjanorRkzLZYo54hTOVTut52cK+eMVfe29XHmmxy8aik2apTn6F1RN2kb8uc5i96V1My0Sm3gFD07u7D0mRoR9iczVWkoydn5i3OLhTH0sgwpqyx3qBGx/Un9b8bym2UAvEXvyl65JPLZK0kp0+xzwaL3xLyR1CyK4vDKxaUl1CN9swLeouc7s69Fr17H5bpZMVRnX1AzOsN8YaSiPzWXOWKz32G3yppB3pIGvvZLl+LZk6fZ82adfEx7ZmXJ7wLANx59Nr2G0muT70YxRLBa9NbBWfDnuUVKqWyW53lqfgERuRVsWi+kNcf/Fv56u0VfZ1bGOqNujLLz5+PjavRLfsFUvh2K+peDuTE2/THOMQOiNJTUlbGlLHqQTt1YBjLV+Ijr1S16fW2Mz4IpPteN2vdzUWPG+98JLGtFP2ekQKgrFn2RVSeP8SGGxRaZeR2XvXJ8SFdQ2X3xf1m3GakTbyBCOCnpg1r+JQSqpG7072tWDGHNiniJfXGuGz4dgXptLYpfApltVD1n47VdFj2v6GFN6cxtyJ0qM4ayAICT84uFjlgge4ZcxAWH1KI3jpvhleYFTqVrKBcT8hFpK2MjU2GpxfHPxAes78NCpemOT2nRZ9TN5MgIiqBZ9Mnn4YGaNdVEfrc3XU4tvJKz6Jk894Lh6Ek5n1sRn5zrJHWzrBX9ZbvXYt3EUMbRU8LRL4q8s4lpU6tF76jTytFHUtFnb6i64k+XRe/o8wt56ibeWk5mM8wv0wbyTsdmkLe2TFnd510cvapM5WbbZrk25RhRRmn5KPo4L7hN0eetMG6AUW87ObdQSNuo9wjFoncbCskHB3VjLiRbWBLszElCVSquK+raylhLIZqsTSh6pg3MUmoR8P6rduPiM7NNcOTMSRptJ+cWMVywKhbIFHecPDCuaajOcfRSFt26zlM32T1cm3OLv+Q7r+e6kfXlqZu0aTpo0i9rRb9jzRh2rBlLv0dRrFA4i55rUzVSQ7vW06JXLcA0qZlinXPx3kDeot+7Qc/FUoso3lqO4ejVX9IOi744TTFvnXHXqL4IM7GYaWHZOFUAGPdwxtajbAptDj5cauDUqtIWCmXXnZpfxOqxwVw9JqQsi0sZR+96Kj7UTS3Kwivl2hCX0jWVi4mMo7db9GpftkUvlQG3AEut7a0XzWpH5DOTRttLpxe1bRut9Sj9SD7ngXrEzuJUWXhFr+sDH2dsoxal1Ku6lkKlBk2jIuSjbxHS+llcEvlFGhaKpnzUTcReJzuMZtFbFb3+Ym5cOYJH77g6VSz1KEIjilJqSn1BI6bOVpC3pM0y3UqTs+ilA1rNUfPygr7nJ+e00uXKjq8wZkZqnf/h8Ea88bwteNPRbexewQByTmt1/YT6e8yfUhTDrd6jrYr0MBRs1E2jFtMHwhi0OL5YgrOitfOQZdktevVWjtbyRTqAWiix+Fz+Pvn71DYvWhUL6LSIfE8azEJIs43MVMlA3vBj94ytuRS9yBs5lC0MNDOlBuqmScgwPtYCYto0dspxx/0set2ZlCh6xUM1aqVupEimdZyVW4sot1dofK/eMVtF2Y1GuJh/E9ISUxWGublz9uLx5crj40MNayIwIG7j//i6swBkzkGflbGmZafKJFGOo7cPWprsFotejRzjZPcLr7Qo+uSwtjLWMYOSnyqjbiyDuIpGjWIFrdQ57OGMTVN/K3XGFr3xzKE/mzR7pTHQF0WycfsTpJSk2geQyZX6EYyV4B3U8/2l6LN89EvOBSFnrR9Hoxbh6rNnsGkq7/BxtT/H0UsrzIRpiWb38QpBWlz1GmlWvDaL0MpxCOoJswwXhQIwMjOWpoyWUCmAvEVP2n/bgGLy84B9sLVy9Bx1Y0yjzc9AcWilWr8aR99MeGVquUd6jhbZvq6oG9PJZzuvJzXLOxXNz60oIvdWgvlj9VqERi3S7vOJutH3jI2PqXv5mnXawizlsSIrOx91FqUGGbeVoOo7MKMAO5nUrL8UfWSPulEb+ZZLduDqfTPWcpwWmTHVA4A1K4bYzmvj6G1RDWpEgB5uxyu29nD0hqzKcSHyswhOAWWKPrtGbqqR1WMo+pxc8f/x4Xwb2hziwmLRcykmOKvVlIFbLGVCo248uFd7HH02yHPX112mJmNFM6cNPwB/jVpOU9SNbAOL7yOui7foB+p6ksEy1I1KhcTl8AaLPKputJ5dU55OGaiRxtHno8l4HwpRawNpWTTN0RPRJiK6m4geJKIHiOi25PgUEX2ZiB5K/q+sTlw3UkXPRN2oX1270ANujpW7bs34IHvP2GBReKV+PO18RLnIi6xOpZyKOHq1GNvgw6V1BfjpvaSs1FC7OdMZa9RncwpzFn0Rj1ps0SsrY1u16JOCyiY1M1dDN1LqJtLqTrlkj6gbuzNWDhZ+Fn12TTOKPrmXoYJcddWj2KJXn4EXdWPQnUDM8+cHe1k3ad9NWrTsT1Z3z1Lz0av/a8y7Q+BZgHahFWfsAoD3CCF2AzgPwK1EtAfA7QC+IoTYCeAryfeOoBbJBVOcRZ99LsoE6Nv+spi1Fou+2BnLD0Yy6iaT1+IArqCjEFHOqtHOG6F55nmXRa9yw1KvSWdblsVS1su3BbcWwTbwSeQUe27Qp9wLz8GHo1c591bi6AcURyIAfP6W8/Ge15yRzirMVL8quMVfHOoui54Z8JoxJPg4erOu/H2NGmk7dgF+Fj23S1ujlo+6kcONvK4yi76eOWMFa9GT0i/0NumgQd+8ohdCPCGE+Fby+QUADwLYAOAaAJ9KLvsUgGtbFdIXtSjOe76wtMRsEEDadS74Pmy5w9Xa8UH2novPWG0pP5HJYtHHC6Z46qZyZ2xRmcnXszdO4BVbV2JipDimXTpjZZuoltnKkTgnv3TOFnH0HP2l0WdMu9voj+we3glshoAO1D1WZia3qy+5C2mumxxHr1M3u2fG8QuX7VS4ZEcKhIJq1QE3u8cwhJjPrRgSHOdvqxuQFr3ujPXh6NWcNafTrUWLOfoaY2D4cPQm4qibeIMcjqNXfQfm4NdJ6qYSjp6ItgI4COAeAGuFEE8A8WBARGuqqMMHNSIsLC0VWvSuUDXAf6R96oWXAQBrxoe08s/dOoXPpVkZmfIZzg7IFFhkWPQ2i7uaFAj6dDUfhRN/P7R5JW4/tit3Pzf9HDUs+lElHnpypIEnT7yc7iDEWTvqcRv9JWk6rgVykUGMha+GfkqYfoQyzlhtGzmX4zQpMhdHX5eDPB8WPODwF/hQRkBB5A7l+1hL1I3m+7C/ixIX7FiFmUl9Zly0u5RaDxFpua9sK+PTQUwxqtRryipfOes7vSiMWV1+UFW7E6H8oNIKWlb0RDQG4E8BvEsIcaIEv/02AG8DgM2bN7cqBgAk4ZVxo+dXxrZm0d94ZDPO3TqlHXvmxByAON2qZhkU6Ids1Dctz/h/PSItLW1Di7pRfkcFHSUidyw5WY67MGxE3agW/dSoYdGn1o5ehlwwZHNoS0VvWzylIr+VIL85uKnofeLo926YAAC8Zs9aPPTUiwA8nbHGcUnd2KLFzEVj+jW84SCROqkZ5ZN9V8qzUIs+yPqLbr3qdeXLfeMrtwIAvvVYlg/Jh7pRHZ2aordZ9EZMuxleW3Zwk7Ok+cUlPdeNrDfSY/1VeTpp0be0YIqIGoiV/GeEEJ9PDj9FRDPJ+RkAT3P3CiE+LoQ4LIQ4PD09zV1SGvIlOb245FwZ2wxHv3tmHNce3KAdkzTG7PSoHg1TVD70zpDdl/GGqvOtVuNfmiqyV6rhXwCnAMq/9KkzNrllhKFuZB4fW/lyILAp+qUl+w5Qrnz0krbhIiFM+HD0O9aM4aEPH8Nr9623+hs02SzUTRZ1o9cpndiy3TgUWfRp2Kll4R2gGxBZedYqC6ENHMY5V1dSf4NXUjPlt88vZunJzT5ghtPKtjD7fjPUDQCcXlhi89GrTmLTD9JBPd9S1A0B+EMADwohPqKc+iKAm5PPNwP4QvPilYNs0LmFpdwUWH1+RRkJuWfNdfpfumIXPvGzh3HOlimDUnGXb1MI8j2sRaQ536xRNxWYBER5S8M8zx13IXPGUvI9U9arkn1z5QpiG0dfpOjlwrR140O5c67IoPdcfiauOnuGDa+8bPda/OIVZ2JlMoD7UDdA9rKbi3I4ZOd0TS/7pJlf5cRLcQbPSZdFb2lDCW7fYVf6aa5tfCHL0crP+QNcA2H22bbgUIUaXqluRGQLG05/G+VnUMf2rsPr9tvDrjlk1M2SJbySWKOCwNOe7UIr1M0FAN4I4LtEdG9y7FcA3AHgc0T0ZgCPAbi+NRH9IRt0fmEpl1BMffCFFj3TEbljwwM1vHrPWnlBioLoTevUWHPGWnYDasfGI7YFSHF9usw+kIr9jCQX0VpFGd90ZAtqEeGdr9oJQFnZaJQvN4e2cfQSM5OMos/tApR9v/XSHQCAf/jBCQD6761Fya5X33wcz5467RVHr8LmZNdkgc2ip1QGFS8k7TA54qJuZL18xTKhqiu6SitP9s8Wom44+XzqLm3Rqxz9YpK23JHrxlwopdZ3w7nlKWQ5yMfUDbNgSqmrZmj6TlI3TSt6IcT/h52OvKzZcluBVIjzC0uoj/AKC/Dh6P2O6ed1heFzbY67TGN7IyOOPuu1atGdiKMvshY5yBf0yOwq/PW7L8Znv/5Yem5sKEtZACBdWGP+FOmstVn0EjMTw7ljPgPg0Z2r8aYLtmH9ZP5+qXQHmG0EXcj42WKLNZcCQVr0ltngxLAPdcOfF9yKYQtFp56qwpBgqnIaDaocXha9Yi2fXlCoGwtHn/42Tvk2Afnc5heWsKQmtlPeG84nF3WYuumrlbFS8c0tLDqjbop2ruE6YlGfN8O03NfyZWaxvUamQUt4ZRUweUlTzxTxvxxMJ6bqjDXpENtqUknd2NYiSKxnLPqiGVt83zA+8Lo97Dn5HHw4ehUmP8tBPj9bUjPbYj6XRV+0IlcOKrYVxbFcymfp3G2BuuHks9WtnVOafNRrwVRmmW+aigft9ZPD1pXxpkXvq+g/euNBTDF+kpSjXxRaiK0s1UrdUDXUqy/6StHLd2R+gclEy3UwAAAUhklEQVR1ozRqUTQF1/xFClatrmjlrTWkMO18kR5Hr1E31YLInjtG/V7mnTd/lzqw5vfc5OuVGC9Q9Fwq21ZnOqlFX1rR889Vvyb+n98q0K14fKgb2++W1I22m5Yj5LEVi559d3Lf/Sz6EQ+LXqVI3n7xduzbOImLzpjG/f/6vPU6IHunfIwCAHjVrjVsX9M5evdWgtqsCfyg2C70l6JPRte5BXfUTaGiZx5A0TPh4maLyjf7mNr5bBtRVG0FkFGmzUnXykxCDZMz274oqqeIo+fg+/LawKXM9UGRZQ3EK32v3jeDm5NwQomUurE4gCc9qBvbMxI+Fj3y5zx90YXIUTeOclW5yqcpjnDRGdPa8axcfRAeHazjw9ftxaVn+i3zsfVPM7wy8xlk99ly34ekZk1CWiB81I1i0TdB3fjSMYA/R2+1niPSIndMJ06ViIiM9Kn6efm1lfHFi7qxlF/E0XNo1aKvpxx9OU3nQ3NFEeFjNx7KHU+pG4vsQ47dlmwL8CSyLRZVX4/Z95Ty0uihJix6457Z6dH87MHzfh9axdZ/uNXQ5nU3HdlSWL5ZjwmNo1cXzSkDCycjUbDom4Z8L+cXlnL0SRmLnkMZjr44jj4vE8Bb9OYm5xX4XzVERM6FNK0snpEYUlIJWLd4sxRvi7z4tWv3YuPKvCMVqM6ib5a6aWYwlitjbRa9S+lm/Ym/JsvTz9yUlp8/10p4JQDc/d5LMDU6gLf+8Te0a3zWGfiiyGhK5WJy8JSBrS0aCnWjcfRKV+CoGyDko28aaXgls2BKtVqLUiC4yrZBPV3Ebdq4XHWKV2eme9w9rcJ0CrUaR89Z4MMD9vbmXwK1fv74z5xnt8ZapbeaVfRl20qrs4UokCKLfsnDolc1v/xU1I8Pbp7Etx97znp+2+pRo2Qpr73Msj9fjaN3lePjKLeVH6/A5s8P1DJFr4dXytk57+eKyO2rqBp9pejrFl4baL1Rq7Tobcv+U2cskbKAxkzOVi3O3TaFU/OLeOSHJ+Pyrc7Y4pr/+t0XY+uq/EYuriinKmYMJloNmfPZvo+DjzPWhqKoGxfkHbY2FNyCKeMaLsS2iAL7s1suwH2PP4fXf/RvlXLz9+SVcHUWfc3Sf2wGUtlH8xfvOIq7jz9tfaZpHP2CnutGdcqyzljKR7i1E32l6HVla8YJtlZ20curni56QbjdjQAl53vNbtFX7Yz90DV78cgzL+LObz7Olp/SAh71mgu9JIqcahHlX8BfvnIX/vHJE4V12uRoBV2x6CV1Y/Tbr773kmIjI9LrN7G4JFch5++RMFPoAsUL/wDGEGHuKWNklfWv2H67jcopOwjvWT+OPevHredlsrnTllw3BD6yjBCcsU1DVYr5jUdatOgLzpdZeWubRsoyVIWZDxMtlrUsXD6AMrSzrY2LNpCoGX4IAPj5S7Z71GiRo0vO2CzqphmLPhvkVWxN6A8XipynkqN3hleqn6Wi92hHM2UDd0c5i76wSrasYoveLl8raCiRfrEc8fHhdN/kLJeUGUffSY6+g5OH9kPfQae4A5ZBcdQNsZ9d15ovm7qLU+qMzS3n95O3DNQiuU064v8e5ViuGSrI697Mzj4udC+8Mv7fzDOSlrxrgxErCmYSS0t6XiGACXlUlVCJBVM+9BYZ7eIqtjR1wyhR9XhWbnPlFyFT9Pr+Cusn4oV8pxeXlM3BdR2xXHaY6jm4rOpW27SYo88+e6dAMPNxaM5YPj95O6Z7artxOzqpsrlga6Oie2PHVHVo3RmbWPRNL5gqX2ccUstTX7712n53upuXSt04olSohFI05XVRNz70Sdm2sy4+NCnIFp6NC7KPyE2IZBvPJKk1njoxZw046KBB31+KXtvlvuZ+8GVRpOfKxP/aXqQ0vLLGL7LwkaMZqGKsNFZgluE2m21jMw1Dq2jGoand32QKBJ9cNy6snxzCzEQ+pUNhvWn9/PmUunFY9Fp5lM0si5Cjbph78tSNvbz2WfTuwbBZmNSN/P3Sov/hi3Ns3Z2mbn5sOPrW29TPohWilXz0WYewUzft7R2TRj6PMg7GZkWrVTyNbTUZV+qMLc3R6//L4q/edXHpwQVQqZECi96gDrgyACWKx4e6KRE6kg1I9nKlXD6rYuPr+TLNPtCu10b2EblpjZR/RkmWxw1GVRs3Rehfi94SddNs6J3PbZGnJWTjC6Vs9SiyO2N9hC0JVYwJI+955sRqn0VPVO1MpdXwymapmyKFW4ThgVpTshf5UTjqxpwFsFE3Hj+/4dFGKm1S1DRS1iIHvgTn6AQYWrQEHVUGsq+Yzlh1ZmbdM7ZSSdzoL0Xv4uiTZm12WbsfdZH8L4yjzzq+Cm7BlGsDlargWgNQhTO2sP6o2lWCLcfRJy9vs3H07aDXXEgtcJtFL/PRa4pGN0rYOHofjt7DF0aWzxxkm79ql18OmnQ/A6Pk/FaCyW+qWOPVaxEiyjtj1bUj3LoEQqBumoZu0ZsPOv5f1kprRBHmF5dKvbxFFr0ZhZDexyn6DlA3Tr42+e/z0rus/rveeaE1X0ut4mlsy+GVUYtJzTr5BgPFUTeJlcxb7YSFJaE9O/nJL7yyRNQNiqOrJoYb+Op7L2H3CXCVbSpw64KpNtjRjVqkcPT58zbqppM2fd8qepuTqKyir9cI84t+o690evmmKc5RN9LKUqIvWrVOfeDq/LZBiYNLVNeiE6pY0bcaXin7SDPUTad1PKA+P4tF74i64VIIpIOAx4+pRYQv3XYhPv1338Nn7nmMfY6aRe/RPj5rByTiMEWPqJv0uHfR3hioRTmOHgDufPsrUYuIf9+pszO/vlL0kWbR85RHWeqmnr4IxU8le6GKFH0ik3lcsejlQFXG2dUsfCIwfH5/s5ZsVLFx0+qgIZ95MwumuqDnC53A3IIp+THbylG9I081uLB7Zjz17XCDrLkpdtXgHJs+2SurQqMe5Th6ADi8dQpAtm2l6fAO1E2T0Lff4x+073T8YzcewvY1o7jpD+4B4KeH5GYS0ysGndfZLHo1e2VVW535wI+6KS6nWVFVq6cKtGrRn799Na47uCHnmC5CRNU7+3xQlC9o0bFgKvUXMfnoy/yWWy7dgVPzi2yyOVI+VN060qlpPvLc9xIGW1k0aoT/e98T1vIHmMykRCEFQtNwJxZLLGRPK+3qffFu8JKGKdPptxVMPW2LN2qaRd98kquycDmq100M4cCmSSf1kpbTtEVf7crYVgfHszdO4Ld/6kDp+ySN0GkU0WvcnrGpM5albuQ5fxnGBuv44OvPYs9lHH31A2HM++dVZn4DHTmgVY+nTsyln7mut316FP/lurNxyZnT6bEbXrEJa8fLr5loFn2l6J1x9JK6KcvRJ9RJmf5ZpOgv37M2Xg1qmW7qUTft1xzS4ptgtqsbGajjz2+9wKucZt/hqkPNOu4MVertBnlTZIFnC6ayY9lMLa8AzXOtIz9bqArSL1KYRjytv73P54cvzufrJsKNRzZrx95y4Wxb5TDRV4reletGKrNmnLFAuQ5iri41sXfDBPZumMgdV52xjdQZ236OfmQwDgX7ufO3NnU/EbRNF8ri587fitlpfwdcs3U8/9LpttbRLWes7Cu22SrnO4oMq52jdaqiDdUZR+X7KXiW20p6iiL8+a0X4JFnXsS7P/cdjA76xf93Gn2l6FXnkUl5zCfOkqadsSXuabYzjw7WUYsIg/UolbcTFv34UAPHf+3K0m0jERFhUYimbdlOWDc2WqFKRF1S9HvXT+C3rt+P82an2PPSyHFF1qjnfBf++SJi6q0K0hFb9Jq0a8EUABzYNIkDmyZx9oYJbFnVXoOlWfSVolc7pmkJS8Xps5JPhbSSOkEHXHtwPc5YO4YVQw28lIRrdYKjB4DBggyTLtSIsAjR9mlxr6PTy9rTeiPCT56z0XpepFsJ5i16zhmbxuVXZdEzMfpVQdJ+Rc3eieeyc+2KttfRLPpqZaxrh6m5Zi36mv+U7zNvOYL/94uXlCpfxchAPQ3JaqTZK3tfecoxVUB0V5Aug7oUXlmEn3rFJgDAOsX5J/tz2r8Y/r5q6iYiqmzwyMomrwH26M7VePPRbd4LsfoNfaXoVS+22UlPL8aKvuxqR+mM9bEILtixurKpWz1Natb7j+jQ5pUAuhNa2EvoVnhlEd50dBseveNqLWGdmXNefV1mJoZRjwhrV1QTFXL+9lUA4iCFtrSOB0e/fnIYv/raPR0JV+5F9BV1ozqjTEt4LNm0etNUfk9Td5lxOTJErVOoLyOL/n+88Rz88zMnnXvD/jggqjp8qI3IL5jKBD9z3Qo88KErWqLzVPzMeVvwmj3r8JEvH8eTz79cSZkqqg7P7Uf0laIHgE1Tw/j+j17KjdyXnDGNj954EJfvWVeqPKlwpUOrU5AW/XKwQFYMNXBg02S3xeg6etWi55CLozfOV6XkZV3rJobiXVLb0DzdcoIvJ/Sdot8+PYbv/+glvJzs+CJBRHjtvvWly5MK93SnFX3yApbNoBjQPfzEoY3Y0cMOORWpRZ9SN+3XlI065bKxNouhRpS+47deugP7NgZDw4W+U/SvnF2Frx5/pjILXCrchcWlgiurBVGcBmE5WPQBMfZvmsT+ZTKzMWPlO2ERv+XoLK48a6aSsu5654X45veejcvt8OKj5Yi+U/RvvXAWm6dGcMVZ5SgaG6Qz9PRi5yNKpscGsXrMnTcnIKAZFOXHaQe2rh4tlZnShdnpMcxOj1VS1o8D2qLoiehKAL8LoAbgE0KIO9pRD4coIhw7uxqrAcicsZ3m6AHgrtsu7NmVdr2I24/twvEnX+i2GMsC68aHMNyoYdPUCO79/nOB4+5zVK7oiagG4GMAXgPgcQB/T0RfFEL8Q9V1dQKSU1xY6ix1AwBTowPFFwWkePvF27stwrLB+slhPPifr8Q9j/wbCOXXlywHfPrNR7BqLLxDQHss+nMBPCyEeAQAiOizAK4BsCwV/ehg3EQdjq4MCGgLRgdq2grOI7OrcGR2VRclah+O7lzdbRF6Bu1Q9BsAfF/5/jiAI+ZFRPQ2AG8DgM2bN5unewa3H9uF8eF6mra4F/B7P30Q23o0p0ZAb+OBD13ZbRECuoB2KHqO7cvZw0KIjwP4OAAcPny4Z+3lieEG3ndsd7fF0PD6/eXDRAMCAn580Q5i7nEAm5TvGwH8oA31BAQEBAR4oB2K/u8B7CSibUQ0AOAGAF9sQz0BAQEBAR6onLoRQiwQ0TsA/CXi8MpPCiEeqLqegICAgAA/tCWOXghxF4C72lF2QEBAQEA59F/wbEBAQECAhqDoAwICAvocQdEHBAQE9DmCog8ICAjoc1Cnd05ihSB6BsD3mrx9NYAfVihOu7Gc5A2ytg/LSd4ga/vQqrxbhBDTRRf1hKJvBUT0DSHE4W7L4YvlJG+QtX1YTvIGWduHTskbqJuAgICAPkdQ9AEBAQF9jn5Q9B/vtgAlsZzkDbK2D8tJ3iBr+9AReZc9Rx8QEBAQ4EY/WPQBAQEBAQ4sa0VPRFcS0XEiepiIbu+2PCaI6FEi+i4R3UtE30iOTRHRl4nooeT/yi7K90kiepqI7leOsfJRjN9L2vo+IjrUA7J+kIj+NWnfe4noKuXc+xJZjxPRFR2WdRMR3U1EDxLRA0R0W3K859rWIWuvtu0QEX2diL6TyPufkuPbiOiepG3/JMmcCyIaTL4/nJzf2gOy/hER/YvStgeS4+3rB0KIZfmHODPmPwOYBTAA4DsA9nRbLkPGRwGsNo79JoDbk8+3A/iNLsp3EYBDAO4vkg/AVQC+hHhjmfMA3NMDsn4QwHuZa/ck/WEQwLakn9Q6KOsMgEPJ5xUA/imRqefa1iFrr7YtARhLPjcA3JO02ecA3JAc/30AP598vgXA7yefbwDwJz0g6x8BeANzfdv6wXK26NO9aYUQ8wDk3rS9jmsAfCr5/CkA13ZLECHE1wD8yDhsk+8aAH8sYvwdgEki6tj+ihZZbbgGwGeFEHNCiH8B8DDi/tIRCCGeEEJ8K/n8AoAHEW+x2XNt65DVhm63rRBCvJh8bSR/AsCrANyZHDfbVrb5nQAuIyJuF7xOympD2/rBclb03N60rg7aDQgAf0VE30z2yAWAtUKIJ4D4JQOwpmvS8bDJ16vt/Y5kmvtJhQbrGVkTquAgYmuup9vWkBXo0bYlohoR3QvgaQBfRjyreE4IscDIlMqbnH8eQMd2QzdlFULItv1w0ra/TUSDpqwJKmvb5azovfam7TIuEEIcAnAMwK1EdFG3BWoBvdje/x3AdgAHADwB4LeS4z0hKxGNAfhTAO8SQpxwXcoc66i8jKw927ZCiEUhxAHE25SeC4Db1FnK1FV5TVmJaC+A9wHYBeAVAKYA/HJyedtkXc6Kvuf3phVC/CD5/zSAP0PcKZ+S07Hk/9Pdk5CFTb6ea28hxFPJi7QE4A+QUQhdl5WIGogV52eEEJ9PDvdk23Ky9nLbSgghngPwVcR89iQRyY2UVJlSeZPzE/CnACuDIuuVCV0mhBBzAP4nOtC2y1nR9/TetEQ0SkQr5GcAlwO4H7GMNyeX3QzgC92R0AqbfF8E8LNJZMB5AJ6XNES3YPCX1yFuXyCW9YYk4mIbgJ0Avt5BuQjAHwJ4UAjxEeVUz7WtTdYebttpIppMPg8DeDViv8LdAN6QXGa2rWzzNwD4G5F4Prsk6z8qgz0h9iWobdueftAJ73O7/hB7qf8JMUf3/m7LY8g2izg64TsAHpDyIeYHvwLgoeT/VBdl/N+Ip+WnEVsTb7bJh3ha+bGkrb8L4HAPyPq/ElnuS16SGeX69yeyHgdwrMOyHkU85b4PwL3J31W92LYOWXu1bfcB+HYi1/0APpAcn0U84DwM4P8AGEyODyXfH07Oz/aArH+TtO39AD6NLDKnbf0grIwNCAgI6HMsZ+omICAgIMADQdEHBAQE9DmCog8ICAjocwRFHxAQENDnCIo+ICAgoM8RFH1AQEBAnyMo+oCAgIA+R1D0AQEBAX2OfwdZ6T8LvHwv/wAAAABJRU5ErkJggg==\n", + "text/plain": [ + "
" + ] + }, + "metadata": { + "needs_background": "light" + }, + "output_type": "display_data" + } + ], + "source": [ + "nb_bins = 11\n", + "nb_binscompressed_matrix = c_char(nb_bins)\n", + "k_coefficients = (c_float * (32 * nb_bins))() \n", + "\n", + "for i in range(len(k_coefficients)):\n", + " k_coefficients[i] = 100.*np.random.random()\n", + " \n", + "plt.plot(k_coefficients)" + ] + }, + { + "cell_type": "code", + "execution_count": 4, + "metadata": { + "ExecuteTime": { + "end_time": "2019-11-08T17:24:22.653016Z", + "start_time": "2019-11-08T17:24:22.406334Z" + } + }, + "outputs": [ + { + "data": { + "text/plain": [ + "[]" + ] + }, + "execution_count": 4, + "metadata": {}, + "output_type": "execute_result" + }, + { + "data": { + "image/png": "iVBORw0KGgoAAAANSUhEUgAAAXcAAAD8CAYAAACMwORRAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAALEgAACxIB0t1+/AAAADl0RVh0U29mdHdhcmUAbWF0cGxvdGxpYiB2ZXJzaW9uIDMuMC4zLCBodHRwOi8vbWF0cGxvdGxpYi5vcmcvnQurowAAIABJREFUeJztnX3wZmV53z/Xs7wZ5EXdRZBdWDDr6GpSxRXW0CYqoEBnoJ2iA4ljknHEaUOixXaKtUOtndTExNhxhsbSVk1sI642xm0Hi8aX2nHUsMiLIIIrL7KisiohKgruPlf/OG/3Oc/z231cnut7fuf87u/Mcs55fofnez/3fe7rvt7u65i7k5GRkZExLkz6bkBGRkZGxvKRhXtGRkbGCJGFe0ZGRsYIkYV7RkZGxgiRhXtGRkbGCJGFe0ZGRsYIkYV7RkZGxgiRhXtGRkbGCJGFe0ZGRsYIcVhfxOvXr/fNmzf3RZ+RkZExSNx0003fc/cNB7uvN+G+efNmdu3a1Rd9RkZGxiBhZvcvcl92y2RkZGSMEFm4Z2RkZIwQWbhnZGRkjBBZuGdkZGSMEFm4Z2RkZIwQBxXuZvZeM3vIzG5f4e9mZu82s91mdpuZnbH8ZmZkZGRk/DxYRHN/P3D+Af5+AbCl/Hc58KdPvFkZGRkZGU8EB81zd/fPmdnmA9xyMfDnXryv74tmdryZneTu315SG1u48b4f8P/u3stzTz6OVzz3RD52y7f4xkM/iqBq4RXPO5EtJxzD+z5/Lz9+bF8o1+HrJvz6Wafw2L4pO3Y9wHQa+yrE43/hCH777M18+ZsP83/v2hvKBfC8k4/j5c89kb+6+Vvcszd+7M5/3kk884Sjef/n75OM3W9sP5Wf/Gw/HxaM3VOOPoLf+pXN3HT/w3zu7vix+6WNx3Pe1qfz0Zv3cO/eH4fzXfBLJ3H6hqN53+fv41HB2L16+6n8+PF9fOSmPaFjd85zns7f23R82PfDcjYxnQw8kFzvKT+bEe5mdjmFds8pp5xySGRfvv9h3v3p3Tzt6CN4xXNP5E07bmXf1DE7pK9bCO5w3/cf5TUvPpW3f/xrAGF81Stt1x9zJN/74WP8x7/+uoTvpc8+gT/55N18fvf3w/vyxGOP4uXPPZErd9zC1ON+W8X3zR88yq+fpRu7E449ku88Uoxd9G8DeNmzT+Cdn7ibL9wTP3bPOO4oznn2CVy541ZcMHZ7Hv4Jr3rRJv5ANHZPP/YoHnzkJ+Fjd8KxRw1CuM/rgrlLnrtfC1wLsG3btkNaFl//a8/kmz94lP9z+3cA2Dd1fu+cLVx53rMO5esWwjnv/Cz7p86+ciX/i9edxa88c30I194fPsaLfv+v2Zfw3fcH/zCEC+B/3fogv/vBm9k/nbJvv3PWaU/lQ69/cRjfv/7oV/jEHd/F3Zk6vPHcLbzx3Lixe9k7P1v25RSA6y7fzvbTnxbC9dDf/ZQz/8On2Dd19k+nmMG9b48bu4/d8i3ecN0tJZ/z4tOfxgcv3x7G9+a/vI1P3fkQTiEM//m5z+IN524J43vpH3+2/m0AO17/Ys487akhXN955Kdsf/unar6JwT2BY6fAMrJl9gCbkuuNwINL+N4VMTErH7Bi0AMX2OL7zXC8Xt0tkLHWFtznr5BBfO7FihyprUA1Vpq+rPgcanUjlK3bl5FcFM9lwxdrvZaM7XkneFaqhSSar54H5bNp8Z0ZjmUI953Aa8qsme3AI1H+9gpmMHWXDDoUD9l0qnmoq6+eesEX/9uszRctbK3gmqoEhFltJVTXYVzV0uXO1D1cQDR6gIe7t6D4/lZfxtJBOc+nAiUunXdT9/jfJsBB3TJm9kHgJcB6M9sD/FvgcAB3fw9wPXAhsBt4FPjtqMbWbaLRjorreIHkeMIXydUICHeF9lccG40lmI9C2Cr6svr+SrMFlfaHeOxECzO6vqz4SOe5QrqXz+YIFPeFsmUuO8jfHfidpbVoAVTamM48tOKhlmh/BZzK1FZpfyK3jOlM7ZovHbtIrvKoc3Glbpk+xi5aqarcofGqQN2XVAvz8KX7YHeoOui0P2uEbXUdyQWNQJJpfyq3DF3tL5rP2lZX6Nh1ra54ixIaqysaldWlwoyFrpp3CCaeAIMU7lZGWlTaHyi1v0SDQPHb6hCnSPuzWvgp0GjuCu2vQK0ISILTqeaucE/qrS5FMDyNX4xEtg9UuFdRe5H2NylXE6XvT679JYtXNFIaycKMXvtTCIg2X3wQsGt1TWRWV/w8r36LTqmKxzCFu9HS/nR+W8VD1pwr0tvSCerET9hJqf5VY6fgS7W/SD7rCIhw4VfzeckXSjdjdUncoa1nJZYLmnkePXYKDFK4T6yj/UmyZTQ+/jR3GUn2CgmfIPWyG7+IpSt/j0v4GgHhojTWig9JbvbMPFAsJqTuUGVAdfgYpHA3s3b+qyArYdrKzon321a/T+WWmVa50qFsxfdXXCl/GJ+VucvTeL5U2Er6MlEEFLnZVdZYk3euCL6L5nmyME8FC6UCwxTu6AKcIE6nqzMgKm0skKzLp0i97Lq4wgVEN69e4ZbR7HJsAriiPQp9uUNjaWouaGIKwxftAxXuqM1DdFkCM7nLcVQdPtWmKV1qYvX9xdgJ0ljLo0pAtAVS2oIgPmiVcoiGMjunu1COQboPUrgbVVBOo/1hSu2vOMpqXKgtBbSZOU2Gh4Cr05eCxzLhE8VLkmwZyR6FJBousbpE3gAFhincDa32Vx5VO2ILLpH21+JLP4kjTLW/+MXLhNqfVkCkVpeEz7oF9KL5+tDcq4Vy+OJ9mMIdrfY36cH3ByrtLzFIJRkepdWlypYBofZXHL3uy5FaXeV1eOplhy/y900SzT3nufcI62h/inziVGOJ5GseMg/nKr6fkq99HcnX7st4Pkh+X+AT3/WBx/+2VCDF52Y3qYkit0zH6ordo1Acq2cz57n3hEntA1elQlYPmDgop9KkSfN7Rdky9bVAQKR8glxpEOWdN2y6zCqRJl19f2uex9IBOVumdxhV3eXmOpTPdLnZlUCofp8q42I6rWqQB/Oh3qOAjG+mL+Oo2nx1nnv8YqKqr159v6fzXDB2qtr4CgxSuFObo8qovWqnXIGqpoYuV1rja5wJksXSafcolEdZX3bSZhXZOa1USJk7tLG7wrjSvlR0pgCDFO7pJALBKlsJJIVbJvXbCjR3Wnz6kr/hAoI+Sv5qBESqbaKw8mY2hEXztZMmJPOu/G/W3HtCumUeNA8ZKu2v3uUo1v4qAajyJajyia1ZuKIZU6tLISBmLQVBvARNamLNp7a6VEqVAMMU7p184njzUJtXD0C9zVuj/VUSQrJQIgzKJVzRfP1bXfF0rU1M4VaeruTvbOmIMCoZhincxZp7VTZWof1B4tscqfYHwuJTVYaH2uqS5J23ra5492RbqYpO9WysrvoyDGnKbJEtM3zpPkzhXh6n9UOmErYVXyhdspgIuCapn9hludlTkYCYWFv7UzwrlOl7qj0K1M+Khk9ldVWlvTV57u2FOXzhEmCQwr0SSNOpKp2u85ICQQZLbR4KApyQaH+hbMnCrBq7rvYncgMp3DLt+Iym5C8kYydwyyjz6oFyYY6f4woMUrhX2F8/ZLEo8tyFAdyET7IxhZRP45bZLxQQrT0K4W6ghk/p4ppOkaRCQjN2Cr40rz4a3Xk+dAxSuM/4bQWLrDRLgGZXZfxPq9wyupK/kEwgheZOuicimI9OqmcwF2j2X6R8SiUnzavXWF1lWunwFfeBCvfKPBRqY5W5puDDEreMSPurFy/RQ63aXQzJJh8BUoGksrqqxUtp5RXXgmwZ12TLVN+fC4f1jNbmDYjX/tBrf4i1P2QLZUknLj6l0/6UAiKxuohfKJtNWlrNXbabmWShzNky/aCbLSN5yEar/SXpdMJCZbKxgzp7BQSBMkv6UrVQokm9rKB6/y20550s+C7gUmCYwn3G5x6dAma1Ly7lj0K6zVuW5y7y8avjJX1of4gERGp1KXKzu2OnKzFcXgvcr02W2vAxTOFea3/VQxbN1w6SKfKJm7zz+IULmnRBVa60SkDUewaS63A+VH2ZWl2xtepTPtXCPCknXjPvYvnShTnXc+8JtQYxbV9H8klzpSsBgU6TrnOlVW4Z1djRCD8Jnyl94MWxWbxE2TLTUJoWX6q5SzOrhi/bhyrci57fL9rCjjpXGmS50hUavlieOldambs81RaZq3OlhfELZbZMPe8EbpmpexLAjc/OmU7XmFvGzM43s7vMbLeZXTXn76eY2WfM7GYzu83MLlx+UxO+8qj020JSMEkgIWTFoFLtz0tyAVTxEmisoPIylq10A0mKsCWZR5I9Ch13qCR7RR1QpbJghy/eDyrczWwdcA1wAbAVuMzMtnZu+zfADnd/AXAp8J+W3dB2m4qjq7Q/dAWM0u9XyFprsSm0vx7S6ZLBk9SrR/OilQq1C0+l5CiD4eJ5V/ENX7QvprmfCex293vc/XHgOuDizj0OHFueHwc8uLwmzqLR3MtrwUaftOSvRvtzsfYnqodSHlXpdK2FUsCHCfuyNXa63GyVe7K2uqR7IsZT8vewBe45GXggud4DnNW5563AJ8zsd4GjgXOX0roVUG9hV9WWoTK1Rdqf0DxsB1R12p+s+FQP2h9o8s5Tq0szdp15JwxOg9INtHY2Mc37lV1/yGXA+919I3Ah8AEzm/luM7vczHaZ2a69e/f+/K2tv6c4qrS/yaQRfgo+pXnYfnek5jV7oNTc2+/h1Gxhd2neeV9WlyQ1EWWWWsM3Bs19EeG+B9iUXG9k1u3yWmAHgLt/ATgKWN/9Ine/1t23ufu2DRs2HFqLSQddtJmCdslfTa60i2t0e5nfG0qX1I/X5C5PJu2gXHz9eN2O0SbPvcqWET0rotzE7h4F3cKsy1KLxCLC/UZgi5mdZmZHUARMd3bu+SZwDoCZPYdCuB+6an4QzKZCBsNo+/6i6SwxD4XaiqRQWXncLxIQRg+7HB2JgOjmuavcMk0qZDQfHatLwbeGAqruvg+4ArgBuJMiK+YOM3ubmV1U3vYm4HVmdivwQeC3PDCVpc63lb2soxhwXU0NK3Olo3kKLhDWza4EhGjssM5vEzwrVW62zk0ierFLd96FshV8U3G8pB67EUj3RQKquPv1wPWdz65Ozr8KnL3cpq2MmRdkS7QxXcnf4sHSlvyloJTWskmvQ/mSNUuq/amsLkSbmMpj4wMXuUNFRd9yyd9VgCagKtTcSXyNIksBdNpf/VCLtD/VJqbZ4lPRGG/J3+oHqTYxkSyUCr50nq+VbJlVh5mMi2g+S60EVQqYSvurgnLjLfmr1f4AcclfUKVeFpDuUWgFVIP5jKy59w259kcl/JrrWD6rs1eUprZC+5NbXX1of6oAZ3lsgu9qqyuUbo7VpdHd10xAdTXCEnO0uI5Fk5Kl0/5keecz2TKhdDNprLI9A9W10uqKpepYXRqlA4Q7RulaXaF0TaltBZkAgxTu1BpEeSlY0OU1LlBpf5WAUGt/bf44PutYXYIgYCWORGmljUAKpZszdvF8qeYejbZSNXwMUrhXmzeqlCzFJiZIN8KIovbCbJm6sqDIxy9LY621MbH25y7YMFVp0oDrNrw1YxfNZy3BLtmsSCVTQqkkGKRwbwI7ouwVa+dKawRSwafygTeuBI22qYuXWNvqEixeU1e5ZYrjVPWsJHsiiutovvK3CRWBqhb/WtmhuuowE9iJ5qPtlolGZY5W57Fcid9WWPJXNnZWWSUVX/ykHWvJX7rzTuUObdNH0sniJQoMW7jXr2oTBDiTnTAKP7juBQwFZEHA8qh9zZ5Scy8IlZo7quB7eazHThC/AOGmKRtXyd9hCne5eWi1HzXlD+OrAkljLvmr7Eul9pcEAbVWl45P7Z6s4yWxdAWqtNIR6O7DFO6Jnzi9jkJd8le4eUOnSTfakTr1Mr0O46OTLSPcMq/SpNVWl3QeCPla83z4sn2Ywr2CSvsDE2t/JtT+iqNu01QfPndk2l8rfU82dp0Pgvl6s7pkC/MoZPswhXtjHlbX0XyAVPtjvNpfLSA6DQjk68XqQmt1VdyhfJ2xU1ldqkyGOpEh+9z7w2w6XTxfqv2Fv4GmF79t+zqarxo72Z6BDn8UJqXVpcw7V/XlpDN20fIvfdGKIu88nefRfanAIIX77EMmCnAKo/ZVwSSZW0a4UII2jbVKX5HM1yQIOLrURLp8Ancoms18oHWHKjBI4V51vO5lHVYX8VfASF/4oHHL7Be+sLrFJ/ATVy8+Ecl2vOITxS90L8/o8ImyZRQbtKCZd1PBvFNgmMK9PKpL/ko2iqR8QreM0o+q5ms0aZX2py35Ky3Bi3DeoZ13VXqOjC8YwxTuM64EUYBTpv31UfJXl02i5qtN7WAu0AqkmbFT7YlQ5rmjKYsBlWx3Vfw2HIMU7tTan+ohM9mmooJPn3euDE6r+fqyuuK52vMgnG9m3kUrVclr9gRj15T21vj4ozFI4T5jjir4RKmCFRyV9td1k2hdCdE9Wr//Vqb9pVaXJl6iTQnWl/wVyfZ6YUbk44/GMIV7edRpfyYTtpCk7ykUso7mriJUZnhUVpdixioFhHxTER0+iTtUOO+E7lAFhincq9xsobbZ1DuPH/Uip9fL/N5Yvip/uOrL8fFZbQZJcqWtUQTi90O054GaT5GdU1X0VOSdpy61nOfeE2ZeGhDMV3plyh2j8Whpf6IJq0tvU6fvJS4uVVCuznTSuLiUqYlqPmUwHLTzPBqDFO795ErrSoFWefWK3Ozq+5ULZYtPEFCtXvigC6iqXp5RQLZHQc5nyZ4BheZeWArTaXbL9Ab1C7IbH7hmc0OjbQpL/grT21p8it3Fld82lCnhQ1w6Qpg1puVLayzFI/Xx62yFOAxSuDdBwPJSkU6Hbltyy7QP5+pky4xt442lL2AQZcu4pgZlN1smGn3wVfNOFgynVOKGL9uHKdxnovaCdDqE2h/CGhf6PPd2tkw0Gm1MGC9BIyBmx061MBd88UXfdMFbqPLcx6K3D1W4q7fMG2LtD5n2V0GljamtLkys/aETSLNWVzBfb1aXcPMguXBYr6j6XVnIS639gVb7U5ZyaPEJgnIItb8+rC5dRU+xzx11nns6z4cv3Ycp3PswD9Gt6NU26OI8ngvSvhTzBT+Bk9rqciaCRPdJEgRUPJegnQcpn8IdWs07Sd55yjdIydjGIH9CNdD7q7ewCzQWlWZb8CVuIFl6W/s6jM+6fCPLlimPEs0d8TxQz7syoqrNlqles7dGNHczO9/M7jKz3WZ21Qr3vMrMvmpmd5jZXyy3mR2u8qh8C3tRE1yXKz2davhm32gvcJOgDeDWNbpFudKqmuCzmnQsZhMZ4vnq/R6qbJlyno9AtnPYwW4ws3XANcB5wB7gRjPb6e5fTe7ZArwZONvdHzazE6IaXBAWB3VNDdWY91HyV7lQtvhi6eS7HFM/cTRhd+yiB0+eWZUGw1W7i8u0uBHI9oU09zOB3e5+j7s/DlwHXNy553XANe7+MIC7P7TcZrah1v4qAlXJXypXwlrQ/sYWlLOqdIRi4erMg2i+mTTWeCvPy87UjN3aK/l7MvBAcr2n/CzFs4BnmdnnzeyLZnb+vC8ys8vNbJeZ7dq7d++htZg5KVmH/E2LYZLwybQ/RNpfJ61UZSqoSv7WC7NM+1s7JX+lL4qPpQKqYHilVA0fiwj3eb+zm4N4GLAFeAlwGfBfzez4mf/J/Vp33+bu2zZs2PDztnWmQX2kgKm0P0TaXwVZKYce0ukKKF+QrREQ8lIOdPgEi1dThC2UquRbeyV/9wCbkuuNwINz7vmYu//M3e8F7qIQ9iGotc1p/UkUVclHwjcu7Q+aAG51Hs0FCV8sXYtPbXXJguGisUM8di13qGgHmqrshwKLCPcbgS1mdpqZHQFcCuzs3PNXwEsBzGw9hZvmnmU2NMVsfm8UU8lHw6eoCT6ZNNqfhK/M8KjOo7lAl5ud8ilypav68arc7CKTq589CtE/L639L6nFT1Owb03Uc3f3fcAVwA3AncAOd7/DzN5mZheVt90AfN/Mvgp8BviX7v79sEaX/b5fXFNjv8otQ/Lmp3g6jKQvo7lmxi6Yj4ZPFlBFW8lwv9gto+Ozmk9lwVYL8xhU94OmQgK4+/XA9Z3Prk7OHbiy/CdAZY6qBFLDpyr5q83NTvpSZQWpaoLXrgRd6Yipl64LUYbHVJRZkM6D4jqajxZfNIo9EVPZ+3ajMcgdqjPZMqJxUG2mAK3vr3iom/NQLvHYpdlAypK/1Xk8X3+Fw6KRZgPprK5c8rdXpD7w4lolkFTaX1PjQmXbNxthBGQoX8iNlE8tIFKfuy71Ur/hTbdHwWXu0GgMU7i3cpcVgZ2GT1VbBrH2JytTmwTJ0msFn9TqQmd19TV28YXKknkn6M2J6Sp6KjBM4V4elS98kPKtKe1PE5TTaX9iAWE6TbprdencoTo3SS752zP6qHFR8YmqD8i1P12tl46ACOej5lNZQbjLBEThc9fPg4J7vO7QrLn3hO4baMLNw4RPlStdlfzV8CV9KaivDrqxS/k0ewaaLfOKmuDFHoXmPJoLdMHwlE+yZwDKhVnjfo3GMIV7J0VKmZKlC+xUhcoUfKZLTeymsUaPXcKnKvlbV4VUpc3KUgULyFKQUz5ptkzW3HvDzEYYkX9sv6ygkJX140UpYAg3Fc2MnY5P5AJn6q6Ll9DPZr6aXMQnHzsBXzSGKdw7bpnR5UpXKVkOGpVF+ILsEk0VSiGf0upS7VGwdI9CMFd33qmsPNm8S0v+htOFY5jCvU7J0pqHqhW94VAGcLXan6ySYZ1Op7O66tIR8rEL5uqOnZBPNe+aip7Dl+6DFu6qjTeTlG+02p9qodSm09V+W2EpB69Ne5XVpXVPqoq+pXzSNFay5t4bmiBZ+zqMzxo+jQahrStdBOWa82guGHfJX9Bq7uMdu3Tead2hI5DtAxXuHc1dm+euesh05mEVSCrONW6ZPjZNSTOdstW1BD5qPtVCCdXmweGL92EK9/Io23ad8GkmrO6FDwVfsoU9fMJWPvDqOphPvIW9trrEikB1Hs0F6dip4jOhNC2+Jo11+BimcC9Hfb/K95fwaV7AYLV5qNrE1PRlPBfoxi7lUyyU9YtW0CzMEzNZKuSkM+/iY13ieVcuzIjmXTQGKtyL435xDfL9qk1MFAJCVznR6r6MnrHdsVM53ferNjFhZa60ylJI5kE0l3reJXyy2JNra9lEYpjCvTzq0unafNGoovaoNjGZLr2N2i2jXZhlqZCVS01cprY418QveklBFvalqqZTNIYp3JNNRcUHwXzqzRSkD5kqoNqch3LVAVU9nywoJyz6BsJNTN2xE6nuU2m8JJcf6BVpFB3iByLNc5cGVHPJ3yXwNRke0lxpodXVV8lf5YvpVX1JXdNp+NJ9mMJ9DWh/+pK/DXcoV8fqko6dyAryquSvyMrTleEojn28klGjVCULs4AvGsMU7jN+W432p9Okm5K/Y/O5z/htlT53VV8iTptVxZ7Ko27sknkudoeOQboPU7gnbhIQjEPLLaN6yHTmYaH96TeEFdwq7U9cn6S6COdrNjGFx55qq0uVWEDNp3SHIrLyojFo4V6lZMW/rKPhU7zwoa5OJ9PcLUlviyWsc5dl6XQNn2KhrF60osqVnphuHkw6804V65LNOxqlSsEXjYEK947fVqaxCMhIUrJUfmLT+cAryMYu4ZPEyKyohaJ8NVwu+bskPiusINmzEoxhCvfy2McLsmWmPco3MQmzV+RumSRbJpSp5Kv8xOgERG8utfjVpOaTutRyyd/+oH7Iqndhjrb4FD2+IFumuY+z5G9rYRYJJFXJ3/bYhVIVfKZfmCMxTOFemWuqkr8Jn0rYjrbkb3kcc8lfR1n0LZf8XR5fLvnbO7rlAFQPtbrSn7Lkb1+lHJRvfhqr1SUrB1Bptn2kzaoCqvXF8MX7MIV7eewjCKhMydJpfyYMcHaDcjo+Zcnf4kIbDA9PhSyPqvID+k1MulLUCgxSuKeBFlA8ZElQTjLqJtb+dHsG1PGSFp9Qc4c+xk4bDI9GK89dormbLlgswELC3czON7O7zGy3mV11gPsuMTM3s23La+IsJomwLa4j2fRBuYnp3BYFR4/ZMsKFWbVHQfmO0UmLL54LdMJ20ho77TxYE/XczWwdcA1wAbAVuMzMts657xjg94AvLbuRM1zlUbXxJt00pTIPlRpEexNTMFfZg8ra+DWfKCin6suCRDgPyqNqHlRQ1nNX1cZXYBHN/Uxgt7vf4+6PA9cBF8+5798D7wB+usT2zcVMyd9ovtZmCg2faqNIwdFXIa94tPhEi4kyFtTiiw9gANpNRTWfqDdlfSnAIsL9ZOCB5HpP+VkNM3sBsMnd//cS27Yi2m6SeL52yV+1myScTuuWKY+yvPN6Ye5jQ5iCr58XZKvKAVR8qnmumgcKLCLc5/3KJGPIJsC7gDcd9IvMLjezXWa2a+/evYu3cuZ7ykaItT9ZrRfUQTnhC7LrdLoexk6VLSPKJin4+nlBtkrJqfgUSIPhY8Aiwn0PsCm53gg8mFwfAzwP+KyZ3QdsB3bOC6q6+7Xuvs3dt23YsOGQG93WxlTGr3anXG+aezRXedRlQIj5kr5UoM2ns7o0eefaeb4Ws2VuBLaY2WlmdgRwKbCz+qO7P+Lu6919s7tvBr4IXOTuu0JaDK1USK3fVldzQm0e9pGaqNT+lHWIpAuzUCDJ6/T0MM/VpRwicVDh7u77gCuAG4A7gR3ufoeZvc3MLopu4Dz0ESST8pkuWFzwWcIXrf0lwXDJ/EmD4ZogoDQYnjwrOqtrpPMOYXBagMMWucndrweu73x29Qr3vuSJN+vAqPpdVw6g8hMLa4JLc6VJ+GK5rFQn3J11gqhcReGyPHddXxZ8umdl0poH8fsf03mnyXM36dhFY5A7VNMXPug87lo+Za50Ozdb47fV5Z2rnxXdnoGCT/islN+vzDuv+eLpai5YI26Z1Qi5W6YHPm2udD8vyNab9mo3ybj45HsUSPjU8274sn2gwj15tBQTKDUJNYGdhE+4eCn4bIXzML70tyn4VuAzOtuRAAARIElEQVQO4+tp7FRukvnsMRhDyYEUwxTuwge6IEn5FClZ6fm4+Ezdl+JnRS0flO4DE6+U8oWyxTd8QT9I4Z5Cro0J+JAvXjpLoW11xcPEo9e2usa1eI3e6hLzRWOQwl2v/YndJOJHS8kmtrTlC2WPPy9bXU+YTzvPozFM4S7X/la+CuEb+SSqucQc2ep6glRohZ86tiZ/VoIxTOHeox9Vkf86kfPZ3PNwLkmeu+639cM3nzsCfbpJJgpJ1eIbvngfpHBvZa+Iak40fOF0vVomqvIDXV4J3+iDgMFcfbpDJZq7dt5FY5DCXT6BWgJp5G6Z8PIDKe8IF2b54qUTSL26Q8VjNwan+zCFe9b+lswn9NvK9wwk52LtTzF449bck/NwtraLa/iifbDCfdxuGcQCEOFD3afbQq39qRevaMZ+lY4RzvNgDFK4pxin9rcCuYBPqf1ppK2ULVtdS+VLzuV8w5fugxXu1UBk7W+5fOHaX497BiS7DsVBwLVidY2RLxrDFe5zzsK41BpLn9k5wod6lNrfCtwavuiFOeUd18JVkIjdocEYrnAvB0JVo7vC2HKXoZ1DrPx9+rzzcLpR86mtLvWegZRhDEXEBivcqwd5jOaaXttU+1KtPCq4ZnllfOq0WSGf2grSp0LG80VjsMK9epD1EygeYy75C00fyt0kYj55fEY5dnkT06rHYIV71fsa4ScOyqXc4sdMqv2JNelRBsPVz0dvVlc8XyvPPbtl+sOotT+5QOovgKtgU/KOueQvpJq7jqt7HsanDuAGY7jCXar9aUe936qXOsIxan8tbi2ddDHRl+EIp5MrOdEYrnAXTp22BqF+qEc4iXrg6p6H8fUpkOLpmliXZPppra4Wcxbu/UG6iakn4dc9l/CNTvvrz+U0xkyu2upSUMkXyuR8BI6Z4Qr36jhGN0nW/pbINcsbyicWEH2VxpC/S3iEC3M0Bivcq00Gmrewz/JGYswvfEj55H0peNon4oW5r01TCtknf29DzpZZJRCahy1adVBO7dsUWgpqK0jBqK9kuNJFEF+tugu5NHRyd2g0BivcleZhW4MIp9Pn0vc1iUa4UOo3vKV8usVEUw5AO+/U8zwawxXuo9b+Uu7xaX+9BeUEfCtxB7JI+fqad2OMX0RjwMK9OhFyoZpAyXk83ciDcv1ZXaMsjTGHV4Gx80VguMK9c4zlUmeTJOcjzBIYtfa3AreGT0c4yoVLnDUWjeEK97rGhTqKHk43fu3P2kcFVy988XSj1tz7DE6vGc3dzM43s7vMbLeZXTXn71ea2VfN7DYz+5SZnbr8pnY4O0cFV3E+xsUkPRe6ZdTZK+Fsa8fqUqBfV8zwpftBhbuZrQOuAS4AtgKXmdnWzm03A9vc/ZeBjwDvWHZD57QL6CPPPZyuNYHGyFfnSku4mnNJZtUkFbYKvuZckzmm5LK551FIGRTzIBqLaO5nArvd/R53fxy4Drg4vcHdP+Puj5aXXwQ2LreZs1Ca9vRoHsqzc4SWyShdaiucx/GtkXiJ2h06Ar/MIsL9ZOCB5HpP+dlKeC3w8Xl/MLPLzWyXme3au3fv4q2c911P6P/++aBexft8qDUdqxMQrYVZnFqlDHB2TsPpFLt91QvlRD0NgrHIEM37nT73RrNXA9uAP5r3d3e/1t23ufu2DRs2LN7KuVw15xP6nsW4xNrR2P3EYw6ornAu4RNaQmOMPSGe59E4bIF79gCbkuuNwIPdm8zsXOAtwK+5+2PLad7KMKH2129AdYTZMnN4o7m652F8fboS4ulqlrG7Q8cg3BfR3G8EtpjZaWZ2BHApsDO9wcxeAPxn4CJ3f2j5zZxF1v6C+Ean/fVodamfFaXVFU81+s180TiocHf3fcAVwA3AncAOd7/DzN5mZheVt/0R8GTgw2Z2i5ntXOHrlgat9id2k4xc++ut5K/cChoh3zziaK6Ziyi+cTndF3HL4O7XA9d3Prs6OT93ye06KJqo/fh8f1n7Wz6XjG/Fi3i+8Y2dNhguzysIxoB3qBZHdSaLOq9eHTBW1ljXV/TU8qnr1Wv2DeisrvZ7BuL5UgrF2EVj8MJd8ZRNxDlScjdJT89xvzsQo0jmnor4dK6SXPJ39WO4wn3M2TLp+QizBNaKW2aULry+NjGJfVxrIqC6WjHqbJmRZwmMeo/CGvETj9HqUi/M0RiucO8cY7lGni0jD+CuFasrnG7kaazJeTib3h0ajeEKd2FQrldhO8pJNMsbzdULXzxdf3xiK2iMqZfRGK5w7xwVXMX5CBeTFp9uEo2y5G/7YYnnWzNWl4Av+9xXCYTaH2JhuwK1hEVq/ooXLo3216PVpXTLjN3qGr5sH65wV+ZKq98Io8/Nbs6Vk0hTq745HydfNQ/iuSCZd4KFS1/PXcsXjcEKd6VbRl0KNLtllsml1qS1C7MyrTTlGWPJ36y5rxJozcN+/JrFuY5P9UArtU19MLwfPtnLJerFRNuZ+jTW4WO4wr0O7Gij6KP2o4YztXnkwjaerr/MIwFXyqNP0RXP8xFI9+EK9zEHdlbgjuZTaX/aXOkerS5l9orY6tJwyajm8A1fug9WuFcYpZtErv1VVpAGa6Xkr6JHlQtlwVPxjk+TVi/M0RiscFeW/NWnQvbzkOm0Pw2Pmgv6s7pUK7PSDbRWSjlEYbjCvTqOMZtk5NpfwyvOllE/K/F0a8jqUvMNX7wPV7jXPvfxmYft/F4dnzpXWpIHnjzhmlr86djpFmZVXrZSc1fPA/UehWgMVrhPhBrLRG0epufKvPMxmvYrnEv4RhxQlSwmLStIHHwfgWNmsMJ91NkyctO+4hJrf2JNWp8rrXSpadCfO1TAtwL3UDFc4d45xnL1mC0jFEi6fTA6q6utuY/PhafMXil4usyBXOEMHb4xSPQEgxXu1AJJHEUXmtrd8zi+9jGcb41YXQrINXfp2Nnc8zC+Fnc4XTgGK9zVAqnhFfsaheqtTPubcxbHpX1C+rK6ZKmQvVldAj6xjz8awxXuY9b+4ik6fLoJWxDp3EDyNNZsdS2da6x80RiucJ9zFsel1v7UQcDqJJ4rpdEvYlqSMVtdo3zRSt6hujrQX2VBse8va39L4ZLxrcAdx6cNho/Z6lKnXkZjsMK92mSg3OTTC59ghOpNRaKdG80mpng+9Qsf9Hw6LjWfelORep5HY7DCvb+Sv/FQB3ZGnSudnqu1zXi63sZOk1egNbtytsxqQW+m/fgeskbYivy2tUBSLFzj9tv29qIVCVdyLubTR4SWj8EKd6n2Jw5wIn6oEU7Ygkenbrbnq9aVIAn2K1VptIpAX/ELFV80hivchdpfi1fCodb+dFwp4Si1vxW4o/l0mnubN5Yrtbq0C/MIZPtiwt3Mzjezu8xst5ldNefvR5rZh8q/f8nMNi+7oTOcSgnRIh6z9qeBVPvLVtdy6YRuoL4WyoJv+OL9oMLdzNYB1wAXAFuBy8xsa+e21wIPu/svAu8C/nDZDZ1tV3mMJuryijnU5qgC/Y2dwpWQLiY610W2upZBKOYLxiKa+5nAbne/x90fB64DLu7cczHwZ+X5R4BzLPjJbnKl+xFMsRziIKBcc9cGAWveEWfLqDBmq2st+txPBh5IrveUn829x933AY8AT1tGA1eCsp57CoX2l+bYKiZRxbd/6uFc0OTuj9HqmogFUsUnGrq1M+9GoLsftsA9835l91Fa5B7M7HLgcoBTTjllAeqV8RtnncIxRx3GK7dtfELfsyiuPO9ZfGPvj/gHW9aHcz3npGN51baNHHHYhE1PeVI433lbT+Rr3/khZ5zylHAugFefdSrHPelwLnnhJgnfG8/dwn3f+zFn/2L82G19RjF2Rx62jo1P+YVwvvO2Pp27v/tDtp0qGrvtp/KUow/nn7xQM+/ecM4W7v/+jzlbMO+2PuNYXvnCjRx1+DpOFsy7aJj7gZd8M3sx8FZ3f0V5/WYAd397cs8N5T1fMLPDgO8AG/wAX75t2zbftWvXEn5CRkZGxtqBmd3k7tsOdt8ibpkbgS1mdpqZHQFcCuzs3LMT+M3y/BLg0wcS7BkZGRkZsTioW8bd95nZFcANwDrgve5+h5m9Ddjl7juB/wZ8wMx2Az+gWAAyMjIyMnrCIj533P164PrOZ1cn5z8FXrncpmVkZGRkHCoGu0M1IyMjI2NlZOGekZGRMUJk4Z6RkZExQmThnpGRkTFCZOGekZGRMUIcdBNTGLHZXuD+Q/zf1wPfW2JzojGk9ua2xmFI7c1tjcMTbe+p7r7hYDf1JtyfCMxs1yI7tFYLhtTe3NY4DKm9ua1xULU3u2UyMjIyRogs3DMyMjJGiKEK92v7bsDPiSG1N7c1DkNqb25rHCTtHaTPPSMjIyPjwBiq5p6RkZGRcQAMTrgf7GXdfcPM7jOzr5jZLWa2q/zsqWb2STP7ennUvFlhfvvea2YPmdntyWdz22cF3l329W1mdsYqaOtbzexbZf/eYmYXJn97c9nWu8zsFeK2bjKzz5jZnWZ2h5m9ofx81fXtAdq6Wvv2KDP7GzO7tWzvvys/P83MvlT27YfKkuSY2ZHl9e7y75tXQVvfb2b3Jn37/PLzuOfA3Qfzj6Lk8DeA04EjgFuBrX23q9PG+4D1nc/eAVxVnl8F/GGP7ftV4Azg9oO1D7gQ+DjFm7a2A19aBW19K/Av5ty7tXwejgROK5+TdcK2ngScUZ4fA9xdtmnV9e0B2rpa+9aAJ5fnhwNfKvtsB3Bp+fl7gH9anv8z4D3l+aXAh1ZBW98PXDLn/rDnYGia+yIv616NSF8g/mfAP+qrIe7+OYqa+ylWat/FwJ97gS8Cx5vZSZqWrtjWlXAxcJ27P+bu9wK7KZ4XCdz92+7+5fL8h8CdFO8WXnV9e4C2roS++9bd/Ufl5eHlPwdeBnyk/Lzbt1WffwQ4x0zzyusDtHUlhD0HQxPui7ysu2848Akzu8mKd8YCPN3dvw3FxAJO6K1187FS+1Zrf19RmrDvTVxcq6atpRvgBRRa26ru205bYZX2rZmtM7NbgIeAT1JYD3/r7vvmtKlub/n3R4Cn9dVWd6/69vfLvn2XmR3ZbWuJpfXt0IT7Qi/i7hlnu/sZwAXA75jZr/bdoCeA1djffwo8E3g+8G3gneXnq6KtZvZk4H8Cb3T3vzvQrXM+k7Z3TltXbd+6+353fz6wkcJqeM4B2tRre7ttNbPnAW8Gng28CHgq8K/K28PaOjThvgfYlFxvBB7sqS1z4e4PlseHgI9SPIjfrUyt8vhQfy2ci5Xat+r6292/W06eKfBfaNwDvbfVzA6nEJb/w93/svx4VfbtvLau5r6t4O5/C3yWwj99vJlVb5NL21S3t/z7cSzu3lsakraeX7rC3N0fA96HoG+HJtwXeVl3bzCzo83smOoceDlwO+0XiP8m8LF+WrgiVmrfTuA1ZUR/O/BI5WLoCx1/5D+m6F8o2nppmSlxGrAF+Bthu4ziXcJ3uvufJH9adX27UltXcd9uMLPjy/MnAedSxAk+A1xS3tbt26rPLwE+7WX0sqe2fi1Z4I0iNpD2bcxzoIggL/MfRXT5bgqf21v6bk+nbadTZBXcCtxRtY/C3/cp4Ovl8ak9tvGDFCb3zyi0hteu1D4Kk/Gasq+/AmxbBW39QNmW28qJcVJy/1vKtt4FXCBu69+nMKdvA24p/124Gvv2AG1drX37y8DNZbtuB64uPz+dYpHZDXwYOLL8/Kjyenf599NXQVs/Xfbt7cB/p8moCXsO8g7VjIyMjBFiaG6ZjIyMjIwFkIV7RkZGxgiRhXtGRkbGCJGFe0ZGRsYIkYV7RkZGxgiRhXtGRkbGCJGFe0ZGRsYIkYV7RkZGxgjx/wF2Ph0/ZMOVdQAAAABJRU5ErkJggg==\n", + "text/plain": [ + "
" + ] + }, + "metadata": { + "needs_background": "light" + }, + "output_type": "display_data" + } + ], + "source": [ + "plt.figure()\n", + "lib_basic_params.init_k_coefficients(k_coefficients, nb_binscompressed_matrix)\n", + "plt.plot(k_coefficients)" + ] + }, + { + "cell_type": "code", + "execution_count": 9, + "metadata": { + "ExecuteTime": { + "end_time": "2019-11-08T17:28:05.727737Z", + "start_time": "2019-11-08T17:28:05.720427Z" + } + }, + "outputs": [ + { + "data": { + "text/plain": [ + "(array([ 2, 3, 34, 35, 66, 67, 98, 99, 130, 131, 162, 163, 194,\n", + " 195, 226, 227, 258, 259, 290, 291, 322, 323]),)" + ] + }, + "execution_count": 9, + "metadata": {}, + "output_type": "execute_result" + } + ], + "source": [ + "\n", + "arr = np.array(k_coefficients)\n", + "np.where(arr == 0.)" + ] + }, + { + "cell_type": "code", + "execution_count": null, + "metadata": {}, + "outputs": [], + "source": [] + } + ], + "metadata": { + "kernelspec": { + "display_name": "Python 3", + "language": "python", + "name": "python3" + }, + "language_info": { + "codemirror_mode": { + "name": "ipython", + "version": 3 + }, + "file_extension": ".py", + "mimetype": "text/x-python", + "name": "python", + "nbconvert_exporter": "python", + "pygments_lexer": "ipython3", + "version": "3.7.4" + } + }, + "nbformat": 4, + "nbformat_minor": 2 +} diff --git a/basic_parameters.c b/basic_parameters.c deleted file mode 100755 --- a/basic_parameters.c +++ /dev/null @@ -1,211 +0,0 @@ -// In the frame of RPW LFR Sofware ICD Issue1 Rev8 (05/07/2013) => R2 FSW -// version 1.0: 31/07/2013 -// version 1.1: 02/04/2014 -// version 1.2: 30/04/2014 -// version 1.3: 02/05/2014 -// version 1.4: 16/05/2014 -// version 1.5: 20/05/2014 -// version 1.6: 19/12/2014 -// version 1.7: 15/01/2015 (modifs de Paul + correction erreurs qui se compensaient (LSB <=> MSB + indices [0,2] <=> [1,3]) -// version 1.8: 02/02/2015 (gestion des divisions par zéro) -// In the frame of RPW LFR Sofware ICD Issue3 Rev6 (27/01/2015) => R3 FSW -// version 2.0: 19/06/2015 -// version 2.1: 22/06/2015 (modifs de Paul) -// version 2.2: 23/06/2015 (modifs de l'ordre de déclaration/définition de init_k_coefficients dans basic_parameters.c ... + maintien des declarations dans le .h) -// version 2.3: 01/07/2015 (affectation initiale des octets 7 et 9 dans les BP1 corrigée ...) -// version 2.4: 05/10/2018 (added GPL headers) -// version 2.5: 09/10/2018 (dans main.c #include "basic_parameters_utilities.h" est changé par les déclarations extern correspondantes ...! -// + delta mise en conformité LOGISCOPE) - -/*------------------------------------------------------------------------------ --- Solar Orbiter's Low Frequency Receiver Flight Software (LFR FSW), --- This file is a part of the LFR FSW --- Copyright (C) 2012-2018, Plasma Physics Laboratory - CNRS --- --- This program is free software; you can redistribute it and/or modify --- it under the terms of the GNU General Public License as published by --- the Free Software Foundation; either version 2 of the License, or --- (at your option) any later version. --- --- This program is distributed in the hope that it will be useful, --- but WITHOUT ANY WARRANTY; without even the implied warranty of --- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --- GNU General Public License for more details. --- --- You should have received a copy of the GNU General Public License --- along with this program; if not, write to the Free Software --- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA --------------------------------------------------------------------------------*/ -/*-- Author : Thomas Chust --- Contact : Thomas Chust --- Mail : thomas.chust@lpp.polytechnique.fr -----------------------------------------------------------------------------*/ - -#include -#include - -#include "basic_parameters_params.h" - -void init_k_coefficients_f0(float *k_coefficients, - unsigned char nb_binscompressed_matrix ) -{ - - uint8_t i; // 8 bits unsigned - for(i=0; i R2 FSW -// version 1.0: 31/07/2013 -// version 1.1: 02/04/2014 -// version 1.2: 30/04/2014 -// version 1.3: 02/05/2014 -// version 1.4: 16/05/2014 -// version 1.5: 20/05/2014 -// version 1.6: 19/12/2014 -// version 1.7: 15/01/2015 (modifs de Paul + correction erreurs qui se compensaient (LSB <=> MSB + indices [0,2] <=> [1,3]) -// version 1.8: 02/02/2015 (gestion des divisions par zéro) -// In the frame of RPW LFR Sofware ICD Issue3 Rev6 (27/01/2015) => R3 FSW -// version 2.0: 19/06/2015 -// version 2.1: 22/06/2015 (modifs de Paul) -// version 2.2: 23/06/2015 (modifs de l'ordre de déclaration/définition de init_k_coefficients dans basic_parameters.c ... + maintien des declarations dans le .h) -// version 2.3: 01/07/2015 (affectation initiale des octets 7 et 9 dans les BP1 corrigée ...) -// version 2.4: 05/10/2018 (mise en conformité LOGISCOPE) -// version 2.5: 09/10/2018 (dans main.c #include "basic_parameters_utilities.h" est changé par les déclarations extern correspondantes ...! -// + delta mise en conformité LOGISCOPE) - -/*------------------------------------------------------------------------------ --- Solar Orbiter's Low Frequency Receiver Flight Software (LFR FSW), --- This file is a part of the LFR FSW --- Copyright (C) 2012-2018, Plasma Physics Laboratory - CNRS --- --- This program is free software; you can redistribute it and/or modify --- it under the terms of the GNU General Public License as published by --- the Free Software Foundation; either version 2 of the License, or --- (at your option) any later version. --- --- This program is distributed in the hope that it will be useful, --- but WITHOUT ANY WARRANTY; without even the implied warranty of --- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --- GNU General Public License for more details. --- --- You should have received a copy of the GNU General Public License --- along with this program; if not, write to the Free Software --- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA --------------------------------------------------------------------------------*/ -/*-- Author : Thomas Chust --- Contact : Thomas Chust --- Mail : thomas.chust@lpp.polytechnique.fr -----------------------------------------------------------------------------*/ - -#ifndef BASIC_PARAMETERS_H_INCLUDED -#define BASIC_PARAMETERS_H_INCLUDED - -#include -#include -#include - -#include "basic_parameters_params.h" - -static inline void BP1_set(float * compressed_spec_mat, float * k_coeff_intercalib, unsigned char nb_bins_compressed_spec_mat, unsigned char * lfr_bp1); -static inline void BP2_set(float * compressed_spec_mat, unsigned char nb_bins_compressed_spec_mat, unsigned char * lfr_bp2); - -void init_k_coefficients_f0( float *k_coeff_intercalib, unsigned char nb_binscompressed_matrix ); -void init_k_coefficients_f1( float *k_coeff_intercalib, unsigned char nb_binscompressed_matrix ); -void init_k_coefficients_f2( float *k_coeff_intercalib, unsigned char nb_binscompressed_matrix ); - -void init_k_coefficients( float *k_coeff_intercalib, unsigned char nb_binscompressed_matrix ); - -//*********************************** -// STATIC INLINE FUNCTION DEFINITIONS - -void BP1_set( float * compressed_spec_mat, float * k_coeff_intercalib, uint8_t nb_bins_compressed_spec_mat, uint8_t * lfr_bp1 ){ - float PSDB; // 32-bit floating point - float PSDE; - float tmp; - float NVEC_V0; - float NVEC_V1; - float NVEC_V2; - float aux; - float tr_SB_SB; - float e_cross_b_re; - float e_cross_b_im; - float n_cross_e_scal_b_re; - float n_cross_e_scal_b_im; - float ny; - float nz; - float bx_bx_star; - float vphi; - float significand; - int exponent; // 32-bit signed integer - float alpha_M; - - uint8_t nbitexp; // 8-bit unsigned integer - uint8_t nbitsig; - uint8_t tmp_uint8; - uint8_t *pt_uint8; // pointer on unsigned 8-bit integer - int8_t expmin; // 8-bit signed integer - int8_t expmax; - uint16_t rangesig; // 16-bit unsigned integer - uint16_t psd; - uint16_t exp; - uint16_t tmp_uint16; - uint16_t i; - - alpha_M = 45 * (3.1415927/180); - -#ifdef DEBUG_TCH - printf("BP1 : \n"); - printf("Number of bins: %d\n", nb_bins_compressed_spec_mat); -#endif - - // initialization for managing the exponents of the floating point data: - nbitexp = 6; // number of bits for the exponent - expmax = 32+5; // maximum value of the exponent - expmin = (expmax - (1 << nbitexp)) + 1; // accordingly the minimum exponent value - // for floating point data to be recorded on 16-bit words: - nbitsig = 16 - nbitexp; // number of bits for the significand - rangesig = (1 << nbitsig)-1; // == 2^nbitsig - 1 - -#ifdef DEBUG_TCH - printf("nbitexp : %d, expmax : %d, expmin : %d\n", nbitexp, expmax, expmin); - printf("nbitsig : %d, rangesig : %d\n", nbitsig, rangesig); -#endif - - for(i=0; i= 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 - } - - psd = (uint16_t) ((((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) - exp = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int where just - // the first nbitexp bits are used (0, ..., 2^nbitexp-1) - tmp_uint16 = psd | (exp << nbitsig); // Put the exponent bits (nbitexp) next to the - // left place of the significand bits (nbitsig), - // making the 16-bit word to be recorded - pt_uint8 = (uint8_t*) &tmp_uint16; // Affect an uint8_t pointer with the adress of tmp_uint16 -#ifdef MSB_FIRST_TCH - lfr_bp1[(i*NB_BYTES_BP1)+2] = pt_uint8[0]; // Record MSB of tmp_uint16 - lfr_bp1[(i*NB_BYTES_BP1)+3] = pt_uint8[1]; // Record LSB of tmp_uint16 -#endif -#ifdef LSB_FIRST_TCH - lfr_bp1[(i*NB_BYTES_BP1)+2] = pt_uint8[1]; // Record MSB of tmp_uint16 - lfr_bp1[(i*NB_BYTES_BP1)+3] = pt_uint8[0]; // Record LSB of tmp_uint16 -#endif -#ifdef DEBUG_TCH - printf("\nBin number: %d\n", i); - printf("PSDB : %16.8e\n",PSDB); - printf("significand : %16.8e\n",significand); - printf("exponent : %d\n" ,exponent); - printf("psd for PSDB significand : %d\n",psd); - printf("exp for PSDB exponent : %d\n",exp); - printf("pt_uint8[1] for PSDB exponent + significand: %.3d or %.2x\n",pt_uint8[1], pt_uint8[1]); - printf("pt_uint8[0] for PSDB significand: %.3d or %.2x\n",pt_uint8[0], pt_uint8[0]); - printf("lfr_bp1[i*NB_BYTES_BP1+2] : %.3d or %.2x\n",lfr_bp1[i*NB_BYTES_BP1+2], lfr_bp1[i*NB_BYTES_BP1+2]); - printf("lfr_bp1[i*NB_BYTES_BP1+3] : %.3d or %.2x\n",lfr_bp1[i*NB_BYTES_BP1+3], lfr_bp1[i*NB_BYTES_BP1+3]); -#endif - //============================================== - // BP1 PSDE == PA_LFR_SC_BP1_PE_F0 == 16 bits = 6 bits (exponent) + 10 bits (significand) - PSDE = (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 21] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K44_PE]) // S44 - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 24] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K55_PE]) // S55 - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 22] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K45_PE_RE]) // S45 Re - - (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 23] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K45_PE_IM]); // S45 Im - - significand = frexpf(PSDE, &exponent); // 0.5 <= significand < 1 - // PSDE = significand * 2^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 - } - - psd = (uint16_t) ((((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) - exp = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int where just - // the first nbitexp bits are used (0, ..., 2^nbitexp-1) - tmp_uint16 = psd | (exp << nbitsig); // Put the exponent bits (nbitexp) next to the - // left place of the significand bits (nbitsig), - // making the 16-bit word to be recorded - pt_uint8 = (uint8_t*) &tmp_uint16; // Affect an uint8_t pointer with the adress of tmp_uint16 -#ifdef MSB_FIRST_TCH - lfr_bp1[(i*NB_BYTES_BP1) + 0] = pt_uint8[0]; // Record MSB of tmp_uint16 - lfr_bp1[(i*NB_BYTES_BP1) + 1] = pt_uint8[1]; // Record LSB of tmp_uint16 -#endif -#ifdef LSB_FIRST_TCH - lfr_bp1[(i*NB_BYTES_BP1) + 0] = pt_uint8[1]; // Record MSB of tmp_uint16 - lfr_bp1[(i*NB_BYTES_BP1) + 1] = pt_uint8[0]; // Record LSB of tmp_uint16 -#endif -#ifdef DEBUG_TCH - printf("PSDE : %16.8e\n",PSDE); - printf("significand : %16.8e\n",significand); - printf("exponent : %d\n" ,exponent); - printf("psd for PSDE significand : %d\n",psd); - printf("exp for PSDE exponent : %d\n",exp); - printf("pt_uint8[1] for PSDE exponent + significand: %.3d or %.2x\n",pt_uint8[1], pt_uint8[1]); - printf("pt_uint8[0] for PSDE significand: %.3d or %.2x\n",pt_uint8[0], pt_uint8[0]); - printf("lfr_bp1[i*NB_BYTES_BP1+0] : %.3d or %.2x\n",lfr_bp1[i*NB_BYTES_BP1+0], lfr_bp1[i*NB_BYTES_BP1+0]); - printf("lfr_bp1[i*NB_BYTES_BP1+1] : %.3d or %.2x\n",lfr_bp1[i*NB_BYTES_BP1+1], lfr_bp1[i*NB_BYTES_BP1+1]); -#endif - //============================================================================== - // BP1 normal wave vector == PA_LFR_SC_BP1_NVEC_V0_F0 == 8 bits - // == PA_LFR_SC_BP1_NVEC_V1_F0 == 8 bits - // == PA_LFR_SC_BP1_NVEC_V2_F0 == 1 sign bit - tmp = sqrt( (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 2] *compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 2]) //Im S12 - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 4] *compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 4]) //Im S13 - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 11]*compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 11]) //Im S23 - ); - if (tmp != 0.) { // no division by 0. - NVEC_V0 = compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 11] / tmp; // S23 Im => n1 - NVEC_V1 = (-compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 4]) / tmp; // S13 Im => n2 - NVEC_V2 = compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 2] / tmp; // S12 Im => n3 - } - else - { - NVEC_V0 = 0.; - NVEC_V1 = 0.; - NVEC_V2 = 0.; - } - 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 - 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 - pt_uint8 = (uint8_t*) &NVEC_V2; // Affect an uint8_t pointer with the adress of NVEC_V2 -#ifdef LSB_FIRST_TCH - 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) - // Record it at the 8th bit position (from the right to the left) of lfr_bp1[i*NB_BYTES_BP1+6] -#endif -#ifdef MSB_FIRST_TCH - 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 1th octet:SPARC convention) - // Record it at the 8th bit position (from the right to the left) of lfr_bp1[i*NB_BYTES_BP1+6] -#endif -#ifdef DEBUG_TCH - printf("NVEC_V0 : %16.8e\n",NVEC_V0); - printf("NVEC_V1 : %16.8e\n",NVEC_V1); - printf("NVEC_V2 : %16.8e\n",NVEC_V2); - printf("lfr_bp1[i*NB_BYTES_BP1+4] for NVEC_V0 : %u\n",lfr_bp1[i*NB_BYTES_BP1+4]); - printf("lfr_bp1[i*NB_BYTES_BP1+5] for NVEC_V1 : %u\n",lfr_bp1[i*NB_BYTES_BP1+5]); - printf("lfr_bp1[i*NB_BYTES_BP1+6] for NVEC_V2 : %u\n",lfr_bp1[i*NB_BYTES_BP1+6]); -#endif - //======================================================= - // BP1 ellipticity == PA_LFR_SC_BP1_ELLIP_F0 == 4 bits - if (PSDB != 0.) { // no division by 0. - aux = 2*tmp / PSDB; // Compute the ellipticity - } - else - { - aux = 0.; - } - tmp_uint8 = (uint8_t) ((aux*15) + 0.5); // Shift and cast into a 8-bit uint8_t with rounding - // where just the first 4 bits are used (0, ..., 15) - 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 - // of the sign bit of NVEC_V2 (recorded - // previously in lfr_bp1[i*NB_BYTES_BP1+6]) -#ifdef DEBUG_TCH - printf("ellipticity : %16.8e\n",aux); - printf("tmp_uint8 for ellipticity : %u\n",tmp_uint8); - printf("lfr_bp1[i*NB_BYTES_BP1+6] for NVEC_V2 + ellipticity : %u\n",lfr_bp1[i*NB_BYTES_BP1+6]); -#endif - //============================================================== - // BP1 degree of polarization == PA_LFR_SC_BP1_DOP_F0 == 3 bits - tr_SB_SB = (compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX] * compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX]) - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 9] * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 9]) - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 16] * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 16]) - + (2 * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 1] * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 1]) - + (2 * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 2] * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 2]) - + (2 * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 3] * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 3]) - + (2 * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 4] * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 4]) - + (2 * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 10]* compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 10]) - + (2 * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 11]* compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 11]); - aux = PSDB*PSDB; - if (aux != 0.) { // no division by 0. - tmp = ( 3*tr_SB_SB - aux ) / ( 2 * aux ); // Compute the degree of polarisation - } - else - { - tmp = 0.; - } - tmp_uint8 = (uint8_t) ((tmp*7) + 0.5); // Shift and cast into a 8-bit uint8_t with rounding - // where just the first 3 bits are used (0, ..., 7) - 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 - // (from the right to the left) of lfr_bp1[i*NB_BYTES_BP1+6] -#ifdef DEBUG_TCH - printf("DOP : %16.8e\n",tmp); - printf("tmp_uint8 for DOP : %u\n",tmp_uint8); - printf("lfr_bp1[i*NB_BYTES_BP1+6] for NVEC_V2 + ellipticity + DOP : %u\n",lfr_bp1[i*NB_BYTES_BP1+6]); -#endif - //======================================================================================= - // BP1 X_SO-component of the Poynting flux == PA_LFR_SC_BP1_SX_F0 == 16 bits - // = 1 sign bit + 1 argument bit (two sectors) - // + 6 bits (exponent) + 8 bits (significand) - e_cross_b_re = (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 17] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_SX_RE]) //S34 Re - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 19] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_SX_RE]) //S35 Re - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 5] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K14_SX_RE]) //S14 Re - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 7] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K15_SX_RE]) //S15 Re - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 12] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_SX_RE]) //S24 Re - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 14] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_SX_RE]) //S25 Re - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 18] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_SX_IM]) //S34 Im - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 20] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_SX_IM]) //S35 Im - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 6] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K14_SX_IM]) //S14 Im - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 8] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K15_SX_IM]) //S15 Im - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 13] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_SX_IM]) //S24 Im - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 15] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_SX_IM]); //S25 Im - // Im(S_ji) = -Im(S_ij) - // k_ji = k_ij - e_cross_b_im = (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 17]*k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_SX_IM]) //S34 Re - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 19]*k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_SX_IM]) //S35 Re - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 5] *k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K14_SX_IM]) //S14 Re - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 7] *k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K15_SX_IM]) //S15 Re - + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 12]*k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_SX_IM]) //S24 Re - + ((compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 14]*k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_SX_IM]) //S25 Re - - (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 18]*k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_SX_RE]) //S34 Im - - (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 20]*k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_SX_RE]) //S35 Im - - (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 6] *k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K14_SX_RE]) //S14 Im - - (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 8] *k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K15_SX_RE]) //S15 Im - - (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 13]*k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_SX_RE]) //S24 Im - - (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 15]*k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_SX_RE])); //S25 Im -#ifdef DEBUG_TCH - printf("ReaSX : %16.8e\n",e_cross_b_re); -#endif - pt_uint8 = (uint8_t*) &e_cross_b_re; // Affect an uint8_t pointer with the adress of e_cross_b_re -#ifdef LSB_FIRST_TCH - - lfr_bp1[(i*NB_BYTES_BP1) + 7] = (uint8_t) (pt_uint8[3] & 0x80); // Extract its sign bit (32-bit float, sign bit in the 4th octet:PC convention) - // Record it at the 8th bit position (from the right to the left) - // of lfr_bp1[i*NB_BYTES_BP1+7] - pt_uint8[3] = (pt_uint8[3] & 0x7f); // Make e_cross_b_re be positive in any case: |ReaSX| -#endif -#ifdef MSB_FIRST_TCH - lfr_bp1[(i*NB_BYTES_BP1) + 7] = (uint8_t) (pt_uint8[0] & 0x80); // Extract its sign bit (32-bit float, sign bit in the 1th octet:SPARC convention) - // Record it at the 8th bit position (from the right to the left) - // of lfr_bp1[i*NB_BYTES_BP1+7] - pt_uint8[0] = (pt_uint8[0] & 0x7f); // Make e_cross_b_re be positive in any case: |ReaSX| -#endif - significand = frexpf(e_cross_b_re, &exponent); // 0.5 <= significand < 1 - // ReaSX = significand * 2^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 - } - - lfr_bp1[(i*NB_BYTES_BP1) + 8] = (uint8_t) ((((significand*2)-1)*255) + 0.5); // Shift and cast into a 8-bit uint8_t with rounding - // where all bits are used (0, ..., 255) - tmp_uint8 = (uint8_t) (exponent-expmin); // Shift and cast into a 8-bit uint8_t where - // just the first nbitexp bits are used (0, ..., 2^nbitexp-1) -#ifdef DEBUG_TCH - printf("|ReaSX| : %16.8e\n",e_cross_b_re); - printf("significand : %16.8e\n",significand); - printf("exponent : %d\n" ,exponent); - printf("tmp_uint8 for ReaSX exponent : %d\n",tmp_uint8); -#endif - lfr_bp1[(i*NB_BYTES_BP1) + 7] = lfr_bp1[(i*NB_BYTES_BP1) + 7] | tmp_uint8; // Record these nbitexp bits in the nbitexp first bits - // (from the right to the left) of lfr_bp1[i*NB_BYTES_BP1+7] -#ifdef DEBUG_TCH - printf("lfr_bp1[i*NB_BYTES_BP1+7] for ReaSX sign + RealSX exponent : %u\n",lfr_bp1[i*NB_BYTES_BP1+7]); - printf("lfr_bp1[i*NB_BYTES_BP1+8] for ReaSX significand : %u\n",lfr_bp1[i*NB_BYTES_BP1+8]); - printf("ImaSX : %16.8e\n",e_cross_b_im); -#endif - pt_uint8 = (uint8_t*) &e_cross_b_im; // Affect an uint8_t pointer with the adress of e_cross_b_im -#ifdef LSB_FIRST_TCH - pt_uint8[3] = pt_uint8[3] & 0x7f; // Make e_cross_b_im be positive in any case: |ImaSX| (32-bit float, sign bit in the 4th octet:PC convention) -#endif -#ifdef MSB_FIRST_TCH - pt_uint8[0] = pt_uint8[0] & 0x7f; // Make e_cross_b_im be positive in any case: |ImaSX| (32-bit float, sign bit in the 1th octet:SPARC convention) -#endif - // Determine the sector argument of SX. If |Im| > |Re| affect - // an unsigned 8-bit char with 01000000; otherwise with null. - if (e_cross_b_im > e_cross_b_re) { - tmp_uint8 = 0x40; - } - else { - tmp_uint8 = 0x00; - } - - lfr_bp1[(i*NB_BYTES_BP1) + 7] = lfr_bp1[(i*NB_BYTES_BP1) + 7] | tmp_uint8; // Record it as a sign bit at the 7th bit position (from the right - // to the left) of lfr_bp1[i*NB_BYTES_BP1+7], by simple logical addition. -#ifdef DEBUG_TCH - printf("|ImaSX| : %16.8e\n",e_cross_b_im); - printf("ArgSX sign : %u\n",tmp_uint8); - printf("lfr_bp1[i*NB_BYTES_BP1+7] for ReaSX & ArgSX signs + ReaSX exponent : %u\n",lfr_bp1[i*NB_BYTES_BP1+7]); -#endif - //====================================================================== - // BP1 phase velocity estimator == PA_LFR_SC_BP1_VPHI_F0 == 16 bits - // = 1 sign bit + 1 argument bit (two sectors) - // + 6 bits (exponent) + 8 bits (significand) - ny = (sin(alpha_M)*NVEC_V1) + (cos(alpha_M)*NVEC_V2); - nz = NVEC_V0; - bx_bx_star = (cos(alpha_M)*cos(alpha_M)*compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 9]) // S22 Re - + ((sin(alpha_M)*sin(alpha_M)*compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 16]) // S33 Re - - (2*sin(alpha_M)*cos(alpha_M)*compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 10])); // S23 Re - - n_cross_e_scal_b_re = (ny * ((compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 12] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_NY_RE]) //S24 Re - +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 14] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_NY_RE]) //S25 Re - +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 17] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_NY_RE]) //S34 Re - +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 19] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_NY_RE]) //S35 Re - +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 13] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_NY_IM]) //S24 Im - +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 15] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_NY_IM]) //S25 Im - +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 18] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_NY_IM]) //S34 Im - +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 20] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_NY_IM]))) //S35 Im - + (nz * ((compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 12] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_NZ_RE]) //S24 Re - +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 14] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_NZ_RE]) //S25 Re - +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 17] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_NZ_RE]) //S34 Re - +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 19] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_NZ_RE]) //S35 Re - +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 13] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_NZ_IM]) //S24 Im - +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 15] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_NZ_IM]) //S25 Im - +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 18] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_NZ_IM]) //S34 Im - +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 20] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_NZ_IM])));//S35 Im - // Im(S_ji) = -Im(S_ij) - // k_ji = k_ij - n_cross_e_scal_b_im = (ny * ((compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 12] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_NY_IM]) //S24 Re - +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 14] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_NY_IM]) //S25 Re - +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 17] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_NY_IM]) //S34 Re - +((compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 19] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_NY_IM]) //S35 Re - -(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 13] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_NY_RE]) //S24 Im - -(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 15] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_NY_RE]) //S25 Im - -(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 18] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_NY_RE]) //S34 Im - -(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 20] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_NY_RE])))) //S35 Im - + (nz * ((compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 12] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_NZ_IM]) //S24 Re - +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 14] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_NZ_IM]) //S25 Re - +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 17] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_NZ_IM] ) //S34 Re - +((compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 19] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_NZ_IM]) //S35 Re - -(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 13] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_NZ_RE]) //S24 Im - -(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 15] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_NZ_RE]) //S25 Im - -(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 18] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_NZ_RE]) //S34 Im - -(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 20] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_NZ_RE]))));//S35 Im -#ifdef DEBUG_TCH - printf("n_cross_e_scal_b_re : %16.8e\n",n_cross_e_scal_b_re); - printf("n_cross_e_scal_b_im : %16.8e\n",n_cross_e_scal_b_im); -#endif - // vphi = n_cross_e_scal_b_re / bx_bx_star => sign(VPHI) = sign(n_cross_e_scal_b_re) - 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 -#ifdef LSB_FIRST_TCH - lfr_bp1[(i*NB_BYTES_BP1) + 9] = (uint8_t) (pt_uint8[3] & 0x80); // Extract its sign bit (32-bit float, sign bit in the 4th octet:PC convention) - // Record it at the 8th bit position (from the right to the left) - // of lfr_bp1[i*NB_BYTES_BP1+9] - pt_uint8[3] = (pt_uint8[3] & 0x7f); // Make n_cross_e_scal_b_re be positive in any case: |n_cross_e_scal_b_re| -#endif -#ifdef MSB_FIRST_TCH - lfr_bp1[(i*NB_BYTES_BP1) + 9] = (uint8_t) (pt_uint8[0] & 0x80); // Extract its sign bit (32-bit float, sign bit in the 1th octet:SPARC convention) - // Record it at the 8th bit position (from the right to the left) - // of lfr_bp1[i*NB_BYTES_BP1+9] - pt_uint8[0] = (pt_uint8[0] & 0x7f); // Make n_cross_e_scal_b_re be positive in any case: |n_cross_e_scal_b_re| -#endif - if (bx_bx_star != 0.) { // no division by 0. - vphi = n_cross_e_scal_b_re / bx_bx_star; // Compute |VPHI| - } - else - { - vphi = 1.e+20; // Put a huge value - } - significand = frexpf(vphi, &exponent); // 0.5 <= significand < 1 - // vphi = significand * 2^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 - } - - lfr_bp1[(i*NB_BYTES_BP1) + 10] = (uint8_t) ((((significand*2)-1)*255) + 0.5); // Shift and cast into a 8-bit uint8_t with rounding - // where all the bits are used (0, ..., 255) - tmp_uint8 = (uint8_t) (exponent-expmin); // Shift and cast into a 8-bit uint8_t where - // just the first nbitexp bits are used (0, ..., 2^nbitexp-1) -#ifdef DEBUG_TCH - printf("|VPHI| : %16.8e\n",vphi); - printf("significand : %16.8e\n",significand); - printf("exponent : %d\n" ,exponent); - printf("tmp_uint8 for VPHI exponent : %d\n",tmp_uint8); -#endif - lfr_bp1[(i*NB_BYTES_BP1) + 9] = lfr_bp1[(i*NB_BYTES_BP1) + 9] | tmp_uint8; // Record these nbitexp bits in the nbitexp first bits - // (from the right to the left) of lfr_bp1[i*NB_BYTES_BP1+9] -#ifdef DEBUG_TCH - printf("lfr_bp1[i*NB_BYTES_BP1+9] for VPHI sign + VPHI exponent : %u\n",lfr_bp1[i*NB_BYTES_BP1+9]); - printf("lfr_bp1[i*NB_BYTES_BP1+10] for VPHI significand : %u\n",lfr_bp1[i*NB_BYTES_BP1+10]); -#endif - 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 -#ifdef LSB_FIRST_TCH - pt_uint8[3] = pt_uint8[3] & 0x7f; // Make n_cross_e_scal_b_im be positive in any case: |ImaNEBX| (32-bit float, sign bit in the 4th octet:PC convention) -#endif -#ifdef MSB_FIRST_TCH - pt_uint8[0] = pt_uint8[0] & 0x7f; // Make n_cross_e_scal_b_im be positive in any case: |ImaNEBX| (32-bit float, sign bit in the 1th octet:SPARC convention) -#endif - - // Determine the sector argument of NEBX. If |Im| > |Re| affect - // an unsigned 8-bit char with 01000000; otherwise with null. - if (n_cross_e_scal_b_im > n_cross_e_scal_b_re) { - tmp_uint8 = 0x40; - } - else { - tmp_uint8 = 0x00; - } - - lfr_bp1[(i*NB_BYTES_BP1) + 9] = lfr_bp1[(i*NB_BYTES_BP1) + 9] | tmp_uint8; // Record it as a sign bit at the 7th bit position (from the right - // to the left) of lfr_bp1[i*NB_BYTES_BP1+9], by simple logical addition. -#ifdef DEBUG_TCH - printf("|n_cross_e_scal_b_im| : %16.8e\n",n_cross_e_scal_b_im); - printf("|n_cross_e_scal_b_im|/bx_bx_star : %16.8e\n",n_cross_e_scal_b_im/bx_bx_star); - printf("ArgNEBX sign : %u\n",tmp_uint8); - printf("lfr_bp1[i*NB_BYTES_BP1+9] for VPHI & ArgNEBX signs + VPHI exponent : %u\n",lfr_bp1[i*NB_BYTES_BP1+9]); -#endif - } -} - -void BP2_set( float * compressed_spec_mat, uint8_t nb_bins_compressed_spec_mat, uint8_t * lfr_bp2 ) -{ - float cross_re; // 32-bit floating point - float cross_im; - float aux; - float significand; - int exponent; // 32-bit signed integer - uint8_t nbitexp; // 8-bit unsigned integer - uint8_t nbitsig; - uint8_t *pt_uint8; // pointer on unsigned 8-bit integer - int8_t expmin; // 8-bit signed integer - int8_t expmax; - uint16_t rangesig; // 16-bit unsigned integer - uint16_t autocor; - uint16_t exp; - uint16_t tmp_uint16; - uint16_t i; - -#ifdef DEBUG_TCH - printf("BP2 : \n"); - printf("Number of bins: %d\n", nb_bins_compressed_spec_mat); -#endif - - // 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 - expmax = 32 + 5; - expmin = (expmax - (1 << nbitexp)) + 1; - -#ifdef DEBUG_TCH - - printf("nbitexp : %d, expmax : %d, expmin : %d\n", nbitexp, expmax, expmin); - printf("nbitsig : %d, rangesig : %d\n", nbitsig, rangesig); -#endif - - for(i = 0; i= 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 = (uint16_t) ((((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) - exp = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int where just - // the first nbitexp bits are used (0, ..., 2^nbitexp-1) - tmp_uint16 = autocor | (exp << nbitsig); // Put the exponent bits (nbitexp) next to the - // left place of the significand bits (nbitsig), - // making the 16-bit word to be recorded - pt_uint8 = (uint8_t*) &tmp_uint16; // Affect an uint8_t pointer with the adress of tmp_uint16 -#ifdef MSB_FIRST_TCH - lfr_bp2[(i*NB_BYTES_BP2) + 0] = pt_uint8[0]; // Record MSB of tmp_uint16 - lfr_bp2[(i*NB_BYTES_BP2) + 1] = pt_uint8[1]; // Record LSB of tmp_uint16 -#endif -#ifdef LSB_FIRST_TCH - lfr_bp2[(i*NB_BYTES_BP2) + 0] = pt_uint8[1]; // Record MSB of tmp_uint16 - lfr_bp2[(i*NB_BYTES_BP2) + 1] = pt_uint8[0]; // Record LSB of tmp_uint16 -#endif -#ifdef DEBUG_TCH - printf("autocor for S11 significand : %u\n",autocor); - printf("exp for S11 exponent : %u\n",exp); - printf("pt_uint8[1] for S11 exponent + significand : %.3d or %2x\n",pt_uint8[1], pt_uint8[1]); - printf("pt_uint8[0] for S11 significand : %.3d or %2x\n",pt_uint8[0], pt_uint8[0]); - 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]); - 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]); -#endif - // S22 - significand = frexpf(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 9], &exponent); // 0.5 <= significand < 1 - // S22 = significand * 2^exponent -#ifdef DEBUG_TCH - printf("S22 : %16.8e\n",compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+9]); - printf("significand : %16.8e\n",significand); - printf("exponent : %d\n" ,exponent); -#endif - 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 = (uint16_t) ((((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) - exp = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int where just - // the first nbitexp bits are used (0, ..., 2^nbitexp-1) - tmp_uint16 = autocor | (exp << nbitsig); // Put the exponent bits (nbitexp) next to the - // left place of the significand bits (nbitsig), - // making the 16-bit word to be recorded - pt_uint8 = (uint8_t*) &tmp_uint16; // Affect an uint8_t pointer with the adress of tmp_uint16 -#ifdef MSB_FIRST_TCH - lfr_bp2[(i*NB_BYTES_BP2) + 2] = pt_uint8[0]; // Record MSB of tmp_uint16 - lfr_bp2[(i*NB_BYTES_BP2) + 3] = pt_uint8[1]; // Record LSB of tmp_uint16 -#endif -#ifdef LSB_FIRST_TCH - lfr_bp2[(i*NB_BYTES_BP2) + 2] = pt_uint8[1]; // Record MSB of tmp_uint16 - lfr_bp2[(i*NB_BYTES_BP2) + 3] = pt_uint8[0]; // Record LSB of tmp_uint16 -#endif -#ifdef DEBUG_TCH - printf("autocor for S22 significand : %u\n",autocor); - printf("exp for S11 exponent : %u\n",exp); - printf("pt_uint8[1] for S22 exponent + significand : %.3d or %2x\n",pt_uint8[1], pt_uint8[1]); - printf("pt_uint8[0] for S22 significand : %.3d or %2x\n",pt_uint8[0], pt_uint8[0]); - 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]); - 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]); -#endif - // S33 - significand = frexpf(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 16], &exponent); // 0.5 <= significand < 1 - // S33 = significand * 2^exponent -#ifdef DEBUG_TCH - printf("S33 : %16.8e\n",compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+16]); - printf("significand : %16.8e\n",significand); - printf("exponent : %d\n" ,exponent); -#endif - 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 = (uint16_t) ((((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) - exp = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int where just - // the first nbitexp bits are used (0, ..., 2^nbitexp-1) - tmp_uint16 = autocor | (exp << nbitsig); // Put the exponent bits (nbitexp) next to the - // left place of the significand bits (nbitsig), - // making the 16-bit word to be recorded - pt_uint8 = (uint8_t*) &tmp_uint16; // Affect an uint8_t pointer with the adress of tmp_uint16 -#ifdef MSB_FIRST_TCH - lfr_bp2[(i*NB_BYTES_BP2) + 4] = pt_uint8[0]; // Record MSB of tmp_uint16 - lfr_bp2[(i*NB_BYTES_BP2) + 5] = pt_uint8[1]; // Record LSB of tmp_uint16 -#endif -#ifdef LSB_FIRST_TCH - lfr_bp2[(i*NB_BYTES_BP2) + 4] = pt_uint8[1]; // Record MSB of tmp_uint16 - lfr_bp2[(i*NB_BYTES_BP2) + 5] = pt_uint8[0]; // Record LSB of tmp_uint16 -#endif -#ifdef DEBUG_TCH - printf("autocor for S33 significand : %u\n",autocor); - printf("exp for S33 exponent : %u\n",exp); - printf("pt_uint8[1] for S33 exponent + significand : %.3d or %2x\n",pt_uint8[1], pt_uint8[1]); - printf("pt_uint8[0] for S33 significand : %.3d or %2x\n",pt_uint8[0], pt_uint8[0]); - 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]); - 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]); -#endif - // S44 - significand = frexpf(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 21], &exponent); // 0.5 <= significand < 1 - // S44 = significand * 2^exponent -#ifdef DEBUG_TCH - printf("S44 : %16.8e\n",compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+21]); - printf("significand : %16.8e\n",significand); - printf("exponent : %d\n" ,exponent); -#endif - - 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 = (uint16_t) ((((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) - exp = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int where just - // the first nbitexp bits are used (0, ..., 2^nbitexp-1) - tmp_uint16 = autocor | (exp << nbitsig); // Put the exponent bits (nbitexp) next to the - // left place of the significand bits (nbitsig), - // making the 16-bit word to be recorded - pt_uint8 = (uint8_t*) &tmp_uint16; // Affect an uint8_t pointer with the adress of tmp_uint16 -#ifdef MSB_FIRST_TCH - lfr_bp2[(i*NB_BYTES_BP2) + 6] = pt_uint8[0]; // Record MSB of tmp_uint16 - lfr_bp2[(i*NB_BYTES_BP2) + 7] = pt_uint8[1]; // Record LSB of tmp_uint16 -#endif -#ifdef LSB_FIRST_TCH - lfr_bp2[(i*NB_BYTES_BP2) + 6] = pt_uint8[1]; // Record MSB of tmp_uint16 - lfr_bp2[(i*NB_BYTES_BP2) + 7] = pt_uint8[0]; // Record LSB of tmp_uint16 -#endif -#ifdef DEBUG_TCH - printf("autocor for S44 significand : %u\n",autocor); - printf("exp for S44 exponent : %u\n",exp); - printf("pt_uint8[1] for S44 exponent + significand : %.3d or %2x\n",pt_uint8[1], pt_uint8[1]); - printf("pt_uint8[0] for S44 significand : %.3d or %2x\n",pt_uint8[0], pt_uint8[0]); - 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]); - 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]); -#endif - // S55 - significand = frexpf(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 24], &exponent); // 0.5 <= significand < 1 - // S55 = significand * 2^exponent -#ifdef DEBUG_TCH - printf("S55 : %16.8e\n",compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+24]); - printf("significand : %16.8e\n",significand); - printf("exponent : %d\n" ,exponent); -#endif - 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 = (uint16_t) ((((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) - exp = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int where just - // the first nbitexp bits are used (0, ..., 2^nbitexp-1) - tmp_uint16 = autocor | (exp << nbitsig); // Put the exponent bits (nbitexp) next to the - // left place of the significand bits (nbitsig), - // making the 16-bit word to be recorded - pt_uint8 = (uint8_t*) &tmp_uint16; // Affect an uint8_t pointer with the adress of tmp_uint16 -#ifdef MSB_FIRST_TCH - lfr_bp2[(i*NB_BYTES_BP2) + 8] = pt_uint8[0]; // Record MSB of tmp_uint16 - lfr_bp2[(i*NB_BYTES_BP2) + 9] = pt_uint8[1]; // Record LSB of tmp_uint16 - //printf("MSB:\n"); -#endif -#ifdef LSB_FIRST_TCH - lfr_bp2[(i*NB_BYTES_BP2) + 8] = pt_uint8[1]; // Record MSB of tmp_uint16 - lfr_bp2[(i*NB_BYTES_BP2) + 9] = pt_uint8[0]; // Record LSB of tmp_uint16 - //printf("LSB:\n"); -#endif -#ifdef DEBUG_TCH - printf("autocor for S55 significand : %u\n",autocor); - printf("exp for S55 exponent : %u\n",exp); - printf("pt_uint8[1] for S55 exponent + significand : %.3d or %2x\n",pt_uint8[1], pt_uint8[1]); - printf("pt_uint8[0] for S55 significand : %.3d or %2x\n",pt_uint8[0], pt_uint8[0]); - 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]); - 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]); -#endif - } -} - - -#endif // BASIC_PARAMETERS_H_INCLUDED diff --git a/basic_parameters_params.h b/basic_parameters_params.h deleted file mode 100755 --- a/basic_parameters_params.h +++ /dev/null @@ -1,93 +0,0 @@ -// In the frame of RPW LFR Sofware ICD Issue1 Rev8 (05/07/2013) => R2 FSW -// version 1.4: 16/05/2014 -// version 1.5: 20/05/2014 -// version 1.6: 19/12/2014 -// version 1.7: 15/01/2015 (modifs de Paul + correction erreurs qui se compensaient (LSB <=> MSB + indices [0,2] <=> [1,3]) -// version 1.8: 02/02/2015 (gestion des divisions par zéro) -// In the frame of RPW LFR Sofware ICD Issue3 Rev6 (27/01/2015) => R3 FSW -// version 2.0: 19/06/2015 -// version 2.1: 22/06/2015 (modifs de Paul) -// version 2.2: 23/06/2015 (modifs de l'ordre de déclaration/définition de init_k_coefficients dans basic_parameters.c ... + maintien des declarations dans le .h) -// version 2.3: 01/07/2015 (affectation initiale des octets 7 et 9 dans les BP1 corrigée ...) -// version 2.4: 05/10/2018 (added GPL headers) -// version 2.5: 09/10/2018 (dans main.c #include "basic_parameters_utilities.h" est changé par les déclarations extern correspondantes ...! -// + delta mise en conformité LOGISCOPE) - -/*------------------------------------------------------------------------------ --- Solar Orbiter's Low Frequency Receiver Flight Software (LFR FSW), --- This file is a part of the LFR FSW --- Copyright (C) 2012-2018, Plasma Physics Laboratory - CNRS --- --- This program is free software; you can redistribute it and/or modify --- it under the terms of the GNU General Public License as published by --- the Free Software Foundation; either version 2 of the License, or --- (at your option) any later version. --- --- This program is distributed in the hope that it will be useful, --- but WITHOUT ANY WARRANTY; without even the implied warranty of --- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --- GNU General Public License for more details. --- --- You should have received a copy of the GNU General Public License --- along with this program; if not, write to the Free Software --- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA --------------------------------------------------------------------------------*/ -/*-- Author : Thomas Chust --- Contact : Thomas Chust --- Mail : thomas.chust@lpp.polytechnique.fr -----------------------------------------------------------------------------*/ - -#ifndef BASIC_PARAMETERS_PARAMS_H -#define BASIC_PARAMETERS_PARAMS_H - -#define NB_VALUES_PER_SPECTRAL_MATRIX 25 - -#define NB_BINS_COMPRESSED_MATRIX_f0 11 -#define NB_BINS_COMPRESSED_MATRIX_f1 13 -#define NB_BINS_COMPRESSED_MATRIX_f2 12 - -#define NB_BYTES_BP1 11 -#define NB_BYTES_BP2 30 - -//******************************************** -// K-COEFFICIENTS FOR ONBOARD INTERCALIBRATION - -#define NB_K_COEFF_PER_BIN 32 - -#define K44_PE 0 -#define K55_PE 1 -#define K45_PE_RE 2 -#define K45_PE_IM 3 - -#define K14_SX_RE 4 -#define K14_SX_IM 5 -#define K15_SX_RE 6 -#define K15_SX_IM 7 -#define K24_SX_RE 8 -#define K24_SX_IM 9 -#define K25_SX_RE 10 -#define K25_SX_IM 11 -#define K34_SX_RE 12 -#define K34_SX_IM 13 -#define K35_SX_RE 14 -#define K35_SX_IM 15 - -#define K24_NY_RE 16 -#define K24_NY_IM 17 -#define K25_NY_RE 18 -#define K25_NY_IM 19 -#define K34_NY_RE 20 -#define K34_NY_IM 21 -#define K35_NY_RE 22 -#define K35_NY_IM 23 - -#define K24_NZ_RE 24 -#define K24_NZ_IM 25 -#define K25_NZ_RE 26 -#define K25_NZ_IM 27 -#define K34_NZ_RE 28 -#define K34_NZ_IM 29 -#define K35_NZ_RE 30 -#define K35_NZ_IM 31 - -#endif // BASIC_PARAMETERS_PARAMS_H diff --git a/basic_parameters_utilities.h b/basic_parameters_utilities.h deleted file mode 100755 --- a/basic_parameters_utilities.h +++ /dev/null @@ -1,54 +0,0 @@ -// In the frame of RPW LFR Sofware ICD Issue1 Rev8 (05/07/2013) => R2 FSW -// version 1.6: 19/12/2014 -// version 1.7: 15/01/2015 (modifs de Paul + correction erreurs qui se compensaient (LSB <=> MSB + indices [0,2] <=> [1,3]) -// version 1.8: 02/02/2015 (gestion des divisions par zéro) -// In the frame of RPW LFR Sofware ICD Issue3 Rev6 (27/01/2015) => R3 FSW -// version 2.0: 19/06/2015 -// version 2.1: 22/06/2015 (modifs de Paul) -// version 2.2: 23/06/2015 (modifs de l'ordre de déclaration/définition de init_k_coefficients dans basic_parameters.c ... + maintien des declarations dans le .h) -// version 2.3: 01/07/2015 (affectation initiale des octets 7 et 9 dans les BP1 corrigée ...) -// version 2.4: 05/10/2018 (mise en conformité LOGISCOPE) -// version 2.5: 09/10/2018 (dans main.c #include "basic_parameters_utilities.h" est changé par les déclarations extern correspondantes ...! -// + delta mise en conformité LOGISCOPE) - -/*------------------------------------------------------------------------------ --- Solar Orbiter's Low Frequency Receiver Flight Software (LFR FSW), --- This file is a part of the LFR FSW --- Copyright (C) 2012-2018, Plasma Physics Laboratory - CNRS --- --- This program is free software; you can redistribute it and/or modify --- it under the terms of the GNU General Public License as published by --- the Free Software Foundation; either version 2 of the License, or --- (at your option) any later version. --- --- This program is distributed in the hope that it will be useful, --- but WITHOUT ANY WARRANTY; without even the implied warranty of --- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --- GNU General Public License for more details. --- --- You should have received a copy of the GNU General Public License --- along with this program; if not, write to the Free Software --- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA --------------------------------------------------------------------------------*/ -/*-- Author : Thomas Chust --- Contact : Thomas Chust --- Mail : thomas.chust@lpp.polytechnique.fr -----------------------------------------------------------------------------*/ - -#ifndef BASIC_PARAMETERS_UTILITIES_H -#define BASIC_PARAMETERS_UTILITIES_H - -#include -#include - -#include "basic_parameters_params.h" - -float compressed_spectral_matrix_f0[NB_BINS_COMPRESSED_MATRIX_f0 * NB_VALUES_PER_SPECTRAL_MATRIX] = {0.0}; -float k_coefficients_f0[NB_BINS_COMPRESSED_MATRIX_f0 * NB_K_COEFF_PER_BIN] = {0.0}; -float k_coefficients_f1[NB_BINS_COMPRESSED_MATRIX_f1 * NB_K_COEFF_PER_BIN] = {0.0}; -float k_coefficients_f2[NB_BINS_COMPRESSED_MATRIX_f2 * NB_K_COEFF_PER_BIN] = {0.0}; - -unsigned char LFR_BP1_f0[NB_BINS_COMPRESSED_MATRIX_f0*NB_BYTES_BP1] = {0}; -unsigned char LFR_BP2_f0[NB_BINS_COMPRESSED_MATRIX_f0*NB_BYTES_BP2] = {0}; - -#endif // BASIC_PARAMETERS_UTILITIES_H diff --git a/file_utilities.c b/file_utilities.c deleted file mode 100755 --- a/file_utilities.c +++ /dev/null @@ -1,104 +0,0 @@ -// In the frame of RPW LFR Sofware ICD Issue1 Rev8 (05/07/2013) => R2 FSW -// version 1.0: 31/07/2013 -// version 1.1: 02/04/2014 -// version 1.2: 30/04/2014 -// version 1.3: 02/05/2014 -// version 1.4: 16/05/2014 -// version 1.5: 20/05/2014 -// version 1.6: 19/12/2014 -// version 1.7: 15/01/2015 (modifs de Paul + correction erreurs qui se compensaient (LSB <=> MSB + indices [0,2] <=> [1,3]) -// version 1.8: 02/02/2015 (gestion des divisions par zéro) -// In the frame of RPW LFR Sofware ICD Issue3 Rev6 (27/01/2015) => R3 FSW -// version 2.0: 19/06/2015 -// version 2.1: 22/06/2015 (modifs de Paul) -// version 2.2: 23/06/2015 (modifs de l'ordre de déclaration/définition de init_k_coefficients dans basic_parameters.c ... + maintien des declarations dans le .h) -// version 2.3: 01/07/2015 (affectation initiale des octets 7 et 9 dans les BP1 corrigée ...) -// version 2.4: 05/10/2018 (added GPL headers) -// version 2.5: 09/10/2018 (dans main.c #include "basic_parameters_utilities.h" est changé par les déclarations extern correspondantes ...! -// + delta mise en conformité LOGISCOPE) - -/*------------------------------------------------------------------------------ --- Solar Orbiter's Low Frequency Receiver Flight Software (LFR FSW), --- This file is a part of the LFR FSW --- Copyright (C) 2012-2018, Plasma Physics Laboratory - CNRS --- --- This program is free software; you can redistribute it and/or modify --- it under the terms of the GNU General Public License as published by --- the Free Software Foundation; either version 2 of the License, or --- (at your option) any later version. --- --- This program is distributed in the hope that it will be useful, --- but WITHOUT ANY WARRANTY; without even the implied warranty of --- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --- GNU General Public License for more details. --- --- You should have received a copy of the GNU General Public License --- along with this program; if not, write to the Free Software --- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA --------------------------------------------------------------------------------*/ -/*-- Author : Thomas Chust --- Contact : Thomas Chust --- Mail : thomas.chust@lpp.polytechnique.fr -----------------------------------------------------------------------------*/ - -#include "basic_parameters_utilities.h" - -int lecture_file_sm(const char *fileName) -{ - int i; - - FILE *infile; - infile = fopen(fileName, "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("Compressed_spectral_matrix_f0 : \n"); - printf("Number of bins: %d\n", NB_BINS_COMPRESSED_MATRIX_f0); - printf("Number of values per spectral matrix: %d\n", NB_VALUES_PER_SPECTRAL_MATRIX); - printf("Size of compressed_spectral_matrix_f0 : %lu\n", sizeof(compressed_spectral_matrix_f0)); - - for(i=0; i Re:%16.8e Im:%16.8e\n", 1, 0, - compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+0], 0.); - printf("Element %.2d (S12) (%.2d & %.2d) => Re:%16.8e Im:%16.8e\n", 2, 1, 2, - compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+1], compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+2]); - printf("Element %.2d (S13) (%.2d & %.2d) => Re:%16.8e Im:%16.8e\n", 3, 3, 4, - compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+3], compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+4]); - printf("Element %.2d (S14) (%.2d & %.2d) => Re:%16.8e Im:%16.8e\n", 4, 5, 6, - compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+5], compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+6]); - printf("Element %.2d (S15) (%.2d & %.2d) => Re:%16.8e Im:%16.8e\n", 5, 7, 8, - compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+7], compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+8]); - printf("Element %.2d (S22) (%.2d & --) => Re:%16.8e Im:%16.8e\n", 6, 9, - compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+9], 0.); - printf("Element %.2d (S23) (%.2d & %.2d) => Re:%16.8e Im:%16.8e\n", 7, 10, 11, - compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+10], compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+11]); - printf("Element %.2d (S24) (%.2d & %.2d) => Re:%16.8e Im:%16.8e\n", 8, 12, 13, - compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+12], compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+13]); - printf("Element %.2d (S25) (%.2d & %.2d) => Re:%16.8e Im:%16.8e\n", 9, 14, 15, - compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+14], compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+15]); - printf("Element %.2d (S33) (%.2d & --) => Re:%16.8e Im:%16.8e\n", 10, 16, - compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+16], 0.); - printf("Element %.2d (S34) (%.2d & %.2d) => Re:%16.8e Im:%16.8e\n", 11, 17, 18, - compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+17], compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+18]); - printf("Element %.2d (S35) (%.2d & %.2d) => Re:%16.8e Im:%16.8e\n", 12, 19, 20, - compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+19], compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+20]); - printf("Element %.2d (S44) (%.2d & --) => Re:%16.8e Im:%16.8e\n", 13, 21, - compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+21], 0.); - printf("Element %.2d (S45) (%.2d & %.2d) => Re:%16.8e Im:%16.8e\n", 14, 22, 23, - compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+22], compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+23]); - printf("Element %.2d (S55) (%.2d & --) => Re:%16.8e Im:%16.8e\n", 15, 24, - compressed_spectral_matrix_f0[i*NB_VALUES_PER_SPECTRAL_MATRIX+24], 0.); - - } - return 0; -} - - - diff --git a/file_utilities.h b/file_utilities.h deleted file mode 100755 --- a/file_utilities.h +++ /dev/null @@ -1,50 +0,0 @@ -// In the frame of RPW LFR Sofware ICD Issue1 Rev8 (05/07/2013) => R2 FSW -// version 1.0: 31/07/2013 -// version 1.1: 02/04/2014 -// version 1.2: 30/04/2014 -// version 1.3: 02/05/2014 -// version 1.4: 16/05/2014 -// version 1.5: 20/05/2014 -// version 1.6: 19/12/2014 -// version 1.7: 15/01/2015 (modifs de Paul + correction erreurs qui se compensaient (LSB <=> MSB + indices [0,2] <=> [1,3]) -// version 1.8: 02/02/2015 (gestion des divisions par zéro) -// In the frame of RPW LFR Sofware ICD Issue3 Rev6 (27/01/2015) => R3 FSW -// version 2.0: 19/06/2015 -// version 2.1: 22/06/2015 (modifs de Paul) -// version 2.2: 23/06/2015 (modifs de l'ordre de déclaration/définition de init_k_coefficients dans basic_parameters.c ... + maintien des declarations dans le .h) -// version 2.3: 01/07/2015 (affectation initiale des octets 7 et 9 dans les BP1 corrigée ...) -// version 2.4: 05/10/2018 (added GPL headers) -// version 2.5: 09/10/2018 (dans main.c #include "basic_parameters_utilities.h" est changé par les déclarations extern correspondantes ...! -// + delta mise en conformité LOGISCOPE) - -/*------------------------------------------------------------------------------ --- Solar Orbiter's Low Frequency Receiver Flight Software (LFR FSW), --- This file is a part of the LFR FSW --- Copyright (C) 2012-2018, Plasma Physics Laboratory - CNRS --- --- This program is free software; you can redistribute it and/or modify --- it under the terms of the GNU General Public License as published by --- the Free Software Foundation; either version 2 of the License, or --- (at your option) any later version. --- --- This program is distributed in the hope that it will be useful, --- but WITHOUT ANY WARRANTY; without even the implied warranty of --- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --- GNU General Public License for more details. --- --- You should have received a copy of the GNU General Public License --- along with this program; if not, write to the Free Software --- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA --------------------------------------------------------------------------------*/ -/*-- Author : Thomas Chust --- Contact : Thomas Chust --- Mail : thomas.chust@lpp.polytechnique.fr -----------------------------------------------------------------------------*/ - - -#ifndef FILE_UTILITIES_H -#define FILE_UTILITIES_H - -int lecture_file_sm(const char *fileName); - -#endif // FILE_UTILITIES_H diff --git a/main.c b/main.c deleted file mode 100755 --- a/main.c +++ /dev/null @@ -1,111 +0,0 @@ -// In the frame of RPW LFR Sofware ICD Issue1 Rev8 (05/07/2013) => R2 FSW -// version 1.O: 31/07/2013 -// version 1.1: 02/04/2014 -// version 1.2: 30/04/2014 -// version 1.3: 02/05/2014 -// version 1.4: 16/05/2014 -// version 1.5: 20/05/2014 -// version 1.6: 19/12/2014 -// version 1.7: 15/01/2015 (modifs de Paul + correction erreurs qui se compensaient (LSB <=> MSB + indices [0,2] <=> [1,3]) -// version 1.8: 02/02/2015 (gestion des divisions par zéro) -// In the frame of RPW LFR Sofware ICD Issue3 Rev6 (27/01/2015) => R3 FSW -// version 2.0: 19/06/2015 -// version 2.1: 22/06/2015 (modifs de Paul) -// version 2.2: 23/06/2015 (modifs de l'ordre de déclaration/définition de init_k_coefficients dans basic_parameters.c ... + maintien des declarations dans le .h) -// version 2.3: 01/07/2015 (affectation initiale des octets 7 et 9 dans les BP1 corrigée ...) -// version 2.4: 05/10/2018 (added GPL headers) -// version 2.5: 09/10/2018 (dans main.c #include "basic_parameters_utilities.h" est changé par les déclarations extern correspondantes ...! -// + delta mise en conformité LOGISCOPE) - -/*------------------------------------------------------------------------------ --- Solar Orbiter's Low Frequency Receiver Flight Software (LFR FSW), --- This file is a part of the LFR FSW --- Copyright (C) 2012-2018, Plasma Physics Laboratory - CNRS --- --- This program is free software; you can redistribute it and/or modify --- it under the terms of the GNU General Public License as published by --- the Free Software Foundation; either version 2 of the License, or --- (at your option) any later version. --- --- This program is distributed in the hope that it will be useful, --- but WITHOUT ANY WARRANTY; without even the implied warranty of --- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --- GNU General Public License for more details. --- --- You should have received a copy of the GNU General Public License --- along with this program; if not, write to the Free Software --- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA --------------------------------------------------------------------------------*/ -/*-- Author : Thomas Chust --- Contact : Thomas Chust --- Mail : thomas.chust@lpp.polytechnique.fr -----------------------------------------------------------------------------*/ - - -#include - -#include "file_utilities.h" -#include "basic_parameters.h" - -extern float compressed_spectral_matrix_f0[NB_BINS_COMPRESSED_MATRIX_f0 * NB_VALUES_PER_SPECTRAL_MATRIX]; -extern float k_coefficients_f0[NB_BINS_COMPRESSED_MATRIX_f0 * NB_K_COEFF_PER_BIN]; -extern float k_coefficients_f1[NB_BINS_COMPRESSED_MATRIX_f1 * NB_K_COEFF_PER_BIN]; -extern float k_coefficients_f2[NB_BINS_COMPRESSED_MATRIX_f2 * NB_K_COEFF_PER_BIN]; - -extern unsigned char LFR_BP1_f0[NB_BINS_COMPRESSED_MATRIX_f0*NB_BYTES_BP1]; -extern unsigned char LFR_BP2_f0[NB_BINS_COMPRESSED_MATRIX_f0*NB_BYTES_BP2]; - -int main(void) -{ - const char *filename; - printf("Hello World!\n\n"); - -#if __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__ - //LSB FIRST - printf("The multi-byte quantities are laid out in a LSB FIRST (little endian) fashion \n\n"); -#endif - -#if __BYTE_ORDER__ == __ORDER_BIG_ENDIAN__ - //MSB FIRST - printf("The multi-byte quantities are laid out in a MSB FIRST (big endian) fashion\n\n"); -#endif - - //filename="/WIN/Users/chust/DD CHUST/Missions/Solar Orbiter/LFR/Prog C/tests bp Paul/tests7/sm_test2_R3.dat"; - filename="/home/chust/DD pc-p-chust/Missions/Solar Orbiter/LFR/Prog C/tests bp Paul/tests7/sm_test2_R3.dat"; - - lecture_file_sm(filename); - - printf("\n"); - - init_k_coefficients(k_coefficients_f0, NB_BINS_COMPRESSED_MATRIX_f0); - init_k_coefficients(k_coefficients_f1, NB_BINS_COMPRESSED_MATRIX_f1); - init_k_coefficients(k_coefficients_f2, NB_BINS_COMPRESSED_MATRIX_f2); - - printf("\n\n"); - - BP1_set(compressed_spectral_matrix_f0, k_coefficients_f0, NB_BINS_COMPRESSED_MATRIX_f0, LFR_BP1_f0); - - printf("\n"); - - BP2_set(compressed_spectral_matrix_f0, NB_BINS_COMPRESSED_MATRIX_f0, LFR_BP2_f0); - - return 0; -} - - - - - - - - - - - - - - - - - - diff --git a/sm_test1.dat b/sm_test1.dat deleted file mode 100644 --- a/sm_test1.dat +++ /dev/null @@ -1,1 +0,0 @@ -Z/IQdǤFGE3IG+4NuHhǀbtG-tH'G8)=G~MǀDf^TI%1GgHcWH \ No newline at end of file diff --git a/sm_test1.txt b/sm_test1.txt deleted file mode 100644 --- a/sm_test1.txt +++ /dev/null @@ -1,11 +0,0 @@ -# -------------------------------------------------------- -# MISSION NAME : LFR/RPW/SO -# DATA NAME : test matrix -# NB_TOTAL_VALUES : 25 -# NB_COMPONENTS : 25 -# FORMAT : (25(e16.8)) -# UNIT : floating -# -------------------------------------------------------- -# BEGIN DATA - 1.07466725e+006-7.08566328e+004 2.09468203e+004 8.59915781e+004 7.34300125e+005 9.87159375e+004-7.37980250e+005 4.67882438e+005-1.03121328e+005 6.25625000e+004-8.66193281e+004-1.58213813e+005 1.17326563e+005 4.84252188e+004-5.26065703e+004 1.82120313e+003 8.69862375e+005-7.28594313e+005 1.30681789e+005-8.08662891e+003-3.71955031e+005 8.48249375e+005 6.64304844e+004 3.22365375e+005 2.20681547e+005 -# END DATA diff --git a/sm_test2.dat b/sm_test2.dat deleted file mode 100755 index 90cff683351d8171552d2257db15e769448984dc..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391 GIT binary patch literal 0 Hc$@ R2 FSW +// version 1.0: 31/07/2013 +// version 1.1: 02/04/2014 +// version 1.2: 30/04/2014 +// version 1.3: 02/05/2014 +// version 1.4: 16/05/2014 +// version 1.5: 20/05/2014 +// version 1.6: 19/12/2014 +// version 1.7: 15/01/2015 (modifs de Paul + correction erreurs qui se compensaient (LSB <=> MSB + indices [0,2] <=> [1,3]) +// version 1.8: 02/02/2015 (gestion des divisions par zéro) +// In the frame of RPW LFR Sofware ICD Issue3 Rev6 (27/01/2015) => R3 FSW +// version 2.0: 19/06/2015 +// version 2.1: 22/06/2015 (modifs de Paul) +// version 2.2: 23/06/2015 (modifs de l'ordre de déclaration/définition de init_k_coefficients dans basic_parameters.c ... + maintien des declarations dans le .h) +// version 2.3: 01/07/2015 (affectation initiale des octets 7 et 9 dans les BP1 corrigée ...) +// version 2.4: 05/10/2018 (added GPL headers) +// version 2.5: 09/10/2018 (dans main.c #include "basic_parameters_utilities.h" est changé par les déclarations extern correspondantes ...! +// + delta mise en conformité LOGISCOPE) + +/*------------------------------------------------------------------------------ +-- Solar Orbiter's Low Frequency Receiver Flight Software (LFR FSW), +-- This file is a part of the LFR FSW +-- Copyright (C) 2012-2018, Plasma Physics Laboratory - CNRS +-- +-- This program is free software; you can redistribute it and/or modify +-- it under the terms of the GNU General Public License as published by +-- the Free Software Foundation; either version 2 of the License, or +-- (at your option) any later version. +-- +-- This program is distributed in the hope that it will be useful, +-- but WITHOUT ANY WARRANTY; without even the implied warranty of +-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +-- GNU General Public License for more details. +-- +-- You should have received a copy of the GNU General Public License +-- along with this program; if not, write to the Free Software +-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +-------------------------------------------------------------------------------*/ +/*-- Author : Thomas Chust +-- Contact : Thomas Chust +-- Mail : thomas.chust@lpp.polytechnique.fr +----------------------------------------------------------------------------*/ + +#include +#include +#include + +#include "basic_parameters_params.h" + +void init_k_coefficients(float *k_coefficients, + unsigned char nb_binscompressed_matrix ) +{ + uint8_t i; // 8 bits unsigned + uint8_t j; + for(i=0; i= 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 + } + + psd = (uint16_t) ((((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) + exp = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int where just + // the first nbitexp bits are used (0, ..., 2^nbitexp-1) + tmp_uint16 = psd | (exp << nbitsig); // Put the exponent bits (nbitexp) next to the + // left place of the significand bits (nbitsig), + // making the 16-bit word to be recorded + pt_uint8 = (uint8_t*) &tmp_uint16; // Affect an uint8_t pointer with the adress of tmp_uint16 +#ifdef MSB_FIRST_TCH + lfr_bp1[(i*NB_BYTES_BP1)+2] = pt_uint8[0]; // Record MSB of tmp_uint16 + lfr_bp1[(i*NB_BYTES_BP1)+3] = pt_uint8[1]; // Record LSB of tmp_uint16 +#endif +#ifdef LSB_FIRST_TCH + lfr_bp1[(i*NB_BYTES_BP1)+2] = pt_uint8[1]; // Record MSB of tmp_uint16 + lfr_bp1[(i*NB_BYTES_BP1)+3] = pt_uint8[0]; // Record LSB of tmp_uint16 +#endif +#ifdef DEBUG_TCH + printf("\nBin number: %d\n", i); + printf("PSDB : %16.8e\n",PSDB); + printf("significand : %16.8e\n",significand); + printf("exponent : %d\n" ,exponent); + printf("psd for PSDB significand : %d\n",psd); + printf("exp for PSDB exponent : %d\n",exp); + printf("pt_uint8[1] for PSDB exponent + significand: %.3d or %.2x\n",pt_uint8[1], pt_uint8[1]); + printf("pt_uint8[0] for PSDB significand: %.3d or %.2x\n",pt_uint8[0], pt_uint8[0]); + printf("lfr_bp1[i*NB_BYTES_BP1+2] : %.3d or %.2x\n",lfr_bp1[i*NB_BYTES_BP1+2], lfr_bp1[i*NB_BYTES_BP1+2]); + printf("lfr_bp1[i*NB_BYTES_BP1+3] : %.3d or %.2x\n",lfr_bp1[i*NB_BYTES_BP1+3], lfr_bp1[i*NB_BYTES_BP1+3]); +#endif + //============================================== + // BP1 PSDE == PA_LFR_SC_BP1_PE_F0 == 16 bits = 6 bits (exponent) + 10 bits (significand) + PSDE = (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 21] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K44_PE]) // S44 + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 24] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K55_PE]) // S55 + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 22] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K45_PE_RE]) // S45 Re + - (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 23] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K45_PE_IM]); // S45 Im + + significand = frexpf(PSDE, &exponent); // 0.5 <= significand < 1 + // PSDE = significand * 2^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 + } + + psd = (uint16_t) ((((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) + exp = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int where just + // the first nbitexp bits are used (0, ..., 2^nbitexp-1) + tmp_uint16 = psd | (exp << nbitsig); // Put the exponent bits (nbitexp) next to the + // left place of the significand bits (nbitsig), + // making the 16-bit word to be recorded + pt_uint8 = (uint8_t*) &tmp_uint16; // Affect an uint8_t pointer with the adress of tmp_uint16 +#ifdef MSB_FIRST_TCH + lfr_bp1[(i*NB_BYTES_BP1) + 0] = pt_uint8[0]; // Record MSB of tmp_uint16 + lfr_bp1[(i*NB_BYTES_BP1) + 1] = pt_uint8[1]; // Record LSB of tmp_uint16 +#endif +#ifdef LSB_FIRST_TCH + lfr_bp1[(i*NB_BYTES_BP1) + 0] = pt_uint8[1]; // Record MSB of tmp_uint16 + lfr_bp1[(i*NB_BYTES_BP1) + 1] = pt_uint8[0]; // Record LSB of tmp_uint16 +#endif +#ifdef DEBUG_TCH + printf("PSDE : %16.8e\n",PSDE); + printf("significand : %16.8e\n",significand); + printf("exponent : %d\n" ,exponent); + printf("psd for PSDE significand : %d\n",psd); + printf("exp for PSDE exponent : %d\n",exp); + printf("pt_uint8[1] for PSDE exponent + significand: %.3d or %.2x\n",pt_uint8[1], pt_uint8[1]); + printf("pt_uint8[0] for PSDE significand: %.3d or %.2x\n",pt_uint8[0], pt_uint8[0]); + printf("lfr_bp1[i*NB_BYTES_BP1+0] : %.3d or %.2x\n",lfr_bp1[i*NB_BYTES_BP1+0], lfr_bp1[i*NB_BYTES_BP1+0]); + printf("lfr_bp1[i*NB_BYTES_BP1+1] : %.3d or %.2x\n",lfr_bp1[i*NB_BYTES_BP1+1], lfr_bp1[i*NB_BYTES_BP1+1]); +#endif + //============================================================================== + // BP1 normal wave vector == PA_LFR_SC_BP1_NVEC_V0_F0 == 8 bits + // == PA_LFR_SC_BP1_NVEC_V1_F0 == 8 bits + // == PA_LFR_SC_BP1_NVEC_V2_F0 == 1 sign bit + tmp = sqrt( (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 2] *compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 2]) //Im S12 + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 4] *compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 4]) //Im S13 + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 11]*compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 11]) //Im S23 + ); + if (tmp != 0.) { // no division by 0. + NVEC_V0 = compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 11] / tmp; // S23 Im => n1 + NVEC_V1 = (-compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 4]) / tmp; // S13 Im => n2 + NVEC_V2 = compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 2] / tmp; // S12 Im => n3 + } + else + { + NVEC_V0 = 0.; + NVEC_V1 = 0.; + NVEC_V2 = 0.; + } + 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 + 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 + pt_uint8 = (uint8_t*) &NVEC_V2; // Affect an uint8_t pointer with the adress of NVEC_V2 +#ifdef LSB_FIRST_TCH + 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) + // Record it at the 8th bit position (from the right to the left) of lfr_bp1[i*NB_BYTES_BP1+6] +#endif +#ifdef MSB_FIRST_TCH + 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 1th octet:SPARC convention) + // Record it at the 8th bit position (from the right to the left) of lfr_bp1[i*NB_BYTES_BP1+6] +#endif +#ifdef DEBUG_TCH + printf("NVEC_V0 : %16.8e\n",NVEC_V0); + printf("NVEC_V1 : %16.8e\n",NVEC_V1); + printf("NVEC_V2 : %16.8e\n",NVEC_V2); + printf("lfr_bp1[i*NB_BYTES_BP1+4] for NVEC_V0 : %u\n",lfr_bp1[i*NB_BYTES_BP1+4]); + printf("lfr_bp1[i*NB_BYTES_BP1+5] for NVEC_V1 : %u\n",lfr_bp1[i*NB_BYTES_BP1+5]); + printf("lfr_bp1[i*NB_BYTES_BP1+6] for NVEC_V2 : %u\n",lfr_bp1[i*NB_BYTES_BP1+6]); +#endif + //======================================================= + // BP1 ellipticity == PA_LFR_SC_BP1_ELLIP_F0 == 4 bits + if (PSDB != 0.) { // no division by 0. + aux = 2*tmp / PSDB; // Compute the ellipticity + } + else + { + aux = 0.; + } + tmp_uint8 = (uint8_t) ((aux*15) + 0.5); // Shift and cast into a 8-bit uint8_t with rounding + // where just the first 4 bits are used (0, ..., 15) + 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 + // of the sign bit of NVEC_V2 (recorded + // previously in lfr_bp1[i*NB_BYTES_BP1+6]) +#ifdef DEBUG_TCH + printf("ellipticity : %16.8e\n",aux); + printf("tmp_uint8 for ellipticity : %u\n",tmp_uint8); + printf("lfr_bp1[i*NB_BYTES_BP1+6] for NVEC_V2 + ellipticity : %u\n",lfr_bp1[i*NB_BYTES_BP1+6]); +#endif + //============================================================== + // BP1 degree of polarization == PA_LFR_SC_BP1_DOP_F0 == 3 bits + tr_SB_SB = (compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX] * compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX]) + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 9] * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 9]) + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 16] * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 16]) + + (2 * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 1] * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 1]) + + (2 * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 2] * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 2]) + + (2 * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 3] * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 3]) + + (2 * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 4] * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 4]) + + (2 * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 10]* compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 10]) + + (2 * compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 11]* compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 11]); + aux = PSDB*PSDB; + if (aux != 0.) { // no division by 0. + tmp = ( 3*tr_SB_SB - aux ) / ( 2 * aux ); // Compute the degree of polarisation + } + else + { + tmp = 0.; + } + tmp_uint8 = (uint8_t) ((tmp*7) + 0.5); // Shift and cast into a 8-bit uint8_t with rounding + // where just the first 3 bits are used (0, ..., 7) + 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 + // (from the right to the left) of lfr_bp1[i*NB_BYTES_BP1+6] +#ifdef DEBUG_TCH + printf("DOP : %16.8e\n",tmp); + printf("tmp_uint8 for DOP : %u\n",tmp_uint8); + printf("lfr_bp1[i*NB_BYTES_BP1+6] for NVEC_V2 + ellipticity + DOP : %u\n",lfr_bp1[i*NB_BYTES_BP1+6]); +#endif + //======================================================================================= + // BP1 X_SO-component of the Poynting flux == PA_LFR_SC_BP1_SX_F0 == 16 bits + // = 1 sign bit + 1 argument bit (two sectors) + // + 6 bits (exponent) + 8 bits (significand) + e_cross_b_re = (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 17] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_SX_RE]) //S34 Re + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 19] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_SX_RE]) //S35 Re + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 5] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K14_SX_RE]) //S14 Re + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 7] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K15_SX_RE]) //S15 Re + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 12] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_SX_RE]) //S24 Re + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 14] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_SX_RE]) //S25 Re + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 18] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_SX_IM]) //S34 Im + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 20] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_SX_IM]) //S35 Im + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 6] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K14_SX_IM]) //S14 Im + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 8] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K15_SX_IM]) //S15 Im + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 13] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_SX_IM]) //S24 Im + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 15] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_SX_IM]); //S25 Im + // Im(S_ji) = -Im(S_ij) + // k_ji = k_ij + e_cross_b_im = (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 17]*k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_SX_IM]) //S34 Re + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 19]*k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_SX_IM]) //S35 Re + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 5] *k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K14_SX_IM]) //S14 Re + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 7] *k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K15_SX_IM]) //S15 Re + + (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 12]*k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_SX_IM]) //S24 Re + + ((compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 14]*k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_SX_IM]) //S25 Re + - (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 18]*k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_SX_RE]) //S34 Im + - (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 20]*k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_SX_RE]) //S35 Im + - (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 6] *k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K14_SX_RE]) //S14 Im + - (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 8] *k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K15_SX_RE]) //S15 Im + - (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 13]*k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_SX_RE]) //S24 Im + - (compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 15]*k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_SX_RE])); //S25 Im +#ifdef DEBUG_TCH + printf("ReaSX : %16.8e\n",e_cross_b_re); +#endif + pt_uint8 = (uint8_t*) &e_cross_b_re; // Affect an uint8_t pointer with the adress of e_cross_b_re +#ifdef LSB_FIRST_TCH + + lfr_bp1[(i*NB_BYTES_BP1) + 7] = (uint8_t) (pt_uint8[3] & 0x80); // Extract its sign bit (32-bit float, sign bit in the 4th octet:PC convention) + // Record it at the 8th bit position (from the right to the left) + // of lfr_bp1[i*NB_BYTES_BP1+7] + pt_uint8[3] = (pt_uint8[3] & 0x7f); // Make e_cross_b_re be positive in any case: |ReaSX| +#endif +#ifdef MSB_FIRST_TCH + lfr_bp1[(i*NB_BYTES_BP1) + 7] = (uint8_t) (pt_uint8[0] & 0x80); // Extract its sign bit (32-bit float, sign bit in the 1th octet:SPARC convention) + // Record it at the 8th bit position (from the right to the left) + // of lfr_bp1[i*NB_BYTES_BP1+7] + pt_uint8[0] = (pt_uint8[0] & 0x7f); // Make e_cross_b_re be positive in any case: |ReaSX| +#endif + significand = frexpf(e_cross_b_re, &exponent); // 0.5 <= significand < 1 + // ReaSX = significand * 2^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 + } + + lfr_bp1[(i*NB_BYTES_BP1) + 8] = (uint8_t) ((((significand*2)-1)*255) + 0.5); // Shift and cast into a 8-bit uint8_t with rounding + // where all bits are used (0, ..., 255) + tmp_uint8 = (uint8_t) (exponent-expmin); // Shift and cast into a 8-bit uint8_t where + // just the first nbitexp bits are used (0, ..., 2^nbitexp-1) +#ifdef DEBUG_TCH + printf("|ReaSX| : %16.8e\n",e_cross_b_re); + printf("significand : %16.8e\n",significand); + printf("exponent : %d\n" ,exponent); + printf("tmp_uint8 for ReaSX exponent : %d\n",tmp_uint8); +#endif + lfr_bp1[(i*NB_BYTES_BP1) + 7] = lfr_bp1[(i*NB_BYTES_BP1) + 7] | tmp_uint8; // Record these nbitexp bits in the nbitexp first bits + // (from the right to the left) of lfr_bp1[i*NB_BYTES_BP1+7] +#ifdef DEBUG_TCH + printf("lfr_bp1[i*NB_BYTES_BP1+7] for ReaSX sign + RealSX exponent : %u\n",lfr_bp1[i*NB_BYTES_BP1+7]); + printf("lfr_bp1[i*NB_BYTES_BP1+8] for ReaSX significand : %u\n",lfr_bp1[i*NB_BYTES_BP1+8]); + printf("ImaSX : %16.8e\n",e_cross_b_im); +#endif + pt_uint8 = (uint8_t*) &e_cross_b_im; // Affect an uint8_t pointer with the adress of e_cross_b_im +#ifdef LSB_FIRST_TCH + pt_uint8[3] = pt_uint8[3] & 0x7f; // Make e_cross_b_im be positive in any case: |ImaSX| (32-bit float, sign bit in the 4th octet:PC convention) +#endif +#ifdef MSB_FIRST_TCH + pt_uint8[0] = pt_uint8[0] & 0x7f; // Make e_cross_b_im be positive in any case: |ImaSX| (32-bit float, sign bit in the 1th octet:SPARC convention) +#endif + // Determine the sector argument of SX. If |Im| > |Re| affect + // an unsigned 8-bit char with 01000000; otherwise with null. + if (e_cross_b_im > e_cross_b_re) { + tmp_uint8 = 0x40; + } + else { + tmp_uint8 = 0x00; + } + + lfr_bp1[(i*NB_BYTES_BP1) + 7] = lfr_bp1[(i*NB_BYTES_BP1) + 7] | tmp_uint8; // Record it as a sign bit at the 7th bit position (from the right + // to the left) of lfr_bp1[i*NB_BYTES_BP1+7], by simple logical addition. +#ifdef DEBUG_TCH + printf("|ImaSX| : %16.8e\n",e_cross_b_im); + printf("ArgSX sign : %u\n",tmp_uint8); + printf("lfr_bp1[i*NB_BYTES_BP1+7] for ReaSX & ArgSX signs + ReaSX exponent : %u\n",lfr_bp1[i*NB_BYTES_BP1+7]); +#endif + //====================================================================== + // BP1 phase velocity estimator == PA_LFR_SC_BP1_VPHI_F0 == 16 bits + // = 1 sign bit + 1 argument bit (two sectors) + // + 6 bits (exponent) + 8 bits (significand) + ny = (sin(alpha_M)*NVEC_V1) + (cos(alpha_M)*NVEC_V2); + nz = NVEC_V0; + bx_bx_star = (cos(alpha_M)*cos(alpha_M)*compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 9]) // S22 Re + + ((sin(alpha_M)*sin(alpha_M)*compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 16]) // S33 Re + - (2*sin(alpha_M)*cos(alpha_M)*compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 10])); // S23 Re + + n_cross_e_scal_b_re = (ny * ((compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 12] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_NY_RE]) //S24 Re + +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 14] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_NY_RE]) //S25 Re + +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 17] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_NY_RE]) //S34 Re + +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 19] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_NY_RE]) //S35 Re + +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 13] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_NY_IM]) //S24 Im + +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 15] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_NY_IM]) //S25 Im + +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 18] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_NY_IM]) //S34 Im + +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 20] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_NY_IM]))) //S35 Im + + (nz * ((compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 12] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_NZ_RE]) //S24 Re + +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 14] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_NZ_RE]) //S25 Re + +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 17] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_NZ_RE]) //S34 Re + +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 19] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_NZ_RE]) //S35 Re + +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 13] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_NZ_IM]) //S24 Im + +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 15] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_NZ_IM]) //S25 Im + +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 18] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_NZ_IM]) //S34 Im + +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 20] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_NZ_IM])));//S35 Im + // Im(S_ji) = -Im(S_ij) + // k_ji = k_ij + n_cross_e_scal_b_im = (ny * ((compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 12] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_NY_IM]) //S24 Re + +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 14] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_NY_IM]) //S25 Re + +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 17] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_NY_IM]) //S34 Re + +((compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 19] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_NY_IM]) //S35 Re + -(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 13] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_NY_RE]) //S24 Im + -(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 15] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_NY_RE]) //S25 Im + -(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 18] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_NY_RE]) //S34 Im + -(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 20] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_NY_RE])))) //S35 Im + + (nz * ((compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 12] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_NZ_IM]) //S24 Re + +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 14] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_NZ_IM]) //S25 Re + +(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 17] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_NZ_IM] ) //S34 Re + +((compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 19] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_NZ_IM]) //S35 Re + -(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 13] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K24_NZ_RE]) //S24 Im + -(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 15] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K25_NZ_RE]) //S25 Im + -(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 18] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K34_NZ_RE]) //S34 Im + -(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 20] * k_coeff_intercalib[(i*NB_K_COEFF_PER_BIN) + K35_NZ_RE]))));//S35 Im +#ifdef DEBUG_TCH + printf("n_cross_e_scal_b_re : %16.8e\n",n_cross_e_scal_b_re); + printf("n_cross_e_scal_b_im : %16.8e\n",n_cross_e_scal_b_im); +#endif + // vphi = n_cross_e_scal_b_re / bx_bx_star => sign(VPHI) = sign(n_cross_e_scal_b_re) + 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 +#ifdef LSB_FIRST_TCH + lfr_bp1[(i*NB_BYTES_BP1) + 9] = (uint8_t) (pt_uint8[3] & 0x80); // Extract its sign bit (32-bit float, sign bit in the 4th octet:PC convention) + // Record it at the 8th bit position (from the right to the left) + // of lfr_bp1[i*NB_BYTES_BP1+9] + pt_uint8[3] = (pt_uint8[3] & 0x7f); // Make n_cross_e_scal_b_re be positive in any case: |n_cross_e_scal_b_re| +#endif +#ifdef MSB_FIRST_TCH + lfr_bp1[(i*NB_BYTES_BP1) + 9] = (uint8_t) (pt_uint8[0] & 0x80); // Extract its sign bit (32-bit float, sign bit in the 1th octet:SPARC convention) + // Record it at the 8th bit position (from the right to the left) + // of lfr_bp1[i*NB_BYTES_BP1+9] + pt_uint8[0] = (pt_uint8[0] & 0x7f); // Make n_cross_e_scal_b_re be positive in any case: |n_cross_e_scal_b_re| +#endif + if (bx_bx_star != 0.) { // no division by 0. + vphi = n_cross_e_scal_b_re / bx_bx_star; // Compute |VPHI| + } + else + { + vphi = 1.e+20; // Put a huge value + } + significand = frexpf(vphi, &exponent); // 0.5 <= significand < 1 + // vphi = significand * 2^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 + } + + lfr_bp1[(i*NB_BYTES_BP1) + 10] = (uint8_t) ((((significand*2)-1)*255) + 0.5); // Shift and cast into a 8-bit uint8_t with rounding + // where all the bits are used (0, ..., 255) + tmp_uint8 = (uint8_t) (exponent-expmin); // Shift and cast into a 8-bit uint8_t where + // just the first nbitexp bits are used (0, ..., 2^nbitexp-1) +#ifdef DEBUG_TCH + printf("|VPHI| : %16.8e\n",vphi); + printf("significand : %16.8e\n",significand); + printf("exponent : %d\n" ,exponent); + printf("tmp_uint8 for VPHI exponent : %d\n",tmp_uint8); +#endif + lfr_bp1[(i*NB_BYTES_BP1) + 9] = lfr_bp1[(i*NB_BYTES_BP1) + 9] | tmp_uint8; // Record these nbitexp bits in the nbitexp first bits + // (from the right to the left) of lfr_bp1[i*NB_BYTES_BP1+9] +#ifdef DEBUG_TCH + printf("lfr_bp1[i*NB_BYTES_BP1+9] for VPHI sign + VPHI exponent : %u\n",lfr_bp1[i*NB_BYTES_BP1+9]); + printf("lfr_bp1[i*NB_BYTES_BP1+10] for VPHI significand : %u\n",lfr_bp1[i*NB_BYTES_BP1+10]); +#endif + 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 +#ifdef LSB_FIRST_TCH + pt_uint8[3] = pt_uint8[3] & 0x7f; // Make n_cross_e_scal_b_im be positive in any case: |ImaNEBX| (32-bit float, sign bit in the 4th octet:PC convention) +#endif +#ifdef MSB_FIRST_TCH + pt_uint8[0] = pt_uint8[0] & 0x7f; // Make n_cross_e_scal_b_im be positive in any case: |ImaNEBX| (32-bit float, sign bit in the 1th octet:SPARC convention) +#endif + + // Determine the sector argument of NEBX. If |Im| > |Re| affect + // an unsigned 8-bit char with 01000000; otherwise with null. + if (n_cross_e_scal_b_im > n_cross_e_scal_b_re) { + tmp_uint8 = 0x40; + } + else { + tmp_uint8 = 0x00; + } + + lfr_bp1[(i*NB_BYTES_BP1) + 9] = lfr_bp1[(i*NB_BYTES_BP1) + 9] | tmp_uint8; // Record it as a sign bit at the 7th bit position (from the right + // to the left) of lfr_bp1[i*NB_BYTES_BP1+9], by simple logical addition. +#ifdef DEBUG_TCH + printf("|n_cross_e_scal_b_im| : %16.8e\n",n_cross_e_scal_b_im); + printf("|n_cross_e_scal_b_im|/bx_bx_star : %16.8e\n",n_cross_e_scal_b_im/bx_bx_star); + printf("ArgNEBX sign : %u\n",tmp_uint8); + printf("lfr_bp1[i*NB_BYTES_BP1+9] for VPHI & ArgNEBX signs + VPHI exponent : %u\n",lfr_bp1[i*NB_BYTES_BP1+9]); +#endif + } +} + +void BP2_set(float *compressed_spec_mat, uint8_t nb_bins_compressed_spec_mat, uint8_t *lfr_bp2) +{ + float cross_re; // 32-bit floating point + float cross_im; + float aux; + float significand; + int exponent; // 32-bit signed integer + uint8_t nbitexp; // 8-bit unsigned integer + uint8_t nbitsig; + uint8_t *pt_uint8; // pointer on unsigned 8-bit integer + int8_t expmin; // 8-bit signed integer + int8_t expmax; + uint16_t rangesig; // 16-bit unsigned integer + uint16_t autocor; + uint16_t exp; + uint16_t tmp_uint16; + uint16_t i; + +#ifdef DEBUG_TCH + printf("BP2 : \n"); + printf("Number of bins: %d\n", nb_bins_compressed_spec_mat); +#endif + + // 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 + expmax = 32 + 5; + expmin = (expmax - (1 << nbitexp)) + 1; + +#ifdef DEBUG_TCH + + printf("nbitexp : %d, expmax : %d, expmin : %d\n", nbitexp, expmax, expmin); + printf("nbitsig : %d, rangesig : %d\n", nbitsig, rangesig); +#endif + + for(i = 0; i= 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 = (uint16_t) ((((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) + exp = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int where just + // the first nbitexp bits are used (0, ..., 2^nbitexp-1) + tmp_uint16 = autocor | (exp << nbitsig); // Put the exponent bits (nbitexp) next to the + // left place of the significand bits (nbitsig), + // making the 16-bit word to be recorded + pt_uint8 = (uint8_t*) &tmp_uint16; // Affect an uint8_t pointer with the adress of tmp_uint16 +#ifdef MSB_FIRST_TCH + lfr_bp2[(i*NB_BYTES_BP2) + 0] = pt_uint8[0]; // Record MSB of tmp_uint16 + lfr_bp2[(i*NB_BYTES_BP2) + 1] = pt_uint8[1]; // Record LSB of tmp_uint16 +#endif +#ifdef LSB_FIRST_TCH + lfr_bp2[(i*NB_BYTES_BP2) + 0] = pt_uint8[1]; // Record MSB of tmp_uint16 + lfr_bp2[(i*NB_BYTES_BP2) + 1] = pt_uint8[0]; // Record LSB of tmp_uint16 +#endif +#ifdef DEBUG_TCH + printf("autocor for S11 significand : %u\n",autocor); + printf("exp for S11 exponent : %u\n",exp); + printf("pt_uint8[1] for S11 exponent + significand : %.3d or %2x\n",pt_uint8[1], pt_uint8[1]); + printf("pt_uint8[0] for S11 significand : %.3d or %2x\n",pt_uint8[0], pt_uint8[0]); + 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]); + 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]); +#endif + // S22 + significand = frexpf(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 9], &exponent); // 0.5 <= significand < 1 + // S22 = significand * 2^exponent +#ifdef DEBUG_TCH + printf("S22 : %16.8e\n",compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+9]); + printf("significand : %16.8e\n",significand); + printf("exponent : %d\n" ,exponent); +#endif + 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 = (uint16_t) ((((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) + exp = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int where just + // the first nbitexp bits are used (0, ..., 2^nbitexp-1) + tmp_uint16 = autocor | (exp << nbitsig); // Put the exponent bits (nbitexp) next to the + // left place of the significand bits (nbitsig), + // making the 16-bit word to be recorded + pt_uint8 = (uint8_t*) &tmp_uint16; // Affect an uint8_t pointer with the adress of tmp_uint16 +#ifdef MSB_FIRST_TCH + lfr_bp2[(i*NB_BYTES_BP2) + 2] = pt_uint8[0]; // Record MSB of tmp_uint16 + lfr_bp2[(i*NB_BYTES_BP2) + 3] = pt_uint8[1]; // Record LSB of tmp_uint16 +#endif +#ifdef LSB_FIRST_TCH + lfr_bp2[(i*NB_BYTES_BP2) + 2] = pt_uint8[1]; // Record MSB of tmp_uint16 + lfr_bp2[(i*NB_BYTES_BP2) + 3] = pt_uint8[0]; // Record LSB of tmp_uint16 +#endif +#ifdef DEBUG_TCH + printf("autocor for S22 significand : %u\n",autocor); + printf("exp for S11 exponent : %u\n",exp); + printf("pt_uint8[1] for S22 exponent + significand : %.3d or %2x\n",pt_uint8[1], pt_uint8[1]); + printf("pt_uint8[0] for S22 significand : %.3d or %2x\n",pt_uint8[0], pt_uint8[0]); + 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]); + 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]); +#endif + // S33 + significand = frexpf(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 16], &exponent); // 0.5 <= significand < 1 + // S33 = significand * 2^exponent +#ifdef DEBUG_TCH + printf("S33 : %16.8e\n",compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+16]); + printf("significand : %16.8e\n",significand); + printf("exponent : %d\n" ,exponent); +#endif + 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 = (uint16_t) ((((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) + exp = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int where just + // the first nbitexp bits are used (0, ..., 2^nbitexp-1) + tmp_uint16 = autocor | (exp << nbitsig); // Put the exponent bits (nbitexp) next to the + // left place of the significand bits (nbitsig), + // making the 16-bit word to be recorded + pt_uint8 = (uint8_t*) &tmp_uint16; // Affect an uint8_t pointer with the adress of tmp_uint16 +#ifdef MSB_FIRST_TCH + lfr_bp2[(i*NB_BYTES_BP2) + 4] = pt_uint8[0]; // Record MSB of tmp_uint16 + lfr_bp2[(i*NB_BYTES_BP2) + 5] = pt_uint8[1]; // Record LSB of tmp_uint16 +#endif +#ifdef LSB_FIRST_TCH + lfr_bp2[(i*NB_BYTES_BP2) + 4] = pt_uint8[1]; // Record MSB of tmp_uint16 + lfr_bp2[(i*NB_BYTES_BP2) + 5] = pt_uint8[0]; // Record LSB of tmp_uint16 +#endif +#ifdef DEBUG_TCH + printf("autocor for S33 significand : %u\n",autocor); + printf("exp for S33 exponent : %u\n",exp); + printf("pt_uint8[1] for S33 exponent + significand : %.3d or %2x\n",pt_uint8[1], pt_uint8[1]); + printf("pt_uint8[0] for S33 significand : %.3d or %2x\n",pt_uint8[0], pt_uint8[0]); + 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]); + 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]); +#endif + // S44 + significand = frexpf(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 21], &exponent); // 0.5 <= significand < 1 + // S44 = significand * 2^exponent +#ifdef DEBUG_TCH + printf("S44 : %16.8e\n",compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+21]); + printf("significand : %16.8e\n",significand); + printf("exponent : %d\n" ,exponent); +#endif + + 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 = (uint16_t) ((((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) + exp = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int where just + // the first nbitexp bits are used (0, ..., 2^nbitexp-1) + tmp_uint16 = autocor | (exp << nbitsig); // Put the exponent bits (nbitexp) next to the + // left place of the significand bits (nbitsig), + // making the 16-bit word to be recorded + pt_uint8 = (uint8_t*) &tmp_uint16; // Affect an uint8_t pointer with the adress of tmp_uint16 +#ifdef MSB_FIRST_TCH + lfr_bp2[(i*NB_BYTES_BP2) + 6] = pt_uint8[0]; // Record MSB of tmp_uint16 + lfr_bp2[(i*NB_BYTES_BP2) + 7] = pt_uint8[1]; // Record LSB of tmp_uint16 +#endif +#ifdef LSB_FIRST_TCH + lfr_bp2[(i*NB_BYTES_BP2) + 6] = pt_uint8[1]; // Record MSB of tmp_uint16 + lfr_bp2[(i*NB_BYTES_BP2) + 7] = pt_uint8[0]; // Record LSB of tmp_uint16 +#endif +#ifdef DEBUG_TCH + printf("autocor for S44 significand : %u\n",autocor); + printf("exp for S44 exponent : %u\n",exp); + printf("pt_uint8[1] for S44 exponent + significand : %.3d or %2x\n",pt_uint8[1], pt_uint8[1]); + printf("pt_uint8[0] for S44 significand : %.3d or %2x\n",pt_uint8[0], pt_uint8[0]); + 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]); + 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]); +#endif + // S55 + significand = frexpf(compressed_spec_mat[(i*NB_VALUES_PER_SPECTRAL_MATRIX) + 24], &exponent); // 0.5 <= significand < 1 + // S55 = significand * 2^exponent +#ifdef DEBUG_TCH + printf("S55 : %16.8e\n",compressed_spec_mat[i*NB_VALUES_PER_SPECTRAL_MATRIX+24]); + printf("significand : %16.8e\n",significand); + printf("exponent : %d\n" ,exponent); +#endif + 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 = (uint16_t) ((((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) + exp = (uint16_t) (exponent-expmin); // Shift and cast into a 16-bit unsigned int where just + // the first nbitexp bits are used (0, ..., 2^nbitexp-1) + tmp_uint16 = autocor | (exp << nbitsig); // Put the exponent bits (nbitexp) next to the + // left place of the significand bits (nbitsig), + // making the 16-bit word to be recorded + pt_uint8 = (uint8_t*) &tmp_uint16; // Affect an uint8_t pointer with the adress of tmp_uint16 +#ifdef MSB_FIRST_TCH + lfr_bp2[(i*NB_BYTES_BP2) + 8] = pt_uint8[0]; // Record MSB of tmp_uint16 + lfr_bp2[(i*NB_BYTES_BP2) + 9] = pt_uint8[1]; // Record LSB of tmp_uint16 + //printf("MSB:\n"); +#endif +#ifdef LSB_FIRST_TCH + lfr_bp2[(i*NB_BYTES_BP2) + 8] = pt_uint8[1]; // Record MSB of tmp_uint16 + lfr_bp2[(i*NB_BYTES_BP2) + 9] = pt_uint8[0]; // Record LSB of tmp_uint16 + //printf("LSB:\n"); +#endif +#ifdef DEBUG_TCH + printf("autocor for S55 significand : %u\n",autocor); + printf("exp for S55 exponent : %u\n",exp); + printf("pt_uint8[1] for S55 exponent + significand : %.3d or %2x\n",pt_uint8[1], pt_uint8[1]); + printf("pt_uint8[0] for S55 significand : %.3d or %2x\n",pt_uint8[0], pt_uint8[0]); + 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]); + 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]); +#endif + } +} + diff --git a/src/basic_parameters.h b/src/basic_parameters.h new file mode 100644 --- /dev/null +++ b/src/basic_parameters.h @@ -0,0 +1,61 @@ +// In the frame of RPW LFR Sofware ICD Issue1 Rev8 (05/07/2013) => R2 FSW +// version 1.0: 31/07/2013 +// version 1.1: 02/04/2014 +// version 1.2: 30/04/2014 +// version 1.3: 02/05/2014 +// version 1.4: 16/05/2014 +// version 1.5: 20/05/2014 +// version 1.6: 19/12/2014 +// version 1.7: 15/01/2015 (modifs de Paul + correction erreurs qui se compensaient (LSB <=> MSB + indices [0,2] <=> [1,3]) +// version 1.8: 02/02/2015 (gestion des divisions par zéro) +// In the frame of RPW LFR Sofware ICD Issue3 Rev6 (27/01/2015) => R3 FSW +// version 2.0: 19/06/2015 +// version 2.1: 22/06/2015 (modifs de Paul) +// version 2.2: 23/06/2015 (modifs de l'ordre de déclaration/définition de init_k_coefficients dans basic_parameters.c ... + maintien des declarations dans le .h) +// version 2.3: 01/07/2015 (affectation initiale des octets 7 et 9 dans les BP1 corrigée ...) +// version 2.4: 05/10/2018 (mise en conformité LOGISCOPE) +// version 2.5: 09/10/2018 (dans main.c #include "basic_parameters_utilities.h" est changé par les déclarations extern correspondantes ...! +// + delta mise en conformité LOGISCOPE) + +/*------------------------------------------------------------------------------ +-- Solar Orbiter's Low Frequency Receiver Flight Software (LFR FSW), +-- This file is a part of the LFR FSW +-- Copyright (C) 2012-2018, Plasma Physics Laboratory - CNRS +-- +-- This program is free software; you can redistribute it and/or modify +-- it under the terms of the GNU General Public License as published by +-- the Free Software Foundation; either version 2 of the License, or +-- (at your option) any later version. +-- +-- This program is distributed in the hope that it will be useful, +-- but WITHOUT ANY WARRANTY; without even the implied warranty of +-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +-- GNU General Public License for more details. +-- +-- You should have received a copy of the GNU General Public License +-- along with this program; if not, write to the Free Software +-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +-------------------------------------------------------------------------------*/ +/*-- Author : Thomas Chust +-- Contact : Thomas Chust +-- Mail : thomas.chust@lpp.polytechnique.fr +----------------------------------------------------------------------------*/ + +#ifndef BASIC_PARAMETERS_H_INCLUDED +#define BASIC_PARAMETERS_H_INCLUDED + +#include + +#include "basic_parameters_params.h" + +void init_k_coefficients( float *k_coeff_intercalib, unsigned char nb_binscompressed_matrix ); + +//*********************************** +// STATIC INLINE FUNCTION DEFINITIONS + +void BP1_set( float * compressed_spec_mat, float * k_coeff_intercalib, uint8_t nb_bins_compressed_spec_mat, uint8_t * lfr_bp1 ); + +void BP2_set( float * compressed_spec_mat, uint8_t nb_bins_compressed_spec_mat, uint8_t * lfr_bp2 ); + + +#endif // BASIC_PARAMETERS_H_INCLUDED diff --git a/src/basic_parameters_params.h b/src/basic_parameters_params.h new file mode 100755 --- /dev/null +++ b/src/basic_parameters_params.h @@ -0,0 +1,93 @@ +// In the frame of RPW LFR Sofware ICD Issue1 Rev8 (05/07/2013) => R2 FSW +// version 1.4: 16/05/2014 +// version 1.5: 20/05/2014 +// version 1.6: 19/12/2014 +// version 1.7: 15/01/2015 (modifs de Paul + correction erreurs qui se compensaient (LSB <=> MSB + indices [0,2] <=> [1,3]) +// version 1.8: 02/02/2015 (gestion des divisions par zéro) +// In the frame of RPW LFR Sofware ICD Issue3 Rev6 (27/01/2015) => R3 FSW +// version 2.0: 19/06/2015 +// version 2.1: 22/06/2015 (modifs de Paul) +// version 2.2: 23/06/2015 (modifs de l'ordre de déclaration/définition de init_k_coefficients dans basic_parameters.c ... + maintien des declarations dans le .h) +// version 2.3: 01/07/2015 (affectation initiale des octets 7 et 9 dans les BP1 corrigée ...) +// version 2.4: 05/10/2018 (added GPL headers) +// version 2.5: 09/10/2018 (dans main.c #include "basic_parameters_utilities.h" est changé par les déclarations extern correspondantes ...! +// + delta mise en conformité LOGISCOPE) + +/*------------------------------------------------------------------------------ +-- Solar Orbiter's Low Frequency Receiver Flight Software (LFR FSW), +-- This file is a part of the LFR FSW +-- Copyright (C) 2012-2018, Plasma Physics Laboratory - CNRS +-- +-- This program is free software; you can redistribute it and/or modify +-- it under the terms of the GNU General Public License as published by +-- the Free Software Foundation; either version 2 of the License, or +-- (at your option) any later version. +-- +-- This program is distributed in the hope that it will be useful, +-- but WITHOUT ANY WARRANTY; without even the implied warranty of +-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +-- GNU General Public License for more details. +-- +-- You should have received a copy of the GNU General Public License +-- along with this program; if not, write to the Free Software +-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +-------------------------------------------------------------------------------*/ +/*-- Author : Thomas Chust +-- Contact : Thomas Chust +-- Mail : thomas.chust@lpp.polytechnique.fr +----------------------------------------------------------------------------*/ + +#ifndef BASIC_PARAMETERS_PARAMS_H +#define BASIC_PARAMETERS_PARAMS_H + +#define NB_VALUES_PER_SPECTRAL_MATRIX 25 + +#define NB_BINS_COMPRESSED_MATRIX_f0 11 +#define NB_BINS_COMPRESSED_MATRIX_f1 13 +#define NB_BINS_COMPRESSED_MATRIX_f2 12 + +#define NB_BYTES_BP1 11 +#define NB_BYTES_BP2 30 + +//******************************************** +// K-COEFFICIENTS FOR ONBOARD INTERCALIBRATION + +#define NB_K_COEFF_PER_BIN 32 + +#define K44_PE 0 +#define K55_PE 1 +#define K45_PE_RE 2 +#define K45_PE_IM 3 + +#define K14_SX_RE 4 +#define K14_SX_IM 5 +#define K15_SX_RE 6 +#define K15_SX_IM 7 +#define K24_SX_RE 8 +#define K24_SX_IM 9 +#define K25_SX_RE 10 +#define K25_SX_IM 11 +#define K34_SX_RE 12 +#define K34_SX_IM 13 +#define K35_SX_RE 14 +#define K35_SX_IM 15 + +#define K24_NY_RE 16 +#define K24_NY_IM 17 +#define K25_NY_RE 18 +#define K25_NY_IM 19 +#define K34_NY_RE 20 +#define K34_NY_IM 21 +#define K35_NY_RE 22 +#define K35_NY_IM 23 + +#define K24_NZ_RE 24 +#define K24_NZ_IM 25 +#define K25_NZ_RE 26 +#define K25_NZ_IM 27 +#define K34_NZ_RE 28 +#define K34_NZ_IM 29 +#define K35_NZ_RE 30 +#define K35_NZ_IM 31 + +#endif // BASIC_PARAMETERS_PARAMS_H diff --git a/src/basic_parameters_utilities.h b/src/basic_parameters_utilities.h new file mode 100755 --- /dev/null +++ b/src/basic_parameters_utilities.h @@ -0,0 +1,54 @@ +// In the frame of RPW LFR Sofware ICD Issue1 Rev8 (05/07/2013) => R2 FSW +// version 1.6: 19/12/2014 +// version 1.7: 15/01/2015 (modifs de Paul + correction erreurs qui se compensaient (LSB <=> MSB + indices [0,2] <=> [1,3]) +// version 1.8: 02/02/2015 (gestion des divisions par zéro) +// In the frame of RPW LFR Sofware ICD Issue3 Rev6 (27/01/2015) => R3 FSW +// version 2.0: 19/06/2015 +// version 2.1: 22/06/2015 (modifs de Paul) +// version 2.2: 23/06/2015 (modifs de l'ordre de déclaration/définition de init_k_coefficients dans basic_parameters.c ... + maintien des declarations dans le .h) +// version 2.3: 01/07/2015 (affectation initiale des octets 7 et 9 dans les BP1 corrigée ...) +// version 2.4: 05/10/2018 (mise en conformité LOGISCOPE) +// version 2.5: 09/10/2018 (dans main.c #include "basic_parameters_utilities.h" est changé par les déclarations extern correspondantes ...! +// + delta mise en conformité LOGISCOPE) + +/*------------------------------------------------------------------------------ +-- Solar Orbiter's Low Frequency Receiver Flight Software (LFR FSW), +-- This file is a part of the LFR FSW +-- Copyright (C) 2012-2018, Plasma Physics Laboratory - CNRS +-- +-- This program is free software; you can redistribute it and/or modify +-- it under the terms of the GNU General Public License as published by +-- the Free Software Foundation; either version 2 of the License, or +-- (at your option) any later version. +-- +-- This program is distributed in the hope that it will be useful, +-- but WITHOUT ANY WARRANTY; without even the implied warranty of +-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +-- GNU General Public License for more details. +-- +-- You should have received a copy of the GNU General Public License +-- along with this program; if not, write to the Free Software +-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +-------------------------------------------------------------------------------*/ +/*-- Author : Thomas Chust +-- Contact : Thomas Chust +-- Mail : thomas.chust@lpp.polytechnique.fr +----------------------------------------------------------------------------*/ + +#ifndef BASIC_PARAMETERS_UTILITIES_H +#define BASIC_PARAMETERS_UTILITIES_H + +#include +#include + +#include "basic_parameters_params.h" + +float compressed_spectral_matrix_f0[NB_BINS_COMPRESSED_MATRIX_f0 * NB_VALUES_PER_SPECTRAL_MATRIX] = {0.0}; +float k_coefficients_f0[NB_BINS_COMPRESSED_MATRIX_f0 * NB_K_COEFF_PER_BIN] = {0.0}; +float k_coefficients_f1[NB_BINS_COMPRESSED_MATRIX_f1 * NB_K_COEFF_PER_BIN] = {0.0}; +float k_coefficients_f2[NB_BINS_COMPRESSED_MATRIX_f2 * NB_K_COEFF_PER_BIN] = {0.0}; + +unsigned char LFR_BP1_f0[NB_BINS_COMPRESSED_MATRIX_f0*NB_BYTES_BP1] = {0}; +unsigned char LFR_BP2_f0[NB_BINS_COMPRESSED_MATRIX_f0*NB_BYTES_BP2] = {0}; + +#endif // BASIC_PARAMETERS_UTILITIES_H diff --git a/tests/init_k_coefficients.py b/tests/init_k_coefficients.py new file mode 100644 --- /dev/null +++ b/tests/init_k_coefficients.py @@ -0,0 +1,27 @@ +from ctypes import * +import numpy as np +import os +import sys + +import unittest + +class init_k_coefficients(unittest.TestCase): + def setUp(self): + self.lib_basic_params = cdll.LoadLibrary(f'{os.path.dirname(os.path.realpath(__file__))}/../../build-LFR_basic-parameters-Desktop-Default/liblfr_basic_params.so') + + def tearDown(self): + pass + + def test_init_k_coefficients_f0(self): + nb_bins = 11 + nb_binscompressed_matrix = c_char(nb_bins) + k_coefficients = (c_float * (32 * nb_bins))() + + for i in range(len(k_coefficients)): + k_coefficients[i] = 100.*np.random.random() + + self.lib_basic_params.init_k_coefficients(k_coefficients, nb_binscompressed_matrix) + self.assertTrue(all([ v==1. if i not in ( 2, 3, 34, 35, 66, 67, 98, 99, 130, 131, 162, 163, 194, 195, 226, 227, 258, 259, 290, 291, 322, 323) else v==0. for i,v in enumerate(k_coefficients) ])) + +if __name__ == '__main__': + unittest.main() diff --git a/tests1.pro b/tests1.pro deleted file mode 100644 --- a/tests1.pro +++ /dev/null @@ -1,18 +0,0 @@ -TEMPLATE = app -CONFIG += console -CONFIG -= app_bundle -CONFIG -= qt - -DEFINES += DEBUG_TCH -#DEFINES += MSB_FIRST_TCH # SPARC convention -DEFINES += LSB_FIRST_TCH # PC convention - -SOURCES += main.c \ - basic_parameters.c \ - file_utilities.c - -HEADERS += \ - basic_parameters.h \ - file_utilities.h - - diff --git a/tests2.pro b/tests2.pro deleted file mode 100755 --- a/tests2.pro +++ /dev/null @@ -1,18 +0,0 @@ -TEMPLATE = app -CONFIG += console -CONFIG -= app_bundle -CONFIG -= qt - -DEFINES += DEBUG_TCH -#DEFINES += MSB_FIRST_TCH # SPARC convention -DEFINES += LSB_FIRST_TCH # PC convention - -SOURCES += main.c \ - basic_parameters.c \ - file_utilities.c - -HEADERS += \ - basic_parameters.h \ - file_utilities.h - - diff --git a/tests3.pro b/tests3.pro deleted file mode 100755 --- a/tests3.pro +++ /dev/null @@ -1,19 +0,0 @@ -TEMPLATE = app -CONFIG += console -CONFIG -= app_bundle -CONFIG -= qt - -DEFINES += DEBUG_TCH -#DEFINES += MSB_FIRST_TCH # SPARC convention -DEFINES += LSB_FIRST_TCH # PC convention - -SOURCES += main.c \ - basic_parameters.c \ - file_utilities.c - -HEADERS += \ - basic_parameters.h \ - file_utilities.h \ - basic_parameters_params.h - - diff --git a/tests4.pro b/tests4.pro deleted file mode 100755 --- a/tests4.pro +++ /dev/null @@ -1,20 +0,0 @@ -TEMPLATE = app -CONFIG += console -CONFIG -= app_bundle -CONFIG -= qt - -DEFINES += DEBUG_TCH -#DEFINES += MSB_FIRST_TCH # SPARC convention -DEFINES += LSB_FIRST_TCH # PC convention - -SOURCES += main.c \ - basic_parameters.c \ - file_utilities.c - -HEADERS += \ - basic_parameters.h \ - basic_parameters_params.h \ - basic_parameters_utilities.h \ - file_utilities.h - - diff --git a/tests5.pro b/tests5.pro deleted file mode 100755 --- a/tests5.pro +++ /dev/null @@ -1,20 +0,0 @@ -TEMPLATE = app -CONFIG += console -CONFIG -= app_bundle -CONFIG -= qt - -DEFINES += DEBUG_TCH -DEFINES += LSB_FIRST_TCH # PC convention -#DEFINES += MSB_FIRST_TCH # SPARC convention - -SOURCES += main.c \ - basic_parameters.c \ - file_utilities.c - -HEADERS += \ - basic_parameters.h \ - basic_parameters_params.h \ - basic_parameters_utilities.h \ - file_utilities.h - - diff --git a/tests7.pro b/tests7.pro deleted file mode 100755 --- a/tests7.pro +++ /dev/null @@ -1,20 +0,0 @@ -TEMPLATE = app -CONFIG += console -CONFIG -= app_bundle -CONFIG -= qt - -DEFINES += DEBUG_TCH -DEFINES += LSB_FIRST_TCH # PC convention -#DEFINES += MSB_FIRST_TCH # SPARC convention - -SOURCES += main.c \ - basic_parameters.c \ - file_utilities.c - -HEADERS += \ - basic_parameters.h \ - basic_parameters_params.h \ - basic_parameters_utilities.h \ - file_utilities.h - - diff --git a/tests8.pro b/tests8.pro deleted file mode 100755 --- a/tests8.pro +++ /dev/null @@ -1,20 +0,0 @@ -TEMPLATE = app -CONFIG += console -CONFIG -= app_bundle -CONFIG -= qt - -DEFINES += DEBUG_TCH -DEFINES += LSB_FIRST_TCH # PC convention -#DEFINES += MSB_FIRST_TCH # SPARC convention - -SOURCES += main.c \ - basic_parameters.c \ - file_utilities.c - -HEADERS += \ - basic_parameters.h \ - basic_parameters_params.h \ - basic_parameters_utilities.h \ - file_utilities.h - -