利用MMA进行数值通分

青青子衿

1. list = {13/2, 90/17, 12/5, 23/9};
2. l = LCM @@ Denominator /@ list;
3. f[x_] := With[{s = l/Denominator[x]}, (Defer@*Divide)[Numerator[x] s,
4.    Denominator[x] s]]
5. f /@ list

Copy the Code