## [Maxima-bugs] [ maxima-Bugs-1082010 ] Bug in NTRIG.MAC(?)

 [Maxima-bugs] [ maxima-Bugs-1082010 ] Bug in NTRIG.MAC(?) From: SourceForge.net - 2004-12-10 12:59:56 ```Bugs item #1082010, was opened at 2004-12-09 06:03 Message generated for change (Settings changed) made by vttoth You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=1082010&group_id=4933 Category: Share Libraries Group: None >Status: Closed Resolution: None Priority: 5 Submitted By: FrancoB (franco68tn) Assigned to: Nobody/Anonymous (nobody) Summary: Bug in NTRIG.MAC(?) Initial Comment: Wrong values of trigonometric functions. I suppose that there is a bug in "/share/maxima/5.9.1/share/trigonometry/ntrig.mac". Some values of trigonometric functions are wrong after ntrig.mac has been loaded. Try this: kill(all)\$ postfix("°")\$ x°:=x*%pi/180\$ for i: 0 thru 20 do print("sin(",i*18,"°)","=",float(sin (i*18°)))\$ for i: 0 thru 20 do print("cos(",i*18,"°)","=",float(cos (i*18°)))\$ for i: 0 thru 20 do if not(i = 5 or i = 15) then print("tan (",i*18,"°)","=",float(tan(i*18°))) else print("tan (",i*18,"°) = NOT DEFINED")\$ You will see that the output is okay. Now load ntrig.mac and then re-execute the same instructions: load(ntrig)\$ for i: 0 thru 20 do print("sin(",i*18,"°)","=",float(sin (i*18°)))\$ for i: 0 thru 20 do print("cos(",i*18,"°)","=",float(cos (i*18°)))\$ for i: 0 thru 20 do if not(i = 5 or i = 15) then print("tan (",i*18,"°)","=",float(tan(i*18°))) else print("tan (",i*18,"°) = NOT DEFINED")\$ and you will see a lot of results (sixteen!) with wrong sign! -o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o- Furthermore, these two commands produce different outputs: <1> kill(all)\$ load(ntrig)\$ sin(6*%pi/5),numer; yields the correct result (-0.58778525229247325), <2> kill(all)\$ load(ntrig)\$ sin(6*%pi/5); %,numer; yields the wrong result (0.58778525229247325). Best regards, Franco Buratti (Italy) bufranz@... -------------------------------------------- Maxima version: 5.9.1 Maxima build date: 7:34 9/24/2004 host type: i686-pc-mingw32 lisp-implementation-type: Kyoto Common Lisp lisp-implementation-version: GCL 2.6.5 -------------------------------------------- ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=1082010&group_id=4933 ```

 [Maxima-bugs] [ maxima-Bugs-1082010 ] Bug in NTRIG.MAC(?) From: SourceForge.net - 2004-12-09 11:03:09 ```Bugs item #1082010, was opened at 2004-12-09 12:03 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=1082010&group_id=4933 Category: Share Libraries Group: None Status: Open Resolution: None Priority: 5 Submitted By: FrancoB (franco68tn) Assigned to: Nobody/Anonymous (nobody) Summary: Bug in NTRIG.MAC(?) Initial Comment: Wrong values of trigonometric functions. I suppose that there is a bug in "/share/maxima/5.9.1/share/trigonometry/ntrig.mac". Some values of trigonometric functions are wrong after ntrig.mac has been loaded. Try this: kill(all)\$ postfix("°")\$ x°:=x*%pi/180\$ for i: 0 thru 20 do print("sin(",i*18,"°)","=",float(sin (i*18°)))\$ for i: 0 thru 20 do print("cos(",i*18,"°)","=",float(cos (i*18°)))\$ for i: 0 thru 20 do if not(i = 5 or i = 15) then print("tan (",i*18,"°)","=",float(tan(i*18°))) else print("tan (",i*18,"°) = NOT DEFINED")\$ You will see that the output is okay. Now load ntrig.mac and then re-execute the same instructions: load(ntrig)\$ for i: 0 thru 20 do print("sin(",i*18,"°)","=",float(sin (i*18°)))\$ for i: 0 thru 20 do print("cos(",i*18,"°)","=",float(cos (i*18°)))\$ for i: 0 thru 20 do if not(i = 5 or i = 15) then print("tan (",i*18,"°)","=",float(tan(i*18°))) else print("tan (",i*18,"°) = NOT DEFINED")\$ and you will see a lot of results (sixteen!) with wrong sign! -o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o- Furthermore, these two commands produce different outputs: <1> kill(all)\$ load(ntrig)\$ sin(6*%pi/5),numer; yields the correct result (-0.58778525229247325), <2> kill(all)\$ load(ntrig)\$ sin(6*%pi/5); %,numer; yields the wrong result (0.58778525229247325). Best regards, Franco Buratti (Italy) bufranz@... -------------------------------------------- Maxima version: 5.9.1 Maxima build date: 7:34 9/24/2004 host type: i686-pc-mingw32 lisp-implementation-type: Kyoto Common Lisp lisp-implementation-version: GCL 2.6.5 -------------------------------------------- ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=1082010&group_id=4933 ```
 [Maxima-bugs] [ maxima-Bugs-1082010 ] Bug in NTRIG.MAC(?) From: SourceForge.net - 2004-12-10 12:59:56 ```Bugs item #1082010, was opened at 2004-12-09 06:03 Message generated for change (Settings changed) made by vttoth You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=1082010&group_id=4933 Category: Share Libraries Group: None >Status: Closed Resolution: None Priority: 5 Submitted By: FrancoB (franco68tn) Assigned to: Nobody/Anonymous (nobody) Summary: Bug in NTRIG.MAC(?) Initial Comment: Wrong values of trigonometric functions. I suppose that there is a bug in "/share/maxima/5.9.1/share/trigonometry/ntrig.mac". Some values of trigonometric functions are wrong after ntrig.mac has been loaded. Try this: kill(all)\$ postfix("°")\$ x°:=x*%pi/180\$ for i: 0 thru 20 do print("sin(",i*18,"°)","=",float(sin (i*18°)))\$ for i: 0 thru 20 do print("cos(",i*18,"°)","=",float(cos (i*18°)))\$ for i: 0 thru 20 do if not(i = 5 or i = 15) then print("tan (",i*18,"°)","=",float(tan(i*18°))) else print("tan (",i*18,"°) = NOT DEFINED")\$ You will see that the output is okay. Now load ntrig.mac and then re-execute the same instructions: load(ntrig)\$ for i: 0 thru 20 do print("sin(",i*18,"°)","=",float(sin (i*18°)))\$ for i: 0 thru 20 do print("cos(",i*18,"°)","=",float(cos (i*18°)))\$ for i: 0 thru 20 do if not(i = 5 or i = 15) then print("tan (",i*18,"°)","=",float(tan(i*18°))) else print("tan (",i*18,"°) = NOT DEFINED")\$ and you will see a lot of results (sixteen!) with wrong sign! -o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o- Furthermore, these two commands produce different outputs: <1> kill(all)\$ load(ntrig)\$ sin(6*%pi/5),numer; yields the correct result (-0.58778525229247325), <2> kill(all)\$ load(ntrig)\$ sin(6*%pi/5); %,numer; yields the wrong result (0.58778525229247325). Best regards, Franco Buratti (Italy) bufranz@... -------------------------------------------- Maxima version: 5.9.1 Maxima build date: 7:34 9/24/2004 host type: i686-pc-mingw32 lisp-implementation-type: Kyoto Common Lisp lisp-implementation-version: GCL 2.6.5 -------------------------------------------- ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=1082010&group_id=4933 ```
 [Maxima-bugs] [ maxima-Bugs-1082010 ] Bug in NTRIG.MAC(?) From: SourceForge.net - 2004-12-10 13:12:04 ```Bugs item #1082010, was opened at 2004-12-09 06:03 Message generated for change (Comment added) made by vttoth You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=1082010&group_id=4933 Category: Share Libraries Group: None Status: Closed Resolution: None Priority: 5 Submitted By: FrancoB (franco68tn) Assigned to: Nobody/Anonymous (nobody) Summary: Bug in NTRIG.MAC(?) Initial Comment: Wrong values of trigonometric functions. I suppose that there is a bug in "/share/maxima/5.9.1/share/trigonometry/ntrig.mac". Some values of trigonometric functions are wrong after ntrig.mac has been loaded. Try this: kill(all)\$ postfix("°")\$ x°:=x*%pi/180\$ for i: 0 thru 20 do print("sin(",i*18,"°)","=",float(sin (i*18°)))\$ for i: 0 thru 20 do print("cos(",i*18,"°)","=",float(cos (i*18°)))\$ for i: 0 thru 20 do if not(i = 5 or i = 15) then print("tan (",i*18,"°)","=",float(tan(i*18°))) else print("tan (",i*18,"°) = NOT DEFINED")\$ You will see that the output is okay. Now load ntrig.mac and then re-execute the same instructions: load(ntrig)\$ for i: 0 thru 20 do print("sin(",i*18,"°)","=",float(sin (i*18°)))\$ for i: 0 thru 20 do print("cos(",i*18,"°)","=",float(cos (i*18°)))\$ for i: 0 thru 20 do if not(i = 5 or i = 15) then print("tan (",i*18,"°)","=",float(tan(i*18°))) else print("tan (",i*18,"°) = NOT DEFINED")\$ and you will see a lot of results (sixteen!) with wrong sign! -o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o- Furthermore, these two commands produce different outputs: <1> kill(all)\$ load(ntrig)\$ sin(6*%pi/5),numer; yields the correct result (-0.58778525229247325), <2> kill(all)\$ load(ntrig)\$ sin(6*%pi/5); %,numer; yields the wrong result (0.58778525229247325). Best regards, Franco Buratti (Italy) bufranz@... -------------------------------------------- Maxima version: 5.9.1 Maxima build date: 7:34 9/24/2004 host type: i686-pc-mingw32 lisp-implementation-type: Kyoto Common Lisp lisp-implementation-version: GCL 2.6.5 -------------------------------------------- ---------------------------------------------------------------------- Comment By: Viktor Toth (vttoth) Date: 2004-12-10 08:11 Message: Logged In: YES user_id=1023504 The reported bug is not present in the current version of cvs. Thank you for your report. If you see this bug in a later version of Maxima, please submit a new bug report. ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=1082010&group_id=4933 ```
 [Maxima-bugs] [ maxima-Bugs-1082010 ] Bug in NTRIG.MAC(?) From: SourceForge.net - 2006-07-10 05:04:33 ```Bugs item #1082010, was opened at 2004-12-09 04:03 Message generated for change (Comment added) made by robert_dodier You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=1082010&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: Share Libraries Group: None Status: Closed >Resolution: Fixed Priority: 5 Submitted By: FrancoB (franco68tn) Assigned to: Nobody/Anonymous (nobody) Summary: Bug in NTRIG.MAC(?) Initial Comment: Wrong values of trigonometric functions. I suppose that there is a bug in "/share/maxima/5.9.1/share/trigonometry/ntrig.mac". Some values of trigonometric functions are wrong after ntrig.mac has been loaded. Try this: kill(all)\$ postfix("°")\$ x°:=x*%pi/180\$ for i: 0 thru 20 do print("sin(",i*18,"°)","=",float(sin (i*18°)))\$ for i: 0 thru 20 do print("cos(",i*18,"°)","=",float(cos (i*18°)))\$ for i: 0 thru 20 do if not(i = 5 or i = 15) then print("tan (",i*18,"°)","=",float(tan(i*18°))) else print("tan (",i*18,"°) = NOT DEFINED")\$ You will see that the output is okay. Now load ntrig.mac and then re-execute the same instructions: load(ntrig)\$ for i: 0 thru 20 do print("sin(",i*18,"°)","=",float(sin (i*18°)))\$ for i: 0 thru 20 do print("cos(",i*18,"°)","=",float(cos (i*18°)))\$ for i: 0 thru 20 do if not(i = 5 or i = 15) then print("tan (",i*18,"°)","=",float(tan(i*18°))) else print("tan (",i*18,"°) = NOT DEFINED")\$ and you will see a lot of results (sixteen!) with wrong sign! -o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o- Furthermore, these two commands produce different outputs: <1> kill(all)\$ load(ntrig)\$ sin(6*%pi/5),numer; yields the correct result (-0.58778525229247325), <2> kill(all)\$ load(ntrig)\$ sin(6*%pi/5); %,numer; yields the wrong result (0.58778525229247325). Best regards, Franco Buratti (Italy) bufranz@... -------------------------------------------- Maxima version: 5.9.1 Maxima build date: 7:34 9/24/2004 host type: i686-pc-mingw32 lisp-implementation-type: Kyoto Common Lisp lisp-implementation-version: GCL 2.6.5 -------------------------------------------- ---------------------------------------------------------------------- >Comment By: Robert Dodier (robert_dodier) Date: 2006-07-09 23:04 Message: Logged In: YES user_id=501686 Assign resolution = fixed. ---------------------------------------------------------------------- Comment By: Viktor Toth (vttoth) Date: 2004-12-10 06:11 Message: Logged In: YES user_id=1023504 The reported bug is not present in the current version of cvs. Thank you for your report. If you see this bug in a later version of Maxima, please submit a new bug report. ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=1082010&group_id=4933 ```