curvature k(x)=

A = (-0.68, 3.6366666666666636)
a = -12
b = 12
p = 0.01
t = -7.09 (slider from a to b, step p)
k(x) = x * sin(x)
入力ボックス1 = Textfield(k)
f = Integral(k, x)
g(x) = cos(f(x))
h(x) = sin(f(x))
simpson_g: p / 3 * (g(a) + 2 * Sum[Sequence[g(s), s, a + 2 * p, t - 2 * p, 2 * p]] + 4 * Sum[Sequence[g(s), s, a + p, t - p, 2 * p]] + g(t)) + x(A)
simpson_h: p / 3 * (h(a) + 2 * Sum[Sequence[h(s), s, a + 2 * p, t - 2 * p, 2 * p]] + 4 * Sum[Sequence[h(s), s, a + p, t - p, 2 * p]] + h(t)) + y(A)
P: (simpson_g, simpson_h)