iMPaCT try f#‎ > ‎

powers-and-inverse-powers



let pow2(a) = 2.**a
let pow3(a) = 3.**a
let pow4(a) = 4.**a
let pow5(a) = 5.**a
let pow9(a) = 9.**a 
let pow25(a) = 25.**a
let pow27(a) = 27.**a
let pow81(a) = 81.**a
let ipow2(a) = log(a)/log(2.)
let ipow3(a) = log(a)/log(3.)
let ipow4(a) = log(a)/log(4.)
let ipow5(a) = log(a)/log(5.)
let ipow9(a) = log(a)/log(9.)
let ipow25(a) = log(a)/log(25.)
let ipow27(a) = log(a)/log(27.)
let ipow81(a) = log(a)/log(81.)

open Impact
clear() 
x <- 0. 
while x < 200. do 
  dot (x, pow3(x) / (3. ** 30.) ) green 
  x <- x + 1.

 

 

Comments