<string>com.adobe.encapsulated-postscript</string>

<string>com.adobe.illustrator.ai-image</string>

%!PS-Adobe-3.0
%%BoundingBox: 24 24 480 480
%%Title: (Logistische Abbildung)
%%Creator: (myself)
%%CreationDate (11:38 Uhr Mittwoch, 28. Januar 1998)
%%DocumentFonts: Times-Roman
%%DocumentNeededResources: font Times-Roman
%%DocumentSuppliedFonts:
%%DocumentData: Clean7Bit
%%PageOrder: Ascend
%%Orientation: Portrait
%%BeginDefaults
%%EndDefaults
%%EndComments

%%Page 1 1

% initialization of the variables
% device indepened values 
/grx      6 def % x size graphic (inches)
/gry      6 def % y size graphic (inches)
/f currentpagedevice /HWResolution get def
/res f 0 get def
/zw      1 res div def % Schrittweite zum Zeichnen
/ox       1 def % offset x
/oy          1 def % offset y
% Neue Skalierung auf physikalische Punkte
/scl 72 res div def % 1 Skalenteil == 1 Punkt des Devices
72 72 scale

% Device unabhaengige Werte
/na      50 def % min. Anzahl Populationsdurchlauefe
/nb     100 def % Endwert
/k          0 def % Nur zur Info
/kmin   1.9 def % Startwert Plot
/kmax   2.9 def % Endwert Plot
/kname 5 string def % String fuer Ausgabe Beschriftung
/kvoid 5 string def % void string
/step grx res mul def % Anzahl unterteilungen fuer Plot in X Richtung
/p0     0.1 def % Startpopulation fuer Log. Abb.
/x        0 def % Startwert fuer x
/y        0 def % Startwert fuer y
/xmst     10 def % Anzahl x-Koordinatenstriche
/ymst     10 def % Anzahl y-Koordinatenstriche
/lsst    0.1 def % Laenge Skalenstriche
/wx          0 def
/wy          0 def

% Zeitvariable

/Time 0 def
/Zeit 20 string def

% Daneben werden f, g, i und j als Hilfvariablen benutzt
% Variablen Definition

% Koordinationsystem plotten

1 res div setlinewidth

% Zeitnahme
/Time usertime def

/Times-Roman findfont
dup length dict begin
  {1 index /FID ne {def} {pop pop} ifelse} forall
  /Encoding ISOLatin1Encoding def
  currentdict
end
/Times-ISOLatin1 exch definefont pop

/Times-Roman findfont
1 8 div scalefont setfont

/st kmax kmin sub ymst div def
/k kmin def

% Y-Achse plotten
ox oy moveto
0  gry rlineto
stroke
ox oy moveto
grx 0 rmoveto
0 gry rlineto
stroke
/f oy def
/i gry ymst div def
/j 0 def
{j ymst gt
    {exit} if
    ox f moveto
    lsst neg 0 rlineto
    stroke
    ox f moveto
    grx 0 rmoveto
    lsst 0 rlineto
    stroke
    ox f moveto
    lsst 2 mul neg 0 rmoveto
    k kname cvs show
    /k k st add def
    /f f i add def
    /j j 1 add def
} loop

/k kmin def

% X-Achse
ox oy moveto
grx 0 rlineto
stroke
ox oy moveto
0 gry rmoveto
grx 0 rlineto
stroke
/f ox def
/i grx xmst div def
/j 0 def
/y kmin def
{j xmst gt
    {exit} if
    f oy moveto
    0 lsst neg rlineto
    stroke
    f oy moveto
    0 gry rmoveto
    0 lsst rlineto
    stroke
    f oy moveto
    0 lsst 3 mul neg rmoveto
    /kvoid k kname cvs def
    lsst neg 0 rmoveto
    kvoid show
    /k k st add def
    /f f i add def
    /j j 1 add def
} loop

% Schrittweite berechnen
/st kmax kmin sub step div def

% Logistische Abbildung berechnen und plotten

/k kmin def
{k kmax ge
 {exit} if
    /k k st add def
    /x k kmin sub grx mul def
    /x x kmax kmin sub div def
    /p p0 def
    /n 1 def
    {n na nb add gt
     {exit} if
        /n n 1 add def
        /p 1 p sub k mul 1 add p mul def
        n na gt
        {
            /y p 2 div neg 1 add def
            /y y gry mul def
            /f {y gry lt} def
            /g {y 0 gt} def
            f g and % (y < gry) AND (y > 0)
            {
                ox oy    moveto
                 x  y     rmoveto
                zw zw    rlineto
                stroke
            } if
        } if % n na gt if
    } loop % na+nb n gt exit if
} loop % k kmax ge exit if

% Titel schreiben und Ausdrucken der ganzen Seite
%%IncludeFont: Times-Roman
/Times-ISOLatin1 findfont
1 8 div scalefont setfont
ox oy 0.5 sub moveto
usertime Time sub Zeit cvs show
( ms) show
(: ) show
product show
( Version: ) show
version show
( Aufl\366sung: ) show
res Zeit cvs show
( dpi ) show
1 72 div 1 72 div scale
showpage
%EOF
%%EndDocument

find . -name "*.ps" -execdir ps2pdf -r1200x1200 '{}' \;