Mehr Freiheit für das RAM! - Warum Records Speicher sparen k

[macgix]

-- ACHTUNG -- ZUERST LOGFENSTER ÖFFNEN UND ANZEIGEN ABSCHALTEN!

-- ------------------------------------------------------------------------
--
-- Abschätzung mit Liste / wird langsamer je mehr n wächst
--
-- Diese Routine beschreibt, wie z.B. ein Installationsprogramm
-- ermittelt, wann das nächste Bild während der Installation angezeigt
-- werden soll. (Vereinfacht!)
--
-- Copright © 2001 by macgix Thomas Johannes Matthias Kühner
--
-- ------------------------------------------------------------------------

global n -- Anzahl der zu instalierenden Objekte
global m -- Anzahl der zu wechselnden Bilder
global p -- Liste der Bildnummern

log "-----------------------------"
log "Methode 1"
log "-----------------------------"

set n to 200 -- Es gibt zehn Objekte
set m to 6 -- uund sechs Bilder

set r to n / m -- Faktor (Verhältnis Bilder zu Objekte)

set p to {}

repeat with n from 1 to n

set res to (n div r) -- Think!

set p to p & res -- Die Liste wächst an auf insgesamt n Elemente

-- Wenn sich der Wert geändert hat / Vergleich mit Wert aus vorigem Durchlauf
if n > 1 and res is not item (n - 1) of p then
log res -- Wechsle zum nächsten Bild
end if

end repeat

set p1 to p -- Ergebnisliste zwischenspeichern!



-- ------------------------------------------------------------------------
--
-- Abschätzung mit record / Schneller!
--
-- Diese Routine beschreibt, wie z.B. ein Installationsprogramm
-- ermittelt, wann das nächste Bild während der Installation angezeigt
-- werden soll. (Vereinfacht!)
--
-- Copright © 2001 by macgix Thomas Johannes Matthias Kühner
--
-- ------------------------------------------------------------------------

global n -- Anzahl der zu instalierenden Objekte
global m -- Anzahl der zu wechselnden Bilder
global p -- Liste der Bildnummern zum Prüfen auf Wertänderung

log "-----------------------------"
log "Methode 2"
log "-----------------------------"

set n to 200 -- Es gibt zehn Objekte
set m to 6 -- uund sechs Bilder

set r to n / m -- Faktor (Verhältnis Bilder zu Objekte)

set p to {oldVal: 0, newVal: 0} -- Der Record enthält IMMER NUR ZWEI Elemente!

repeat with n from 1 to n

set res to (n div r) -- Think!

set newVal of p to res --{oldVal: oldVal of p, newVal: res} -- Interesting technique!

-- Wenn sich der Wert geändert hat / Vergleich mit Wert aus vorigem Durchlauf
if oldVal of p is not res then
set oldVal of p to res
log res -- Wechsle zum nächsten Bild
end if

end repeat

set p2 to p -- Ergebnisrecord zwischenspeichern!

-- ------------------------------------------------------------------------

return {p1, p2}


_________________
[macgix]

[macgix]

Wer den Geschwindigkeitsunterschied beider Methoden real spüren möchte, setzte n > 3000 ...
_________________
[macgix]

[macgix]

Wer mehr über die Verwendung vor "records" (eine feine Sache!) wissen möchte, sollte mal in den Thread "properties dynamisch erzeugen" schauen!
_________________
[macgix]