% laplaosc - analytische Loesung eines Oszillators
%    mit Laplace-Transformationen
syms s t YY yy
YY  = sym('Y(t)')
d2 =    laplace(diff(diff(YY)))
d1 = laplace(diff(YY))
d0 = laplace(YY)
Gl = d2 + 2* d1 + 26*d0 
Gli1 = subs(Gl,'Y(0)',1)
Gli2 = subs(Gli1,'D(Y)(0)',0)
Glyy = subs(Gli2,'laplace(Y(t),t,s)',yy)
y    = solve (Glyy,yy)
Y = simple(ilaplace(y))
