Session 03

6 Constant sum (CSMM)

a)

fn_csmm_a_y <- function(x) {13 - x}
a_x_csmm <- 0:13
a_y_csmm <- a_x_csmm %>% map_dbl(fn_csmm_a_y)
ggplotly(tibble(x=a_x_csmm,y=a_y_csmm) %>% ggplot(aes(x,y)) +
  geom_line()
)

b)

fn_csmm_b_y <- function(x) {55001 - x}
b_x_csmm <- 0:55001
b_y_csmm <- b_x_csmm %>% map_dbl(fn_csmm_b_y)
ggplotly(tibble(x=b_x_csmm,y=b_y_csmm) %>% ggplot(aes(x,y)) +
  geom_line()
)

7) Constant Product (CPMM)

a)

fn_cpmm_a_y <- function(x) {3000/x}
a_x_cpmm <- 1:300
a_y_cpmm <- a_x_cpmm %>% map_dbl(fn_cpmm_a_y)
ggplotly(tibble(x=a_x_cpmm,y=a_y_cpmm) %>% ggplot(aes(x,y)) +
  geom_line())

b)

fn_cpmm_b_y <- function(x) {10000/x}
b_x_cpmm <- 0:1000
b_y_cpmm <- b_x_cpmm %>% map_dbl(fn_cpmm_b_y)
ggplotly(tibble(x=b_x_cpmm,y=b_y_cpmm) %>% ggplot(aes(x,y)) +
  geom_line())

8) Constant Function (CFMM)

fn_cfmm_y <- function(x) {(75000-x^2)/5}
x_cfmm <- 0:273
y_cfmm <- x_cfmm %>% map_dbl(fn_cfmm_y)
ggplotly(tibble(x=x_cfmm,y=y_cfmm) %>% ggplot(aes(x,y)) +
  geom_line())