rtoy / maxima

A Clone of Maxima's repo
Other
0 stars 0 forks source link

bug in wxMaxima 19.01 but NOT in wxMaxima 13.04 #3474

Open rtoy opened 2 months ago

rtoy commented 2 months ago

Imported from SourceForge on 2024-07-08 01:47:08 Created by zmth on 2019-07-16 01:31:15 Original: https://sourceforge.net/p/maxima/bugs/3567


/ ,vc(j1,m1,j2,m2,j):=block([t],if j<abs(j1-j2) or j>j1+j2 or j<abs(m1+m2) then return(0) else(t:(-1)^m1 sqrt(factor( /(2j+1)(j1+j2-j)!/(j1-m1)!(j2-m2)!(j+m1+m2)!(j-m1-m2)! /(/(j+j1+j2+1)!(j +j1-j2)!(j-j1+j2)!/(j1+m1)!(j2+m2)!)))sum((-1)^s(j1+m1+s)!(j2+j-m1-s)! /( s!(j1-m1-s)! (j-m1-m2-s)!(j2-j+m1+s)! ),s,max(0,j-j2-m1), min(j1-m1,j-m1-m2)),return(t))/end else/ )/end blk/ */

in version 19.01 gives incorrect error message in red: Refusing to send cell to maxima: Mismatched parenthesis

in version 13.04 just gives some irrelevant message which is not a problem. In both versions

vc(j1,m1,j2,m2,j):=block([t],if j<abs(j1-j2) or j>j1+j2 or j<abs(m1+m2) then return(0) else(t:(-1)^m1 sqrt(factor( /(2j+1)(j1+j2-j)!/(j1-m1)!(j2-m2)!(j+m1+m2)!(j-m1-m2)! /(/(j+j1+j2+1)!(j +j1-j2)!(j-j1+j2)!/(j1+m1)!(j2+m2)!)))sum((-1)^s(j1+m1+s)!(j2+j-m1-s)! /( s!(j1-m1-s)! (j-m1-m2-s)!(j2-j+m1+s)! ),s,max(0,j-j2-m1), min(j1-m1,j-m1-m2)),return(t))/end else/ )/end blk*/

Runs with no problem. The main issue is for example:

(kill(a,a1,b,belis,blis,i,ii,in,lisr,listmp,lisx,ls1m,mlis,mm,n,nps,nt,ntop,ntp,p,pb,plis,pmb,pnps,t,tt,u2lis,u2ls) ,pmb(bblis):=block([fl1:false,jj,tmp],pb:makelist(i,i,1,nps), i0:1,loop, jj:0,if bblis[pb[i0+1]]

bblis[pb[i0]] then(fl1:true,for j thru nps-1-i0 while bblis[pb[i0+1+j]]>bblis[pb[i0+j]] do jj:j,for i:0 thru floor(jj/2) do (tmp:pb[i0+i],pb[i0+i]:pb[i0-i+jj+1],pb[i0-i+jj+1]:tmp)/end i/) /end then/,if i0+jj<nps-1 then(i0:i0+jj+1,go (loop)) else if fl1 then (fl1:false,i0:1,go (loop)) , blis:makelist(bblis[pb[i]],i,1,nps),for i:0 thru nps-2 while blis[nps-i]=0 do blis:rest(blis,-1) , d2lis:makelist(0,nps),pai:makelist(sum(p[pb[j]]^2/a[pb[j]],j,1,i-1)+sum(p[pb[j]]^2/a[pb[j]],j ,i+1,nps),i,1,nps) )/end blk/ /bblis must be atleast length 2 /

/ vc(j1,m1,j2,m2,j):=block([t],if j<abs(j1-j2) or j>j1+j2 or j<abs(m1+m2) then return(0) else(t:(-1)^m1 sqrt(factor( /(2j+1)(j1+j2-j)!/(j1-m1)!(j2-m2)!(j+m1+m2)!(j-m1-m2)! /(/(j+j1+j2+1)!(j +j1-j2)!(j-j1+j2)!/(j1+m1)!(j2+m2)!)))sum((-1)^s(j1+m1+s)!(j2+j-m1-s)! /( s!(j1-m1-s)! (j-m1-m2-s)!(j2-j+m1+s)! ),s,max(0,j-j2-m1), min(j1-m1,j-m1-m2)),return(t))/end else/ )/end blk/ */

,szp(iej,zd1,zd2):=block([tn:0], for i thru length(zd1) do for j:1+iej(i-1) thru length(zd2) do tn:tn+(1+iej signum(j-i))zd1[i][nps+1]zd2[j][nps+1]prod((2(ls[k]+zd2[j][k]+zd1[i][k])+1)!!/2^(ls[k]+zd1[i][k] +zd2[j][k]+2)/a[k]^(zd1[i][k]+zd2[j][k]+ls[k]+3/2),k,1,nps)%pi^(nps/2)(1+sum(km[k]a[k](4(zd1 [i][k]+zd2[j][k]-(zd2[j][k]-zd1[i][k])^2+ls[k](ls[k]+2))+3)/(4(ls[k]+zd1[i][k]+zd2[j][k])+2),k,1,nps)) ,return(tn))/end blk*/)$

in version 19.01 Also gives incorrect error message in red: Refusing to send cell to maxima: Mismatched parenthesis. When it should NOT give any error message at all. And exactly the same runs in version 13.04 runs fine with NO error message as there is NO error. This a serious problem in the newer version 19.01 as means cannot run something with part(s) of it remmed out !

rtoy commented 2 months ago

Imported from SourceForge on 2024-07-08 01:47:09 Created by zmth on 2019-07-16 02:07:37 Original: https://sourceforge.net/p/maxima/bugs/3567/#269e


there was supposed to be a on the other side of the / as in / Don't know why here it did not print it.

rtoy commented 2 months ago

Imported from SourceForge on 2024-07-08 01:47:12 Created by l_butler on 2019-07-16 02:51:53 Original: https://sourceforge.net/p/maxima/bugs/3567/#b8e1


rtoy commented 2 months ago

Imported from SourceForge on 2024-07-08 01:47:16 Created by peterpall on 2019-07-16 04:17:53 Original: https://sourceforge.net/p/maxima/bugs/3567/#8907


rtoy commented 2 months ago

Imported from SourceForge on 2024-07-08 01:47:20 Created by peterpall on 2019-07-16 04:17:54 Original: https://sourceforge.net/p/maxima/bugs/3567/#c0e8


I've never thought that there could be nested comments. Would you be willing to report this at https://github.com/wxMaxima-developers/wxmaxima/issues ?

Thanks in advance,

 Gunter.
rtoy commented 2 months ago

Imported from SourceForge on 2024-07-08 01:47:23 Created by zmth on 2019-07-18 04:46:14 Original: https://sourceforge.net/p/maxima/bugs/3567/#8907/be45


Yes i would be willing to report it to .... as you state if i know how. Why is it not automatically sent there as bugs here we don't know whether it's maxima or wxmaxima and it should be a forum for both.Ok here is another example and this says nothing about wxmaxima and it works in maxima 5.31.1 as it should with no error but in maxima 5.43.0 gets the bogus error message:incorrect syntax: / is not a prefix operator (disp(testing) / vc(j1,m1,j2,m2,j):=block([t],if j<abs(j1-j2) or j>j1+j2 or j<abs(m1+m2) then return(0)  ) /end blk/ /)

On Monday, July 15, 2019, 11:17:59 PM CDT, Gunter Ku00F6nigsmann" via Maxima-bugs <maxima-bugs@lists.sourceforge.net> wrote:  

I've never thought that there could be nested comments. Would you be willing to report this at https://github.com/wxMaxima-developers/wxmaxima/issues ?

Thanks in advance, Gunter.

[bugs:#3567] bug in wxMaxima 19.01 but NOT in wxMaxima 13.04

Status: wont-fix Group: None Labels: wxmaxima wxMaxima Created: Tue Jul 16, 2019 01:31 AM UTC by dan hayes Last Updated: Tue Jul 16, 2019 02:51 AM UTC Owner: Leo Butler

/ ,vc(j1,m1,j2,m2,j):=block([t],if j<abs(j1-j2) j="" or="">j1+j2 or j<abs(m1+m2) then return(0) else(t:(-1)^m1</abs(j1-j2)>sqrt(factor( /(2j+1)(j1+j2-j)!/(j1-m1)!(j2-m2)!(j+m1+m2)!(j-m1-m2)! /(/(j+j1+j2+1)!(j +j1-j2)!(j-j1+j2)!/(j1+m1)!(j2+m2)!)))sum((-1)^s(j1+m1+s)!(j2+j-m1-s)! /( s!(j1-m1-s)! (j-m1-m2-s)!(j2-j+m1+s)! ),s,max(0,j-j2-m1), min(j1-m1,j-m1-m2)),return(t))/end else/ )/end blk/ */

in version 19.01 gives incorrect error message in red: Refusing to send cell to maxima: Mismatched parenthesis

in version 13.04 just gives some irrelevant message which is not a problem. In both versions

vc(j1,m1,j2,m2,j):=block([t],if j<abs(j1-j2) j="" or="">j1+j2 or j<abs(m1+m2) then return(0) else(t:(-1)^m1 sqrt(factor( /(2j+1)(j1+j2-j)!/(j1-m1)!(j2-m2)!(j+m1+m2)!(j-m1-m2)! /(/(j+j1+j2+1)!(j +j1-j2)!(j-j1+j2)!/(j1+m1)!(j2+m2)!)))sum((-1)^s(j1+m1+s)!(j2+j-m1-s)! /( s!(j1-m1-s)! (j-m1-m2-s)!(j2-j+m1+s)! ),s,max(0,j-j2-m1), min(j1-m1,j-m1-m2)),return(t))/end else/ )/end blk*/ </abs(j1-j2)>

Runs with no problem. The main issue is for example:

(kill(a,a1,b,belis,blis,i,ii,in,lisr,listmp,lisx,ls1m,mlis,mm,n,nps,nt,ntop,ntp,p,pb,plis,pmb,pnps,t,tt,u2lis,u2ls) ,pmb(bblis):=block([fl1:false,jj,tmp],pb:makelist(i,i,1,nps), i0:1,loop, jj:0,if bblis[pb[i0+1]]

bblis[pb[i0]] then(fl1:true,for j thru nps-1-i0 while bblis[pb[i0+1+j]]>bblis[pb[i0+j]] do jj:j,for i:0 thru floor(jj/2) do (tmp:pb[i0+i],pb[i0+i]:pb[i0-i+jj+1],pb[i0-i+jj+1]:tmp)/end i/) /end then/,if i0+jj<nps-1 then(i0:i0+jj+1,go (loop)) else if fl1 then (fl1:false,i0:1,go (loop)) , blis:makelist(bblis[pb[i]],i,1,nps),for i:0 thru nps-2 while blis[nps-i]=0 do blis:rest(blis,-1) , d2lis:makelist(0,nps),pai:makelist(sum(p[pb[j]]^2/a[pb[j]],j,1,i-1)+sum(p[pb[j]]^2/a[pb[j]],j ,i+1,nps),i,1,nps) )/end blk/ /bblis must be atleast length 2 /

/ vc(j1,m1,j2,m2,j):=block([t],if j<abs(j1-j2) j="" or="">j1+j2 or j<abs(m1+m2) then return(0) else(t:(-1)^m1</abs(j1-j2)>sqrt(factor( /(2j+1)(j1+j2-j)!/(j1-m1)!(j2-m2)!(j+m1+m2)!(j-m1-m2)! /(/(j+j1+j2+1)!(j +j1-j2)!(j-j1+j2)!/(j1+m1)!(j2+m2)!)))sum((-1)^s(j1+m1+s)!(j2+j-m1-s)! /( s!(j1-m1-s)! (j-m1-m2-s)!(j2-j+m1+s)! ),s,max(0,j-j2-m1), min(j1-m1,j-m1-m2)),return(t))/end else/ )/end blk/ */

,szp(iej,zd1,zd2):=block([tn:0], for i thru length(zd1) do for j:1+iej(i-1) thru length(zd2) do tn:tn+(1+iej signum(j-i))zd1[i][nps+1]zd2[j][nps+1]prod((2(ls[k]+zd2[j][k]+zd1[i][k])+1)!!/2^(ls[k]+zd1[i][k] +zd2[j][k]+2)/a[k]^(zd1[i][k]+zd2[j][k]+ls[k]+3/2),k,1,nps)%pi^(nps/2)(1+sum(km[k]ak+3)/(4(ls[k]+zd1[i][k]+zd2[j][k])+2),k,1,nps)) ,return(tn))/end blk*/)$

in version 19.01 Also gives incorrect error message in red: Refusing to send cell to maxima: Mismatched parenthesis. When it should NOT give any error message at all. And exactly the same runs in version 13.04 runs fine with NO error message as there is NO error. This a serious problem in the newer version 19.01 as means cannot run something with part(s) of it remmed out !

Sent from sourceforge.net because maxima-bugs@lists.sourceforge.net is subscribed to https://sourceforge.net/p/maxima/bugs/

To unsubscribe from further messages, a project admin can change settings at https://sourceforge.net/p/maxima/admin/bugs/options. Or, if this is a mailing list, you can unsubscribe from the mailing list.


Maxima-bugs mailing list Maxima-bugs@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/maxima-bugs

Attachments:

rtoy commented 2 months ago

Imported from SourceForge on 2024-07-08 01:47:26 Created by zmth on 2019-07-18 10:47:33 Original: https://sourceforge.net/p/maxima/bugs/3567/#8907/2dc6


Ok i reported it but the big problem is just as with reporting in the maxima-bugs when one presses submit it DOES NOT submit exactly what one prints out. For example it left out the most important issue for comment is / .... /  and it submitted several places with the * left out in one or both places - it only put the / which means divide. Please fix that issue.

On Monday, July 15, 2019, 11:17:59 PM CDT, Gunter Ku00F6nigsmann" via Maxima-bugs <maxima-bugs@lists.sourceforge.net> wrote:  

I've never thought that there could be nested comments. Would you be willing to report this at https://github.com/wxMaxima-developers/wxmaxima/issues ?

Thanks in advance, Gunter.

[bugs:#3567] bug in wxMaxima 19.01 but NOT in wxMaxima 13.04

Status: wont-fix Group: None Labels: wxmaxima wxMaxima Created: Tue Jul 16, 2019 01:31 AM UTC by dan hayes Last Updated: Tue Jul 16, 2019 02:51 AM UTC Owner: Leo Butler

/ ,vc(j1,m1,j2,m2,j):=block([t],if j<abs(j1-j2) j="" or="">j1+j2 or j<abs(m1+m2) then return(0) else(t:(-1)^m1</abs(j1-j2)>sqrt(factor( /(2j+1)(j1+j2-j)!/(j1-m1)!(j2-m2)!(j+m1+m2)!(j-m1-m2)! /(/(j+j1+j2+1)!(j +j1-j2)!(j-j1+j2)!/(j1+m1)!(j2+m2)!)))sum((-1)^s(j1+m1+s)!(j2+j-m1-s)! /( s!(j1-m1-s)! (j-m1-m2-s)!(j2-j+m1+s)! ),s,max(0,j-j2-m1), min(j1-m1,j-m1-m2)),return(t))/end else/ )/end blk/ */

in version 19.01 gives incorrect error message in red: Refusing to send cell to maxima: Mismatched parenthesis

in version 13.04 just gives some irrelevant message which is not a problem. In both versions

vc(j1,m1,j2,m2,j):=block([t],if j<abs(j1-j2) j="" or="">j1+j2 or j<abs(m1+m2) then return(0) else(t:(-1)^m1 sqrt(factor( /(2j+1)(j1+j2-j)!/(j1-m1)!(j2-m2)!(j+m1+m2)!(j-m1-m2)! /(/(j+j1+j2+1)!(j +j1-j2)!(j-j1+j2)!/(j1+m1)!(j2+m2)!)))sum((-1)^s(j1+m1+s)!(j2+j-m1-s)! /( s!(j1-m1-s)! (j-m1-m2-s)!(j2-j+m1+s)! ),s,max(0,j-j2-m1), min(j1-m1,j-m1-m2)),return(t))/end else/ )/end blk*/ </abs(j1-j2)>

Runs with no problem. The main issue is for example:

(kill(a,a1,b,belis,blis,i,ii,in,lisr,listmp,lisx,ls1m,mlis,mm,n,nps,nt,ntop,ntp,p,pb,plis,pmb,pnps,t,tt,u2lis,u2ls) ,pmb(bblis):=block([fl1:false,jj,tmp],pb:makelist(i,i,1,nps), i0:1,loop, jj:0,if bblis[pb[i0+1]]

bblis[pb[i0]] then(fl1:true,for j thru nps-1-i0 while bblis[pb[i0+1+j]]>bblis[pb[i0+j]] do jj:j,for i:0 thru floor(jj/2) do (tmp:pb[i0+i],pb[i0+i]:pb[i0-i+jj+1],pb[i0-i+jj+1]:tmp)/end i/) /end then/,if i0+jj<nps-1 then(i0:i0+jj+1,go (loop)) else if fl1 then (fl1:false,i0:1,go (loop)) , blis:makelist(bblis[pb[i]],i,1,nps),for i:0 thru nps-2 while blis[nps-i]=0 do blis:rest(blis,-1) , d2lis:makelist(0,nps),pai:makelist(sum(p[pb[j]]^2/a[pb[j]],j,1,i-1)+sum(p[pb[j]]^2/a[pb[j]],j ,i+1,nps),i,1,nps) )/end blk/ /bblis must be atleast length 2 /

/ vc(j1,m1,j2,m2,j):=block([t],if j<abs(j1-j2) j="" or="">j1+j2 or j<abs(m1+m2) then return(0) else(t:(-1)^m1</abs(j1-j2)>sqrt(factor( /(2j+1)(j1+j2-j)!/(j1-m1)!(j2-m2)!(j+m1+m2)!(j-m1-m2)! /(/(j+j1+j2+1)!(j +j1-j2)!(j-j1+j2)!/(j1+m1)!(j2+m2)!)))sum((-1)^s(j1+m1+s)!(j2+j-m1-s)! /( s!(j1-m1-s)! (j-m1-m2-s)!(j2-j+m1+s)! ),s,max(0,j-j2-m1), min(j1-m1,j-m1-m2)),return(t))/end else/ )/end blk/ */

,szp(iej,zd1,zd2):=block([tn:0], for i thru length(zd1) do for j:1+iej(i-1) thru length(zd2) do tn:tn+(1+iej signum(j-i))zd1[i][nps+1]zd2[j][nps+1]prod((2(ls[k]+zd2[j][k]+zd1[i][k])+1)!!/2^(ls[k]+zd1[i][k] +zd2[j][k]+2)/a[k]^(zd1[i][k]+zd2[j][k]+ls[k]+3/2),k,1,nps)%pi^(nps/2)(1+sum(km[k]ak+3)/(4(ls[k]+zd1[i][k]+zd2[j][k])+2),k,1,nps)) ,return(tn))/end blk*/)$

in version 19.01 Also gives incorrect error message in red: Refusing to send cell to maxima: Mismatched parenthesis. When it should NOT give any error message at all. And exactly the same runs in version 13.04 runs fine with NO error message as there is NO error. This a serious problem in the newer version 19.01 as means cannot run something with part(s) of it remmed out !

Sent from sourceforge.net because maxima-bugs@lists.sourceforge.net is subscribed to https://sourceforge.net/p/maxima/bugs/

To unsubscribe from further messages, a project admin can change settings at https://sourceforge.net/p/maxima/admin/bugs/options. Or, if this is a mailing list, you can unsubscribe from the mailing list.


Maxima-bugs mailing list Maxima-bugs@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/maxima-bugs

Attachments: