od: > # Mexanizm harakatini tasvirlash > PP:=display(seq(P[i],i=0..K),insequence=true, thickness=2, scaling=constrained, axes=none): > display(PP,Poverxnostь(-18,0,8,0.5)); 3.25-rasm
Rasmda koʻrsatilgan sistemani harakatini quyidagicha izoxlaymiz.Disk
aylanish oʻqiga nisbatan kuch momentining oʻzgarishi natijasida kuchning
potentsial energiyasi diskning kinetik energiyasining oʻzgarishiga sabab boʻladi.
Ishqalanish kuchlari mavjud boʻlmaganda bu jarayon cheksiz davom etadi.
Maxovikning tebranma harakati. Tekis silliq sirtda tebranma harakat qilayotgan maxovik uchun dastur
yozamiz. Sirpanishdagi va dumalashdagi ishqalanishlar mavjud boʻlmaganda
maxovik erkin tebranma harakatda boʻladi.
> restart: > with(plots):with(plottools): Warning, the name changecoords has been redefined Warning, the name arrow has been redefined > K:=12: > Maxovik:=cylinder( [-2, 0, -2], 16, 11):
316
Sterjenь:=cuboid( [ 0, -2, 9 ], [ 30, 2, 14 ] ): Opora:=cuboid( [ 35, -25, -14 ], [ 14, 25, 4] ): for i to K do A:=sin(2*Pi*i/K)*Pi/6: P1:=display(rotate(PLOT3D(Maxovik,ORIENTATION(0,-30)),0,0,A)): P2:=display(rotate(PLOT3D(Sterjenь),0,0,A)):P[i]:=display(translate(P1,0, A*10,0),translate(P2,0,A*10,0));od: > PP:=display(seq(P[i],i=1..K),insequence=true, thickness=2, scaling=constrained, axes=none):
