Wolfram Cloud Document

In[]:=

l=0.2;

m

1

=1;

m

2

=1;

m

6

=1;c=3200;

m

8

=2*

m

6

;y0=0.001;y0'=0;g=9.8;M=

m

1

+

m

2

2

+

m

6

3

+

m

8

3

;k=Sqrt

-

m

6

+

m

8

2

*g

2*l

+

c

4

M

;T=

2*Pi

k

;y=

C

1

*Cos[k*t]+

C

2

*Sin[k*t];

C

1

=y0;

C

2

=y0';func=y;f=D[func,t];Plot[{y,f},{t,0,T},AxesLabel{t,A.V},PlotLegendsLineLegend[Амплитуда,Жылдамдық]]

Out[]=

	Амплитуда
	Жылдамдық