Question:
Repl link:
SCREEN 12 ' Set screen mode to graphics
' Define beam parameters
beam_length = 500
beam_height = 20
load1_pos = 100
load2_pos = 250
load3_pos = 400
load_force = 100
' Draw beam
LINE (0, 200)-(beam_length, 200 + beam_height), 15, B
LINE (0, 200)-(beam_length, 200), 15, B
LINE (0, 200 + beam_height)-(beam_length, 200 + beam_height), 15, B
' Draw point loads
CIRCLE (load1_pos, 200), 10, 15, , , F
CIRCLE (load2_pos, 200), 10, 15, , , F
CIRCLE (load3_pos, 200), 10, 15, , , F
' Label point loads
LOCATE 5, 1
PRINT "Load 1"
LOCATE 5, 2
PRINT "Load 2"
LOCATE 5, 3
PRINT "Load 3"
' Draw arrows for point loads
ARROW (load1_pos, 200 + beam_height + 20)-(load1_pos, 200 + beam_height), 15, , , F
ARROW (load2_pos, 200 + beam_height + 20)-(load2_pos, 200 + beam_height), 15, , , F
ARROW (load3_pos, 200 + beam_height + 20)-(load3_pos, 200 + beam_height), 15, , , F
' Label arrows with load force
LOCATE 5, 4
PRINT load_force, "N"
LOCATE 5, 5
PRINT load_force, "N"
LOCATE 5, 6
PRINT load_force, "N"