\frac{dI}{dt} = 0

\frac{dS}{dt} = 0

xmax:110000
xmin:-12000
ymax:21000
ymin:-2000
b:y = 0
d:((-1.6E-6 * x) * y) + (0.01 * (100000 - x - y)) = 0
B = Intersect(d, b, 1)
E = (82964.85447122963, 12945.425082470048)
F = (73293.21268018484, 11202.38439724521)
v = Vector(E, F)
G = (18733.788064807362, 7353.544122280738)
H = (25897.967169284977, 4950.974529132986)
w = Vector(G, H)
M = (46849.024954432636, 7682.447717743928)
N = (46849.024954432636, 4855.895257743934)
f = Vector(M, N)
O:(35094, 0)
P:(40825, 0)
g = Vector(O, P)
IC = (18074.553366926248, 4041.899041899042)
A = (35501.68918918919, 2015.8730158730145)
C = (51679.054054054046, 1245.149911816577)
a = PolyLine(IC, A, C, B)
D = (77988.99082568809, 6633.633633633633)
I = (62990.825688073404, 5597.597597597596)
J = (58994.932432432426, 4490.299823633156)
K = (59097.972972972966, 3273.368606701939)
L = (65280.4054054054, 2015.8730158730145)
c = PolyLine(D, I, J, K, L, B)
Q = (60025.33783783783, 15158.730158730159)
R = (49103.04054054053, 14063.492063492064)
S = (39211.14864864864, 12075.83774250441)
T = (37871.62162162161, 9804.232804232803)
U = (37768.58108108107, 7532.627865961198)
W = (39726.351351351346, 5585.537918871251)
Z = (44157.094594594586, 3841.26984126984)
A_1 = (51163.851351351346, 2583.7742504409157)
B_1 = (60128.37837837837, 1488.5361552028203)
C_1 = (69402.02702702701, 1082.892416225748)
e = PolyLine(Q, R, S, T, U, W, Z, A_1, B_1, C_1, B)