Механическая работа в общем случае рассчитывается по формуле
(полное условие - в демо-файлах)
dA = F dr
A = FS
A = ∫₁² FS dS
A = ∫₁² F dS cosα