ACE3/addons/advanced_ballistics/functions/fnc_calculateAmmoTemperatureVelocityShift.sqf

36 lines
1.2 KiB
Plaintext
Raw Normal View History

/*
* Author: Ruthberg
*
* Calculates the ammo temperature induced muzzle velocity shift
*
* Arguments:
2015-05-08 15:20:56 +00:00
* 0: muzzle velocity shift lookup table - m/s <ARRAY>
2015-04-07 19:54:29 +00:00
* 1: temperature - degrees celcius <NUMBER>
*
* Return Value:
* muzzle velocity shift - m/s <NUMBER>
2015-08-05 02:38:04 +00:00
*
* Public: No
*/
2015-04-05 19:08:55 +00:00
#include "script_component.hpp"
params ["_muzzleVelocityShiftTable", "_temperature"];
2015-04-05 19:08:55 +00:00
// Check if muzzleVelocityShiftTable is Less Than 11 Entrys
if ((count _muzzleVelocityShiftTable) < 11) exitWith {0};
private _muzzleVelocityShiftTableUpperLimit = _muzzleVelocityShiftTable select 10;
2015-08-05 02:13:36 +00:00
if (isNil "_muzzleVelocityShiftTableUpperLimit") exitWith { 0 };
2015-04-05 19:08:55 +00:00
2015-08-05 02:13:36 +00:00
// Find exact data index required for given temperature
private _temperatureIndexFunction = (_temperature + 15) / 5;
2015-04-05 19:08:55 +00:00
2015-08-05 02:13:36 +00:00
// lower and upper data index used for interpolation
private _temperatureIndexA = (0 max (floor(_temperatureIndexFunction))) min 10;
private _temperatureIndexB = (0 max (ceil(_temperatureIndexFunction))) min 10;
2015-04-05 19:08:55 +00:00
2015-08-05 02:13:36 +00:00
// Interpolation ratio
private _interpolationRatio = _temperatureIndexFunction - floor(_temperatureIndexFunction);
2015-04-05 19:08:55 +00:00
2015-08-05 02:13:36 +00:00
// Interpolation
(_muzzleVelocityShiftTable select _temperatureIndexA) * (1 - _interpolationRatio) + (_muzzleVelocityShiftTable select _temperatureIndexB) * _interpolationRatio // Return