t(x) = (0.604 * x)
H = Intersect(xAxis, yAxis)
s(x) = (0.65 * x)
r(x) = (0.67 * x)
q(x) = (0.72 * x)
p(x) = (0.75 * x)
h(x) = (0.85 * x)
g(x) = (0.9 * x)
f: 466.95
e: 413.35
d: 231.454
c: 151.9
b: 75.3
a: 18.55
i: g(a)
B: (a, i)
j: i + h(b - a)
C: (b, j)
k: j + p(c - b)
D: (c, k)
l: k + q(d - c)
E: (d, l)
m: l + r(e - d)
F: (e, m)
n: m + s(f - e)
G: (f, n)
p_1(x) = If[f ≤ x ≤ 20000, t(x) + y(G) - t(f)]
L = Point(p_1)
A = Point(xAxis)
L_1: {(i, 0), (j, 0), (k, 0), (l, 0), (m, 0), (n, 0)}
L_2: {(a, 0), (b, 0), (c, 0), (d, 0), (e, 0), (f, 0)}
f_1: y = x
h_1 = Ray(H, (1, 1))
i_1 = OrthogonalLine(A, xAxis)
g_1 = PolyLine(H, B, C, D, E, F, G, L)
J = Intersect(i_1, g_1)
I = Intersect(i_1, h_1)
j_1 = Segment(I, A)
k_1 = Segment(I, J)
o: k_1 / j_1
u: (100 * o)
text1: "" + (LaTeX[u]) + "%"
K = Point(p_1)
M: (0, y(J))
l_1 = Segment(J, M)
m_1 = Segment(L_2(1), B)
n_1 = Segment(L_2(2), C)
q_1 = Segment(L_2(3), D)
r_1 = Segment(L_2(4), E)
s_1 = Segment(L_2(5), F)
t_1 = Segment(L_2(6), G)
L_3: {(90, 0), (260, 0), (1000, 0)}
f_2(x) = (0.88 * x)
N: (x(L_3(1)), f_2(x(L_3(1))))
v: (0.75 * 160) + (0.88 * 90)
O: (260, v)
P: (x(L_3(3)), v + s(1000 - 260))
g_2(x) = If[x(P) ≤ x ≤ 200000, t(x) + y(P) - t(x(P))]
Q = Point(g_2)
R = Point(g_2)
a_1 = PolyLine(H, N, O, P, R)
S, T, U, V, W, Z = Intersect(g_1, a_1)