Привет.
Придумал алгоритм подсчета отходов погонных материалов. Куда выложить исходник? Просто, думаю, кому-нибудь пригодится...

Может кто потестит...

расскажи на словах идею

на инфостарт

(0) разницу в словах "алгоритм" и "исходный код" видишь?
алгоритм - сюда, исходники - в дроп, гугл, ядиск, гитхаб

ну или в (3)

забыл про него совсем

Есть список деталей: ТЧ с колонками: Длина, Количество. Все это на форме документа. При внесении новой детали происходит вызов глобальной функции. В неё перед вызовом выгружается ТЗ со списком деталей (свернув перед этим) и Материал.длина в качестве параметров функции.

Возврат ТЗ со списком отходов. Плюс в глобальную переменную глКоличествоПолныхДлинМатериала записывается количество полных длин этого материала, который понадобится при раскрое.

Можно было через Массивы и Структура, но до них у меня руки не дошли.

(3) За Инфостарт забыл, что то...

(6) глобальная переменная? в топку твой алгоритм

(6) Давай так:
1. что дано
2. что найти
3. описание решения
сначала можно п.1 и п.2 только, но внятно

(6) это не алгоритм

1. Дано на документе в ТЧ список деталей (алюминиевый профиль):
 1200  3
 600   5
 450   1

2. При порезке такого погонного материала надо вычислить возможные отходы для того, что пользователь мог их продать или не продать, в зависимости от того какова их длина и количество. А также по какой цене: если длина отходов мала и количество небольшое, то по продажной цене, а если длина отходов велика или велико их количество, то продать по цене себестоимости.

(11) Прости, не так выразился. Я в курсе что такое алгоритм.

В коде расписан весь алгоритм в виде комментария

//*****************************************************************************************
       //Перед обработкой строки проверим есть ли в списке отходы. Если нет - берем целые столешни
       //*****************************************************************************************
       НаличиеОтходовВСписке = 0;        
       Если ТЗОтходы.Количество() >= 1 Тогда
           НаличиеОтходовВСписке = 1;
           //Сообщить("В базе: "+ТЗОтходы.Количество()+ " строк с отходами!");
       Иначе
           НаличиеОтходовВСписке = 0;
           //Сообщить("В базе нет строк с отходами!");
       КонецЕсли;
       
       
       Если НаличиеОтходовВСписке = 1 Тогда    
           ШагКоличествоДеталей = 1;//переменная обозначающая количество деталей. Если количество данной детали больше или равно единицы
           
           
           ///*******************************************************************
           //цикл для обхода всех деталей и проверки их с наличием в базе отходов
           КоличествоОтобранныхКусков = 0;//количество деталей для которых в разных отходах нашлось свободное место для их порезки
           
           Пока (ШагКоличествоДеталей+КоличествоОтобранныхКусков) <= ТекСтрокаИзДетали.Количество  Цикл
                                           
               //надо вычислить влезет ли деталь на наибольший отход в списке отходов
               //********************************************************************                
               
               ТЗОтходы.Сортировать("Длина Убыв");

И далее в таком же духе, только комментарии по плотнее будут :)

(12) При каждой новой детали или изменении количества уже введенной, изменяется вид и количество отходов (динамично). То есть при каждом изменении ищется максимально выгодный раскрой.

(17) тот, кто режет, имеет тот же алгоритм по нахождению оптимального раскроя?

Да, он печатается на листке. Сам раскрой делается в другой программе. Я написал аналог, так как программа стара как мир, но работает на ура. При сравнении результат одинаковый.

(12) Функция универсальна, так что её можно использовать для любых погонных материалов любой длины.

Видимо придется написать обработку, что смогли потестировать

(17) прикинем, есть 10 заготовок по 6 метров,

надо скроить
1.5 м - 2шт
2 метра - 3шт
4 м - 2шт

сколько твоя программа посчитает если вводить по порядку ?

человек насчитает 3палки и остаток по 1 метру 2шт

(15) не взлетит

(22)+ точнее будет так
1. 2+2+2 = 6
2. 1,5+4 = 5,5
3. 1,5+4 = 5,5

два полуметровых отхода

(24)или вот так


1. 2+4 = 6
2. 2+4 = 6
3. 1,5+1,5+4 = 5

один кусок в 1 метр

(0) велосипед

линейное программирование
http://math.semestr.ru/simplex/optimal-cutting.php

http://i48.fastpic.ru/big/2013/0710/3d/36ae70a7094c55c5df8c002b4fc7883d.jpg

(26) Кстати, спасибо за формулы. Искал - не мог найти подобное...

(25) Это неправильно.

(28) вот видиш херня получается, правильное решение (25) когда останется ОДИН метровый кусок...

(30) почему? там в последней строке ошибка вместо 4 нужно читать 2

1. 2+4 = 6
2. 2+4 = 6
3. 1,5+1,5+4 = 7 а не 5

(25) Да ты прав. Теоретически оно должно было посчитать именно по второму варианту. Поищу в чем причина... Спасибо.

(0) в пластиковых заводах все это уже придумано. сам видел.
обсчет изделий, расчет резки, отправка на станок.