c = 0
k(x) = 2 / x
f(x) = Integral[k, x] + 0
a = 0
b = 0
d = 0
h(x) = Integral[sin(f(x)), x] + d
p = 0.2
g(x) = Integral[cos(f(x)), x] + c
l = 0
list1 = Sequence(Segment[(g(t), h(t)), (g(t + p), h(t + p))], t, -10, 10, p)
g_x = Derivative(g, x)
h_x = Derivative(h, x)
g_{xx} = Derivative(g_x, x)
h_{xx} = Derivative(h_x, x)
k_1(x) = (g_x(x) * h_{xx}(x) - g_{xx}(x) * h_x(x)) / (g_x(x)^(2) + h_x(x)^(2))^(3 / 2)