open Impact let redLine(a, b ,m, xlen) = let mutable x = a-xlen let mutable xend = a+xlen let mutable y = b-xlen*m while (x < xend) do dot(x,y) red x <- x + 0.5 y <- y + m*0.5 dot(a,b) black clear() let f(x) = (((x-100.0)/10.0)**2.0) let fprime(x,h) = (f(x+h) - f(x)) / h x <- 0.0 while x < 200.0 do dot(x,f(x)) pink x <- x + 1.0 h <- 1.0 x <- 0.0 while (x < 200.0) do dot(x,fprime(x,h)*10.0) red m <- fprime(x,h) //redLine(x,f(x),m,h*2.0) //dot(x,f(x)) black x <- x + 1.0