From be04133fdef547dd98a2ba1da35510399ba33b6a Mon Sep 17 00:00:00 2001 From: malc Date: Sat, 13 Apr 2013 23:03:44 +0400 Subject: [PATCH] Should have done that in the first place --- main.ml | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/main.ml b/main.ml index 530ccf3..47aed4f 100644 --- a/main.ml +++ b/main.ml @@ -1889,9 +1889,8 @@ let gotoghyll y = in snake f a b and summa f n a b = - (* courtesy: - http://integrals.wolfram.com/index.jsp?expr=3x%5E2-2x%5E3&random=false *) - let iv x = -.((-.2.0 +. x)*.x**3.0)/.2.0 in + (* courtesy: (calc-eval "integ(3x^2-2x^3,x)") *) + let iv x = x**3.-.0.5*.x**4. in let iv1 = iv f in let ins = float a *. iv1 and outs = float (n-b) *. iv1 in -- 2.11.4.GIT