mirror of
https://github.com/acemod/ACE3.git
synced 2024-08-30 18:23:18 +00:00
76 lines
2.6 KiB
Plaintext
76 lines
2.6 KiB
Plaintext
/*
|
|
* Author: Ruthberg
|
|
* Calculates the range card output based on the current data set
|
|
*
|
|
* Arguments:
|
|
* Nothing
|
|
*
|
|
* Return Value:
|
|
* Nothing
|
|
*
|
|
* Example:
|
|
* call ace_atragmx_fnc_calculate_range_card
|
|
*
|
|
* Public: No
|
|
*/
|
|
#include "script_component.hpp"
|
|
|
|
[] call FUNC(parse_input);
|
|
|
|
GVAR(workingMemory) params ["",
|
|
"_muzzleVelocity", "",
|
|
"_scopeBaseAngle",
|
|
"_airFriction",
|
|
"_boreHeight", "", "", "", "", "", "",
|
|
"_bulletMass",
|
|
"_bulletDiameter",
|
|
"_barrelTwist",
|
|
"_bc",
|
|
"_dragModel",
|
|
"_atmosphereModel"
|
|
];
|
|
|
|
private _twistDirection = 0;
|
|
if (_barrelTwist > 0) then {
|
|
_twistDirection = 1;
|
|
} else {
|
|
if (_barrelTwist < 0) then {
|
|
_twistDirection = -1;
|
|
};
|
|
};
|
|
_barrelTwist = abs _barrelTwist;
|
|
|
|
private _altitude = GVAR(altitude);
|
|
private _temperature = GVAR(temperature);
|
|
private _barometricPressure = GVAR(barometricPressure);
|
|
private _relativeHumidity = GVAR(relativeHumidity);
|
|
if (!GVAR(atmosphereModeTBH)) then {
|
|
_barometricPressure = 1013.25 * (1 - (0.0065 * _altitude) / (273.15 + _temperature + 0.0065 * _altitude)) ^ 5.255754495;
|
|
_relativeHumidity = 50;
|
|
};
|
|
|
|
private _bulletLength = 45.72;
|
|
private _stabilityFactor = 1.5;
|
|
if (missionNamespace getVariable [QEGVAR(advanced_ballistics,enabled), false]) then {
|
|
if (_bulletDiameter > 0 && _bulletLength > 0 && _bulletMass > 0 && _barrelTwist > 0) then {
|
|
_stabilityFactor = [_bulletDiameter, _bulletLength, _bulletMass, _barrelTwist * 10, _muzzleVelocity, _temperature, _barometricPressure] call EFUNC(advanced_ballistics,calculateStabilityFactor);
|
|
};
|
|
};
|
|
|
|
private _latitude = GVAR(latitude) select GVAR(currentTarget);
|
|
private _directionOfFire = GVAR(directionOfFire) select GVAR(currentTarget);
|
|
private _windSpeed1 = (GVAR(windSpeed1) select GVAR(currentTarget));
|
|
private _windSpeed2 = (GVAR(windSpeed2) select GVAR(currentTarget));
|
|
private _windDirection = (GVAR(windDirection) select GVAR(currentTarget));
|
|
private _inclinationAngle = (GVAR(inclinationAngle) select GVAR(currentTarget));
|
|
private _targetSpeed = (GVAR(targetSpeed) select GVAR(currentTarget));
|
|
private _targetRange = GVAR(rangeCardEndRange);
|
|
if (GVAR(currentUnit) == 1) then {
|
|
_targetRange = _targetRange / 1.0936133;
|
|
};
|
|
|
|
GVAR(rangeCardData) = [];
|
|
|
|
private _result = [_scopeBaseAngle, _bulletMass, _boreHeight, _airFriction, _muzzleVelocity, _temperature, _barometricPressure, _relativeHumidity, 100,
|
|
[_windSpeed1, _windSpeed2], _windDirection, _inclinationAngle, _targetSpeed, _targetRange, _bc, _dragModel, _atmosphereModel, true, _stabilityFactor, _twistDirection, _latitude, _directionOfFire] call FUNC(calculate_solution);
|