e3be6351-037f-4892-85ea-207b00d826fa 4 4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

Эллиптическая передача

a 1.5 :

b 1 :

f a 2^b 2^- sqrt eval :

xF1 0 :

yF1 f :

xF2 0 :

yF2 f - :

yF21 f - 2 a * - :

e f a / :

e 0.7454

L 6 :

xC yC a b α ellipse1 Построение  эллипса по центру,полуосям и углу наклона xC,yC-координаты центра a,b -большая и малая полуось,alfa-угол Δθ π 18 / : x 1 el b : y 1 el 0 : k 1 : k π Δθ / ≤ k k 1 + : x k 1 + el x k el Δθ cos * b a / y * k el Δθ sin * - eval : y k 1 + el a b / x * k el Δθ sin * y k el Δθ cos * + eval : 21 line for Ω α cos α sin α sin - α cos 22 mat : V xC x y 12 mat Ω * 1 col 1 el + eval yC x y 12 mat Ω * 2 col 1 el + eval augment : 81 line :

xC yC a b α ellipse2 Построение  эллипса по центру,полуосям и углу наклона xC,yC-координаты центра a,b -большая и малая полуось,alfa-угол Δθ π 18 / - : x 1 el b : y 1 el 0 : k 1 : k π - Δθ / ≤ k k 1 + : x k 1 + el x k el Δθ cos * b a / y * k el Δθ sin * - eval : y k 1 + el a b / x * k el Δθ sin * y k el Δθ cos * + eval : 21 line for Ω α cos α sin α sin - α cos 22 mat : V xC x y 12 mat Ω * 1 col 1 el + eval yC x y 12 mat Ω * 2 col 1 el + eval augment : 81 line :

x y angle m Body Trans Координаты точки,в которую переносится начало координат Ro Body rows 1 matrix x + Body rows 1 matrix y + augment : Матрица поворота тела на заданный угол Ω angle cos angle sin angle sin - angle cos 22 mat eval : Ro m Body * Ω * + 51 line :

y1 y2 x.1 x.2 n Mhatch dx x.2 x.1 - n / (: h x.1 x1 y1 x.1 linterp x.1 x2 y2 x.1 linterp 22 mat : x x.1 x.2 dx - x.1 dx + range h h x dx 2 / + x2 y2 x dx 2 / + linterp x dx 2 / + x1 y1 x dx 2 / + linterp x dx + x1 y1 x dx + linterp x dx + x2 y2 x dx + linterp 42 mat stack : for h 41 line :

x1 00 a b 0 ellipse1 1 col :

y1 00 a b 0 ellipse1 2 col :

x2 00 a b 0 ellipse2 1 col :

y2 00 a b 0 ellipse2 2 col :

El y1 y2 b - b 12 Mhatch eval :

Δφ π 36 / - :

t φ Δφ t * :

t yC f t φ cos * yF2 + eval :

t xC f t φ sin * eval :

t φ2 21 e + 1 e - / t φ 2 / cot * acot * - eval :

t xC2 f t φ2 sin * eval :

t yC2 f t φ2 cos * yF21 + eval :

t xF22 2 t xC2 * xF2 - eval :

t yF22 2 t yC2 * yF21 - eval :

t xP t xF22 L 2^t xC2 (2^- sqrt + eval :

step 172 range :

xF2 yF2 + 20 Blue 1 5 mat t xC2 t yC2 a b t φ2 - ellipse1 t xC2 t yC2 t φ2 - 1 El Trans t xC2 t yC2 a b t φ2 - ellipse2 stack t xC t yC a b t φ - ellipse1 t xC t yC t φ - 1 El Trans t xC t yC a b t φ - ellipse2 stack xF2 3 + yF21 + 20 brown 1 5 mat xF2 yF2 o 15 Blue 1 5 mat xF2 3 + yF21 o 15 Blue 1 5 mat xF2 yF21 + 20 Blue 1 5 mat xF2 yF21 o 15 Blue 1 5 mat t xF22 t yF22 . 15 Blue 1 5 mat t xP yF21 . 10 wheat 1 5 mat t xP yF21 . 50 brown 1 5 mat t xF22 t yF22 t xP yF21 xF2 9 + yF21 xF2 3 + yF21 4 2 mat xF2 9 + yF21 + 20 Blue 1 5 mat xF2 9 + yF21 o 15 Blue 1 5 mat 14 1 sys