/*
 * File: datei_code.c
 *
 * Real-Time Workshop code generated for Simulink model 'datei_code'.
 *
 * Model version                        : 1.34
 * Real-Time Workshop file version      : 6.4  (R2006a)  03-Feb-2006
 * Real-Time Workshop file generated on : Thu Jan 11 10:33:34 2007
 * TLC version                          : 6.4 (Jan 31 2006)
 * C source code generated on           : Thu Jan 11 10:33:37 2007
 */

#include "datei_code.h"
#include "datei_code_private.h"

/* Block states (auto storage) */
D_Work_datei_code datei_code_DWork;

/* External inputs (root inport signals with auto storage) */
ExternalInputs_datei_code datei_code_U;

/* External outputs (root outports fed by signals with auto storage) */
ExternalOutputs_datei_code datei_code_Y;

/* Real-time model */
RT_MODEL_datei_code datei_code_M_;
RT_MODEL_datei_code *datei_code_M =
  &datei_code_M_;

static void rate_scheduler(void);

/* This function implements a singletasking scheduler for a system with 2
 * rates.  This function is called by the generated step function, hence the
 * generated code self-manages all its subrates.
 */

static void rate_scheduler(void)
{

  /* Compute which subrates run during the next base time step.  Subrates
   * are an integer multiple of the base rate counter.  Therefore, the subtask
   * counter is reset when it reaches its limit (zero means run).
   */
  if (++datei_code_M->Timing.TaskCounters.TID[1] == 10) { /* Sample time: [1.0s, 0.0s] */
    datei_code_M->Timing.TaskCounters.TID[1] = 0;
  }
}

/* Model step function */

void datei_code_step(int_T tid)
{

  /* local block i/o variables*/

  real_T rtb_Elastizittsmodul;

  if(datei_code_M->Timing.TaskCounters.TID[1] == 0) {

    /* Gain: '<S1>/Elastizitäts- modul' incorporates:
     *  Gain: '<S1>/Eingangs- spannung'
     *  Gain: '<S1>/Fläche'
     *  Gain: '<S1>/Konstant'
     *  Inport: '<Root>/Ud'
     */
    rtb_Elastizittsmodul = datei_code_U.Ud * 0.5 *
      8.3333333333333329E-002 * 0.005 * 2.1E+011;

    /* Outport: '<Root>/Uin' incorporates:
     *  DiscreteIntegrator: '<S2>/Discrete-Time Integrator'
     *  Sum: '<S2>/Sum'
     */
    datei_code_Y.Uin = rtb_Elastizittsmodul +
      datei_code_DWork.DiscreteTimeIntegrator_DSTATE;

    /* Update for DiscreteIntegrator: '<S2>/Discrete-Time Integrator' */
    datei_code_DWork.DiscreteTimeIntegrator_DSTATE =
      datei_code_DWork.DiscreteTimeIntegrator_DSTATE +
      rtb_Elastizittsmodul;
  }

  rate_scheduler();

  UNUSED_PARAMETER(tid);
}

/* Model initialize function */

void datei_code_initialize(boolean_T firstTime)
{
  (void)firstTime;
  /* (no initialization code required) */
}

/* File trailer for Real-Time Workshop generated code.
 *
 * [EOF]
 */