Mercurial > hg > smallbox
annotate util/ksvd utils/addtocols.c @ 218:c38d965b5a1d luisf_dev
Moved CVX_add_const_Audio_declipping.m from solvers to the examples/AudioInpainting folder.
author | Aris Gretsistas <aris.gretsistas@eecs.qmul.ac.uk> |
---|---|
date | Thu, 22 Mar 2012 15:37:45 +0000 |
parents | c3eca463202d |
children |
rev | line source |
---|---|
idamnjanovic@70 | 1 /************************************************************************** |
idamnjanovic@70 | 2 * |
idamnjanovic@70 | 3 * File name: addtocols.c |
idamnjanovic@70 | 4 * |
idamnjanovic@70 | 5 * Ron Rubinstein |
idamnjanovic@70 | 6 * Computer Science Department |
idamnjanovic@70 | 7 * Technion, Haifa 32000 Israel |
idamnjanovic@70 | 8 * ronrubin@cs |
idamnjanovic@70 | 9 * |
idamnjanovic@70 | 10 * Last Updated: 19.4.2009 |
idamnjanovic@70 | 11 * |
idamnjanovic@70 | 12 *************************************************************************/ |
idamnjanovic@70 | 13 |
idamnjanovic@70 | 14 |
idamnjanovic@70 | 15 #include "mex.h" |
idamnjanovic@70 | 16 |
idamnjanovic@70 | 17 |
idamnjanovic@70 | 18 /* Input Arguments */ |
idamnjanovic@70 | 19 |
idamnjanovic@70 | 20 #define X_IN prhs[0] |
idamnjanovic@70 | 21 #define V_IN prhs[1] |
idamnjanovic@70 | 22 |
idamnjanovic@70 | 23 |
idamnjanovic@70 | 24 /* Output Arguments */ |
idamnjanovic@70 | 25 |
idamnjanovic@70 | 26 #define Y_OUT plhs[0] |
idamnjanovic@70 | 27 |
idamnjanovic@70 | 28 |
idamnjanovic@70 | 29 void mexFunction(int nlhs, mxArray *plhs[], |
idamnjanovic@70 | 30 int nrhs, const mxArray*prhs[]) |
idamnjanovic@70 | 31 |
idamnjanovic@70 | 32 { |
idamnjanovic@70 | 33 double *x, *y, *v, *xend; |
idamnjanovic@70 | 34 mwSize m,n,m1,n1; |
idamnjanovic@70 | 35 mwIndex counter; |
idamnjanovic@70 | 36 |
idamnjanovic@70 | 37 |
idamnjanovic@70 | 38 /* Check for proper number of arguments */ |
idamnjanovic@70 | 39 |
idamnjanovic@70 | 40 if (nrhs != 2) { |
idamnjanovic@70 | 41 mexErrMsgTxt("Two input arguments required."); |
idamnjanovic@70 | 42 } else if (nlhs > 1) { |
idamnjanovic@70 | 43 mexErrMsgTxt("Too many output arguments."); |
idamnjanovic@70 | 44 } |
idamnjanovic@70 | 45 |
idamnjanovic@70 | 46 |
idamnjanovic@70 | 47 /* Check the the input dimensions */ |
idamnjanovic@70 | 48 |
idamnjanovic@70 | 49 m = mxGetM(X_IN); |
idamnjanovic@70 | 50 n = mxGetN(X_IN); |
idamnjanovic@70 | 51 if (!mxIsDouble(X_IN) || mxIsComplex(X_IN) || mxGetNumberOfDimensions(X_IN)>2) { |
idamnjanovic@70 | 52 mexErrMsgTxt("ADDTOCOLS requires that X be a double matrix."); |
idamnjanovic@70 | 53 } |
idamnjanovic@70 | 54 m1 = mxGetM(V_IN); |
idamnjanovic@70 | 55 n1 = mxGetN(V_IN); |
idamnjanovic@70 | 56 if (!mxIsDouble(V_IN) || mxIsComplex(V_IN) || (m1!=1 && n1!=1)) { |
idamnjanovic@70 | 57 mexErrMsgTxt("ADDTOCOLS requires that V be a double vector."); |
idamnjanovic@70 | 58 } |
idamnjanovic@70 | 59 if ((m1==1 && n1!=n) || (n1==1 && m1!=n)) { |
idamnjanovic@70 | 60 mexErrMsgTxt("Error in ADDTOCOLS: dimensions of V and X must agree."); |
idamnjanovic@70 | 61 } |
idamnjanovic@70 | 62 |
idamnjanovic@70 | 63 |
idamnjanovic@70 | 64 /* Create a matrix for the return argument */ |
idamnjanovic@70 | 65 Y_OUT = mxCreateDoubleMatrix(m, n, mxREAL); |
idamnjanovic@70 | 66 |
idamnjanovic@70 | 67 |
idamnjanovic@70 | 68 /* Assign pointers to the various parameters */ |
idamnjanovic@70 | 69 x = mxGetPr(X_IN); |
idamnjanovic@70 | 70 v = mxGetPr(V_IN); |
idamnjanovic@70 | 71 y = mxGetPr(Y_OUT); |
idamnjanovic@70 | 72 |
idamnjanovic@70 | 73 |
idamnjanovic@70 | 74 /* Do the actual computation */ |
idamnjanovic@70 | 75 |
idamnjanovic@70 | 76 xend = x+(m*n); |
idamnjanovic@70 | 77 counter = 0; |
idamnjanovic@70 | 78 while (x<xend) { |
idamnjanovic@70 | 79 (*y) = (*x) + (*v); |
idamnjanovic@70 | 80 y++; x++; counter++; |
idamnjanovic@70 | 81 if (counter==m) {v++; counter=0;} |
idamnjanovic@70 | 82 } |
idamnjanovic@70 | 83 |
idamnjanovic@70 | 84 return; |
idamnjanovic@70 | 85 } |