pA:[2,2];  pB:[2,6];  pC:[4,8];  pD:[6,6]; pE:[2,6];  pF:[6,2];  pG:[6,6]; 
   pH:[2,2];  pI:[6,2];

zList:[pA,pB,pC,pD,pE,pF,pG,pH,pI,pA];

zlist_ax:[[-10,0],[10,0],[0,0],[0,10],[0,-10]];

abb1:matrix([-1,0],[0,-1]);

abb2:matrix([1,0],[0,-1]);

abb3:matrix([0,1],[-1,0]);

abb4:matrix([0,-1],[-1,0]);

haus:matrix(pA,pB,pC,pD,pE,pF,pG,pH,pI);

bild:haus.abb1;

pa:part(bild,1); pb:part(bild,2); pc:part(bild,3); pd:part(bild,4); pe:part(bild,5);
  pf:part(bild,6); pg:part(bild,7); ph:part(bild,8); pi:part(bild,9);

bList1:[pa,pb,pc,pd,pe,pf,pg,ph,pi,pa];

bild:haus.abb2;

pa:part(bild,1); pb:part(bild,2); pc:part(bild,3); pd:part(bild,4); pe:part(bild,5);
  pf:part(bild,6); pg:part(bild,7); ph:part(bild,8); pi:part(bild,9);

bList2:[pa,pb,pc,pd,pe,pf,pg,ph,pi,pa];

bild:haus.abb3;

pa:part(bild,1); pb:part(bild,2); pc:part(bild,3); pd:part(bild,4); pe:part(bild,5);
  pf:part(bild,6); pg:part(bild,7); ph:part(bild,8); pi:part(bild,9);

bList3:[pa,pb,pc,pd,pe,pf,pg,ph,pi,pa];

bild:haus.abb4;

pa:part(bild,1); pb:part(bild,2); pc:part(bild,3); pd:part(bild,4); pe:part(bild,5);
  pf:part(bild,6); pg:part(bild,7); ph:part(bild,8); pi:part(bild,9);

bList4:[pa,pb,pc,pd,pe,pf,pg,ph,pi,pa];

plot2d([[discrete,float(zlist_ax)],[discrete,float(zList)],[discrete,float(bList1)],[discrete,float(bList2)],[discrete,float(bList3)],[discrete,float(bList4)]]); 

plot2d([discrete,float(zList)],[gnuplot_preamble,"set terminal png;set out '~/DATEN/Diff/anageo/pics/haus1.png'"]);

plot2d([[discrete,float(zlist_ax)],[discrete,float(zList)],[discrete,float(bList1)],[discrete,float(bList2)],[discrete,float(bList3)],[discrete,float(bList4)]],[gnuplot_preamble,"set terminal png;set out '~/DATEN/Diff/anageo/pics/haus2.png'"]);