Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

Re: Plotting a simple line at a weibull ProbabilityScalePlot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg125316] Re: Plotting a simple line at a weibull ProbabilityScalePlot
  • From: Bill Rowe <readnews at sbcglobal.net>
  • Date: Tue, 6 Mar 2012 05:58:27 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com

On 3/5/12 at 2:41 AM, martin.palatini at googlemail.com (Martin
Palatini) wrote:

>I got a big problem with my ProbabilityScalePlot. I want to plot a
>simple, horizontal line in my diagramm. This diagramm shows a
>weibull plot. In this weibull plot are shown three different weibull
>distribution functions.

>At the value of 63.21% on the y-axis, i want to plot this simple
>horizontal line. This line symbolize the characteristic lifetime of
>a component. I don't get it.

>Please help me, i need this plot for my master thesis.

>The code for the plot is called:

>data1 = RandomVariate[WeibullDistribution[1, 1], 100]; data2 =
>RandomVariate[WeibullDistribution[1, 10], 100]; data3 =
>RandomVariate[WeibullDistribution[1, 2], 100];

>ProbabilityScalePlot[{data1, data2, data3}, "Weibull",
>PlotRange -> Automatic, GridLines -> Automatic, GridLinesStyle ->
>"Classic", FrameLabel -> {{Style["Ausfallwahrscheinlichkeit F(t) in
>%", Italic, FontSize -> 12], ""}, {Style["Lebensdauer", Italic,
>FontSize -> 12], ""}}, Frame -> True]

Use Epilog to add a line. Keep in mind, coordinates of the line
need to specified in terms of logs. The code below adds a red
horizontal line at the 63 percentile. You can also include
labels for the line in the Epilog construct.

ProbabilityScalePlot[{data1, data2, data3}, "Weibull",
  PlotRange -> Automatic, GridLines -> Automatic,
  GridLinesStyle -> "Classic",
  FrameLabel -> {{Style["Ausfallwahrscheinlichkeit F(t) in %", Italic,
      FontSize -> 12],
     ""}, {Style["Lebensdauer", Italic, FontSize -> 12], ""}},
  Frame -> True, Epilog -> {Red, Line at {{Log[.001], 0},
{Log[100], 0}}}]




  • Prev by Date: Re: Suppress Cell Labels
  • Next by Date: Re: different results
  • Previous by thread: Re: Plotting a simple line at a weibull
  • Next by thread: Re: Plotting a simple line at a weibull ProbabilityScalePlot