Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1999
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1999

[Date Index] [Thread Index] [Author Index]

Search the Archive

How to use DisplayTogether[] properly?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg15744] How to use DisplayTogether[] properly?
  • From: Cheng Lee Lung <eeacheng at cityu.edu.hk>
  • Date: Fri, 5 Feb 1999 03:42:40 -0500 (EST)
  • Organization: City University of Hong Kong
  • Sender: owner-wri-mathgroup at wolfram.com

Dear All,
I have tried to write a program to plot multiple curves in a single plot
for a StudentTDistribution. I use the DisplayTogether to plot the
curves. Case 1 shows a nice plot but Case 2 is not. However, Case 2 is
more elegant if it works. Any one can help me or show me what's wrong
with Case 2. Many Thanks.

L L Cheng
City University of Hong Kong, Electronic Engineering Department. Phone :
(852) 27887755
email : eeacheng at cityu.edu.hk

<<Statistics`NormalDistribution`
<< Graphics`Graphics`
tdist=Table[StudentTDistribution[r],{r,1,20}] Case 1
DisplayTogether[Plot[tdf[[1]],{x, -4, 4}],Plot[tdf[[2]],{x,-3,3}],

Plot[tdf[[3]],{x,-3,3}],Plot[tdf[[4]],{x,-3,3}],Plot[tdf[[5]],{x,-3,3}],


Plot[tdf[[6]],{x,-3,3}],Plot[tdf[[7]],{x,-3,3}],Plot[tdf[[8]],{x,-3,3}],

  Plot[tdf[[9]],{x,-3,3}],Plot[tdf[[20]],{x,-3,3}],
  DisplayFunction->$DisplayFunction]

A nice plot is shown.

Case 2
DisplayTogether[Plot[#,{x,-3,3}]&/@tdf]

The error message shows:

\!\(Show[{
      Map[Plot[#1, {x, \(-3\), 3}]&, {1\/\(\[Pi]\ \((1 + x\^2)\)\),
          \((1\/\(2 + x\^2\))\)\^\(3/2\),
          \(6\ \ at 3\)\/\(\[Pi]\ \((3 + x\^2)\)\^2\),
          12\ \((1\/\(4 + x\^2\))\)\^\(5/2\),
          \(200\ \ at 5\)\/\(3\ \[Pi]\ \((5 + x\^2)\)\^3\),
          405\/2\ \((1\/\(6 + x\^2\))\)\^\(7/2\),
          \(5488\ \ at 7\)\/\(5\ \[Pi]\ \((7 + x\^2)\)\^4\),
          4480\ \((1\/\(8 + x\^2\))\)\^\(9/2\),
          2519424\/\(35\ \[Pi]\ \((9 + x\^2)\)\^5\),
          984375\/8\ \((1\/\(10 + x\^2\))\)\^\(11/2\)},
        DisplayFunction \[Rule] Identity]},
    DisplayFunction \[Rule] \((Display[$Display, #1]&)\)]\)

No plot is given.



  • Prev by Date: Re: Programming the front end to save graphics files
  • Next by Date: Re: speed
  • Previous by thread: Re: speed (resumed)
  • Next by thread: Re: How to use DisplayTogether[] properly?