XProfan

Français

p.specht

Szenario: Gegeben seien qui (encore freien) Innenmaße einer LKW-Ladefläche. quelle quadratischen Verpackungskartons füllen cet optimal aus? cet vieille Optimierungsproblem aus qui Logistik peux on seulement schrittweise angehen, tout autor ici seulement einmal une "Simulation" dans 2 Dimensionen. dans qui Praxis hat sich ici un weites champ à KI-Algorithmen etabliert - vom Ameisenalgorithmus jusque selbstoptimierenden "Generativen neuronalen Netzen".

Kompilieren Marque Séparation

Titre de la fenêtre "2D-PACKING: Rechtecke ganzzahliger Seitenlänge"+\
" avec jew. größtmöglichen Quadraten ausloten"
' CopyLeft (CL) 2012/12ff by P.Specht, vienne. aucun Gewähr!
Fenêtre Style 1048:Fenêtre 0,0 - %maxx,%maxy:Font 2
Randomiser:cls 13158600+rgb(rnd(56),rnd(56),rnd(56))
declare z&,s&,n&
Imprimer "   Hauteur  (Zeilen): ";:input z&
Imprimer " Breite (Spalten): ";:input s&
rect

Repeat

    inc n&

    si z&>s&

        z&=z&-s&
        rect

    elseif z&<s&

        s&=s&-z&
        rect

    d'autre

        BREAK

    endif

until 0

locate 20,20
imprimer "Anzahl Quadrate: ";n&
waitinput
end

proc rect

    var a&=height(%hwnd)/6
    usepen 0,1,0
    usebrush 1,rgb(100,100,100)+rgb(rnd(156),rnd(156),rnd(156))
    rectangle (a&+z&),(a&+s&) - a&,a&

endproc