From: SourceForge.net <no...@so...> - 2003-07-14 23:50:09
|
Bugs item #771301, was opened at 2003-07-14 19:50 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=771301&group_id=4933 Category: None Group: None Status: Open Resolution: None Priority: 5 Submitted By: Stavros Macrakis (macrakis) Assigned to: Nobody/Anonymous (nobody) Summary: trigrat(sin(1)) internal error /FIX Initial Comment: trigrat(sin(1)) => Error: $%I is not of type LIST. Fix: in $listofei (trigrat.lisp), replace (cond ((and (CONSP VAR) (CONSP (CAR VAR)) (equal (caar var) 'mexpt) (equal (cadr var) '$%e) (equal (caaaddr var) 'mtimes) (equal (cadaddr var) '$%i)) (setq $lexp (cons var $lexp)) ... with (cond ((and (mexptp var) (equal (cadr var) '$%e) (mtimesp (caddr var)) (eq (cadr (caddr var)) '$%i)) (setq $lexp (cons var $lexp)) ... ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=771301&group_id=4933 |
From: SourceForge.net <no...@so...> - 2003-08-02 14:19:41
|
Bugs item #771301, was opened at 2003-07-14 19:50 Message generated for change (Comment added) made by rtoy You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=771301&group_id=4933 Category: None Group: None Status: Open Resolution: None Priority: 5 Submitted By: Stavros Macrakis (macrakis) Assigned to: Nobody/Anonymous (nobody) Summary: trigrat(sin(1)) internal error /FIX Initial Comment: trigrat(sin(1)) => Error: $%I is not of type LIST. Fix: in $listofei (trigrat.lisp), replace (cond ((and (CONSP VAR) (CONSP (CAR VAR)) (equal (caar var) 'mexpt) (equal (cadr var) '$%e) (equal (caaaddr var) 'mtimes) (equal (cadaddr var) '$%i)) (setq $lexp (cons var $lexp)) ... with (cond ((and (mexptp var) (equal (cadr var) '$%e) (mtimesp (caddr var)) (eq (cadr (caddr var)) '$%i)) (setq $lexp (cons var $lexp)) ... ---------------------------------------------------------------------- >Comment By: Raymond Toy (rtoy) Date: 2003-08-02 10:19 Message: Logged In: YES user_id=28849 If I do this, trigrat(sin(1)) returns -(%I*(SIN(1)*SIN(2)+COS(1)*COS(2)-COS(1)) -COS(1)*SIN(2)+SIN(1)*COS(2)-SIN(1)) /(2*SIN(1)^2+2*COS(1)^2) Is that really right? (The numerical value is right.) ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=771301&group_id=4933 |
From: SourceForge.net <no...@so...> - 2003-08-02 14:27:30
|
Bugs item #771301, was opened at 2003-07-14 19:50 Message generated for change (Comment added) made by macrakis You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=771301&group_id=4933 Category: None Group: None Status: Open Resolution: None Priority: 5 Submitted By: Stavros Macrakis (macrakis) Assigned to: Nobody/Anonymous (nobody) Summary: trigrat(sin(1)) internal error /FIX Initial Comment: trigrat(sin(1)) => Error: $%I is not of type LIST. Fix: in $listofei (trigrat.lisp), replace (cond ((and (CONSP VAR) (CONSP (CAR VAR)) (equal (caar var) 'mexpt) (equal (cadr var) '$%e) (equal (caaaddr var) 'mtimes) (equal (cadaddr var) '$%i)) (setq $lexp (cons var $lexp)) ... with (cond ((and (mexptp var) (equal (cadr var) '$%e) (mtimesp (caddr var)) (eq (cadr (caddr var)) '$%i)) (setq $lexp (cons var $lexp)) ... ---------------------------------------------------------------------- >Comment By: Stavros Macrakis (macrakis) Date: 2003-08-02 10:27 Message: Logged In: YES user_id=588346 Trigrat does some ugly things. I am not sure what it is *supposed* to return for sin(1) -- perhaps sin(1)? -- but at least (1) what it does return is correct and (2) it doesn't give an error. ---------------------------------------------------------------------- Comment By: Raymond Toy (rtoy) Date: 2003-08-02 10:19 Message: Logged In: YES user_id=28849 If I do this, trigrat(sin(1)) returns -(%I*(SIN(1)*SIN(2)+COS(1)*COS(2)-COS(1)) -COS(1)*SIN(2)+SIN(1)*COS(2)-SIN(1)) /(2*SIN(1)^2+2*COS(1)^2) Is that really right? (The numerical value is right.) ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=771301&group_id=4933 |
From: SourceForge.net <no...@so...> - 2003-08-03 12:20:28
|
Bugs item #771301, was opened at 2003-07-14 19:50 Message generated for change (Comment added) made by rtoy You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=771301&group_id=4933 Category: None Group: None >Status: Closed >Resolution: Fixed Priority: 5 Submitted By: Stavros Macrakis (macrakis) Assigned to: Nobody/Anonymous (nobody) Summary: trigrat(sin(1)) internal error /FIX Initial Comment: trigrat(sin(1)) => Error: $%I is not of type LIST. Fix: in $listofei (trigrat.lisp), replace (cond ((and (CONSP VAR) (CONSP (CAR VAR)) (equal (caar var) 'mexpt) (equal (cadr var) '$%e) (equal (caaaddr var) 'mtimes) (equal (cadaddr var) '$%i)) (setq $lexp (cons var $lexp)) ... with (cond ((and (mexptp var) (equal (cadr var) '$%e) (mtimesp (caddr var)) (eq (cadr (caddr var)) '$%i)) (setq $lexp (cons var $lexp)) ... ---------------------------------------------------------------------- >Comment By: Raymond Toy (rtoy) Date: 2003-08-03 08:20 Message: Logged In: YES user_id=28849 Suggested fix applied. ---------------------------------------------------------------------- Comment By: Stavros Macrakis (macrakis) Date: 2003-08-02 10:27 Message: Logged In: YES user_id=588346 Trigrat does some ugly things. I am not sure what it is *supposed* to return for sin(1) -- perhaps sin(1)? -- but at least (1) what it does return is correct and (2) it doesn't give an error. ---------------------------------------------------------------------- Comment By: Raymond Toy (rtoy) Date: 2003-08-02 10:19 Message: Logged In: YES user_id=28849 If I do this, trigrat(sin(1)) returns -(%I*(SIN(1)*SIN(2)+COS(1)*COS(2)-COS(1)) -COS(1)*SIN(2)+SIN(1)*COS(2)-SIN(1)) /(2*SIN(1)^2+2*COS(1)^2) Is that really right? (The numerical value is right.) ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=771301&group_id=4933 |