vwline
Draw Variable-Width Lines

Package index
Search the vwline package
Functions
193
Source code
54
Man pages
10
Home
/
CRAN
/
vwline
/
R/xsplineTangent.s1pos.s2pos.noA0.A3.x.R

R/xsplineTangent.s1pos.s2pos.noA0.A3.x.R
In vwline: Draw Variable-Width Lines

Defines functions xsplineTangent.s1pos.s2pos.noA0.A3.x 

xsplineTangent.s1pos.s2pos.noA0.A3.x <- function(px0, px1, px2, px3, py0, py1, py2, py3, s1, s2, t) {
(((((1/(-1 - s2) * ((t - 1 - s2)/(-1 - s2)) + ((t - 
    1 - s2)/(-1 - s2)) * (1/(-1 - s2))) * ((t - 1 - s2)/(-1 - 
    s2)) + ((t - 1 - s2)/(-1 - s2)) * ((t - 1 - s2)/(-1 - s2)) * 
    (1/(-1 - s2))) * (10 - (2 * (-1 - s2) * (-1 - s2)) + (2 * 
    (2 * (-1 - s2) * (-1 - s2)) - 15) * ((t - 1 - s2)/(-1 - s2)) + 
    (6 - (2 * (-1 - s2) * (-1 - s2))) * ((t - 1 - s2)/(-1 - s2)) * 
        ((t - 1 - s2)/(-1 - s2))) + ((t - 1 - s2)/(-1 - s2)) * 
    ((t - 1 - s2)/(-1 - s2)) * ((t - 1 - s2)/(-1 - s2)) * ((2 * 
    (2 * (-1 - s2) * (-1 - s2)) - 15) * (1/(-1 - s2)) + ((6 - 
    (2 * (-1 - s2) * (-1 - s2))) * (1/(-1 - s2)) * ((t - 1 - 
    s2)/(-1 - s2)) + (6 - (2 * (-1 - s2) * (-1 - s2))) * ((t - 
    1 - s2)/(-1 - s2)) * (1/(-1 - s2))))) * px1 + (((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/(1 + s2) * 
    ((t - 1 + s2)/(1 + s2)) + ((t - 1 + s2)/(1 + s2)) * (1/(1 + 
    s2))) * ((t - 1 + s2)/(1 + s2)) + ((t - 1 + s2)/(1 + s2)) * 
    ((t - 1 + s2)/(1 + s2)) * (1/(1 + s2))) * (10 - (2 * (1 + 
    s2) * (1 + s2)) + (2 * (2 * (1 + s2) * (1 + s2)) - 15) * 
    ((t - 1 + s2)/(1 + s2)) + (6 - (2 * (1 + s2) * (1 + s2))) * 
    ((t - 1 + s2)/(1 + s2)) * ((t - 1 + s2)/(1 + s2))) + ((t - 
    1 + s2)/(1 + s2)) * ((t - 1 + s2)/(1 + s2)) * ((t - 1 + s2)/(1 + 
    s2)) * ((2 * (2 * (1 + s2) * (1 + s2)) - 15) * (1/(1 + s2)) + 
    ((6 - (2 * (1 + s2) * (1 + s2))) * (1/(1 + s2)) * ((t - 1 + 
        s2)/(1 + s2)) + (6 - (2 * (1 + s2) * (1 + s2))) * ((t - 
        1 + s2)/(1 + s2)) * (1/(1 + s2))))) * px3)/(0 + ((t - 
    1 - s2)/(-1 - s2)) * ((t - 1 - s2)/(-1 - s2)) * ((t - 1 - 
    s2)/(-1 - s2)) * (10 - (2 * (-1 - s2) * (-1 - s2)) + (2 * 
    (2 * (-1 - s2) * (-1 - s2)) - 15) * ((t - 1 - s2)/(-1 - s2)) + 
    (6 - (2 * (-1 - s2) * (-1 - s2))) * ((t - 1 - s2)/(-1 - s2)) * 
        ((t - 1 - s2)/(-1 - 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)/(1 + s2)) * ((t - 
    1 + s2)/(1 + s2)) * ((t - 1 + s2)/(1 + s2)) * (10 - (2 * 
    (1 + s2) * (1 + s2)) + (2 * (2 * (1 + s2) * (1 + s2)) - 15) * 
    ((t - 1 + s2)/(1 + s2)) + (6 - (2 * (1 + s2) * (1 + s2))) * 
    ((t - 1 + s2)/(1 + s2)) * ((t - 1 + s2)/(1 + s2)))) - (0 * 
    px0 + ((t - 1 - s2)/(-1 - s2)) * ((t - 1 - s2)/(-1 - s2)) * 
    ((t - 1 - s2)/(-1 - s2)) * (10 - (2 * (-1 - s2) * (-1 - s2)) + 
    (2 * (2 * (-1 - s2) * (-1 - s2)) - 15) * ((t - 1 - s2)/(-1 - 
        s2)) + (6 - (2 * (-1 - s2) * (-1 - s2))) * ((t - 1 - 
    s2)/(-1 - s2)) * ((t - 1 - s2)/(-1 - 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)/(1 + s2)) * ((t - 1 + s2)/(1 + s2)) * 
    ((t - 1 + s2)/(1 + s2)) * (10 - (2 * (1 + s2) * (1 + s2)) + 
    (2 * (2 * (1 + s2) * (1 + s2)) - 15) * ((t - 1 + s2)/(1 + 
        s2)) + (6 - (2 * (1 + s2) * (1 + s2))) * ((t - 1 + s2)/(1 + 
    s2)) * ((t - 1 + s2)/(1 + s2))) * px3) * (((1/(-1 - s2) * 
    ((t - 1 - s2)/(-1 - s2)) + ((t - 1 - s2)/(-1 - s2)) * (1/(-1 - 
    s2))) * ((t - 1 - s2)/(-1 - s2)) + ((t - 1 - s2)/(-1 - s2)) * 
    ((t - 1 - s2)/(-1 - s2)) * (1/(-1 - s2))) * (10 - (2 * (-1 - 
    s2) * (-1 - s2)) + (2 * (2 * (-1 - s2) * (-1 - s2)) - 15) * 
    ((t - 1 - s2)/(-1 - s2)) + (6 - (2 * (-1 - s2) * (-1 - s2))) * 
    ((t - 1 - s2)/(-1 - s2)) * ((t - 1 - s2)/(-1 - s2))) + ((t - 
    1 - s2)/(-1 - s2)) * ((t - 1 - s2)/(-1 - s2)) * ((t - 1 - 
    s2)/(-1 - s2)) * ((2 * (2 * (-1 - s2) * (-1 - s2)) - 15) * 
    (1/(-1 - s2)) + ((6 - (2 * (-1 - s2) * (-1 - s2))) * (1/(-1 - 
    s2)) * ((t - 1 - s2)/(-1 - s2)) + (6 - (2 * (-1 - s2) * (-1 - 
    s2))) * ((t - 1 - s2)/(-1 - s2)) * (1/(-1 - s2)))) + (((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/(1 + s2) * ((t - 
    1 + s2)/(1 + s2)) + ((t - 1 + s2)/(1 + s2)) * (1/(1 + s2))) * 
    ((t - 1 + s2)/(1 + s2)) + ((t - 1 + s2)/(1 + s2)) * ((t - 
    1 + s2)/(1 + s2)) * (1/(1 + s2))) * (10 - (2 * (1 + s2) * 
    (1 + s2)) + (2 * (2 * (1 + s2) * (1 + s2)) - 15) * ((t - 
    1 + s2)/(1 + s2)) + (6 - (2 * (1 + s2) * (1 + s2))) * ((t - 
    1 + s2)/(1 + s2)) * ((t - 1 + s2)/(1 + s2))) + ((t - 1 + 
    s2)/(1 + s2)) * ((t - 1 + s2)/(1 + s2)) * ((t - 1 + s2)/(1 + 
    s2)) * ((2 * (2 * (1 + s2) * (1 + s2)) - 15) * (1/(1 + s2)) + 
    ((6 - (2 * (1 + s2) * (1 + s2))) * (1/(1 + s2)) * ((t - 1 + 
        s2)/(1 + s2)) + (6 - (2 * (1 + s2) * (1 + s2))) * ((t - 
        1 + s2)/(1 + s2)) * (1/(1 + s2))))))/(0 + ((t - 1 - s2)/(-1 - 
    s2)) * ((t - 1 - s2)/(-1 - s2)) * ((t - 1 - s2)/(-1 - s2)) * 
    (10 - (2 * (-1 - s2) * (-1 - s2)) + (2 * (2 * (-1 - s2) * 
        (-1 - s2)) - 15) * ((t - 1 - s2)/(-1 - s2)) + (6 - (2 * 
        (-1 - s2) * (-1 - s2))) * ((t - 1 - s2)/(-1 - s2)) * 
        ((t - 1 - s2)/(-1 - 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)/(1 + s2)) * ((t - 
    1 + s2)/(1 + s2)) * ((t - 1 + s2)/(1 + s2)) * (10 - (2 * 
    (1 + s2) * (1 + s2)) + (2 * (2 * (1 + s2) * (1 + s2)) - 15) * 
    ((t - 1 + s2)/(1 + s2)) + (6 - (2 * (1 + s2) * (1 + s2))) * 
    ((t - 1 + s2)/(1 + s2)) * ((t - 1 + s2)/(1 + s2))))^2)
}

Try the vwline package in your browser

Any scripts or data that you put into this service are public.

vwline documentation built on July 25, 2019, 9:03 a.m.

R Package Documentation

rdrr.io home R language documentation Run R code online

Browse R Packages

CRAN packages Bioconductor packages R-Forge packages GitHub packages

We want your feedback!

Note that we can't provide technical support on individual packages. You should contact the package authors for that.
GitHub issue tracker
ian@mutexlabs.com
Personal blog

 
Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.

Close