\( \DeclareMathOperator{\abs}{abs} \newcommand{\ensuremath}[1]{\mbox{$#1$}} \)
| (%i1) | kill(all); |
\[\]\[\tag{%o0} \ensuremath{\mathrm{done}}\]
| (%i1) | load("draw")$ |
| (%i6) | long_x:7; label_left:3; label_vert:1.5; label_URL:0.2; delta_x:4; |
\[\]\[\tag{%o2} 7\]
\[\]\[\tag{%o3} 3\]
\[\]\[\tag{%o4} 1.5\]
\[\]\[\tag{%o5} 0.2\]
\[\]\[\tag{%o6} 4\]
| (%i14) | ro:1000;g:9.81;x0:0;y0:0;x1:x0+delta_x;y1:3;B:1;h1:0; |
\[\]\[\tag{%o7} 1000\]
\[\]\[\tag{%o8} 9.81\]
\[\]\[\tag{%o9} 0\]
\[\]\[\tag{%o10} 0\]
\[\]\[\tag{%o11} 4\]
\[\]\[\tag{%o12} 3\]
\[\]\[\tag{%o13} 1\]
\[\]\[\tag{%o14} 0\]
| (%i16) | Hall:y1+h1;H:y1−y0; |
\[\]\[\tag{%o15} 3\]
\[\]\[\tag{%o16} 3\]
VARIANT # 1 (standart)
P_x
| (%i18) | alpha:atan((y1−y0)/(x1−x0)),numer;grad:(180/%pi)·alpha,numer; |
\[\]\[\tag{%o17} 0.6435011087932844\]
\[\]\[\tag{%o18} 36.86989764584402\]
| (%i21) | h_C_x:(Hall−H/2);w_x:H·B;I:(B·H··3)/12,numer; |
\[\]\[\tag{%o19} \frac{3}{2}\]
\[\]\[\tag{%o20} 3\]
\[\]\[\tag{%o21} 2.25\]
| (%i22) | p_c:ro·g·h_C_x; |
\[\]\[\tag{%o22} 14715.0\]
| (%i23) | P_x:p_c·w_x; |
\[\]\[\tag{%o23} 44145.0\]
| (%i25) | h_D_x:h_C_x+(I)/(h_C_x·w_x),numer;h_D_x:Hall−h_D_x; |
\[\]\[\tag{%o24} 2.0\]
\[\]\[\tag{%o25} 1.0\]
| (%i26) | P:P_x/sin(alpha); |
\[\]\[\tag{%o26} 73575.0\]
| (%i27) | P_z:P_x·(1/tan(alpha)); |
\[\]\[\tag{%o27} 58860.0\]
| (%i28) | Ptest:sqrt(P_x··2+P_z··2); |
\[\]\[\tag{%o28} 73575.0\]
| (%i32) | H30:(y1−y0)/sin(alpha);w30:H30·B;P30:p_c·w30; if (abs(P − P30) < 0.1) then display ("OK") else display ("ERROR!"); |
\[\]\[\tag{%o29} 5.0\]
\[\]\[\tag{%o30} 5.0\]
\[\]\[\tag{%o31} 73575.0 \]\[\mbox{}\\"OK"\mathop{=}"OK"\]
\[\]\[\tag{%o32} \ensuremath{\mathrm{done}}\]
| (%i33) | x1_:x1−x0+long_x; |
\[\]\[\tag{%o33} 11\]
| (%i36) | scale_L:P_x;scale_P_x:P_x/scale_L;scale_P_z:P_z/scale_L; |
\[\]\[\tag{%o34} 44145.0\]
\[\]\[\tag{%o35} 1.0\]
\[\]\[\tag{%o36} 1.3333333333333333\]
| (%i48) | h1;Hall;H;x1;h_D_x;h_D;scale_P_x;scale_P_z;scale_P_x;P;P_x;P_z; |
\[\]\[\tag{%o37} 0\]
\[\]\[\tag{%o38} 3\]
\[\]\[\tag{%o39} 3\]
\[\]\[\tag{%o40} 4\]
\[\]\[\tag{%o41} 1.0\]
\[\]\[\tag{%o42} {h_D}\]
\[\]\[\tag{%o43} 1.0\]
\[\]\[\tag{%o44} 1.3333333333333333\]
\[\]\[\tag{%o45} 1.0\]
\[\]\[\tag{%o46} 73575.0\]
\[\]\[\tag{%o47} 44145.0\]
\[\]\[\tag{%o48} 58860.0\]
| (%i50) | X:x0+(x1−x0)/3; Y:h_D_x; |
\[\]\[\tag{%o49} \frac{4}{3}\]
\[\]\[\tag{%o50} 1.0\]
| --> | /* Definition of a block with local variables */; |
| (%i51) |
ds(r) := block([x, n], n:100, x:r·n, x:floor(x), x:x/100, return(x) )$ |
| (%i55) | h_C_x:ds(h_C_x),numer; w_x:ds(w_x),numer; I:ds(I),numer;p_c:ds(p_c),numer; |
\[\]\[\tag{%o52} 1.5\]
\[\]\[\tag{%o53} 3\]
\[\]\[\tag{%o54} 2.25\]
\[\]\[\tag{%o55} 14715\]
| (%i59) | P_x:ds(P_x),numer; P_z:ds(P_z),numer; P:ds(P),numer; hi_D_x:ds(h_D_x),numer; |
\[\]\[\tag{%o56} 44145\]
\[\]\[\tag{%o57} 58860\]
\[\]\[\tag{%o58} 73575\]
\[\]\[\tag{%o59} 1\]
| (%i61) | X:ds(X),numer; Y:ds(Y),numer; |
\[\]\[\tag{%o60} 1.33\]
\[\]\[\tag{%o61} 1\]
| (%i62) | H2:y1+h1+3; |
\[\]\[\tag{%o62} 6\]
| (%i63) | b:(2/Hall)·(Hall−0.1·y1); |
\[\]\[\tag{%o63} 1.8\]
| (%i65) | −(2/Hall)·(Hall−1·y1);y1; |
\[\]\[\tag{%o64} 0\]
\[\]\[\tag{%o65} 3\]
| (%i66) | if h1 < 5 then Hall_add:Hall+7 else Hall_add:Hall; |
\[\]\[\tag{%o66} 10\]
| (%i70) | x1_;Hall;Hall_add;x_left:2; |
\[\]\[\tag{%o67} 11\]
\[\]\[\tag{%o68} 3\]
\[\]\[\tag{%o69} 10\]
\[\]\[\tag{%o70} 2\]
| (%i71) |
draw2d( xrange = [−x_left,x1_], /* size picture x - x1 & y - H1 */ yrange = [0,Hall_add], proportional_axes=xy, font = "Arial", font_size = 16, grid = true, line_width=1, color=black, title = "TEST OBJECT OF single operations of the K123", line_width=10, line_type = solid, points_joined = true, color="#000000", points([[x0,y0],[x0,y1]]), /* inclined flat surface */ color=red, points([[x0,y0],[x1,y1],[x2,y1]]), /* inclined flat surface */ line_width=1, color=black, line_type = dashes, points_joined = true, fill_color = white, polygon([[−2,0],[0,Hall],[0,y0],[−2,0]]), line_width=4, line_type = solid, points_joined = true, color=red, points([[x0,y0],[x1,y1],[x1,Hall]]),/* inclined flat surface */ line_width=1, color=black, line_type = dashes, points_joined = true, fill_color = white, polygon([[−2,0],[0,Hall],[0,y0],[−2,0]]), /* rectangle epura of presure P_x */ fill_color = gray90, line_type = solid, polygon([[−2,0],[−(2/Hall)·(Hall−1·y1),y1],[0,y1],[0,0],[−2,0]]), /* rectangle epura of presure P_x */ /* Epura */ color = "blue", line_width=1, line_type = solid, head_angle = 10, head_length = 0.15, vector([−(2/Hall)·(Hall−0.1·y1),0.1·y1],[(2/Hall)·(Hall−0.1·y1),0]), /* horizontal presure vector p */ vector([−(2/Hall)·(Hall−0.2·y1),0.2·y1],[(2/Hall)·(Hall−0.2·y1),0]), /* horizontal presure vector p */ vector([−(2/Hall)·(Hall−0.3·y1),0.3·y1],[(2/Hall)·(Hall−0.3·y1),0]), /* horizontal presure vector p */ vector([−(2/Hall)·(Hall−0.4·y1),0.4·y1],[(2/Hall)·(Hall−0.4·y1),0]), /* horizontal presure vector p */ vector([−(2/Hall)·(Hall−0.5·y1),0.5·y1],[(2/Hall)·(Hall−0.5·y1),0]), /* horizontal presure vector p */ vector([−(2/Hall)·(Hall−0.6·y1),0.6·y1],[(2/Hall)·(Hall−0.6·y1),0]), /* horizontal presure vector p */ vector([−(2/Hall)·(Hall−0.7·y1),0.7·y1],[(2/Hall)·(Hall−0.7·y1),0]), /* horizontal presure vector p */ vector([−(2/Hall)·(Hall−0.8·y1),0.8·y1],[(2/Hall)·(Hall−0.8·y1),0]), /* horizontal presure vector p */ vector([−(2/Hall)·(Hall−0.9·y1),0.9·y1],[(2/Hall)·(Hall−0.9·y1),0]),/* horizontal presure vector p */ color = "black", fill_color = light_blue, line_width=2, head_angle = 15, head_length = 0.25, color=black, point_type = filled_circle, point_size = 1.5, points_joined = false, points([[0,h_D_x]]), label_orientation = horizontal, label(["P_x",x0−0.5,h_D_x+0.5]),/* point P_x */ line_width=1, line_type = dashes, head_angle = 180, vector([−1,h_D_x],[3·y1,0]), /* horizontal line dot to vector P */ color = "blue", line_width=3, line_type = solid, head_angle = 15, head_length = 0.25, vector([x0−1,h_D_x],[+scale_P_x,0]), /* horizontal vector P */ font = "Arial", font_size = 16, color = "#0e406e", label_orientation = horizontal, label(["www.k123.org.ua ", x1_−long_x/2,Hall_add−label_URL]), label(["Kopanytsia Y (c) 2026", x1_−long_x/2,Hall_add−3·label_URL]), label_orientation = horizontal, label_alignment = left, color = black, label([concat("h_{C_{x}}=: ", string(h_C_x)," m"), x1_−label_left, y1·2]), label([concat("w_{x}=: ", string(w_x)," m"), x1_−label_left, y1·1.8]), label([concat("p_{c}=: ", string(p_c)," Pa"), x1_−label_left, y1·1.6]), label([concat("I=: ", string(I)," m"), x1_−label_left, y1·1.4]), label([concat("h_D_{coord}=: ", string(hi_D_x)," m"), x1_−label_left, y1·1.2]), label([concat("P_{x}=: ", string(P_x)," N"), x1_−label_left, y1·1]), label([concat("P_{z}=: ", string(P_z)," N"), x1_−label_left, y1·0.8]), color=red, label([concat("P=: ", string(P)," N"), x1_−label_left, y1·0.6]), label([concat("X=: ", string(X)," m"), x1_−label_left, y1·0.4]), label([concat("Y=: ", string(Y)," m"), x1_−label_left, y1·0.2]), line_type = solid, color=black,line_width=1, head_both = true, head_length = 0.2, head_angle = 10, vector([x1+scale_P_x+0.1,0],[0,h_D_x]),/* h_D_x */ label_alignment = center, label_orientation = vertical, font_size = 10, label([concat("h_{D_{coord}}=: ", string(hi_D_x)," m"), x1+0.7, h_D_x·0.6]), /* Input data */ line_type = solid, color=blue, line_width=4, head_angle = 180, vector([−x_left,Hall],[x1+x_left,0]), /* horizontal line dot to vector P_x */ line_width=1, line_type = dashes, head_angle = 180, vector([x0,y1],[x1+x_left,0]), /* horizontal line dot size H */ line_type = solid, color=black, line_width=1, line_type = solid, head_both = true, head_length = 0.2, head_angle = 10, vector([x1+x_left−0.2,0],[0,y1]), /* vertical line size H */ label_alignment = center, label_orientation = vertical, font_size = 10, label([concat("H=: ", string(Hall)," m"), x1+x_left−0.5, Hall·0.6]), /* vertical size H */ line_type = solid, color=black, line_width=1, line_type = solid, head_both = false, head_length = 0.2, head_angle = 10, vector([x0−x_left/2,y1+0.4],[0,−0.4]), /* vector p_a */ font_size = 16, color = "#0e406e", label_orientation = horizontal, label(["p_{a} ", x0−x_left/2−0.4,y1+0.4]), label(["D_{x} ", x0+0.4,hi_D_x]), /* Vector P */ font_size = 11, label_alignment = 'left, color = red, label([concat("D ( ", string(X),", ",string(Y),") "), x0+(x1−x0)/3+0.3,hi_D_x−0.2]), color=black, point_type = filled_circle, point_size = 1.5, points_joined = false, points([[x0+(x1−x0)/3,h_D_x]]), /* VECTOR P */ line_type = solid, color=red, line_width=3, line_type = solid, head_both = false, head_length = 0.3, head_angle = 10, vector([x0+(x1−x0)/3−scale_P_x,h_D_x+scale_P_z],[scale_P_x,−scale_P_z]), /* vectorP */ color = red, label_orientation = horizontal, label(["P ", x0+(x1−x0)/3−0.3,h_D_x+0.8]), line_width=1, color=black, line_type = short_long_dashes, points_joined = true, polygon([[x0+(x1−x0)/3,0],[x0+(x1−x0)/3,y1/2]]), line_type = dots, polygon([[x1,0],[x1,y1]]) ); |
\[\]\[\tag{%o71} \]
Created with wxMaxima.
The source of this Maxima session can be downloaded here.