Anonymous user
Numerical integration/Gauss-Legendre Quadrature: Difference between revisions
Numerical integration/Gauss-Legendre Quadrature (view source)
Revision as of 00:23, 2 November 2013
, 10 years ago→version 2: optimized the COS subroutine. -- ~~~~
m (→version 2: simplfied the prologue stuff. -- ~~~~) |
m (→version 2: optimized the COS subroutine. -- ~~~~) |
||
Line 1,277:
/*▒*/ end /*m*/
z=bmaH*sum
say right(step,4) format(z,2,digs) translate(format(z-true
end /*step*/
Line 1,283:
exit /*stick a fork in it, we're done.*/
/*──────────────────────────────────COS subroutine──────────────────────*/
cos: procedure; x=r2r(arg(1));
/*──────────────────────────────────E subroutine──────────────────────────────────────*/
e: return 2.7182818284590452353602874713526624977572470936999595749669676277240766303535
|