/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ /* [wxMaxima: input start ] */ 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]; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ zList:[pA,pB,pC,pD,pE,pF,pG,pH,pI,pA]; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ zlist_ax:[[-10,0],[10,0],[0,0],[0,10],[0,-10]]; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ abb1:matrix([-1,0],[0,-1]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ abb2:matrix([1,0],[0,-1]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ abb3:matrix([0,1],[-1,0]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ abb4:matrix([0,-1],[-1,0]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ haus:matrix(pA,pB,pC,pD,pE,pF,pG,pH,pI); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ bild:haus.abb1; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ 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); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ bList1:[pa,pb,pc,pd,pe,pf,pg,ph,pi,pa]; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ bild:haus.abb2; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ 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); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ bList2:[pa,pb,pc,pd,pe,pf,pg,ph,pi,pa]; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ bild:haus.abb3; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ 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); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ bList3:[pa,pb,pc,pd,pe,pf,pg,ph,pi,pa]; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ bild:haus.abb4; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ 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); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ bList4:[pa,pb,pc,pd,pe,pf,pg,ph,pi,pa]; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ plot2d([[discrete,float(zlist_ax)],[discrete,float(zList)],[discrete,float(bList1)],[discrete,float(bList2)],[discrete,float(bList3)],[discrete,float(bList4)]]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ plot2d([discrete,float(zList)],[gnuplot_preamble,"set terminal png;set out '~/DATEN/Diff/anageo/pics/haus1.png'"]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ 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'"]); /* [wxMaxima: input end ] */ /* Maxima can't load/batch files which end with a comment! */ "Created with wxMaxima"$