Anonymous user
Numerical integration/Gauss-Legendre Quadrature: Difference between revisions
Numerical integration/Gauss-Legendre Quadrature (view source)
Revision as of 11:30, 30 October 2013
, 10 years agoredundant statement deleted
(Initial implementation of PL/I.) |
m (redundant statement deleted) |
||
Line 342:
do i = 1, n
x = cos(pi*(i-0.25_p)/(n+0.5_p))
do iter = 1, 10
f = p1(1); df = 0._p
|