Re: Hold & Evaluate

*To*: mathgroup at smc.vnet.net*Subject*: [mg129903] Re: Hold & Evaluate*From*: Fred Simons <f.h.simons at tue.nl>*Date*: Mon, 25 Feb 2013 02:18:57 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-newout@smc.vnet.net*Delivered-to*: mathgroup-newsend@smc.vnet.net*References*: <20130224043140.94A9B6873@smc.vnet.net>

Actually, you formulated the solution already yourself. Since Hold does not evaluate its argument, you have to evaluate the numerators and denominators outside Hold and then substitute them into the Hold expression. I use HoldForm because of I do not want to see the Hold. Table[ With[{num = n, den = 0.1 (n + 1)}, HoldForm[num/den]], {n, 1, 5}] Fred Simons Eindhoven University of Technology Op 24-2-2013 5:31, ?erých Jakub schreef: > Dear mathgroup, > I would like to generate sequence in the form: > > 1/1.2, 2/2.3, 3/3.4, 4/4.5, etc. > > It is very simple by a Table function: > > Table[n/(n + 0.1 (n + 1)), {n, 1, 15}] > > but as there are real numbers in denominators, Mathematica evaluates all and generates something like: > > {0.833333, 0.869565, 0.882353, 0.888889, 0.892857, 0.895522, etc.} > > How to evaluate numerators and denominators separately and print the sequence in that "fraction like" form? > > I tested: > > #[[1]]/#[[2]] & /@ Table[{n, n + 0.1 (n + 1)}, {n, 1, 15}] and than used Hold[] and Evaluate[]: > > Hold[Evaluate[#[[1]]]/Evaluate[#[[2]]]] & /@ > Table[{n, n + 0.1 (n + 1)}, {n, 1, 15}] > > But it doesn't work as the Hold has "veto" power over any evaluation. > > Thanks in advance for any idea, how to do it > > Jakub > >

**References**:**Hold & Evaluate***From:*Šerých Jakub <Serych@panska.cz>