Group Abstract Group Abstract

Message Boards Message Boards

0
|
13.6K Views
|
9 Replies
|
1 Total Like
View groups...
Share
Share this post:

Get the common denominator?

Zharou Fisher
Posted 9 years ago
POSTED BY: Zharou Fisher
9 Replies
Sort By:

What about the following code?

b[i_, s_] := 
 Integrate[
  Product[Piecewise[{{1, p == i}}, (p + \[Tau])/(p - i)], {p, 0, 
    s}], {\[Tau], 0, 1}]
myCoeffs = Table[b[i, s], {s, 0, 4}, {i, 0, s}];

f[l_] := Module[{lcm},
  lcm = LCM @@@ Denominator /@ l;
  l*lcm/Defer /@ lcm]

In[7]:= f[myCoeffs]

Out[7]= {{1/1}, {3/2, -(1/2)}, {23/12, -(16/12), 5/12}, {55/
  24, -(59/24), 37/24, -(9/24)}, {1901/720, -(2774/720), 2616/
  720, -(1274/720), 251/720}}
POSTED BY: Valeriu Ungureanu

Initializations:

b[i_, s_] := 
Integrate[
Product[Piecewise[{{1, p == i}}, (p + \[Tau])/(p - i)], {p, 0, 
s}], {\[Tau], 0, 1}]
makeCommonDenominators[fractions_] := Module[{comden, numers},
comden = LCM @@ Denominator /@ fractions;
numers = fractions*comden;
(HoldForm[#1/zzz] /. zzz -> comden) & /@ numers]
myCoeffs = Table[b[i, s], {s, 0, 4}, {i, 0, s}];
makeCommonDenominators /@ myCoeffs;

and denominators:

In[12]:= Apply[LCM, Denominator /@ Release /@ myCoeffs, {1}]
Out[12]= {1, 2, 12, 24, 720}
POSTED BY: Valeriu Ungureanu
Zharou Fisher
Zharou Fisher
Posted 9 years ago

My Problem isn't solved sry for that reply. i got an error.

I have a problem instead.

If i do 

EndCoeffs = makeCommonDenominators /@ MyCoeffs

and i want the Denominator i do 

Denominator[EndCoeffs]

but all i get is:

{{1},{1,1},{1,1,1},{1,1,1,1}}

I hope someone can help me.

Kind regards

Zharou Fisher
POSTED BY: Zharou Fisher
Zharou Fisher
Zharou Fisher
Posted 9 years ago

Thank you all for helping.

My Problem is solved. But i have a question what does this zzz mean. I didn't get it.

Would be nice if anybody could explain it.

Kind regards

Zharou Fisher
POSTED BY: Zharou Fisher
Zharou Fisher
Zharou Fisher
Posted 9 years ago

Thank you all for helping.

My Problem is solved. But i have a question what does this zzz mean. I didn't get it.

Would be nice if anybody could explain it.

Kind regards

Zharou Fisher
POSTED BY: Zharou Fisher
Zharou Fisher
Zharou Fisher
Posted 9 years ago

Sry i didn't get it. Could you help me in more detail ?

Thanks a lot

Zharou Fisher
POSTED BY: Zharou Fisher

Try:

makeCommonDenominators /@ MyCoeffs

enter image description here
POSTED BY: Valeriu Ungureanu

A little function to do this follows:

makeCommonDenominators[fractions_] := Module[{comden, numers},
  comden = LCM @@ Denominator /@ fractions;
  numers = fractions*comden;
  (HoldForm[#1/zzz] /. zzz -> comden) & /@ numers
  ]

To get the original reduced fractions back you can use

ReleaseHold /@ fractions

I hope this helps
POSTED BY: John McGee

How about using Denominator to extract the denominators in each sublist,

http://reference.wolfram.com/language/ref/Denominator.html

use LCM to find the least common denominator,

http://reference.wolfram.com/language/ref/LCM.html

and use it to convert the sublist elements to the same denominator?
POSTED BY: Frank Kampas
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard