-
Notifications
You must be signed in to change notification settings - Fork 99
/
sierpinski.Rmd
25 lines (20 loc) · 708 Bytes
/
sierpinski.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
---
title: "R Notebook"
output:
html_document:
df_print: paged
---
```{r, echo=FALSE}
if (!require("gifski", quietly=TRUE)) install.packages("gifski")
depth = 15
```
# Sierpiński triangle
> The **Sierpinski triangle** (also with the original orthography Sierpiński), also called the **Sierpinski gasket** or **Sierpinski sieve**, is a fractal attractive fixed set with the overall shape of an equilateral triangle, subdivided recursively into smaller equilateral triangles.
```{r}
sierpinski.df <- generateSierpinski(rows = 2^depth)
```
```{r, animation.hook="gifski"}
for (draw.depth in seq_len(depth)) {
plot(sierpinski.df[seq_len(2^draw.depth), ], ylim=c(0, 1), xlim=c(0, 1), pch=".")
}
```