Введение:
Есть пластиковая труба (как кабель электрический) которую нужно намотать на катушку. Сечение трубы известно, минимальный радиус гиба известен (по нему определяем начальный диаметр намотки), предельные габариты исходя из ограничений логистики известны.
Вычисление оптимальных диаметров намотки в таблице сделаны, оптимальный диаметр барабана на который будет мотаться труба сделаны. Максимальное количество слоев которое можно намотать до достижения предельного диаметра посчитано. Максимальное количество витков способное уместиться по длине барабана посчитано.
Задача:
Необходимо в формулу ячейки "С15" таблицы "КалькБухты" добавить учет количества слоев (задается в ячейке "С13" таблицы "КалькБухты") по диаметру. Т.е. Нужно ввести в расчет функцию которая учитывала бы увеличение длины каждого витка из-за увеличения диаметра каждого последующего витка на 2 диаметра сечения трубы и так "N" раз.
Примерная схема такая:
Function CYCLE_L(i As Integer)
L = 0
D = КалькБухты!C4*2
S = КалькБухты!C6
For i = 1 To КалькБухты!C13
L = L + 3.14*D
D = D+S*2
CYCLE_L = CYCLE_L + i
Next
End Function
Затем, полученное значение L умножаем на количество витков в слое КалькБухты!C14 и получаем искомое значение.
Знаю что это просто, но заранее приношу извинения за качество примера, школьный курс бейсика двадцатилетней давности не позволяет выполнить задание более правильно и самому даже модифицируя найденный в интернете шаблон
Примечание: Сейчас формула правильно считает только намотку при 1 слое, если слоев влазит больше – формула не учитывает это уже. Для иллюстрации в файле есть таблица где это считалось простым перебором по таблице, но это крайне не удобно в ряде случаев! Т.е. в формуле должна быть применена именно универсальная формула, а не громоздкое "если-то-иначе" и т.п. способы перебора...
P.S. Оплата по "защищенная сделка" или по факту выполнения (перевод на банковский счет, Qiwi и т.п.).
Опубликован 13.11.2017 в 11:37
Заказ находится в архиве