// Начальные скорости
_v1 = [5,3,0];
_v2 = [-0.1,-0.04,0];
_L1 = 0;
_L2 = 0;
_a = 0;
_b = 0;
_p1 = getMarkerPos "mk1";
_p2 = getMarkerPos "mk2";

_mr = 0;

while {true} do {

// упрощённое вычисление силы притяжения
_L1 = (_p1 distance _p2) * 0.001;
_L2 = _L1 * 0.08; // при _L2 = _L1 - ознчает равенство масс

// вектор
_a = ((_p2 select 0) - (_p1 select 0)) atan2 ((_p2 select 1) - (_p1 select 1));
_b = ((_p1 select 0) - (_p2 select 0)) atan2 ((_p1 select 1) - (_p2 select 1));
if (_a < 0) then {_a = 360 + _a};
if (_b < 0) then {_b = 360 + _b};

// маркеры следа
hintSilent format ["%1\n%2\n%3", _a , _b, _a + _b];

_mk =  createMarker ["r" + str _mr, _p1];
_mk setMarkerType "mil_dot";
_mk setMarkerSize [0.3, 0.3];
_mk setMarkerColor "ColorRed";
_mk setMarkerAlpha 0.1;

_mk =  createMarker ["b" + str _mr, _p2];
_mk setMarkerType "mil_dot";
_mk setMarkerSize [0.3, 0.3];
_mk setMarkerColor "ColorBlue";
_mk setMarkerAlpha 0.1;
_mr = _mr + 1;

//вектор притяжения
_v1 = [(_v1 select 0) + _L1 * sin _a, (_v1 select 1) + _L1 * cos _a, 0];   
_v2 = [(_v2 select 0) + _L2 * sin _b, (_v2 select 1) + _L2 * cos _b, 0];   
// новая координата
_p1 = [(_p1 select 0) + (_v1 select 0), (_p1 select 1) + (_v1 select 1), 0];
_p2 = [(_p2 select 0) + (_v2 select 0), (_p2 select 1) + (_v2 select 1), 0];
// установка маркера
"mk1" setMarkerpos _p1;
"mk2" setMarkerpos _p2;
sleep 0.05;
};