true 0 4 radians decimal true

Обучающая программа - момент силы

Эта область должна быть скрыта

Матрицы буквенных символов,опорных точек рамы,заделки и обозначений размеров

KxL 0 0.06 - 0.06 - 00 0.06 - 00 0.06 - 00 0.06 - 00 0.06 - 00171 mat ←

KyL 0.14 0.12 0.12 0.14 0.08 0.06 0.08 0.02 0 0.02 0.04 - 0.06 - 0.04 - 0.1 - 0.12 - 0.1 - 0171 mat ←

litA1 0.057 0 0.081 0.06 0.105 0 0.096 0.018 0.063 0.018 0.063 0.018 0.063 0.018 0.063 0.018 0.063 0.018 0.063 0.018 0.063 0.018 0.063 0.018 0.063 0.018 0.063 0.018 0.063 0.018 0.063 0.018 162 mat ←

lyF1 0 0.028 0.028 0.028 0.055 0.055 0.055 0.055 0.055 0.055 0.055 0.055 0.055 0.055 0.055 0.055 161 mat ←

lxF1 0 2.75 105 -^* 0.02 00 0.028 0.028 0.028 0.028 0.028 0.028 0.028 0.028 0.028 0.028 0.028 161 mat ←

V1 0.2 0.8 0.8 0.5 41 mat ←

V2 0.2 0.2 0.8 0.8 41 mat ←

V1b 0.2 0.6 0.6 0.8 41 mat ←

Var 12312323131231223136 mat ←

Var1 a b c b a c b c a a c b c a b c b a 36 mat ←

V3 1 V2 - ←

V4 1 V1 - ←

V4b 1 V1b - ←

Ra 1 el V1 V2 augment ←

Ra 2 el V3 V1 augment ←

Ra 3 el V4 V3 augment ←

Ra 4 el V2 V4 augment ←

Ra 5 el Ra 1 el reverse ←

Ra 6 el Ra 2 el reverse ←

Ra 7 el Ra 3 el reverse ←

Ra 8 el Ra 4 el reverse ←

Ra 9 el V1b V2 augment ←

Ra 10 el V3 V1b augment ←

Ra 11 el V4b V3 augment ←

Ra 12 el V2 V4b augment ←

Ra 13 el Ra 9 el reverse ←

Ra 14 el Ra 10 el reverse ←

Ra 15 el Ra 11 el reverse ←

Ra 16 el Ra 12 el reverse ←

alfa 0.028 0.023 0.019 0.011 5.5 103 -^* 0 5.5 - (103 -^* 0.012 - 0.014 - 0.012 - 5.5 - (103 -^* 0 5.5 103 -^* 0.011 0.022 0.022 0.014 - 0.022 - 0.02 - 0.014 0.02 0.022 0.02 9.9 103 -^* 0 9.9 - (103 -^* 0.02 - 0.022 - 0.02 - 8.25 - (103 -^* 0.022 0.022 216 mat ←

Lita1 0 0.0035 0.014 0.0245 0.035 0.0385 0.014 0.0035 0 0.0035 0.014 0.021 0.0406 0.0385 0.0406 0.042 0.0385 0.0455 0.049 0.049 0.0455 0.0294 0.028 0.0245 0.014 0.0035 07104 -^* 0.0105 0.0294 0.0105 0.0018 - 216 mat ←

Litb1 000 0.0032 0.0189 0.0315 0.035 0.0301 0.0189 0.0032 000000 0.063 0 0.0252 0.0413 0.0539 0.0413 0.0252 0.0126 0 0.0126 0.0252 0.0252 0.0252 0.0252 0.0252 0.0252 216 mat ←

Litc1 0.0315 0.0245 0.014 0.007 0.0035 00 0.0035 0.007 0.014 0.0245 0.0315 0.0315 0.0315 0.0315 0.0315 0.014 0.0035 0 0.0035 0.0105 0.0175 0.0315 0.0385 0.042 0.0455 0.042 0.0315 0.0315 0.0315 0.0315 0.0315 216 mat ←

Генерация случайных чисел для выбора варианта направления силы,конструкции рамы и обозначений размеров

an 11 random eval ← an1 an 0 ≡ (an 3 ≡ (| an 6 ≡ (| an 9 ≡ (| an 1 + an if ← Angle an1 π 6 / * ← sAng Angle sin ← cAng Angle cos ← 51 line

v 115 random + eval ← R0 Ra v el ← xF1 R0 11 el ← yF1 R0 12 el ← xN R0 41 el ← yN R0 42 el ← 61 line

k 16 random + eval ← m 1 el Litc1 transpose ← m 2 el Litb1 transpose ← m 3 el Lita1 transpose ← n 1 ← n 3 ≤ n n 1 + ← j n el Var k col n el ← litx n el m n el 1 col 0.02 + 0.5 R0 1 col j n el el R0 1 col j n el 1 + el + (* + ← lity n el m n el 2 col 0.9 * 0.02 + 0.015 + 0.5 R0 2 col j n el el R0 2 col j n el 1 + el + (* + ← ax n el R0 1 col j n el 1 + el R0 1 col j n el el - ← ay n el R0 2 col j n el 1 + el R0 2 col j n el el - ← 51 line for 51 line

Lx 0.16 cAng * xF1 + ← lx 0.012 sAng * - ← Ly 0.16 sAng * yF1 + ← ly 0.012 cAng * ← arFx Lx Lx lx + 0.2 cAng * xF1 + Lx lx - Lx xF1 stack ← arFy Ly Ly ly + 0.2 sAng * yF1 + Ly ly - Ly yF1 stack ← 61 line

Положение буквы "альфа"

Положение заделки

T1 Angle 4 π * 3 / ≡ (Angle 11 π * 6 / ≡ (| Angle π 3 / ≡ (| Angle 5 π * 6 / ≡ (| Angle Angle 7 π * 6 / ≡ (Angle 5 π * 3 / ≡ (| Angle 2 π * 3 / ≡ (| Angle π 6 / - 0 if if ← T2 T1 0 ≡ (Angle π 6 / ≠ (& 0 T1 π 6 / + if ← xF2 0.14 T2 T1 + 2 / cos * ← yF2 0.14 T2 T1 + 2 / sin * ← LitAl xF2 xF1 + alfa transpose 1 col + yF2 yF1 + alfa transpose 2 col + augment ← 51 line

A1 R0 32 el yN ≡ R0 31 el xN > KxL KyL augment 0 KxL - KyL - augment if R0 31 el xN ≡ R0 32 el yN > KyL KxL augment KyL - 0 KxL - augment if KxL KxL augment if if ←

Положение проекции силы

Матрицы для построения графиков

Forc arFx arFy augment ←

pFx cAng abs eval 0.5 ≡ xF1 xF1 stack cAng abs 0.2 * cAng sign * xF1 + xF1 stack if ← pFy sAng abs eval 0.5 ≡ yF1 yF1 stack sAng 0.2 * yF1 + yF1 stack if ← 21 line

Litc litx 1 el lity 1 el augment ←

Litb litx 2 el lity 2 el augment ←

Lita litx 3 el lity 3 el augment ←

LitF lxF1 cAng 0.26 * + xF1 + lyF1 sAng 0.26 * + yF1 + augment ←

Proek pFx pFy augment ←

R R0 1 col A1 1 col xN + stack R0 2 col A1 2 col yN + stack augment ←

Знак момента

Плечо

Znak v 2 ≡ (v 8 ≡ (| v 10 ≡ (| v 16 ≡ (| cAng sign sAng sign 12 mat v 1 ≡ (v 7 ≡ (| v 9 ≡ (| v 15 ≡ (| cAng sign sAng sign - 12 mat v 3 ≡ (v 5 ≡ (| v 11 ≡ (| v 13 ≡ (| cAng sign - sAng sign 12 mat v 4 ≡ (v 6 ≡ (| v 12 ≡ (| v 14 ≡ (| cAng sign - sAng sign - 12 mat 0012 mat if if if if ← znFx Znak 1 col 1 - ≡ - if ← znFy Znak 2 col 1 - ≡ - + if ← 31 line

CminusA (Var1 3 k el - Var1 1 k el) concat ← AminusC (Var1 1 k el - Var1 3 k el) concat ← AplusC (Var1 1 k el + Var1 3 k el) concat ← b Var1 2 k el ← Pletsho v 1 ≡ (v 3 ≡ (| b CminusA 12 mat v 2 ≡ (v 4 ≡ (| CminusA b 12 mat v 5 ≡ (v 7 ≡ (| b AminusC 12 mat v 6 ≡ (v 8 ≡ (| AminusC b 12 mat v 9 ≡ (v 11 ≡ (| v 13 ≡ (| v 15 ≡ (| b AplusC 12 mat v 10 ≡ (v 12 ≡ (| v 14 ≡ (| v 16 ≡ (| AplusC b 12 mat 12 mat if if if if if if ← 51 line

Проекции силы

Trig v 1 ≡ (v 3 ≡ (| v 5 ≡ (| v 7 ≡ (| v 9 ≡ (| v 11 ≡ (| v 13 ≡ (| v 15 ≡ ((| an1 1 ≡ (an1 5 ≡ (| an1 7 ≡ (| an1 11 ≡ (| F*cos(α)* F*sin(α)* 12 mat F*sin(α)* F*cos(α)* 12 mat if v 2 ≡ (v 4 ≡ (| v 6 ≡ (| v 8 ≡ (| v 10 ≡ (| v 12 ≡ (| v 14 ≡ (| v 16 ≡ (| an1 1 ≡ (an1 5 ≡ (| an1 7 ≡ (| an1 11 ≡ (| F*cos(α)* F*sin(α)* 12 mat F*sin(α)* F*cos(α)* 12 mat if 12 mat if if ←

Момент

momF znFx Trig 1 col 1 el Pletsho 1 col 1 el znFy Trig 2 col 1 el Pletsho 2 col 1 el concat ←

Цель программы - приобрести навыки расчёта момента силы относительно точки. В качестве модели используется рама, нагруженная силой F на одном конце и заделанная на другом. Программа приводит разложение силы на составляющие по осям координат и находит сумму моментов этих составляющих относительно заделки. При каждом нажатии на клавишу F9 конструкция рамы, приложение силы и, соответственно, выражение для момента меняются.

momF F*sin(α)*(b-a) - F*cos(α)*c

R Forc LitAl Lita Proek Litb Litc LitF 8 1 sys