XProfan

Español

p.specht

Szenario: Gegeben seien el (todavía freien) Innenmaße uno LKW-Ladefläche. Welche quadratischen Verpackungskartons füllen esta optimal de? Dieses alte Optimierungsproblem de el Logistik puede ser sólo schrittweise angehen, por lo tanto hier sólo una vez una "Simulation" en 2 Dimensionen. In el Praxis ha se hier una weites Feld a KI-Algorithmen etabliert - vom Ameisenalgorithmus a a selbstoptimierenden "Generativen neuronalen Netzen".

Kompilieren Marca Separación

Título de la ventana "2D-PACKING: Rechtecke ganzzahliger Seitenlänge"+\
" con jew. größtmöglichen Quadraten ausloten"
' CopyLeft (CL) 2012/12ff by P.Pájaro carpintero, Wien. Keine Gewähr!
Ventana de Estilo 1048:Ventana 0,0 - %maxx,%maxy:Font 2
Selección aleatoria:cls 13158600+rgb(rnd(56),rnd(56),rnd(56))
declarar z&,s&,n&
Imprimir "   Höhe  (Zeilen): ";:input z&
Imprimir " Breite (Spalten): ";:input s&
rect

Repeat

    inc n&

    if z&>s&

        z&=z&-s&
        rect

    elseif z&<s&

        s&=s&-z&
        rect

    más

        BREAK

    endif

until 0

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