Re: Normalverteilung

[Udo und Susanne Krause <su.krause@XXXXXXX.ch>]

Dear Sir Y,

Das Schraffieren wird nicht (mit einer Option o.ä.) unterstützt, aber 
man kann FilledPlot[] gebrauchen, um nahezu beliebige Schraffuren in 
einen Plot hineinzuwürgeln:

In[20]:=
Needs["Statistics`NormalDistribution`"]
Needs["Graphics`FilledPlot`"]

In[82]:=
With[{n = -0.3, z = 1., s = 0.4, lineN = 30},
 If[xMax <= xMin || Chop[n] == 0. || Chop[s] == 0. || Negative[s], 
Return[$Failed]];
  Clear[xMin, xMax, xLeft, xRight];
  xMin = z - 3.*Max[1, s];
  xMax = z + 3.*Max[1, s];
  xLeft = Min[z - 1/(Sqrt[2.*Pi]*s*n), xMin];
  xRight = Max[z - 1/(Sqrt[2.*Pi]*s*n), xMax];
  FilledPlot[Flatten[{PDF[NormalDistribution[z, s], x],
     Table[Piecewise[{{0, n*x + m <= 0},
                                 {n*x + m, n*x + m <= 
PDF[NormalDistribution[z, s], x]},
                                 {PDF[NormalDistribution[z, s], x], n*x 
+ m > PDF[NormalDistribution[z, s], x]}}],
               {m, -(n*xRight), -(n*xLeft), (n*(xRight - xLeft))/lineN}]
     }],
    {x, xMin, xMax},
   Fills -> Join[{{{1, Axis}, GrayLevel[1.]}}, Table[{{o, o + 1}, 
GrayLevel[1.]}, {o, 2, lineN}]],
   PlotRange -> All, PlotLabel -> StringJoin["Anstieg = ", ToString[n]]]]

In Piecewise[] können Sie andere Funktionen eintragen, hier wurden 
aequidistante Geraden mit Anstieg n gewählt.
Warum ist das ein Gewürgel? Weil
(1) y = 0 bzw. die Normalverteilung stückweise mehrfach überzeichnet 
werden (einmal pro Gerade)
(2) die Bestimmung der Bedingungen in Piecewise[] und die Berechnung des 
Schraffurintervalls (xLeft, xRight) recht komplex werden, wenn man die 
Schraffuren auf das Leistungsangebot von FilledPlot[] ausdehnen will. 
Aber vielleicht ist es das wert.

Gruss
Udo.


Jens-Peer Kuska wrote:

> Hallo,
>  
> überhaupt nicht. Wenn man Flächen unter Kurven anders
> darstellen will so geschiet das mit FilledPlot aus dem
> Standard Package
>
> Graphics`FilledPlot`
>
> Schrafieren/hatching wird nicht unterstützt
>
>  
>
> Gruß
>
>   Jens
>
>     ----- Original Message -----
>     From: Sir Y <mailto:someonenowhier@XXXXXXX.de>
>     To: demug@XXXXXXX.ch <mailto:demug@XXXXXXX.ch>
>     Sent: Tuesday, January 17, 2006 1:47 PM
>     Subject: Normalverteilung
>
>     Hallo,
>      
>     ich möchte gerne eine zweite Kurve   der Normalverteilung  mit
>     anderen X-Werten     darstellen   , so dass die beiden Kurven auf
>     dem gleichen Plot stehen .
>      
>     und zur Verdeutlichung der unterschiedlichen Bereichen will  ich
>     gern wissen, wie man  einen Bereich mit Parallelen schrägen
>     Geraden und den andren mit horizonztalen schwelligen Geraden
>     hinkriegen kann.
>      
>     hat jemand vielleicht eine Idee?
>      
>     Schönen Gruß
>      
>     someone
>
>     ------------------------------------------------------------------------
>     Telefonieren Sie ohne weitere Kosten mit Ihren Freunden von PC zu PC!
>     Jetzt Yahoo! Messenger <http://de.messenger.yahoo.com> installieren!