Combined Loads

GeoGebra Commands & Parameters

1. Point(xAxis) → D
2. Point(xAxis) → E
3. If(x(D) < x(E), D, E) → start
4. If(start ≟ D, E, D) → end
5. Point(xAxis) → C
6. Point(xAxis) → A
7. Vector(A, Midpoint[E, D]) → r_w
8. Vector(A, C) → r_{P_1}
9. Point(xAxis) → B
10. Sort(Unique[x({A, B, C, D, E})]) → points
11. Vector(A, B) → r_B
12. Point(x = ((-AxisStepX[])) / 4) → V
13. Max(x({A, C, B, D, E})) → right
14. Min(x({A, C, B, D, E})) → left
15. Polygon(E + (0.2 * j), E + j, D + j, D + (0.2 * j)) → load, load_r, load_t, load_L, load_b
16. member((Min[x({A, C, E, D, B})], 0), (Max[x({A, C, E, D, B})], 0), (0.2 * AxisStepY[])) → beam, beam1, beam2, beam3, beam4
17. Segment((x(A), v'(x(A))), (x(A), v'(x(A) + 0.001))) → v_A
18. Segment((x(B), v'(x(B))), (x(B), v'(x(B) + 0.001))) → v_B
19. Point(x = ((-AxisStepX[])) / 4) → M
20. Segment((x(C), v'(x(C))), (x(C), v'(x(C) + 0.001))) → v_C
21. Segment(V', (x(V'), v'(right))) → v_r
22. Sequence(Vector[If[w > 0, Vector[E + j + (n * delta), E + (0.2 * j) + (n * delta)], Vector[E + (0.2 * j) + (n * delta), E + j + (n * delta)]]], n, 0, Length[Segment[E, D]] / abs(delta)) → distributedLoad
23. Max(Join[{{0}, y(Sequence[Max[m, points(k), points(k + 1)], k, 1, Length[points] - 1])}]) → M_{max}
24. Min(Join[{{0}, y(Sequence[Min[v, points(k), points(k + 1)], k, 1, Length[points] - 1])}]) → V_{min}
25. Textfield(Scale_V) → InputBox1
26. Textfield(Scale_M) → InputBox2
27. Polygon((right, y(Corner[2])), (right, y(Corner[3])), Corner[3], Corner[2]) → mask, mask_l, mask_t, mask_r, mask_b
28. Segment((0, y(V)), (right, y(V))) → Vaxis
29. Segment((0, y(M)), (right, y(M))) → Maxis
30. Max(Join[{{0}, y(Sequence[Max[v, points(k), points(k + 1)], k, 1, Length[points] - 1])}]) → V_{max}
31. Min(Join[{{0}, y(Sequence[Min[m, points(k), points(k + 1)], k, 1, Length[points] - 1])}]) → M_{min}
32. If(P_C > 0, Vector[C + (1.5 * j), C], Vector[C, C + (1.5 * j)]) → p_C
33. If(F_B ≥ 0, Vector[B - j, B], Vector[B, B - j]) → b
34. If(F_A ≥ 0, Vector[A - j, A], Vector[A, A - j]) → a
35. Shuffle(Join[{{0, beamLen}, Sequence[(2 * Random[0, beamLen / 2]), n, 1, 3]}]) → temp, {2, 16, 6, 0, 16}