(P:Absolute time,seconds)
@Time (L:ITTCounter,seconds) - 0 ==
(P:Simulation rate, number)
(P:Absolute time,seconds) (>L:ITTCounter,seconds)
(P:Absolute time,seconds) (>L:ITTElapsed,seconds)
(P:Absolute time,seconds) (L:ITTElapsed,seconds) - abs
(P:Absolute time,minutes) (>L:CoolingElapsed,minutes)
(P:Absolute time,minutes) (L:CoolingElapsed,minutes) - abs
(P:Absolute time,minutes) (>L:StarterElapsed,minutes)
(P:Absolute time,minutes) (L:StarterElapsed,minutes) - abs
(P:Absolute time,minutes) (>L:StarterElapsed,minutes)
(A:GENERAL ENG ELAPSED TIME:1,hours) (>L:Eng1 Elapsed Time,hours)
(@3,celsius) @Paused !
if{ p @1 sp0 (@3,celsius) s1 @2 * 1.0 @2 - @SimRate * l0 * +
l0 d l1 > if{ min } els{ max }
d (>@3,celsius)
}
l0 3 pow -0.86888112 * sp10
l0 2 pow 7.97290210 * sp11
l0 59.75087413 * sp12
l10 l11 + l12 + 166.95 +
l0 3 pow -0.00150932 * sp10
l0 2 pow 0.01842657 * sp11
l0 0.01324592 * sp12
l10 l11 + l12 - 1.105 +
l23 0.0200 * 0.770 +
(L:Turb Eng1 ITT,celsius) (A:TURB ENG1 ITT,celsius) - abs 100 max 400 min sp9
l9 2 pow 0.00000017 * sp11
l9 0.00025000 * sp12
l11 l12 - 0.97333333 +
(A:TOTAL AIR TEMPERATURE,celsius) -0.00721409 * 1.07387534 +
l0 -2.12774574 pow 1014493.97254775 *
(A:GENERAL ENG ELAPSED TIME:1,hours) (L:Eng1 Elapsed Time,hours) - 60 * 1 max 5 min d (>L:EngineTimer,minutes) 30 * 350 +
(L:InitITT,bool) !
if{ (A:TOTAL AIR TEMPERATURE,Celsius) 0 max (>L:Turb Eng1 ITT,celsius) sp0
@CoolMinuteSeed 1.8 max 1440 min (>L:CoolingSeed,minutes)
(A:GENERAL ENG1 MIXTURE LEVER POSITION, percent) (>L:MixtureLeverAnt,percent)
1 (>L:InitITT,bool)
}
(A:GENERAL ENG1 STARTER,bool) ! (L:StarterEngaged,bool) and (A:ENG1 COMBUSTION,bool) ! and
if{ 1 (>L:StarterOff,bool) }
(A:GENERAL ENG1 STARTER,bool) ! if{ 0 (>L:StarterEngaged,bool) }
(A:GENERAL ENG1 STARTER,bool) (L:StarterEngaged,bool) ! and
if{ @TurnOnElapsedStarter 1 (>L:StarterEngaged,bool) 0 (>L:StarterOff,bool) }
(A:ENG1 COMBUSTION,bool)
if{
@TurnOffElapsedStarter
(L:InitCombustion,bool) !
if{ 1 (>L:InitCombustion,bool) 0 (>L:NoCombustion,bool)
(L:Turb Eng1 ITT,celsius) (>L:Turb Eng1 ITTBase,celsius)
@TurnOnElapsed
@TurnOnEngineTimer
}
els{
@Elapsed s0 10 <=
if{
(A:TURB ENG1 ITT,celsius) (L:MaxITTatStart,celsius) max (>L:MaxITTatStart,celsius)
(L:MaxITTatStart,celsius) (A:TURB ENG1 ITT,celsius) >
if{ (L:MaxITTatStart,celsius) 714 / (>L:MaxIttStartFactor,number) }
els{ 1 (>L:MaxIttStartFactor,number) }
@NormalStart (L:MaxIttStartFactor,number) * sp20
1 l20 * (L:Turb Eng1 ITTBase,celsius) 0 max max (>L:Turb Eng1 ITT,celsius)
}
els{ @DampConstant sp9 @Damped((A:TURB ENG1 ITT,celsius),l9,L:Turb Eng1 ITT) }
}
}
els{
(L:NoCombustion,bool) !
if{ 1 (>L:NoCombustion,bool) @TurnOnElapsed @TurnOnElapsedCooling
0 (>L:InitCombustion,bool) 1.8 (>L:CoolingSeed,minutes)
(L:Turb Eng1 ITT,celsius) d (>L:Turb Eng1 ITTBase,celsius) (>L:Turb Eng1 ITTAnt,celsius)
(L:Turb Eng1 N1,percent) 1 >
if{ @GetEngineTimer (L:Turb Eng1 ITT,celsius) min (>L:Turb Eng1 ITTBase,celsius) }
}
(L:Turb Eng1 N1,percent) 1 >
if{
(L:Turb Eng1 N1,percent) 100 / 33000 * 60 / 0.51227383 pow 0.38502765 * @Elapsed * sp0 (* sp0 are deg Celsius per fraction of second *)
(L:Turb Eng1 ITTBase,celsius) 500 min 0.00180361 * 0.09819639 + l0 * sp1 (* sp1 are deg Celsius corrected per current ITT temp *)
(L:Turb Eng1 ITTBase,celsius) l1 @CoolOATDiffFactor * - s2 (>L:Turb Eng1 ITTBase,celsius)
@TurnOnElapsed
l2 sp0 @CoolMinuteSeed 1.8 max 1440 min (>L:CoolingSeed,minutes)
(L:Turb Eng1 ITTBase,celsius) (>L:Turb Eng1 ITTAnt,celsius)
}
els{
@ElapsedCooling (L:CoolingSeed,minutes) + (* add the seed value to elapsed minutes since no combustion *)
-0.478337 pow 665.37087 * sp0 (* obtain actual ITT temperature per calcs instead of gauge *)
(L:Turb Eng1 ITTAnt,celsius) l0 - @CoolOATDiffFactor * sp2
(L:Turb Eng1 ITTAnt,celsius) l2 - (>L:Turb Eng1 ITTBase,celsius)
(L:Turb Eng1 ITTBase,celsius) (>L:Turb Eng1 ITTAnt,celsius)
}
(L:Turb Eng1 ITTBase,celsius) (>L:Turb Eng1 ITT,celsius)
@Damped((L:Turb Eng1 ITTBase,celsius),0.950,L:Turb Eng1 ITT)
}
@UpdateTimer
(L:Turb Eng1 ITT, celsius) 0 max