• To: mathgroup at smc.vnet.net
• From: "Allan Hayes" <hay at haystack.demon.co.uk>
• Date: Thu, 10 Dec 1998 03:13:11 -0500
• References: <74lefg\$ski@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Roger Mason wrote in message <74lefg\$ski at smc.vnet.net>...
>Hi,
>
>I wish to tabulate the values returned by a function of two variables,
>with the columns and rows labelled using the TableHeadings option to
>TableForm. The code I am using is given below.
>
>s[n_,c_]:=If[n<c^2,"n < c^2",If[n>c, "n > c",(n-c^2)/(c-c^2)]] (*
>function definition *)
>
>TableForm[Table[s[n,c], {c, 0.1, 1, 0.1}, {n, 0.1, 1, 0.1}],
>
>This, of course just labels the first row and first column with c and n,
>respecitvely. What I want is to have the appropriate numerical values
>of c and n, as used in the function s[c_,n_], as labels. can it be done
>using TableHeadings? I not, what is the best way to accomplish what I
>want?
>
>Thanks,
>
>Roger Mason
>
>

Roger:

s[n_, c_] :=
If[n < c^2, "n < c^2",
If[n > c, "n > c", (n - c^2)/(c - c^2)]] (*function definition*)
TableForm[Table[s[n, c], {c, 0.1, 1, 0.1}, {n, 0.1, 1, 0.1}],

1)
TableForm[Table[s[n, c], {c, 0.1, 1, 0.1}, {n, 0.1, 1, 0.1}],
TableHeadings -> {Table[c, {c, 0.1, 1, 0.1}], Table[c, {c, 0.1, 1,
0.1}]}]

2)
Prepend[Table[s[n, c], {c, 0.1, 1, 0.1}, {n, 0.1, 1, 0.1}],
Table[c, {c, 0.1, 1, 0.1}]],
Prepend[Table[c, {c, 0.1, 1, 0.1}], "c \\ n"]}] // TableForm

Allan

---------------------
Allan Hayes
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565

```

• Prev by Date: Re: nice Gotcha!
• Next by Date: Re: mathematica and statistics