curve from curvature 3
Author: knxm

curvature k(x)=

t = 2.85 (slider from 0 to 12, step 0.01)
k(x) = x * sin(x)
f = Integral(k, x)
g(x) = cos(f(x))
h(x) = sin(f(x))
inputBox1 = Textfield(k)
p = 0.01
simpson_g: p / 3 * (g(p) + 2 * Sum[Sequence[g(s), s, 2 * p, t - 2 * p, 2 * p]] + 4 * Sum[Sequence[g(s), s, 3 * p, t - p, 2 * p]] + g(t))
simpson_h: p / 3 * (h(p) + 2 * Sum[Sequence[h(s), s, 2 * p, t - 2 * p, 2 * p]] + 4 * Sum[Sequence[h(s), s, 3 * p, t - p, 2 * p]] + h(t))
P: (simpson_g, simpson_h)