10

5

0

-5

-10

10

5

0

-5

-10

1

2

3

4

5

2

Pas de solution.

6

7

8

9

h(x) = 10.0 / (x + 1.0)
g = Function(-1.0 * (10.0 - x)^(2.0) / x / 10.0, 0.0, 10.0)
der = Derivative(g(x))
m1 = Sequence(der(h(n)), n, 1.0, 10.0)
n1 = Sequence(1.0 / sqrt(1.0 + Element[m1, n]^(2.0)), n, 1.0, 10.0)
Gm10 = (0, -10)
G10 = (0, 10)
Dm10 = (10, -10)
D10 = (10, 10)
G0 = (0, 0)
D0 = (10, 0)
a = Segment(G0, D0)
b = Segment(G0, G10)
c = Segment(G0, Gm10)
d = Segment(D0, D10)
e = Segment(D0, Dm10)
A = Point(c)
B = Point(d)
f = Segment(A, B)
s1 = Sequence(Segment[(-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 0.2, n), (0.2, n)], n, -10.0, 10.0)
Gm5 = (0, -5)
Dm5 = (10, -5)
G5 = (0, 5)
D5 = (10, 5)
s2 = Sequence(Segment[(9.8, n), (10.2, n)], n, -10.0, 10.0)
s3 = Sequence(Segment[(-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 0.1, n), (0.1, n)], n, -9.5, 9.5, 1.0)
s4 = Sequence(Segment[(9.9, n), (10.1, n)], n, -9.5, 9.5)
s5 = Sequence(Segment[(-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 0.04, n), (0.04, n)], n, -10.0, 10.0, 0.1)
s6 = Sequence(Segment[(9.96, n), (10.04, n)], n, -10.0, 10.0, 0.1)
S1: (h(1.0), g(h(1.0)))
S2: (h(2.0), g(h(2.0)))
S3: (h(3.0), g(h(3.0)))
S4: (h(4.0), g(h(4.0)))
S5: (h(5.0), g(h(5.0)))
m2 = Sequence(der(h(n - 0.5)), n, 1.0, 5.0)
n2 = Sequence(1.0 / sqrt(1.0 + Element[m2, n]^(2.0)), n, 1.0, 5.0)
p2 = Sequence(Segment[(h(n - 0.5) - 0.16 * Element[m2, n] * Element[n2, n], g(h(n - 0.5)) + 0.16 * Element[n2, n]), (h(n - 0.5) + 0.16 * Element[m2, n] * Element[n2, n], g(h(n - 0.5)) - 0.16 * Element[n2, n])], n, 1.0, 5.0)
m3 = Sequence(der(h(n / 10.0)), n, 1.0, 49.0)
n3 = Sequence(1.0 / sqrt(1.0 + Element[m3, n]^(2.0)), n, 1.0, 49.0)
p3 = Sequence(Segment[(h(n / 10.0) - 0.08 * Element[m3, n] * Element[n3, n], g(h(n / 10.0)) + 0.08 * Element[n3, n]), (h(n / 10.0) + 0.08 * Element[m3, n] * Element[n3, n], g(h(n / 10.0)) - 0.08 * Element[n3, n])], n, 1.0, 49.0)
t(x) = x^(2.0) + y(A) * x + y(B)
D, E, F = Intersect(t, xAxis)
p1 = Sequence(Segment[(h(n) - 0.2 * Element[m1, n] * Element[n1, n], g(h(n)) + 0.2 * Element[n1, n]), (h(n) + 0.2 * Element[m1, n] * Element[n1, n], g(h(n)) - 0.2 * Element[n1, n])], n, 1.0, 10.0)
S6: (h(6.0), g(h(6.0)))
S7: (h(7.0), g(h(7.0)))
S8: (h(8.0), g(h(8.0)))
S9: (h(9.0), g(h(9.0)))
T16: "Nomogramme
(Ocagne, 1899)
pour l'équation
x  " + (y(A)) + " x + " + (y(B)) + "=0;"
T19: "Les deux solutions " + (x(E)) + " et " + (x(D)) + "
se lisent sur la courbe bleue,
aux intersections avec le segment rouge."