[Maxima-bugs] [ maxima-Bugs-1805179 ] fatal error: Integral calculation failure

[SourceForge.net <no...@so...>]

Bugs item #1805179, was opened at 2007-09-30 13:36
Message generated for change (Comment added) made by dgildea
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=104933&aid=1805179&group_id=4933

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: None
Group: None
>Status: Closed
>Resolution: Fixed
Priority: 5
Private: No
Submitted By: Nobody/Anonymous (nobody)
Assigned to: Nobody/Anonymous (nobody)
Summary: fatal error: Integral calculation failure

Initial Comment:
(%i1) f(x):=sin(x);
(%o1)                           f(x) := sin(x)
(%i2) xx: create_list(i, i, 0, 3);
(%o2)                            [0, 1, 2, 3]
(%i3) fi(x):= quad_qags(f(xx), xx, 0, x);
(%o3)                 fi(x) := quad_qags(f(xx), xx, 0, x)
(%i4) maplist(lambda([L], fi(L)), xx);

Maxima encountered a Lisp error:

 Error in PROGN [or a callee]: Caught fatal error [memory may be damaged]

Automatically continuing.
To reenable the Lisp debugger set *debugger-hook* to nil.
(%i5) maplist(lambda([L], fi(L)), xx);
Segmentation fault

-------------------------------------------------------

Additional information:

Maxima version: 5.13.0
Maxima build date: 1:22 9/30/2007
host type: i686-pc-linux-gnu
lisp-implementation-type: GNU Common Lisp (GCL)
lisp-implementation-version: GCL 2.6.7

-------------------------------------------------------

I've found that everything works fine if assign %i2 statement to a variable with another name. But I still belive that it's an error.

----------------------------------------------------------------------

>Comment By: Dan Gildea (dgildea)
Date: 2007-10-02 05:15

Message:
Logged In: YES 
user_id=1797506
Originator: NO

error checking added in quadpack.lisp rev 1.9


(%i1) quad_qags(sin(x), [0,1,2,3], 0, 10);
Variable of integration not a variable: [0, 1, 2, 3]
 -- an error.  To debug this try debugmode(true);

(%i2) f(x):=sin(x);
(%o2)                           f(x) := sin(x)
(%i3) xx: create_list(i, i, 0, 3);
(%o3)                            [0, 1, 2, 3]
(%i4)  fi(x):= quad_qags(f(xx), xx, 0, x);
(%o4)                 fi(x) := quad_qags(f(xx), xx, 0, x)
(%i5) maplist(lambda([L], fi(L)), xx);
Variable of integration not a variable: [0, 1, 2, 3]
#0: fi(x=0)
#1: lambda([L],fi(L))(l=0)
 -- an error.  To debug this try debugmode(true);


----------------------------------------------------------------------

Comment By: Barton Willis (willisbl)
Date: 2007-10-02 03:46

Message:
Logged In: YES 
user_id=895922
Originator: NO

Change the definition of fi to 

   fi(x) := quad_qags(f('xx), 'xx, 0, x)

This should fix the problem. Without the quote on x, the
function is

  fi(x) := quad_qags(f([0,1,2]),[0,1,2],x)

And that's not right. For this definition of fi, Maxima 
shouldn't give a Lisp error. That's a bug, I suppose.


----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=104933&aid=1805179&group_id=4933