weyne/DCS-ExportScripts
1
0
Fork 0
mirror of https://github.com/weyne85/DCS-ExportScripts.git synced 2025-10-29 16:58:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

change RPM Fan calculation

Browse Source
This commit is contained in:
mcmicha 2016-12-22 02:02:32 +01:00
parent 923cc06b00
commit caba9291c2
1 changed files with 52 additions and 70 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

122
Scripts/DCS-ExportScript/ExportsModules/A-10A.lua
View File

@ -100,12 +100,18 @@ function ExportScript.ProcessIkarusFCHighImportanceConfig()
--local lAltCounter = {[0] = 0.0, [1] = 0.11, [2] = 0.22, [3] = 0.33, [4] = 0.44, [5] = 0.55, [6] = 0.66, [7] = 0.77, [8] = 0.88, [9] = 0.99} --local lAltCounter = {[0] = 0.0, [1] = 0.11, [2] = 0.22, [3] = 0.33, [4] = 0.44, [5] = 0.55, [6] = 0.66, [7] = 0.77, [8] = 0.88, [9] = 0.99}
local lAltCounter = {[0] = 0.0, [1] = 0.1, [2] = 0.2, [3] = 0.3, [4] = 0.4, [5] = 0.5, [6] = 0.6, [7] = 0.7, [8] = 0.8, [9] = 0.9} local lAltCounter = {[0] = 0.0, [1] = 0.1, [2] = 0.2, [3] = 0.3, [4] = 0.4, [5] = 0.5, [6] = 0.6, [7] = 0.7, [8] = 0.8, [9] = 0.9}
--local lAltBarTmp = string.format("%03d", ((lAltBar * 3.28084) / 100)) -- meter to feeds --local lAltBarTmp = string.format("%03d", ((lAltBar * 3.28084) / 100)) -- meter to feeds
--ExportScript.Tools.WriteToLog("lAltBar 1: "..ExportScript.Tools.dump(lAltBar))
--lAltBar = lAltBar + (9.5 * (760 - lBasicAtmospherePressure)) -- 9.5 m per 1mmHg difference , eventuell minus der Differenz --lAltBar = lAltBar + (9.5 * (760 - lBasicAtmospherePressure)) -- 9.5 m per 1mmHg difference , eventuell minus der Differenz
-- bei 5000 feed in Ikarus 5100 feed
--ExportScript.Tools.WriteToLog("lAltBar 2: "..ExportScript.Tools.dump(lAltBar))
local lAltBarTmp = ((lAltBar * 3.28084) / 100) -- meter to feeds local lAltBarTmp = ((lAltBar * 3.28084) / 100) -- meter to feeds
lAltBar = lAltBar * 3.28084 -- meter to feeds lAltBar = lAltBar * 3.28084 -- meter to feeds
lBasicAtmospherePressure = lBasicAtmospherePressure * 3.937023 -- mmHg to inPa (0.03937023 * 100) lBasicAtmospherePressure = lBasicAtmospherePressure * 3.937023 -- mmHg to inPa (0.03937023 * 100)
lBasicAtmospherePressure = string.format("%04d", lBasicAtmospherePressure) lBasicAtmospherePressure = string.format("%04d", lBasicAtmospherePressure)
--ExportScript.Tools.WriteToLog("lAltBar 3: "..ExportScript.Tools.dump(lAltBar))
lAltBar = lAltBar / 1000 lAltBar = lAltBar / 1000
lAltBar = lAltBar - ExportScript.Tools.round(lAltBar, 0, "floor") lAltBar = lAltBar - ExportScript.Tools.round(lAltBar, 0, "floor")
@ -202,85 +208,60 @@ function ExportScript.ProcessIkarusFCHighImportanceConfig()
ExportScript.AF.FC_OneNeedleGauge(lEngineRPMright, 110, 55) ExportScript.AF.FC_OneNeedleGauge(lEngineRPMright, 110, 55)
-- RPM FAN Left -- RPM FAN Left
if lEngineRPMleft > 98.85 then
lEngineRPMleft = lEngineRPMleft / 1.88 --52.58 > 80%
elseif lEngineRPMleft > 97.9768 then
lEngineRPMleft = lEngineRPMleft / 2.33278 --42.0 = 79%
elseif lEngineRPMleft > 97.2773 then
lEngineRPMleft = lEngineRPMleft / 3.03992 --32.0 = 78%
elseif lEngineRPMleft > 96.7213 then
lEngineRPMleft = lEngineRPMleft / 3.5429 --27.3 = 77%
elseif lEngineRPMleft > 96.2496 then
lEngineRPMleft = lEngineRPMleft / 3.5648 --27.0 = 76%
elseif lEngineRPMleft > 95.7494 then
lEngineRPMleft = lEngineRPMleft / 3.5996 --26.6 = 75%
elseif lEngineRPMleft > 93.2737 then
lEngineRPMleft = lEngineRPMleft / 3.54653 --26.3 = 70%
elseif lEngineRPMleft > 90.7216 then
lEngineRPMleft = lEngineRPMleft / 3.4893 --26.0 = 65%
elseif lEngineRPMleft > 88.1733 then
lEngineRPMleft = lEngineRPMleft / 3.4376 --25.65 = 60%
elseif lEngineRPMleft > 85.0282 then
lEngineRPMleft = lEngineRPMleft / 3.3608 --25.3 = 55%
elseif lEngineRPMleft > 81.9344 then
lEngineRPMleft = lEngineRPMleft / 3.2774 --25.0 = 50%
elseif lEngineRPMleft > 77.7911 then
lEngineRPMleft = lEngineRPMleft / 3.53596 --22.0 = 45%
elseif lEngineRPMleft > 72.1855 then
lEngineRPMleft = lEngineRPMleft / 3.6093 --20.0 = 40%
elseif lEngineRPMleft > 67.8386 then
lEngineRPMleft = lEngineRPMleft / 3.9905 --17.0 = 35%
elseif lEngineRPMleft > 63.4883 then
lEngineRPMleft = lEngineRPMleft / 3.968 --16.0 = 33%
end
--[[ --[[
y_min = 0.0 0.25 0.2659 0.49 -- minimaler Ausgabewert y_min = 0.0 0.11 0.375 0.50 -- minimaler Ausgabewert
y_max = 0.25 0.2659 0.49 1.0 -- maximaler Ausgabewert y_max = 0.11 0.375 0.50 1.0 -- maximaler Ausgabewert
x_min = 0.0 50.0 70.0 80.0 -- minimaler Eingangswert x_min = 0.0 64.2 91.3 99.7 -- minimaler Eingangswert
x_max = 50.0 70.0 80.0 100.0 -- maximaler Eingangswert x_max = 64.2 91.3 99.7 100.0 -- maximaler Eingangswert
x = 40.0 60.0 75.0 95.0 -- aktueller Eingangswert x = 40.0 75.0 85.0 99.9 -- aktueller Eingangswert
d_y = 0.25 0.0159 0.2241 0.51 -- Delta Ausgabewerte (y_max - y_min) d_y = 0.11 0.265 0.125 0.50 -- Delta Ausgabewerte (y_max - y_min)
d_x = 50.0 20.0 10.0 20.0 -- Delta Eingangswerte (x_max - x_min) d_x = 64.2 27.1 8.4 0.3 -- Delta Eingangswerte (x_max - x_min)
m = 0.005 0.000795 0.02241 0.0255 -- Steigung der linearen Funktion (d_y / d_x) m = 0.001713 0.009779 0.014881 1.666667 -- Steigung der linearen Funktion (d_y / d_x)
n = 0.0 0.21025 -1.3028 -1.55 -- Schnittpunkt der Funktion mit y-Achse (y_max - m * x_max) n = 0.000254 -0.517823 -0.983636 -165.66667 -- Schnittpunkt der Funktion mit y-Achse (y_max - m * x_max)
y = 0.2 0.25795 0.37795 0.8725 -- Ergebnis (m * x + n) y = 0.2 0.25795 0.37795 0.8725 -- Ergebnis (m * x + n)
]] ]]
--[[ if lEngineRPMleft > 80 then local lFanRPMleft = 0
lEngineRPMleft = 0.0255 * lEngineRPMleft + -1.55 if lEngineRPMleft > 99.7 then
elseif lEngineRPMleft > 70 then lFanRPMleft = 1.666667 * lEngineRPMleft + -165.66667 -- > 81%
lEngineRPMleft = 0.02241 * lEngineRPMleft + -1.3028 elseif lEngineRPMleft > 91.3 and lEngineRPMleft < 99.7 then
elseif lEngineRPMleft > 50 then lFanRPMleft = 0.014881 * lEngineRPMleft + -0.983636 -- > 50%
lEngineRPMleft = 0.000795 * lEngineRPMleft + 0.21025 elseif lEngineRPMleft > 64.2 and lEngineRPMleft < 91.3 then
else lFanRPMleft = 0.009779 * lEngineRPMleft + -0.517823 -- > 23%
lEngineRPMleft = 0.005 * lEngineRPMleft elseif lEngineRPMleft < 64.2 then
lFanRPMleft = 0.001713 * lEngineRPMleft + 0.000254 -- < 23%
end end
lEngineRPMleft = lEngineRPMleft * 85.263157894736842105263157894737 ExportScript.AF.FC_OneNeedleGauge(lFanRPMleft, 1, 56)
]]
ExportScript.AF.FC_OneNeedleGauge(lEngineRPMleft, 100, 56)
-- RPM FAN Right -- RPM FAN Right
if lEngineRPMright > 94 then --[[
lEngineRPMright = lEngineRPMright / 1.88 --50.0 y_min = 0.0 0.11 0.375 0.50 -- minimaler Ausgabewert
elseif lEngineRPMright > 90 then y_max = 0.11 0.375 0.50 1.0 -- maximaler Ausgabewert
lEngineRPMright = lEngineRPMright / 3.384 --26.6 x_min = 0.0 64.2 91.3 99.7 -- minimaler Eingangswert
elseif lEngineRPMright > 85 then x_max = 64.2 91.3 99.7 100.0 -- maximaler Eingangswert
lEngineRPMright = lEngineRPMright / 3.334 --25.5 x = 40.0 75.0 85.0 99.9 -- aktueller Eingangswert
elseif lEngineRPMright > 80 then
lEngineRPMright = lEngineRPMright / 3.2 --25.0 d_y = 0.11 0.265 0.125 0.50 -- Delta Ausgabewerte (y_max - y_min)
elseif lEngineRPMright > 75 then d_x = 64.2 27.1 8.4 0.3 -- Delta Eingangswerte (x_max - x_min)
lEngineRPMright = lEngineRPMright / 3.75 --20.0 m = 0.001713 0.009779 0.014881 1.666667 -- Steigung der linearen Funktion (d_y / d_x)
elseif lEngineRPMright > 70 then n = 0.000254 -0.517823 -0.983636 -165.66667 -- Schnittpunkt der Funktion mit y-Achse (y_max - m * x_max)
lEngineRPMright = lEngineRPMright / 4.667 --15.0
elseif lEngineRPMright > 65 then y = 0.2 0.25795 0.37795 0.8725 -- Ergebnis (m * x + n)
lEngineRPMright = lEngineRPMright / 4.815 --13.5 ]]
elseif lEngineRPMright > 60 then local lFanRPMright = 0
lEngineRPMright = lEngineRPMright / 5 --12.0 if lEngineRPMright > 99.7 then
lFanRPMright = 1.666667 * lEngineRPMright + -165.66667 -- > 81%
elseif lEngineRPMright > 91.3 and lEngineRPMright < 99.7 then
lFanRPMright = 0.014881 * lEngineRPMright + -0.983636 -- > 50%
elseif lEngineRPMright > 64.2 and lEngineRPMright < 91.3 then
lFanRPMright = 0.009779 * lEngineRPMright + -0.517823 -- > 23%
elseif lEngineRPMright < 64.2 then
lFanRPMright = 0.001713 * lEngineRPMright + 0.000254 -- < 23%
end end
ExportScript.AF.FC_OneNeedleGauge(lEngineRPMright, 100, 57)
ExportScript.AF.FC_OneNeedleGauge(lFanRPMright, 1, 57)
-- RPM APU, no value -- RPM APU, no value
-- Exaust Gas Temperature APU, no value -- Exaust Gas Temperature APU, no value
@ -716,6 +697,7 @@ function ExportScript.AF.MechanicalDevicesIndicator(FunctionTyp)
local lFunctionTyp = FunctionTyp or "Ikarus" local lFunctionTyp = FunctionTyp or "Ikarus"
-- The mechanical devices indicator shows the position of the landing gear, flaps, leading edge flaps and airbrake -- The mechanical devices indicator shows the position of the landing gear, flaps, leading edge flaps and airbrake
local lMechInfo = LoGetMechInfo() -- mechanical components, e.g. Flaps, Wheelbrakes,... local lMechInfo = LoGetMechInfo() -- mechanical components, e.g. Flaps, Wheelbrakes,...
--ExportScript.Tools.WriteToLog("lMechInfo: "..ExportScript.Tools.dump(lMechInfo))
if lMechInfo == nil then if lMechInfo == nil then
return return
end end