#
# Generating png of the Julia set
# C is 1 minus the golden ratio
#
imageN <- 5; # increase this to see images
centre <- 0.0
L <- 4.0
C <- 1i-1.6180339887;# Golden Ratio
image <- JuliaImage(imageN,centre,L,C);
#library(png)
#file <- "julia1.png"
#writePNG(image,file); # possible visulation
#
# Generating png of the Julia set
# different coefficient.
#
imageN <- 5; # increase this to see images
centre <- 0.0
L <- 4.0
C <- -0.70176-0.3842i
image <- JuliaImage(imageN,centre,L,C);
#library(png)
#file <- "julia2.png"
#writePNG(image,file); # possible visulation
Run the code above in your browser using DataLab