XProfan

Italia

p.specht

Szenario: Gegeben seien die (noch freien) Innenmaße einer LKW-Ladefläche. Welche quadratischen Verpackungskartons füllen diese optimal aus? Dieses alte Optimierungsproblem aus der Logistik kann man nur schrittweise angehen, darum hier erst einmal eine "Simulation" in 2 Dimensionen. In der Praxis hat sich hier ein weites Feld an KI-Algorithmen etabliert - vom Ameisenalgorithmus bis zu selbstoptimierenden "Generativen neuronalen Netzen".

Kompilieren Markieren Separieren

WindowTitle "2D-PACKING: Rechtecke ganzzahliger Seitenlänge"+\
" mit jew. größtmöglichen Quadraten ausloten"
' CopyLeft (CL) 2012/12ff by P.Specht, Wien. Keine Gewähr!
WindowStyle 1048:Window 0,0 - %maxx,%maxy:Font 2
Randomize:cls 13158600+rgb(rnd(56),rnd(56),rnd(56))
declare z&,s&,n&
Print "   Höhe  (Zeilen): ";:input z&
Print " Breite (Spalten): ";:input s&
rect

Repeat

    inc n&

    if z&>s&

        z&=z&-s&
        rect

    elseif z&<s&

        s&=s&-z&
        rect

    else

        BREAK

    endif

until 0

locate 20,20
print "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