Nothing
xsplineTangent.s1neg.s2neg.noA0.A3.x <- function(px0, px1, px2, px3, py0, py1, py2, py3, s1, s2, t) {
((((-t) * ((-t) * ((-t) * (-t) * (-s1) - ((-t) + (-t)) *
(-2 * (-s1) - (-t) * (-s1))) - (2 * (-s1) + (-t) * (-t) *
(-2 * (-s1) - (-t) * (-s1)))) - ((-s1) + (-t) * (2 * (-s1) +
(-t) * (-t) * (-2 * (-s1) - (-t) * (-s1))))) * px0 - ((1 -
t) * ((1 - t) * ((1 - t) * ((1 - t) * (4 - 5 * (-s2)) + (14 *
(-s2) - 11 + (1 - t) * (4 - 5 * (-s2)))) + (8 - 12 * (-s2) +
(1 - t) * (14 * (-s2) - 11 + (1 - t) * (4 - 5 * (-s2))))) +
(2 * (-s2) + (1 - t) * (8 - 12 * (-s2) + (1 - t) * (14 *
(-s2) - 11 + (1 - t) * (4 - 5 * (-s2)))))) + ((-s2) +
(1 - t) * (2 * (-s2) + (1 - t) * (8 - 12 * (-s2) + (1 - t) *
(14 * (-s2) - 11 + (1 - t) * (4 - 5 * (-s2))))))) * px1 +
(((-s1) + t * (2 * (-s1) + t * (8 - 12 * (-s1) + t * (14 *
(-s1) - 11 + t * (4 - 5 * (-s1)))))) + t * ((2 * (-s1) +
t * (8 - 12 * (-s1) + t * (14 * (-s1) - 11 + t * (4 -
5 * (-s1))))) + t * ((8 - 12 * (-s1) + t * (14 *
(-s1) - 11 + t * (4 - 5 * (-s1)))) + t * ((14 * (-s1) -
11 + t * (4 - 5 * (-s1))) + t * (4 - 5 * (-s1)))))) *
px2 + (((-s2) + (t - 1) * (2 * (-s2) + (t - 1) * (t -
1) * (-2 * (-s2) - (t - 1) * (-s2)))) + (t - 1) * ((2 * (-s2) +
(t - 1) * (t - 1) * (-2 * (-s2) - (t - 1) * (-s2))) + (t -
1) * (((t - 1) + (t - 1)) * (-2 * (-s2) - (t - 1) * (-s2)) -
(t - 1) * (t - 1) * (-s2)))) * px3)/((-t) * ((-s1) + (-t) *
(2 * (-s1) + (-t) * (-t) * (-2 * (-s1) - (-t) * (-s1)))) +
(1 - t) * ((-s2) + (1 - t) * (2 * (-s2) + (1 - t) * (8 -
12 * (-s2) + (1 - t) * (14 * (-s2) - 11 + (1 - t) * (4 -
5 * (-s2)))))) + t * ((-s1) + t * (2 * (-s1) + t * (8 -
12 * (-s1) + t * (14 * (-s1) - 11 + t * (4 - 5 * (-s1)))))) +
(t - 1) * ((-s2) + (t - 1) * (2 * (-s2) + (t - 1) * (t -
1) * (-2 * (-s2) - (t - 1) * (-s2))))) - ((-t) * ((-s1) +
(-t) * (2 * (-s1) + (-t) * (-t) * (-2 * (-s1) - (-t) * (-s1)))) *
px0 + (1 - t) * ((-s2) + (1 - t) * (2 * (-s2) + (1 - t) *
(8 - 12 * (-s2) + (1 - t) * (14 * (-s2) - 11 + (1 - t) *
(4 - 5 * (-s2)))))) * px1 + t * ((-s1) + t * (2 * (-s1) +
t * (8 - 12 * (-s1) + t * (14 * (-s1) - 11 + t * (4 - 5 *
(-s1)))))) * px2 + (t - 1) * ((-s2) + (t - 1) * (2 *
(-s2) + (t - 1) * (t - 1) * (-2 * (-s2) - (t - 1) * (-s2)))) *
px3) * ((-t) * ((-t) * ((-t) * (-t) * (-s1) - ((-t) + (-t)) *
(-2 * (-s1) - (-t) * (-s1))) - (2 * (-s1) + (-t) * (-t) *
(-2 * (-s1) - (-t) * (-s1)))) - ((-s1) + (-t) * (2 * (-s1) +
(-t) * (-t) * (-2 * (-s1) - (-t) * (-s1)))) - ((1 - t) *
((1 - t) * ((1 - t) * ((1 - t) * (4 - 5 * (-s2)) + (14 *
(-s2) - 11 + (1 - t) * (4 - 5 * (-s2)))) + (8 - 12 *
(-s2) + (1 - t) * (14 * (-s2) - 11 + (1 - t) * (4 - 5 *
(-s2))))) + (2 * (-s2) + (1 - t) * (8 - 12 * (-s2) +
(1 - t) * (14 * (-s2) - 11 + (1 - t) * (4 - 5 * (-s2)))))) +
((-s2) + (1 - t) * (2 * (-s2) + (1 - t) * (8 - 12 * (-s2) +
(1 - t) * (14 * (-s2) - 11 + (1 - t) * (4 - 5 * (-s2))))))) +
(((-s1) + t * (2 * (-s1) + t * (8 - 12 * (-s1) + t * (14 *
(-s1) - 11 + t * (4 - 5 * (-s1)))))) + t * ((2 * (-s1) +
t * (8 - 12 * (-s1) + t * (14 * (-s1) - 11 + t * (4 -
5 * (-s1))))) + t * ((8 - 12 * (-s1) + t * (14 *
(-s1) - 11 + t * (4 - 5 * (-s1)))) + t * ((14 * (-s1) -
11 + t * (4 - 5 * (-s1))) + t * (4 - 5 * (-s1)))))) +
(((-s2) + (t - 1) * (2 * (-s2) + (t - 1) * (t - 1) * (-2 *
(-s2) - (t - 1) * (-s2)))) + (t - 1) * ((2 * (-s2) +
(t - 1) * (t - 1) * (-2 * (-s2) - (t - 1) * (-s2))) +
(t - 1) * (((t - 1) + (t - 1)) * (-2 * (-s2) - (t - 1) *
(-s2)) - (t - 1) * (t - 1) * (-s2)))))/((-t) * ((-s1) +
(-t) * (2 * (-s1) + (-t) * (-t) * (-2 * (-s1) - (-t) * (-s1)))) +
(1 - t) * ((-s2) + (1 - t) * (2 * (-s2) + (1 - t) * (8 -
12 * (-s2) + (1 - t) * (14 * (-s2) - 11 + (1 - t) * (4 -
5 * (-s2)))))) + t * ((-s1) + t * (2 * (-s1) + t * (8 -
12 * (-s1) + t * (14 * (-s1) - 11 + t * (4 - 5 * (-s1)))))) +
(t - 1) * ((-s2) + (t - 1) * (2 * (-s2) + (t - 1) * (t -
1) * (-2 * (-s2) - (t - 1) * (-s2)))))^2)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.