L10
2.10.01
Käytännöllinen resonanssi
>
> g:=omega->m^2*(w0^2-omega^2)^2+c^2*omega^2;
> dg:=diff(g(omega),omega);
> wmax:=solve(dg=0,omega);
> wmax:=%[2];
> simplify(g(wmax));
>
Cti:=F0/simplify(sqrt(%),symbolic); # Cti tarkoittaa C* (KRE-merkinnöin)
# simplify(..,symbolic); antaa vastuun käyttäjälle.
>