S ep;
CF rat,RAT;
PolyRatFun rat,RAT;
L F = 1;
P "A1:%t";
multiply RAT(1+ep,1);
P "A2:%t";
P;
.sort
P "B1:%t";
multiply RAT(1+ep,1);
P "B2:%t";
P;
.sort
P;
.end
FORM 4.1 (Apr 3 2017, v4.1-20131025-315-g74cfccd) 64-bits Run: Mon Apr 3 12:02:01 2017
A1: + 1
A2: + rat(1,1 + ep)
F =
rat(1,1 + ep);
B1: + rat(1,1 + ep)
B2: + rat(1,0)
F =
rat(1,0);
Division by zero during normalization
Program terminating at test.frm Line 19 -->
Currently
PolyRatFun rat,RAT
is broken: