Wolfram Cloud Document

In[]:=

math;

m

D

=0.5;

m

E

=1.5;

f

ст

=0.04;R=6*V;c=((

m

D

+

m

E

)*9.8)/

f

ст

;k=Sqrt[c/

m

D

];n=3/

m

D

k

1

=Sqrt[k^2-n^2];

x

0

=

f

сте

;

f

сте

=(

m

E

*9.8)/c;

c

1

=

x

0

;

c

2

=(n*

c

1

)/

k

1

;g=Exp[-6*t]*((

c

1

*Cos[

k

1

*t])+(

c

2

*Sin[

k

1

*t)