jh_k123_momentForce

D:\j_Iam_TEMP\_jh\jh_k123_momentForce.wxmx

(%i12)

kill(all);

\[\]\[\tag{%o0} \ensuremath{\mathrm{done}}\]

(%i16)

G1:1;G2:6;L1:0;L2:8;G:G1+G2;L:10;

\[\]\[\tag{%o11} 1\]

\[\]\[\tag{%o12} 6\]

\[\]\[\tag{%o13} 0\]

\[\]\[\tag{%o14} 8\]

\[\]\[\tag{%o15} 7\]

\[\]\[\tag{%o16} 10\]

(%i54)

mG1:(L−L1)·G1;mG2:(L−L2)·G2;

\[\]\[\tag{%o53} 10\]

\[\]\[\tag{%o54} 12\]

(%i56)

L3:(mG1+mG2)/G,numer;

\[\]\[\tag{%o56} 3.142857142857143\]

(%i77)

fL(L1,L2,G1,G2):=(L1·G1+L2·G2)/(G1+G2);

\[\]\[\tag{%o77} \mathop{fL}\left( \ensuremath{\mathrm{L1}}\mathop{,}\ensuremath{\mathrm{L2}}\mathop{,}\ensuremath{\mathrm{G1}}\mathop{,}\ensuremath{\mathrm{G2}}\right) \mathop{:=}\frac{\ensuremath{\mathrm{L1}}\, \ensuremath{\mathrm{G1}}\mathop{+}\ensuremath{\mathrm{L2}}\, \ensuremath{\mathrm{G2}}}{\ensuremath{\mathrm{G1}}\mathop{+}\ensuremath{\mathrm{G2}}}\]

(%i79)

fL((L−L1),(L−L2),G1,G2),numer;

\[\]\[\tag{%o79} 3.142857142857143\]

(%i18)

size1:sqrt(G1),numer;size2:sqrt(G2),numer;

\[\]\[\tag{%o17} 1.0\]

\[\]\[\tag{%o18} 2.449489742783178\]

(%i70)

del1:0.5;

\[\]\[\tag{%o70} 0.5\]

-->

draw2d(xrange = [−2,13],
yrange = [−5,6],
font      = "Arial",
          font_size = 30,
title="jh_k123_momentForce.wxmx",
grid = true,
proportional_axes=xy,
line_width=4,color=black,
fill_color = "#eeeeee",
rectangle([−size1/2+L1,−size1/2+L1],[size1/2+L1,size1/2+L1]),
   rectangle([−size2/2+L2,−size2/2],[size2/2+L2,size2/2]),
    points_joined = false,
   color=red,
point_size=1,
line_width=1.3,
line_type = solid,
point_type = filled_circle,
points([[L1,0],[L2,0],[L,0],[L3,4]]),
   label(["G1=+1",L1,−size1/2−del1]),
    label(["G2=+6",L2,−size2/2−del1]),
    points_joined = true,
point_size=0.1,
line_width=1.3,
line_type = solid,
points([[L1,0],[L1,4],[L2,4],[L2,0],[L2,4],[L,4],[L,0]]),
    line_type = solid,
color=black,line_width=1,
head_both = true,
head_length = 0.4,
head_angle = 10,
vector([L1,−4],[(L−L1),0]),
   label(["L1",(L−L1)/2,−4+del1/2]),
   vector([L2,−3],[(L−L2),0]),
   label(["L2",(L−L2)/2+L2,−3+del1/2]),
   color=red,
   vector([L3,3],[(L−L3),0]),
   label(["L3=?",(L−L3)/2+L3,3+del1]),
   head_both = false,
    vector([L3,4],[0,3·del1]),
   label(["G=G1+G2",L3,4.5]),
     /* GPL */
font      = "Arial",
          font_size = 16,
color = "#0e406e",
label_orientation = 'vertical,
label(["www.k123.org.ua ",12,1.3]),
label(["Kopanytsia Y (c) 2025",12.5,1.3])
)$

Figure 1:

Created with wxMaxima.

The source of this Maxima session can be downloaded here.