f(x)

F(x)

e

f(x) = If[-100 ≤ x ≤ 1,0]
g(x) = If[1 ≤ x ≤ 2.718281828459045,1 / x]
h(x) = If[2.718281828459045 ≤ x ≤ 100,0]
p(x) = If[1 ≤ x ≤ 2.718281828459045,log(x)]
q(x) = If[2.718281828459045 ≤ x ≤ 100,1]
A = (1, 0)
B = (2.718281828459045, 0)
a = Segment(A, B)
C = Point(a)
b = OrthogonalLine(C, xAxis)
c = Integral(g, 1, x(C))
D = Intersect(p, b, (1.1926439990308333, 0.17617269039445613))
teksti1: "A=" + (LaTeX[c]) + ""
E = (0, 1)
F = (1.3766263370523726, 0.9997660997459052)
G = (3.2251282639035233, 1.0385087211153436)
H = (4.844294788928845, 1.0414899624587923)
d = Segment(C, D)