s_mod_plain.c

WCDMA的仿真程序,分别用C和MATLAB两种语言仿真

/*
 |
 | Copyright disclaimer:
 |   This software was developed at the National Institute of Standards
 |   and Technology by employees of the Federal Government in the course
 |   of their official duties. Pursuant to title 17 Section 105 of the
 |   United States Code this software is not subject to copyright
 |   protection and is in the public domain.
 |
 |   We would appreciate acknowledgement if the software is used.
 |
*/

/*
 | Project:     WCDMA simulation environment
 | Module:      
 | Author:      
 | Date:        June 14, 1999
 |
 | History:
 | 
 |              June 14,  1999 Maarit Melvasalo 
 |                      Initial version. 
 |                      to internal
 *
 *  File    : s_dl_discmod.c
 *  Abstract:
 *
 * USER GIVEN PARAMETERS
 *
 * 0: in_len   = Size of real input vector (= packet size) 
 * 1: nFrames  = sample time
 */

#define S_FUNCTION_NAME s_mod_plain
#define S_FUNCTION_LEVEL 2

#include <math.h>
#include "simstruc.h"
#include "tmwtypes.h"
#include "config_wcdma.h"
#include "wcdma_simulink.h"

/* USER GIVEN PARAMETERS AND DEFINITIONS /**/

/* General Parameters /**/
#define NPARAMS 2


#define IN_SIZE(S)  ssGetSFcnParam(S,0)
#define in_len (int_T)(mxGetPr(IN_SIZE(S))[0])

#define frame(S) ssGetSFcnParam(S,1)   /* /**/
#define nFrames (int_T)(mxGetPr(frame(S))[0]) 

#define I(element) (*IPtrs[element])


#define td  nFrames * TD_FRAME     /* sample time/**/



/*====================*
 * S-function methods *
 *====================*/

/* Function: mdlInitializeSizes ===============================================
 * Abstract:
 *    The sizes information is used by Simulink to determine the S-function
 *    block's characteristics (number of inputs, outputs, states, etc.).
 */
static void mdlInitializeSizes(SimStruct *S)
{
  ssSetNumSFcnParams(S, NPARAMS);  /* Number of expected parameters */

  if (ssGetNumSFcnParams(S) != ssGetSFcnParamsCount(S)) 
 {
      return;
 }
  
  if (!ssSetNumInputPorts(S, 1)) return;  /* ONE input port/**/
    ssSetInputPortWidth(S, 0, in_len);
    ssSetInputPortDirectFeedThrough(S, 0, 1);

    if (!ssSetNumOutputPorts(S, 2)) return; /* TWO output port/**/
    ssSetOutputPortWidth(S, 0,in_len/2);
    ssSetOutputPortWidth(S, 1,in_len/2);

    ssSetNumSampleTimes(S, 1);

    ssSetSFcnParamNotTunable(S,0); /* speeds up simulations*/  
    ssSetSFcnParamNotTunable(S,1);  /**/  

    /* Take care when specifying exception free code - see sfuntmpl.doc */
    ssSetOptions(S, SS_OPTION_EXCEPTION_FREE_CODE);
}   /* do not use mxCalloc or  mexErrMsgTxt functions */


/* Function: mdlInitializeSampleTimes =========================================
 * Abstract:
 *    Specifiy that sampletime is given by the user
 */
static void mdlInitializeSampleTimes(SimStruct *S)
{   
     ssSetSampleTime(S, 0, td); 
     ssSetOffsetTime(S, 0, 0.0);
}


/* Function: mdlOutputs =======================================================
 * Abstract:
 * 
 */
static void mdlOutputs(SimStruct *S, int_T tid)
{
    real_T            *yI    = ssGetOutputPortRealSignal(S,0);
    real_T            *yQ    = ssGetOutputPortRealSignal(S,1);
    InputRealPtrsType IPtrs = ssGetInputPortRealSignalPtrs(S,0);
    int_T             lp,tmp;
    
    for (lp=0; lp< (in_len/2); lp++){
      yI[lp] = I( 2 * lp );
      yQ[lp] = I( 2 * lp + 1 );
    }/**/
}


/* Function: mdlTerminate =====================================================
 * Abstract:
 */
static void mdlTerminate(SimStruct *S)
{ 

}

#ifdef  MATLAB_MEX_FILE    /* Is this file being compiled as a MEX-file? */
#include "simulink.c"      /* MEX-file interface mechanism */
#else
#include "cg_sfun.h"       /* Code generation registration function */
#endif