Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*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 2000

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

Search the Archive

Re: Tabular output

  • To: mathgroup at smc.vnet.net
  • Subject: [mg24663] Re: [mg24631] Tabular output
  • From: BobHanlon at aol.com
  • Date: Mon, 31 Jul 2000 09:23:30 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

In a message dated 7/28/2000 5:48:36 PM, dooglefish at aol.communicate writes:

>I created two functions, P[x] and C[x], for the maximum allowable stresses
>in a
>beam-column from axial load and bending moment. The variable x is the 
distance
>from one edge of the cross section to the neutral axis in bending.
>
>The functions evaluate correctly and plot correctly, i.e. I can get a plot
>of
>P[x] versus x and C[x] versus x.
>
>Question 1) I would like to plot P[x] versus C[x]. Does anybody have any
>hints?
>
>Question 2) How can I create a table of values such as (see below)  ?
>
>x           P[x]           C[x]
>
>
>Any help would be appreciated.
>

Needs["Statistics`ContinuousDistributions`"]

distB = BetaDistribution[2., 4.];

distN = Evaluate[NormalDistribution[Mean[distB], StandardDeviation[distB]]];

To print a table:

TableForm[
  Table[{
      NumberForm[x, {2, 1}, 
        NumberPadding -> {"", "0"}], 
      NumberForm[PDF[distB, x], {4, 3}, 
        NumberPadding -> {"", "0"}], 
      NumberForm[PDF[distN, x], {4, 3}, 
        NumberPadding -> {"", "0"}], 
      NumberForm[CDF[distB, x], {4, 3}, 
        NumberPadding -> {"", "0"}], 
      NumberForm[CDF[distN, x], {4, 3}, 
        NumberPadding -> {"", "0"}]}, {x, 0, 1, .1}], 
  TableHeadings -> {None, {"x", "PDFB[x]", "PDFN[x]", "CDFB[x]", "CDFN[x]"}}]

To plot one CDF against the other:

Off[Solve::"ifun"];

Plot[{y, CDF[distB, x /. NSolve[y == CDF[distN, x], x]]}, {y, 10^-3, 1.}, 
    PlotStyle -> {{AbsoluteDashing[{4}], RGBColor[0, 0, 1]}, 
        RGBColor[1, 0, 0]}, AxesLabel -> {"CDFN[x]", "CDFB[x]"}, 
    ImageSize -> {500, 310}];


Bob Hanlon


  • Prev by Date: corruptedGraphicsOutput
  • Next by Date: Re: getting module output in replace form
  • Previous by thread: Re: Tabular output
  • Next by thread: corruptedGraphicsOutput