Nothing
xsplineTangent.s1pos.s2neg.noA0.noA3.x <- function(px0, px1, px2, px3, py0, py1, py2, py3, s1, s2, t) {
(((((1/(1 + s1) * ((t + s1)/(1 + s1)) + ((t + s1)/(1 +
s1)) * (1/(1 + s1))) * ((t + s1)/(1 + s1)) + ((t + s1)/(1 +
s1)) * ((t + s1)/(1 + s1)) * (1/(1 + s1))) * (10 - (2 * (1 +
s1) * (1 + s1)) + (2 * (2 * (1 + s1) * (1 + s1)) - 15) *
((t + s1)/(1 + s1)) + (6 - (2 * (1 + s1) * (1 + s1))) * ((t +
s1)/(1 + s1)) * ((t + s1)/(1 + s1))) + ((t + s1)/(1 + s1)) *
((t + s1)/(1 + s1)) * ((t + s1)/(1 + s1)) * ((2 * (2 * (1 +
s1) * (1 + s1)) - 15) * (1/(1 + s1)) + ((6 - (2 * (1 + s1) *
(1 + s1))) * (1/(1 + s1)) * ((t + s1)/(1 + s1)) + (6 - (2 *
(1 + s1) * (1 + s1))) * ((t + s1)/(1 + s1)) * (1/(1 + s1))))) *
px2 - ((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 + (((-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)/(0 + (1 - t) * ((-s2) +
(1 - t) * (2 * (-s2) + (1 - t) * (8 - 12 * (-s2) + (1 - t) *
(14 * (-s2) - 11 + (1 - t) * (4 - 5 * (-s2)))))) + ((t +
s1)/(1 + s1)) * ((t + s1)/(1 + s1)) * ((t + s1)/(1 + s1)) *
(10 - (2 * (1 + s1) * (1 + s1)) + (2 * (2 * (1 + s1) * (1 +
s1)) - 15) * ((t + s1)/(1 + s1)) + (6 - (2 * (1 + s1) *
(1 + s1))) * ((t + s1)/(1 + s1)) * ((t + s1)/(1 + s1))) +
(t - 1) * ((-s2) + (t - 1) * (2 * (-s2) + (t - 1) * (t -
1) * (-2 * (-s2) - (t - 1) * (-s2))))) - (0 * 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)/(1 + s1)) * ((t + s1)/(1 + s1)) * ((t + s1)/(1 +
s1)) * (10 - (2 * (1 + s1) * (1 + s1)) + (2 * (2 * (1 + s1) *
(1 + s1)) - 15) * ((t + s1)/(1 + s1)) + (6 - (2 * (1 + s1) *
(1 + s1))) * ((t + s1)/(1 + s1)) * ((t + s1)/(1 + s1))) *
px2 + (t - 1) * ((-s2) + (t - 1) * (2 * (-s2) + (t - 1) *
(t - 1) * (-2 * (-s2) - (t - 1) * (-s2)))) * px3) * (((1/(1 +
s1) * ((t + s1)/(1 + s1)) + ((t + s1)/(1 + s1)) * (1/(1 +
s1))) * ((t + s1)/(1 + s1)) + ((t + s1)/(1 + s1)) * ((t +
s1)/(1 + s1)) * (1/(1 + s1))) * (10 - (2 * (1 + s1) * (1 +
s1)) + (2 * (2 * (1 + s1) * (1 + s1)) - 15) * ((t + s1)/(1 +
s1)) + (6 - (2 * (1 + s1) * (1 + s1))) * ((t + s1)/(1 + s1)) *
((t + s1)/(1 + s1))) + ((t + s1)/(1 + s1)) * ((t + s1)/(1 +
s1)) * ((t + s1)/(1 + s1)) * ((2 * (2 * (1 + s1) * (1 + s1)) -
15) * (1/(1 + s1)) + ((6 - (2 * (1 + s1) * (1 + s1))) * (1/(1 +
s1)) * ((t + s1)/(1 + s1)) + (6 - (2 * (1 + s1) * (1 + s1))) *
((t + s1)/(1 + s1)) * (1/(1 + 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))))))) + (((-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)))))/(0 + (1 - t) * ((-s2) + (1 - t) * (2 *
(-s2) + (1 - t) * (8 - 12 * (-s2) + (1 - t) * (14 * (-s2) -
11 + (1 - t) * (4 - 5 * (-s2)))))) + ((t + s1)/(1 + s1)) *
((t + s1)/(1 + s1)) * ((t + s1)/(1 + s1)) * (10 - (2 * (1 +
s1) * (1 + s1)) + (2 * (2 * (1 + s1) * (1 + s1)) - 15) *
((t + s1)/(1 + s1)) + (6 - (2 * (1 + s1) * (1 + s1))) * ((t +
s1)/(1 + s1)) * ((t + s1)/(1 + 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.