drosofff
12/24/2016 - 3:51 PM

Work on signature curves !

Work on signature curves !

par(mar=c(0.2, 0.2, 0.2, 0.2), mfrow=c(1,5), oma = c(0.2, 0.2, 0.2, 0.2))

chippy <- function(x) sin(cos(x)*exp(-x/2))
par(bg="black")
plot(1, type="n", axes=F, xlab="", ylab="", xlim=c(-8,7), ylim=c(-5,5))
curve(chippy, -8, 7, n = 2001, col="darkorange", lwd=7, add=T)
chippa <-function(x) sin(cos(x)*exp(-x/2))/tan(x)
par(bg="black")
plot(1, type="n", axes=F, xlab="", ylab="", xlim=c(-8,7), ylim=c(-5,5))
curve(chippa, -8, 7, n = 2001, col="chartreuse", lwd=7, add=T)
par(bg="black")
plot(1, type="n", axes=F, xlab="", ylab="", xlim=c(-8,-4), ylim=c(-5,5))
curve(chippa, -8, -4, n = 2001, col="red", lwd=7, add=T)
chippa <-function(x) sin(cos(x)*exp(-x/20))/tan(x)
par(bg="black")
plot(1, type="n", axes=F, xlab="", ylab="", xlim=c(-8,7), ylim=c(-5,5))
curve(chippa, -8, 7, n = 2001, col="darkorchid1", lwd=7, add=T)
chippy <- function(x) sin(cos(x)*exp(x/2))
par(bg="black")
plot(1, type="n", axes=F, xlab="", ylab="", xlim=c(-8,7), ylim=c(-5,5))
curve(chippy, -8, 7, n = 2001, col="cyan", lwd=7, add=T)


# change background for waroll effect
par(mar=c(0,0,0,0), mfrow=c(1,5), oma = c(0,0,0,0))

chippa <- function(x) sin(cos(x)*exp(-x/2))
plot(1, type="n", axes=F, xlab="", ylab="", xlim=c(-8,7), ylim=c(-5,5))
symbols(0,0, squares=c(100), inches=F, fg="white",bg="darkorchid1", add=T)
curve(chippa, -8, 7, n = 2001, col="darkorange",lwd=7, add=T)

chippa <-function(x) sin(cos(x)*exp(-x/2))/tan(x)
plot(1, type="n", axes=F, xlab="", ylab="", xlim=c(-8,7), ylim=c(-5,5))
symbols(0,0, squares=c(100), inches=F, fg="white",bg="red", add=T)
curve(chippa, -8, 7, n = 2001, col="chartreuse", lwd=7, add=T)

plot(1, type="n", axes=F, xlab="", ylab="", xlim=c(-8,-4), ylim=c(-5,5))
symbols(0,0, squares=c(100), inches=F, fg="white",bg="cyan", add=T)
curve(chippa, -8, -4, n = 2001, col="red", lwd=7, add=T)

chippa <-function(x) sin(cos(x)*exp(-x/20))/tan(x)
plot(1, type="n", axes=F, xlab="", ylab="", xlim=c(-8,7), ylim=c(-5,5))
symbols(0,0, squares=c(100), inches=F, fg="white",bg="green", add=T)
curve(chippa, -8, 7, n = 2001, col="darkorchid1", lwd=7, add=T)

chippa <- function(x) sin(cos(x)*exp(x/2))
plot(1, type="n", axes=F, xlab="", ylab="", xlim=c(-8,7), ylim=c(-5,5))
symbols(0,0, squares=c(100), inches=F, fg="white",bg="darkorange", add=T)
curve(chippa, -8, 7, n = 2001, col="cyan", lwd=7, add=T)