mirror of https://github.com/pvnis/srsRAN_4G.git
Testing CH est
ismagom
10 years ago
parent
17dd292089
commit
61ebfaf3b2
@ -0,0 +1,65 @@
|
|||||||
|
# BuildMex.cmake
|
||||||
|
# Author: Kent Williams norman-k-williams at uiowa.edu
|
||||||
|
# Modified by Ismael Gomez, 2014
|
||||||
|
|
||||||
|
include(CMakeParseArguments)
|
||||||
|
|
||||||
|
if(NOT MATLAB_FOUND)
|
||||||
|
find_package(MATLAB)
|
||||||
|
endif()
|
||||||
|
|
||||||
|
if(NOT OCTAVE_FOUND)
|
||||||
|
find_package(OCTAVE)
|
||||||
|
endif()
|
||||||
|
|
||||||
|
# CMake 2.8.12 & earlier apparently don't define the
|
||||||
|
# Mex script path, so find it.
|
||||||
|
if(NOT MATLAB_MEX_PATH)
|
||||||
|
find_program( MATLAB_MEX_PATH mex
|
||||||
|
HINTS ${MATLAB_ROOT}/bin
|
||||||
|
PATHS ${MATLAB_ROOT}/bin
|
||||||
|
DOC "The mex program path"
|
||||||
|
)
|
||||||
|
endif()
|
||||||
|
|
||||||
|
IF (MATLAB_FOUND)
|
||||||
|
message(STATUS "Found MATLAB in ${MATLAB_ROOT}")
|
||||||
|
ELSE(MATLAB_FOUND)
|
||||||
|
message(STATUS "Could NOT find MATLAB. MEX files won't be compiled")
|
||||||
|
ENDIF(MATLAB_FOUND)
|
||||||
|
|
||||||
|
#
|
||||||
|
# BuildMex -- arguments
|
||||||
|
# MEXNAME = root of mex library name
|
||||||
|
# SOURCE = list of source files
|
||||||
|
# LIBRARIES = libraries needed to link mex library
|
||||||
|
FUNCTION(BuildMex)
|
||||||
|
set(oneValueArgs MEXNAME)
|
||||||
|
set(multiValueArgs SOURCES LIBRARIES)
|
||||||
|
cmake_parse_arguments(BuildMex "" "${oneValueArgs}" "${multiValueArgs}" ${ARGN})
|
||||||
|
if (MATLAB_FOUND)
|
||||||
|
add_library(${BuildMex_MEXNAME}-mat SHARED ${BuildMex_SOURCES})
|
||||||
|
target_include_directories(${BuildMex_MEXNAME}-mat PUBLIC ${MATLAB_INCLUDE_DIR})
|
||||||
|
set_target_properties(${BuildMex_MEXNAME}-mat PROPERTIES
|
||||||
|
SUFFIX "${MATLAB_MEX_EXTENSION}"
|
||||||
|
PREFIX "liblte_"
|
||||||
|
OUTPUT_NAME "${BuildMex_MEXNAME}"
|
||||||
|
COMPILE_FLAGS "-fvisibility=default ${MATLAB_MEX_CFLAGS}"
|
||||||
|
)
|
||||||
|
target_link_libraries(${BuildMex_MEXNAME}-mat ${BuildMex_LIBRARIES} ${MATLAB_MEX_LIBRARY})
|
||||||
|
install(TARGETS ${BuildMex_MEXNAME}-mat DESTINATION mex)
|
||||||
|
endif(MATLAB_FOUND)
|
||||||
|
if (OCTAVE_FOUND)
|
||||||
|
add_library(${BuildMex_MEXNAME}-oct SHARED ${BuildMex_SOURCES})
|
||||||
|
target_include_directories(${BuildMex_MEXNAME}-oct PUBLIC ${OCTAVE_INCLUDE_DIR})
|
||||||
|
set_target_properties(${BuildMex_MEXNAME}-oct PROPERTIES
|
||||||
|
SUFFIX ".${OCTAVE_MEXFILE_EXT}"
|
||||||
|
PREFIX "liblte_"
|
||||||
|
OUTPUT_NAME "${BuildMex_MEXNAME}"
|
||||||
|
COMPILE_FLAGS "-fvisibility=default ${OCTAVE_MEX_CFLAGS} -DUNDEF_BOOL"
|
||||||
|
)
|
||||||
|
target_link_libraries(${BuildMex_MEXNAME}-oct ${BuildMex_LIBRARIES} ${OCTAVE_LIBRARIES})
|
||||||
|
install(TARGETS ${BuildMex_MEXNAME}-oct DESTINATION mex)
|
||||||
|
endif (OCTAVE_FOUND)
|
||||||
|
ENDFUNCTION(BuildMex)
|
||||||
|
|
||||||
@ -0,0 +1,212 @@
|
|||||||
|
# - this module looks for Matlab
|
||||||
|
# Defines:
|
||||||
|
# MATLAB_INCLUDE_DIR: include path for mex.h, engine.h
|
||||||
|
# MATLAB_LIBRARIES: required libraries: libmex, etc
|
||||||
|
# MATLAB_MEX_LIBRARY: path to libmex.lib
|
||||||
|
# MATLAB_MX_LIBRARY: path to libmx.lib
|
||||||
|
# MATLAB_MAT_LIBRARY: path to libmat.lib # added
|
||||||
|
# MATLAB_ENG_LIBRARY: path to libeng.lib
|
||||||
|
# MATLAB_ROOT: path to Matlab's root directory
|
||||||
|
|
||||||
|
# This file is part of Gerardus
|
||||||
|
#
|
||||||
|
# This is a derivative work of file FindMatlab.cmake released with
|
||||||
|
# CMake v2.8, because the original seems to be a bit outdated and
|
||||||
|
# doesn't work with my Windows XP and Visual Studio 10 install
|
||||||
|
#
|
||||||
|
# (Note that the original file does work for Ubuntu Natty)
|
||||||
|
#
|
||||||
|
# Author: Ramon Casero <rcasero at gmail.com>, Tom Doel
|
||||||
|
# Version: 0.2.3
|
||||||
|
# $Rev$
|
||||||
|
# $Date$
|
||||||
|
#
|
||||||
|
# The original file was copied from an Ubuntu Linux install
|
||||||
|
# /usr/share/cmake-2.8/Modules/FindMatlab.cmake
|
||||||
|
|
||||||
|
set(MATLAB_FOUND 0)
|
||||||
|
if(WIN32)
|
||||||
|
# Search for a version of Matlab available, starting from the most modern one to older versions
|
||||||
|
foreach(MATVER "7.14" "7.11" "7.10" "7.9" "7.8" "7.7" "7.6" "7.5" "7.4")
|
||||||
|
if((NOT DEFINED MATLAB_ROOT)
|
||||||
|
OR ("${MATLAB_ROOT}" STREQUAL "")
|
||||||
|
OR ("${MATLAB_ROOT}" STREQUAL "/registry"))
|
||||||
|
get_filename_component(MATLAB_ROOT "[HKEY_LOCAL_MACHINE\\SOFTWARE\\MathWorks\\MATLAB\\${MATVER};MATLABROOT]"
|
||||||
|
ABSOLUTE)
|
||||||
|
set(MATLAB_VERSION ${MATVER})
|
||||||
|
endif()
|
||||||
|
endforeach()
|
||||||
|
|
||||||
|
# Directory name depending on whether the Windows architecture is 32
|
||||||
|
# bit or 64 bit
|
||||||
|
set(CMAKE_SIZEOF_VOID_P 8) # Note: For some wierd reason this variable is undefined in my system...
|
||||||
|
if(CMAKE_SIZEOF_VOID_P MATCHES "4")
|
||||||
|
set(WINDIR "win32")
|
||||||
|
elseif(CMAKE_SIZEOF_VOID_P MATCHES "8")
|
||||||
|
set(WINDIR "win64")
|
||||||
|
else()
|
||||||
|
message(FATAL_ERROR "CMAKE_SIZEOF_VOID_P (${CMAKE_SIZEOF_VOID_P}) doesn't indicate a valid platform")
|
||||||
|
endif()
|
||||||
|
|
||||||
|
# Folder where the MEX libraries are, depending of the Windows compiler
|
||||||
|
if(${CMAKE_GENERATOR} MATCHES "Visual Studio 6")
|
||||||
|
set(MATLAB_LIBRARIES_DIR "${MATLAB_ROOT}/extern/lib/${WINDIR}/microsoft/msvc60")
|
||||||
|
elseif(${CMAKE_GENERATOR} MATCHES "Visual Studio 7")
|
||||||
|
# Assume people are generally using Visual Studio 7.1,
|
||||||
|
# if using 7.0 need to link to: ../extern/lib/${WINDIR}/microsoft/msvc70
|
||||||
|
set(MATLAB_LIBRARIES_DIR "${MATLAB_ROOT}/extern/lib/${WINDIR}/microsoft/msvc71")
|
||||||
|
# set(MATLAB_LIBRARIES_DIR "${MATLAB_ROOT}/extern/lib/${WINDIR}/microsoft/msvc70")
|
||||||
|
elseif(${CMAKE_GENERATOR} MATCHES "Borland")
|
||||||
|
# Assume people are generally using Borland 5.4,
|
||||||
|
# if using 7.0 need to link to ../extern/lib/${WINDIR}/microsoft/msvc70
|
||||||
|
set(MATLAB_LIBRARIES_DIR "${MATLAB_ROOT}/extern/lib/${WINDIR}/microsoft/bcc54")
|
||||||
|
# set(MATLAB_LIBRARIES_DIR "${MATLAB_ROOT}/extern/lib/${WINDIR}/microsoft/bcc50")
|
||||||
|
# set(MATLAB_LIBRARIES_DIR "${MATLAB_ROOT}/extern/lib/${WINDIR}/microsoft/bcc51")
|
||||||
|
elseif(${CMAKE_GENERATOR} MATCHES "Visual Studio*")
|
||||||
|
# If the compiler is Visual Studio, but not any of the specific
|
||||||
|
# versions above, we try our luck with the microsoft directory
|
||||||
|
set(MATLAB_LIBRARIES_DIR "${MATLAB_ROOT}/extern/lib/${WINDIR}/microsoft/")
|
||||||
|
else()
|
||||||
|
message(FATAL_ERROR "Generator not compatible: ${CMAKE_GENERATOR}")
|
||||||
|
endif()
|
||||||
|
|
||||||
|
# Get paths to the Matlab MEX libraries
|
||||||
|
find_library(MATLAB_MEX_LIBRARY libmex ${MATLAB_LIBRARIES_DIR} )
|
||||||
|
find_library(MATLAB_MX_LIBRARY libm ${MATLAB_LIBRARIES_DIR} )
|
||||||
|
find_library(MATLAB_MAT_LIBRARY libmat ${MATLAB_LIBRARIES_DIR} )
|
||||||
|
find_library(MATLAB_ENG_LIBRARY libeng ${MATLAB_LIBRARIES_DIR} )
|
||||||
|
|
||||||
|
# Get path to the include directory
|
||||||
|
find_path(MATLAB_INCLUDE_DIR "mex.h" "${MATLAB_ROOT}/extern/include" )
|
||||||
|
|
||||||
|
else()
|
||||||
|
|
||||||
|
if((NOT DEFINED MATLAB_ROOT)
|
||||||
|
OR ("${MATLAB_ROOT}" STREQUAL ""))
|
||||||
|
# get path to the Matlab root directory
|
||||||
|
execute_process(
|
||||||
|
COMMAND which matlab
|
||||||
|
COMMAND xargs readlink
|
||||||
|
COMMAND xargs dirname
|
||||||
|
COMMAND xargs dirname
|
||||||
|
COMMAND xargs echo -n
|
||||||
|
OUTPUT_VARIABLE MATLAB_ROOT
|
||||||
|
)
|
||||||
|
endif()
|
||||||
|
|
||||||
|
# Check if this is a Mac
|
||||||
|
if(${CMAKE_SYSTEM_NAME} MATCHES "Darwin")
|
||||||
|
|
||||||
|
set(LIBRARY_EXTENSION .dylib)
|
||||||
|
|
||||||
|
# If this is a Mac and the attempts to find MATLAB_ROOT have so far failed,
|
||||||
|
# we look in the applications folder
|
||||||
|
if((NOT DEFINED MATLAB_ROOT) OR ("${MATLAB_ROOT}" STREQUAL ""))
|
||||||
|
|
||||||
|
# Search for a version of Matlab available, starting from the most modern one to older versions
|
||||||
|
foreach(MATVER "R2013b" "R2013a" "R2012b" "R2012a" "R2011b" "R2011a" "R2010b" "R2010a" "R2009b" "R2009a" "R2008b")
|
||||||
|
if((NOT DEFINED MATLAB_ROOT) OR ("${MATLAB_ROOT}" STREQUAL ""))
|
||||||
|
if(EXISTS /Applications/MATLAB_${MATVER}.app)
|
||||||
|
set(MATLAB_ROOT /Applications/MATLAB_${MATVER}.app)
|
||||||
|
endif()
|
||||||
|
endif()
|
||||||
|
endforeach()
|
||||||
|
endif()
|
||||||
|
|
||||||
|
else()
|
||||||
|
set(LIBRARY_EXTENSION .so)
|
||||||
|
endif()
|
||||||
|
|
||||||
|
# Get path to the MEX libraries
|
||||||
|
execute_process(
|
||||||
|
#COMMAND find "${MATLAB_ROOT}/extern/lib" -name libmex${LIBRARY_EXTENSION} # Peter
|
||||||
|
COMMAND find "${MATLAB_ROOT}/bin" -name libmex${LIBRARY_EXTENSION} # standard
|
||||||
|
COMMAND xargs echo -n
|
||||||
|
OUTPUT_VARIABLE MATLAB_MEX_LIBRARY
|
||||||
|
)
|
||||||
|
execute_process(
|
||||||
|
#COMMAND find "${MATLAB_ROOT}/extern/lib" -name libmx${LIBRARY_EXTENSION} # Peter
|
||||||
|
COMMAND find "${MATLAB_ROOT}/bin" -name libmx${LIBRARY_EXTENSION} # Standard
|
||||||
|
COMMAND xargs echo -n
|
||||||
|
OUTPUT_VARIABLE MATLAB_MX_LIBRARY
|
||||||
|
)
|
||||||
|
execute_process(
|
||||||
|
#COMMAND find "${MATLAB_ROOT}/extern/lib" -name libmat${LIBRARY_EXTENSION} # Peter
|
||||||
|
COMMAND find "${MATLAB_ROOT}/bin" -name libmat${LIBRARY_EXTENSION} # Standard
|
||||||
|
COMMAND xargs echo -n
|
||||||
|
OUTPUT_VARIABLE MATLAB_MAT_LIBRARY
|
||||||
|
)
|
||||||
|
execute_process(
|
||||||
|
#COMMAND find "${MATLAB_ROOT}/extern/lib" -name libeng${LIBRARY_EXTENSION} # Peter
|
||||||
|
COMMAND find "${MATLAB_ROOT}/bin" -name libeng${LIBRARY_EXTENSION} # Standard
|
||||||
|
COMMAND xargs echo -n
|
||||||
|
OUTPUT_VARIABLE MATLAB_ENG_LIBRARY
|
||||||
|
)
|
||||||
|
|
||||||
|
# Get path to the include directory
|
||||||
|
find_path(MATLAB_INCLUDE_DIR
|
||||||
|
"mex.h"
|
||||||
|
PATHS "${MATLAB_ROOT}/extern/include"
|
||||||
|
)
|
||||||
|
|
||||||
|
find_program( MATLAB_MEX_PATH mex
|
||||||
|
HINTS ${MATLAB_ROOT}/bin
|
||||||
|
PATHS ${MATLAB_ROOT}/bin
|
||||||
|
DOC "The mex program path"
|
||||||
|
)
|
||||||
|
|
||||||
|
find_program( MATLAB_MEXEXT_PATH mexext
|
||||||
|
HINTS ${MATLAB_ROOT}/bin
|
||||||
|
PATHS ${MATLAB_ROOT}/bin
|
||||||
|
DOC "The mexext program path"
|
||||||
|
)
|
||||||
|
|
||||||
|
execute_process(
|
||||||
|
COMMAND ${MATLAB_MEXEXT_PATH}
|
||||||
|
OUTPUT_STRIP_TRAILING_WHITESPACE
|
||||||
|
OUTPUT_VARIABLE MATLAB_MEX_EXT
|
||||||
|
)
|
||||||
|
|
||||||
|
endif()
|
||||||
|
|
||||||
|
# This is common to UNIX and Win32:
|
||||||
|
set(MATLAB_LIBRARIES
|
||||||
|
${MATLAB_MEX_LIBRARY}
|
||||||
|
${MATLAB_MX_LIBRARY}
|
||||||
|
${MATLAB_ENG_LIBRARY}
|
||||||
|
)
|
||||||
|
|
||||||
|
if(MATLAB_INCLUDE_DIR AND MATLAB_LIBRARIES)
|
||||||
|
set(MATLAB_FOUND 1)
|
||||||
|
endif()
|
||||||
|
|
||||||
|
# 32-bit or 64-bit mex
|
||||||
|
if(WIN32)
|
||||||
|
if (CMAKE_CL_64)
|
||||||
|
SET(MATLAB_MEX_EXTENSION .mexw64)
|
||||||
|
else(CMAKE_CL_64)
|
||||||
|
SET(MATLAB_MEX_EXTENSION .mexw32)
|
||||||
|
endif(CMAKE_CL_64)
|
||||||
|
else(WIN32)
|
||||||
|
if (CMAKE_SIZEOF_VOID_P MATCHES "8")
|
||||||
|
SET(MATLAB_MEX_EXTENSION .mexa64)
|
||||||
|
else(CMAKE_SIZEOF_VOID_P MATCHES "8")
|
||||||
|
SET(MATLAB_MEX_EXTENSION .mexglx)
|
||||||
|
endif (CMAKE_SIZEOF_VOID_P MATCHES "8")
|
||||||
|
endif(WIN32)
|
||||||
|
|
||||||
|
SET(MATLAB_MEX_CFLAGS "-DMATLAB_MEX_FILE -DMX_COMPAT_32")
|
||||||
|
|
||||||
|
mark_as_advanced(
|
||||||
|
MATLAB_LIBRARIES
|
||||||
|
MATLAB_MEX_LIBRARY
|
||||||
|
MATLAB_MX_LIBRARY
|
||||||
|
MATLAB_ENG_LIBRARY
|
||||||
|
MATLAB_INCLUDE_DIR
|
||||||
|
MATLAB_FOUND
|
||||||
|
MATLAB_ROOT
|
||||||
|
MATLAB_MEX_PATH
|
||||||
|
MATLAB_MEXEXT_PATH
|
||||||
|
MATLAB_MEX_EXT
|
||||||
|
)
|
||||||
|
|
||||||
@ -0,0 +1,138 @@
|
|||||||
|
# - Try to find a version of Octave and headers/library required by the
|
||||||
|
# used compiler. It determines the right MEX-File extension and add
|
||||||
|
# a macro to help the build of MEX-functions.
|
||||||
|
#
|
||||||
|
# This module defines:
|
||||||
|
# OCTAVE_INCLUDE_DIR: include path for mex.h, mexproto.h
|
||||||
|
# OCTAVE_OCTINTERP_LIBRARY: path to the library octinterp
|
||||||
|
# OCTAVE_OCTAVE_LIBRARY: path to the library octave
|
||||||
|
# OCTAVE_CRUFT_LIBRARY: path to the library cruft
|
||||||
|
# OCTAVE_LIBRARIES: required libraries: octinterp, octave, cruft
|
||||||
|
# OCTAVE_CREATE_MEX: macro to build a MEX-file
|
||||||
|
#
|
||||||
|
# The macro OCTAVE_CREATE_MEX requires in this order:
|
||||||
|
# - function's name which will be called in Octave;
|
||||||
|
# - C/C++ source files;
|
||||||
|
# - third libraries required.
|
||||||
|
|
||||||
|
# Copyright (c) 2009-2013 Arnaud Barré <arnaud.barre@gmail.com>
|
||||||
|
# Redistribution and use is allowed according to the terms of the BSD license.
|
||||||
|
# For details see the accompanying COPYING-CMAKE-SCRIPTS file.
|
||||||
|
|
||||||
|
IF(OCTAVE_ROOT AND OCTAVE_INCLUDE_DIR AND OCTAVE_LIBRARIES)
|
||||||
|
STRING(COMPARE NOTEQUAL "${OCTAVE_ROOT}" "${OCTAVE_ROOT_LAST}" OCTAVE_CHANGED)
|
||||||
|
IF(OCTAVE_CHANGED)
|
||||||
|
SET(OCTAVE_USE_MINGW32 OCTAVE_USE_MINGW32-NOTFOUND CACHE INTERNAL "")
|
||||||
|
SET(OCTAVE_OCTAVE_LIBRARY OCTAVE_OCTAVE_LIBRARY-NOTFOUND CACHE INTERNAL "")
|
||||||
|
SET(OCTAVE_INCLUDE_DIR OCTAVE_INCLUDE_DIR-NOTFOUND CACHE INTERNAL "")
|
||||||
|
ELSE(OCTAVE_CHANGED)
|
||||||
|
# in cache already
|
||||||
|
SET(Octave_FIND_QUIETLY TRUE)
|
||||||
|
ENDIF(OCTAVE_CHANGED)
|
||||||
|
ENDIF(OCTAVE_ROOT AND OCTAVE_INCLUDE_DIR AND OCTAVE_LIBRARIES)
|
||||||
|
|
||||||
|
SET(OCTAVE_MEXFILE_EXT mex)
|
||||||
|
|
||||||
|
IF(WIN32)
|
||||||
|
SET(OCTAVE_PATHS_L1 )
|
||||||
|
SET(OCTAVE_PATHS_L2 )
|
||||||
|
# Level 0
|
||||||
|
FILE(GLOB OCTAVE_PATHS_L0 "c:/Octave*")
|
||||||
|
# Level 1
|
||||||
|
FOREACH(_file_ ${OCTAVE_PATHS_L0})
|
||||||
|
FILE(GLOB OCTAVE_PATHS_TEMP "${_file_}/*")
|
||||||
|
SET(OCTAVE_PATHS_L1 ${OCTAVE_PATHS_L1};${OCTAVE_PATHS_TEMP})
|
||||||
|
ENDFOREACH(_file_ OCTAVE_PATHS_L0)
|
||||||
|
# Level 2
|
||||||
|
FOREACH(_file_ ${OCTAVE_PATHS_L1})
|
||||||
|
FILE(GLOB OCTAVE_PATHS_TEMP "${_file_}/*")
|
||||||
|
SET(OCTAVE_PATHS_L2 ${OCTAVE_PATHS_L2};${OCTAVE_PATHS_TEMP})
|
||||||
|
ENDFOREACH(_file_ OCTAVE_PATHS_L1)
|
||||||
|
# Merge levels
|
||||||
|
SET(OCTAVE_PATHS ${OCTAVE_PATHS_L0} ${OCTAVE_PATHS_L1} ${OCTAVE_PATHS_L2})
|
||||||
|
|
||||||
|
FIND_PATH(OCTAVE_ROOT "bin/octave.exe" ${OCTAVE_PATHS})
|
||||||
|
FIND_PATH(OCTAVE_USE_MINGW32 "bin/mingw32-make.exe" "${OCTAVE_ROOT}/mingw32")
|
||||||
|
|
||||||
|
IF(MSVC AND OCTAVE_USE_MINGW32)
|
||||||
|
MESSAGE(FATAL_ERROR
|
||||||
|
"You must use the generator \"MinGW Makefiles\" as the "
|
||||||
|
"version of Octave installed on your computer was compiled "
|
||||||
|
"with MinGW. You should also specify the native compiler "
|
||||||
|
"(GCC, G++ and GFortan) and add the path of MinGW in the "
|
||||||
|
"environment variable PATH. Contact the developers of the "
|
||||||
|
"project for more details")
|
||||||
|
ENDIF(MSVC AND OCTAVE_USE_MINGW32)
|
||||||
|
|
||||||
|
FILE(GLOB OCTAVE_INCLUDE_PATHS "${OCTAVE_ROOT}/include/octave-*/octave")
|
||||||
|
FILE(GLOB OCTAVE_LIBRARIES_PATHS "${OCTAVE_ROOT}/lib/octave-*")
|
||||||
|
IF (NOT OCTAVE_LIBRARIES_PATHS)
|
||||||
|
FILE(GLOB OCTAVE_LIBRARIES_PATHS "${OCTAVE_ROOT}/lib/octave/*")
|
||||||
|
ENDIF (NOT OCTAVE_LIBRARIES_PATHS)
|
||||||
|
|
||||||
|
# LIBOCTINTERP, LIBOCTAVE, LIBCRUFT names
|
||||||
|
SET(LIBOCTAVE "liboctave")
|
||||||
|
|
||||||
|
ELSE(WIN32)
|
||||||
|
IF(APPLE)
|
||||||
|
FILE(GLOB OCTAVE_PATHS "/Applications/Octave*")
|
||||||
|
FIND_PATH(OCTAVE_ROOT "Contents/Resources/bin/octave" ${OCTAVE_PATHS})
|
||||||
|
|
||||||
|
FILE(GLOB OCTAVE_INCLUDE_PATHS "${OCTAVE_ROOT}/Contents/Resources/include/octave-*/octave")
|
||||||
|
FILE(GLOB OCTAVE_LIBRARIES_PATHS "${OCTAVE_ROOT}/Contents/Resources/lib/octave-*")
|
||||||
|
|
||||||
|
SET(LIBOCTAVE "liboctave.dylib")
|
||||||
|
ELSE(APPLE)
|
||||||
|
FILE(GLOB OCTAVE_LOCAL_PATHS "/usr/local/lib/octave-*")
|
||||||
|
FILE(GLOB OCTAVE_USR_PATHS "/usr/lib/octave-*")
|
||||||
|
FILE(GLOB OCTAVE_INCLUDE_PATHS "/usr/include/octave-*")
|
||||||
|
|
||||||
|
SET (OCTAVE_INCLUDE_PATHS
|
||||||
|
"/usr/local/include"
|
||||||
|
"/usr/local/include/octave"
|
||||||
|
"/usr/include"
|
||||||
|
"${OCTAVE_INCLUDE_PATHS}"
|
||||||
|
"${OCTAVE_INCLUDE_PATHS}/octave")
|
||||||
|
SET (OCTAVE_LIBRARIES_PATHS
|
||||||
|
"/usr/local/lib"
|
||||||
|
"/usr/local/lib/octave"
|
||||||
|
${OCTAVE_LOCAL_PATHS}
|
||||||
|
"/usr/lib"
|
||||||
|
"/usr/lib/octave"
|
||||||
|
${OCTAVE_USR_PATHS})
|
||||||
|
|
||||||
|
SET (LIBOCTAVE "octave")
|
||||||
|
ENDIF(APPLE)
|
||||||
|
ENDIF(WIN32)
|
||||||
|
|
||||||
|
FIND_LIBRARY(OCTAVE_OCTAVE_LIBRARY
|
||||||
|
${LIBOCTAVE}
|
||||||
|
${OCTAVE_LIBRARIES_PATHS}
|
||||||
|
)
|
||||||
|
FIND_PATH(OCTAVE_INCLUDE_DIR
|
||||||
|
"mex.h"
|
||||||
|
${OCTAVE_INCLUDE_PATHS}
|
||||||
|
)
|
||||||
|
|
||||||
|
SET(OCTAVE_ROOT_LAST "${OCTAVE_ROOT}" CACHE INTERNAL "" FORCE)
|
||||||
|
|
||||||
|
# This is common to UNIX and Win32:
|
||||||
|
SET(OCTAVE_LIBRARIES
|
||||||
|
${OCTAVE_OCTAVE_LIBRARY}
|
||||||
|
CACHE INTERNAL "Octave libraries" FORCE
|
||||||
|
)
|
||||||
|
|
||||||
|
INCLUDE(FindPackageHandleStandardArgs)
|
||||||
|
|
||||||
|
# The variable OCTAVE_ROOT is only relevant for WIN32
|
||||||
|
IF(WIN32)
|
||||||
|
FIND_PACKAGE_HANDLE_STANDARD_ARGS(Octave DEFAULT_MSG OCTAVE_ROOT OCTAVE_INCLUDE_DIR OCTAVE_OCTAVE_LIBRARY )
|
||||||
|
ELSE(WIN32)
|
||||||
|
FIND_PACKAGE_HANDLE_STANDARD_ARGS(Octave DEFAULT_MSG OCTAVE_INCLUDE_DIR OCTAVE_OCTAVE_LIBRARY )
|
||||||
|
ENDIF(WIN32)
|
||||||
|
|
||||||
|
MARK_AS_ADVANCED(
|
||||||
|
OCTAVE_OCTAVE_LIBRARY
|
||||||
|
OCTAVE_LIBRARIES
|
||||||
|
OCTAVE_INCLUDE_DIR
|
||||||
|
)
|
||||||
@ -0,0 +1,105 @@
|
|||||||
|
/**
|
||||||
|
*
|
||||||
|
* \section COPYRIGHT
|
||||||
|
*
|
||||||
|
* Copyright 2013-2014 The libLTE Developers. See the
|
||||||
|
* COPYRIGHT file at the top-level directory of this distribution.
|
||||||
|
*
|
||||||
|
* \section LICENSE
|
||||||
|
*
|
||||||
|
* This file is part of the libLTE library.
|
||||||
|
*
|
||||||
|
* libLTE is free software: you can redistribute it and/or modify
|
||||||
|
* it under the terms of the GNU Lesser General Public License as
|
||||||
|
* published by the Free Software Foundation, either version 3 of
|
||||||
|
* the License, or (at your option) any later version.
|
||||||
|
*
|
||||||
|
* libLTE 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 Lesser General Public License for more details.
|
||||||
|
*
|
||||||
|
* A copy of the GNU Lesser General Public License can be found in
|
||||||
|
* the LICENSE file in the top-level directory of this distribution
|
||||||
|
* and at http://www.gnu.org/licenses/.
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#ifndef CHEST_DL_
|
||||||
|
#define CHEST_DL_
|
||||||
|
|
||||||
|
#include <stdio.h>
|
||||||
|
|
||||||
|
#include "liblte/config.h"
|
||||||
|
|
||||||
|
#include "liblte/phy/resampling/interp.h"
|
||||||
|
#include "liblte/phy/filter/filter2d.h"
|
||||||
|
#include "liblte/phy/ch_estimation/refsignal_dl.h"
|
||||||
|
#include "liblte/phy/common/phy_common.h"
|
||||||
|
|
||||||
|
#define CHEST_RS_AVERAGE_TIME 0
|
||||||
|
#define CHEST_RS_AVERAGE_FREQ 3
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
/** 3GPP LTE Downlink channel estimator and equalizer.
|
||||||
|
* Estimates the channel in the resource elements transmitting references and interpolates for the rest
|
||||||
|
* of the resource grid.
|
||||||
|
*
|
||||||
|
* The equalizer uses the channel estimates to produce an estimation of the transmitted symbol.
|
||||||
|
*
|
||||||
|
* This object depends on the refsignal_t object for creating the LTE CSR signal.
|
||||||
|
*/
|
||||||
|
|
||||||
|
typedef struct {
|
||||||
|
lte_cell_t cell;
|
||||||
|
refsignal_cs_t csr_signal;
|
||||||
|
cf_t *pilot_estimates[MAX_PORTS];
|
||||||
|
cf_t *pilot_recv_signal[MAX_PORTS];
|
||||||
|
cf_t *pilot_symbol_avg;
|
||||||
|
|
||||||
|
interp_t interp_time[MAX_PORTS];
|
||||||
|
interp_t interp_freq[MAX_PORTS];
|
||||||
|
|
||||||
|
float rssi;
|
||||||
|
float rsrq;
|
||||||
|
float rsrp;
|
||||||
|
} chest_dl_t;
|
||||||
|
|
||||||
|
|
||||||
|
LIBLTE_API int chest_dl_init(chest_dl_t *q,
|
||||||
|
lte_cell_t cell);
|
||||||
|
|
||||||
|
LIBLTE_API void chest_dl_free(chest_dl_t *q);
|
||||||
|
|
||||||
|
LIBLTE_API int chest_dl_estimate(chest_dl_t *q,
|
||||||
|
cf_t *input,
|
||||||
|
cf_t *ce[MAX_PORTS],
|
||||||
|
uint32_t sf_idx);
|
||||||
|
|
||||||
|
LIBLTE_API int chest_dl_estimate_port(chest_dl_t *q,
|
||||||
|
cf_t *input,
|
||||||
|
cf_t *ce,
|
||||||
|
uint32_t sf_idx,
|
||||||
|
uint32_t port_id);
|
||||||
|
|
||||||
|
LIBLTE_API int chest_dl_equalize_zf(chest_dl_t *q,
|
||||||
|
cf_t *input,
|
||||||
|
cf_t *ce[MAX_PORTS],
|
||||||
|
cf_t *output);
|
||||||
|
|
||||||
|
LIBLTE_API int chest_dl_equalize_mmse(chest_dl_t *q,
|
||||||
|
cf_t *input,
|
||||||
|
cf_t *ce[MAX_PORTS],
|
||||||
|
float *noise_estimate,
|
||||||
|
cf_t *output);
|
||||||
|
|
||||||
|
LIBLTE_API float chest_dl_get_rssi(chest_dl_t *q);
|
||||||
|
|
||||||
|
LIBLTE_API float chest_dl_get_rsrq(chest_dl_t *q);
|
||||||
|
|
||||||
|
LIBLTE_API float chest_dl_get_rsrp(chest_dl_t *q);
|
||||||
|
|
||||||
|
#endif
|
||||||
@ -0,0 +1,87 @@
|
|||||||
|
/**
|
||||||
|
*
|
||||||
|
* \section COPYRIGHT
|
||||||
|
*
|
||||||
|
* Copyright 2013-2014 The libLTE Developers. See the
|
||||||
|
* COPYRIGHT file at the top-level directory of this distribution.
|
||||||
|
*
|
||||||
|
* \section LICENSE
|
||||||
|
*
|
||||||
|
* This file is part of the libLTE library.
|
||||||
|
*
|
||||||
|
* libLTE is free software: you can redistribute it and/or modify
|
||||||
|
* it under the terms of the GNU Lesser General Public License as
|
||||||
|
* published by the Free Software Foundation, either version 3 of
|
||||||
|
* the License, or (at your option) any later version.
|
||||||
|
*
|
||||||
|
* libLTE 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 Lesser General Public License for more details.
|
||||||
|
*
|
||||||
|
* A copy of the GNU Lesser General Public License can be found in
|
||||||
|
* the LICENSE file in the top-level directory of this distribution
|
||||||
|
* and at http://www.gnu.org/licenses/.
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
#ifndef REFSIGNAL_DL_
|
||||||
|
#define REFSIGNAL_DL_
|
||||||
|
|
||||||
|
/* Object to manage Downlink reference signals for channel estimation.
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include "liblte/config.h"
|
||||||
|
#include "liblte/phy/common/phy_common.h"
|
||||||
|
|
||||||
|
typedef _Complex float cf_t;
|
||||||
|
|
||||||
|
// Number of references in a subframe: there are 2 symbols for port_id=0,1 x 2 slots x 2 refs per prb
|
||||||
|
#define REFSIGNAL_NUM_SF(nof_prb, port_id) (((port_id)<2?8:4)*(nof_prb))
|
||||||
|
#define REFSIGNAL_MAX_NUM_SF(nof_prb) REFSIGNAL_NUM_SF(nof_prb, 0)
|
||||||
|
|
||||||
|
#define REFSIGNAL_PILOT_IDX(i,l,ns,cell) (2*cell.nof_prb*((l)+2*((ns)%2))+(i))
|
||||||
|
|
||||||
|
|
||||||
|
/** Cell-Specific Reference Signal */
|
||||||
|
typedef struct LIBLTE_API {
|
||||||
|
lte_cell_t cell;
|
||||||
|
cf_t *pilots[NSUBFRAMES_X_FRAME]; // save 2 reference symbols per slot
|
||||||
|
} refsignal_cs_t;
|
||||||
|
|
||||||
|
|
||||||
|
LIBLTE_API int refsignal_cs_generate(refsignal_cs_t *q,
|
||||||
|
lte_cell_t cell);
|
||||||
|
|
||||||
|
LIBLTE_API void refsignal_cs_free(refsignal_cs_t *q);
|
||||||
|
|
||||||
|
LIBLTE_API int refsignal_cs_put_sf(lte_cell_t cell,
|
||||||
|
uint32_t port_id,
|
||||||
|
uint32_t sf_idx,
|
||||||
|
cf_t *pilots,
|
||||||
|
cf_t *sf_symbols);
|
||||||
|
|
||||||
|
LIBLTE_API int refsignal_cs_get_sf(lte_cell_t cell,
|
||||||
|
uint32_t port_id,
|
||||||
|
uint32_t sf_idx,
|
||||||
|
cf_t *sf_symbols,
|
||||||
|
cf_t *pilots);
|
||||||
|
|
||||||
|
LIBLTE_API uint32_t refsignal_fidx(lte_cell_t cell,
|
||||||
|
uint32_t ns,
|
||||||
|
uint32_t l,
|
||||||
|
uint32_t port_id,
|
||||||
|
uint32_t m);
|
||||||
|
|
||||||
|
LIBLTE_API uint32_t refsignal_nsymbol(lte_cell_t cell,
|
||||||
|
uint32_t ns,
|
||||||
|
uint32_t l);
|
||||||
|
|
||||||
|
LIBLTE_API uint32_t refsignal_cs_v(uint32_t port_id,
|
||||||
|
uint32_t ns,
|
||||||
|
uint32_t symbol_id);
|
||||||
|
|
||||||
|
LIBLTE_API uint32_t refsignal_cs_nof_symbols(uint32_t port_id);
|
||||||
|
|
||||||
|
#endif
|
||||||
@ -0,0 +1,317 @@
|
|||||||
|
/**
|
||||||
|
*
|
||||||
|
* \section COPYRIGHT
|
||||||
|
*
|
||||||
|
* Copyright 2013-2014 The libLTE Developers. See the
|
||||||
|
* COPYRIGHT file at the top-level directory of this distribution.
|
||||||
|
*
|
||||||
|
* \section LICENSE
|
||||||
|
*
|
||||||
|
* This file is part of the libLTE library.
|
||||||
|
*
|
||||||
|
* libLTE is free software: you can redistribute it and/or modify
|
||||||
|
* it under the terms of the GNU Lesser General Public License as
|
||||||
|
* published by the Free Software Foundation, either version 3 of
|
||||||
|
* the License, or (at your option) any later version.
|
||||||
|
*
|
||||||
|
* libLTE 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 Lesser General Public License for more details.
|
||||||
|
*
|
||||||
|
* A copy of the GNU Lesser General Public License can be found in
|
||||||
|
* the LICENSE file in the top-level directory of this distribution
|
||||||
|
* and at http://www.gnu.org/licenses/.
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <strings.h>
|
||||||
|
#include <string.h>
|
||||||
|
#include <complex.h>
|
||||||
|
|
||||||
|
#include "liblte/config.h"
|
||||||
|
|
||||||
|
#include "liblte/phy/ch_estimation/chest_dl.h"
|
||||||
|
#include "liblte/phy/utils/vector.h"
|
||||||
|
|
||||||
|
//#define VOLK_INTERP
|
||||||
|
|
||||||
|
/** 3GPP LTE Downlink channel estimator and equalizer.
|
||||||
|
* Estimates the channel in the resource elements transmitting references and interpolates for the rest
|
||||||
|
* of the resource grid.
|
||||||
|
*
|
||||||
|
* The equalizer uses the channel estimates to produce an estimation of the transmitted symbol.
|
||||||
|
*
|
||||||
|
* This object depends on the refsignal_t object for creating the LTE CSR signal.
|
||||||
|
*/
|
||||||
|
|
||||||
|
int chest_dl_init(chest_dl_t *q, lte_cell_t cell)
|
||||||
|
{
|
||||||
|
int ret = LIBLTE_ERROR_INVALID_INPUTS;
|
||||||
|
if (q != NULL &&
|
||||||
|
lte_cell_isvalid(&cell))
|
||||||
|
{
|
||||||
|
bzero(q, sizeof(chest_dl_t));
|
||||||
|
|
||||||
|
ret = refsignal_cs_generate(&q->csr_signal, cell);
|
||||||
|
if (ret != LIBLTE_SUCCESS) {
|
||||||
|
fprintf(stderr, "Error initializing CSR signal (%d)\n",ret);
|
||||||
|
goto clean_exit;
|
||||||
|
}
|
||||||
|
|
||||||
|
q->pilot_symbol_avg = vec_malloc(sizeof(cf_t) * 2*cell.nof_prb);
|
||||||
|
if (!q->pilot_symbol_avg) {
|
||||||
|
perror("malloc");
|
||||||
|
goto clean_exit;
|
||||||
|
}
|
||||||
|
|
||||||
|
for (int i=0;i<cell.nof_ports;i++) {
|
||||||
|
q->pilot_estimates[i] = vec_malloc(sizeof(cf_t) * REFSIGNAL_MAX_NUM_SF(cell.nof_prb));
|
||||||
|
if (!q->pilot_estimates[i]) {
|
||||||
|
perror("malloc");
|
||||||
|
goto clean_exit;
|
||||||
|
}
|
||||||
|
q->pilot_recv_signal[i] = vec_malloc(sizeof(cf_t) * REFSIGNAL_MAX_NUM_SF(cell.nof_prb));
|
||||||
|
if (!q->pilot_recv_signal[i]) {
|
||||||
|
perror("malloc");
|
||||||
|
goto clean_exit;
|
||||||
|
}
|
||||||
|
#ifdef VOLK_INTERP
|
||||||
|
ret = interp_init(&q->interp_freq[i], LINEAR, 2*cell.nof_prb, RE_X_RB/2);
|
||||||
|
if (ret == LIBLTE_SUCCESS) {
|
||||||
|
ret = interp_init(&q->interp_time[i], LINEAR, 2, CP_NSYMB(cell.cp) - 3);
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Init buffer for holding CE estimates averages */
|
||||||
|
|
||||||
|
q->cell = cell;
|
||||||
|
}
|
||||||
|
|
||||||
|
ret = LIBLTE_SUCCESS;
|
||||||
|
|
||||||
|
clean_exit:
|
||||||
|
if (ret != LIBLTE_SUCCESS) {
|
||||||
|
chest_dl_free(q);
|
||||||
|
}
|
||||||
|
return ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
void chest_dl_free(chest_dl_t *q)
|
||||||
|
{
|
||||||
|
refsignal_cs_free(&q->csr_signal);
|
||||||
|
|
||||||
|
if (q->pilot_symbol_avg) {
|
||||||
|
free(q->pilot_symbol_avg);
|
||||||
|
}
|
||||||
|
|
||||||
|
for (int i=0;i<MAX_PORTS;i++) {
|
||||||
|
if (q->pilot_estimates[i]) {
|
||||||
|
free(q->pilot_estimates[i]);
|
||||||
|
}
|
||||||
|
if (q->pilot_recv_signal[i]) {
|
||||||
|
free(q->pilot_recv_signal[i]);
|
||||||
|
}
|
||||||
|
#ifdef VOLK_INTERP
|
||||||
|
interp_free(&q->interp_freq[i]);
|
||||||
|
interp_free(&q->interp_time[i]);
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
#define pilot_est(idx) q->pilot_estimates[port_id][REFSIGNAL_PILOT_IDX(idx,l,ns,q->cell)]
|
||||||
|
|
||||||
|
#if CHEST_RS_AVERAGE_TIME > 1
|
||||||
|
cf_t timeavg[CHEST_RS_AVERAGE_TIME-1][12];
|
||||||
|
int nof_timeavg=0;
|
||||||
|
#endif
|
||||||
|
|
||||||
|
static void average_pilots(chest_dl_t *q, uint32_t sf_idx, uint32_t port_id)
|
||||||
|
{
|
||||||
|
uint32_t ns, l;
|
||||||
|
int i;
|
||||||
|
/* For each symbol with pilots in a slot */
|
||||||
|
for (ns=2*sf_idx;ns<2*(sf_idx+1);ns++) {
|
||||||
|
for (l=0;l<refsignal_cs_nof_symbols(port_id);l++) {
|
||||||
|
bzero(q->pilot_symbol_avg, 2*q->cell.nof_prb);
|
||||||
|
|
||||||
|
/** Frequency average */
|
||||||
|
#if CHEST_RS_AVERAGE_FREQ > 1
|
||||||
|
const uint32_t M = CHEST_RS_AVERAGE_FREQ;
|
||||||
|
cf_t xint[CHEST_RS_AVERAGE_FREQ];
|
||||||
|
int j, k;
|
||||||
|
/* Extrapolate first M/2 samples */
|
||||||
|
for (i=M/2-1;i>=0;i--) {
|
||||||
|
k=0;
|
||||||
|
for (j=i+M/2;j>=0;j--) {
|
||||||
|
xint[k]=pilot_est(j);
|
||||||
|
k++;
|
||||||
|
}
|
||||||
|
for (;j>=i-M/2;j--) {
|
||||||
|
if (k>=2) {
|
||||||
|
xint[k] = interp_linear_onesample(&xint[k-2]);
|
||||||
|
k++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
q->pilot_symbol_avg[i] = vec_acc_cc(xint,M)/M;
|
||||||
|
//q->pilot_symbol_avg[i] = (pilot_est(0)+pilot_est(1))/2;
|
||||||
|
}
|
||||||
|
|
||||||
|
for (i=M/2;i<2*q->cell.nof_prb-M/2;i++) {
|
||||||
|
q->pilot_symbol_avg[i] = vec_acc_cc(&pilot_est(i-M/2),M)/M;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Extrapolate last M/2 samples */
|
||||||
|
for (;i<2*q->cell.nof_prb;i++) {
|
||||||
|
k=0;
|
||||||
|
for (j=i-M/2;j<2*q->cell.nof_prb;j++) {
|
||||||
|
xint[k]=pilot_est(j);
|
||||||
|
k++;
|
||||||
|
}
|
||||||
|
for (;k<M;k++) {
|
||||||
|
if (k>=2) {
|
||||||
|
xint[k] = interp_linear_onesample(&xint[k-2]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
q->pilot_symbol_avg[i] = vec_acc_cc(xint,M)/M;
|
||||||
|
//q->pilot_symbol_avg[i] = (pilot_est(i)+pilot_est(i+1))/2;
|
||||||
|
|
||||||
|
}
|
||||||
|
#else
|
||||||
|
memcpy(q->pilot_symbol_avg, &pilot_est(0), 2*q->cell.nof_prb*sizeof(cf_t));
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* Time average last symbols */
|
||||||
|
#if CHEST_RS_AVERAGE_TIME > 1
|
||||||
|
if (nof_timeavg<CHEST_RS_AVERAGE_TIME-1) {
|
||||||
|
memcpy(timeavg[nof_timeavg],q->pilot_symbol_avg, 2*q->cell.nof_prb * sizeof(cf_t));
|
||||||
|
nof_timeavg++;
|
||||||
|
} else {
|
||||||
|
bzero(&pilot_est(0),2*q->cell.nof_prb*sizeof(cf_t));
|
||||||
|
for (i=0;i<nof_timeavg;i++) {
|
||||||
|
vec_sum_ccc(timeavg[i],&pilot_est(0),&pilot_est(0),2*q->cell.nof_prb);
|
||||||
|
}
|
||||||
|
vec_sum_ccc(q->pilot_symbol_avg,&pilot_est(0),&pilot_est(0),2*q->cell.nof_prb);
|
||||||
|
vec_sc_prod_cfc(&pilot_est(0), 1.0/CHEST_RS_AVERAGE_TIME, &pilot_est(0), 2*q->cell.nof_prb);
|
||||||
|
for (i=0;i<nof_timeavg-1;i++) {
|
||||||
|
memcpy(timeavg[i],timeavg[i+1],2*q->cell.nof_prb*sizeof(cf_t));
|
||||||
|
}
|
||||||
|
memcpy(timeavg[i],q->pilot_symbol_avg,2*q->cell.nof_prb*sizeof(cf_t));
|
||||||
|
}
|
||||||
|
#else
|
||||||
|
memcpy(&pilot_est(0), q->pilot_symbol_avg, 2*q->cell.nof_prb * sizeof(cf_t));
|
||||||
|
#endif
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
static void interpolate_pilots(chest_dl_t *q, cf_t *ce, uint32_t sf_idx, uint32_t port_id)
|
||||||
|
{
|
||||||
|
/* interpolate the symbols with references in the freq domain */
|
||||||
|
uint32_t ns, l, i,j;
|
||||||
|
cf_t x[2], y[MAX_NSYMB];
|
||||||
|
|
||||||
|
for (ns=2*sf_idx;ns<2*(sf_idx+1);ns++) {
|
||||||
|
for (l=0;l<refsignal_cs_nof_symbols(port_id);l++) {
|
||||||
|
uint32_t fidx_offset = refsignal_fidx(q->cell, ns, l, port_id, 0);
|
||||||
|
#ifdef VOLK_INTERP
|
||||||
|
interp_run_offset(&q->interp_freq[port_id],
|
||||||
|
&q->pilot_estimates[port_id][((ns%2)*2+l)*2*q->cell.nof_prb],
|
||||||
|
&ce[refsignal_nsymbol(q->cell,ns,l) * q->cell.nof_prb * RE_X_RB],
|
||||||
|
fidx_offset, RE_X_RB/2-fidx_offset);
|
||||||
|
#else
|
||||||
|
interp_linear_offset(&q->pilot_estimates[port_id][((ns%2)*2+l)*2*q->cell.nof_prb],
|
||||||
|
&ce[refsignal_nsymbol(q->cell,ns,l) * q->cell.nof_prb * RE_X_RB], RE_X_RB/2,
|
||||||
|
2*q->cell.nof_prb, fidx_offset, RE_X_RB/2-fidx_offset);
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
}
|
||||||
|
/* now interpolate in the time domain */
|
||||||
|
for (i=0;i<RE_X_RB*q->cell.nof_prb; i++) {
|
||||||
|
if (refsignal_cs_nof_symbols(port_id) > 1) {
|
||||||
|
for (ns=2*sf_idx;ns<2*(sf_idx+1);ns++) {
|
||||||
|
j=0;
|
||||||
|
for (l=0;l<refsignal_cs_nof_symbols(port_id);l++) {
|
||||||
|
x[j] = ce[refsignal_nsymbol(q->cell,ns,l) * q->cell.nof_prb * RE_X_RB + i];
|
||||||
|
j++;
|
||||||
|
}
|
||||||
|
#ifdef VOLK_INTERP
|
||||||
|
interp_run_offset(&q->interp_time[port_id], x, y,
|
||||||
|
0, CP_NSYMB(q->cell.cp) - 4);
|
||||||
|
#else
|
||||||
|
interp_linear_offset(x, y, CP_NSYMB(q->cell.cp) - 3,
|
||||||
|
2, 0, CP_NSYMB(q->cell.cp) - 4);
|
||||||
|
#endif
|
||||||
|
for (j=0;j<CP_NSYMB(q->cell.cp);j++) {
|
||||||
|
ce[(j+((ns%2)*CP_NSYMB(q->cell.cp))) * q->cell.nof_prb*RE_X_RB + i] = y[j];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
fprintf(stderr, "3/4 Ports interpolator not implemented\n");
|
||||||
|
exit(-1);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
int chest_dl_estimate_port(chest_dl_t *q, cf_t *input, cf_t *ce, uint32_t sf_idx, uint32_t port_id)
|
||||||
|
{
|
||||||
|
//filter2d_reset(&q->filter);
|
||||||
|
|
||||||
|
/* Get references from the input signal */
|
||||||
|
refsignal_cs_get_sf(q->cell, port_id, sf_idx, input, q->pilot_recv_signal[port_id]);
|
||||||
|
|
||||||
|
/* Use the known CSR signal to compute Least-squares estimates */
|
||||||
|
vec_div_ccc_mod1(q->pilot_recv_signal[port_id], q->csr_signal.pilots[sf_idx],
|
||||||
|
q->pilot_estimates[port_id], REFSIGNAL_NUM_SF(q->cell.nof_prb, port_id));
|
||||||
|
|
||||||
|
/* Average pilot estimates */
|
||||||
|
average_pilots(q, sf_idx, port_id);
|
||||||
|
|
||||||
|
/* Interpolate to create channel estimates for all resource grid */
|
||||||
|
interpolate_pilots(q, ce, sf_idx, port_id);
|
||||||
|
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
int chest_dl_estimate(chest_dl_t *q, cf_t *input, cf_t *ce[MAX_PORTS], uint32_t sf_idx)
|
||||||
|
{
|
||||||
|
uint32_t port_id;
|
||||||
|
|
||||||
|
for (port_id=0;port_id<q->cell.nof_ports;port_id++) {
|
||||||
|
chest_dl_estimate_port(q, input, ce[port_id], sf_idx, port_id);
|
||||||
|
}
|
||||||
|
return LIBLTE_SUCCESS;
|
||||||
|
}
|
||||||
|
|
||||||
|
int chest_dl_equalize_zf(chest_dl_t *q, cf_t *input, cf_t *ce[MAX_PORTS], cf_t *output)
|
||||||
|
{
|
||||||
|
fprintf(stderr, "Not implemented\n");
|
||||||
|
return -1;
|
||||||
|
}
|
||||||
|
|
||||||
|
int chest_dl_equalize_mmse(chest_dl_t *q, cf_t *input, cf_t *ce[MAX_PORTS], float *noise_estimate, cf_t *output)
|
||||||
|
{
|
||||||
|
fprintf(stderr, "Not implemented\n");
|
||||||
|
return -1;
|
||||||
|
}
|
||||||
|
|
||||||
|
float chest_dl_get_rssi(chest_dl_t *q) {
|
||||||
|
return q->rssi;
|
||||||
|
}
|
||||||
|
|
||||||
|
float chest_dl_get_rsrq(chest_dl_t *q) {
|
||||||
|
return q->rsrq;
|
||||||
|
}
|
||||||
|
|
||||||
|
float chest_dl_get_rsrp(chest_dl_t *q) {
|
||||||
|
return q->rsrp;
|
||||||
|
}
|
||||||
|
|
||||||
@ -0,0 +1,246 @@
|
|||||||
|
/**
|
||||||
|
*
|
||||||
|
* \section COPYRIGHT
|
||||||
|
*
|
||||||
|
* Copyright 2013-2014 The libLTE Developers. See the
|
||||||
|
* COPYRIGHT file at the top-level directory of this distribution.
|
||||||
|
*
|
||||||
|
* \section LICENSE
|
||||||
|
*
|
||||||
|
* This file is part of the libLTE library.
|
||||||
|
*
|
||||||
|
* libLTE is free software: you can redistribute it and/or modify
|
||||||
|
* it under the terms of the GNU Lesser General Public License as
|
||||||
|
* published by the Free Software Foundation, either version 3 of
|
||||||
|
* the License, or (at your option) any later version.
|
||||||
|
*
|
||||||
|
* libLTE 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 Lesser General Public License for more details.
|
||||||
|
*
|
||||||
|
* A copy of the GNU Lesser General Public License can be found in
|
||||||
|
* the LICENSE file in the top-level directory of this distribution
|
||||||
|
* and at http://www.gnu.org/licenses/.
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
|
||||||
|
#include <math.h>
|
||||||
|
#include <string.h>
|
||||||
|
#include <strings.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <complex.h>
|
||||||
|
|
||||||
|
#include "liblte/phy/common/phy_common.h"
|
||||||
|
#include "liblte/phy/ch_estimation/refsignal_dl.h"
|
||||||
|
#include "liblte/phy/utils/vector.h"
|
||||||
|
#include "liblte/phy/utils/debug.h"
|
||||||
|
#include "liblte/phy/common/sequence.h"
|
||||||
|
|
||||||
|
uint32_t refsignal_cs_v(uint32_t port_id, uint32_t ns, uint32_t symbol_id)
|
||||||
|
{
|
||||||
|
uint32_t v = 0;
|
||||||
|
switch (port_id) {
|
||||||
|
case 0:
|
||||||
|
if (symbol_id == 0) {
|
||||||
|
v = 0;
|
||||||
|
} else {
|
||||||
|
v = 3;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 1:
|
||||||
|
if (symbol_id == 0) {
|
||||||
|
v = 3;
|
||||||
|
} else {
|
||||||
|
v = 0;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 2:
|
||||||
|
v = 3 * (ns % 2);
|
||||||
|
break;
|
||||||
|
case 3:
|
||||||
|
v = 3 + 3 * (ns % 2);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
return v;
|
||||||
|
}
|
||||||
|
|
||||||
|
uint32_t refsignal_cs_nof_symbols(uint32_t port_id)
|
||||||
|
{
|
||||||
|
if (port_id < 2) {
|
||||||
|
return 2;
|
||||||
|
} else {
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
static uint32_t lp(uint32_t l, lte_cp_t cp) {
|
||||||
|
if (l == 1) {
|
||||||
|
return CP_NSYMB(cp) - 3;
|
||||||
|
} else {
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/** Allocates and precomputes the Cell-Specific Reference (CSR) signal for
|
||||||
|
* the 20 slots in a subframe
|
||||||
|
*/
|
||||||
|
int refsignal_cs_generate(refsignal_cs_t * q, lte_cell_t cell)
|
||||||
|
{
|
||||||
|
|
||||||
|
uint32_t c_init;
|
||||||
|
uint32_t i, ns, l;
|
||||||
|
uint32_t N_cp, mp;
|
||||||
|
sequence_t seq;
|
||||||
|
int ret = LIBLTE_ERROR_INVALID_INPUTS;
|
||||||
|
|
||||||
|
if (q != NULL &&
|
||||||
|
lte_cell_isvalid(&cell))
|
||||||
|
{
|
||||||
|
ret = LIBLTE_ERROR;
|
||||||
|
|
||||||
|
bzero(q, sizeof(refsignal_cs_t));
|
||||||
|
bzero(&seq, sizeof(sequence_t));
|
||||||
|
if (sequence_init(&seq, 2 * 2 * MAX_PRB)) {
|
||||||
|
goto free_and_exit;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (CP_ISNORM(cell.cp)) {
|
||||||
|
N_cp = 1;
|
||||||
|
} else {
|
||||||
|
N_cp = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
q->cell = cell;
|
||||||
|
|
||||||
|
for (i=0;i<NSUBFRAMES_X_FRAME;i++) {
|
||||||
|
q->pilots[i] = vec_malloc(sizeof(cf_t) * REFSIGNAL_MAX_NUM_SF(q->cell.nof_prb));
|
||||||
|
if (!q->pilots[i]) {
|
||||||
|
perror("malloc");
|
||||||
|
goto free_and_exit;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
for (ns=0;ns<NSLOTS_X_FRAME;ns++) {
|
||||||
|
for (l = 0; l < 2; l++) {
|
||||||
|
/* Compute sequence init value */
|
||||||
|
c_init = 1024 * (7 * (ns + 1) + lp(l,cell.cp) + 1) * (2 * cell.id + 1)
|
||||||
|
+ 2 * cell.id + N_cp;
|
||||||
|
|
||||||
|
/* generate sequence for this symbol and slot */
|
||||||
|
sequence_set_LTE_pr(&seq, c_init);
|
||||||
|
|
||||||
|
/* Compute signal */
|
||||||
|
for (i = 0; i < 2*q->cell.nof_prb; i++) {
|
||||||
|
mp = i + MAX_PRB - cell.nof_prb;
|
||||||
|
/* save signal */
|
||||||
|
q->pilots[ns/2][REFSIGNAL_PILOT_IDX(i,l,ns,q->cell)] =
|
||||||
|
(1 - 2 * (float) seq.c[2 * mp]) / sqrt(2) +
|
||||||
|
_Complex_I * (1 - 2 * (float) seq.c[2 * mp + 1]) / sqrt(2);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
sequence_free(&seq);
|
||||||
|
ret = LIBLTE_SUCCESS;
|
||||||
|
}
|
||||||
|
free_and_exit:
|
||||||
|
if (ret == LIBLTE_ERROR) {
|
||||||
|
sequence_free(&seq);
|
||||||
|
refsignal_cs_free(q);
|
||||||
|
}
|
||||||
|
return ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
/** Deallocates a refsignal_cs_t object allocated with refsignal_cs_init */
|
||||||
|
void refsignal_cs_free(refsignal_cs_t * q)
|
||||||
|
{
|
||||||
|
int i;
|
||||||
|
|
||||||
|
for (i=0;i<NSUBFRAMES_X_FRAME;i++) {
|
||||||
|
if (q->pilots[i]) {
|
||||||
|
free(q->pilots[i]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
bzero(q, sizeof(refsignal_cs_t));
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
inline uint32_t refsignal_fidx(lte_cell_t cell, uint32_t ns, uint32_t l, uint32_t port_id, uint32_t m) {
|
||||||
|
return 6*m + ((refsignal_cs_v(port_id, ns, lp(l,cell.cp)) + (cell.id % 6)) % 6);
|
||||||
|
}
|
||||||
|
|
||||||
|
inline uint32_t refsignal_nsymbol(lte_cell_t cell, uint32_t ns, uint32_t l) {
|
||||||
|
return (ns%2)*CP_NSYMB(cell.cp)+lp(l,cell.cp);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Maps a reference signal initialized with refsignal_cs_init() into an array of subframe symbols */
|
||||||
|
int refsignal_cs_put_sf(lte_cell_t cell, uint32_t port_id, uint32_t sf_idx,
|
||||||
|
cf_t *pilots, cf_t *sf_symbols)
|
||||||
|
{
|
||||||
|
uint32_t i, l, ns;
|
||||||
|
uint32_t fidx;
|
||||||
|
|
||||||
|
if (lte_cell_isvalid(&cell) &&
|
||||||
|
lte_sfidx_isvalid(sf_idx) &&
|
||||||
|
lte_portid_isvalid(port_id) &&
|
||||||
|
pilots != NULL &&
|
||||||
|
sf_symbols != NULL)
|
||||||
|
{
|
||||||
|
|
||||||
|
for (ns=2*sf_idx;ns<2*(sf_idx+1);ns++) {
|
||||||
|
for (l=0;l<refsignal_cs_nof_symbols(port_id);l++) {
|
||||||
|
/* Compute offset frequency index */
|
||||||
|
fidx = ((refsignal_cs_v(port_id, ns, lp(l,cell.cp)) + (cell.id % 6)) % 6);
|
||||||
|
for (i = 0; i < 2*cell.nof_prb; i++) {
|
||||||
|
uint32_t nsymbol = refsignal_nsymbol(cell, ns, l);
|
||||||
|
sf_symbols[SAMPLE_IDX(cell.nof_prb, nsymbol, fidx)] = pilots[REFSIGNAL_PILOT_IDX(i,l,ns,cell)];
|
||||||
|
fidx += 6; // 1 reference every 6 RE
|
||||||
|
DEBUG("Putting %d to %d (fidx: %d, lp:%d)\n",REFSIGNAL_PILOT_IDX(i,l,ns,cell), SAMPLE_IDX(cell.nof_prb, nsymbol, fidx),
|
||||||
|
fidx, nsymbol);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return LIBLTE_SUCCESS;
|
||||||
|
} else {
|
||||||
|
return LIBLTE_ERROR_INVALID_INPUTS;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/** Copies the RE containing references from an array of subframe symbols into the csr_signal[][].
|
||||||
|
* csr_signal[0] is the signal for the first OFDM symbol containing references and csr_signal[1] is the
|
||||||
|
* second OFDM symbol containing references (symbol 4 or 3 if port_id < 2)
|
||||||
|
*/
|
||||||
|
int refsignal_cs_get_sf(lte_cell_t cell, uint32_t port_id, uint32_t sf_idx,
|
||||||
|
cf_t *sf_symbols, cf_t *pilots)
|
||||||
|
{
|
||||||
|
uint32_t i, l, ns;
|
||||||
|
uint32_t fidx;
|
||||||
|
|
||||||
|
if (lte_cell_isvalid(&cell) &&
|
||||||
|
lte_sfidx_isvalid(sf_idx) &&
|
||||||
|
lte_portid_isvalid(port_id) &&
|
||||||
|
pilots != NULL &&
|
||||||
|
sf_symbols != NULL)
|
||||||
|
{
|
||||||
|
|
||||||
|
for (ns=2*sf_idx;ns<2*(sf_idx+1);ns++) {
|
||||||
|
for (l=0;l<refsignal_cs_nof_symbols(port_id);l++) {
|
||||||
|
/* Compute offset frequency index */
|
||||||
|
fidx = ((refsignal_cs_v(port_id, ns, lp(l,cell.cp)) + (cell.id % 6)) % 6);
|
||||||
|
for (i = 0; i < 2*cell.nof_prb; i++) {
|
||||||
|
uint32_t nsymbol = refsignal_nsymbol(cell, ns, l);
|
||||||
|
pilots[REFSIGNAL_PILOT_IDX(i,l,ns,cell)] = sf_symbols[SAMPLE_IDX(cell.nof_prb, nsymbol, fidx)];
|
||||||
|
fidx += 6; // 1 reference every 6 RE
|
||||||
|
DEBUG("Getting %d from %d (fidx: %d, lp:%d)\n",REFSIGNAL_PILOT_IDX(i,l,ns,cell), SAMPLE_IDX(cell.nof_prb, nsymbol, fidx),
|
||||||
|
fidx, nsymbol);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return LIBLTE_SUCCESS;
|
||||||
|
} else {
|
||||||
|
return LIBLTE_ERROR_INVALID_INPUTS;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
@ -0,0 +1,180 @@
|
|||||||
|
/*
|
||||||
|
* Copyright (c) 2012, Ismael Gomez-Miguelez <ismael.gomez@tsc.upc.edu>.
|
||||||
|
* This file is part of ALOE++ (http://flexnets.upc.edu/)
|
||||||
|
*
|
||||||
|
* ALOE++ is free software: you can redistribute it and/or modify
|
||||||
|
* it under the terms of the GNU Lesser General Public License as published by
|
||||||
|
* the Free Software Foundation, either version 3 of the License, or
|
||||||
|
* (at your option) any later version.
|
||||||
|
*
|
||||||
|
* ALOE++ 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 Lesser General Public License for more details.
|
||||||
|
*
|
||||||
|
* You should have received a copy of the GNU Lesser General Public License
|
||||||
|
* along with ALOE++. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include <string.h>
|
||||||
|
#include "liblte/phy/phy.h"
|
||||||
|
#ifdef UNDEF_BOOL
|
||||||
|
#undef bool
|
||||||
|
#endif
|
||||||
|
#include "mex.h"
|
||||||
|
|
||||||
|
|
||||||
|
/** MEX function to be called from MATLAB to test the channel estimator
|
||||||
|
*
|
||||||
|
* [estChannel] = liblte_chest(cell_id, nof_ports, inputSignal, (optional) sf_idx)
|
||||||
|
*
|
||||||
|
* Returns a matrix of size equal to the inputSignal matrix with the channel estimates
|
||||||
|
* for each resource element in inputSignal. The inputSignal matrix is the received Grid
|
||||||
|
* of size nof_resource_elements x nof_ofdm_symbols_in_subframe.
|
||||||
|
*
|
||||||
|
* The sf_idx is the subframe index only used if inputSignal is 1 subframe length.
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
#define CELLID prhs[0]
|
||||||
|
#define PORTS prhs[1]
|
||||||
|
#define INPUT prhs[2]
|
||||||
|
#define NOF_INPUTS 3
|
||||||
|
#define SFIDX prhs[3]
|
||||||
|
|
||||||
|
void help()
|
||||||
|
{
|
||||||
|
mexErrMsgTxt
|
||||||
|
("[estChannel] = liblte_chest(cell_id, nof_ports, inputSignal,[sf_idx])\n\n"
|
||||||
|
" Returns a matrix of size equal to the inputSignal matrix with the channel estimates\n "
|
||||||
|
"for each resource element in inputSignal. The inputSignal matrix is the received Grid\n"
|
||||||
|
"of size nof_resource_elements x nof_ofdm_symbols.\n"
|
||||||
|
"The sf_idx is the subframe index only used if inputSignal is 1 subframe length.\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
/* the gateway function */
|
||||||
|
void mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
|
||||||
|
{
|
||||||
|
|
||||||
|
int i;
|
||||||
|
lte_cell_t cell;
|
||||||
|
chest_dl_t chest;
|
||||||
|
cf_t *input_signal;
|
||||||
|
cf_t *ce[MAX_PORTS];
|
||||||
|
double *outr0, *outi0, *outr1, *outi1;
|
||||||
|
|
||||||
|
if (nrhs < NOF_INPUTS) {
|
||||||
|
help();
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (!mxIsDouble(CELLID) && mxGetN(CELLID) != 1 &&
|
||||||
|
!mxIsDouble(PORTS) && mxGetN(PORTS) != 1 &&
|
||||||
|
mxGetM(CELLID) != 1) {
|
||||||
|
help();
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
cell.id = (uint32_t) *((double*) mxGetPr(CELLID));
|
||||||
|
cell.nof_prb = mxGetM(INPUT)/RE_X_RB;
|
||||||
|
cell.nof_ports = (uint32_t) *((double*) mxGetPr(PORTS));
|
||||||
|
if ((mxGetN(INPUT)%14) == 0) {
|
||||||
|
cell.cp = CPNORM;
|
||||||
|
} else if ((mxGetN(INPUT)%12)!=0) {
|
||||||
|
cell.cp = CPEXT;
|
||||||
|
} else {
|
||||||
|
help();
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (chest_dl_init(&chest, cell)) {
|
||||||
|
mexErrMsgTxt("Error initiating channel estimator\n");
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
int nsubframes;
|
||||||
|
if (cell.cp == CPNORM) {
|
||||||
|
nsubframes = mxGetN(INPUT)/14;
|
||||||
|
} else {
|
||||||
|
nsubframes = mxGetN(INPUT)/12;
|
||||||
|
}
|
||||||
|
|
||||||
|
uint32_t sf_idx=0;
|
||||||
|
if (nsubframes == 1) {
|
||||||
|
if (nrhs != NOF_INPUTS+1) {
|
||||||
|
help();
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
sf_idx = (uint32_t) *((double*) mxGetPr(SFIDX));
|
||||||
|
}
|
||||||
|
|
||||||
|
double *inr=(double *)mxGetPr(INPUT);
|
||||||
|
double *ini=(double *)mxGetPi(INPUT);
|
||||||
|
|
||||||
|
/** Allocate input buffers */
|
||||||
|
int nof_re = 2*CP_NSYMB(cell.cp)*cell.nof_prb*RE_X_RB;
|
||||||
|
for (i=0;i<MAX_PORTS;i++) {
|
||||||
|
ce[i] = vec_malloc(nof_re * sizeof(cf_t));
|
||||||
|
}
|
||||||
|
input_signal = vec_malloc(nof_re * sizeof(cf_t));
|
||||||
|
|
||||||
|
/* Create output values */
|
||||||
|
if (nlhs >= 1) {
|
||||||
|
plhs[0] = mxCreateDoubleMatrix(1,nof_re * nsubframes, mxCOMPLEX);
|
||||||
|
outr0 = mxGetPr(plhs[0]);
|
||||||
|
outi0 = mxGetPi(plhs[0]);
|
||||||
|
}
|
||||||
|
if (nlhs == 2) {
|
||||||
|
plhs[1] = mxCreateDoubleMatrix(REFSIGNAL_MAX_NUM_SF(cell.nof_prb)*nsubframes, cell.nof_ports, mxCOMPLEX);
|
||||||
|
outr1 = mxGetPr(plhs[1]);
|
||||||
|
outi1 = mxGetPi(plhs[1]);
|
||||||
|
}
|
||||||
|
|
||||||
|
for (int sf=0;sf<nsubframes;sf++) {
|
||||||
|
/* Convert input to C complex type */
|
||||||
|
for (i=0;i<nof_re;i++) {
|
||||||
|
__real__ input_signal[i] = (float) *inr;
|
||||||
|
if (ini) {
|
||||||
|
__imag__ input_signal[i] = (float) *ini;
|
||||||
|
}
|
||||||
|
inr++;
|
||||||
|
ini++;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (nsubframes != 1) {
|
||||||
|
sf_idx = sf%10;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Loop through the 10 subframes */
|
||||||
|
if (chest_dl_estimate(&chest, input_signal, ce, sf_idx)) {
|
||||||
|
mexErrMsgTxt("Error running channel estimator\n");
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
if (nlhs >= 1) {
|
||||||
|
for (i=0;i<nof_re;i++) {
|
||||||
|
*outr0 = (double) crealf(ce[0][i]);
|
||||||
|
if (outi0) {
|
||||||
|
*outi0 = (double) cimagf(ce[0][i]);
|
||||||
|
}
|
||||||
|
outr0++;
|
||||||
|
outi0++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (nlhs == 2) {
|
||||||
|
for (int j=0;j<cell.nof_ports;j++) {
|
||||||
|
for (i=0;i<REFSIGNAL_NUM_SF(cell.nof_prb,j);i++) {
|
||||||
|
*outr1 = (double) crealf(chest.pilot_estimates[j][i]);
|
||||||
|
if (outi1) {
|
||||||
|
*outi1 = (double) cimagf(chest.pilot_estimates[j][i]);
|
||||||
|
}
|
||||||
|
outr1++;
|
||||||
|
outi1++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
Binary file not shown.
@ -0,0 +1,213 @@
|
|||||||
|
%% LTE Downlink Channel Estimation and Equalization
|
||||||
|
|
||||||
|
%% Cell-Wide Settings
|
||||||
|
|
||||||
|
clear
|
||||||
|
|
||||||
|
SNR_values_db=15;%linspace(5,20,8);
|
||||||
|
Nrealizations=1;
|
||||||
|
|
||||||
|
preEVM = zeros(length(SNR_values_db),Nrealizations);
|
||||||
|
postEVM_mmse = zeros(length(SNR_values_db),Nrealizations);
|
||||||
|
postEVM_mmse2 = zeros(length(SNR_values_db),Nrealizations);
|
||||||
|
postEVM_zf = zeros(length(SNR_values_db),Nrealizations);
|
||||||
|
postEVM_zf2 = zeros(length(SNR_values_db),Nrealizations);
|
||||||
|
|
||||||
|
|
||||||
|
enb.NDLRB = 6; % Number of resource blocks
|
||||||
|
enb.CellRefP = 1; % One transmit antenna port
|
||||||
|
enb.NCellID = 0; % Cell ID
|
||||||
|
enb.CyclicPrefix = 'Normal'; % Normal cyclic prefix
|
||||||
|
enb.DuplexMode = 'FDD'; % FDD
|
||||||
|
|
||||||
|
%% Channel Model Configuration
|
||||||
|
rng(1); % Configure random number generators
|
||||||
|
|
||||||
|
cfg.Seed = 1; % Random channel seed
|
||||||
|
cfg.NRxAnts = 1; % 1 receive antenna
|
||||||
|
cfg.DelayProfile = 'EVA'; % EVA delay spread
|
||||||
|
cfg.DopplerFreq = 120; % 120Hz Doppler frequency
|
||||||
|
cfg.MIMOCorrelation = 'Low'; % Low (no) MIMO correlation
|
||||||
|
cfg.InitTime = 0; % Initialize at time zero
|
||||||
|
cfg.NTerms = 16; % Oscillators used in fading model
|
||||||
|
cfg.ModelType = 'GMEDS'; % Rayleigh fading model type
|
||||||
|
cfg.InitPhase = 'Random'; % Random initial phases
|
||||||
|
cfg.NormalizePathGains = 'On'; % Normalize delay profile power
|
||||||
|
cfg.NormalizeTxAnts = 'On'; % Normalize for transmit antennas
|
||||||
|
|
||||||
|
%% Channel Estimator Configuration
|
||||||
|
|
||||||
|
cec.FreqWindow = 9; % Frequency averaging window in
|
||||||
|
% Resource Elements (REs)
|
||||||
|
cec.TimeWindow = 9; % Time averaging window in REs
|
||||||
|
cec.InterpType = 'Cubic'; % Cubic interpolation
|
||||||
|
cec.PilotAverage = 'UserDefined'; % Pilot averaging method
|
||||||
|
cec.InterpWinSize = 3; % Interpolate up to 3 subframes
|
||||||
|
% simultaneously
|
||||||
|
cec.InterpWindow = 'Centred'; % Interpolation windowing method
|
||||||
|
|
||||||
|
cec2.FreqWindow = 9; % Frequency averaging window in
|
||||||
|
% Resource Elements (REs)
|
||||||
|
cec2.TimeWindow = 9; % Time averaging window in REs
|
||||||
|
cec2.InterpType = 'Linear'; % Cubic interpolation
|
||||||
|
cec2.PilotAverage = 'UserDefined'; % Pilot averaging method
|
||||||
|
cec2.InterpWinSize = 3; % Interpolate up to 3 subframes
|
||||||
|
% simultaneously
|
||||||
|
cec2.InterpWindow = 'Centered'; % Interpolation windowing method
|
||||||
|
|
||||||
|
%% Subframe Resource Grid Size
|
||||||
|
|
||||||
|
gridsize = lteDLResourceGridSize(enb);
|
||||||
|
K = gridsize(1); % Number of subcarriers
|
||||||
|
L = gridsize(2); % Number of OFDM symbols in one subframe
|
||||||
|
P = gridsize(3); % Number of transmit antenna ports
|
||||||
|
|
||||||
|
for nreal=1:Nrealizations
|
||||||
|
%% Transmit Resource Grid
|
||||||
|
txGrid = [];
|
||||||
|
|
||||||
|
%% Payload Data Generation
|
||||||
|
% Number of bits needed is size of resource grid (K*L*P) * number of bits
|
||||||
|
% per symbol (2 for QPSK)
|
||||||
|
numberOfBits = K*L*P*2;
|
||||||
|
|
||||||
|
% Create random bit stream
|
||||||
|
inputBits = randi([0 1], numberOfBits, 1);
|
||||||
|
|
||||||
|
% Modulate input bits
|
||||||
|
inputSym = lteSymbolModulate(inputBits,'QPSK');
|
||||||
|
|
||||||
|
%% Frame Generation
|
||||||
|
|
||||||
|
% For all subframes within the frame
|
||||||
|
for sf = 0:10
|
||||||
|
|
||||||
|
% Set subframe number
|
||||||
|
enb.NSubframe = mod(sf,10);
|
||||||
|
|
||||||
|
% Generate empty subframe
|
||||||
|
subframe = lteDLResourceGrid(enb);
|
||||||
|
|
||||||
|
% Map input symbols to grid
|
||||||
|
subframe(:) = inputSym;
|
||||||
|
|
||||||
|
% Generate synchronizing signals
|
||||||
|
pssSym = ltePSS(enb);
|
||||||
|
sssSym = lteSSS(enb);
|
||||||
|
pssInd = ltePSSIndices(enb);
|
||||||
|
sssInd = lteSSSIndices(enb);
|
||||||
|
|
||||||
|
% Map synchronizing signals to the grid
|
||||||
|
subframe(pssInd) = pssSym;
|
||||||
|
subframe(sssInd) = sssSym;
|
||||||
|
|
||||||
|
% Generate cell specific reference signal symbols and indices
|
||||||
|
cellRsSym = lteCellRS(enb);
|
||||||
|
cellRsInd = lteCellRSIndices(enb);
|
||||||
|
|
||||||
|
% Map cell specific reference signal to grid
|
||||||
|
subframe(cellRsInd) = cellRsSym;
|
||||||
|
|
||||||
|
% Append subframe to grid to be transmitted
|
||||||
|
txGrid = [txGrid subframe]; %#ok
|
||||||
|
|
||||||
|
end
|
||||||
|
|
||||||
|
%% OFDM Modulation
|
||||||
|
|
||||||
|
[txWaveform,info] = lteOFDMModulate(enb,txGrid);
|
||||||
|
txGrid = txGrid(:,1:140);
|
||||||
|
|
||||||
|
%% SNR Configuration
|
||||||
|
|
||||||
|
for snr_idx=1:length(SNR_values_db)
|
||||||
|
SNRdB = SNR_values_db(snr_idx); % Desired SNR in dB
|
||||||
|
SNR = 10^(SNRdB/20); % Linear SNR
|
||||||
|
|
||||||
|
|
||||||
|
%% Fading Channel
|
||||||
|
|
||||||
|
cfg.SamplingRate = info.SamplingRate;
|
||||||
|
|
||||||
|
% Pass data through the fading channel model
|
||||||
|
rxWaveform = lteFadingChannel(cfg,txWaveform);
|
||||||
|
|
||||||
|
%% Additive Noise
|
||||||
|
|
||||||
|
% Calculate noise gain
|
||||||
|
N0 = 1/(sqrt(2.0*enb.CellRefP*double(info.Nfft))*SNR);
|
||||||
|
|
||||||
|
% Create additive white Gaussian noise
|
||||||
|
noise = N0*complex(randn(size(rxWaveform)),randn(size(rxWaveform)));
|
||||||
|
|
||||||
|
% Add noise to the received time domain waveform
|
||||||
|
%rxWaveform = rxWaveform + noise;
|
||||||
|
|
||||||
|
%% Synchronization
|
||||||
|
|
||||||
|
offset = lteDLFrameOffset(enb,rxWaveform);
|
||||||
|
rxWaveform = rxWaveform(1+offset:end,:);
|
||||||
|
|
||||||
|
%% OFDM Demodulation
|
||||||
|
rxGrid = lteOFDMDemodulate(enb,rxWaveform);
|
||||||
|
%rxGrid = txGrid;
|
||||||
|
|
||||||
|
addpath('../../debug/lte/phy/lib/ch_estimation/test')
|
||||||
|
%% Channel Estimation
|
||||||
|
[estChannel, noiseEst, avg_ref1, noavg_ref1] = lteDLChannelEstimate2(enb,cec2,rxGrid);
|
||||||
|
[dumm, refs] = liblte_chest(enb.NCellID,enb.CellRefP,rxGrid);
|
||||||
|
%estChannel2=reshape(estChannel2,72,[]);
|
||||||
|
[estChannel2] = lteDLChannelEstimate3(enb,cec2,rxGrid,refs);
|
||||||
|
|
||||||
|
%error(snr_idx,nreal) = mean(mean(abs(avg_ref-transpose(refs)),2));
|
||||||
|
|
||||||
|
%% MMSE Equalization
|
||||||
|
eqGrid_mmse = lteEqualizeMMSE(rxGrid, estChannel, noiseEst);
|
||||||
|
eqGrid_mmse2 = lteEqualizeMMSE(rxGrid, estChannel2, noiseEst);
|
||||||
|
|
||||||
|
eqGrid_zf = lteEqualizeZF(rxGrid, estChannel);
|
||||||
|
eqGrid_zf2 = lteEqualizeZF(rxGrid, estChannel2);
|
||||||
|
|
||||||
|
%% Analysis
|
||||||
|
|
||||||
|
% Compute EVM across all input values
|
||||||
|
% EVM of pre-equalized receive signal
|
||||||
|
preEqualisedEVM = lteEVM(txGrid,rxGrid);
|
||||||
|
fprintf('%d-%d: Pre-EQ: %0.3f%%\n', ...
|
||||||
|
snr_idx,nreal,preEqualisedEVM.RMS*100);
|
||||||
|
|
||||||
|
%EVM of post-equalized receive signal
|
||||||
|
postEqualisedEVM_mmse = lteEVM(txGrid,eqGrid_mmse);
|
||||||
|
fprintf('%d-%d: MMSE: %0.3f%%\n', ...
|
||||||
|
snr_idx,nreal,postEqualisedEVM_mmse.RMS*100);
|
||||||
|
postEqualisedEVM_mmse2 = lteEVM(txGrid,eqGrid_mmse2);
|
||||||
|
fprintf('%d-%d: MMSE-lin: %0.3f%%\n', ...
|
||||||
|
snr_idx,nreal,postEqualisedEVM_mmse2.RMS*100);
|
||||||
|
|
||||||
|
|
||||||
|
postEqualisedEVM_zf = lteEVM(txGrid,eqGrid_zf);
|
||||||
|
fprintf('%d-%d: zf: %0.3f%%\n', ...
|
||||||
|
snr_idx,nreal,postEqualisedEVM_zf.RMS*100);
|
||||||
|
postEqualisedEVM_zf2 = lteEVM(txGrid,eqGrid_zf2);
|
||||||
|
fprintf('%d-%d: zf-linear: %0.3f%%\n', ...
|
||||||
|
snr_idx,nreal,postEqualisedEVM_zf2.RMS*100);
|
||||||
|
|
||||||
|
preEVM(snr_idx,nreal) =preEqualisedEVM.RMS;
|
||||||
|
postEVM_mmse(snr_idx,nreal) = postEqualisedEVM_mmse.RMS;
|
||||||
|
postEVM_mmse2(snr_idx,nreal) = postEqualisedEVM_mmse2.RMS;
|
||||||
|
postEVM_zf(snr_idx,nreal) = postEqualisedEVM_zf.RMS;
|
||||||
|
postEVM_zf2(snr_idx,nreal) = postEqualisedEVM_zf2.RMS;
|
||||||
|
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
plot(SNR_values_db, mean(preEVM,2), ...
|
||||||
|
SNR_values_db, mean(postEVM_mmse,2), ...
|
||||||
|
SNR_values_db, mean(postEVM_mmse2,2), ...
|
||||||
|
SNR_values_db, mean(postEVM_zf,2), ...
|
||||||
|
SNR_values_db, mean(postEVM_zf2,2))
|
||||||
|
legend('No Eq','MMSE','MMSE-linear','ZF','ZF-linear')
|
||||||
|
%plot(SNR_values_db, mean(error,2))
|
||||||
|
grid on
|
||||||
|
|
||||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue