From: SourceForge.net <no...@so...> - 2006-02-13 01:10:35
|
Bugs item #1430379, was opened at 2006-02-12 19:10 Message generated for change (Tracker Item Submitted) made by Item Submitter You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=1430379&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: Open Resolution: None Priority: 5 Submitted By: Barton Willis (willisbl) Assigned to: Nobody/Anonymous (nobody) Summary: algsys & algebraic == true Initial Comment: (%o7) [b*c+a^2-a,b*d+a*b-b,c*d+a*c-c,d^2-d+b*c] (%i8) algsys(%,[a,b,c,d]); Maxima encountered a Lisp error: (%i9) algsys(%o7,[a,b,c,d]),algebraic : true; (%o9) [[a=-(sqrt(1-4*%r7*%r8)-1)/2, ...]] Would it be OK to have algsys (or maybe just resultant) set algebraic to true? Barton ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=1430379&group_id=4933 |
From: SourceForge.net <no...@so...> - 2006-02-13 11:09:54
|
Bugs item #1430379, was opened at 2006-02-12 19:10 Message generated for change (Comment added) made by willisbl You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=1430379&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: Open Resolution: None Priority: 5 Submitted By: Barton Willis (willisbl) Assigned to: Nobody/Anonymous (nobody) Summary: algsys & algebraic == true Initial Comment: (%o7) [b*c+a^2-a,b*d+a*b-b,c*d+a*c-c,d^2-d+b*c] (%i8) algsys(%,[a,b,c,d]); Maxima encountered a Lisp error: (%i9) algsys(%o7,[a,b,c,d]),algebraic : true; (%o9) [[a=-(sqrt(1-4*%r7*%r8)-1)/2, ...]] Would it be OK to have algsys (or maybe just resultant) set algebraic to true? Barton ---------------------------------------------------------------------- >Comment By: Barton Willis (willisbl) Date: 2006-02-13 05:09 Message: Logged In: YES user_id=895922 Proposed fix: (defmfun $resultant (a b mainvar) (prog (varlist formflag $ratfac res ans genvar $keepfloat $algebraic) (setq varlist (list mainvar) $ratfac t ans 1 $algebraic t) It seems to fix the problem: (%o9) [b*c+a^2-a,b*d+a*b-b,c*d+a*c-c,d^2-d+b*c] (%i10) algsys(%,[a,b,c,d]); (%o10) [[a=-(sqrt(1-4*%r7*%r8)-1)/2,b=%r7 Barton ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=1430379&group_id=4933 |