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=0.001*Cos[17.332051234634637*t];D[func,t]f=D[func,t];Plot{y,f},{t,0,T},AxesLabel{t,A.V},PlotLegendsLineLegendАмплитуда,Жылдамдық

Out[]=

0.001Cos[17.3321t]

Out[]=

-0.0173321Sin[17.3321t]

Out[]=

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