Inicio Explorar Ayuda
Iniciar sesión
reduce-algebra
/
mtt
espejo de git://github.com/reduce-algebra/mtt
Seguir 2
Destacar 1
Fork 0
Archivos Incidencias
Rama: master
Ramas Etiquetas
mtt
/
ntt
/
bin
/
trans
/
m
/
mttWriteSystemSfun.m

mttWriteSystemSfun.m 20 KB
Permalink Histórico Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251 
  1. function mttWriteSystemSfun(model)
    2. 

  2. 

  3. model_name = mttDetachText(model.source,'/') ;
    4. 

  4. 

  5. working_directory  = pwd ;
    6. 

  6. working_directory = strrep(working_directory,'\','/') ;
    7. 

  7. 

  8. filename = [working_directory,'/',model_name,'_sfun.cpp'] ;
    9. 

  9. fid = fopen(filename,'w') ;
    10. 

  10. 

  11. mttNotify(['...creating ',filename]) ;
    12. 

  12. mttWriteNewLine ;
    13. 

  13. 

  14. model_name = mttDetachText(model.source,'/') ;
    15. 

  15. 

  16. fprintf(fid,['// Simulation Code for "',model_name,'"\n']) ;
    17. 

  17. fprintf(fid,'\n') ;
    18. 

  18. fprintf(fid,['// file: ',filename             ,'\n']) ;
    19. 

  19. fprintf(fid,['// written by MTT on ',datestr(now),'\n']) ;
    20. 

  20. fprintf(fid,'\n') ;
    21. 

  21. 

  22. write_sfun(fid,model) ;
    23. 

  23. 

  24. fclose(fid) ;
    25. 

  25. 

  26. 

  27. function write_sfun(fid,model)
    28. 

  28.     model_name = mttDetachText(model.source,'/') ;
    29. 

  29.     counter = mttCountSystemMapping(model) ;
    30. 

  30. 

  31.     fprintf(fid,['#define S_FUNCTION_NAME ',model_name,'_sfun'                     ,'\n']) ;
    32. 

  32.     fprintf(fid,['#define S_FUNCTION_LEVEL 2'                                      ,'\n']) ;
    33. 

  33.     fprintf(fid,[''                                                                ,'\n']) ;
    34. 

  34.     fprintf(fid,['#include "',model_name,'_include_def.h"'                         ,'\n']) ;
    35. 

  35.     
    36. 

  36.     if isfield(model,'app')
    37. 

  37.         if ~isempty(model.app)
    38. 

  38.             fprintf(fid,['#include "',model_name,'_include_apps.h"'                ,'\n']) ;
    39. 

  39.         end
    40. 

  40.     end
    41. 

  41.     
    42. 

  42.     fprintf(fid,['#include "simstruc.h"'                                           ,'\n']) ;
    43. 

  43.     fprintf(fid,[''                                                                ,'\n']) ; 
    44. 

  44.     fprintf(fid,['static double *_mttInput ;'                                      ,'\n']) ;
    45. 

  45.     fprintf(fid,['static double *_mttState ;'                                      ,'\n']) ;
    46. 

  46.     fprintf(fid,['static double *_mttDerivative ;'                                 ,'\n']) ;
    47. 

  47.     fprintf(fid,['static double *_mttOutput ;'                                     ,'\n']) ;
    48. 

  48.     fprintf(fid,['static double  _mttTime ;'                                       ,'\n']) ;
    49. 

  49.     fprintf(fid,[''                                                                ,'\n']) ; 
    50. 

  50.     fprintf(fid,['static unsigned int _mttIndex ;'                                 ,'\n']) ;
    51. 

  51.     fprintf(fid,[''                                                                ,'\n']) ; 
    52. 

  52.     fprintf(fid,['const int _mttNumInputs  = ',num2str(counter.input),' ;'         ,'\n']) ;
    53. 

  53.     fprintf(fid,['const int _mttNumOutputs = ',num2str(counter.output),' ;'        ,'\n']) ;
    54. 

  54.     fprintf(fid,['const int _mttNumStates  = ',num2str(counter.state),' ;'         ,'\n']) ;
    55. 

  55.     fprintf(fid,[''                                                                ,'\n']) ; 
    56. 

  56.     fprintf(fid,[''                                                                ,'\n']) ; 
    57. 

  57.     
    58. 

  58.     fprintf(fid,['// system equations'                                             ,'\n']) ; 
    59. 

  59.     fprintf(fid,[''                                                                ,'\n']) ; 
    60. 

  60.     fprintf(fid,['static void ',model_name,'_set_numpar (void) {'                  ,'\n']) ; 
    61. 

  61.     fprintf(fid,['#include "',model_name,'_include_set_numpar.h"'                  ,'\n']) ; 
    62. 

  62.     fprintf(fid,['}'                                                               ,'\n']) ; 
    63. 

  63.     fprintf(fid,[''                                                                ,'\n']) ; 
    64. 

  64.     fprintf(fid,['static void ',model_name,'_set_input (void) {'                   ,'\n']) ; 
    65. 

  65.     fprintf(fid,['#include "',model_name,'_include_set_input.h"'                   ,'\n']) ; 
    66. 

  66.     fprintf(fid,['}'                                                               ,'\n']) ; 
    67. 

  67.     fprintf(fid,[''                                                                ,'\n']) ; 
    68. 

  68.     fprintf(fid,['static void ',model_name,'_set_state (void) {'                   ,'\n']) ; 
    69. 

  69.     fprintf(fid,['#include "',model_name,'_include_set_state.h"'                   ,'\n']) ; 
    70. 

  70.     fprintf(fid,['}'                                                               ,'\n']) ; 
    71. 

  71.     fprintf(fid,[''                                                                ,'\n']) ; 
    72. 

  72.     fprintf(fid,['static void ',model_name,'_get_input (void) {'                   ,'\n']) ; 
    73. 

  73.     fprintf(fid,['#include "',model_name,'_include_get_input.h"'                   ,'\n']) ; 
    74. 

  74.     fprintf(fid,['}'                                                               ,'\n']) ; 
    75. 

  75.     fprintf(fid,[''                                                                ,'\n']) ; 
    76. 

  76.     fprintf(fid,['static void ',model_name,'_get_state (void) {'                   ,'\n']) ; 
    77. 

  77.     fprintf(fid,['#include "',model_name,'_include_get_state.h"'                   ,'\n']) ; 
    78. 

  78.     fprintf(fid,['}'                                                               ,'\n']) ; 
    79. 

  79.     fprintf(fid,[''                                                                ,'\n']) ; 
    80. 

  80.     fprintf(fid,['static void ',model_name,'_put_state (void) {'                   ,'\n']) ; 
    81. 

  81.     fprintf(fid,['#include "',model_name,'_include_put_state.h"'                   ,'\n']) ; 
    82. 

  82.     fprintf(fid,['}'                                                               ,'\n']) ; 
    83. 

  83.     fprintf(fid,[''                                                                ,'\n']) ; 
    84. 

  84.     fprintf(fid,['static void ',model_name,'_put_derivative (void) {'              ,'\n']) ; 
    85. 

  85.     fprintf(fid,['#include "',model_name,'_include_put_derivative.h"'              ,'\n']) ; 
    86. 

  86.     fprintf(fid,['}'                                                               ,'\n']) ; 
    87. 

  87.     fprintf(fid,[''                                                                ,'\n']) ; 
    88. 

  88.     fprintf(fid,['static void ',model_name,'_put_output (void) {'                  ,'\n']) ; 
    89. 

  89.     fprintf(fid,['#include "',model_name,'_include_put_output.h"'                  ,'\n']) ; 
    90. 

  90.     fprintf(fid,['}'                                                               ,'\n']) ; 
    91. 

  91.     fprintf(fid,[''                                                                ,'\n']) ; 
    92. 

  92.     fprintf(fid,['static void ',model_name,'_ode (void) {'                         ,'\n']) ; 
    93. 

  93.     fprintf(fid,['#include "',model_name,'_include_ode.h"'                         ,'\n']) ; 
    94. 

  94.     fprintf(fid,['}'                                                               ,'\n']) ; 
    95. 

  95.     fprintf(fid,[''                                                                ,'\n']) ; 
    96. 

  96.     fprintf(fid,[''                                                                ,'\n']) ; 
    97. 

  97. 

  98.     fprintf(fid,['// utility procedures'                                           ,'\n']) ;
    99. 

  99.     fprintf(fid,[''                                                                ,'\n']) ;
    100. 

  100.     fprintf(fid,['static double *array_of_double (size_t n)'                       ,'\n']) ;
    101. 

  101.     fprintf(fid,['{'                                                               ,'\n']) ;
    102. 

  102.     fprintf(fid,['  void *p = calloc (n, sizeof (double)) ;'                       ,'\n']) ;
    103. 

  103.     fprintf(fid,['  if (! p) fprintf (stderr, "*** ERROR: failed to allocate memory") ;','\n']) ;
    104. 

  104.     fprintf(fid,['  return (double *) p ;'                                         ,'\n']) ;
    105. 

  105.     fprintf(fid,['}'                                                               ,'\n']) ;
    106. 

  106.     fprintf(fid,[''                                                                ,'\n']) ;
    107. 

  107.     fprintf(fid,['static void initialise_arrays (void)'                            ,'\n']) ;
    108. 

  108.     fprintf(fid,['{'                                                               ,'\n']) ;
    109. 

  109.     fprintf(fid,['  _mttInput	 = array_of_double(_mttNumInputs) ;'               ,'\n']) ;
    110. 

  110.     fprintf(fid,['  _mttOutput	 = array_of_double(_mttNumOutputs) ;'              ,'\n']) ;
    111. 

  111.     fprintf(fid,['  _mttState	 = array_of_double(_mttNumStates) ;'               ,'\n']) ;
    112. 

  112.     fprintf(fid,['  _mttDerivative = array_of_double(_mttNumStates) ;'             ,'\n']) ;
    113. 

  113.     fprintf(fid,['}'                                                               ,'\n']) ;
    114. 

  114.     fprintf(fid,[''                                                                ,'\n']) ;
    115. 

  115.     fprintf(fid,['static void check_finite(SimStruct *S, double *array, unsigned int index)','\n']) ;
    116. 

  116.     fprintf(fid,['{'                                                               ,'\n']) ;
    117. 

  117.     fprintf(fid,['  const char *array_name ;'                                      ,'\n']) ;
    118. 

  118.     fprintf(fid,['  char warning[128] ;'                                           ,'\n']) ;
    119. 

  119.     fprintf(fid,['  if ((array[index] <= 0.0) || (array[index] >= 0.0)) {'         ,'\n']) ;
    120. 

  120.     fprintf(fid,['    ; // ...no problem'                                          ,'\n']) ;
    121. 

  121.     fprintf(fid,['  } else {'                                                      ,'\n']) ;
    122. 

  122.     fprintf(fid,['    if (array == _mttInput) {'                                   ,'\n']) ;
    123. 

  123.     fprintf(fid,['      array_name = "_mttInput" ;'                                ,'\n']) ;
    124. 

  124.     fprintf(fid,['    } else if (array == _mttState) {'                            ,'\n']) ;
    125. 

  125.     fprintf(fid,['      array_name = "_mttState" ;'                                ,'\n']) ;
    126. 

  126.     fprintf(fid,['    } else if (array == _mttOutput) {'                           ,'\n']) ;
    127. 

  127.     fprintf(fid,['      array_name = "_mttOutput" ;'                               ,'\n']) ;
    128. 

  128.     fprintf(fid,['    } else if (array == _mttDerivative) {'                       ,'\n']) ;
    129. 

  129.     fprintf(fid,['      array_name = "_mttDerivative" ;'                           ,'\n']) ;
    130. 

  130.     fprintf(fid,['    } else {'                                                    ,'\n']) ;
    131. 

  131.     fprintf(fid,['      array_name = "unknown_array" ;'                            ,'\n']) ;
    132. 

  132.     fprintf(fid,['    }'                                                           ,'\n']) ;
    133. 

  133.     fprintf(fid,['    sprintf(warning,"(time %%f) Non-finite array element: %%s[%%d]",_mttTime,array_name,index) ;','\n']) ;
    134. 

  134.     fprintf(fid,['    ssWarning(S,warning) ;'                                      ,'\n']) ;
    135. 

  135.     fprintf(fid,['  }'                                                             ,'\n']) ;
    136. 

  136.     fprintf(fid,['}'                                                               ,'\n']) ;
    137. 

  137.     fprintf(fid,[''                                                                ,'\n']) ;
    138. 

  138.     fprintf(fid,[''                                                                ,'\n']) ;
    139. 

  139. 

  140.     fprintf(fid,['// S-function methods'                                           ,'\n']) ;
    141. 

  141.     fprintf(fid,[''                                                                ,'\n']) ;
    142. 

  142.     fprintf(fid,['static void mdlInitializeSizes(SimStruct *S)'                    ,'\n']) ;
    143. 

  143.     fprintf(fid,['{'                                                               ,'\n']) ;
    144. 

  144.     fprintf(fid,['  ssSetNumSFcnParams(S,0) ;'                                     ,'\n']) ; 
    145. 

  145.     fprintf(fid,['  if (ssGetNumSFcnParams(S) != ssGetSFcnParamsCount(S)) return ;','\n']) ;
    146. 

  146.     fprintf(fid,[''                                                                ,'\n']) ;
    147. 

  147.     fprintf(fid,['  ssSetNumContStates(S,_mttNumStates) ;'                         ,'\n']) ;
    148. 

  148.     fprintf(fid,['  ssSetNumDiscStates(S,0) ;'                                     ,'\n']) ;
    149. 

  149.     fprintf(fid,[''                                                                ,'\n']) ;
    150. 

  150.     fprintf(fid,['  if (!ssSetNumInputPorts(S,1)) return ;'                        ,'\n']) ;
    151. 

  151.     fprintf(fid,['  ssSetInputPortWidth(S,0,_mttNumInputs) ;'                      ,'\n']) ;
    152. 

  152.     fprintf(fid,['  ssSetInputPortDirectFeedThrough(S,0,1) ;'                      ,'\n']) ;
    153. 

  153.     fprintf(fid,[''                                                                ,'\n']) ;
    154. 

  154.     fprintf(fid,['  if (!ssSetNumOutputPorts(S,1)) return ;'                       ,'\n']) ;
    155. 

  155.     fprintf(fid,['  ssSetOutputPortWidth(S,0,_mttNumOutputs) ;'                    ,'\n']) ;
    156. 

  156.     fprintf(fid,[''                                                                ,'\n']) ;
    157. 

  157.     fprintf(fid,['  ssSetNumSampleTimes(S,1) ;'                                    ,'\n']) ;
    158. 

  158.     fprintf(fid,['  ssSetNumRWork(S,0) ;'                                          ,'\n']) ;
    159. 

  159.     fprintf(fid,['  ssSetNumIWork(S,0) ;'                                          ,'\n']) ;
    160. 

  160.     fprintf(fid,['  ssSetNumPWork(S,0) ;'                                          ,'\n']) ;
    161. 

  161.     fprintf(fid,['  ssSetNumModes(S,0) ;'                                          ,'\n']) ;
    162. 

  162.     fprintf(fid,['  ssSetNumNonsampledZCs(S,0) ;'                                  ,'\n']) ;
    163. 

  163.     fprintf(fid,[''                                                                ,'\n']) ;
    164. 

  164.     fprintf(fid,['  ssSetOptions(S,SS_OPTION_EXCEPTION_FREE_CODE) ;'               ,'\n']) ;
    165. 

  165.     fprintf(fid,[''                                                                ,'\n']) ;
    166. 

  166.     fprintf(fid,['  initialise_arrays() ;'                                         ,'\n']) ;
    167. 

  167.     fprintf(fid,['}'                                                               ,'\n']) ;
    168. 

  168.     fprintf(fid,[''                                                                ,'\n']) ;
    169. 

  169.     fprintf(fid,['static void mdlInitializeSampleTimes(SimStruct *S)'              ,'\n']) ;
    170. 

  170.     fprintf(fid,['{'                                                               ,'\n']) ;
    171. 

  171.     fprintf(fid,['  ssSetSampleTime(S,0,CONTINUOUS_SAMPLE_TIME) ;'                 ,'\n']) ;
    172. 

  172.     fprintf(fid,['  ssSetOffsetTime(S,0,0.0) ;'                                    ,'\n']) ;
    173. 

  173.     fprintf(fid,['}'                                                               ,'\n']) ;
    174. 

  174.     fprintf(fid,[''                                                                ,'\n']) ;
    175. 

  175.     fprintf(fid,['#define MDL_INITIALIZE_CONDITIONS'                               ,'\n']) ;
    176. 

  176.     fprintf(fid,['static void mdlInitializeConditions(SimStruct *S)'               ,'\n']) ;
    177. 

  177.     fprintf(fid,['{'                                                               ,'\n']) ;
    178. 

  178.     fprintf(fid,['  ',model_name,'_set_numpar() ;'                                 ,'\n']) ;
    179. 

  179.     fprintf(fid,['  ',model_name,'_set_state() ;'                                  ,'\n']) ;
    180. 

  180.     fprintf(fid,['  ',model_name,'_put_state() ;'                                  ,'\n']) ;
    181. 

  181.     fprintf(fid,['  for (_mttIndex=0; _mttIndex<_mttNumStates; _mttIndex++) ssGetContStates(S)[_mttIndex] = _mttState[_mttIndex] ;','\n']) ;
    182. 

  182.     fprintf(fid,['}'                                                               ,'\n']) ;
    183. 

  183.     fprintf(fid,[''                                                                ,'\n']) ;
    184. 

  184.     fprintf(fid,['static void mdlOutputs(SimStruct *S,int_T tid)'                  ,'\n']) ;
    185. 

  185.     fprintf(fid,['{'                                                               ,'\n']) ;
    186. 

  186.     fprintf(fid,['  UNUSED_ARG(tid) ;'                                             ,'\n']) ;
    187. 

  187.     fprintf(fid,['  for (_mttIndex=0; _mttIndex<_mttNumStates; _mttIndex++) {'     ,'\n']) ;
    188. 

  188.     fprintf(fid,['    _mttState[_mttIndex] = ssGetContStates(S)[_mttIndex] ;'      ,'\n']) ;
    189. 

  189.     fprintf(fid,['    check_finite(S,_mttState,_mttIndex) ;'                       ,'\n']) ;
    190. 

  190.     fprintf(fid,['  }'                                                             ,'\n']) ;
    191. 

  191.     fprintf(fid,['  for (_mttIndex=0; _mttIndex<_mttNumInputs; _mttIndex++) {'     ,'\n']) ;
    192. 

  192.     fprintf(fid,['    _mttInput[_mttIndex] = *ssGetInputPortRealSignalPtrs(S,0)[_mttIndex] ;','\n']) ;
    193. 

  193.     fprintf(fid,['    check_finite(S,_mttInput,_mttIndex) ;'                       ,'\n']) ;
    194. 

  194.     fprintf(fid,['  }'                                                             ,'\n']) ;
    195. 

  195.     fprintf(fid,['  _mttTime = ssGetT(S) ;'                                        ,'\n']) ;
    196. 

  196.     fprintf(fid,[''                                                                ,'\n']) ;
    197. 

  197.     fprintf(fid,['  ',model_name,'_get_input() ;'                                  ,'\n']) ;
    198. 

  198.     fprintf(fid,['  ',model_name,'_get_state() ;'                                  ,'\n']) ;
    199. 

  199.     fprintf(fid,['  ',model_name,'_ode() ;'                                        ,'\n']) ;
    200. 

  200.     fprintf(fid,['  ',model_name,'_put_output() ;'                                 ,'\n']) ;
    201. 

  201.     fprintf(fid,[''                                                                ,'\n']) ;
    202. 

  202.     fprintf(fid,['  for(_mttIndex=0; _mttIndex<_mttNumOutputs; _mttIndex++) {'     ,'\n']) ;
    203. 

  203.     fprintf(fid,['    check_finite(S,_mttOutput,_mttIndex) ;'                      ,'\n']) ;
    204. 

  204.     fprintf(fid,['    ssGetOutputPortRealSignal(S,0)[_mttIndex] = _mttOutput[_mttIndex] ;','\n']) ;
    205. 

  205.     fprintf(fid,['  }'                                                             ,'\n']) ;
    206. 

  206.     fprintf(fid,['}'                                                               ,'\n']) ;
    207. 

  207.     fprintf(fid,[''                                                                ,'\n']) ;
    208. 

  208.     fprintf(fid,['#define MDL_DERIVATIVES'                                         ,'\n']) ;
    209. 

  209.     fprintf(fid,['static void mdlDerivatives(SimStruct *S)'                        ,'\n']) ;
    210. 

  210.     fprintf(fid,['{'                                                               ,'\n']) ;
    211. 

  211.     fprintf(fid,['  for (_mttIndex=0; _mttIndex<_mttNumStates; _mttIndex++) {'     ,'\n']) ;
    212. 

  212.     fprintf(fid,['    _mttState[_mttIndex] = ssGetContStates(S)[_mttIndex] ;'      ,'\n']) ;
    213. 

  213.     fprintf(fid,['    check_finite(S,_mttState,_mttIndex) ;'                       ,'\n']) ;
    214. 

  214.     fprintf(fid,['  }'                                                             ,'\n']) ;
    215. 

  215.     fprintf(fid,['  for (_mttIndex=0; _mttIndex<_mttNumInputs; _mttIndex++) {'     ,'\n']) ;
    216. 

  216.     fprintf(fid,['    _mttInput[_mttIndex] = *ssGetInputPortRealSignalPtrs(S,0)[_mttIndex] ;','\n']) ;
    217. 

  217.     fprintf(fid,['    check_finite(S,_mttInput,_mttIndex) ;'                       ,'\n']) ;
    218. 

  218.     fprintf(fid,['  }'                                                             ,'\n']) ;
    219. 

  219.     fprintf(fid,['  _mttTime = ssGetT(S) ;'                                        ,'\n']) ;
    220. 

  220.     fprintf(fid,[''                                                                ,'\n']) ;
    221. 

  221.     fprintf(fid,['  ',model_name,'_get_input() ;'                                  ,'\n']) ;
    222. 

  222.     fprintf(fid,['  ',model_name,'_get_state() ;'                                  ,'\n']) ;
    223. 

  223.     fprintf(fid,['  ',model_name,'_ode() ;'                                        ,'\n']) ;
    224. 

  224.     fprintf(fid,['  ',model_name,'_put_derivative() ;'                             ,'\n']) ;
    225. 

  225.     fprintf(fid,['  '                                                              ,'\n']) ;
    226. 

  226.     fprintf(fid,['  if (_mttTime==0)'                                              ,'\n']) ;
    227. 

  227.     fprintf(fid,['    for(_mttIndex=0; _mttIndex<_mttNumStates; _mttIndex++) ssGetdX(S)[_mttIndex] = 0.0 ;','\n']) ;
    228. 

  228.     fprintf(fid,['  else'                                                          ,'\n']) ;
    229. 

  229.     fprintf(fid,['    for(_mttIndex=0; _mttIndex<_mttNumStates; _mttIndex++) {'    ,'\n']) ;
    230. 

  230.     fprintf(fid,['      check_finite(S,_mttDerivative,_mttIndex) ;'                ,'\n']) ;
    231. 

  231.     fprintf(fid,['      ssGetdX(S)[_mttIndex] = _mttDerivative[_mttIndex] ;'       ,'\n']) ;
    232. 

  232.     fprintf(fid,['    }'                                                           ,'\n']) ;
    233. 

  233.     fprintf(fid,['}'                                                               ,'\n']) ;
    234. 

  234.     fprintf(fid,[''                                                                ,'\n']) ;
    235. 

  235.     fprintf(fid,['static void mdlTerminate(SimStruct *S)'                          ,'\n']) ;
    236. 

  236.     fprintf(fid,['{'                                                               ,'\n']) ;
    237. 

  237.     fprintf(fid,['  UNUSED_ARG(S);'                                                ,'\n']) ;
    238. 

  238.     fprintf(fid,['  free (_mttInput) ;'                                            ,'\n']) ;
    239. 

  239.     fprintf(fid,['  free (_mttOutput) ;'                                           ,'\n']) ;
    240. 

  240.     fprintf(fid,['  free (_mttState) ;'                                            ,'\n']) ;
    241. 

  241.     fprintf(fid,['  free (_mttDerivative) ;'                                       ,'\n']) ;
    242. 

  242.     fprintf(fid,['}'                                                               ,'\n']) ;
    243. 

  243.     fprintf(fid,[''                                                                ,'\n']) ;
    244. 

  244.     fprintf(fid,[''                                                                ,'\n']) ;
    245. 

  245.     
    246. 

  246.     fprintf(fid,['#ifdef  MATLAB_MEX_FILE'                                         ,'\n']) ;
    247. 

  247.     fprintf(fid,['#include "simulink.c"'                                           ,'\n']) ;
    248. 

  248.     fprintf(fid,['#else'                                                           ,'\n']) ;
    249. 

  249.     fprintf(fid,['#include "cg_sfun.h"'                                            ,'\n']) ;
    250. 

  250.     fprintf(fid,['#endif'                                                          ,'\n']) ;
    251. 

  251.