Re: Achsenbeschriftung Stackplot

["Jens-Peer Kuska" <kuska@XXXXXXX.de>]

Hallo,

wie wär's mit

Diff = 2.26*10^(-9);
prop = 1/((4 Pi Diff y)^(1/2))*Exp[-x^2/(4Diff 
y)];
stack = Block[{$DisplayFunction = Identity},
  Table[{y, Plot[prop, {x, -.00005, .00005}]}, {y, 
.05, 0.001, -0.002}]];

lines3d =
  stack /. {y_, gr_Graphics} :> (Cases[gr, _Line, 
Infinity] /.
     Line[pnts_] :> Line[Insert[#, y, 2] & /@ 
pnts]);

Show[Graphics3D[lines3d], PlotRange -> All, 
BoxRatios -> {1, 1, 1}, Axes -> True]

??

Gruß

  Jens

----- Original Message ----- 
From: "cgalle" <kaleb_g@XXXXXXX.ch>
To: <demug@XXXXXXX.ch>
Sent: Tuesday, August 02, 2005 5:40 PM
Subject: Achsenbeschriftung Stackplot


| Hallo zusammen,
|
| ich hab ein kleines Problem mit der 
Achsenbeschriftung beim Stackplot:
|
| << Graphics`Graphics3D`
| Diff = 2.26*10^(-9);
| prop = 1/((4 Pi Diff y)^(1/2))*Exp[-x^2/(4Diff 
y)];
| stack = Table[Plot[prop, {x, -.00005, .00005},
|                DisplayFunction -> Identity], {y, 
.05, 0.001, -0.002}];
| Show[StackGraphics[stack], PlotRange -> All, 
Axes -> True, Boxed ->
| False]
|
| Klappt alles, wie es soll, aber auf der y-Achse 
werden nicht die
| zugewiesenen Werte dargestellt, sondern die 
Einzelplots werden einfach
| von 0 bis 1 "durchnummeriert". Ich bräuchte aber 
die "echten" y-Werte
| als Beschriftung.
|
| Besten Dank für jedwede Hilfestellung
|
| Gruß
| Christian
|
|
|