fly/A320-family
1
0
Fork 0
Code Activity
A320-family/Nasal/MCDU/PERFTO.nas

229 lines
8.3 KiB
Text
Raw Normal View History

Correct F/S/O speeds, implement functional APPR page, add vls/vapp
2020-03-24 00:14:12 +00:00
# A3XX mCDU by Joshua Davidson (Octal450), Jonathan Redpath, and Matthew Maring (hayden2000)
A320-family fork
2019-10-14 16:48:35 +00:00
GIT: Update 2019 to 2020
2020-04-18 05:36:46 +00:00
# Copyright (c) 2020 Josh Davidson (Octal450)
Correct F/S/O speeds, implement functional APPR page, add vls/vapp
2020-03-24 00:14:12 +00:00
# Copyright (c) 2020 Matthew Maring (hayden2000)
A320-family fork
2019-10-14 16:48:35 +00:00
var perfTOInput = func(key, i) {
Test removing forward slash
2020-02-07 16:10:54 +00:00
var scratchpad = getprop("MCDU[" ~ i ~ "]/scratchpad");
A320-family fork
2019-10-14 16:48:35 +00:00
if (key == "L1") {
if (scratchpad == "CLR") {
Test removing forward slash
2020-02-07 16:10:54 +00:00
setprop("FMGC/internal/v1", 0);
setprop("FMGC/internal/v1-set", 0);
setprop("MCDU[" ~ i ~ "]/scratchpad-msg", 0);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
var tfs = size(scratchpad);
if (tfs == 3) {
Clean-up PERFTO, fix formatting for entries
2020-04-15 00:22:01 +00:00
if (int(scratchpad) != nil and scratchpad >= 100 and scratchpad <= 350) {
Test removing forward slash
2020-02-07 16:10:54 +00:00
setprop("FMGC/internal/v1", scratchpad);
setprop("FMGC/internal/v1-set", 1);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
notAllowed(i);
}
} else {
notAllowed(i);
}
}
} else if (key == "L2") {
if (scratchpad == "CLR") {
Test removing forward slash
2020-02-07 16:10:54 +00:00
setprop("FMGC/internal/vr", 0);
setprop("FMGC/internal/vr-set", 0);
setprop("MCDU[" ~ i ~ "]/scratchpad-msg", 0);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
var tfs = size(scratchpad);
if (tfs == 3) {
Clean-up PERFTO, fix formatting for entries
2020-04-15 00:22:01 +00:00
if (int(scratchpad) != nil and scratchpad >= 100 and scratchpad <= 350) {
Test removing forward slash
2020-02-07 16:10:54 +00:00
setprop("FMGC/internal/vr", scratchpad);
setprop("FMGC/internal/vr-set", 1);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
notAllowed(i);
}
} else {
notAllowed(i);
}
}
} else if (key == "L3") {
if (scratchpad == "CLR") {
Test removing forward slash
2020-02-07 16:10:54 +00:00
setprop("FMGC/internal/v2", 0);
setprop("FMGC/internal/v2-set", 0);
setprop("it-autoflight/settings/togaspd", 157);
setprop("MCDU[" ~ i ~ "]/scratchpad-msg", 0);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
var tfs = size(scratchpad);
if (tfs == 3) {
Clean-up PERFTO, fix formatting for entries
2020-04-15 00:22:01 +00:00
if (int(scratchpad) != nil and scratchpad >= 100 and scratchpad <= 350) {
Test removing forward slash
2020-02-07 16:10:54 +00:00
setprop("FMGC/internal/v2", scratchpad);
setprop("FMGC/internal/v2-set", 1);
Set managed speed target to v2 after take-off
2020-03-22 00:58:28 +00:00
setprop("it-autoflight/settings/togaspd", scratchpad);
Test removing forward slash
2020-02-07 16:10:54 +00:00
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
notAllowed(i);
}
} else {
notAllowed(i);
}
}
} else if (key == "L4") {
if (scratchpad == "CLR") {
Correct F/S/O speeds, implement functional APPR page, add vls/vapp
2020-03-24 00:14:12 +00:00
setprop("FMGC/internal/trans-alt", 18000);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
var tfs = size(scratchpad);
Clean-up PERFTO, fix formatting for entries
2020-04-15 00:22:01 +00:00
if (int(scratchpad) != nil and (tfs == 4 or tfs <= 5) and scratchpad >= 1000 and scratchpad <= 39000) {
setprop("FMGC/internal/trans-alt", int(scratchpad / 10) * 10);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
notAllowed(i);
}
}
} else if (key == "L5") {
if (scratchpad == "CLR") {
Test removing forward slash
2020-02-07 16:10:54 +00:00
setprop("systems/thrust/clbreduc-ft", "1500");
Rename property to make it more clear what this does
2020-04-16 11:13:34 +00:00
setprop("FMGC/internal/accel-agl-ft", "1500");
Test removing forward slash
2020-02-07 16:10:54 +00:00
setprop("MCDUC/thracc-set", 0);
setprop("MCDU[" ~ i ~ "]/scratchpad-msg", 0);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
var tfs = size(scratchpad);
Clean-up PERFTO, fix formatting for entries
2020-04-15 00:22:01 +00:00
if (find("/", scratchpad) != -1) {
A320-family fork
2019-10-14 16:48:35 +00:00
var thracc = split("/", scratchpad);
Clean-up PERFTO, fix formatting for entries
2020-04-15 00:22:01 +00:00
var thrred = thracc[0];
var thrreds = size(thrred);
var acc = thracc[1];
var accs = size(acc);
if (int(thrred) != nil and (thrreds == 4 or thrreds == 5) and thrred >= 1000 and thrred <= 39000 and int(acc) != nil and (accs == 4 or accs == 5) and acc >= 1000 and acc <= 39000) {
setprop("systems/thrust/clbreduc-ft", int(thrred / 10) * 10);
Rename property to make it more clear what this does
2020-04-16 11:13:34 +00:00
setprop("FMGC/internal/accel-agl-ft", int(acc / 10) * 10);
Test removing forward slash
2020-02-07 16:10:54 +00:00
setprop("MCDUC/thracc-set", 1);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
Clean-up PERFTO, fix formatting for entries
2020-04-15 00:22:01 +00:00
} else if (thrreds == 0 and int(acc) != nil and (accs == 4 or accs == 5) and acc >= 1000 and acc <= 39000) {
Rename property to make it more clear what this does
2020-04-16 11:13:34 +00:00
setprop("FMGC/internal/accel-agl-ft", int(acc / 10) * 10);
Clean-up PERFTO, fix formatting for entries
2020-04-15 00:22:01 +00:00
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
notAllowed(i);
}
Clean-up PERFTO, fix formatting for entries
2020-04-15 00:22:01 +00:00
} else if (num(scratchpad) != nil and (tfs == 4 or tfs == 5) and scratchpad >= 1000 and scratchpad <= 39000) {
setprop("systems/thrust/clbreduc-ft", int(scratchpad / 10) * 10);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
notAllowed(i);
}
}
} else if (key == "R3") {
if (scratchpad == "CLR") {
Test removing forward slash
2020-02-07 16:10:54 +00:00
setprop("FMGC/internal/to-flap", 0);
setprop("FMGC/internal/to-ths", "0.0");
setprop("FMGC/internal/flap-ths-set", 0);
setprop("MCDU[" ~ i ~ "]/scratchpad-msg", 0);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
Clean-up PERFTO, fix formatting for entries
2020-04-15 00:22:01 +00:00
if (find("/", scratchpad) != -1) {
var flapths = split("/", scratchpad);
var flap = flapths[0];
var flaps = size(flap);
var trim = flapths[1];
var trims = size(trim);
var trima = substr(trim, 2);
var trimb = substr(trim, 0, 3);
var validtrima = num(trima) != nil and num(trima) >= 0 and num(trima) <= 7.0;
var validtrimb = num(trimb) != nil and num(trimb) >= 0 and num(trimb) <= 7.0;
if (flaps == 0 and getprop("FMGC/internal/flap-ths-set")) {
if (trims == 5 and find("DN", trim) != -1 and validtrima) {
setprop("FMGC/internal/to-ths", -1 * trima);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
} else if (trims == 5 and find("DN", trim) != -1 and validtrimb) {
setprop("FMGC/internal/to-ths", -1 * trimb);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
} else if (trims == 5 and find("UP", trim) != -1 and validtrima) {
setprop("FMGC/internal/to-ths", trima);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
} else if (trims == 5 and find("UP", trim) != -1 and validtrimb) {
setprop("FMGC/internal/to-ths", trimb);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
} else {
notAllowed(i);
}
} else if (flaps == 1 and num(flap) != nil and flap >= 0 and flap <= 3) {
if (trims == 5 and find("DN", trim) != -1 and validtrima) {
setprop("FMGC/internal/to-flap", flap);
setprop("FMGC/internal/to-ths", -1 * trima);
setprop("FMGC/internal/flap-ths-set", 1);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
} else if (trims == 5 and find("DN", trim) != -1 and validtrimb) {
setprop("FMGC/internal/to-flap", flap);
setprop("FMGC/internal/to-ths", -1 * trimb);
setprop("FMGC/internal/flap-ths-set", 1);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
} else if (trims == 5 and find("UP", trim) != -1 and validtrima) {
setprop("FMGC/internal/to-flap", flap);
setprop("FMGC/internal/to-ths", trima);
setprop("FMGC/internal/flap-ths-set", 1);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
} else if (trims == 5 and find("UP", trim) != -1 and validtrimb) {
setprop("FMGC/internal/to-flap", flap);
setprop("FMGC/internal/to-ths", trimb);
setprop("FMGC/internal/flap-ths-set", 1);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
} else {
notAllowed(i);
}
Fix non-numeric data entries, add cruise temp support, add dn trim support
2020-03-30 01:27:18 +00:00
} else {
notAllowed(i);
}
Clean-up PERFTO, fix formatting for entries
2020-04-15 00:22:01 +00:00
} else if (size(scratchpad) == 1 and num(scratchpad) != nil and scratchpad >= 0 and scratchpad <= 3) {
setprop("FMGC/internal/to-flap", scratchpad);
if (!getprop("FMGC/internal/flap-ths-set")) {
Test removing forward slash
2020-02-07 16:10:54 +00:00
setprop("FMGC/internal/flap-ths-set", 1);
Allow flap entry without THS
2020-02-29 18:44:54 +00:00
}
Clean-up PERFTO, fix formatting for entries
2020-04-15 00:22:01 +00:00
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
notAllowed(i);
}
}
} else if (key == "R4") {
if (scratchpad == "CLR") {
Test removing forward slash
2020-02-07 16:10:54 +00:00
setprop("FMGC/internal/flex", 0);
setprop("FMGC/internal/flex-set", 0);
setprop("MCDU[" ~ i ~ "]/scratchpad-msg", 0);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
var tfs = size(scratchpad);
if (tfs == 1 or tfs == 2) {
Clean-up PERFTO, fix formatting for entries
2020-04-15 00:22:01 +00:00
if (int(scratchpad) != nil and scratchpad >= 0 and scratchpad <= 99) {
Test removing forward slash
2020-02-07 16:10:54 +00:00
setprop("FMGC/internal/flex", scratchpad);
setprop("FMGC/internal/flex-set", 1);
var flex_calc = getprop("FMGC/internal/flex") - getprop("environment/temperature-degc");
setprop("FMGC/internal/flex-cmd", flex_calc);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
notAllowed(i);
}
} else {
notAllowed(i);
}
}
} else if (key == "R5") {
if (scratchpad == "CLR") {
These all default to 1500, once FPLN is done, can be set to 1500 plus runway altitude
2020-03-22 01:10:55 +00:00
setprop("FMGC/internal/eng-out-reduc", "1500");
Test removing forward slash
2020-02-07 16:10:54 +00:00
setprop("MCDUC/reducacc-set", 0);
setprop("MCDU[" ~ i ~ "]/scratchpad-msg", 0);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
var tfs = size(scratchpad);
Clean-up PERFTO, fix formatting for entries
2020-04-15 00:22:01 +00:00
if (int(scratchpad) != nil and (tfs == 4 or tfs == 5) and scratchpad >= 1000 and scratchpad <= 39000) {
Test removing forward slash
2020-02-07 16:10:54 +00:00
setprop("FMGC/internal/eng-out-reduc", scratchpad);
setprop("MCDUC/reducacc-set", 1);
setprop("MCDU[" ~ i ~ "]/scratchpad", "");
A320-family fork
2019-10-14 16:48:35 +00:00
} else {
notAllowed(i);
}
}
} else if (key == "R6") {
Add "dummy" PROG pages, improve route selection page for alternates
2020-03-30 03:39:31 +00:00
setprop("MCDU[" ~ i ~ "]/page", "PERFCLB");
A320-family fork
2019-10-14 16:48:35 +00:00
}
}
Copy permalink