Numerical integration/Gauss-Legendre Quadrature: Difference between revisions

m
→‎version 3, more precision: got proactive concerning the last decimal digit of pi being shown.
m (→‎version 2: changed the header (output) information.)
m (→‎version 3, more precision: got proactive concerning the last decimal digit of pi being shown.)
Line 2,059:
/*───────────────────────────────────────────────────────────────────────────────────────────*/
pi: return 3.14159265358979323846264338327950288419716939937510582097494459230781640628620899,
|| 8628034825342117067982148086513282306647093844609550582231725359408128481117450
|| 862803482534211706798214808651328230664709384460955058223172535940812848111745
/*───────────────────────────────────────────────────────────────────────────────────────────*/
cos: procedure expose !.; parse arg x; if !.x\==. then return !.x; _=1; z=1; y=x*x