Balkaning uzluksiz ko‘ndalang yuklanish tasiridagi tebranishi - Физика - Презентации

Информация о документе

Цена	3000UZS
Размер	59.2KB
Покупки	0
Дата загрузки	07 Ноябрь 2026
Расширение	docx
Раздел	Презентации
Предмет	Физика

Balkaning uzluksiz ko‘ndalang yuklanish tasiridagi tebranishi

Купить

BALKANING UZLUKSIZ KO’NDALANG YUKLANISH
TASIRIDAGI TEBRANISHI
Masala x o’qi yo’nalishida o’zgarmas a tezlik bilan harakatlanuvchi P o’zgarmas kuch ta’sirida
balkaning tebranishlari aniqlang.
ρ=7850 kg /m3;E=2⋅10 11Pa ;d=0,1 m;h=0,1 m;l=10 m ,
F=d*h; J=d*h 3
/12;
b=√E∗J/(ρ∗h)
1). Tezlikning turli qiymatlarida t=5 bo’lgan momentdagi egilish grafiglarini taqqoslang va xulosa yozing.
2). Tezlikning turli qiymatlarida balka o’rtasidagi ( x = l /2) egilshning vaqt davomida o’zgarishi grafiglarini
taqqoslang va xulosa yozing.
> rho := 0.78e4; E := 0.19e12; d := 0.4e-1; h := 0.4e-1; F := d*h;
J := (1/12)*d*h^3; b := sqrt(E*J/(rho*F)); l := .9; P := 15000;
Q := 6/(9.81); a := 10; a1 := 20; a2 := 30; g := 10; rho1 := .5;
r := .4;q:=6*981;
>
:=  7800.
:= E 0.19 10 1 2
:= d 0.04
:= h 0.04
:= F 0.0016
:= J 0.2133333333 10 - 6
:= b 56.99002762
:= l 0.9
:= P 15000
:= Q 0.6116207951
:= a 10
:= a1 20
:= a2 30
:= g 10
:=  0.5

:= r 0.4
:= q 5886
> omega := a/r; omega1 := a1/r; omega2 := a2/r; Fs :=
Q*a^2*rho1/(g*r^2); Fs1 := Q*a1^2*rho1/(g*r^2); Fs2 :=
Q*a2^2*rho1/(g*r^2); alpha := a*l/(b*Pi); alpha1 := a1*l/(b*Pi);
alpha2 := a2*l/(b*Pi); beta := omega*l^2/(b*Pi^2); t := 2;
> :=  25.00000000
:=  50.00000000
:=  75.00000000
:= Fs 19.11314985
:= Fs1 76.45259938
:= Fs2 172.0183486
:=  0.1579223660

:=  0.3158447320

:=  0.4737670980

:=  0.3553253235
2
:= t 2
> y := Fs*l^3*(sum(sin(i*Pi*x/l)*(sin((i*Pi*a/l+omega)*t)/(i^4-
(beta+i*alpha)^2)+sin((i*Pi*a/l-omega)*t)/(i^4-(beta-
i*alpha)^2)+alpha*(sin(i^2*b*Pi^2*t/l^2)/((i*a)^2-(i^2-
beta)^2)+sin(i^2*b*Pi^2*t/l^2)/((i*a)^2-(i^2+beta)^2))/i), i = 1 ..
10))/(E*J*Pi^4):
> y1 := Fs1*l^3*(sum(sin(i*Pi*x/l)*(sin((i*Pi*a/l+omega1)*t)/(i^4-
(beta+i*alpha1)^2)+sin((i*Pi*a1/l-omega1)*t)/(i^4-(beta-
i*alpha1)^2)+alpha1*(sin(i^2*b*Pi^2*t/l^2)/((i*a1)^2-(i^2-
beta)^2)+sin(i^2*b*Pi^2*t/l^2)/((i*a1)^2-(i^2+beta)^2))/i), i =
1 .. 10))/(E*J*Pi^4):
> y2 := Fs2*l^3*(sum(sin(i*Pi*x/l)*(sin((i*Pi*a/l+omega2)*t)/(i^4-
(beta+i*alpha2)^2)+sin((i*Pi*a2/l-omega2)*t)/(i^4-(beta-
i*alpha2)^2)+alpha2*(sin(i^2*b*Pi^2*t/l^2)/((i*a2)^2-(i^2-
beta)^2)+sin(i^2*b*Pi^2*t/l^2)/((i*a2)^2-(i^2+beta)^2))/i), i =
1 .. 10))/(E*J*Pi^4):
> plot([y, y1, y2], x = 0 .. l, linestyle = [1, 2, 3], color =
[blue, red, green], legend = ["a=10;", "a=20;", "a=30"]);

> # tezlik 10 va 30 orasida bo'lganda egilish maksimal qiymatgs
erishar ekan #
>
y3:=(2*P*l^3*g*(sum(sin(i*Pi*x/l)*sin(i*Pi*x*alpha*t/l)/i(i^2*Pi^2*
beta^2-alpha^2*l^2)^2,i=1..10))/(q*Pi)-
2*P*l^3*g*alpha*(sum(sin(i*Pi*x/l)*sin(beta*i*Pi^2*t/l^2)/
(i^2*Pi^2*beta^2-alpha^2*l^2),i=0..10))/(q*Pi^2*b)):
>
y4:=(2*P*l^3*g*(sum(sin(i*Pi*x/l)*sin(i*Pi*x*alpha1*t/l)/i(i^2*Pi^2
*beta^2-alpha1^2*l^2)^2,i=1..10))/(q*Pi)-
2*P*l^3*g*alpha1*(sum(sin(i*Pi*x/l)*sin(beta*i*Pi^2*t/l^2)/
(i^2*Pi^2*beta^2-alpha1^2*l^2), i = 0 .. 10))/(q*Pi^2*b)):
>
y5:=(2*P*l^3*g*(sum(sin(i*Pi*x/l)*sin(i*Pi*x*alpha2*t/l)/i(i^2*Pi^2
*beta^2-alpha2^2*l^2)^2,i=1..10))/(q*Pi)-
2*P*l^3*g*alpha2*(sum(sin(i*Pi*x/l)*sin(beta*i*Pi^2*t/l^2)/
(i^2*Pi^2*beta^2-alpha2^2*l^2), i=0..10))/(q*Pi^2*b)):
> plot([y3, y4, y5], x = 0 .. l, linestyle = [1, 2, 3], color =
[blue, red, green], legend = ["a=10;", "a=20;", "a=30"]);

> #tezlik oshib borishi bilan tebranish amplitudasi oshib borar
ekam

Balkaning uzluksiz ko‘ndalang yuklanish tasiridagi tebranishi

Купить