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 –сәйкес “жүрекшесі “ мен жапрағы .
Достарыңызбен бөлісу: |
