Физика сабаќтарында компьютерді пайдалану


Ғимарат құрлысындағы қолданылатын көлбеу транспортер h=15 м би- іктікке қыш және басқа жүктерді көтеріп шығару үшін қажетті көлбеулік ұзындығы қандай болуы керек? Үйкеліс коэффициеттінің мәні k= 0.01



бет16/59
Дата04.11.2022
өлшемі2,49 Mb.
#47406
1   ...   12   13   14   15   16   17   18   19   ...   59
Байланысты:
¨À?Ò?áå îáëûñòû? êàäðëàð á³ë³êò³ë³ã³í àðòòûðó æ?íå ?àéòà äàÿðëàó

Ғимарат құрлысындағы қолданылатын көлбеу транспортер h=15 м би- іктікке қыш және басқа жүктерді көтеріп шығару үшін қажетті көлбеулік ұзындығы қандай болуы керек? Үйкеліс коэффициеттінің мәні k= 0.01.


Салмағы P дене көлбеу жазықтықта сырғанап кетпес үшін Fүйк >=P1, P1 ауырлық күшінің көлбеу жазықтыққа пареллель құраушы күші. K*p*cosαα >=P*cosα , мұндағы α көлбеу бүрышы tgα<=k. Дене
транспортер қозғалысы кезінде төмен қарай бетпен сырғанап кетпеуі үшін k>= tgα шарты орындалуы қажет.

Tgα= h/sqr(l^2-h^2), k= h/sqr(l^2-h^2) бұдан l=+h/sqr(1+1/k^2).


Есептің шартына келмейтін теріс түбірді алмаймыз:
l=+h/sqr(1+1/k^2).

Зерттеулер:


h тұрақты болса ( h=c, l=+c/sqr(1+1/k^2) ) және k неғұрлым аз бол -са, қажет болатын көлбеулік ұзындығы солғұрлым үлкенірек болады. k=const,l=+h/sqr(1+l/k^2) транспортердің ұзындығы l гимараттың биік -тігімен анықталады.

Program KohlJazQ;


Var H,L,K:real;
Begin
H:=15;K:=0.01;
L:=H*sqrt(1+1/sqr(K));
Writeln(H:3:1,'':2,K:1:2,'':2,L:4:1)
End.

Дененің бірнеше күштердің әсерінен қозғалысы. Көлбеу жазықтықтағы қозғалыс




Суреттегі ситуацияны қарастырайық .
M1 және M2 массасы, K үйкеліс коэффициентті, A көлбеу бұры -шы берілген. M1 жүгінің жоғары, төмен немесе бүкіл системаның ты- ныштық күйде болатынын айқындау керек.

М2 жүгіне қандай күштер әсер етеді. Олар М2*g*sinA- ауырлық кү- шінің проекциясы, М1*g*cosA*K-жіптің керілу күші және егер жүк қозғал- са, онда m2*g*cosa*k-үйкеліс күші, ол қозғалысқа қарсы бағытталған. m1, m2,k,a енгіземіз егер m1>m2*(sin(a)- M1>M2*(SIN(A)-K*COS(A)) болса, онда жүк төмен қарай қозғалады әйтпесе, егер M1
Program KolJazTT;
const Pi=3.14;
Var M1,M2,K,A:real;
Begin
Readln(M1,M2,K,A);
A:=A*(Pi/180);
If M1> M2*(sin(A)+K*Cos(a)) then
Writeln('Tohmen qozghaladw');
Writeln;
if (M2*(sin(A)-K*Cos(A)) > M1) then
Writeln('Jogharw qozqaladw');
End.
Программаның жұмыс жасау мысалы:
M1=1 ,M2=2 ,K=0.3 A=10 төмен
M1=1 , M2=2 , K=0.5 , A=70 жоғары
M1=1 , M2=10 , K=0.3 , A=45 жоғары.


Достарыңызбен бөлісу:
1   ...   12   13   14   15   16   17   18   19   ...   59




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет