f(x)=1,0435^x·300

f(x) = 300 * 1.0435^(x)
E = Point(xAxis)
D = Point(yAxis)
d = Segment(D, E)
g = Function(f, 0, 50)
lista1 = Sequence(300 * 1.0435^(n), n, 0, 50, 1)
A = Point(d)
a = OrthogonalLine(A, xAxis)
B = Intersect(g, a, (16.214281562765404, 598.3607542649158))
b = OrthogonalLine(B, yAxis)
C = Intersect(yAxis, b)
v = Vector(B, C)
c = Segment(A, B)