ΠΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ Π»ΠΈΠ½ΠΈΠΈ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΎΠ±ΡΡΠΌΠ½ΡΡ Π³Π΅ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ²
Π ΡΠΈΡΡΠ΅ΠΌΠ°Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π° Π΄Π»Ρ ΠΊΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΡΠΈΠ²ΡΡ ΠΈ ΠΏΠΎΠ²Π΅ΡΡ Π½ΠΎΡΡΠ΅ΠΉ ΠΏΡΠΈΠΌΠ΅Π½ΡΠ΅ΡΡΡ Π°ΠΏΠΏΡΠΎΠΊΡΠΈΠΌΠ°ΡΠΈΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΠΠ΅Π·ΡΠ΅. Π‘ΡΡΠ½ΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ. ΠΡΡΡΡ Π·Π°Π΄Π°Π½Π° ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ ΠΈΠ· (n+1) ΡΠΎΡΠ΅ΠΊ ΠΊΠΎΡΠΎΡΡΡ Π±ΡΠ΄Π΅ΠΌ Π½Π°Π·ΡΠ²Π°ΡΡ Π»ΠΎΠΌΠ°Π½ΠΎΠΉ ΠΠ΅Π·ΡΠ΅. ΠΡΠΈΠ²Π°Ρ ΠΠ΅Π·ΡΠ΅, ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ°Ρ ΡΡΠΎΠΉ Π»ΠΎΠΌΠ°Π½ΠΎΠΉ, ΠΎΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ Π² Π²ΠΈΠ΄Π΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° t ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΏΠΎΠ»ΠΈΠ½ΠΎΠΌΠΎΠΌ: ΠΡΠ²ΠΎΠ΄ ΠΠ· ΡΠ°Π±Π»ΠΈΡΡ Π΄Π΅Π»Π°Ρ Π²ΡΠ²ΠΎΠ΄, ΡΡΠΎ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
ΠΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ Π»ΠΈΠ½ΠΈΠΈ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΎΠ±ΡΡΠΌΠ½ΡΡ Π³Π΅ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠ°Π΄Π°Π½ΠΈΠ΅ № 1
ΠΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ Π»ΠΈΠ½ΠΈΠΈ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΎΠ±ΡΡΠΌΠ½ΡΡ Π³Π΅ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ²
1.1 Π¦Π΅Π»Ρ ΡΠ°Π±ΠΎΡΡ ΠΡΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΡ Π½Π°Π²ΡΠΊΠΎΠ² Π² ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ΅ ΠΈ ΠΎΡΠ»Π°Π΄ΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ Π΄Π»Ρ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ Π»ΠΈΠ½ΠΈΠΉ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΎΠ±ΡΡΠΌΠ½ΡΡ Π³Π΅ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ².
1.2 ΠΠ½Π΄ΠΈΠ²ΠΈΠ΄ΡΠ°Π»ΡΠ½ΠΎΠ΅ Π·Π°Π΄Π°Π½ΠΈΠ΅ ΠΠΎΡΡΡΠΎΠΈΡΡ ΠΏΠΎΠ²Π΅ΡΡ Π½ΠΎΡΡΠΈ Π²ΡΠΎΡΠΎΠ³ΠΎ ΠΏΠΎΡΡΠ΄ΠΊΠ° ΠΈ ΠΈΡ Π»ΠΈΠ½ΠΈΡ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΡ.
ΠΠ°ΡΠΈΠ°Π½Ρ | a | b | c | d | E | R | |
1.3 Π Π΅ΡΠ΅Π½ΠΈΠ΅ Π·Π°Π΄Π°Π½ΠΈΡ
ΠΡΠ΅Π΄ΡΡΠ°Π²ΠΈΠΌ ΡΠΈΡΡΠ΅ΠΌΡ Π² ΡΠΈΡΠ»Π΅Π½Π½ΠΎΠΌ Π²ΠΈΠ΄Π΅:
ΠΠ· Π½Π΅Ρ Π»Π΅Π³ΠΊΠΎ ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ, ΡΡΠΎ ΠΏΠΎΠ»ΡΡΠ°Π΅ΡΡΡ ΡΠ°ΠΊΠ°Ρ ΡΠΈΡΡΠ΅ΠΌΠ°
ΠΠ΅ΡΠ²ΠΎΠ΅ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ΠΌ ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΠΈ Ρ ΡΠ°Π΄ΠΈΡΡΠΎΠΌ
ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Π½ΠΎΠΉ ΠΏΠ°ΡΠ°Π»Π»Π΅Π»ΡΠ½ΠΎ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ XY Π½Π° ΡΡΠΎΠ²Π½Π΅. ΠΡΠ° ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΡ ΠΈ ΡΠ²Π»ΡΠ΅ΡΡΡ Π»ΠΈΠ½ΠΈΠ΅ΠΉ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΊΠΎΠ½ΡΡΠ° ΠΈ ΡΠ»Π»ΠΈΠΏΡΠΎΠΈΠ΄Π°.
1.4 Π’Π΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
;Conus
(defun conus ()
(setq zmax 140.0)
(setq z 0.0)
(setq dz 5)
(while (<= z zmax)
(setq r (sqrt (* (* z z) (/ (* 140 140) (* 30 30)))))
(if (= r 0)
(command «point» (list 0 0 0))
(command «circle» (list 0 0 z) r)
)
(setq z (+ z dz))
)
(setq dphi (/ (* 10 pi) 180))
(setq phi 0)
(while (<= phi (* 2.0 pi))
(command «line» (list 0 0 0) (list (* r (cos phi)) (* r (sin phi)) z))
(command)
(setq phi (+ phi dphi))
)
)
; Ellipse in YZ
(defun ell_Y (fy fz)
(setq xmax 90.0)
(setq dx 10.0)
(setq dy 10.0)
(setq x -90.0)
(while (<= x xmax)
(setq ya 0.0)
(setq yk (sqrt (- (* 90.0 90.0) (* x x))))
(setq z (* fz (sqrt (- 8100.0 (* x x)))))
(setq p1 (list x ya z))
(while (> (- yk ya) dy)
(setq ya (+ ya dy))
(setq y (* fy ya))
(setq z (* fz (sqrt (- 8100.0 (* x x) (* y y)))))
(setq p2 (list x y z))
(command «line» p1 p2 «»)
(setq p1 p2)
)
(setq y (* fy yk))
(setq p2 (list x y 0.0))
(command «line» p1 p2 «»)
(setq x (+ x dx))
)
)
;
; Ellipse in XZ
(defun ell_X (fx fz)
(setq ymax 90.0)
(setq y -90.0)
(while (<= y ymax)
(setq xa 0.0)
(setq xk (sqrt (- (* 90.0 90.0) (* y y))))
(setq z (* fz (sqrt (- 8100.0 (* y y)))))
(setq p1 (list xa y z))
(while (> (- xk xa) dx)
(setq xa (+ xa dx))
(setq x (* fx xa))
(setq z (* fz (sqrt (- 8100.0 (* x x) (* y y)))))
(setq p2 (list x y z))
(command «line» p1 p2 «»)
(setq p1 p2)
)
(setq x (* fx xk))
(setq p2 (list x y 0.0))
(command «line» p1 p2 «»)
(setq y (+ y dy))
)
)
;
; line cross
(defun lc (fl)
(setq x -88)
(setq dx 2)
(setq x (* fl x))
(setq y (sqrt (- 7744.3902 (* x x))))
(setq z 18.86)
(setq y (* fl y))
(setq p1 (list x y z))
(setq x (* fl x))
(while (> (- 88 x) dx)
(setq x (+ x dx))
(setq x (* fl x))
(setq y (sqrt (- 7744.3902 (* x x))))
(setq y (* fl y))
(setq z 18.86)
(setq p2 (list x y z))
(command «line» p1 p2 «»)
(setq x (* fl x))
(setq p1 p2)
)
(setq x 88)
(setq x (* fl x))
(setq y (sqrt (- 7744.3902 (* x x))))
(setq z 18.86)
(setq p2 (list x y z))
(setq x (* fl x))
(command «line» p1 p2 «»)
)
;
; control
(Defun gr ()
(setq sb (getvar «blipmode»))
(setq sc (getvar «cmdecho»))
(command «erase» «all» «»)
(setvar «blipmode» 0)
(setvar «cmdecho» 0)
(command «color» 5)
(ell_Y 1 1)
(ell_Y 1 -1)
(ell_Y -1 1)
(ell_Y -1 -1)
(ell_X 1 1)
(ell_X 1 -1)
(ell_X -1 1)
(ell_X -1 -1)
(command «color» 3)
(conus)
(command «color» 2)
(lc 1)
(lc -1)
(setvar «blipmode» sb)
(setvar «cmdecho» sc)
)
1.5 Π Π΅Π·ΡΠ»ΡΡΠ°Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
ΠΠ°Π΄Π°Π½ΠΈΠ΅ № 2
ΠΠ΅ΡΠΎΠ΄Ρ ΠΊΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΡΠΈΠ²ΡΡ .
2.1 Π¦Π΅Π»Ρ ΡΠ°Π±ΠΎΡΡ ΠΡΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΡ Π½Π°Π²ΡΠΊΠΎΠ² ΠΊΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΡΠΈΠ²ΡΡ .
2.2 ΠΠ½Π΄ΠΈΠ²ΠΈΠ΄ΡΠ°Π»ΡΠ½ΠΎΠ΅ Π·Π°Π΄Π°Π½ΠΈΠ΅ Π‘ΠΊΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°ΡΡ ΠΊΡΠΈΠ²ΡΡ ΠΏΠΎ Π·Π°Π΄Π°Π½Π½ΡΠΌ ΡΠΎΡΠΊΠ°ΠΌ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ Π€Π΅ΡΠ³ΡΡΠΎΠ½Π°. Π‘ΠΎΠ·Π΄Π°ΡΡ ΡΡΠ½ΠΊΡΠΈΡ ΡΠΈΡΡΡΡΡΡ ΠΊΡΠΈΠ²ΡΡ Π² ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ XY, ΠΈΡΡ ΠΎΠ΄Π½ΡΠ΅ ΡΠΎΡΠΊΠΈ ΠΎΡΠΌΠ΅ΡΠΈΡΡ ΠΌΠ°ΡΠΊΠ΅ΡΠ°ΠΌΠΈ. ΠΡΠΎΡΠΌΠΈΡΡ ΡΠ°Π±Π»ΠΈΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΈ ΠΎΡΠΊΠ»ΠΎΠ½Π΅Π½ΠΈΠΉ ΠΎΡ Π·Π°Π΄Π°Π½Π½ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π² ΠΎΠΏΠΎΡΠ½ΡΡ ΡΠΎΡΠΊΠ°Ρ .
ΠΠ°ΡΠΈΠ°Π½Ρ | 0,0 | 0,2 | 0,4 | 0,6 | 0,8 | ||
49,0 | 105,3 | 172,3 | 211,1 | 183,0 | 49,0 | ||
28,0 | — 31,5 | — 78,6 | — 95,8 | — 66,1 | 28,0 | ||
2.3 ΠΠΏΠΏΡΠΎΠΊΡΠΈΠΌΠ°ΡΠΈΡ ΠΊΡΠΈΠ²ΠΎΠΉ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ Π€Π΅ΡΠ³ΡΡΠΎΠ½Π°
Π‘Π΅Π³ΠΌΠ΅Π½Ρ ΠΊΡΠΈΠ²ΠΎΠΉ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΎΠΏΠΈΡΠ°Π½ Π²Π΅ΠΊΡΠΎΡΠ½ΡΠΌ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ΠΌ:
r(u)=a3u3+a2u2+a1u+a0 , (1)
Π³Π΄Π΅ r(u)— ΡΠ°Π΄ΠΈΡΡ-Π²Π΅ΠΊΡΠΎΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΠΎΡΠΊΠΈ ΠΊΡΠΈΠ²ΠΎΠΉ :
u — ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ, 0<=u<=1;
a1 — Π²Π΅ΠΊΡΠΎΡΡ ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΠΎΠ² i=0.3.
ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ (1) — ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ Π²Π΅ΠΊΡΠΎΡΠ½ΡΡ ΡΠΎΡΠΌΡ Π·Π°ΠΏΠΈΡΠΈ ΡΠΈΡΡΠ΅ΠΌΡ:
x (u)=a13u3+a12u2+a11u+a10;
y (u)=a23u3+a22u2+a21u+a20; (2)
z(u)=a33u3+a32u2+a31u+a30;
Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, Π΄Π»Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΡΠ΅Π³ΠΌΠ΅Π½ΡΠ° ΠΊΡΠΈΠ²ΠΎΠΉ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π·Π½Π°ΡΡ 4 Π²Π΅ΠΊΡΠΎΡΠ° ΠΈΠ»ΠΈ 12 ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΠΎΠ². ΠΠ±ΡΡΠ½ΠΎ Π·Π°Π΄Π°ΡΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ r(u) ΠΈ r'(u) Π½Π° ΠΊΠΎΠ½ΡΠ°Ρ ΡΠ΅Π³ΠΌΠ΅Π½ΡΠ°:
r (0)=a0;
r (1)=a3+a2+a1+a0; (3)
r'(0)=a1;
r'(1)=3a3+2a2+a1;
Π Π΅ΡΠΈΠ² ΡΠΈΡΡΠ΅ΠΌΡ, ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ (3) a0 ,a1 , a2 , a3 ΠΈ ΠΏΠΎΠ΄ΡΡΠ°Π²ΠΈΠ² ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ ΡΠ΅Π³ΠΌΠ΅Π½ΡΠ° ΠΊΡΠΈΠ²ΠΎΠΉ Π² ΡΠΎΡΠΌΠ΅ Π€Π΅ΡΠ³ΡΡΠΎΠ½Π°:
r(u)=r(0)(1−3u2+2u3)+r(1)(3u2-2u3)+r'(0)(u-2u2+u3)+r'(1)(u3-u2).
ΠΠ΄Π½Π°ΠΊΠΎ Π² ΠΈΠ½Π΄ΠΈΠ²ΠΈΠ΄ΡΠ°Π»ΡΠ½ΠΎΠΌ Π·Π°Π΄Π°Π½ΠΈΠΈ Π΄Π°Π½ΠΎ 6 ΡΠΎΡΠ΅ΠΊ ΠΈ Π½Π΅ ΡΠΊΠ°Π·Π°Π½Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄Π½ΡΡ Π½Π° ΠΊΠΎΠ½ΡΠ°Ρ ΠΎΡΡΠ΅Π·ΠΊΠ° — Π΄Π΅Π»Π°Ρ Π²ΡΠ²ΠΎΠ΄, ΡΡΠΎ Π°ΠΏΠΏΡΠΎΠΊΡΠΈΠΌΠ°ΡΠΈΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΡΠΎΠ²ΠΎΠ΄ΠΈΡΡ Π΄Π»Ρ ΡΠΏΠ»Π°ΠΉΠ½Π° ΡΡΠ΅ΠΏΠ΅Π½ΠΈ 5 — ΡΠ°ΠΊ, ΠΊΠ°ΠΊ Π΄Π»Ρ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΡΠΏΠ»Π°ΠΉΠ½Π° ΡΡΠ΅ΠΏΠ΅Π½ΠΈ n Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π·Π½Π°ΡΡ n+1 ΡΠ°Π΄ΠΈΡΡ-Π²Π΅ΠΊΡΠΎΡ.
ΠΡΠ°ΠΊ, ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ ΡΠ΅Π³ΠΌΠ΅Π½ΡΠ° ΠΏΡΠΎΡ ΠΎΠ΄ΡΡΠ΅Π³ΠΎ ΡΠ΅ΡΠ΅Π· Π·Π°Π΄Π°Π½Π½ΡΠ΅ ΡΠΎΡΠΊΠΈ Π² Π²Π΅ΠΊΡΠΎΡΠ½ΠΎΠΉ ΡΠΎΡΠΌΠ΅:
r (u)=a5u5+a4u4+ a3u3+a2u2+a1u+a0 (4)
Π‘ΠΈΡΡΠ΅ΠΌΠ° (2) Π·Π°ΠΏΠΈΡΠ΅ΡΡΡ Π² ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ Π²ΠΈΠ΄Π΅ Π΄Π»Ρ ΠΏΠ»ΠΎΡΠΊΠΎΠ³ΠΎ ΡΠΏΠ»Π°ΠΉΠ½Π°:
x (u)=a15u5+a14u4+a13u3+a12u2+a11u+a10;
y (u)=a25u5+a24u4+a23u3+a22u2+a21u+a20; (5)
ΠΠΎΠ΄ΡΡΠ°Π²Π»ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΈΠ· Π·Π°Π΄Π°Π½Π½ΠΎΠΉ ΡΠ°Π±Π»ΠΈΡΡ Π² ΡΠΈΡΡΠ΅ΠΌΡ (5) ΠΈ ΡΠ΅ΡΠ°Ρ Π΅Ρ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΠΎΠ² a, ΠΏΠΎΠ»ΡΡΠΈΠΌ ΡΠ΅ΡΡΡ Π²Π΅ΠΊΡΠΎΡΠΎΠ² Π²Ρ ΠΎΠ΄ΡΡΠΈΡ Π² ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ ΠΊΡΠΈΠ²ΠΎΠΉ (4), ΠΊΠΎΡΠΎΡΠ°Ρ ΠΏΡΠΎΡ ΠΎΠ΄ΠΈΡ ΡΠ΅ΡΠ΅Π· ΡΠ΅ΡΡΡ ΡΠΎΡΠ΅ΠΊ.
(6)
(7)
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΠΈΡΡΠ΅ΠΌΡ (6) ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΠΠ°ΡΡΡΠ° ΠΏΠΎΠ»ΡΡΠΈΠΌ:
a15=117,1875; a14=-255,208(3); a13=-621,3541(6); a12=563,958(3); a11=195,41(6); a10=49,0.
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΠΈΡΡΠ΅ΠΌΡ (7) ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΠΠ°ΡΡΡΠ° ΠΏΠΎΠ»ΡΡΠΈΠΌ:
a25=156,25; a14=-351,5625; a13=-630,208(3); a12=-143,4375; a11=-291,458(3); a10=28,0.
ΠΡΠ°ΠΊ, ΠΈΠΌΠ΅Π΅ΡΡΡ 6 Π²Π΅ΠΊΡΠΎΡΠΎΠ² ΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΠΏΠ»Π°ΠΉΠ½ 5 ΡΡΠ΅ΠΏΠ΅Π½ΠΈ — ΡΡΠΎ Π΅ΡΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΠ΅ ΠΈ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎΠ΅ ΡΡΠ»ΠΎΠ²ΠΈΠ΅ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΡΠ΅Π³ΠΌΠ΅Π½ΡΠ° ΠΊΡΠΈΠ²ΠΎΠΉ ΠΏΡΠΎΡ ΠΎΠ΄ΡΡΠ΅Π³ΠΎ ΡΠ΅ΡΠ΅Π· 6 ΡΠΎΡΠ΅ΠΊ.
2.4 Π’Π΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΡΠ΅Π°Π»ΠΈΠ·ΡΡΡΠ΅ΠΉ ΠΌΠ΅ΡΠΎΠ΄ Π€Π΅ΡΠ³ΡΡΠΎΠ½Π°.
(defun task2()
(command «erase» «all» «»)
(setq a15 117.1875)
(setq a14 -255.2 083 333)
(setq a13 -621.3 541 666)
(setq a12 563.9 583 333)
(setq a11 195.4 166 666)
(setq a10 49.0)
(setq a25 156.25)
(setq a24 -351.5625)
(setq a23 630.2 083 333)
(setq a22 -143.4375)
(setq a21 -291.4 583 333)
(setq a20 28.0)
(setvar «pdmode» 2)
(command «point» (list 49.0 28.0))
(command «point» (list 105.3 -31.5))
(command «point» (list 172.3 -78.6))
(command «point» (list 211.1 -95.8))
(command «point» (list 183.0 -66.1))
(command «point» (list 49.0 28.0))
(setq u 0)
(setq du 0.01)
(setq file1 (open «c:\mydata1.txt» «w»))
(while (<= u 1.0)
(setq x1 (+ (* (expt u 5) a15) (* (expt u 4) a14) (* (expt u 3) a13) (* (expt u 2) a12) (* u a11) a10))
(setq y1 (+ (* (expt u 5) a25) (* (expt u 4) a24) (* (expt u 3) a23) (* (expt u 2) a22) (* u a21) a20))
(if (or (<= (abs (- u 0)) 0.1) (<= (abs (- u 0.2)) 0.1) (<= (abs (- u 0.4)) 0.1) (<= (abs (- u 0.6)) 0.1) (<= (abs (- u 0.8)) 0.1) (<= (abs (- u 1.0)) 0.1))
(print (list x1 y1) file1)
)
(setq u (+ u du))
(setq x2 (+ (* (expt u 5) a15) (* (expt u 4) a14) (* (expt u 3) a13) (* (expt u 2) a12) (* u a11) a10))
(setq y2 (+ (* (expt u 5) a25) (* (expt u 4) a24) (* (expt u 3) a23) (* (expt u 2) a22) (* u a21) a20))
(command «line» (list x1 y1) (list x2 y2))
(command)
)
(print (list x2 y2) file1)
(close file1)
)
2.5 Π’Π°Π±Π»ΠΈΡΠ°, ΠΏΠΎΠ»ΡΡΠ°Π΅ΠΌΠ°Ρ Π² ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π·Π°Π΄Π°Π½ΠΈΡ:
(49.0 28.0) Π²Π΅ΠΊΡΠΎΡ ΠΎΡΠΊΠ»ΠΎΠ½Π΅Π½ΠΈΠ΅ΠΉ- (0,0)
(105.3 -31.5) Π²Π΅ΠΊΡΠΎΡ ΠΎΡΠΊΠ»ΠΎΠ½Π΅Π½ΠΈΠ΅ΠΉ- (0,0)
(172.3 -78.6) Π²Π΅ΠΊΡΠΎΡ ΠΎΡΠΊΠ»ΠΎΠ½Π΅Π½ΠΈΠ΅ΠΉ- (0,0)
(211.1 -95.8) Π²Π΅ΠΊΡΠΎΡ ΠΎΡΠΊΠ»ΠΎΠ½Π΅Π½ΠΈΠ΅ΠΉ- (0,0)
(182.0 -67.1) Π²Π΅ΠΊΡΠΎΡ ΠΎΡΠΊΠ»ΠΎΠ½Π΅Π½ΠΈΠ΅ΠΉ- (1,1)
(49.0 28.0) Π²Π΅ΠΊΡΠΎΡ ΠΎΡΠΊΠ»ΠΎΠ½Π΅Π½ΠΈΠ΅ΠΉ- (0,0)
2.6 Π ΠΈΡΡΠ½ΠΎΠΊ Ρ ΡΠΊΡΠ°Π½Π°
2.7 ΠΡΠ²ΠΎΠ΄ ΠΠ· ΡΠ°Π±Π»ΠΈΡΡ Π΄Π΅Π»Π°Ρ Π²ΡΠ²ΠΎΠ΄, ΡΡΠΎ ΠΈΠ·-Π·Π° Π°ΠΏΠΏΠ°ΡΠ°ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΡΡ ΡΠΈΡΠ΅Π» Π²ΠΎΠ·ΠΌΠΎΠΆΠ½Ρ Π½Π΅Π±ΠΎΠ»ΡΡΠΈΠ΅ ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΠΈ Π½Π° Π±ΠΎΠ»ΡΡΠΈΡ ΡΠ°ΡΡΡΠΎΡΠ½ΠΈΡΡ , ΠΏΡΠΎΡ ΠΎΠ΄ΠΈΠΌΡΡ ΡΠΎΡΠΊΠΎΠΉ ΠΏΠΎ ΠΊΡΠΈΠ²ΠΎΠΉ.
ΠΠ°Π΄Π°Π½ΠΈΠ΅ № 3
ΠΠ΅ΡΠΎΠ΄Ρ ΠΊΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΡΠΈΠ²ΡΡ .
3.1 Π¦Π΅Π»Ρ ΡΠ°Π±ΠΎΡΡ ΠΡΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΡ Π½Π°Π²ΡΠΊΠΎΠ² ΠΊΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΡΠΈΠ²ΡΡ .
3.2 ΠΠ½Π΄ΠΈΠ²ΠΈΠ΄ΡΠ°Π»ΡΠ½ΠΎΠ΅ Π·Π°Π΄Π°Π½ΠΈΠ΅ Π‘ΠΊΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°ΡΡ ΠΊΡΠΈΠ²ΡΡ ΠΏΠΎ Π·Π°Π΄Π°Π½Π½ΡΠΌ ΡΠΎΡΠΊΠ°ΠΌ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΠΠ΅Π·ΡΠ΅. Π‘ΠΎΠ·Π΄Π°ΡΡ ΡΡΠ½ΠΊΡΠΈΡ ΡΠΈΡΡΡΡΡΡ ΠΊΡΠΈΠ²ΡΡ ΠΈ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΡΠ΅ΡΠΊΡΡ Π»ΠΎΠΌΠ°Π½Π½ΡΡ. ΠΡΠΎΡΠΌΠΈΡΡ ΡΠ°Π±Π»ΠΈΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΈ ΠΎΡΠΊΠ»ΠΎΠ½Π΅Π½ΠΈΠΉ ΠΎΡ Π·Π°Π΄Π°Π½Π½ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π² ΠΎΠΏΠΎΡΠ½ΡΡ ΡΠΎΡΠΊΠ°Ρ .
ΠΠ°ΡΠΈΠ°Π½Ρ | 0,0 | 0,2 | 0,4 | 0,6 | 0,8 | ||
49,0 | 105,3 | 172,3 | 211,1 | 183,0 | 49,0 | ||
28,0 | — 31,5 | — 78,6 | — 95,8 | — 66,1 | 28,0 | ||
3.3 ΠΠΏΠΏΡΠΎΠΊΡΠΈΠΌΠ°ΡΠΈΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΠΠ΅Π·ΡΠ΅
Π ΡΠΈΡΡΠ΅ΠΌΠ°Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π° Π΄Π»Ρ ΠΊΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΡΠΈΠ²ΡΡ ΠΈ ΠΏΠΎΠ²Π΅ΡΡ Π½ΠΎΡΡΠ΅ΠΉ ΠΏΡΠΈΠΌΠ΅Π½ΡΠ΅ΡΡΡ Π°ΠΏΠΏΡΠΎΠΊΡΠΈΠΌΠ°ΡΠΈΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΠΠ΅Π·ΡΠ΅. Π‘ΡΡΠ½ΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ.
ΠΡΡΡΡ Π·Π°Π΄Π°Π½Π° ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ ΠΈΠ· (n+1) ΡΠΎΡΠ΅ΠΊ ΠΊΠΎΡΠΎΡΡΡ Π±ΡΠ΄Π΅ΠΌ Π½Π°Π·ΡΠ²Π°ΡΡ Π»ΠΎΠΌΠ°Π½ΠΎΠΉ ΠΠ΅Π·ΡΠ΅. ΠΡΠΈΠ²Π°Ρ ΠΠ΅Π·ΡΠ΅, ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ°Ρ ΡΡΠΎΠΉ Π»ΠΎΠΌΠ°Π½ΠΎΠΉ, ΠΎΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ Π² Π²ΠΈΠ΄Π΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° t ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΏΠΎΠ»ΠΈΠ½ΠΎΠΌΠΎΠΌ:
(8)
Π³Π΄Π΅ — ΡΠ°Π΄ΠΈΡΡ-Π²Π΅ΠΊΡΠΎΡ ΡΠΎΡΠ΅ΠΊ Π½Π° ΠΊΡΠΈΠ²ΠΎΠΉ, Π° Jni(t) — Π°ΠΏΠΏΡΠΎΠΊΡΠΈΠΌΠΈΡΡΡΡΠΈΠ΅ ΠΌΠ½ΠΎΠ³ΠΎΡΠ»Π΅Π½Ρ ΠΠ΅ΡΠ½ΡΡΠ΅ΠΉΠ½Π°, ΡΠ°Π²Π½ΡΠ΅
(9)
ΠΠ΄Π΅ΡΡ 0t1 ΠΈ, ΠΊΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, ΠΏΡΠ΅Π΄ΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ, ΡΡΠΎ ti=1 ΠΏΡΠΈ i=0 ΠΈ t=0.
ΠΠΎΠΌΠ°Π½Π°Ρ ΠΠ΅Π·ΡΠ΅ ΠΎΠ΄Π½ΠΎΠ·Π½Π°ΡΠ½ΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ ΡΠΎΡΠΌΡ ΠΊΡΠΈΠ²ΠΎΠΉ ΠΠ΅Π·ΡΠ΅. ΠΠ·ΠΌΠ΅Π½ΡΡ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π²Π΅ΡΡΠΈΠ½ Π»ΠΎΠΌΠ°Π½ΠΎΠΉ, ΠΌΠΎΠΆΠ½ΠΎ ΡΠΏΡΠ°Π²Π»ΡΡΡ ΡΠΎΡΠΌΠΎΠΉ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΉ ΠΊΡΠΈΠ²ΠΎΠΉ ΠΠ΅Π·ΡΠ΅. ΠΡΠΈ ΡΡΠΎΠΌ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΈΠΌΠ΅ΡΡ Π² Π²ΠΈΠ΄Ρ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π΅:
1. ΡΠ°ΠΌΠΎΠΉ ΠΊΡΠΈΠ²ΠΎΠΉ Π² ΠΎΠ±ΡΠ΅ΠΌ ΡΠ»ΡΡΠ°Π΅ Π±ΡΠ΄ΡΡ ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠ°ΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΠ΅ΡΠ²Π°Ρ ΠΈ ΠΏΠΎΡΠ»Π΅Π΄Π½ΡΡ Π²Π΅ΡΡΠΈΠ½Ρ Π»ΠΎΠΌΠ°Π½ΠΎΠΉ ΠΠ΅Π·ΡΠ΅, ΠΎΡΡΠ°Π»ΡΠ½ΡΠ΅ Π²Π΅ΡΡΠΈΠ½Ρ Π±ΡΠ΄ΡΡ Π»ΠΈΡΡ ΠΎΠΊΠ°Π·ΡΠ²Π°ΡΡ Π²Π»ΠΈΡΠ½ΠΈΠ΅ Π½Π° Π²ΠΈΠ΄ ΠΈ Π³Π»Π°Π΄ΠΊΠΎΡΡΡ ΠΊΡΠΈΠ²ΠΎΠΉ;
2. Π½Π°ΠΊΠ»ΠΎΠ½Ρ ΠΊΠ°ΡΠ°ΡΠ΅Π»ΡΠ½ΡΡ Π²Π΅ΠΊΡΠΎΡΠΎΠ² Π² ΠΊΡΠ°ΠΉΠ½ΠΈΡ ΡΠΎΡΠΊΠ°Ρ ΠΊΡΠΈΠ²ΠΎΠΉ ΠΠ΅Π·ΡΠ΅ ΠΈ Π»ΠΎΠΌΠ°Π½ΠΎΠΉ ΠΠ΅Π·ΡΠ΅ ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡΡ, ΠΏΠΎΡΡΠΎΠΌΡ ΠΏΡΠΈ ΡΠΎΠΏΡΡΠΆΠ΅Π½ΠΈΠΈ Π΄Π²ΡΡ ΠΊΡΠΈΠ²ΡΡ ΠΠ΅Π·ΡΠ΅, Π·Π°Π΄Π°Π½Π½ΡΡ Π»ΠΎΠΌΠ°Π½ΡΠΌΠΈ ΠΈ, ΠΎΠ΄ΠΈΠ½Π°ΠΊΠΎΠ²ΡΠΉ Π½Π°ΠΊΠ»ΠΎΠ½ ΠΊΡΠΈΠ²ΡΡ Π² ΡΠΎΡΠΊΠ΅ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ ΠΏΠΎΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅, Π΅ΡΠ»ΠΈ ΡΠΎΡΠΊΠΈ (ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠΎΠ²ΠΏΠ°Π΄Π°Π΅Ρ Ρ) ΠΈ Π»Π΅ΠΆΠ°Ρ Π½Π° ΠΎΠ΄Π½ΠΎΠΉ ΠΏΡΡΠΌΠΎΠΉ;
3. ΠΊΠ°ΠΊ Π²ΠΈΠ΄Π½ΠΎ ΠΈΠ· Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠΉ (8) ΠΈ (9), ΡΡΠ΅ΠΏΠ΅Π½Ρ Π°ΠΏΠΏΡΠΎΠΊΡΠΈΠΌΠΈΡΡΡΡΠ΅Π³ΠΎ ΠΏΠΎΠ»ΠΈΠ½ΠΎΠΌΠ° ΡΠ°Π²Π½Π° n (Ρ.Π΅. ΡΠΈΡΠ»Ρ Π·Π²Π΅Π½ΡΠ΅Π² Π² Π»ΠΎΠΌΠ°Π½ΠΎΠΉ ΠΠ΅Π·ΡΠ΅), ΠΏΠΎΡΡΠΎΠΌΡ Π΄Π»Ρ ΡΠ²Π΅Π»ΠΈΡΠ΅Π½ΠΈΡ ΠΏΠΎΡΡΠ΄ΠΊΠ° ΠΊΡΠΈΠ²ΠΎΠΉ ΠΠ΅Π·ΡΠ΅ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ Π»ΠΈΡΡ Π·Π°Π΄Π°ΡΡ Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ Π²Π΅ΡΡΠΈΠ½Ρ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΉ Π»ΠΎΠΌΠ°Π½ΠΎΠΉ ΠΠ΅Π·ΡΠ΅;
4. ΠΊΡΠΈΠ²Π°Ρ ΠΠ΅Π·ΡΠ΅ Π²ΡΠ΅Π³Π΄Π° ΡΠ΅Π»ΠΈΠΊΠΎΠΌ Π»Π΅ΠΆΠΈΡ Π²Π½ΡΡΡΠΈ Π²ΡΠΏΡΠΊΠ»ΠΎΠΉ ΠΎΠ±ΠΎΠ»ΠΎΡΠΊΠΈ Π»ΠΎΠΌΠ°Π½ΠΎΠΉ ΠΠ΅Π·ΡΠ΅.
3.4 ΠΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΠΏΠΎΠ»ΠΈΠ½ΠΎΠΌΠ° ΠΠ΅Π·ΡΠ΅
ΠΡΠ°ΠΊ, Π·Π°Π΄Π°Π½ΠΎ 6 ΡΠΎΡΠ΅ΠΊ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΠΎΡΡΡΠΎΠΈΡΡ ΠΏΠΎΠ»ΠΈΠ½ΠΎΠΌ ΠΠ΅Π·ΡΠ΅ ΡΡΠ΅ΠΏΠ΅Π½ΠΈ 5:
Π½Π°ΠΉΠ΄Π΅ΠΌ Π°ΠΏΠΏΡΠΎΠΊΡΠΈΠΌΠΈΡΡΡΡΠΈΠ΅ ΠΌΠ½ΠΎΠ³ΠΎΡΠ»Π΅Π½Ρ ΠΠ΅ΡΠ½ΡΡΠ΅ΠΉΠ½Π°:
J50=(1-u)5;
J51=5u (1-u)4;
J52=10u2(1-u)3;
J53=10u3(1-u)2
J54=5u4(1-u);
J55=u5;
Π’Π΅ΠΏΠ΅ΡΡ Π΅ΡΡΡ Π²ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ Π΄Π»Ρ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΠΊΡΠΈΠ²ΠΎΠΉ ΠΠ΅Π·ΡΠ΅ ΠΏΠΎ Π·Π°Π΄Π°Π½Π½ΡΠΌ ΡΠΎΡΠΊΠ°ΠΌ, ΠΏΡΠΈΡΠ΅ΠΌ ΠΎΠ½Π°, Π½Π΅ ΡΠΌΠΎΡΡΡ Π½Π° ΡΠΎΠ²ΠΏΠ°Π΄Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ²ΠΎΠΉ ΠΈ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅ΠΉ ΡΠΎΡΠ΅ΠΊ, Π½Π΅ Π±ΡΠ΄Π΅Ρ Π·Π°ΠΌΠΊΠ½ΡΡΠΎ ΡΠΎΠΏΡΡΠΆΠ΅Π½Π°, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΏΡΠ΅Π΄ΠΏΠΎΡΠ»Π΅Π΄Π½ΡΡ ΠΈ Π²ΡΠΎΡΠ°Ρ ΡΠΎΡΠΊΠ° Π½Π΅ Π»Π΅ΠΆΠ°Ρ Π½Π° ΠΎΠ΄Π½ΠΎΠΉ ΠΏΡΡΠΌΠΎΠΉ.
3.5 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π΄Π»Ρ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΠΊΡΠΈΠ²ΠΎΠΉ ΠΠ΅Π·ΡΠ΅.
(defun Bezier_curve ()
(command «erase» «all» «»)
(setvar «pdmode» 2)
(setq p1 (list 49.0 28.0))
(setq p2 (list 105.3 -31.5))
(setq p3 (list 172.3 -78.6))
(setq p4 (list 211.1 -95.8))
(setq p5 (list 183.0 -66.1))
(setq p6 (list 49.0 28.0))
(command «color» 3)
(command «point» p1)
(command «point» p2)
(command «point» p3)
(command «point» p4)
(command «point» p5)
(command «point» p6)
(command «color» 4)
(command «line» p1 p2 p3 p4 p5 p6)
(command)
(command «color» 5)
(setq u 0)
(setq du 0.001)
(setq file1 (open «c:\mydata2.txt» «w»))
(while (<= u 1.0)
(setq x (+ (* (nth 0 p1) (expt (- 1 u) 5)) (* (nth 0 p2) (expt (- 1 u) 4) u 5) (* (nth 0 p3) (expt (- 1 u) 3) u u 10) (* (nth 0 p4) (expt (- 1 u) 2) u u u 10) (* (nth 0 p5) (expt u 4) (- 1 u) 5) (* (nth 0 p6) (expt u 5))))
(setq y (+ (* (nth 1 p1) (expt (- 1 u) 5)) (* (nth 1 p2) (expt (- 1 u) 4) u 5) (* (nth 1 p3) (expt (- 1 u) 3) u u 10) (* (nth 1 p4) (expt (- 1 u) 2) u u u 10) (* (nth 1 p5) (expt u 4) (- 1 u) 5) (* (nth 1 p6) (expt u 5))))
(if (or (<= (abs (- u 0)) 0.1) (<= (abs (- u 0.2)) 0.1) (<= (abs (- u 0.4)) 0.1) (<= (abs (- u 0.6)) 0.1) (<= (abs (- u 0.8)) 0.1) (<= (abs (- u 1.0)) 0.1))
(print (list x y) file1)
)
(setq u (+ u du))
(setq x1 (+ (* (nth 0 p1) (expt (- 1 u) 5)) (* (nth 0 p2) (expt (- 1 u) 4) u 5) (* (nth 0 p3) (expt (- 1 u) 3) u u 10) (* (nth 0 p4) (expt (- 1 u) 2) u u u 10) (* (nth 0 p5) (expt u 4) (- 1 u) 5) (* (nth 0 p6) (expt u 5))))
(setq y1 (+ (* (nth 1 p1) (expt (- 1 u) 5)) (* (nth 1 p2) (expt (- 1 u) 4) u 5) (* (nth 1 p3) (expt (- 1 u) 3) u u 10) (* (nth 1 p4) (expt (- 1 u) 2) u u u 10) (* (nth 1 p5) (expt u 4) (- 1 u) 5) (* (nth 1 p6) (expt u 5))))
(command «line» (list x y) (list x1 y1))
(command)
)
(close file1)
)
3.5 Π’Π°Π±Π»ΠΈΡΠ°, ΠΏΠΎΠ»ΡΡΠ°Π΅ΠΌΠ°Ρ Π² ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π·Π°Π΄Π°Π½ΠΈΡ:
(49.0 28.0) Π²Π΅ΠΊΡΠΎΡ-ΠΎΡΠΊΠ»ΠΎΠ½Π΅Π½ΠΈΠ΅ (0 0)
(106.469 -25.1437) Π²Π΅ΠΊΡΠΎΡ-ΠΎΡΠΊΠ»ΠΎΠ½Π΅Π½ΠΈΠ΅ (-1.169 -6.063)
(153.844 -60.0138) Π²Π΅ΠΊΡΠΎΡ-ΠΎΡΠΊΠ»ΠΎΠ½Π΅Π½ΠΈΠ΅ (18.454 -18.5862)
(172.487 -68.3062) Π²Π΅ΠΊΡΠΎΡ-ΠΎΡΠΊΠ»ΠΎΠ½Π΅Π½ΠΈΠ΅ (38,613 -27.4938)
(143.758 -41.7363) Π²Π΅ΠΊΡΠΎΡ-ΠΎΡΠΊΠ»ΠΎΠ½Π΅Π½ΠΈΠ΅ (39,242 -24.3637)
(49.6689 27.5301) Π²Π΅ΠΊΡΠΎΡ-ΠΎΡΠΊΠ»ΠΎΠ½Π΅Π½ΠΈΠ΅ (-0.6689 0.4699)
ΠΡΠΈ ΡΠΎΡΠ½ΠΎΡΡΠΈ Π°ΠΏΠΏΡΠΎΠΊΡΠΈΠΌΠ°ΡΠΈΠΈ du=0.001.
3.6 Π ΠΈΡΡΠ½ΠΎΠΊ Ρ ΡΠΊΡΠ°Π½Π°
3.7 ΠΡΠ²ΠΎΠ΄
ΠΠΏΠΏΡΠΎΠΊΡΠΈΠΌΠ°ΡΠΈΡ ΠΌΠ΅ΡΠΎΠ΄ ΠΠ΅Π·ΡΠ΅ Π΄Π°Π΅Ρ Π±ΠΎΠ»ΡΡΡΡ ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΡ, ΡΠ΅ΠΌ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΡΠΏΠ»Π°ΠΉΠ½-Π°ΠΏΠΏΡΠΎΠΊΡΠΈΠΌΠ°ΡΠΈΡ, Π½ΠΎ ΠΏΡΠΈΠΌ ΡΠ²Π΅Π»ΠΈΡΠ΅Π½ΠΈΠΈ ΡΠ°Π³Π° ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅ΡΡΡ Π²ΡΠ΅ΠΌΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ ΠΈ ΡΠΎΡΠ½ΠΎΡΡΡ Π°ΠΏΠΏΡΠΎΠΊΡΠΈΠΌΠ°ΡΠΈΠΈ.