e7bce547-7ab2-42b1-8692-a8bd5c578242 41 4 5 decimal

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

Сверление квадратного отверстия сверлом в виде треугольника Рело

Drilling a square hole (Cross section of the drill is Reuleaux triangle)

Треугольник Рело вращается вокруг своего центра тяжести ,а сам центр тяжести движется вокруг центра отверстия по траектории,близкой к окружности.

Исходные данные:

a 1 :

s a 23 sqrt / 1 - (* :

μ 2.36185 :

CA a s + :

r 0.5176381 :

square 11 - 1 - 11111 - 1 - 125 mat transpose :

xA 0 :

yA a s + :

xB a - :

yB 13 sqrt / - :

xD a :

yD yB :

шаг изменения угла Δθ π 108 / :

Δθ1 3 Δθ * - :

Закон движения центра тяжести треугольника t xC Δθ1 t 18 + (* cos sign s * Δθ1 t 18 + (* cos abs (2 μ /^* eval :

t yC Δθ1 t 18 + (* sin sign s * Δθ1 t 18 + (* sin abs (2 μ /^* eval :

xC yC N Graf Δθ π 48 / : k x xC 2 a * Δθ k * N 2 π * 3 / * + cos * + : k y yC 2 a * Δθ k * N 2 π * 3 / * + sin * + : k M1 k x k y 0022 mat : k 0 π 3 Δθ * / range x k 1 + el k x : y k 1 + el k y : k 0 ≡ Res k M1 : Res Res k M1 stack : if 31 line for Res x y augment stack eval 61 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 :

Relo xB yB 0 Graf xD yD 1 Graf xA yA 2 Graf stack :

t xA t xC CA Δθ t * sin * - eval :

t yA t yC CA Δθ t * cos * + eval :

tstart 0 :

tend 216 :

границы изменения переменной t step tstart tend range :

square t tstart ≡ path t xC t yC 1 2 mat : path path t xC t yC 1 2 mat stack : if t xC t yC Δθ t * 1 Relo Trans t xA t yA . 15 red 1 5 mat t xC t yC . 50 blue 1 5 mat t tstart ≡ path1 t xA t yA o 7 red 1 5 mat : path1 path1 t xA t yA o 7 red 1 5 mat stack : if 6 1 sys

N 0 :

xC xB :

yC yB :

Δθ π 24 / : k x xC 2 a * Δθ k * N 2 π * 3 / * + cos * + : k y yC 2 a * Δθ k * N 2 π * 3 / * + sin * + : k M1 k x k y 0022 mat : k 0 π 3 Δθ * / range x k 1 + el k x : y k 1 + el k y : k 0 ≡ Res k M1 : Res Res k M1 stack : if 31 line for Res x y augment stack eval 61 line

Res x y augment stack eval 1 0.5774 - 00 0.9829 0.3163 - 00 0.9319 0.0597 - 00 0.8478 0.188 00 0.7321 0.4226 00 0.5867 0.6402 00 0.4142 0.8369 00 0.2175 1.0094 000 1.1547 001 0.5774 - 0.9829 0.3163 - 0.9319 0.0597 - 0.8478 0.188 0.7321 0.4226 0.5867 0.6402 0.4142 0.8369 0.2175 1.0094 0 1.1547 272 mat

y1 y2 1 - 110 Mhatch #