c2_fibonacci_determinant_ml71.c

m files for SIAM book, Numerical Computing with MATLAB

      double *pr = mxGetPr(mxSize);
      pr[0] = (double)(1);
      pr[1] = (double)(1);
      mxSetField(mxData,0,"size",mxSize);
    }
    {
      const char *typeFields[] = {"base","aliasId","fixpt"};
      mxArray *mxType = mxCreateStructMatrix(1,1,3,typeFields);
      mxSetField(mxType,0,"base",mxCreateDoubleScalar(10));
      mxSetField(mxType,0,"aliasId",mxCreateDoubleScalar(0));
      mxSetField(mxType,0,"fixpt",mxCreateDoubleMatrix(0,0,mxREAL));
      mxSetField(mxData,0,"type",mxType);
    }
    mxSetField(mxData,0,"complexity",mxCreateDoubleScalar(0));
    mxSetField(mxAutoinheritanceInfo,0,"outputs",mxData);
  }
  return(mxAutoinheritanceInfo);
}

static void chart_debug_initialization(SimStruct *S, unsigned int
 fullDebuggerInitialization)
{
  if(ssIsFirstInitCond(S) && fullDebuggerInitialization==1) {
    /* do this only if simulation is starting */
    if(!sim_mode_is_rtw_gen(S)) {
      {
        unsigned int chartAlreadyPresent;
        chartAlreadyPresent =
          sf_debug_initialize_chart(_Fibonacci_determinant_ML71MachineNumber_,
         2,
         1,
         1,
         2,
         0,
         0,
         0,
         0,
         0,
         &(chartInstance.chartNumber),
         &(chartInstance.instanceNumber),
         ssGetPath(S),
         (void *)S);
        if(chartAlreadyPresent==0) {
          /* this is the first instance */
          init_script_number_translation(_Fibonacci_determinant_ML71MachineNumber_,chartInstance.chartNumber);
          sf_debug_set_chart_disable_implicit_casting(_Fibonacci_determinant_ML71MachineNumber_,chartInstance.chartNumber,1);
          sf_debug_set_chart_event_thresholds(_Fibonacci_determinant_ML71MachineNumber_,
           chartInstance.chartNumber,
           0,
           0,
           0);

          {
            unsigned int dimVector[2];
            dimVector[0]= 2;
            dimVector[1]= 2;
            _SFD_SET_DATA_PROPS(0,1,1,0,SF_DOUBLE,2,&(dimVector[0]),0,0,0,0.0,1.0,0,"u",0,c2_sf_marshall);
          }
          _SFD_SET_DATA_PROPS(1,2,0,1,SF_DOUBLE,0,NULL,0,0,0,0.0,1.0,0,"d",0,c2_b_sf_marshall);
          _SFD_STATE_INFO(0,0,2);
          _SFD_CH_SUBSTATE_COUNT(0);
          _SFD_CH_SUBSTATE_DECOMP(0);
        }
        _SFD_CV_INIT_CHART(0,0,0,0);
        {
          _SFD_CV_INIT_STATE(0,0,0,0,0,0,NULL,NULL);
        }

        _SFD_CV_INIT_TRANS(0,0,NULL,NULL,0,NULL);

        /* Initialization of EML Model Coverage */
        _SFD_CV_INIT_EML(0,1,0,0,0,0,0,0);
        _SFD_CV_INIT_EML_FCN(0,0,"eML_blk_kernel",0,-1,155);
        _SFD_TRANS_COV_WTS(0,0,0,1,0);
        if(chartAlreadyPresent==0)
        {
          _SFD_TRANS_COV_MAPS(0,
           0,NULL,NULL,
           0,NULL,NULL,
           1,NULL,NULL,
           0,NULL,NULL);
        }

        {
          real_T (*c2_u)[4];
          real_T *c2_d;
          c2_u = (real_T (*)[4])ssGetInputPortSignal(chartInstance.S, 0);
          c2_d = (real_T *)ssGetOutputPortSignal(chartInstance.S, 1);
          _SFD_SET_DATA_VALUE_PTR(0U, c2_u);
          _SFD_SET_DATA_VALUE_PTR(1U, c2_d);
        }
      }
    }
  } else {
    sf_debug_reset_current_state_configuration(_Fibonacci_determinant_ML71MachineNumber_,chartInstance.chartNumber,chartInstance.instanceNumber);
  }
}

static void sf_opaque_initialize_c2_Fibonacci_determinant_ML71(void
 *chartInstanceVar)
{
  chart_debug_initialization(chartInstance.S,0);
  initialize_params_c2_Fibonacci_determinant_ML71();
  initialize_c2_Fibonacci_determinant_ML71();
}

static void sf_opaque_enable_c2_Fibonacci_determinant_ML71(void
 *chartInstanceVar)
{
  enable_c2_Fibonacci_determinant_ML71();
}

static void sf_opaque_disable_c2_Fibonacci_determinant_ML71(void
 *chartInstanceVar)
{
  disable_c2_Fibonacci_determinant_ML71();
}

static void sf_opaque_gateway_c2_Fibonacci_determinant_ML71(void
 *chartInstanceVar)
{
  sf_c2_Fibonacci_determinant_ML71();
}

static void sf_opaque_terminate_c2_Fibonacci_determinant_ML71(void
 *chartInstanceVar)
{
  if (sim_mode_is_rtw_gen(chartInstance.S) ||
   sim_mode_is_external(chartInstance.S)) {
    sf_clear_rtw_identifier(chartInstance.S);
  }
  finalize_c2_Fibonacci_determinant_ML71();
}

extern unsigned int sf_machine_global_initializer_called(void);
static void mdlProcessParameters_c2_Fibonacci_determinant_ML71(SimStruct *S)
{
  int i;
  for(i=0;i<ssGetNumRunTimeParams(S);i++) {
    if(ssGetSFcnParamTunable(S,i)) {
      ssUpdateDlgParamAsRunTimeParam(S,i);
    }
  }
  if(sf_machine_global_initializer_called()) {
    initialize_params_c2_Fibonacci_determinant_ML71();
  }
}

static void mdlSetWorkWidths_c2_Fibonacci_determinant_ML71(SimStruct *S)
{
  if(sim_mode_is_rtw_gen(S) || sim_mode_is_external(S)) {
    int_T chartIsInlinable =
      (int_T)sf_is_chart_inlinable("Fibonacci_determinant_ML71",2);
    ssSetStateflowIsInlinable(S,chartIsInlinable);
    ssSetEnableFcnIsTrivial(S,1);
    ssSetDisableFcnIsTrivial(S,1);
    ssSetNotMultipleInlinable(S,sf_rtw_info_uint_prop("Fibonacci_determinant_ML71",2,"gatewayCannotBeInlinedMultipleTimes"));
    if(chartIsInlinable) {
      ssSetInputPortOptimOpts(S, 0, SS_REUSABLE_AND_LOCAL);
      sf_mark_chart_expressionable_inputs(S,"Fibonacci_determinant_ML71",2,1);
      sf_mark_chart_reusable_outputs(S,"Fibonacci_determinant_ML71",2,1);
    }
    sf_set_rtw_dwork_info(S,"Fibonacci_determinant_ML71",2);
    ssSetHasSubFunctions(S,!(chartIsInlinable));
    ssSetOptions(S,ssGetOptions(S)|SS_OPTION_WORKS_WITH_CODE_REUSE);
  }

  ssSetChecksum0(S,(3142793855U));
  ssSetChecksum1(S,(4169972763U));
  ssSetChecksum2(S,(2858531884U));
  ssSetChecksum3(S,(341346434U));

  ssSetmdlDerivatives(S, NULL);

  ssSetExplicitFCSSCtrl(S,1);
}

static void mdlRTW_c2_Fibonacci_determinant_ML71(SimStruct *S)
{
  if(sim_mode_is_rtw_gen(S)) {
    sf_write_symbol_mapping(S, "Fibonacci_determinant_ML71", 2);
    ssWriteRTWStrParam(S, "StateflowChartType", "Embedded MATLAB");
  }
}

static void mdlStart_c2_Fibonacci_determinant_ML71(SimStruct *S)
{
  chartInstance.chartInfo.chartInstance = NULL;
  chartInstance.chartInfo.isEMLChart = 1;
  chartInstance.chartInfo.chartInitialized = 0;
  chartInstance.chartInfo.sFunctionGateway =
    sf_opaque_gateway_c2_Fibonacci_determinant_ML71;
  chartInstance.chartInfo.initializeChart =
    sf_opaque_initialize_c2_Fibonacci_determinant_ML71;
  chartInstance.chartInfo.terminateChart =
    sf_opaque_terminate_c2_Fibonacci_determinant_ML71;
  chartInstance.chartInfo.enableChart =
    sf_opaque_enable_c2_Fibonacci_determinant_ML71;
  chartInstance.chartInfo.disableChart =
    sf_opaque_disable_c2_Fibonacci_determinant_ML71;
  chartInstance.chartInfo.zeroCrossings = NULL;
  chartInstance.chartInfo.outputs = NULL;
  chartInstance.chartInfo.derivatives = NULL;
  chartInstance.chartInfo.mdlRTW = mdlRTW_c2_Fibonacci_determinant_ML71;
  chartInstance.chartInfo.mdlStart = mdlStart_c2_Fibonacci_determinant_ML71;
  chartInstance.chartInfo.mdlSetWorkWidths =
    mdlSetWorkWidths_c2_Fibonacci_determinant_ML71;
  chartInstance.chartInfo.extModeExec = NULL;
  chartInstance.chartInfo.restoreLastMajorStepConfiguration = NULL;
  chartInstance.chartInfo.restoreBeforeLastMajorStepConfiguration = NULL;
  chartInstance.chartInfo.storeCurrentConfiguration = NULL;
  chartInstance.S = S;
  ssSetUserData(S,(void *)(&(chartInstance.chartInfo))); /* register the chart instance with simstruct */

  if(!sim_mode_is_rtw_gen(S)) {
    init_dsm_address_info();
  }
  chart_debug_initialization(S,1);
}

void c2_Fibonacci_determinant_ML71_method_dispatcher(SimStruct *S, int_T method,
 void *data)
{
  switch (method) {
   case SS_CALL_MDL_START:
    mdlStart_c2_Fibonacci_determinant_ML71(S);
    break;
   case SS_CALL_MDL_SET_WORK_WIDTHS:
    mdlSetWorkWidths_c2_Fibonacci_determinant_ML71(S);
    break;
   case SS_CALL_MDL_PROCESS_PARAMETERS:
    mdlProcessParameters_c2_Fibonacci_determinant_ML71(S);
    break;
   default:
    /* Unhandled method */
    sf_mex_error_message("Stateflow Internal Error:\n"
     "Error calling c2_Fibonacci_determinant_ML71_method_dispatcher.\n"
     "Can't handle method %d.\n", method);
    break;
  }
}