CAS/Home buggy

[toshk]

#pragma mode( separator(., integer(h32) )
EXPORT zlines(ybuss)
BEGIN
local lnedata,linedat,ttalbuses,zp;
local a,b,c,d,q,M11;
ttalbuses:= SIZE(mat2list(col(ybuss,1)));
a:=col(ybuss,1);
lnedata:=transpose(ybuss);
linedat:=sum(lnedata);
b:=length(linedat);
return ({ttalbuses,a,lnedata,linedat,b});
END;

Home run;
zlines([[0.166666666667,−0.166666666667,0],[−0.166666666667,0.277777777778,−0.111111111111],[0,−0.111111111111,0.311111111111]])
correct answer={3,[0.166666666667,−0.166666666667,0],[[0.166666666667,−0.166666666667,0],[−0.166666666667,0.277777777778,−0.111111111111],[0,−0.111111111111,0.311111111111]],[0,0,0.2],3}

CAS run;
zlines([[0.166666666667,−0.166666666667,0],[−0.166666666667,0.277777777778,−0.111111111111],[0,−0.111111111111,0.311111111111]])
buggy answer={50,'tran',tran(ybuss),"prodsum Error: Bad Argument Value",1} ??

[toml_12953]

(12-05-2018 11:09 PM)toshk Wrote:  #pragma mode( separator(., integer(h32) )

Your semi-colon followed by a right parenthesis looks like a winking smiley face when rendered by this forum!

; )

[grsbanks]

Place the lot in "code" tags and that should solve the problem:

Code:

#pragma mode( separator(., ;, integer(h32) )
EXPORT zlines(ybuss)
BEGIN
local lnedata,linedat,ttalbuses,zp;
local a,b,c,d,q,M11;
ttalbuses:= SIZE(mat2list(col(ybuss,1)));
a:=col(ybuss,1);
lnedata:=transpose(ybuss);
linedat:=sum(lnedata);
b:=length(linedat);
return ({ttalbuses,a,lnedata,linedat,b});
END;