Re: Question?
- To: mathgroup at smc.vnet.net
- Subject: [mg4102] Re: Question?
- From: rhall2 at umbc.edu (hall robert)
- Date: Tue, 4 Jun 1996 02:18:41 -0400
- Organization: University of Maryland, Baltimore County
- Sender: owner-wri-mathgroup at wolfram.com
In article <4obgli$opu at dragonfly.wolfram.com>,
Borworn Wongsaengchantra <wborworn at vt.edu> wrote:
>I am a novice for Mathematica and I have a problem with Mathematica's command.
Yea, me too. ;)
>I want to show out put like this:
> /out/ {f1[x],f2[x],f3[x],...,fn[x]}
>Do you know how to use that command?
Here's my best guess:
In[188]:=
addParts[f_Symbol, var_Symbol] := f[var];
Outer[
addParts,
ToExpression[StringJoin["f", #]& /@ Map[ToString, Range[5]]],
{x}
] // Flatten
Out[188]=
{f1[x], f2[x], f3[x], f4[x], f5[x]}
or
In[199]:=
addParts[f_Symbol, var_Symbol] := f[var];
SetAttributes[addParts, Listable];
ToExpression[StringJoin["f", #]& /@ Map[ToString, Range[5]]];
addParts[%, x]
Out[202]=
{f1[x], f2[x], f3[x], f4[x], f5[x]}
Anybody know how to do this without converting from expression
to string and back?
If you're willing to live with subscripts, another way is:
In[136]:=
Table[Subscripted[f[i]][x], {i, 1, 5}]
Out[136]=
{f [x], f [x], f [x], f [x], f [x]}
1 2 3 4 5
If you don't like the subscripts but can tolerate an additional
space, try this:
In[147]:=
Table[SequenceForm[f i[x]], {i, 1, 5}]
Out[147]=
{f 1[x], f 2[x], f 3[x], f 4[x], f 5[x]}
--
Bob Hall | "Know thyself? Absurd direction!
rhall2 at gl.umbc.edu | Bubbles bear no introspection." -Khushhal Khan Khatak
==== [MESSAGE SEPARATOR] ====