Re: Plotting a simple line at a weibull

*To*: mathgroup at smc.vnet.net*Subject*: [mg125314] Re: Plotting a simple line at a weibull*From*: Tomas Garza <tgarza10 at msn.com>*Date*: Tue, 6 Mar 2012 05:57:45 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*References*: <201203050741.CAA29900@smc.vnet.net>

The best I could think of is, by trial and error, to find the right position for the horizontal line you want. The idea is to put an Epilog in the ProbabilityScalePlot with the appropriate coordinates for the end points, for example: 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], ""}}, Epilog -> {Thickness[0.005], Line[{{-3.25, 0.025}, {3.6, 0.025}}]}, Frame -> True] Or maybe you can translate from the scale in the graph to the necessary coordinates for Line. Anyway, it looks more or less right. -Tomas > Date: Mon, 5 Mar 2012 02:41:14 -0500 > From: martin.palatini at googlemail.com > Subject: Plotting a simple line at a weibull ProbabilityScalePlot > To: mathgroup at smc.vnet.net > > Hello, > > 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] > > P.S. My english isn't so good, but i hope you understand me. >

**References**:**Plotting a simple line at a weibull ProbabilityScalePlot***From:*Martin Palatini <martin.palatini@googlemail.com>