Паровая машина

Post Reply
User avatar
Dahl
Posts: 53
Joined: Thu Jan 01, 2015 10:42 am

Паровая машина

Post by Dahl » Mon Feb 16, 2015 3:40 am

Занимались тригонометрией. Предложил смоделировать поведение системы «поршень-шатун-маховик» паровой машины. Смоделировали.

Занимались информатикой. Предложил проверить модель практически. Проверили. (:

Code: Select all

' iPad only

option angle degrees
option sprite pos central

sprite "wheel" begin 300,300
 fill color 1,0,0 ! fill circle 150,150 size 150
 fill color 0,0,0 ! fill circle 150,150 size 135
 fill color 1,0,0 ! fill rect 150,150 size 140,8
 fill rect 150,150 size 8,140 ! fill rect 220,150 size 19,19
 fill circle 150,150 size 30.5
 fill color .5,0,0 ! fill circle 150,150 size 15
sprite end

sprite "conrod" begin 320,10
 fill color .7,.7,.7 ! fill rect 0,0 to 320,10
sprite end

sprite "f" begin 30,30
 fill color .5,0,0 ! fill circle 15,15 size 14
sprite end

sprite "piston" begin 270,60
 fill color .7,.7,.7
 fill rect 0,23 to 280,37
 fill rect 190,0 to 270,60
sprite end

graphics
graphics clear 0,0,0

x0=250 ! y0=350
fill color 1,0,0 ! fill rect x0+413,y0-47 to x0+667,y0+47
fill color 1,1,0 ! fill rect x0+429,y0-31 to x0+651,y0+31
fill rect x0+429,y0-31 to x0+439,y0-47
fill rect x0+641,y0-31 to x0+651,y0-47
fill rect x0+529,y0+31 to x0+551,y0+47

sprite "wheel" at x0,y0 ! sprite "wheel" show
sprite "f" show ! sprite "f" order 110
sprite "f" copy "g" ! sprite "g" show
sprite "piston" show
sprite "conrod" order 100 ! sprite "conrod" show

while 1
 wang=(wang+1)%360
 sprite "wheel" at x0,y0 angle wang
 beta=-asin(7*sin(wang)/32)
 Ax=70*cos(wang) ! Ay=70*sin(wang)
 Bx=Ax+320*cos(beta)
 sprite "f" at x0+Ax,y0+Ay
 sprite "g" at x0+Bx,y0
 sprite "conrod" at x0+(Ax+Bx)/2,y0+Ay/2 angle beta
 sprite "piston" at x0+125+Bx,y0
 pause 0.002
end while

User avatar
Фант
Posts: 1358
Joined: Sat Nov 30, 2013 10:01 am
My devices: iPad 4 (iOS 9.3), iMac (MAC OS 11.03)
Location: Россия,Санкт-Петербург
Flag: Russia
Contact:

Re: Паровая машина

Post by Фант » Mon Feb 16, 2015 4:39 am

Очень понравилось!
Просим доработки :D http://ru.m.wikipedia.org/wiki/Файл:Ste ... action.gif

User avatar
Dahl
Posts: 53
Joined: Thu Jan 01, 2015 10:42 am

Re: Паровая машина

Post by Dahl » Mon Feb 16, 2015 5:09 am

Расчёт золотника — немножко чересчур круто для школьников. (: Если уж положение поршня полтора часа выражали через угол поворота маховика, то тут даже подумать страшно. (:

User avatar
Фант
Posts: 1358
Joined: Sat Nov 30, 2013 10:01 am
My devices: iPad 4 (iOS 9.3), iMac (MAC OS 11.03)
Location: Россия,Санкт-Петербург
Flag: Russia
Contact:

Re: Паровая машина

Post by Фант » Mon Feb 16, 2015 5:21 am

Ну очень понравилось! Наберемся терпения и будем ждать от школьников результатов :D
...Парок бы еще прикрутить и шуршание поршня-и можно релаксировать под "вечный двигатель" :D

User avatar
Mr. Kibernetik
Site Admin
Posts: 4509
Joined: Mon Nov 19, 2012 10:16 pm
My devices: iPad, iPhone, MacBook
Location: Russia
Flag: Russia

Re: Паровая машина

Post by Mr. Kibernetik » Mon Feb 16, 2015 5:24 am

Круто!

Post Reply