fork download
  1. let tabbed f lo hi =
  2. seq { lo .. (hi-lo)/20. .. hi }
  3. |> Seq.iter (fun x -> printfn "f(%A) \t= %A" x (f x))
  4.  
  5. printfn "------ Sin ------"
  6. tabbed sin 0.0 1.59
  7. printfn "------ Abs ------"
  8. tabbed abs -5. 5.
  9. printfn "------ x^2 ------"
  10. tabbed (fun x -> x * x) -5. 5.
Success #stdin #stdout 0.2s 26392KB
stdin
Standard input is empty
stdout
------ Sin ------
f(0.0) 	= 0.0
f(0.0795) 	= 0.07941628315
f(0.159) 	= 0.1583308998
f(0.2385) 	= 0.2362453526
f(0.318) 	= 0.3126674619
f(0.3975) 	= 0.3871144753
f(0.477) 	= 0.4591161168
f(0.5565) 	= 0.5282175576
f(0.636) 	= 0.5939822893
f(0.7155) 	= 0.6559948813
f(0.795) 	= 0.7138636049
f(0.8745) 	= 0.7672229079
f(0.954) 	= 0.8157357236
f(1.0335) 	= 0.8590956005
f(1.113) 	= 0.8970286376
f(1.1925) 	= 0.9292952148
f(1.272) 	= 0.9556915067
f(1.3515) 	= 0.97605077
f(1.431) 	= 0.9902443969
f(1.5105) 	= 0.9981827272
f(1.59) 	= 0.9998156151
------ Abs ------
f(-5.0) 	= 5.0
f(-4.5) 	= 4.5
f(-4.0) 	= 4.0
f(-3.5) 	= 3.5
f(-3.0) 	= 3.0
f(-2.5) 	= 2.5
f(-2.0) 	= 2.0
f(-1.5) 	= 1.5
f(-1.0) 	= 1.0
f(-0.5) 	= 0.5
f(0.0) 	= 0.0
f(0.5) 	= 0.5
f(1.0) 	= 1.0
f(1.5) 	= 1.5
f(2.0) 	= 2.0
f(2.5) 	= 2.5
f(3.0) 	= 3.0
f(3.5) 	= 3.5
f(4.0) 	= 4.0
f(4.5) 	= 4.5
f(5.0) 	= 5.0
------ x^2 ------
f(-5.0) 	= 25.0
f(-4.5) 	= 20.25
f(-4.0) 	= 16.0
f(-3.5) 	= 12.25
f(-3.0) 	= 9.0
f(-2.5) 	= 6.25
f(-2.0) 	= 4.0
f(-1.5) 	= 2.25
f(-1.0) 	= 1.0
f(-0.5) 	= 0.25
f(0.0) 	= 0.0
f(0.5) 	= 0.25
f(1.0) 	= 1.0
f(1.5) 	= 2.25
f(2.0) 	= 4.0
f(2.5) 	= 6.25
f(3.0) 	= 9.0
f(3.5) 	= 12.25
f(4.0) 	= 16.0
f(4.5) 	= 20.25
f(5.0) 	= 25.0