Gedämpfte Schwingung, komplex

komplex2.mws, 11.5.99

>

>

> restart:with(plots):

> z:=5*exp(-0.05*t)*exp(0.2*I*t);

[Maple Math]

> x:=evalc(Re(z));

[Maple Math]

> y:=evalc(Im(z));

[Maple Math]

> x:=unapply(x,t);

[Maple Math]

> y:=unapply(y,t);

[Maple Math]

> plot([x(t),y(t),t=0..50]);

[Maple Plot]

> plot(y(t),t=0..100);

[Maple Plot]

>

>