#3567 bug in wxMaxima 19.01 but NOT in wxMaxima 13.04

[dan hayes]

/
,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]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 !

[dan hayes]

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

[Leo Butler]

This does not appear to be a Maxima issue.
Please report this to the wxMaxima developers.

[dan hayes]

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) j="" or="">j1+j2 or j<abs(m1+m2) then return(0)  ) /</abs(j1-j2)>end blk/ /)

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

• Comment:

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="" else(t:(-1)^m1<="" return(0)="" 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/
*/</abs(m1+m2)></abs(j1-j2)>

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="" (j1+m1)!(j2+m2)!)))sum((-1)^s(j1+m1+s)!(j2+j-m1-s)!="" end="" (j-m1-m2-s)!(j2-j+m1+s)!="" )="" (="" (j1-m1)!(j2-m2)!(j+m1+m2)!(j-m1-m2)!="" (2j+1)(j1+j2-j)!="" else(t:(-1)^m1="" else="" sqrt(factor(="" ),s,max(0,j-j2-m1),="" (j+j1+j2+1)!(j="" +j1-j2)!(j-j1+j2)!="" return(0)="" abs(j1-j2)="" s!(j1-m1-s)!="" min(j1-m1,j-m1-m2)),return(t))="" <="" blk*=""></abs(m1+m2)></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="" else(t:(-1)^m1<="" return(0)="" 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/
*/</abs(m1+m2)></abs(j1-j2)>

,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

[dan hayes]

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:

• Comment:

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="" else(t:(-1)^m1<="" return(0)="" 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/
*/</abs(m1+m2)></abs(j1-j2)>

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="" (j1+m1)!(j2+m2)!)))sum((-1)^s(j1+m1+s)!(j2+j-m1-s)!="" end="" (j-m1-m2-s)!(j2-j+m1+s)!="" )="" (="" (j1-m1)!(j2-m2)!(j+m1+m2)!(j-m1-m2)!="" (2j+1)(j1+j2-j)!="" else(t:(-1)^m1="" else="" sqrt(factor(="" ),s,max(0,j-j2-m1),="" (j+j1+j2+1)!(j="" +j1-j2)!(j-j1+j2)!="" return(0)="" abs(j1-j2)="" s!(j1-m1-s)!="" min(j1-m1,j-m1-m2)),return(t))="" <="" blk*=""></abs(m1+m2)></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="" else(t:(-1)^m1<="" return(0)="" 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/
*/</abs(m1+m2)></abs(j1-j2)>

,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

[Gunter Königsmann]

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.