Несмотря на то, что энергия колебаний возрастает с уменьшением длины маятника, амплитуда этих колебаний все равно уменьшается.
А получается, что Вы правы. Тут такая петрушка. Когда мы считаем амплитуду, формула

строго говоря, не верна. Решать надо честное уравнение

и поделить уравнение на

что бы получить частоту, не получается. Зато его можно решить численно (Mathematica):
Код:
v = 1
l = 100 - v x
s = NDSolve[{D[l^2 D[y[x], x], x] + 10 l Sin[y[x]] == 0, y[0] == 0.01, y'[0] == 0}, y, {x, 99/v}]
Plot[Evaluate[l Sin[y[x] /. s]], {x, 0, 99/v}, PlotRange -> All]
Получится
Вложение:
pendulum.png [ 14.78 Кб | Просмотров: 1634 ]
Как я говорил, то, что ведро раскачивается при подъеме - это экспериментальный факт, но причину этого я неправильно до сих пор себе объяснял, и она для меня стала загадочной.