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