'##############
'Getriebe-Script
'##############

'D851-Gearbox

'(c) 2008-2010 Rüdiger Hülsmann

'Script Version: 1.0
'Omsi release: 1.0

'Needs:
'- engine
'- bremse

'Revision History:
'- Rüdiger Hülsmann   13.04.2009   Neutralstellung mit anderer Zeitverzögerung
'- Rüdiger Hülsmann   04.06.2009   Verzögertes Einsetzen des Retarders
'- Marcel Kuhnt      13.06.2009   Removed Gearbox switches to cockpit script
'- Marcel Kuhnt      09.08.2009   Added Gearbox Failure
'- Rüdiger Hülsmann   09.10.2009   Rework for improved flexibility: Support for D.2/3-gearbox via config file
'               Functions added: Automatic neutral, retarder in 1st gear
'- Rüdiger Hülsmann   29.10.2009   Retarder bug removed
'- Rüdiger Hülsmann   16.09.2010   Reverse gear torque reduction
'- Rüdiger Hülsmann   14.10.2010   Downshift 3-2 added
'- Rüdiger Hülsmann   13.12.2010   Gearshift procedures debugged, smooth retarder fadeout, dynamic shifting moment
'- Rüdiger Hülsmann   27.12.2010   Retarder fadeout debugged
'- Rüdiger Hülsmann   01.01.2011   Retarder linked to ABS
'- Rüdiger Hülsmann   04.01.2011   Reverse only below 5 km/h
'- Thiago Sobral    05.05.2011          Added Junky Manual Gearbox 0.0001 - Just for fun and study of OMSI

'----------------------
'   Manual Gearbox Triggers
'----------------------


{trigger:kw_s_1}
 1 (S.L.antrieb_getr_aktugang)
 (T.L.ev_schaltruck)

{end}

{trigger:kw_s_2}
 2 (S.L.antrieb_getr_aktugang)
 (T.L.ev_schaltruck)

{end}

{trigger:kw_s_3}
 3 (S.L.antrieb_getr_aktugang)
 (T.L.ev_schaltruck)

{end}

{trigger:kw_s_4}
 4 (S.L.antrieb_getr_aktugang)
 (T.L.ev_schaltruck)

{end}

{trigger:kw_s_5}
 5 (S.L.antrieb_getr_aktugang)
 (T.L.ev_schaltruck)

{end}

'----------------------
'   Init
'----------------------

{macro:antrieb_init}
   1 (S.L.antrieb_getr_gangwahl) (S.L.antrieb_getr_gangvorwahl)
   1 (S.L.antrieb_getr_aktugang)
   
   0 (S.L.antrieb_wandler_moment)
{end}

'----------------------
'   Frame
'----------------------

{macro:antrieb_frame}

'Berechnen der Abtriebsdrehzahl
   (L.L.Wheel_RotationSpeed_1_L) (L.L.Wheel_RotationSpeed_1_R) + 2 / (C.L.antrieb_i_achse) * (S.L.antrieb_n_kardanwelle)

'Einlegen der Fahrstufe

   (L.S.GetTime) (L.L.antrieb_getr_gangwahlzeitpunkt) - (C.L.antrieb_gangwahlzeit) >
   (L.L.antrieb_getr_gangvorwahl) (L.L.antrieb_getr_gangwahl) = ! &&
   (L.L.antrieb_failure_general) ! &&
   {if}
         
      (L.L.antrieb_getr_gangwahl) 1 =
      {if}
         (L.L.engine_on) 1 =
         {if}
            (L.L.engine_n) (S.L.antrieb_rucksoundvol)
            (C.L.antrieb_kuppl_M_dn_min) (S.L.antrieb_schaltmoment_soll)

            (L.L.antrieb_getr_gangvorwahl) 1 >
            {if}
               (L.L.antrieb_n_kardanwelle) (C.L.antrieb_getr_autoSwDnMinSpd3) >
               {if}
                  
                  
               {else}
                  (L.L.antrieb_n_kardanwelle) (C.L.antrieb_getr_autoSwDnMinSpd2) >
                  {if}
                     
                     
                  {else}
                     
                     0 (S.L.antrieb_gear_engaged_timer)
                     
                  {endif}
               {endif}
            {else}
               (L.L.velocity) 5 <
               {if}
                  
                  0 (S.L.antrieb_gear_engaged_timer)
                  
               {endif}
            {endif}
         {endif}
      {endif}   
      (L.L.antrieb_getr_gangvorwahl) (S.L.antrieb_getr_gangwahl)
   {endif}

'Gang rausnehmen, wenn Neutral angefordert

   (L.L.antrieb_getr_gangwahl) 1 =
   {if}
      0 (S.L.antrieb_getr_aktugang)
   {endif}
'Verhindern, dass der Rückwärtsgang oberhalb von 5 km/h eingelegt werden kann

   (L.L.antrieb_getr_gangvorwahl) 0 =
   (L.L.velocity) 5 >= &&
   {if}
      1 (S.L.antrieb_getr_gangwahl)
   {endif}







'Prüfen, ob Gang gewechselt wird - aber nur, wenn Getriebe heil ist:

   (L.L.antrieb_failure_general) !
   {if}
      (M.L.antrieb_getr_chkNxtGear)
   {endif}

'Berechnung des aktuellen Motordrehmoments:

   (M.L.engine_moment)



'Berechnung des dynamischen Schaltmoments

   (L.L.antrieb_getr_fest) !
   {if}
      (L.L.antrieb_schaltmoment) (L.S.Timegap) 1000 * + (L.L.antrieb_schaltmoment_soll) min (S.L.antrieb_schaltmoment)
   {endif}





'Fallunterscheidung, ob Getriebe reibt oder wandelt oder nicht:

   (L.L.antrieb_getr_fest)
   {if}

'#################################################################################
'   Berechnung der Beschleunigung des Antriebsstrangs (am Motorflansch)
'#################################################################################


      (L.L.n_Wheel) (L.L.antrieb_getr_ratio) * (L.L.engine_n) - 2 * pi * 60 / (L.S.Timegap) /

'   Berechnung des Momentes am Motor durch Trägheit:

      (C.L.engine_J) * s0

'   Berechnung des vom Antriebsstrang durchgeleiteten Momentes

      l0 /-/ (L.L.engine_M) (L.L.engine_M_additional_load) - + s1


'   Wenn das Antriebsmoment zu groß ist oder ein Wandlergang eingelegt wird, rutscht die Kupplung durch:

      l1 abs (L.L.antrieb_schaltmoment) > (L.L.antrieb_getr_gangwahl) 1 <= || (L.L.antrieb_getr_aktugang) 1 = ||


      {if}

         0 (S.L.antrieb_getr_fest)

      {else}

'      Setzen des Momentes

         l1 (S.L.antrieb_getr_M_an)


'      Berechnung des Getriebeabtriebmomentes:

         (L.L.antrieb_getr_M_an) (L.L.antrieb_getr_ratio) * (C.L.gear_efficiency) * (S.L.M_Wheel)

'      Drehzahl des Motors ergibt sich aus der Getriebeabtriebswelle:

         (L.L.antrieb_getr_ratio) (L.L.n_Wheel) * (S.L.engine_n)      
      {endif}


      0 (S.L.antrieb_wandler_moment)

   {else}

'#################################################################################
'   Bestimmen, ob Leerlauf ist...:
'#################################################################################

      (L.L.antrieb_getr_gangwahl) 1 = (L.L.antrieb_getr_aktugang) 0 = ||

      {if}

'      ... Antriebs- und Getriebeantriebsmoment sind 0:
         0 (S.L.M_Wheel) (S.L.antrieb_getr_M_an)

         (M.L.engine_acceleration)
         0 (S.L.antrieb_wandler_moment)

'         Wenn Neutralgang beim Bremsen eingelegt wird
         (L.L.antrieb_getr_gangwahl) 1 =
         {if}
            0 (S.L.antrieb_retarder_wasrunning) (S.L.antrieb_gear_engaged_timer)
         {endif}

      {else}

'#################################################################################
'      Bestimmen, ob ein Wandlergang eingelegt ist...:
'#################################################################################

         (L.L.antrieb_getr_aktugang) 1 =
         {if}

            (L.L.antrieb_wandler_moment) abs (L.L.antrieb_getr_M_an) abs >
            {if}
               (L.L.antrieb_wandler_moment) 0 >
               {if}
                  (L.L.antrieb_getr_M_an) (C.L.antrieb_wandler_fillrate) (L.S.Timegap) * + (S.L.antrieb_getr_M_an)
                  (L.L.antrieb_wandler_moment) (L.L.antrieb_getr_M_an) <
                  {if}
                     (L.L.antrieb_wandler_moment) (S.L.antrieb_getr_M_an)
                  {endif}
               {else}
                  (L.L.antrieb_getr_M_an) (C.L.antrieb_wandler_fillrate) (L.S.Timegap) * - (S.L.antrieb_getr_M_an)
                  (L.L.antrieb_wandler_moment) (L.L.antrieb_getr_M_an) >
                  {if}
                     (L.L.antrieb_wandler_moment) (S.L.antrieb_getr_M_an)
                  {endif}
               {endif}
            {else}
               (L.L.antrieb_wandler_moment) (S.L.antrieb_getr_M_an)
            {endif}
   
         
         

'#################################################################################
'         Wandler Rückwärtsgang:
'#################################################################################

            (L.L.antrieb_getr_gangwahl) 0 =
            {if}
               (L.L.antrieb_n_kardanwelle) 2 * (S.L.antrieb_getr_n_ab) /-/ (L.L.engine_n) / (S.L.antrieb_wandler_ny)



                     

'               Berechnung des Motor-Antriebsmomentes

                  (L.L.engine_n) 2 * 3.14 * 60 / (L.L.engine_n) 2 * 3.14 * 60 / * s1
                  0.0042 (L.L.antrieb_wandler_ny) (F.L.antrieb_wandler_lambda) * l1 * (L.L.engine_n) (F.L.antrieb_wandler_lowrpmsoftness) * (S.L.antrieb_wandler_moment)


'               Berechnung des Rad-Abtriebsmomentes
      
                  (L.L.antrieb_wandler_ny) (F.L.antrieb_wandler_my) (L.L.antrieb_getr_M_an) * (C.L.antrieb_i_achse) * 0.9 * /-/ (L.L.engine_n) (F.L.antrieb_wandler_lowrpmsoftness) * (C.L.gear_efficiency) *
                   (L.L.antrieb_n_kardanwelle) (F.L.antrieb_reverse_torque_reduction) *
                  (S.L.M_Wheel)
               

'#################################################################################
'         Wandler Vorwärtsgang:   
'#################################################################################

            {else}
               (L.L.n_Wheel) (C.L.antrieb_i_achse) * (S.L.antrieb_getr_n_ab) (L.L.engine_n) / (S.L.antrieb_wandler_ny)

               (L.L.antrieb_wandler_ny) 0.7 <
               {if}      

'               Berechnung des Motor-Antriebsmomentes

                  (L.L.engine_n) 2 * 3.14 * 60 / (L.L.engine_n) 2 * 3.14 * 60 / * s1
                  0.0042 (L.L.antrieb_wandler_ny) (F.L.antrieb_wandler_lambda) * l1 * (L.L.engine_n) (F.L.antrieb_wandler_lowrpmsoftness) * (S.L.antrieb_wandler_moment)


'               Berechnung des Rad-Abtriebsmomentes
      
                  (L.L.antrieb_wandler_ny) (F.L.antrieb_wandler_my) (L.L.antrieb_getr_M_an) * (C.L.antrieb_i_achse) * 0.77 * (L.L.engine_n) (F.L.antrieb_wandler_lowrpmsoftness) * (C.L.gear_efficiency) * (S.L.M_Wheel)
               {else}
   
'               Berechnung des Motor-Antriebsmomentes
         
                  (L.L.engine_n) (L.L.antrieb_getr_n_ab) / (S.L.antrieb_wandler_ny_r)

                  (L.L.engine_n) 2 * 3.14 * 60 / (L.L.engine_n) 2 * 3.14 * 60 / * s1
                  0.0042 (L.L.antrieb_wandler_ny_r) (F.L.antrieb_wandler_lambda_r) * l1 * (L.L.engine_n) (F.L.antrieb_wandler_lowrpmsoftness) * (S.L.antrieb_wandler_moment)


'               Berechnung des Rad-Abtriebsmomentes
      
                  (L.L.antrieb_wandler_ny_r) (F.L.antrieb_wandler_my_r) (L.L.antrieb_getr_M_an) * (C.L.antrieb_i_achse) * 0.77 * (L.L.engine_n) (F.L.antrieb_wandler_lowrpmsoftness) * (C.L.gear_efficiency) * (S.L.M_Wheel)
               {endif}
            {endif}
      

'         Vergleich der Ein- und Ausgangsleistungen:
            (L.L.M_Wheel) (L.L.n_Wheel) * 3.14 * 30000 / (S.L.antrieb_gesamtleistung)
            (L.L.antrieb_gesamtleistung) (L.L.antrieb_motorleistung) / (S.L.antrieb_eta)

   
            (M.L.engine_acceleration)

         



'#################################################################################
'         Sonst ist ein normaler Gang eingelegt:
'#################################################################################

         {else}


'         Berechnung der Drehzahldifferenz:

            (L.L.antrieb_getr_ratio) (L.L.n_Wheel) * (L.L.engine_n) - s0



'         An dieser Stelle muss ggf. noch das unterschiedliche Kupplungsmoment eingesetzt werden:

            l0 0 <
            {if}
               (L.L.antrieb_schaltmoment)
            {else}
               (L.L.antrieb_schaltmoment) /-/
            {endif}
            (S.L.antrieb_getr_M_an)
            (L.L.antrieb_getr_ratio) *
            (C.L.gear_efficiency) * (S.L.M_Wheel)

            (M.L.engine_acceleration)

'         Prüfen, ob sich das Vorzeichen der Drehzahldifferenz umgekehrt hat:

            (L.L.antrieb_getr_ratio) (L.L.n_Wheel) * (L.L.engine_n) - l0 * 0 <= (L.L.engine_n) 560 > &&
            {if}
               (L.L.antrieb_getr_ratio) (L.L.n_Wheel) * (S.L.engine_n)
               (L.L.n_Wheel) (L.L.antrieb_getr_ratio) * (L.L.engine_n) - 2 * pi * 60 / (L.S.Timegap) /

'               Berechnung des Momentes am Motor durch Trägheit:

               (C.L.engine_J) * s0

'               Berechnung des vom Antriebsstrang durchgeleiteten Momentes

               l0 /-/ (L.L.engine_M) (L.L.engine_M_additional_load) - + (S.L.antrieb_getr_M_an)


'               Berechnung des Getriebeabtriebmomentes:

               (L.L.antrieb_getr_M_an) abs (L.L.antrieb_schaltmoment) abs <
               {if}
                  (L.L.antrieb_getr_M_an) (L.L.antrieb_getr_ratio) * (C.L.gear_efficiency) * (S.L.M_Wheel)
                  1 (S.L.antrieb_getr_fest)
                  (C.L.antrieb_kuppl_M_up_max) (S.L.antrieb_schaltmoment)
               {else}
                  (L.L.antrieb_schaltmoment) /-/ (S.L.antrieb_getr_M_an) (L.L.antrieb_getr_ratio) * (C.L.gear_efficiency) * (S.L.M_Wheel)
               {endif}
               


            {endif}

            0 (S.L.antrieb_wandler_moment)

         {endif}
      {endif}

   {endif}







'#################################################################################
'   Retarder
'#################################################################################


   (L.L.brake) 0.01 >
   (L.L.antrieb_retarder_sw) &&
   (L.L.antrieb_retarder_sw_direkt) ||
   (L.L.antrieb_getr_gangwahl) 1 > &&
   (L.L.Throttle) 0.1 < &&
   (L.L.antrieb_n_kardanwelle) 0.1 > &&
   (L.L.antrieb_failure_general) ! &&
   (L.L.bremse_ABS_eingriff) ! &&
   {if}   

      (L.L.antrieb_retarder_armed) !
      {if}
         1 (S.L.antrieb_retarder_armed)
         0 (S.L.antrieb_retarder_armtime_elapsed)
      {endif}

'      Das Hochschalten aus dem 1. Gang (Antriebsstrang nicht fest eingekuppelt) zählt nicht zur Latenzzeit, solange also Armtime auf 0 halten:
      (L.L.antrieb_getr_fest) ! (L.L.antrieb_retarder) ! &&
      {if}
         0 (S.L.antrieb_retarder_armtime_elapsed)
      {endif}
   

      (L.L.antrieb_n_kardanwelle) (C.L.retarder_min_einschaltspeed) > (L.L.antrieb_retarder_armtime_elapsed) (C.L.antrieb_retarder_startdelay) > && (L.L.antrieb_retarder) ! &&
      {if}
         1 (S.L.antrieb_retarder)
         0 (S.L.antrieb_retarder_time_elapsed)
      {endif}


      (L.L.antrieb_retarder_sw_direkt)
      {if}
         2 (S.L.antrieb_retarderstufe)
      {else}
         1 (S.L.antrieb_retarderstufe)
      {endif}

'Verhaltensweise des Retarders beim Erreichen der Drehzahluntergrenze im 2. Gang:

      (L.L.antrieb_n_kardanwelle) (C.L.antrieb_getr_autoSwDnMinSpd2) <
      (L.L.antrieb_retarder) 1 = &&
      {if}
         (C.L.antrieb_getr_version) s0 1 = l0 3 = ||
         {if}
            0 (S.L.antrieb_retarder) (S.L.antrieb_wendesatz)
            (L.L.engine_n) (S.L.antrieb_rucksoundvol)
            (T.L.ev_schaltruck)
         {else}
            0 (S.L.antrieb_getr_aktugang)
         {endif}
      {endif}
   

      (L.L.antrieb_retarder_armed)
      {if}
         (L.L.antrieb_retarder_armtime_elapsed) (L.S.Timegap) + (S.L.antrieb_retarder_armtime_elapsed)
         (L.L.antrieb_retarder_time_elapsed) (L.S.Timegap) + (S.L.antrieb_retarder_time_elapsed)
      {endif}

' Ausschalten des Retarders:

   {else}
      (L.L.antrieb_retarder) (L.L.antrieb_n_kardanwelle) (C.L.antrieb_getr_autoSwDnMinSpd2) < &&
      {if}
         0 (S.L.antrieb_retarder_offtime) (S.L.antrieb_wendesatz)
         1 (S.L.antrieb_retarder_wasrunning)
      {endif}
      0 (S.L.antrieb_retarder) (S.L.antrieb_retarder_armed) (S.L.antrieb_retarder_armtime_elapsed) (S.L.antrieb_retarder_time_elapsed)   
   {endif}

'Umschaltverzögerung zwischen Bremsen und Traktion:

   (L.L.antrieb_retarder_wasrunning)
   {if}
      (L.L.antrieb_retarder_offtime) (L.S.Timegap) + (S.L.antrieb_retarder_offtime)
      (C.L.antrieb_retarder_changetime) >
      (L.L.antrieb_getr_gangwahl) 1 > &&
      {if}
         (T.L.ev_retarder_aus)

'3424 soll hier laut rucken!
         (L.$.number) "3424" $=
         {if}
            900
         {else}
            (L.L.engine_n)
         {endif}
         (S.L.antrieb_rucksoundvol)
         (T.L.ev_schaltruck)
         1 (S.L.antrieb_getr_aktugang)
         0 (S.L.antrieb_retarder_wasrunning) (S.L.antrieb_gear_engaged_timer)
      {endif}
   {endif}

   

'Bremsmoment des Retarders:

   (L.L.antrieb_retarder) 1 =
   {if}
      (L.L.antrieb_retarderstufe) 1 =
      {if}
         (L.L.antrieb_n_kardanwelle) 29.3 / (F.L.retarder_stufe1) 0.7 * (C.L.antrieb_i_achse) /-/ * (L.L.antrieb_retarder_time_elapsed) (F.L.retarder_fadein) * (S.L.antrieb_retardermoment) (L.L.M_Wheel) + (S.L.M_Wheel)
      {else}
         (L.L.antrieb_retarderstufe) 2 =
         {if}
            (L.L.antrieb_retardermoment) (L.S.Timegap) 10000 * - s1
            (L.L.antrieb_n_kardanwelle) 29.3 / (F.L.retarder_stufe2) 0.7 * (C.L.antrieb_i_achse) /-/ * (L.L.antrieb_retarder_time_elapsed) (F.L.retarder_fadein) * s2
            l1 l2 max (S.L.antrieb_retardermoment) (L.L.M_Wheel) + (S.L.M_Wheel)
         {else}
         (L.L.antrieb_retarderstufe) 3 =
         {if}   
            (L.L.antrieb_retardermoment) (L.S.Timegap) 10000 * - s1
            (L.L.antrieb_n_kardanwelle) 29.3 / (F.L.retarder_stufe3) 0.7 * (C.L.antrieb_i_achse) /-/ * (L.L.antrieb_retarder_time_elapsed) (F.L.retarder_fadein) * s2
            l1 l2 max (S.L.antrieb_retardermoment) (L.L.M_Wheel) + (S.L.M_Wheel)
         {endif}
         {endif}
      {endif}
   {else}
'      Ausfaden der Retarder-Bremsstärke
      (L.L.antrieb_retardermoment) (L.S.Timegap) 10000 * + 0 min (S.L.antrieb_retardermoment) (L.L.M_Wheel) + (S.L.M_Wheel)
      (L.L.antrieb_retarder_volume) (L.S.Timegap) 2 * - 0 max (S.L.antrieb_retarder_volume) s0
      l0 0 =
      {if}
         0 (S.L.antrieb_wendesatz)
      {endif}
   
   {endif}



'#################################################################################
'   Automatische Neutralschaltung bei Stillstand
'#################################################################################

(C.L.antrieb_getr_version) 1 >
{if}
   (L.L.antrieb_gear_engaged_timer) (L.S.Timegap) + (S.L.antrieb_gear_engaged_timer)
   
   (L.L.antrieb_n_kardanwelle) (C.L.antrieb_neutral_maxspeed) <
   (L.L.antrieb_getr_gangwahl) 1 > &&
   (L.L.antrieb_retarder) ! &&
   (L.L.antrieb_retarder_wasrunning) ! &&   
   {if}
      (L.L.bremse_p_Brzyl_HA) (C.L.antrieb_neutral_brakepressure) >
      {if}
         (L.L.antrieb_neutral_requested) !
         {if}
            0 (S.L.antrieb_neutral_requested)

            (C.L.antrieb_getr_version) 2 = !
            (C.L.antrieb_getr_version) 2 = (L.L.antrieb_gear_engaged_timer) (C.L.antrieb_gear_engaged_mintime) < && ||
            {if}
               0 (S.L.antrieb_gear_engaged_timer)
            {endif}
         {endif}
         
         (L.L.antrieb_neutral_requested)
         (L.L.antrieb_gear_engaged_timer) (C.L.antrieb_gear_engaged_mintime) >= &&
         {if}
            0 (S.L.antrieb_getr_aktugang)
         {endif}

      {else}      
         0 (S.L.antrieb_neutral_requested) (S.L.antrieb_gear_engaged_timer)
      {endif}
      
   {endif}
{endif}










'#################################################################################
'   Planetengetriebe-Wendesatz (Fjü-Sound)
'#################################################################################
   
   (L.L.antrieb_retarder) 
   (L.L.antrieb_getr_gangwahl) 0 = ||
   {if}
      1 (S.L.antrieb_wendesatz) (S.L.antrieb_retarder_volume)
'      Rücksetzen auf 0 erfolgt beim Fadeout des Retarderbremsmoments
   {endif}
{end}



'#################################################################################
'   Bestimmung der Schaltgeschwindigkeiten
'#################################################################################

{macro:antrieb_getr_chkNxtGear}

'   Höchster Gang: s0!

'   Verzögerung der Kickdown-Schaltung:

   (L.L.throttle) 1 =
   {if}
      (L.L.antrieb_kickdown_stellglied) (L.S.Timegap) 2 * + 1 min (S.L.antrieb_kickdown_stellglied)
      1 =
      {if}
         
      {endif}
   {else}
      (L.L.antrieb_kickdown_stellglied) (L.S.Timegap) 1 * - 0 max (S.L.antrieb_kickdown_stellglied)
      0 =
      {if}
         
      {endif}
   {endif}

'   Verzögerung der gaspedalabhängigen Schaltschwelle:

   
   (L.L.throttle) (L.L.antrieb_throttle_stellglied) >
   {if}
      (L.L.antrieb_throttle_stellglied) (L.S.Timegap) 1 * + (L.L.throttle) min (S.L.antrieb_throttle_stellglied)
   {else}
      (L.L.antrieb_throttle_stellglied) (L.S.Timegap) 0.5 * - (L.L.throttle) max (S.L.antrieb_throttle_stellglied)
   {endif}
   
'   Berechnen der aktuellen Beschleunigung:
   
   (L.L.Velocity) (L.L.antrieb_last_geschwindigkeit) - 3.6 / (L.S.Timegap) / (S.L.antrieb_beschleunigung)
   (L.L.Velocity) (S.L.antrieb_last_geschwindigkeit)
   
   



   (L.L.antrieb_getr_gangwahl) 0 =
   {if}
      
   {else}
   (L.L.antrieb_getr_gangwahl) 1 =
   {if}
      
   {else}
      (L.L.antrieb_getr_gangwahl) 2 =
      {if}
         (L.L.antrieb_retarder_armed) 0 =
         {if}
            1 s0
         {else}
            2 s0
         {endif}
      {else}
      (L.L.antrieb_getr_gangwahl) 3 =
      {if}
         2 s0
      {else}
         3 s0
      {endif}
   {endif}


         (L.L.antrieb_getr_aktugang) s1

         1 =
         {if}
            (C.L.antrieb_getr_ratio1) (C.L.antrieb_i_achse) * (S.L.antrieb_getr_ratio)
            (L.L.antrieb_kickdown)
            {if}
               (C.L.antrieb_getr_autoSwUpkickdnSpd1) s3 s4
            {else}
               (C.L.antrieb_getr_autoSwUpMinSpd1) s4
               (C.L.antrieb_getr_autoSwUpMaxSpd1) s3
            {endif}
      
            (M.L.antrieb_getr_chkCh) (L.L.antrieb_n_kardanwelle) < l0 2 >= && (L.L.antrieb_beschleunigung) 0 > &&
            {if}
               1 (S.L.antrieb_getr_aktugang)
               (C.L.antrieb_kuppl_M_up_max) s6
               (C.L.antrieb_kuppl_M_up_min) s7
               (M.L.antrieb_getr_schaltmoment) (S.L.antrieb_schaltmoment_soll)   (S.L.antrieb_schaltmoment)            
               
            {endif}

            (L.L.antrieb_getr_aktugang) 1 =
            (L.L.antrieb_getr_gangwahl) 1 > &&
            (L.L.antrieb_retarder_armed) 1 = &&
            (L.L.antrieb_n_kardanwelle) (C.L.retarder_min_einschaltspeed) > &&
            {if}
               1 (S.L.antrieb_getr_aktugang)
               300 (S.L.antrieb_schaltmoment_soll) (S.L.antrieb_schaltmoment)
            {endif}
            
         {endif}
         l1 2 =
         {if}
            (C.L.antrieb_getr_ratio2) (C.L.antrieb_i_achse) * (S.L.antrieb_getr_ratio)
            (L.L.antrieb_kickdown)
            {if}
               (C.L.antrieb_getr_autoSwUpkickdnSpd2) s3 s4
            {else}
               (C.L.antrieb_getr_autoSwUpMinSpd2) s4
               (C.L.antrieb_getr_autoSwUpMaxSpd2) s3
            {endif}
            (M.L.antrieb_getr_chkCh) (L.L.antrieb_n_kardanwelle) < l0 3 >= && (L.L.antrieb_beschleunigung) 0 > &&
            {if}
               2 (S.L.antrieb_getr_aktugang)
               (C.L.antrieb_kuppl_M_up_max) s6
               (C.L.antrieb_kuppl_M_up_min) s7
               (M.L.antrieb_getr_schaltmoment) (S.L.antrieb_schaltmoment_soll) (S.L.antrieb_schaltmoment)
                        
            {endif}
            (L.L.antrieb_kickdown) l0 1 = ||
            {if}
               (C.L.antrieb_getr_autoSwDnkickdnSpd2) s3 s4
            {else}
               (C.L.antrieb_getr_autoSwDnMinSpd2) s4
               (C.L.antrieb_getr_autoSwDnMaxSpd2) s3
            {endif}
            (M.L.antrieb_getr_chkCh) (L.L.antrieb_n_kardanwelle) > (L.L.antrieb_retarder_armed) ! &&
            (L.L.antrieb_n_kardanwelle) (C.L.antrieb_getr_autoSwDnMinSpd2) < ||
            {if}
               2 (S.L.antrieb_getr_aktugang)
               0 (S.L.antrieb_schaltmoment)
            {endif}
         {endif}
      
         l1 3 =
         {if}
            (C.L.antrieb_getr_ratio3) (C.L.antrieb_i_achse) * (S.L.antrieb_getr_ratio)
            (L.L.antrieb_kickdown)
            {if}
               (C.L.antrieb_getr_autoSwUpkickdnSpd3) s3 s4
            {else}
               (C.L.antrieb_getr_autoSwUpMinSpd3) s4
               (C.L.antrieb_getr_autoSwUpMaxSpd3) s3
            {endif}
            (M.L.antrieb_getr_chkCh) (L.L.antrieb_n_kardanwelle) < l0 3 >= && (L.L.antrieb_beschleunigung) 0 > &&
            {if}
               3 (S.L.antrieb_getr_aktugang)
               (C.L.antrieb_kuppl_M_up_max) s6
               (C.L.antrieb_kuppl_M_up_min) s7
               (M.L.antrieb_getr_schaltmoment) (S.L.antrieb_schaltmoment_soll) (S.L.antrieb_schaltmoment)
                        
            {endif}
            (L.L.antrieb_kickdown) l0 1 = ||
            {if}
               (C.L.antrieb_getr_autoSwDnkickdnSpd3) s3 s4
            {else}
               (C.L.antrieb_getr_autoSwDnMinSpd3) s4
               (C.L.antrieb_getr_autoSwDnMaxSpd3) s3
            {endif}
            (M.L.antrieb_getr_chkCh) (L.L.antrieb_n_kardanwelle) > (L.L.antrieb_retarder_armed) ! &&
            (L.L.antrieb_n_kardanwelle) (C.L.antrieb_getr_autoSwDnMinSpd3) < ||
            {if}
               3 (S.L.antrieb_getr_aktugang)
               0 (S.L.antrieb_schaltmoment)
            {endif}
         {endif}
   
         l1 4 =
         {if}
            (C.L.antrieb_getr_ratio4) (C.L.antrieb_i_achse) * (S.L.antrieb_getr_ratio)
            (L.L.antrieb_kickdown)
            {if}
               (C.L.antrieb_getr_autoSwUpkickdnSpd4) s3 s4
            {else}
               (C.L.antrieb_getr_autoSwUpMinSpd4) s4
               (C.L.antrieb_getr_autoSwUpMaxSpd4) s3
            {endif}
            (M.L.antrieb_getr_chkCh) (L.L.antrieb_n_kardanwelle) < l0 3 >= && (L.L.antrieb_beschleunigung) 0 > &&
            {if}
               4 (S.L.antrieb_getr_aktugang)
               (C.L.antrieb_kuppl_M_up_max) s6
               (C.L.antrieb_kuppl_M_up_min) s7
               (M.L.antrieb_getr_schaltmoment) (S.L.antrieb_schaltmoment_soll) (S.L.antrieb_schaltmoment)
                        
            {endif}
            (L.L.antrieb_kickdown) l0 1 = ||
            {if}
               (C.L.antrieb_getr_autoSwDnkickdnSpd4) s3 s4
            {else}
               (C.L.antrieb_getr_autoSwDnMinSpd4) s4
               (C.L.antrieb_getr_autoSwDnMaxSpd4) s3
            {endif}
            (M.L.antrieb_getr_chkCh) (L.L.antrieb_n_kardanwelle) > (L.L.antrieb_retarder_armed) ! &&
            (L.L.antrieb_n_kardanwelle) (C.L.antrieb_getr_autoSwDnMinSpd4) < ||
            {if}
               4 (S.L.antrieb_getr_aktugang)
               0 (S.L.antrieb_schaltmoment)
            {endif}
         {endif}
         
         l1 5 =
         {if}
            (C.L.antrieb_getr_ratio5) (C.L.antrieb_i_achse) * (S.L.antrieb_getr_ratio)
            (L.L.antrieb_kickdown) l0 2 <= ||
            {if}
               (C.L.antrieb_getr_autoSwDnkickdnSpd5) s3 s4
            {else}
               (C.L.antrieb_getr_autoSwDnMinSpd5) s4
               (C.L.antrieb_getr_autoSwDnMaxSpd5) s3
            {endif}
            (M.L.antrieb_getr_chkCh) (L.L.antrieb_n_kardanwelle) >
            {if}
               5 (S.L.antrieb_getr_aktugang)
               (C.L.antrieb_kuppl_M_dn_max) s6
               (C.L.antrieb_kuppl_M_dn_min) s7
               (M.L.antrieb_getr_schaltmoment) (S.L.antrieb_schaltmoment_soll)
               0 (S.L.antrieb_schaltmoment)
               
            {endif}
         {endif}


   {endif}
   {endif}


'   Testweise: Differenzialdrehzahlpfeifen

   (L.L.engine_n) (L.L.antrieb_n_kardanwelle) 2 * - (S.L.antrieb_n_differenz)





{end}

{macro:antrieb_getr_chkCh}
'   Berechnung der aktuellen Hochschaltschwelle: (l3 = bei Vollgas, l4 = bei Leergas)
   (L.L.antrieb_throttle_stellglied) s2 l3 * 1 l2 - l4 * +
{end}

{macro:antrieb_getr_schaltmoment}
'   Berechnung des Schaltmomentes (l6 = bei Vollgas, l7 = bei Leergas)
   (L.L.antrieb_throttle_stellglied) s5 l6 * 1 l5 - l7 * +
{end}

Getriebeversion:
1: Retarder nicht im 1. Gang, keine Neutralschaltung
2: Retarder im 1. Gang, Neutralschaltung
3: Retarder nicht im 1. Gang, Neutralschaltung
[const]
antrieb_getr_version
2

Zeit für den Wechsel zwischen Retarder und Traktion (nur bei Getriebeversion 2)
[const]
antrieb_retarder_changetime
0.6

Mindestzeit, die eingekuppelt sein muss, bevor Neutralschaltung greift
[const]
antrieb_gear_engaged_mintime
2

Geschwindigkeit, unterhalb der die Neutralschaltung greift
[const]
antrieb_neutral_maxspeed
70

Bremsdruck in Pa, ab dem Neutralschaltung greift
[const]
antrieb_neutral_brakepressure
170000

[const]
antrieb_kuppl_M_up_max
2100

[const]
antrieb_kuppl_M_up_min
400

[const]
antrieb_kuppl_M_dn_max
2100

[const]
antrieb_kuppl_M_dn_min
500

[const]
antrieb_getr_ratio1
2.5

[const]
antrieb_getr_ratio2
1.2

[const]
antrieb_getr_ratio3
0.9

[const]
antrieb_getr_ratio4
0.7

[const]
antrieb_getr_ratio5
0.5

[const]
antrieb_i_achse
8.74

Die folgenden Werte beziehen sich auf die Drehzahl der Kardanwelle und sind somit unabhängig von Achsübersetzung und Reifengröße!
km/h zu Wellendrehzahl (Raddurchmesser=1.03, i_achse=5.74 =>Faktor 29.56

[const]
antrieb_getr_autoSwUpMinSpd1
690
710

[const]
antrieb_getr_autoSwUpMaxSpd1
1500

[const]
antrieb_getr_autoSwUpkickdnSpd1
1090

[const]
antrieb_getr_autoSwDnMinSpd2
442

[const]
antrieb_getr_autoSwDnMaxSpd2
740

[const]
antrieb_getr_autoSwDnkickdnSpd2
1025.5

[const]
antrieb_getr_autoSwUpMinSpd2
1300

[const]
antrieb_getr_autoSwUpMaxSpd2
1300

[const]
antrieb_getr_autoSwUpkickdnSpd2
1537


Terceira marcha

[const]
antrieb_getr_autoSwDnMinSpd3
442

[const]
antrieb_getr_autoSwDnMaxSpd3
740

[const]
antrieb_getr_autoSwDnkickdnSpd3
1025.5

[const]
antrieb_getr_autoSwUpMinSpd3
690
710

[const]
antrieb_getr_autoSwUpMaxSpd3
1300

[const]
antrieb_getr_autoSwUpkickdnSpd3
1537

Fim Terceira marcha

Nova Quarta marcha

[const]
antrieb_getr_autoSwDnMinSpd4
442

[const]
antrieb_getr_autoSwDnMaxSpd4
740

[const]
antrieb_getr_autoSwDnkickdnSpd4
1025.5

[const]
antrieb_getr_autoSwUpMinSpd4
690
710


[const]
antrieb_getr_autoSwUpMaxSpd4
1300

[const]
antrieb_getr_autoSwUpkickdnSpd4
1537

Fim Quarta marcha

Nova Quinta marcha

[const]
antrieb_getr_autoSwDnMinSpd5
800

[const]
antrieb_getr_autoSwDnMaxSpd5
1040

[const]
antrieb_getr_autoSwDnkickdnSpd5
1408

[const]
antrieb_wandler_fillrate
4000

Fim Quinta marcha

[const]
retarder_min_einschaltspeed
502

[const]
antrieb_retarder_startdelay
0.2

[newcurve]
retarder_stufe1
[pnt]
0
0
[pnt]
10
194
[pnt]
20
388
[pnt]
30
407
[pnt]
40
485
[pnt]
50
641
[pnt]
60
854
[pnt]
70
990
[pnt]
80
1165

[newcurve]
retarder_stufe2
[pnt]
0
0
[pnt]
10
291
[pnt]
20
582
[pnt]
30
874
[pnt]
40
1019
[pnt]
50
1165
[pnt]
60
1262
[pnt]
70
1359
[pnt]
80
1456

[newcurve]
retarder_stufe3
[pnt]
0
0
[pnt]
10
291
[pnt]
20
582
[pnt]
30
1068
[pnt]
40
1554
[pnt]
50
1845
[pnt]
60
1942
[pnt]
70
1991
[pnt]
80
2039


[const]
antrieb_gangwahlzeit
0.5

[const]
antrieb_neutralwahlzeit
0.1

[newcurve]
antrieb_wandler_lambda

[pnt]
-2
50

[pnt]
0
8.5

[pnt]
0.5
3.1

[pnt]
0.7
0

[newcurve]
antrieb_wandler_my

[pnt]
0
5
4.65

[pnt]
0.6
1.4

[pnt]
0.7
0


[newcurve]
antrieb_reverse_torque_reduction

[pnt]
-220
0

[pnt]
0
1



[newcurve]
antrieb_wandler_lambda_r

[pnt]
0.2
-12

[pnt]
0.5
-8

[pnt]
1
-4

[pnt]
1.42857
0


[newcurve]
antrieb_wandler_my_r

[pnt]
0.2
5

[pnt]
1.42857
0


[newcurve]
antrieb_wandler_lowrpmsoftness

[pnt]
0
0.4

[pnt]
1000
1



[newcurve]
retarder_fadein

[pnt]
0
0.5

[pnt]
0.4
1.5

[pnt]
0.6
1

[const]
gear_efficiency
0.95


'Actuator rate in 1/n per second (total range 0..1)

[const]
kickdown_stellglied_inc_rate
2

[const]
kickdown_stellglied_dec_rate
1

[const]
throttle_stellglied_inc_rate
1

[const]
throttle_stellglied_dec_rate
0.3

'minimum acceleration for upshift (m/s^2)

[const]
min_upshift_acceleration
-0.2

8 (S.L.antrieb_getr_aktugang).

(L.L.antrieb_kickdown)
            {if}
               (C.L.antrieb_getr_autoSwUpkickdnSpd1) s3 s4
            {else}
               (C.L.antrieb_getr_autoSwUpMinSpd1) s4
               (C.L.antrieb_getr_autoSwUpMaxSpd1) s3
            {endif}

         (L.L.antrieb_getr_aktugang) s1

         1 =
         {if}
            (C.L.antrieb_getr_ratio1) (C.L.antrieb_i_achse) * (S.L.antrieb_getr_ratio)

            
         {endif}
         l1 2 =
         {if}
            (C.L.antrieb_getr_ratio2) (C.L.antrieb_i_achse) * (S.L.antrieb_getr_ratio)
            
         {endif}
      
         l1 3 =
         {if}
            (C.L.antrieb_getr_ratio3) (C.L.antrieb_i_achse) * (S.L.antrieb_getr_ratio)
            
         {endif}
   
         l1 4 =
         {if}
            (C.L.antrieb_getr_ratio4) (C.L.antrieb_i_achse) * (S.L.antrieb_getr_ratio)
            
         {endif}
         
         l1 5 =
         {if}
            (C.L.antrieb_getr_ratio5) (C.L.antrieb_i_achse) * (S.L.antrieb_getr_ratio)
            
         {endif}


   {endif}
   {endif}