1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
/* file: CreateSRandomInterleaver.c
Description: Produce a S-random interleaver
The calling syntax is:
[alpha] = CreateSRandomInterleaver( Length, S )
alpha = the interleaver in a length K vector
Length = the size of the interleaver
S = S value
Copyright (C) 2005-2006, Matthew C. Valenti and Yufei Wu
Last updated on Jan. 11, 2006
Function CreateSRandomInterleaver is part of the Iterative Solutions
Coded Modulation Library. The Iterative Solutions Coded Modulation
Library 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 2.1 of the License,
or (at your option) any later version.
This library 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 this library; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
*/
#include <math.h>
#include <mex.h>
#include <Matrix.h>
#include <stdlib.h>
/* library of functions */
#include "./include/srandom.h"
/* Input Arguments */
#define LENGTH prhs[0]
#define SVAL prhs[1]
/* Output Arguments */
#define OUTPUT plhs[0]
/* main function that interfaces with MATLAB */
void mexFunction(
int nlhs,
mxArray *plhs[],
int nrhs,
const mxArray *prhs[] )
{
int DataLength;
double *output_p;
int *alpha_code; /* interleaver */
int i;
int s_value;
/* Check for proper number of arguments */
if (nrhs != 2) {
mexErrMsgTxt("[alpha] = CreateSRandomInterleaver( Length, S )");
} else if (nlhs > 1) {
mexErrMsgTxt("[alpha] = CreateSRandomInterleaver( Length, S )");
}
/* initialize the input data */
DataLength = (int) *mxGetPr(LENGTH);
s_value = (int) *mxGetPr(SVAL);
/* Create the interleaver */
/* printf( "\nMaking interleaver\n" ); */
alpha_code = (int*)calloc( DataLength, sizeof(int) );
CreateSRandomInterleaver( DataLength, s_value, alpha_code );
/* printf( "Done making the interleaver\n" );
printf( "K = %d\n", DataLength ); */
/* Output encoded data */
OUTPUT = mxCreateDoubleMatrix(1, DataLength, mxREAL);
output_p = mxGetPr(OUTPUT);
for (i=0;i<DataLength;i++) {
output_p[i] = alpha_code[i];
/* printf( "%d", CodeBits[i] ); */
}
/* printf( "\n" ); */
free( alpha_code );
return;
}
|
