XProfan

English

p.specht

Szenario: given seien The (yet disengaged) Innenmaße of/ one LKW-Ladefläche. which quadratischen Verpackungskartons fill these optimal from? this old Optimierungsproblem from the Logistik can only schrittweise concern, therefore here first once a "Simulation" in 2 Dimensionen. in the practice has here weites area on KI-Algorithms etabliert - of Ameisenalgorithmus up to selbstoptimierenden "Generativen neuronalen Netzen".

Compile Mark Separation

Window Title "2D-PACKING: Rechtecke ganzzahliger Seitenlänge"+\
" with jew. größtmöglichen Quadraten ausloten"
' CopyLeft (CL) 2012/12ff by P.woodpecker, Wien. No Gewähr!
Window Style 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  (Lines): ";:input z&
Print " wide (Split): ";: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 Squares: ";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