Re: maßstäbliche ContourPlots

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

Es  muss natürlich

With[{v3 = {0., 0.}, v2 = {0., 4.}, v1 = {0., 8.}},
Show[Graphics[MapThread[
 (InputForm[FullGraphics[Graphics[#1]]][[1, 1]] /. {x_?NumberQ, 
y_?NumberQ} -> {x, y} + #2)&,
    {{g1, g2, g3}, {v1, v2, v3}}]
 ], AspectRatio -> Automatic]]

heissen. Gruss Udo.

Udo und Susanne Krause wrote:

> In[58]:= With[{v3 = {0., 0.}, v2 = {0., 4.}, v1 = {0., 8.}},
> Show[Graphics[MapThread[
>     (InputForm[FullGraphics[Graphics[#1]]][[1, 1]] /. {x_?NumberQ, 
> y_?NumberQ} -> {x, y} + #2)&,
>       {{g1, g2, g3}, {v1, v2, v3}}]
> ]]]