true 4 decimal true

Анимация построения кривой с помощью шарнирного механизма

Animation curve fitting using a hinged mechanism

rFileData 1 ←

Значение шага по-умолчанию (будет использовано, если в data2 нет данных)

rFileData data2 rfile ←

Попытка считать данные с data2

kMin 1 ← kMax 50 ← i rFileData 1 + ← i kMax ≥ k kMin ← k i ← if k data2 wfile 51 line

Увеличение на единицу значения переменной и запись ее в файл

Расчетная схема механизма

φ π 24 / k 1 - (* ←

OA 10 ←

Угол поворота и размер ведущего звена

OO1 AB ←

AB OA 2 sqrt * ←

O1B OA ←

Соотношения между звеньями для построения Лемнискаты Бернулли

O1A AB 2^OA 2^+ 2 OA * AB * φ cos * - sqrt ←

α s OA φ sin * O1A / ← c1 OA φ cos * AB - O1A / ← s 0 ≥ (c1 0 ≥ (& s asin s 0 ≥ (c1 0 ≤ (& c1 acos s 0 ≤ (c1 0 ≥ (& 2 π * s asin + 2 π * c1 acos - if if if 31 line ←

Вспомогательный угол α

h π 24 / ←

j 1 ← j 2 π * δ / 2 + ≤ j j 1 + ← f h j 1 - (* ← O1A a 2^OA 2^+ 2 OA * a * f cos * - sqrt ← s OA f sin * O1A / ← c OA f cos * a - O1A / ← s 0 ≥ (c 0 ≥ (& α s asin ← s 0 ≥ (c 0 ≤ (& α c acos ← s 0 ≤ (c 0 ≥ (& α 2 π * s asin + ← α 2 π * c acos - ← if if if f π ≤ φ2 α O1A 2^O1B 2^+ AB 2^- 2 O1A * O1B * / acos + ← φ2 α O1A 2^O1B 2^+ AB 2^- 2 O1A * O1B * / acos - ← if x1 j el L2 f cos * a1 + L4 φ2 cos * + 2 / ← y1 j el L2 f sin * L4 φ2 sin * + 2 / ← 81 line for

α α ←

φ2 φ π ≤ α O1A 2^O1B 2^+ AB 2^- 2 O1A * O1B * / acos + α O1A 2^O1B 2^+ AB 2^- 2 O1A * O1B * / acos - if 11 line ←

Угол поворота ведомого звена

φ2 φ2 ←

sMax AB O1B + ←

L1 AB sMax / ←

L2 OA sMax / ←

L4 O1B sMax / ←

Нормирование размеров

mech 00 L2 φ cos * L2 φ sin * L1 L4 φ2 cos * + L4 φ2 sin * L1 042 mat ←

Рисунок механизма

координаты средней точки среднего звена (находятся в скрытой области)

x1 k el L2 φ cos * L1 + L4 φ2 cos * + 2 / ←

y1 k el L2 φ sin * L4 φ2 sin * + 2 / ←

Векторы координат средней точки среднего звена

x1 0.7071 0.6526 0.5465 0.4538 0.3856 0.3344 0.2929 0.2566 0.223 0.1907 0.1591 0.1281 0.0976 0.0679 0.0392 0.0119 0.0137 - 0.0373 - 0.0586 - 0.0771 - 0.0927 - 0.1051 - 0.1141 - 0.1195 - 0.1213 - 0.1195 - 0.1141 - 0.1051 - 0.0927 - 0.0771 - 0.0586 - 0.0373 - 0.0137 - 0.0119 0.0392 0.0679 0.0976 0.1281 0.1591 0.1907 0.223 0.2566 0.2929 0.3344 0.3856 0.4538 0.5465 0.6526 0.7071 491 mat ←

y1 0 0.1111 - 0.1464 - 0.1256 - 0.0846 - 0.0407 - 0 0.0358 0.0663 0.0916 0.1118 0.1273 0.1381 0.1444 0.1464 0.1445 0.1387 0.1295 0.1172 0.102 0.0846 0.0651 0.0443 0.0224 0 0.0224 - 0.0443 - 0.0651 - 0.0846 - 0.102 - 0.1172 - 0.1295 - 0.1387 - 0.1445 - 0.1464 - 0.1444 - 0.1381 - 0.1273 - 0.1118 - 0.0916 - 0.0663 - 0.0358 - 0 0.0407 0.0846 0.1256 0.1464 0.1111 0491 mat ←

Lemniscate j 1 ← j k ≤ j j 1 + ← x j el x1 j el ← y j el y1 j el ← 21 line for x y augment 21 line ←

plotter mech Lemniscate x1 k el y1 k el . 20 Green 15 mat L2 φ cos * L2 φ sin * o 12 Blue 15 mat L1 L4 φ2 cos * + L4 φ2 sin * o 12 Blue 15 mat L1 0 o 15 Red 15 mat 00 o 15 Red 15 mat 71 sys ←

При непрерывном нажатии на клавишу F9 средняя точка среднего звена описывает Лемнискату Бернулли

With the continuous pressing F9 key middle point of the average segment describes the lemniscate of Bernoulli

plotter