Dixon | R Documentation |
The Dixon elliptic functions.
sm(z)
cm(z)
z |
a real or complex number |
A complex number.
# cubic Fermat curve x^3+y^3=1
pi3 <- beta(1/3, 1/3)
epsilon <- 0.7
t_ <- seq(-pi3/3 + epsilon, 2*pi3/3 - epsilon, length.out = 100)
pts <- t(vapply(t_, function(t) {
c(Re(cm(t)), Re(sm(t)))
}, FUN.VALUE = numeric(2L)))
plot(pts, type = "l", asp = 1)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.