Mathematica 9 is now available
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

Re: How to use DisplayTogether[] properly?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg15788] Re: How to use DisplayTogether[] properly?
  • From: "Allan Hayes" <hay at haystack.demon.co.uk>
  • Date: Sun, 7 Feb 1999 02:04:05 -0500 (EST)
  • References: <79eas7$9k8@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

DisplayTogether has attribute HoldAll, The following works.

<<Graphics`Graphics`

DisplayTogether[
    Evaluate[
         Plot[#,{x,-3,3},DisplayFunction ->Identity]&/@{x,x^2}
    ]
]

Allan

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


Cheng Lee Lung wrote in message <79eas7$9k8 at smc.vnet.net>...
>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: Function definition
  • Next by Date: RE: Finding real part (newbie question)
  • Previous by thread: How to use DisplayTogether[] properly?
  • Next by thread: Re: speed