AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Sortieren und kombinieren von Längen

Ein Thema von andone68 · begonnen am 2. Jun 2011 · letzter Beitrag vom 13. Jun 2011
Antwort Antwort
andone68

Registriert seit: 22. Apr 2011
7 Beiträge
 
Delphi 6 Personal
 
#1

Sortieren und kombinieren von Längen

  Alt 2. Jun 2011, 09:21
Hallo zusammen,

suche schon seit längerem eine Routine um vorgegebene Längen zu sortieren und zu einheitlichen Größen zu kombinieren. Mein Fall liegt so: Ich habe verschiedene Kabellängen für bestimmte Einheiten, und es gibt diese Kabel auf Rollen in fixen Größen. Hier ein Beispiel (Längen in Meter<m>):

Das sind die Längenabschnitte mit Ihren dazugehörigen Einheiten:
86m - 1/1
41m - 2/1
58m - 2/2
87m - 2/3
86m - 2/4
78m - 2/5
86m - 2/6
77m - 2/7
83m - 2/8
90m - 3/1
44m - 3/2
57m - 3+3
73m - 3/4
72m - 3/5
65m - 3/6
65m - 3/7
64m - 3/8
60m - 3/9
73m - 3/10
72m - 3/11

Es gibt Kabelrollen mit fixen Größen 200,300 und 500 Metern (wobei 500 zu vermeiden ist). Jetzt gilt es die Längenabschnitte so zu kombinieren dass sie auf die Rollen passen und idealerweise so, damit so wenig wie möglich Reste auf denn Rollen bleiben. Das Ergebnis des Beispiels würde so aussehen:

Rollennummer - Rollengröße - Einheiten
1 - 300m - 1/1+2/1+2/3+2/4
2 - 300m - 2/2+2/5+2/6+2/7
3 - 300m - 2/8+3/4+3/10+3/11
4 - 200m - 3/5+3/8+3/9
5 - 325m - 3/1+3/2+3/3+3/6+3/7

Die letzte Rolle ist immer eine Restrolle und daher eine nicht fixe Größe.

Hoffe das "Problem" ist einigermaßen deutlich beschrieben. Also wenn jemand da einen Lösungsansatz hat bitte posten, wäre super wenn Ihr Ideen hättet.

Gruß
andone68
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.048 Beiträge
 
Delphi 12 Athens
 
#2

AW: Sortieren und kombinieren von Längen

  Alt 2. Jun 2011, 09:28
Schau mal hier.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
andone68

Registriert seit: 22. Apr 2011
7 Beiträge
 
Delphi 6 Personal
 
#3

AW: Sortieren und kombinieren von Längen

  Alt 4. Jun 2011, 09:49
Danke Uwe,

könnte ziemlich genau das sein was ich brauch. Werde das mal testen.

Gruß
andone68
  Mit Zitat antworten Zitat
Jens01

Registriert seit: 14. Apr 2009
670 Beiträge
 
#4

AW: Sortieren und kombinieren von Längen

  Alt 4. Jun 2011, 11:17
Wenn ich das so noch mal einwerfen darf..
Solch ein Algorithmus habe ich vor 20 Jahren mal in meinem Studium programmiert. Noch auf TP 7.0. Für sehr lange Holzbalken, die auf bestimmte kleine Balken nach Liste aufgeteilt werden sollten. Das Programm funktionierte gut, ist mir aber abhandengekommen.

Wenn dies Programmteil von Uwe funktioniert, wäre eine kurze Rückkopplung ganz nett, ansonsten würde ich den Algorithmus auch so noch zusammenbekommen.

Gruss Jens

Geändert von Jens01 ( 4. Jun 2011 um 12:06 Uhr)
  Mit Zitat antworten Zitat
andone68

Registriert seit: 22. Apr 2011
7 Beiträge
 
Delphi 6 Personal
 
#5

AW: Sortieren und kombinieren von Längen

  Alt 4. Jun 2011, 14:32
Hallo zusammen,

hab jetzt mal das Cutting Stock Programm getestet (Link von Uwe). Funktioniert definitiv nicht wenn die Längen nur in Stückzahl 1 gebraucht werden. In meinem Beispiel komme ich wenn ich alle Teillängen addiere auf 1424m. Das Programm errechnet dann (wenn ich Stablänge 300m eingebe) 20 Stäbe. Das wären dann 6000m - also definitiv zu viel. Offensichtlich werden die Stückzahlen ignoriert. Bei größeren Stückzahlen funktionierts dann irgenwie doch wieder was aber in meinem Fall nicht vorkommt.

@Jens: wenn du nach 20! Jahren wirklich noch was zusammenkriegst wäre ich dir dankbar.
@Uwe: Wie ich gesehen habe ist ja für dich englisch kein Problem. Vielleicht kannst du dem Autor ja mal eine Info schicken.

Gruß
andone68
  Mit Zitat antworten Zitat
Jens01

Registriert seit: 14. Apr 2009
670 Beiträge
 
#6

AW: Sortieren und kombinieren von Längen

  Alt 4. Jun 2011, 14:50
Also andone68,

gerade habe ich noch mal gesucht und tatsächlich die Diskette gefunden. Das Problem liegt in dem Wort Diskette 3,5". Die Diskette paßt nämlich nicht in das CD-Laufwerk.

Ich versuche, meinen Uraltrechner noch mal zu starten und die Daten von Diskette auf USB zu bekommen. Du mußt etwas geduld haben.
Versprechen kann ich aber nichts, da alles sehr alt.

Gruss Jens
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:28 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz