Задача, таким образом, решается и аналитически, но при исследовании вариантов траектории компьютер весьма полезен. Так, мы можем получить на экране множество случаев попадания мяча в корзину.
Задаваемые параметры (в СИ)
Расстояние от баскетбольного кольца до места бросания.
> l:=2.5;
Высота баскетбольного кольца
> h:=2.5;
Ускорение свободного падения.
> g:=9.8;
Теперь найдем возможные значения начальной скорости в зависимости от угла бросания мяча.
> List:=[];
> for alpha from 0 to 89 do
List:=[op(List),[alpha,evalf(Vo(alpha))]]
end do:
List;