Anonymous user
Numerical integration: Difference between revisions
Added PicoLisp
(→{{header|MATLAB}}: Changed the solution to conform with the task specs and added a more detailed example of how to use the solution functions) |
(Added PicoLisp) |
||
Line 1,300:
end integrals;
</lang>
=={{header|PicoLisp}}==
<lang PicoLisp>(load "@lib/math.l")
(de leftRect (Fun X)
(Fun X) )
(de rightRect (Fun X H)
(Fun (+ X H)) )
(de midRect (Fun X H)
(Fun (+ X (/ H 2))) )
(de trapezium (Fun X H)
(/ (+ (Fun X) (Fun (+ X H))) 2) )
(de simpson (Fun X H)
(*/
(+
(Fun X)
(* 4 (Fun (+ X (/ H 2))))
(Fun (+ X H)) )
6 ) )
(de square (X)
(*/ X X 1.0) )
(de integrate (Fun From To Steps Meth)
(let (H (/ (- To From) Steps) Sum 0)
(for (X From (>= (- To H) X) (+ X H))
(inc 'Sum (Meth Fun X H)) )
(*/ H Sum 1.0) ) )
(prinl (round (integrate square 3.0 7.0 30 simpson) 3))</lang>
Output:
<pre>105.333</pre>
=={{header|Python}}==
| |||