AW: Achsenbeschriftung Stackplot

["cgalle" <kaleb_g@XXXXXXX.ch>]

Hallo, 

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

Mann, Mann, Mann, wie kommt man denn auf sowas???? :-)

Kapier ich zwar nicht, aber klappt!!

Kann ich daraus schließen, dass ich mit StackGraphics nicht zum Ziel
komme?

Besten Dank
Christian