D:\j_Iam_TEMP\_jh\jh_k123_momentForce_v3.wxmx

~/.maxima/deriv.mac и выполнять в Maxima строку load(deriv)$ deriv(какое-нибудь-выражение);

https://maxima.sourceforge.io/ru/maxima-tarnavsky-6-diff.html

kill(all);

L1-x1,L2-x2,L-x... - coordinates,start with L-x

G1:1;G2:2;x1:-5;x2:1;G:G1+G2;x:12;

sW:[G1,G2,G,x1,x2,x];sS:['G1,'G2,'G,'x1,'x2,'x,'L];sU:['N,'N,'N,'m,'m,'m,"?"];

fstr3(sW,sS,sU):=block([l,eqq,w,u,my_string],
    l:sconcat(sS),
    eqq:sconcat("="),
    w:string(sW),
    u:concat(sU),
   my_string:concat(l,eqq,w,u),
return (my_string));

text_string:fstr3(sW[1],sS[1],sU[1]);

fstr_sum(sW,sS,sU,G1,G2):=block([name,eqq,plus,w,u,g1,g2,my_string],
    name:sconcat(sS),
    eqq:sconcat("="),
    plus:sconcat("+"),
    w:string(sW),
    u:concat(sU),
    g1:G1,
    g2:G2,
   my_string:concat(name,eqq,g1,u,plus,g2,u,eqq,w,u),
return (my_string));

fstr_sum(sW[3],sS[3],sU[3],G1,G2);

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

del1:0.5;

mG1:(x-x1)*G1;mG2:(x-x2)*G2;

L:(mG1+mG2)/G,numer;L_3:L*1000;

L:(floor(L_3))/1000,numer;

label_L:sconcat(L);

fL(x1,x2,G1,G2):=(x1*G1+x2*G2)/(G1+G2);

fL((x-x1),(x-x2),G1,G2),numer;

L1:x-x1;L2:x-x2;L;

kill(sW,sU,sS);

sW:[G1,G2,G,x1,x2,x,L1,L2,L];

sS:['G1,'G2,'G,'x1,'x2,'x,'L1,'L2,'L];

sU:['N,'N,'N,'m,'m,'m,'m,'m,'m];

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

del1:0.5;

 draw2d(xrange = [x1-2,x+4],
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+x1,-size1/2],[size1/2+x1,size1/2]),
    rectangle([-size2/2+x2,-size2/2],[size2/2+x2,size2/2]),
     points_joined = false,
    color=red,
   point_size=1,
   line_width=1.3,
   line_type = solid,
point_type = filled_circle,
points([[x1,0],[x2,0],[x,0],[(x-L),4]]),
    label([fstr3(sW[1],sS[1],sU[1]),x1,-size1/2-del1]),
     label([fstr3(sW[2],sS[2],sU[2]),x2,-size2/2-del1]),
     points_joined = true,
   point_size=0.1,
   line_width=1.3,
   line_type = solid,
points([[x1,0],[x1,4],[x2,4],[x2,0],[x2,4],[x,4],[x,0]]),
     line_type = solid,
   color=black,line_width=1,
   head_both = true,
   head_length = 0.4,
   head_angle = 10,
vector([x1,-4],[(x-x1),0]),
    label([fstr3(sW[7],sS[7],sU[7]),(x-x1)/2,-4+del1]),
    vector([x2,-3],[(x-x2),0]),
    label([fstr3(sW[8],sS[8],sU[8]),(x-x2)/2+x2,-3+del1]),
    color=red,
    vector([(x-L),3],[L,0]),
    label([fstr3(sW[9],sS[9],sU[9]),(x-L/2),3+del1]),
    head_both = false,
     vector([(x-L),4],[0,3*del1]),
    label([fstr_sum(sW[3],sS[3],sU[3],G1,G2),(x-L),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])
   )$ 

# Variants 2

kill(all);

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

mG1:(L-L1)*G1;mG2:(L-L2)*G2;

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

label_L:sconcat(L);

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

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

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

del1:0.5;

draw2d(xrange = [-2,14],
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],[L,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([L,3],[(L-L),0]),
    label(["L=?",(L-L)/2+L,3+del1]),
    head_both = false,
     vector([L,4],[0,3*del1]),
    label(["G=G1+G2",L,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])
   )$ 

kill(all);

G1:1;G2:6;L1:0.5;L2:8.9;G:G1+G2;L:-1;

mG1:(L1+L)*G1;mG2:(L2+L)*G2;

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

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

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

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

del1:0.5;

draw2d(xrange = [-2,14],
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])
   )$ 