Физика сабаќтарында компьютерді пайдалану
жүктеу/скачать 2,49 Mb.
|
- Бұл бет үшін навигация:
- 1. Берілген декарттық координаталарында функцияның графигін салу
- 2. Берілген декарттық координаталарында траектория бойымен шариктің қозғалуын имитациялау
| c=3∙108 м/с
vглиц -? vглиц =(м/с). МОДЕЛЬДЕР ЖӘНЕ МОДЕЛЬДЕУ ТҮРЛЕРІ Есептің типі . Функцияның графиктерін салу және траекториясы берілген денелердің қозғалысын имитациялау Берілген декарттық координаталарында x пен f(x) –тің мәндерін есеп- теудің математикалық формуласы : X* = x ·mx +X0 , y*=f(x) · my + Y0, x= мұндағы x=a, a+dx, a+2dx,… ,b. Нақтылы координаттарды экранда есептеу формулалары мынадай болады: X* = x ·mx +X0, y*= Y0 - f(x) · my , мұндағы x=a, a+dx, a+2dx,… ,b. 1. Берілген декарттық координаталарында функцияның графигін салу PROGRAM FUN9; USES CRT,GRAPH; CONST N=100; MX=20; MY=20; A=-10; B=10; VAR D,R:INTEGER; XO,YO,X1,Y1:INTEGER; X,Y,DX:REAL; FUNCTION F(X:REAL):REAL; BEGIN F:=X*X END; BEGIN D:=DETECT; INITGRAPH(D,R,'C:\BP\DOC\BGI'); XO:=GETMAXX DIV 2; YO:=GETMAXY DIV 2; DX:=(B-A)/N; LINE(0,YO,2*XO,YO); LINE(XO,0,XO,2*YO); X:=A; X1:=ROUND(X*MX+XO); Y1:=ROUND(YO-F(X)*MY); MOVETO (X1,Y1); WHILE X<=B DO BEGIN X:=X+DX; X1:=ROUND(X*MX+XO); Y1:=ROUND(YO-F(X)*MY); LINETO(X1,Y1) 157 END; REPEAT UNTIL KEYPRESSED; CLOSEGRAPH END. 2. Берілген декарттық координаталарында траектория бойымен шариктің қозғалуын имитациялау PROGRAM dvijshar; USES CRT,GRAPH; CONST N=100; MX=20; MY=20; A=-10; B=10;r=5; VAR dd,rr:INTEGER; XO,YO,X1,Y1:INTEGER; X,Y,DX:REAL; FUNCTION F(X:REAL):REAL; BEGIN F:=X*sin(x) END; BEGIN DD:=DETECT; INITGRAPH(DD,RR,'C:\BP\DOC\BGI'); XO:=GETMAXX DIV 2; YO:=GETMAXY DIV 2; DX:=(B-A)/N; LINE(0,YO,2*XO,YO); LINE(XO,0,XO,2*YO); X:=A; X1:=ROUND(X*MX+XO); Y1:=ROUND(YO-F(X)*MY); CIRCLE(X1,Y1,R); WHILE X<=B DO BEGIN SETCOLOR(0); CIRCLE(X1,Y1,R); X:=X+DX; X1:=ROUND(X*MX+XO); Y1:=ROUND(YO-F(X)*MY); SETCOLOR(14); CIRCLE(X1,Y1,R); DELAY(2000) END; REPEAT UNTIL KEYPRESSED; CLOSEGRAPH END. Полярлық координаталарда нүктенің координаталары санақ басынан бас тап саналатын ара қашықтық(ρ) пен бұрылу () бұрышы арқылы сипаттала- ды X=ρ cos, y=ρ sin. Мысалы, X=r cost, y= r sint – шеңбердің теңдеуі, мұндағы r –шеңбердің радиу сы, t -бұрыш, 0≤ t ≤ 2π. X=r cost, y= r sint спираль теңдеуі, мұндағы 0≤ t ≤ nπ. Гүлді x=(r+R)*COS(t*T/r)-(r+R)*COS(T+r*T/R) y=(r+R)*SIN(r*T/R)-(r+R)*SIN(T+r*T/R) r,R –сәйкес “жүрекшесі “ мен жапрағы . жүктеу/скачать 2,49 Mb. Достарыңызбен бөлісу:
|