367 lines
11 KiB
Text
367 lines
11 KiB
Text
|
# A3XX Icing System
|
||
|
|
# Jonathan Redpath (legoboyvdlp)
|
||
|
|
|
||
|
|
# Copyright (c) 2019 Joshua Davidson (Octal450)
|
||
|
|
|
||
|
|
var dewpoint = 0;
|
||
|
|
var temperature = 0;
|
||
|
|
var speed = 0;
|
||
|
|
var visibility = 0;
|
||
|
|
var visibLclWx = 0;
|
||
|
|
var severity = 0;
|
||
|
|
var factor = 0;
|
||
|
|
var maxSpread = 0;
|
||
|
|
var icingCond = 0;
|
||
|
|
var pause = 0;
|
||
|
|
var melt = 0;
|
||
|
|
var windowprobe = 0;
|
||
|
|
var wingBtn = 0;
|
||
|
|
var wingFault = 0;
|
||
|
|
var wingAnti = 0;
|
||
|
|
var PSI = 0;
|
||
|
|
var wowl = 0;
|
||
|
|
var wowr = 0;
|
||
|
|
var PitotIcing = 0;
|
||
|
|
var PitotFailed = 0;
|
||
|
|
var lengBtn = 0;
|
||
|
|
var lengFault = 0;
|
||
|
|
var rengBtn = 0;
|
||
|
|
var rengFault = 0;
|
||
|
|
var lengAnti = 0;
|
||
|
|
var rengAnti = 0;
|
||
|
|
var WingHasBeenTurnedOff = 0;
|
||
|
|
var GroundModeFinished = 0;
|
||
|
|
var icing1 = 0;
|
||
|
|
var sensitive1 = 0;
|
||
|
|
var v = 0;
|
||
|
|
var a = 0;
|
||
|
|
var icing2 = 0;
|
||
|
|
var sensitive2 = 0;
|
||
|
|
var u = 0;
|
||
|
|
var b = 0;
|
||
|
|
var icing3 = 0;
|
||
|
|
var sensitive3 = 0;
|
||
|
|
var t = 0;
|
||
|
|
var c = 0;
|
||
|
|
var icing4 = 0;
|
||
|
|
var sensitive4 = 0;
|
||
|
|
var s = 0;
|
||
|
|
var d = 0;
|
||
|
|
var icing5 = 0;
|
||
|
|
var sensitive5 = 0;
|
||
|
|
var r = 0;
|
||
|
|
var icing6 = 0;
|
||
|
|
var sensitive6 = 0;
|
||
|
|
var q = 0;
|
||
|
|
var e = 0;
|
||
|
|
var spread = 0;
|
||
|
|
var windowprb = 0;
|
||
|
|
var stateL = 0;
|
||
|
|
var stateR = 0;
|
||
|
|
|
||
|
|
var icingInit = func {
|
||
|
|
setprop("/systems/icing/severity", "0"); # maximum severity: we will make it random
|
||
|
|
setprop("/systems/icing/factor", 0.0); # the factor is how many inches we add per second
|
||
|
|
setprop("/systems/icing/max-spread-degc", 0.0);
|
||
|
|
setprop("/systems/icing/melt-w-heat-factor", -0.00005000);
|
||
|
|
setprop("/systems/icing/icingcond", 0);
|
||
|
|
setprop("/controls/switches/windowprobeheat", 0);
|
||
|
|
setprop("/controls/switches/wing", 0);
|
||
|
|
setprop("/controls/switches/wingfault", 0);
|
||
|
|
setprop("/controls/switches/leng", 0);
|
||
|
|
setprop("/controls/switches/lengfault", 0);
|
||
|
|
setprop("/controls/switches/reng", 0);
|
||
|
|
setprop("/controls/switches/rengfault", 0);
|
||
|
|
setprop("/controls/deice/wing", 0);
|
||
|
|
setprop("/controls/deice/lengine", 0);
|
||
|
|
setprop("/controls/deice/rengine", 0);
|
||
|
|
setprop("/controls/deice/windowprobeheat", 0);
|
||
|
|
setprop("/systems/pitot/icing", 0.0);
|
||
|
|
setprop("/systems/pitot/failed", 1);
|
||
|
|
setprop("/controls/deice/WingHasBeenTurnedOff", 0);
|
||
|
|
setprop("/controls/deice/GroundModeFinished", 0);
|
||
|
|
icing_timer.start();
|
||
|
|
}
|
||
|
|
|
||
|
|
var icingModel = func {
|
||
|
|
dewpoint = getprop("/environment/dewpoint-degc");
|
||
|
|
temperature = getprop("/environment/temperature-degc");
|
||
|
|
speed = getprop("/velocities/airspeed-kt");
|
||
|
|
visibility = getprop("/environment/effective-visibility-m");
|
||
|
|
visibLclWx = getprop("/environment/visibility-m");
|
||
|
|
severity = getprop("/systems/icing/severity");
|
||
|
|
factor = getprop("/systems/icing/factor");
|
||
|
|
maxSpread = getprop("/systems/icing/max-spread-degc");
|
||
|
|
icingCond = getprop("/systems/icing/icingcond");
|
||
|
|
pause = getprop("/sim/freeze/master");
|
||
|
|
melt = getprop("/systems/icing/melt-w-heat-factor");
|
||
|
|
windowprobe = getprop("/controls/deice/windowprobeheat");
|
||
|
|
wingBtn = getprop("/controls/switches/wing");
|
||
|
|
wingFault = getprop("/controls/switches/wingfault");
|
||
|
|
wingAnti = getprop("/controls/deice/wing");
|
||
|
|
PSI = getprop("/systems/pneumatic/total-psi");
|
||
|
|
wowl = getprop("/gear/gear[1]/wow");
|
||
|
|
wowr = getprop("/gear/gear[2]/wow");
|
||
|
|
PitotIcing = getprop("/systems/pitot/icing");
|
||
|
|
PitotFailed = getprop("/systems/pitot/failed");
|
||
|
|
lengBtn = getprop("/controls/switches/leng");
|
||
|
|
lengFault = getprop("/controls/switches/lengfault");
|
||
|
|
rengBtn = getprop("/controls/switches/reng");
|
||
|
|
rengFault = getprop("/controls/switches/rengfault");
|
||
|
|
lengAnti = getprop("/controls/deice/lengine");
|
||
|
|
rengAnti = getprop("/controls/deice/rengine");
|
||
|
|
WingHasBeenTurnedOff = getprop("/controls/deice/WingHasBeenTurnedOff");
|
||
|
|
GroundModeFinished = getprop("/controls/deice/GroundModeFinished");
|
||
|
|
|
||
|
|
if (temperature >= 0 or !icingCond) {
|
||
|
|
setprop("/systems/icing/severity", "0");
|
||
|
|
} else if (temperature < 0 and temperature >= -2 and icingCond) {
|
||
|
|
setprop("/systems/icing/severity", "1");
|
||
|
|
} else if (temperature < -2 and temperature >= -12 and icingCond) {
|
||
|
|
setprop("/systems/icing/severity", "3");
|
||
|
|
} else if (temperature < -12 and temperature >= -30 and icingCond) {
|
||
|
|
setprop("/systems/icing/severity", "5");
|
||
|
|
} else if (temperature < -30 and temperature >= -40 and icingCond) {
|
||
|
|
setprop("/systems/icing/severity", "3");
|
||
|
|
} else if (temperature < -40 and temperature >= -99 and icingCond) {
|
||
|
|
setprop("/systems/icing/severity", "1");
|
||
|
|
}
|
||
|
|
|
||
|
|
icing1 = getprop("/sim/model/icing/iceable[0]/ice-inches");
|
||
|
|
sensitive1 = getprop("/sim/model/icing/iceable[0]/sensitivity");
|
||
|
|
v = icing1 + (factor * sensitive1);
|
||
|
|
a = icing1 + melt;
|
||
|
|
if (icing1 < 0.0 and !pause) {
|
||
|
|
setprop("/sim/model/icing/iceable[0]/ice-inches", 0.0);
|
||
|
|
} else if (wingAnti) {
|
||
|
|
setprop("/sim/model/icing/iceable[0]/ice-inches", a);
|
||
|
|
} else if (!pause and !wingAnti) {
|
||
|
|
setprop("/sim/model/icing/iceable[0]/ice-inches", v);
|
||
|
|
}
|
||
|
|
|
||
|
|
icing2 = getprop("/sim/model/icing/iceable[1]/ice-inches");
|
||
|
|
sensitive2 = getprop("/sim/model/icing/iceable[1]/sensitivity");
|
||
|
|
u = icing2 + (factor * sensitive2);
|
||
|
|
b = icing2 + melt;
|
||
|
|
if (icing2 < 0.0 and !pause) {
|
||
|
|
setprop("/sim/model/icing/iceable[1]/ice-inches", 0.0);
|
||
|
|
} else if (lengAnti) {
|
||
|
|
setprop("/sim/model/icing/iceable[1]/ice-inches", b);
|
||
|
|
} else if (!pause and !lengAnti) {
|
||
|
|
setprop("/sim/model/icing/iceable[1]/ice-inches", u);
|
||
|
|
}
|
||
|
|
|
||
|
|
icing3 = getprop("/sim/model/icing/iceable[2]/ice-inches");
|
||
|
|
sensitive3 = getprop("/sim/model/icing/iceable[2]/sensitivity");
|
||
|
|
t = icing3 + (factor * sensitive3);
|
||
|
|
c = icing3 + melt;
|
||
|
|
if (icing3 < 0.0 and !pause) {
|
||
|
|
setprop("/sim/model/icing/iceable[2]/ice-inches", 0.0);
|
||
|
|
} else if (rengAnti) {
|
||
|
|
setprop("/sim/model/icing/iceable[2]/ice-inches", c);
|
||
|
|
} else if (!pause and !rengAnti) {
|
||
|
|
setprop("/sim/model/icing/iceable[2]/ice-inches", t);
|
||
|
|
}
|
||
|
|
|
||
|
|
icing4 = getprop("/sim/model/icing/iceable[3]/ice-inches");
|
||
|
|
sensitive4 = getprop("/sim/model/icing/iceable[3]/sensitivity");
|
||
|
|
s = icing4 + (factor * sensitive4);
|
||
|
|
d = icing4 + melt;
|
||
|
|
if (icing4 < 0.0 and !pause) {
|
||
|
|
setprop("/sim/model/icing/iceable[3]/ice-inches", 0.0);
|
||
|
|
} else if (windowprobe) {
|
||
|
|
setprop("/sim/model/icing/iceable[3]/ice-inches", d);
|
||
|
|
} else if (!pause and !windowprobe) {
|
||
|
|
setprop("/sim/model/icing/iceable[3]/ice-inches", s);
|
||
|
|
}
|
||
|
|
|
||
|
|
icing5 = getprop("/sim/model/icing/iceable[4]/ice-inches");
|
||
|
|
sensitive5 = getprop("/sim/model/icing/iceable[4]/sensitivity");
|
||
|
|
r = icing5 + (factor * sensitive5);
|
||
|
|
if (icing5 < 0.0 and !pause) {
|
||
|
|
setprop("/sim/model/icing/iceable[4]/ice-inches", 0.0);
|
||
|
|
} else if (!pause) {
|
||
|
|
setprop("/sim/model/icing/iceable[4]/ice-inches", r);
|
||
|
|
}
|
||
|
|
|
||
|
|
icing6 = getprop("/sim/model/icing/iceable[5]/ice-inches");
|
||
|
|
sensitive6 = getprop("/sim/model/icing/iceable[5]/sensitivity");
|
||
|
|
q = icing6 + (factor * sensitive6);
|
||
|
|
e = icing6 + melt;
|
||
|
|
if (icing6 < 0.0 and !pause) {
|
||
|
|
setprop("/sim/model/icing/iceable[5]/ice-inches", 0.0);
|
||
|
|
} else if (windowprobe) {
|
||
|
|
setprop("/sim/model/icing/iceable[5]/ice-inches", e);
|
||
|
|
} else if (!pause and !windowprobe) {
|
||
|
|
setprop("/sim/model/icing/iceable[5]/ice-inches", q);
|
||
|
|
}
|
||
|
|
|
||
|
|
# Do we create ice?
|
||
|
|
spread = temperature - dewpoint;
|
||
|
|
# freezing fog or low temp and below dp or in advanced wx cloud
|
||
|
|
if ((spread < maxSpread and temperature < 0) or (temperature < 0 and visibility < 1000) or (visibLclWx < 5000 and temperature < 0)) {
|
||
|
|
setprop("/systems/icing/icingcond", 1);
|
||
|
|
} else {
|
||
|
|
setprop("/systems/icing/icingcond", 0);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (WingHasBeenTurnedOff and !wowl and !wowr and GroundModeFinished) {
|
||
|
|
setprop("/controls/deice/wing", 1);
|
||
|
|
setprop("/controls/switches/WingHasBeenTurnedOff", 0);
|
||
|
|
}
|
||
|
|
|
||
|
|
# If we have low pressure we have a fault
|
||
|
|
if (PSI < 10) {
|
||
|
|
setprop("/controls/switches/wingfault", 1);
|
||
|
|
setprop("/controls/deice/wing", 0);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (PSI > 10 and wingFault) {
|
||
|
|
setprop("/controls/switches/wingfault", 0);
|
||
|
|
if (wingBtn) {
|
||
|
|
setprop("/controls/deice/wing", 1);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (PitotIcing > 0.03) {
|
||
|
|
if (!PitotFailed) {
|
||
|
|
setprop("/systems/pitot/failed", 1);
|
||
|
|
}
|
||
|
|
} else if (PitotIcing < 0.03) {
|
||
|
|
if (PitotFailed) {
|
||
|
|
setprop("/systems/pitot/failed", 0);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# if ((getprop("/systems/electrical/bus/dc-1") == 0 or getprop("/systems/electrical/bus/dc-2") == 0) and getprop("/fdm/jsbsim/position/wow") == 0) {
|
||
|
|
# setprop("/controls/switches/leng", 1);
|
||
|
|
# setprop("/controls/switches/reng", 1);
|
||
|
|
# }
|
||
|
|
|
||
|
|
#if (getprop("/systems/electrical/bus/dc-ess-shed") == 0) {
|
||
|
|
# setprop("/controls/switches/wing", 0);
|
||
|
|
#}
|
||
|
|
}
|
||
|
|
|
||
|
|
#################
|
||
|
|
# LEng Anti-Ice #
|
||
|
|
#################
|
||
|
|
|
||
|
|
setlistener("/controls/switches/leng", func {
|
||
|
|
if (getprop("/controls/switches/leng") == 1 and getprop("/engines/engine[0]/state") == 3) {
|
||
|
|
setprop("/controls/switches/lengfault", 1);
|
||
|
|
settimer(func() {
|
||
|
|
setprop("/controls/switches/lengfault", 0);
|
||
|
|
setprop("/controls/deice/lengine", 1);
|
||
|
|
}, 0.5);
|
||
|
|
} else if (getprop("/controls/switches/leng") == 0) {
|
||
|
|
setprop("/controls/switches/lengfault", 1);
|
||
|
|
settimer(func() {
|
||
|
|
setprop("/controls/switches/lengfault", 0);
|
||
|
|
setprop("/controls/deice/lengine", 0);
|
||
|
|
}, 0.5);
|
||
|
|
}
|
||
|
|
});
|
||
|
|
|
||
|
|
setlistener("/engines/engine[0]/state", func {
|
||
|
|
if (getprop("/engines/engine[0]/state") != 3) {
|
||
|
|
setprop("/controls/switches/leng", 0);
|
||
|
|
}
|
||
|
|
});
|
||
|
|
|
||
|
|
#################
|
||
|
|
# REng Anti-Ice #
|
||
|
|
#################
|
||
|
|
|
||
|
|
setlistener("/controls/switches/reng", func {
|
||
|
|
if (getprop("/controls/switches/reng") == 1 and getprop("/engines/engine[1]/state") == 3) {
|
||
|
|
setprop("/controls/switches/rengfault", 1);
|
||
|
|
settimer(func() {
|
||
|
|
setprop("/controls/switches/rengfault", 0);
|
||
|
|
setprop("/controls/deice/rengine", 1);
|
||
|
|
}, 0.5);
|
||
|
|
} else if (getprop("/controls/switches/reng") == 0) {
|
||
|
|
setprop("/controls/switches/rengfault", 1);
|
||
|
|
settimer(func() {
|
||
|
|
setprop("/controls/switches/rengfault", 0);
|
||
|
|
setprop("/controls/deice/rengine", 0);
|
||
|
|
}, 0.5);
|
||
|
|
}
|
||
|
|
});
|
||
|
|
|
||
|
|
setlistener("/engines/engine[1]/state", func {
|
||
|
|
if (getprop("/engines/engine[1]/state") != 3) {
|
||
|
|
setprop("/controls/switches/reng", 0);
|
||
|
|
}
|
||
|
|
});
|
||
|
|
|
||
|
|
##################
|
||
|
|
# Probe Anti-Ice #
|
||
|
|
##################
|
||
|
|
|
||
|
|
setlistener("/controls/switches/windowprobeheat", func {
|
||
|
|
windowprb = getprop("/controls/switches/windowprobeheat");
|
||
|
|
if (windowprb == 0.5) { # if in auto
|
||
|
|
wowl = getprop("/gear/gear[1]/wow");
|
||
|
|
wowr = getprop("/gear/gear[2]/wow");
|
||
|
|
stateL = getprop("/engines/engine[0]/state");
|
||
|
|
stateR = getprop("/engines/engine[1]/state");
|
||
|
|
if (!wowl or !wowr) {
|
||
|
|
setprop("/controls/deice/windowprobeheat", 1);
|
||
|
|
} else if (stateL == 3 or stateR == 3) {
|
||
|
|
setprop("/controls/deice/windowprobeheat", 1);
|
||
|
|
}
|
||
|
|
} else if (windowprb == 1) { # if in ON
|
||
|
|
setprop("/controls/deice/windowprobeheat", 1);
|
||
|
|
} else {
|
||
|
|
setprop("/controls/deice/windowprobeheat", 0);
|
||
|
|
}
|
||
|
|
});
|
||
|
|
|
||
|
|
#################
|
||
|
|
# Wing Anti-Ice #
|
||
|
|
#################
|
||
|
|
|
||
|
|
# Switching on the wing anti-ice
|
||
|
|
setlistener("/controls/switches/wing", func {
|
||
|
|
wowl = getprop("/gear/gear[1]/wow");
|
||
|
|
wowr = getprop("/gear/gear[2]/wow");
|
||
|
|
wingBtn = getprop("/controls/switches/wing");
|
||
|
|
if (wowl and wowr and wingBtn) {
|
||
|
|
setprop("/controls/switches/wingfault", 1);
|
||
|
|
settimer(func() {
|
||
|
|
setprop("/controls/switches/wingfault", 0);
|
||
|
|
setprop("/controls/deice/wing", 1);
|
||
|
|
}, 0.5);
|
||
|
|
settimer(func() {
|
||
|
|
setprop("/controls/deice/WingHasBeenTurnedOff", 1);
|
||
|
|
setprop("/controls/deice/wing", 0);
|
||
|
|
}, 30.5);
|
||
|
|
settimer(func() {
|
||
|
|
setprop("/controls/deice/GroundModeFinished", 1);
|
||
|
|
}, 31);
|
||
|
|
} else if (wingBtn and !wowl and !wowr) { # In the air
|
||
|
|
setprop("/controls/switches/wingfault", 1);
|
||
|
|
settimer(func() {
|
||
|
|
setprop("/controls/switches/wingfault", 0);
|
||
|
|
setprop("/controls/deice/wing", 1);
|
||
|
|
}, 0.5);
|
||
|
|
} else if (!wingBtn) {
|
||
|
|
setprop("/controls/switches/wingfault", 1);
|
||
|
|
settimer(func() {
|
||
|
|
setprop("/controls/switches/wingfault", 0);
|
||
|
|
setprop("/controls/deice/wing", 0);
|
||
|
|
}, 0.5);
|
||
|
|
}
|
||
|
|
});
|
||
|
|
|
||
|
|
###################
|
||
|
|
# Update Function #
|
||
|
|
###################
|
||
|
|
|
||
|
|
var update_Icing = func {
|
||
|
|
icingModel();
|
||
|
|
}
|
||
|
|
|
||
|
|
var icing_timer = maketimer(0.2, update_Icing);
|