let tabbed f lo hi = seq { lo .. (hi-lo)/20. .. hi } |> Seq.iter (fun x -> printfn "f(%A) \t= %A" x (f x)) printfn "------ Sin ------" printfn "------ Abs ------" printfn "------ x^2 ------" tabbed (fun x -> x * x) -5. 5.
Standard input is empty
------ 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