2015-02-08 09:01:32 +00:00
|
|
|
/*
|
|
|
|
|
* Author: Glowbal
|
|
|
|
|
* Calculates the blood volume change and decreases the IVs given to the unit.
|
|
|
|
|
*
|
|
|
|
|
* Arguments:
|
|
|
|
|
* 0: The Unit <OBJECT>
|
|
|
|
|
*
|
|
|
|
|
* ReturnValue:
|
|
|
|
|
* Blood Pressuret <ARRAY <NUMBER>,<NUMBER>>
|
2015-02-07 22:55:48 +00:00
|
|
|
*
|
2015-02-08 09:01:32 +00:00
|
|
|
* Public: No
|
2015-02-07 22:55:48 +00:00
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
#include "script_component.hpp"
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
Value is taken because with cardic output and resistance at default values, it will put blood pressure High at 120.
|
|
|
|
|
*/
|
|
|
|
|
#define MODIFIER_BP_HIGH 0.229
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
Value is taken because with cardic output and resistance at default values, it will put blood pressure Low at 80.
|
|
|
|
|
*/
|
|
|
|
|
#define MODIFIER_BP_LOW 0.1524
|
|
|
|
|
|
|
|
|
|
private ["_unit", "_bloodPressureLow", "_bloodPressureHigh", "_cardiacOutput", "_resistance"];
|
|
|
|
|
_unit = _this select 0;
|
|
|
|
|
_cardiacOutput = [_unit] call FUNC(getCardiacOutput);
|
|
|
|
|
_resistance = _unit getvariable [QGVAR(peripheralResistance), 100];
|
|
|
|
|
|
|
|
|
|
_bloodPressureHigh = (_cardiacOutput * MODIFIER_BP_HIGH) * _resistance;
|
|
|
|
|
_bloodPressureLow = (_cardiacOutput * MODIFIER_BP_LOW) * _resistance;
|
|
|
|
|
|
|
|
|
|
[_bloodPressureLow, _bloodPressureHigh];
|
