Ci(u)

Si(u)

Ci(u)

SiCi(u)

u

u

n = 1 (slider from -1 to 5, step 0.1)
g(x) = If[0.1 ≤ x ≤ (4 * pi), sin(x) / x]
h(x) = If[0.1 ≤ x ≤ (4 * pi), ((-cos(x))) / x]
q(x) = If[0 ≤ x ≤ (4 * pi), cos(x)]
d = 2.5 (slider from 0.1 to 4, step 0.1)
f = Integral(sin(x) / x, 0, 10)
c_{1} = 0
u(x) = If[0.1 ≤ x ≤ (4 * pi), (n * Integral[cos(x) / x])]
b = Integral(sin(x) / x, d, 4000)
a = Integral(((-cos(x))) / x, d, 1000)
c_{2} = 0
r(x) = If[0 ≤ x ≤ (4 * pi), (n * Integral[sin(x) / x])]
c = CurveCartesian(u(u_{1}), r(u_{1}), u_{1}, 0.1, (4 * pi))
e = Rotate(u(x), ((-pi)) / 2, (0, 0))
A: (d, 0)
B: (d, r(d))
v = Vector(A, B)
C: (0, (-d))
D: (u(d), (-d))
w = Vector(C, D)
E: (u(d), r(d))
i = Segment(B, E)
j = Segment(D, E)