Potenciál pro příčné kmity jednoho závaží na dvou pružinách

U=2(1/2)k((((Sqrt[(a^2)+(y^2)])-a0))^2)-2(1/2)k(((a-a0))^2);
Um=2(1/2)k(1-(a0/a))(y^2);
Manipulate[
Plot[Evaluate[{U,Um}/.{k->1,a->1,a0->a00}],{y,-1,1},PlotRange->{0,0.25},AxesLabel->{"y/a","U(y)/k"},LabelStyle->Medium,ImageSize->500],
{{a00,0.6,Dynamic["(Subscript[a, 0]) = "<>ToString[Round[a00,0.01]]<>"a"]},0,1},SaveDefinitions->True
]