W

p

G = 295 (slider from 0 to 500, step 1)
f_1(x) = (G * x)
W(p) = (G * p / 100)
p = 75 (slider from 0 to 100)
B: (p, W(p))
f = OrthogonalLine(B, xAxis)
g = OrthogonalLine(B, yAxis)
W_2 = Intersect(yAxis, g)
p_2 = Intersect(f, xAxis)
h = Segment(W_2, B)
i = Segment(B, p_2)