PROJECT_LANG_1.rda

Git-Templates/ProjectLanguageFiles/Artificial-Intelligence/AI2001/AI2001_Categories/Linguistics/!SC/Lushootseed/R/PROJECT_LANG_1.rda

@@ -0,0 +1,32 @@
+#!/usr/bin/env Rscript
+# Project language file 1
+# For: AI2001/Categories/Linguistics/Lushootseed
+# About
+# I decided to make R the 1st and main project language file for this project (AI2001/Categories/Linguistics/Lushootseed) as R is the perfect language to use for data mining and related Artificial Intelligence work, but will be backed up with Python, among other languages. For data sets, R will be the main language, and RMarkdown will be a supporting language. It is getting its own project language file, starting here.
+
+# Now time for a Mandelbrot (From Wikipedia/wiki/R/)
+
+install.packages("caTools")  # install external package
+library(caTools)             # external package providing write.gif function
+jet.colors <- colorRampPalette(c("red", "blue", "#007FFF", "cyan", "#7FFF7F",
+                                 "yellow", "#FF7F00", "red", "#7F0000"))
+dx <- 1500                    # define width
+dy <- 1400                    # define height
+C  <- complex(real = rep(seq(-2.2, 1.0, length.out = dx), each = dy),
+              imag = rep(seq(-1.2, 1.2, length.out = dy), dx))
+C <- matrix(C, dy, dx)       # reshape as square matrix of complex numbers
+Z <- 0                       # initialize Z to zero
+X <- array(0, c(dy, dx, 20)) # initialize output 3D array
+for (k in 1:20) {            # loop with 20 iterations
+  Z <- Z^2 + C               # the central difference equation
+  X[, , k] <- exp(-abs(Z))   # capture results
+}
+write.gif(X, "Mandelbrot.gif", col = jet.colors, delay = 100)
+
+# File info
+
+# File type: R Source file (*.r *.rdata *.rds *.rda)
+# File version: 1 (2023, Thursday, July 20th at 12:27 pm PST)
+# Line count (including blank lines and compiler line): 33
+
+# End of script