D:\j_Iam_TEMP\_jh\jh_k123_momentForce_v1.wxmx

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

kill(all);

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

    f(x,N):=do (eqq:sconcat("="),label_G1:sconcat(x),strG1:string('G1),GG1:concat(strG1,eqq,label_G1,'N))

L7:[G1,G2];U7:['G1];

concat(L7[1]);sconcat(L7[1]);string(L7[1]);string(U7[1]);

label_unit:concat(L7[1]);label_unit;
test:L7[1];
concat(test);
slabel_unit:sconcat(test);slabel_unit;

fstr(L7):=block([eqq,label_G,strG,GG],
    eqq:sconcat("="),
    label_G:sconcat(L7),
    label_Gn:concat(L7),
     strG:string('G),
    GG:concat(strG,label_Gn,eqq,label_G,'N),
return (GG));

fstr(L7):=block([eqq,label_G,label_Gn,strG,GG],
    eqq:sconcat("="),
    label_G:sconcat(L7),
    label_Gn:concat(L7),
     strG:string('G),
    GG:concat(strG,label_Gn,eqq,label_G,'N),
return (GG));

my_string:fstr(L7[1]);my_string:fstr(L7[2]);

eqq:sconcat("=");

label_G1:sconcat(G1); 

strG1:string('G1);

GG1:concat(strG1,eqq,label_G1,'N);GG1;

label_L1:sconcat(L1);

label_G2:sconcat(G2); 

strG2:string('G2);

GG2:concat(strG2,eqq,label_G2,'N);GG2;

label_L2:sconcat(L2);

label_G:sconcat(G);

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

del1:0.5;

draw2d(xrange = [-2,13],
yrange = [-5,6],
  font      = "Arial",
           font_size = 30,
title="jh_k123_momentForce_v1.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],[(L1-L2),4]]),
    label([GG1,L1,-size1/2-del1]),
/*    label([strG1,L1-del1*2,-size1/2-del1]),  */
     label([GG2,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=  label_L1 m",(L-L1)/2,-4+del1]),
    vector([L2,-3],[(L-L2),0]),
    label(["L2=2 m",(L-L2)/2+L2,-3+del1]),
    color=red,
    vector([(L1-L2),3],[(L-(L1-L2)),0]),
    label(["L3=?",(L-(L1-L2))/2+(L1-L2),3+del1]),
    head_both = false,
     vector([(L1-L2),4],[0,3*del1]),
    label(["G=G1+G2=7 N",(L1-L2),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])
   )$ 

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

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

label_L3:sconcat(L3);

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,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 N",L1,-size1/2-del1]),
     label(["G2=+6 N",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=10 m",(L-L1)/2,-4+del1]),
    vector([L2,-3],[(L-L2),0]),
    label(["L2= label_L2 m",(L-L2)/2+L2,-3+del1]),
    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=7 N",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])
   )$ 

# 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;

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

label_L3:sconcat(L3);

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])
   )$ 

kill(all);

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

mG1:(L-L1)*G1;mG2:(L-L2)*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])
   )$ 