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