open Impact
clear()
let log3 (x) = log10(x)/log10(3.0)
let log9 (x) = log10(x)/log10(9.0)
origin (0.0,0.0)
x <- 0.0
y <- 1.0 
while x < 200. do
    dot (x,log3(y)) blue
    dot (x,log9(y)) red
    x <- x + 1.
    y <- y * 9.0

open Impact
clear()
let log3 (x) = log10(x)/log10(3.0)
let log9 (x) = log10(x)/log10(9.0)
origin (0.0,0.0)
x <- 0.0
y <- 1.0 
while x < 200. do
    dot (x,log3(y)) blue
//    dot (x,log9(y)) red
    x <- x + 1.
    y <- y * 2.0

open Impact
clear()
let log3 (x) = log10(x)/log10(3.0)
let log9 (x) = log10(x)/log10(9.0)
origin (0.0,0.0)
x <- 0.0
y <- 1.0 
while x < 200. do
    dot (x,log3(y)) blue
//    dot (x,log9(y)) red
    x <- x + 1.
    y <- y * 5.0

open Impact
clear()
let log3 (x) = log10(x)/log10(3.0)
let log9 (x) = log10(x)/log10(9.0)
origin (0.0,100.0)
x <- 0.0
y <- 1.0 
while x < 200. do
    dot (x,log3(y)) blue
//    dot (x,log9(y)) red
    x <- x + 1.
    y <- y * 0.5

open Impact
clear()
let log3 (x) = log10(x)/log10(3.0)
let log9 (x) = log10(x)/log10(9.0)
origin (0.0,100.0)
x <- 0.0
y <- 10.**6.
while x < 200. do
    dot (x,log3(y)) blue
//    dot (x,log9(y)) red
    x <- x + 1.
    y <- y * 0.5

open Impact
clear()
let log3 (x) = log10(x)/log10(3.0)
let log9 (x) = log10(x)/log10(9.0)
origin (0.0,100.0)
x <- 0.0
y <- 1./(10.**6.)
while x < 200. do
    dot (x,log3(y)) blue
//    dot (x,log9(y)) red
    x <- x + 1.
    y <- y * 0.5

open Impact
clear()
let log3 (x) = log10(x)/log10(3.0)
let log9 (x) = log10(x)/log10(9.0)
let lizard (x) = 3.**monster(x)
origin (0.0,100.0)
x <- 0.0
while x < 200. do
    dot (x,monster(x)) red
    dot (x,log3(lizard(x))) blue
    x <- x + 1.

open Impact
clear()
let log3 (x) = log10(x)/log10(3.0)
let log9 (x) = log10(x)/log10(9.0)
let lizard (x) = (10.**6.)*3.**monster(x)
origin (0.0,100.0)
x <- 0.0
while x < 200. do
    dot (x,monster(x)) red
    dot (x,log3(lizard(x))) blue
    x <- x + 1.

open Impact
clear()
let log3 (x) = log10(x)/log10(3.0)
let log9 (x) = log10(x)/log10(9.0)
let lizard (x) = (10.**6.)*3.**monster(x)
origin (0.0,100.0)
x <- 0.0
while x < 200. do
    dot (x,monster(x)) red
    dot (x,log3(lizard(x)/(10.**6.))) blue
    x <- x + 1.

HOMEWORK: How do you change lizard so the blue and red graphs line up again?  All changes have to be inside the log3 command
1.
open Impact
clear()
let log3 (x) = log10(x)/log10(3.0)
let log9 (x) = log10(x)/log10(9.0)
let lizard (x) = 3.**(monster(x)-10.)
origin (0.0,100.0)
x <- 0.0
while x < 200. do
    dot (x,monster(x)) red
    dot (x,log3(lizard(x)????)) blue
    x <- x + 1.

2.
open Impact
clear()
let log3 (x) = log10(x)/log10(3.0)
let log9 (x) = log10(x)/log10(9.0)
let lizard (x) = 3.**(monster(x)+20.)
origin (0.0,100.0)
x <- 0.0
while x < 200. do
    dot (x,monster(x)) red
    dot (x,log3(lizard(x)????)) blue
    x <- x + 1.

3.
open Impact
clear()
let log3 (x) = log10(x)/log10(3.0)
let log9 (x) = log10(x)/log10(9.0)
let lizard (x) = (3.**(monster(x)))**2.
origin (0.0,100.0)
x <- 0.0
while x < 200. do
    dot (x,monster(x)) red
    dot (x,log3(lizard(x)????)) blue
    x <- x + 1.