3ff9934e-0071-4049-99d1-c9dc1e9d79f9 517 Alvaro Diaz Falconi 4 5 false false false 0 0 decimal

Inscribed Circles - Dragilev Method

Reference:

алексей_алексей

https://www.mapleprimes.com/posts/226763-Circle-Inscribed-Between-Smooth-Curves

R 1 :

f f.1 x.2 x.1 exp - : f.2 x.3 2^x.3 x.4 * + 2 x.4 2^* + R 2^- : f.3 x.1 x.5 - (2^x.2 x.6 - (2^+ x.3 x.5 - (2^- x.4 x.6 - (2^- : f.4 f.1 x.1 diff x.2 x.6 - (* f.1 x.2 diff x.1 x.5 - (* - : f.5 f.2 x.3 diff x.4 x.6 - (* f.2 x.4 diff x.3 x.5 - (* - : f.6 x.1 0.5 x.4 * - : 61 mat :

Path one

N 80 :

Path two

Sq. Dist. difference

Tg. to one

Tg. to two

For starting point

n f length 1 - :

m n 1 + :

μ 1 m range :

r 1 n range :

c r :

τ 1 N 1 + (range :

u f x.1 x.2 x.3 x.4 x.5 x.6 16 mat u transpose : f 21 line :

X μ el x μ el :

Φ X f :

Δ μ el 1 - (μ n 1 + ≠^eval J r c el Φ r el #x# X c μ ≡ n 1 + c if eval el : diff : det * :

t x D Δ Δ μ el norme / eval :

Xo m 1 matrix eval u f al_nleqsolve :

X Xo 015 - N D dn_AdamsMoulton τ 1 μ + el :

θ 1 360 5 range deg * : c s 1 2 mat θ cos vectorize θ sin vectorize 1 2 mat : a b r C r c * a + r s * b + augment : X 1 col X 2 col augment X 3 col X 4 col augment X t 5 el X t 6 el X t 3 el X t 5 el - ( 2 ^ X t 4 el X t 6 el - ( 2 ^ + sqrt C X t 1 el X t 2 el X t 5 el X t 6 el 2 2 mat X t 3 el X t 4 el X t 5 el X t 6 el 2 2 mat 5 1 sys 4 1 line

Alvaro

4 appVersion 1.2.9018.0