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}}}]