/
Text
Дж. Нике
Бейсик:
РЕШЕНИЕ
ПРОИЗВОДСТВЕННЫХ
ЗАДАЧ
BASIC ·
PROGRAММING SOLlЛlONS
FOR МANUFAClURING
--
PuЫished Ьу:
~@
ВуJ.Е.Nicks .
Society of Manufacturing Engineers
Marketing Services Department
One SME Drive
Р.О. Вох 930
Dearborn, Michigan 48128
Prentice-HalJ, lnc., Englewood Cliffs, New Jersey 07632
Дж. НИКС
Еейси:к:
РЕШЕНИЕ
·ПРОИЭВОДСТВЕЮIЬIХ
ЭАДАЧ
\
Перевод с английского.
Ю.К. Трубина
Москва
« Машиностроение».
1987
ББК 30.606
Н66
УДК 658.512.011.56: 621
Нике Дж.
Нбб
Бейсик: решение производственных задач / Пер. с
англ. - М.: Машиностроение, 1987.
-
248 с.: ил.
(Впер.):1р.40к.
Рассмотрен широкий круг задач, которые приходится решать инженеру-тех
нологу, нормировщику, экономисту промышленных предприятий. На конкретных
примерах показано. какую помощь при их решении может оказать микроЭВМ.
Основное внимание уделено методам машинного анализа трудовых процессов,
расчета стоимости продукции, экономическому анализу приобретения оборудова
ния, авт9матизированному проектированию технологических процессов. Приведе
ны полные тексты программ на языке Бейсик.
Для инженерно-технических работников промышленных предприятий.
2405000000-51 О
Н------17~86
038(01 )-87
© 19'8:2, Ьу the Society of .Мarюfacturing Eпgiпeers
ББК 30.606
© Перевод на русский язык . Издательство «Машиностроение», 1987
ОГЛАВЛЕНИЕ
Предисловие переводчика . . . . . .
,
.
.
.
.
.
.
.
7
Предисловиеавтора....... ..........
10
Гл а в а 1. Краткий обзор языка программирования Бейсик
12
Гл а в а 2. Расчет стоимости
.
.
.
.
.
.
.
.
.
.
.
13
2.1 . Краткий обзор проб.'Iемы
.
.
.
.
.
.
.
.
13
2.2 . Применение ЭВМ для расчетов стоимости
14
2.3.ПрограммаSFPM...... .
18
2.4.ПрограммаFORGE......
41
2.5 . Программы расчета стоимости
.
51
Г л а в а 3. Графики освоения производства и затраты на запуск изде-
лия . ....... .
3.1 . Расчетные формулы
.
.
.
.
.
.
.
.
.
.
.
3.2. Программа LEARN ...... .
3.3. Анализ сбалансированного соотношения между объемом
производства и стоимостью обработки на различных стан-
ках...........
.
..
..
..
.
3.4 . Программа ВЕР
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
Г л а в а 4. Анализ технологических возможностей оборуд о вания
4.1 . Качество продукции
.
.
.
4.2 . Анализ точности оборудования
.
.
.
.
.
4.3.ПрограммаSTDEV..........
Г л а в а 5. Экономическое обоснование приобретен и я оборудования
5.1 . Программа MONEY .. . . . .... .
5.2. Расчет амортизационных отчислений
..
.
.
5.3.ПрограммаDEP..........
5.4. Анализ экон о мической эффективности капитальных вложе-
ний на оборудование . .... .
5 . 5 . Программа DISCOUNT .
Гл а в а 6. Регрессионны й анализ
...
6.1 . Модели регрессионного анализа
.
.
.
.
.
.
.
.
.
.
.
.
.
6.2 . Линейная регрессия с одной независимой переменной . Про-
граммаREGI.............. .....
6 . 3. Множественная регрессия. Программа REG2 . . ... .
6.4 . Нелинейные регрессионные модели. Программы REG3 и
' REG4 . ..., .....
..
.
.
.
.
.
.
..
.
6.5 . Комментарии к программам REGI - REG4
.
6.6 . Подбор функциональных зависимостей
Гл а в а 7.. Анализ затрат рабочего времени
7 .1 . Хронометрирование
.
.
.
•.....
7.2 . Про г рамма ТIМЕ
...
.
.
.
.
.
.
7 .3. Метод моментных наблюдений
.
7.4 . Программа RAТIO
. ...
.
.
53
53
57
63
68
Ь9
69
70
74
79
79
84
87
91
97
108
108
109
116
122
127
127
130
130
131
145
148
5
Г л а в а 8. Графическое отображение аналитической
наЭВМ.......
8.1. Машинная графика
.
8.2 . Программа BAR . . .
8.3. Программа МАСН
.
.
8.4. Программа GANT . .
8.5. Программа MAN . . . .
Гл а в а 9. Методы обработки файлов
·,
9.1.
9.2 .
9.3.
Средства языка Бейсик для обработки фай л о в
ПрограммаRFILE.............
Программа SFILE ........... .
Гл а в а 10. Проектирование технологических процессов
информации
156
156
157
161
164
167
172
172
174
183
с помощью
микроЭВМ.........
.
.
.
.
.
.
.
.
188
10.1 . Автоматизированное проектирование тех н ологических п ро•
цессов.................
188
10.2 . Расчет технологических процессов
.
.
19'1
10.3 . Программа АС
.
.
.
.
.
.
.
.
.
.
198
Г л а в а 11. Расчет технологических размеров
.
.
209
11.1 . Контроль допусков
.
.
.
.
.
.
.
.
.
.
209
11.2 . Методы по строения диаграмм для контроля допусков. 210
11.3 . Про r ра~1мы TCHARTl и TCHART2
219
Гл а в а 12. С чего начинать?
12.1 . Обучение
.
.
.
.
.
.
.
12 . 2. Оборудование
.
.
..
.
.
.
12.3 . Языки программирования
12.4 . Программирование
.
.
...
.
12.5 . Консуль т ации
..
....
..
.
-Списоклитературы.............
235
235
237
239
241
242
244
ПРЕДИСЛОВИЕ ПЕРЕВОДЧИКА
В нашей стране осуществляется общегосударственная программа
создания, развития и использования вычислительной техники и ав-
1
томатизированных систем управления. Практически все министер-
ства и ведомства используют в своей работе высокопроизводитель
ные технические средства, основанные на микропроцессорах: стац
ки . с ЧПУ, промышленные роботы, гибкие производственные систе
мы. Высокая техническая культура современного производства тре
бует обязательной «электронной» грамотности инженера. Творчески
мыслящий, хорошо подготовленный к работе с микропроцессорами
и микроЭВМ инженер - вот кто определяет сегодня развитие про
изводства, внедрение передовых технических идей , прогрессивных
технологических решений .
Программное обеспечение отстает от потребностей производства.
Это сдерживает использование вычислительной техники заводски
ми специалистами. Например, применение ЭВМ могло бы снизить
трудоемкость работ по проведению систематической аттестации ра
бочих мест, но для этого необходимо разработать программы анали
за технологических возможностей имеющегося оборудования, эконо
мического обоснования выбора нового оборудования, обработки ре
зультатов аттестации.
Разрыв между потребностями производства и возможностями
программистов, которых требуется все больше и больше во всех от
раслях и сферах деятельности , можно преодолеть, только научив
инженера программировать свои задачи. Это будет намного эффек
тивнее , чем программистам осваивать многие другие специально
сти .
Книгу можно использовать как пособие для обучения програм
мированию инженеров - технологов, нормировщиков, экономистов.
От читателя не требуется какой-либо предварительной подготовки.
В основу обучения положено ознакомление с программами решения
знакомых инженеру задач: определение себестоимости детали при
разработке технологt~и, автоматизированное проектирование техно
логических процессов, расчет эффективности капитальных затрат на
приобретение нового оборудования, расчет норм времени, определе
ние размеров обработки и др. Приведены конструкции языка Бей
сик, типичные приемы программирования таких задач , различные
© Издательство «Машиностроение», 1986
7
программы. В каждой главе даны упражнения для закрепления ма
териала . Программы приведены в книге с подробными комментария
ми , и , хотя они написаны для микроЭВМ TRS-80 , на их основе
инженеры могут создавать собственные программы для отечествен
ных персональных ЭВМ «Агат» , СМ-1300, «Электроника-60», болгар
ской «Правец-82», ДВК-2, СМ-1800 и др.
Так , система машинных команд персональной отечественной
ЭВМ «Агат» , -минимальный набор ее модулей, и устройств удовлетво
ряют требованиям, предъявляемым к микроЭВМ при решении про
изводственных задач (см . гл. 12). Языки прuграммирования Бейсик
Агат и Бейсик-ТRS имеют одинаковый набор встроенных функций
(RND, ABS, SGN, INT, SIN, COS, TAN ·, ATN , LOG, ЕХР, SQR),
одинаковые функμии обработ~и строковых переменных (LEN ,
LEFТ,$, R IGHT$, МЮ $), используют одни и те же операции срав
нения(=<>>=><=<), допускают применение функций, оп
ределенных пользователем , многомерных массивов данных, опера
торов РЕЕК и РОКЕ, позволяют записывать на одной строке не
сколько операторов, применять AND или OR в условных операто -
рах IF.
Некоторые операторы, _выполняющие сходные функции в обоих
вариантах языка Бейсик , имеют различное написание и требуют
внесения изменений в программы при переводе задач на отечествен
ную персональную ЭВМ «Агат». Ниже приведены операторы языка
Бейсик-ТRS и после тире соответствующие им операторы Бейсик
Агат: CLS- НОМЕ; INKEY,$ - GET, PRINT@ -НТАВ, VTAB ;
SET, RESET, POINT---' COLOR , PLOT.
Многочисленные функции преобразования, существующие в
языке Бейсик-ТRS (MKD $ , МЮ$, MKS$, CVD, CVI, CVS) , сводят
ся к двум фу нкциям языка Бейсик-Агат: STRS и VAL .
В языке Бейсик- TRS возм:ожна конструкция IF .. .THEN .. . ELSE ,
в то время как в языке Бейсик-Агат используется только IF ...THEN .
Для вывода информации на построчно-печатающее устройство в
Бейсик-ТRS применяется оператор LPR INT. В языке Бейсик-Агат
для этой цели служит оператор PRINT, но ему должна предшество
вать команда PRINT CHR $ (4); «PR # S» , которая указывает опе
рационной системе, что весь последующий вывод информации опе
ратором PR INT будет осуществляться на периферийное устройство ,
присоединенное к разъему S интерфейса «Общая шина».
Наибольшие различия в рассматриваемых вариантах языка Бей
сик связаны с командами машинной графики и обработки файлов .
Наприемр, чтобы провести вертикальную линию в центре экрана
терминала, потребуются три команды на языке Бейсик- TRS (FOR.
Х = 15392 ТО 16352 STEP 64: РОКЕ Х, 149:NEXT Х и одна коман
да на языке Бейсик-Агат (PLOT 128,0 ТО 128, 255) .
Еще большие различия выявляются при работе с файлами. Од
нако подавляющее большинство приведенных программ (а их всего
22) не требует обращения к файлам. Исходные данные вводятся в
программу инженером с клавиатуры или хранятся и обновляются в
8
операторах DATA. Работу с файлами читателю предстоит освоить
позднее, после приобретения начальных навыков программирования.
В заключение несколько слов о переводе англо-американских мер
в метрические. Поскольку программы воспроизведены методом фо
тографирования, в них сохранены англо-американские меры длины.
В формах технологических документов, обрабатываемых на микро
ЭВМ, таблицах и на рисунках, раскрывающих работу программ, так
же пришлось сделать отступление от обязательного в наших изда
ниях применения метрической системы единиц. При этом преследо
валась единственная цель - помочь читателю разобраться в прог
раммах, с тем чтобы он мог на их основе написать программы для ре
шения конкретных производственных задач . В тексте рядом с разме-
рами в дюймах указывается размер в миллиметрах. '
Ю. К. Трубин
ПРЕДИСЛОВИЕ АВТОРА
Любой инженер-технолог, которому приходилось часами сидеть
над формулами и проводить расчеты на электронном калькуляторе;
найдет эту книгу полезной. Обычно ему приходится тратить значи
тельное время на анализ и вычисления, связанные с производствен
ной деятельностью. Часто, стремясь ускорить это утомительное и
трудоемкое занятие, инженер находит способ упростить решение.
Во многих случаях подобные упрощения приводят к потере точно
сти, и, возможно, инженер приходит к выводу о том, что ЭВМ спра
вилась бы с такой работой быстрее и с большей точностью.
До недавнего времени существовало нес~олько основных причин,
мешавших инженеру-технологу использовать вычислительную тех
нику.Во-первых, программу для ЭВМ могли составить только специ
алисты по обработке данных, для чего они должны были разбирать
ся в сущности задачи не хуже инженеров. На практике это трудно
осуществимо. Во-вторых, серьезной помехой были сложивши~ся
взаимосвязи между подразделениями. До автоматизации управления
материально-техническим снабжением в большинстве компаний, рас
полагавших ЭВМ, общая бухгалтерия и служба учета издержек про
изводства забирали для решения своих задач основную часть ма
шинного времени. В течение многих лет для решения других задач
оставалось мало времени, и · инженерные расчеты никогда не пользо
вались высоким приоритетом. В-третьих, оперативность решения
задач на ЭВМ была недостаточной. Чтобы получить ответ на стоящие
перед ним вопросы, инженеру-технологу необходимо было написать
программу, набить перфокарты, провести расчеты. На все это ухо•
дило слишком много времени. Теперь положение изменилось. Бы
стро развивающееся производство микроЭВМ позволило решить
многие проблемы, существовавшие в прошлые годы.
Основная цель книги - показать инженерам-технологам, что
микроЭВМ может дать быстрый, точный и хорошо систематизирован
ный ответ на поставленную производственную задачу при незначи
тельных затратах.
Книга далеко не исчерпывает всех возможных применений ЭВМ
• на рабочем месте инженера-технолога, но служит первым важным
шагом в понимании того, насколько просто инженеру-технологу пи
сать самому программу для ЭВМ .
Главы книги построены по общей схеме: сначала кратко рас
сматривается сущность задачи, затем приводится текст программы на
язь1ке Бейсик , с помощью которой решается задача, и наконец, об
суждаются особенности каждой программы. В книге рассмотрен ши
рокий круг типичных производственных задач.
10
Читатель может найти различное применение этой книге. Во
первых, без всяких навыков в написании программ для ЭВМ он мо
жет любую из предлагаемых программ использовать для решения
типичных проμзводственных задач. (Автор надеется, что большинство
читателей не пойдет по этому пути). Во-вторых, любая из приведен
ных программ при необходимости может быть изменена с учетом спе
цифики конкретной задачи. Для этого достаточно умеренное знание
программироваI+Ия.
Книга не является учебным пособием по изучению языка Бейсик,
однако тексты программ и комментарии к ним позволят заводским
специалистам понять, как ЭВМ выполняет расчеты. Усвоив это, мож
но легко изменять программы . В -третьих, и это самое важное, лю
бой инженер -технолог или студент высшего учебного заведения, го
товящийся стать технологом, после приобретения некоторого опыта
программирования на языке Бейсик сможет использовать содержа
щ11еся в книге примеры программ для написания собственных про
грамм.
В конце каждой главы приведены задания для самостоятельной
работы, позволяющие получить навыки программирования .
Следует сказать несколько слов о технических средствах. Все
программы, помещенные в книге, были написаны и проверены на
микроЭВМ II уровня «Радио шэк TRS-80» *, с объемом оперативной
памяти 32К байт. В качестве дисковой памяти использованы гибкие
магнитные диски диаметром 134 мм. Объем памяти для размещения
каждой программы указан в описании программы . Программы, при
веденные в книге , как правило, можно хранить в памяти объемом
значительно менее 32К байт. Однако имеются три программы, кото
рые требуют использования почти всех ресурсов памяти, доступных
пользователю .
Для работы программ необходимо также печатающее устройст
во. Вся система (ЭВМ с памятью объемом 32К байт, дисковод и пе
чатающее устройство) стоит менее 3500 долл. Еще несколько лет
назад подобная ЭВМ стоила намного дороже.
Одна из целей этой книги - заинтересовать специалиста или
руководителя в приобретении микроЭВМ и использовании ее в сво
ей работе . По мере того как инженеры будут приобретать опыт
программирования, автоматизированные системы проектирования
технологических процессов будут распространяться все шире
и шире.
При составлении программ не делалось никаких попыток напи
сать «сжатые» программы или программы . эффективно и с по л ьзую
щие выделенную область памяти по дву м причинам. Во-первых , про-
1
u
граммы должны быть понятны инженерам, имеющи м огр а ничен н ыи
опыт программирования на языке Бейсик . Во-вторых , современные
,шкроЭВМ имеют достаточный объем оперативной памяти.
* Прои з водства 'филиала «Радио шэк » (Radio Shack) фирмы «Тэнди»
(Tandy).
11
Глава 1
КРАТКИИ ОБЗОР
ЯЗЫКА ПРОГРАММИРОВАНИЯ БЕИСИК
В английском оригинале дано описание элементов языка Бейсик: операто
ров, • символов, правил пунктуации. Приведен разбор коротких демонстраци
онных программ , Каждая программа содержит новые элементы языка . Пост
рочные комментарии к программам и отдельные упражнения, включенные
в · главу , по м огают читателю получить представление о понятиях и конст
рукциях я з ыка Бейсик .
Бейсик· является распространенным в СССР диалоговым языком. Учи
тывая, что по э т ому я з ыку был о опубликовано несколько учебных пособий ,
редакция решила сократить гл. 1 с ведо м а правообладателя.
Читатель может обратиться к работам советских и иностранных авто
ров на русском языке:
Кетков Ю. Л . Программирование на Бейсике. М.: Статистика, 1978.
157 с.
Программирование на я з ~1ке Бейсик-плюс для СМ-4/ В . П . Семик, Д . М .
Монцибович, Д . П. Непочатых и др. М.: Финансы и статистика, 1982 . 246 с.
Уорт Т. Программирование на языке Бейсик : Пер. с анrл/ Под ред.
В . Ф . Шаньrина . М . : Машиностроение, 1981. 225 с .
Глава 2 •
РАСЧЕТ СТОИМОСТИ
2.1 . КРАТКИЙ ОБЗОР ПРОБЛЕМЫ
При планировании производства всегда приходится затрачиватЬ
много времени и средств на расчеты , связанные с определением сто
имости, поэтому специалисты постоянно ищут способы сократитЬ
трудоемкость таких расчетов.
Как правило, промышленная компания стремится выдержать оп
ределенное соотношение между объемом работы, рассчитанным пр·и
обосновании заказа, и объемом, который надлежит выполнить после
заключения контракта. Если компания завышает объем работы ,
можно ожидать, что производственные расходы будут слишком вы
сокими, а мощности недоиспользованными. Занижение объема ра
бот ведет к неправильному установлению цены на изделие, требует
дополнительного привлечения трудовых и материальных ресурсов.
На примере микроэлементных нормативов 1 можно показать, ка~
требование к точности влияет на трудоемкость расчетов. Если пред
положить, что для выполнения одной операции требуется 1000 еди
ниц работы в системе МТМ и эта система используется для расчетов.
(в реальных условиях это невозможно в связи со слишком большими
затратами инженерного труда), то трудоемкость расчетов в зависимо
сти от степени укрупнения нормативов будет выглядеть примерно
так:
•
Длитель н ость расчета, ч
До п устимая погрешность , %
МТМ-1
3,5
±7
МТМ-3
0,5
±20
Точность расчетов существенно повышается по мере их дета
лизации . Данные табл. 2.1 помогают взглянуть на проблему расче
тов именно под этим углом зрения. Из таблицы следует, что уровень
1 Микроэлементные нормативы - система нормативов на первичные эле
менты трудового процесса - трудовые движения. Применяются при проекти
ровании трудовых процессов, анализе и рационализации существующих ме
тодов работы, разработке нормативов вспомогательного времени, установле
нии норм труда, обучении рабочих правильным методам выполнения работ.
Существуют различные системы микроэлементных нормативов. Среди них
МТМ - система измерения времени с учетом методов работы. Длительность
отдельных :трудовых движений в системе МТМ выражается в специальных
единицах (1 ед. работы равна 0,00001 ч, или 0,036 с). Различают несколько мо
дификаций МТМ . Для нормирования операций длительностью менее 0,5 мин
применяется модификация МТМ-1 . Модификации МТМ-2 н МТМ - 3 представ-
• ставляют собой укрупненные варианты МТМ. - Прим . пер.
13
2. 1. Методы расчетов и их точность
Мt:тод
мтм
Нормативы на эле -
менты операций
Нормативы на опера
цию
Нормативы на деталь
Уровень д етализаци11
Очень высокий
Средний_ (уста н овка и с н ятие
детали, машинная обработка)
Низкий (точение, фрсзсрqва -
ние, сверление, растачивание)
Детализация отсутствует (из
готовление
детали, наладка
станка . установка приспособ
ления)
Погрс11 1 ность
расчстоu. %
± 0.7
± (10- 15)
± ( 15-20)
± (20-30)
детализации имеет решающее значение для точности расчетов. Дру
гой вывод заключается в том, что расчеты должны быть совместимы
ми. Например, расчеты стоимости обработки деталей сверлением,
проведенные на предыдущей неделе, должны согласовываться с ана
логичными расчетами, проведенными на следующей неделе. Если
можно добиться постоянно заданной точности расчетов, то можно
оценить погрешность расчетов и своевременно их скорректировать.
Для обеспечения методического единства и ускоре1:1ия . проведе
ния расчетов стоимости многие компании применяют ста!'lдартные
формы документов . Такой подход обеспечивает совместимость рас
четов и их оперативность. но имеет свои недостатки. Достаточно ска
зать , что количество типов таких форм в одной компании может со
ставлять 20 и более. Требуется слишком много времени , чтобы за
полнить все формы, внести в них изменения. Необходимо также обу
чить работников правильно заполнять формы. Заполнение любого
готового бланка само по себе малоинтересное занятие. При исполь
зовании стандартных форм документов показатели укрупняются ,
что позволяет оперативнее провести расчеты. При этом уменьшается
точность расчетов. В большинстве случаев компания стремится не
сколько завысить объем работы , необходимой для выполнения зака
за. 'Поэтому повышение оперативности расчетов в ущерб их точно
сти оправдано . Но как только компания заключила контракт , ос
новывающийся на проведенных расчетах , возникают новые пробле
мы . При разработке технологии производства нового и здел и я ук
рупненные показатели, полученные ранее , . становятся бесполезны
ми для инженера - технолога . .
2.2. ПРИ М ЕНЕНИЕ ЭВМ ДЛЯ РАСЧЕТОВ СТОИМОСТИ
Р е зультаты повторных расчетов. выполняемых технологами , име
ют мало общего с первоначальными результатами. Применение
ЭВМ для расчетов стоимости позволяет сделать существенный шаг
вперед в решении проблемы . Прежде чем автоматизировать расчеты ,
необх одимо пр и нять ряд решений , которыми будет руководствовать
ся и н женер при написании программы для ЭВМ .
14
Определение параметров расчета. Операция - токарная обра
ботка. Деталь - вал. Приведенные ниже параметры определены в
минутах:
Время на установку детали 7 1
Основное (т ех нологическое) время Т 2
Время на сняти е детали Т3
Оперативное вр е-мя Т 4 .
0,250
1 ,ООО
0,250
1.500
Время на исправление брака, отклонение от задан ных ус.повнi'1 ра
боты, отдых и естественные надобности (20·0/0 оперативного нремс
ни) 75
0,300
1,800
Норма штучного времени
Предположим, что погрешность определения нормативов време
ниТ1,Та +15%;времениТ2 +3%;ивремениТ5 +5%.Тогда
можно рассчитать границы точности расчетов (табл. 2.2).
2.2 . Границы точности расчетов
Элемент операции
(погрешность)
Уст ановка детали (15%)
Обработка (3 %)
Снятие детали (15%)
Итоrо
Предел точности
Т5
Всеrо
Норма
времени, мин
0,250
1,000
0,250
1.500
0,300
1,800
М ини мальное
Максимальное
вре·м я. мин
время, м11н
-1 5 %=0,210 +15% =0,290
-3% =0,970 +3%=1,030
-1 5%=0.210 +15%=0,290
.
1,390
1,610
1,390
1,610
--=
-7% .- =-+7%
1,500
•
1, 500
о
+15%=0,210 +25% =0.400
1,600
2,010
Пр н м: е чан и е. По результатам расчетов перuоначалuная н орма составляет
1,800 мин, минима льна я норма 1,600 мин (--·12 %); максима.111.,ная норма 2,0 10 мин
( + 12%).
Без учета дополнительного времени, точность расчетов состав
ляла + 7 %. В целом (по сравнению с данными табл. 2. l) точность
возросла, поскольку мы установили высокие пределы точности при
подсчете основного (технологического) времени, учитывая, что по
следнее является функцией режима резания . Можно ли в этом слу
чае написать программу для ЭВМ, в которой расчеты режимов ре
зания имели бы точность не менее +3 %? И разве такой расчет не
будет представлять интерес для инженера-технолога, который дол
жен разработать технологический 11poriecc на изделие 1юс.Тiе того ,
как компания получит заказ? Пронищ1тельный читатель скажет :
«Если ответы на эти вопросы утвердительные, то применение ЭВМ
для расчета стоимости оправдано» . В табл. 2 .3 . приведены различ-
15
2.3. Трудоемкость программирования в зависимости
от сложности программы
Программа Программа Программа
1
2
3
Необходимая информация
Вх./Вых. Вх.1Вых. Вх.1Вых.
-
1
Начальный диаметр
х
х
Диаметр детали после об - х
х
х
работки
Число проходов
х
х
х
Глубина резания
х
х
Подача
х
х
х
Частота вращения, об/мин
х
х
х
Марка инструментального
х
х
материала
·Скорость резания
х
х
х
Основное (технологическое)
х
х
х
время
Обрабатываемый :материал
х
х
Требуемая частота враще-
х
х
х
ния
Корректировка режима об-
работки
·Общее количество данных
516
813
413
Примерные затраты време-
20
3
2
ни на программирование**,
ч
* Частота вращения корректируется по паспорту конкретного станка .
Программа
4
Вх. 1 вых.
х
х
х
х
х
х*
х
х
х*
х
х*
х*
418
30
•• Продолжительность
программирования с учетом входных и выходных 11оказат с.11ей и
без учета времени, необходимого для написания и отладки реальной программы.
ные варианты трудоемкости программирования расчета стоимости
обычной токарной операции. Принимая решение об автоматизации
расчетов, руководитель должен учитывать ряд факторов, связанных
со сложностью программы и влияющих на трудоемкость программи
рования.
Программа 1 позволяет рассчитывать скорость резания по задан
ным глубине резания, подаче, обрабатываемому материалу, марке
инструментального материала. Такая программа экономит время
инженера-технолога при расчете стоимости операции. Выходные
данные могут быть использованы для решения других производст
венных задач.
На последнее обстоятельство следует обратить особое внимание.
Действительно, без всяких дополнительных затрат времени, труда
или средств можно определить объем работы при обосновании буду
щего заказа с точностью +5 % (условно). Когда заказ поступит, ин
женер-технолог может использовать те же данные для разработки
технологии изготовления заказанной продукции. Таким образом,
16
программа выполняет несколько функций. Однако для написания
программы, рассчитывающей скорость резания, потребуется немало
времени.
Для программы 2 характерны очень небольшие затраты труда на
программирование. Инженер-технолог должен ввести восемь пока
зателей, в то время как ЭВМ рассчитывает только три показателя.
Если инженер использует справочник для технического нормирова
ния работ или помнит все необходимые данные, использование ЭВМ
становится неэффективным. Гораздо быстрее такие расчеты можно
провести на электронном калькуляторе.
Программа 3 подобна программе 2, но проще ее.
Программа 4 напоминает программу 1 и является самой сложной.
В ходе ее выполнения найденные частота вращения шпинделя и по
дача сравниваются с паспортными данными станка и производится
перерасчет скорости резания. Например, если ЭВМ подсчитала, что
частота вращения шпинделя должна составлять 1000 об/мин, а ки
нематическая схема станка допускает 863 или 1126 об/мин, ЭВМ вы
бирает ближайшее к расчетному значение. Таким же образом под
бирается подача. Этот выбор можно назвать «искусственным интел
лектом», поскольку ЭВМ запрограммирована принимать разумные
решения. В этом случае время, необходимое на программирование,
неизмеримо возрастает. Программа может учитывать и другие огра
ничения, связанные с мощностью станка, nрочностью инструмента,
требованиями к точности обработки и чистоте обрабатываемой по
верхности.
Теперь можно перечислить типы программ, которые должен рас
смотреть руководитель, прежде чем принимать решение об автомати
зации расчетов.
l. Программа расчета стоимости токарной обработки .
2. Программа, уровень детализации которой позволил бы ин
женеру-технологу пользоваться различными данными, рассчитан-
ными эвм.
•
3. Программа, которая осуществляет в соответствии с заданны
ми условиями выбор режимов резания и оборудования .
4. Программа , которая корректирует найденную частоту враще
ния или подачу по паспорту конкретного станка , а также учитывает
другие ограничения.
От того, насколько правильно будет выбран тип программы, за
висят трудоемкость программирования и точность достижения по
ставленной цели. Читатель может при этом спросить: «Стоит литра
тить сто-лько времени на достижение этих целей?». Скромный опыт
автора позволяет ответить на этот вопрос утвердительно.
В этой главе приведены две программы для расчета стоимости на
эвм.
17
2.3. ПРОГРАММА SFPM
В программу входят четыре модуля, решающие определенные за
дачи. Модуль 1 рассчитывает стоимость токарной обработки инстру
ментом с пластинами из твердых сплавов. Инженер-технолог должен
ввести в ЭВМ следующие данные: начальный диаметр детали; диа
метр детали после обработки; глубину резания при черновом про-
'
CAJa:BIDE TiJRNING
PART NAME GEAR PART NUME~R 82100
DATE 01/111/Ell
ТНЕ FULLOWING DATA IS FOR тwа SETS OF r □ OL LIFE
SFF'H r,oLJGH
Sf:·pн F"INISH
RPM fШLIGH
Rf' ·M F "INISH
HITAL CUTПNG
TOTAl. COST
PARTS PER НОUГ'\
FOR
ТIМЕ
60 MIN TODL l. IFE
459
1107
876
211.tt
.87Ч116
S . 277056
68,6381
Т ► ~Е MA"ГERIAL IS AISI 1018,1020- -BHN 150
FOR 240 MIN TOOL LIFE
2~7
597
171
1110
1,62176 MIN. PER, РС,
S , 13816
36.9285
STARTING DIA, WAS 3 INCHES, FINISHED DIA , IS Z INCHEБ
LENCT H OF CUT 1 INCHES
ROUGHING DEPTH ,075 INCHES АТ .~1 FEED PER REV ,
FINlSHING DEPTH ,01 INCHES АТ
,01 FEED PER REV
ТНЕ TOTAL NUMBER OF CUTS TAKEN IS 6
SHOP RATE S 15,25 OOLLARS PER HOUR AND INSERT COST $ 2,75 PER SIOE
TOOL CHANGE TIME 4 MIN, PER CHANGE
Распе•1атка 2.1.
ходе; по;;,ачу при черновом проходе; глубину резания при чистовом
проходе; подачу при чистовом проходе; цеховые расходы; стоимость
одной режущей кром1ш пластины из твердого сплава; время, необ
ходимое для смены 11нструмента.
Во время выполнения этой части программы инженер-технолог
должен выбрать один из 20 видов обрабатываемого материала, шиф
ры 1<0торых хранятс я в памяти машины. Текст программы помещен
в распечатке 2.8 . Л\одул~, написан с учетом основных показателей
расчета стоимости.
Инженер - технолог тратит много времени на подбор оптималь
ного режима резания ДJIЯ обрабатываемого материала. Подобные
18
расчеты требуют поиска необходимых исходных данных в специаль
ных справочниках. Очень часто специалист, производящий расчеты,
не располагает для этого временем и ограничивается выбором режи
ма резания «на глазок». Модуль 1 рассчитывает режим резания с уче
том глубины резания и подачи для данного вида материала. Подроб
ная схема таких расчетов приведена ниже.
У читывая, что ЭВМ обладает непревзойденной способностью
«щелкать цифры, как орехи», в модуле 1 проводятся расчеты для двух
вариантов. В первом стойкость инструмента задается инженером-тех
нологом, во - втором - принимается равной 60 мин. Определенное со
четание скорости резания и стойкости инструмента позволяет оп
тимизировать затраты на операцию, складываюrμиеся из затрат на
обработку детали и замену инструмента. При расчете стоимости же
лательно просчитывать несколько вариантов, чтобы найти условие,
при которых стоимость будет наименьшей. Обычно этого не удает
ся сделать, так как расчеты вариантов вручную требуют большого'
количества вр~мени.
Примеры распечаток резу.rJьтатов работы модуля 1 программы
(распечатки 2.1
-
2.3).
c..::os-r · ESTIMATE
CARE=IDE TURNING
PART NAME GEAR PART NUMBER 82100
DATE 01/01/81
ТНЕ f OL.L
.CIWING DATA IS FOR TWO SETS OF TOOL LIFE
1
ГОR 60 MIN TOOL LIFE
FOR 240 MIN TOOL LIF'E
SF "f··H ROUGH
qq1
238
SFF·M F"INISH
1107
597
Rf'M ROLJGH
8-ЧZ
'151
Г.:F·н F· rнrsн
211--Ч
11qo
TOTAL. CUПING ТIМЕ .66.q27,ч
1.23193 МIN, PER. РС,
TOTAL соsт
'
.210538
'
, 332151
PARTS PER HCllJR
90.3242
qе.1оз9
ТНЕ MATENIAL IS AISI 1010,1020 -~ BH N 150
STARTING OIA, WAS 3 INCHES, FINISHED DIA, IS 2 INCHES
LENGTH OF CU1 q INCHE S
ROUG0НING ОЕРТН , 1 INCHES АТ , О q FEED F'ER REV ,
FINISHING DEPTH .О ~ INCHES АТ ,01 FEED PER REV
ТНЕ TOTAL NUMBER OF CUTS TAKEN IS q
SHOF' RATE S 15.25 DOLLARS PER HOUR ANO INSERT COST S 2.75 PER SII)E
TOOL CHANGE TIME q MIN, F'ER CHANGE
'
Распечатка 2.2.
19
СС)~:>Т ЕS-Т-:Х:МАТЕ
CARE:IDE TURNING
PART NAHE GEAR PART NUHBER 82100
DATE 01/01/81
ТНЕ. FOL.l .OWING DATA 15 FOR TWO SETS OF TOOL LIFE
HJR 60 мн, TOOL LIFE
FOR 2.cto н·1н TDDL LIFE
SF "f•M kOLJGH
lt27
230
sr· pн · f ~INISH
1107
597
F<PH ROUCH
815
~39
f~F·н f·1.NISH
2111
1110
TOTAL CLIТТING ПНЕ ,557313
1.03-"'125 НIN, PER, РС,
НIТ AL COST
$ ,176631
$ ,2791 0::J
f··ART!:; FTfi нош;·
107 ,659
58,01Э1
ТНЕ MATE ~RJAL IS AISl 1018,1020 --BHN 150
STARTING OJA. WAS 3 IN~tiES, FINIStiED О:[А, IS 2 INCHES
L.lNG ftt (lf c:u·, q INCtiES
kCILJGHING [)fPГtt ,125 INCHES АТ , 01 FEED PER REV,
f~INISHTNG ОЕРТН ,01 INCHE:S АТ ,01 FEED PER REV
Гttf T(ITAL NLJMBE:F~ (JF CIJ.ГS TAKEN IS 3
~i ttOF· f~ATf $ 15,25 DOLLARS PER HOUR AND INSERT COST • 2 ,75 PER SI(>E:
TQOL CHANGE TIME 1 MIN, PER CHANGE
Распечатка 2.3.
Расчет стоимости обработки твердосплавными резцами
Наименование детали: шестерня. Номер детали 82 100
Дата 01/01/81
Следующие данные приведены для двух периодов стойкости инструмента:
Скорость резания, черновой проход
Скорость резания, чистовой проход
Частота вращения, об/мин, черновой проход
Частота вращения, об/мин, '!Истовой проход
Основное время, мин
Стоимость обработки, долл.
Производительность, шт/ч
60 мин
240 мин
459
247
1107
597
876
471
2114
1140
0,874146
1,62476
0,277056
0,43846
68,6384
36,9285
Обрабатываемый материал
Начальный диаметр 3 дюйм,
ния 4 дюйм
1018, 1020 - нв 150
диаметр после обработки 2 дюйм, длина реза-
Г:1убина резания, черновой проход, 0,075 дюйм при подаче на оборот
0,04 дюйм
Глубина резания, чистовой проход, 0,01 дюйм при подаче на оборот
0,01 дюйм
Число проходов 6
Цеховые расходы 15,25 долл/ч, стоимость пластины в расчете на одну ре
жущую кромку 2,75 долл .
Время на смену инструмента 4 мин
К распечатке 2.1 .
20
В каждом примере использованы одни и те же исходные данные ,
Изменяется только глубина резания. Результаты работы модуля l
приведены в табл. 2.4. Из таблицы видно, что скорость резания яв
ляется функцией глубины резания.
Глубина
резания,
дюйм
0,075
0,100
0,125
2.4. Результаты расчетов по модулю
Число
r1рuходов
6
4
3
Скорость
резания,
фут/мин
459
441
427
Частота
нращенин,
об/мин
876
842
815
Пронзводнтедь
ность, шт /ч
68,6
90,3
107,6
Ниже приведены сообщения и вопросы, которые появляются на
экране дисплея в ходе выполнения программы. Жирным шрифтом
выделены ответы, набираемые на клавиатуре инженером-технологом .
Программа рассчитывает скорость резания, частоту вращения
шпинделя, штучное время и количество обрабатываемых деталей в
час для следующих операций:
точение резцами с пластинами из твердых спJ1авов
точение резцами из быстрорежущей стали
сверление на многошпиндельном станке
фрезерование . .
Введите номер операции
?1
1
2
3
4
Операция: точение резцами с пластинами из твердых сплавов.
В конце работы модуль распечатывает · следующие данные:
режим резания, стоимость обработки для двух значений стойко
сти инструмента: стойкости 60 мин и дл,1 стойкости, указанной поль
зователем (не более 240 мин). Введите 1, чтобы просмотреть перечень
материалов? Введите номер обрабатываемого материала:
1. 1018-1020 нв 150
2. 1040 нв 180
3. 1045НВ270
4. 1050-1060-52100 нв 225
5. 1095 нв 225
6. 1335 нв 209
7.3140НВ275,
8. 4130-4340-5132 Н В 200
9. 4140-4340-5132 нв 300
10. 4150-4815 нв 250
11. 4320 нв 200
13. 8620 НВ 175
?1
21
После выбора материала задайте следующие параметры:
Глубина резания?
Начальный диаметр?
Диаметр детали после обработки?
Глубина резания при черновом проходе?
Подача при черновом проходе? . .
Глубина резания при чистовом проходе?
Подача при чистовом проходе?
Цеховые расходы в час? . .
Время для смены инструмента, мин?
.
Период стойкости инструмента (не более 240 мин)?
.
Стоимость одной режущей кромки пластины из твердого сплава?
4
3
2
0,075
0,040
0,010
O,QIO
15,25
4
.
240
2,75
Инженеру-технологу для выполнения подобных расчетов на
электронном калькуляторе нужно потратить не менее 1 ч, ЭВМ вы
полняет их за 2 мин. Можно добавить еще одну строку к программе,
чтобы учесть затраты времени на исправление брака, отклонения от
заданных условий работы, отдых и естественные надобности рабоче
го и соответственно скорректировать норму.
Комментарий к модулю 1. После того как читатель познакомится
, с распечатками результатов работы модуля 1, уместно сделать неко
торые замечания. В этот или аналогичный модуль можно внести из~
менения, позволяющие выполнить следующие функции: расчет объ
ема металла, уходящего в стружку; проверку выбранного режима
резания по мощности станка или другим ограничениям, связанным с
-оборудованием. 13 программу, написанную для конкретного станка,
могут быть добавлены такие функции, как расчет машинно-руч
ного времени, корректировка режимов резания, время настройки де-
. лительного
приспособления, установки и· снятия деталей. Для это
го вводится подпрограмма, организующая в памяти ЭВМ таблицу за
трат ручного труда на операцию для каждого конкретного станка.
, Ограничения, накладываемые программой, устанавливаются инже
нером-технологом.
Алгоритм расчета технически обоснованной нормы может быть
и более сложным . Например, если деталь обрабатывается на револь
верном станке и необходимо выполнить операцию сверления, в про
грамме для ЭВМ можно предусмотреть расчет затрат ручного труда,
необходимого для установки револьверной головки, подвода и отво-
_ да инструмента каждый раз, когда выполняется операция сверле
ния. Можно также «научить» ЭВМ различать случаи, когда время
на выполнение какого-либо элемента опера1щи перекрывается вре-
менем выполнения другого элемента.
'
После того как освоена последовательность расчетов, сама проце
_дура становится малоинтересной, монотонной, поскольку приходит
со повторять одни и те же действия. Эта монотонность ведет к ошиб
к ам , к использованию «потолочных» правил, что порождает новые
ош ибки. Однако совершенно необходимо освоить порядок расчета
техни ческ и обоснованной нормы прежде, чем сделать следующий
ш аг - написать программу ДJIЯ ЭВМ. Инженер-технолог уже вла
деет так и ми расчетами .
:22
COST ESTIMATE
HIGH SPEED TURNING
PART NAME SHAFT PART NUMBER 32000
DATE 01/01/81
ТНЕ FOLLOWING DATA IS FOR HIGH SPEED STEEL
AND FOR 60 MIN. TOOL LIFE
SFPM FOR ROUGHING IS 62
SFPM FOR FINISHING IS 156
RF'M F'OR ROUGHING IS 118
RPM FOR FINISHING IS 2 97
TOTAL TIME FOR ТНЕ ROUGH & FINISH CUTS IS 3,01172 MIN . PER РС .
TOTAL OPERAТION COST IS
$ .773103 DOLLARS PER PART
PARTS PER HOUR ARE 19.7257
STARТING DIAMETE.R WAS 2,5 INCHES. FINISHED DIAMETER IS 2 INCHES
LENGTH OF CUT IS 1 INCHES
ROUGHING DEPTH IS ,1 INCHES АТ .О~ FEED PER REV .
FINISHING DEPT~ IS
.01
INCHES АТ ,01 FEED PER REV ,
ТНЕ MATERIAL IS AISI lUlЭ,1020--BHN 150
SHO P RATE COST PER HOUR IS
$ 15,25
, 01 f'EED
SF"F'H 156
,013 FEED
SFPM 139
, 016 FEED
SF-- F'H 127
, 019 FEED
SFF'H 11€:1
. 022
F"EED
SF РМ 111
.025 FEE:O
SFF'H 105
,028 FEED
SFPM 100
,031 FEED
Sf-F'M 96
, 031 FEED
SF-F 'H 92
. оз7
rп: о
SFPM 89
, 01 F'EED
SF"f•M 86
,043 FEED
SF--F'H 83
62
77
SURFACE
92
.
.
.
FEET f'ER
107
.
•
.
•
МINUTE
122
.
•
Распечатка 2.4 .
•
137
152
.
.
Модуль 2 - токарная обработка резцами из быстрорежущей
стали. На распечатке 2.8 приведены результаты работы модуля 2 jЦi;;
расчета стоимости наружного точения резцами из быстрорежущей
стали. При н ап исании модуля 2 использован тот же формат, что и
при напи с ании модуля 1. Необходимо вновь подчеркнуть, что каж
дый модуль является самостоятельной программой , иначе читателю,
23
COST ESTIMATE
HIGH SPEED TURNING
РАRТ NA11E SHAFT F'ART NUME :ER 321 О 1
DATE О 1/01/81 •
ТНЕ FOL.LOWING DATA IS FOR HIGH SPEED STEEL
ANO FOR 60 MIN , TOOL LIFE
SFPM FOR ROUGHING 15 48
SFPM FOR FINISHING 15 121
RPM FOR ROUGHING IS 91
RPM FOR FINISHING IS 231
TOTAL TIHE FOR ТНЕ ROUGH & FINISH CUTS 15 3,9294 MIN, PER РС.
TOTAL OPERATION COST IS
$ ,9987~4 DOLLARS PER PART
F'AIПS PER HOUR ARE 1 ;; , 2695
STARTING OIAHETER WAS 2,5 INCHES, FINISHED DIAMETER IS 2 INCHES
L_ENGTH □ F· CUT 15 .q INCHES
ROUGHING ОЕРТН IS ,1 I ~CHES АТ ,04 FEED PER REV ,
FINISHING DEPTH IS ,01 INCHES АТ ,01 FEED PER REV ,
ТНЕ HATERIAL IS AISI 1040--BHN 180
SHOF· RATE: COST PER HOUR IS
S 15,25
,О1FEED
SF"PM 121
,013 FEED
SF'F •M 108
,0 16 FEED
SFPM 99
: 019 FEED
SFF'M 92
,022 FEED
SFPM 86
.025 FE:ED
SFPM 81
, 028 FEED
sF·Pм 77
,031 F.EED
SFF'H 74
,034 FEED
SFF'M 71
.037
FEED
SFPH 69
,04 FEED
SFPM 66
, 043 FEED
SFPH 64
SURFACE FEET PER MINUTE
63
78
93
"'
"'
"'
"'
Распечатка 2.5 .
"'
108
"'
не имеющему опыта программирования, программа может показать
ся сложной . Расчеты в модуле 2 проводятся только для стойкости
инструмента 60 мин. Объясняется это тем, что инструмент из быстро
режущей стали требует частой замены . Модуль 2 может воспроиз
водить график показательной зависимости скорости резания от по
дачи (см. распечатку 2.4). Более подробно построение графиков с по
мощью ЭВМ рассмотрено в гл. 8. Результаты работы модуля 2 приве
дены на распечатках 2.4, 2.5 ,
24
Расчет стоимости обработки резцами из быстрорежущей стали
Наименование детали: вал. Номер детали 32 ООО
Дата 01/01/81
. Сле дующие
данные приведены для резцов из быстрорежущей стали и стой
кости инструмента 60 мин
Скорость резания, черновой проход, 62
Скорость резания, чистовой проход, 156
Частота вращения, об/мин, черновой проход, 118
Частота вращения, об/мин, чистовой проход, 297
Общее время чернового и чистового проходов, мин/шт. 3,04172
Общие операционные расходы, долл/шт . 0,773103
Производительность, шт/ч 19,7257
Начальный диаметр 2,5 дюйм, диаметр после обработки 2 дюйм, длина ре
зания 4 дюйм
Глубина резания, черновой проход О, 1 дюйм при подаче на оборот 0,04 дюйм
Глубина резания, чистовой проход, 0,01 дюйм при подаче на оборот 0,01 дюйм
Обрабатываемый материал 1018, 1020; НВ 150
Цеховые расходы, долл/ч 15,25
o,oi' подача
скорость 156
0.013 подача
скорость 139
ит.д.
Скорость резания, фут/мин
62
77
92
107
122
137
152
К распечатке 2.4 .
Модуль 3 - одновременное сверление на многошпиндельном
станке. Модуль 3 представляет пример законченной программы для
расчета стоимости. В отличие от модуля 2 в модуле 3 отсутствует об
ращение к подпрограммам других модулей с помощью оператора
GOSUB. В модуле 3 пользователь вводит данные о том, сколько раз
повторяются различные элементы операции сверления каждого от
верстия в процессе выполнения программы. В программе хранятся
нормативы времени на такие элементы операции, как п~ремещение
кондуктора, очистка отверстия, осмотр отверстия, подвод инстру
мента к детали, отвод инструмента в исходное положение и др. Пос
ле расчета основного технологического времени программа запраши
вает данные о том, сколько раз пользователь хотел бы учесть для
каждого отверстия эти нормативы, и соответственно рассчитывает
значение затрат вспомогательного времени. В конце работы прог
раммы пользователь должен ввести данные о массе обрабатываемой
детали. В зависимости от массы ЭВМ выбирает значения нормати
вов времени на установку и снятие детали из программы.
В задаче, результаты решения которой с помощью данного моду
ля приведены на распечатке 2.6, использованы следующие данные:
сверлятся 4 отверстия - 1/4 дюйм (6,35 мм), 3/8 дюйм (9;525 мм),
1/2 дюйм (12,7 мм) и В/4 дюйм (19,05 мм), прочие элементы операции
включают в себя: подвод шпинделя к детали, отвод шпинделя в ис
ходное положение, перемещение кондуктора к следующему шпин
делю. Учитывается время установки и снятия детали, равное 0,3 мин.
Значения времени сверления , перемещения инструмента и приспо
собления, установки и снятия детали складываются. Их сумма рав
на 1,927 мин, что соответствует выработке 31,13 шт/ч.
25
COST ЕSТТ.МАТЕ
GANG DRILLING
PART NAME E:LQCI( f'ARТ NUME:E R ЗZ 11 О
ОАТЕ 01/01/81
IIOL.E NUME:ER 1
FOR А ,25 INCH DRILL 1 INCH HOLE LENGTH , USE З,999В8Е-03 FEED 993,lZZ RPM
DRILL TIME ,27062 OTHER ELEMENTS
,1 TOTAL THIS HOLE
,37062
HOLE NUME:ER 2
FOR А ,375 INCH DRILL ,5 INCH HOLE LENGTH, USE 5,5.91Е-03 FEED 662,081 RPM
DRILL TIME , 16671 • OTHER ELEMENTS
,1 TOTAL 1 THIS HOLE ,26671.
HOLE NLJME :ER 3
FOR А ,5 INCH ORILL 1 INCH HOLE LENGTH , USE ?Е-03 FEED •96,561 RPM
DRILL TIME .ззов•1 OTHER ELEMENTS , 1 TOTAL THIS HOLE .•зов•?
HOLE NLJME:ER •
FOR А , 75 INCH DRILL 1 ,25 INCH HOLE LENGTH , USE 9,71123Е- 0 3 FEED зз1.0•1 RPM
DRILL TIME . • 5 8 81 • OTHER ELEMENTS
,1 TOTAL THIS HOLE
,55 881 •
• TOTAL LOAD AND UNLOAD TIME IS ,3
TOTAL TIME FOR ТНЕ OPERATION IS 1,927
F'AF.:ТS PER HOUR ARE 31.1366
TOTAL COST PER PART NOT INCLUDING SET UP IS $ ,501019 DOLLARS PER РС .
TOTAL COST INCLUIHNG SET UP COSTS ARE:
QUANITY THIS LOT 100 10TAL $ ,511019
SET UP COSTS FOR THIS OPERATION ARE $ 20,28
Распечатка 2.6.
Расчет стоимости сверления на многошпиндельном станке
Наименование детали: блок. Номер детали 32110
Дата 01/01/81
Отверстие No 1
Для сверла 0,25 дюйм и глубины отверстия
дюйм используйте подачу
3,99988Е-03, частоту вращения 933,122
Время сверления 0,27062. Прочие элементы О, 1
Общее время 0,37062
Отверстие No 2
Для сверла 0,375 дюйм и глубины отверстия 0,5 дюйм используйте подачу
5,5491Е-03. Частота вращения 662,081
Время сверления 0,166714. Прочие эле менты 0,1
Общее время 0,266714
Отверстие No 3
Для сверла 0,5 дюйм и глубины отверстия
дюйм используйте подачу
7Е-03. Частота вращения 496,561
Время сверления 0,338847. Прочи е элементы 0 , 1
Общее время 0,430847
Отверстие No 4
Для сверла 0,75 дюйм и глубины отверстия 1,25 дюйм используйте подачу
9,71123Е-03. Частота вращения 331,041
Время сверления 0,458814. Прочие элементы 0,1
Общее время 0,558814
Общее время на установку и снятие детали 0 ,3
Общее время на операцию 1,927
Производительность, шт/ч, 31, 1366
Стоимость обработки без учета стоимости подготовительно - заключительных
работ, долл. 0,501019
Стоимость обработки с учетом стоимости подготовитеJJьно-заключительных
работ:
при размере партии 100 стоимость обработки детали, долл . , 0,514019
Стоимость подготовитеJ1ьно-заключительных работ дJ!Я этой операции, долл.,
20,28
К распе•tатке 2.6 .
26
1
ь
L
Рис. 2. 1. Расположение фрезы и дета
-~и ( образующая детали и ось фрезы
расположены на одной прямой):
1--деталь; 2 •- фреза
ь
L
о
Рис . ;2.2 . Расположение фрезы и дета
ли (образующая детали находится
ниже оси фрезы):
1 - деталь; 2 - фреза
Нормативы подготовительно-заключительного времени введены
в программу заранее. Единственное , что требуется от пользователя
для выполнения этой программы, - это ввести данные о размере
сверл и глубине отверстий. Выбор режимов резания осуществляется
в самой программе. Таким образом, соблюдается принцип, о котором
мы уже говорили: инженер должен делать только то, что он делает
лучше ЭВМ, остальное делает машина.
И последнее замечание о роли печатающего устройства в этом
процессе. От инженера не требуется что-либо писать на бумаге. Все
промежуточные результаты ЭВМ хранит в своей памяти до тех пор,
пока не будет прочитана команда LPR INT, по которой осуществля
ется автоматический вывод на печать информации из ЭВМ .
Модуль 4 - обработка фрезерованием. Написать программу для
ЭВМ, рассчитывающую стоимость обработки фрезерованием , ока
зывается сложнее, чем это может показаться с первого взгляда. Объ
'
ясняется это рядом причин.
Во-первых, необходимо рассчитан! путь подвода фрезы. Суще
ствуют различные варианты подвода фрезы, и технолог должен вы
брать в программе один из них. Графическое отображение на экране
ЭВМ расположения фрезы и детали помогает инженеру точно ука
зать, какой вариант он выбрал . Время, необходимое для программи
рования графиков , может значительно увеличить общее время , за
трачиваемое инженером на написание программы.
Во-вторых, написать программу для обработки фрезерованием
сложно потому, что на фрезерном станке обработку ведут фрезами
различных типов . Фрезы могут быть из быстрорежущей стали или с
пластинами из твердых сплавов .. Разнообразие условий усложняет за
задачу выбора режимов резания при обработке.
Модуль ;! позволяет рассчитывать пять вариантов подвода фрезы
с учетом способа обработки и десяти видов обрабатываемого материа
ла . Хотя сам модуль 4 содержит небольшое количество команд , тру
доемкость программирования определяется той его частью, которая
связа на с машинной графикой.
27
ь
L
а
Рис . 2.3. Рас п оложение концевой или
торцовой фрезы и детали:
1 - деталь; 2 - фреза
При выборе модуля 4 на экране дисплея появляется чертеж вза
имного расположения фрезы и детали. Варчанты установки фрезы
относительно детали приведены на рис . 2.1 - 2 .6 . Программный мо
дуль показывает пять различных условий фрезерования.
Для первого варианта установки фрезы (рис. 2.1) расчетная дли
на обработки L1 складывается из длины детали L и пути подвода фре
зыs
L1=L+S=L+0,5D+а+Ь;
S=0,5D+а+Ь,
где D - диаметр фрезы; - а
-
врезание фрезы, а= 0,031 дюйм
(0 ,79 мм); Ь - перебег фрезы, Ь = 0 ,031 дюйм (0,79 мм).
Для второго варианта установки фрезы (рис . 2.2)
S = Ji(R)2 --(R-d)2+a+b,
где R = 0,5 D; d - глубина фрезерования.
Круглую фрезу на экране дисплея можно показать несколькими
способами. Метод, выбранный для этой программы, раскрывается в
строках 6040 и 6050:
/J
6040 FOR К= 4 ТО 6 STEP 0,101:А =К* 3,14:
R = 6:C2:D = с+о,101:Х = D* (R* cos (А))
6050У=R*SIN(А):SET(Х+100,У+20):
С= D:NEXTK,
2
L
Рис. 2.4 . Рас п оложение фрезы и детали Рис. 2.5. Фрезерование паза в
(оси детали и фрезы находятся на од-
круглой детали:
ной прямой):
J•••. деталь ; 2- фреза
1 -- деталь; 2 - фреза
28
Рис . 2.6. Расположение фрезы и детали в
плане [расчетная длина обработки, вклю
чая длину подвода и схода фрезы,
6,062 дюйм ( 154 мм)']
3.000
5.052
где оператор К=4 ТО 6 STEP 0,101 организует 20 итераций цикла·
с приращением по 0,1, оператор А=К * 3,14 зацает начальную точ
ку окружности; R - радиу<; окружности; оператор У = R * SIN
(А) выдает значение синусоиды.
•
Третий пример графического изображения, создаваемого на эк- .
ране, приведен на рис. 2 .3.
Четвертый и пятый примеры приведены на рис. 2.4, 2.5 .
Для четвертого варианта расположения фрезы относительно де
тали
s=R-0,5V4R2 - w2,
где W - ширина детали .
Для пятого варианта
L = 2 V(D1 -d)2 -(d)2;
S = VD-d+(D1*d)--d 2 - VD*d-d2 •
Распечатка 2 .7 включает результаты расчетов для чернового и
чистового фрезерования детали (рис . 2.6) .
Расчет стоимости фрезерования
Наименование детали: блок . Номер детали 32 109
Дата 01/01/81
Следующие данные приведены для фрезерования плоскости, параллельной оси
фрезы, или фрезерования концевой фрезой из твердого сплава , черновой
проход
Расчетная длина обработки 6,062
Рекомендуемая частота вращения 95 ,4927
Подача дюйм/мин, 6,68449
Время обработки при фрезеровании 0,906875
Оперативное время 1,21688
Производительность, шт/ч, 49,3066
Диаметр фрезы 6
Длина обработки без учета пути подвода, врезанця и схода инструмента 3
Число зубьев фрезы 10
Время на установку и снятие детали 0,25
Необходимая частота вращения 86,6
К распечатке 2.7 .
Этот модуль можно считать законченным, поскольку он также ,
как и модуль расчета стоим6сти обработки на многошпиндельном
сверлильном станке, учитывает прочие элементы операции, время
29
COST ESTIMATE
MILi_ING
PART NAME E:LOCf( f·ART NUME:Ef, 32109
DATE 01/01/81 ·
ТНЕ FOLLOWING DATA IS FOR SLAE: OR END MILLINGWITH А CARE:IDE MILL - ROUGH CUT
ТНЕ TOTAL LENGTH OF CUT WITH APPROACH IS 6,062
RPH ТО USE IS 95.1927
FEED IN INCHES PER MIN, IS 6,60 •• 9
TUTAL MILLING TIME IS ,906875
TOTAL OPERATION TIME IS 1,21608
TOTAL PARTS PER HOUR ARE •9 .3066
ТНЕ CUlTER OIA, IS 6
ТНЕ LENGTH OF CU1 WITHOUT APPROACH IS 3
NUME:ER OF ТЕЕТН IN ТНЕ CUTTER IS !D
LOAD AND UNLOAD TIME IS ,25
NlJME :ER OF REVS REQUIF(EO IS 86 • 6
ССl~ё.Т ESTIMATE
M::I:LL.ING
РАRГ NAME E:LOCH PART NUME:E~ 32109
ОАТЕ 01/01/В1
ТНЕ FOLLOWING DATA IS FOR SLAB OR END MILLINGWITH А CARE:IDL MILL - FINISH CUT
ТНЕ TOIAL LENCTH OF CUT WITH APPROACH 15 6,062
RPH ТО USE IS 127.321
FEED IN INCHES PER HIN , IS 6,1115•
TOTAL MILLING TIME IS ,991895
TOTAL OPERATION 1IME IS 1 ,3 0189
ГОТАL PARTS PER HOUR ARE .6 .0867
ТНЕ CUTTER OIA, IS 6
ГНЕ LENGTH OF cur WITHOUT APPROACH IS 3
NUMBER OF ТЕЕТН IN ТНЕ CUTTER IS 12
LOAO AND UNLOAO TIHE IS ,25
NLJHBER OF REVS REQUIRED IS 126,292
Распечатка 2.7.
на установку и снятие детали. Оперативное время, необходимое
для грубой обработки одной детали на первом станке, составляет
1,21688 мин. Оперативное время, необходимое для чистовой обработ
ки одной детали на втором станке, составляет 1,30189 мин.
Ниже приведена программа SFPM вместе с примечаниями, по
ясняющими основные приемы программирования при расчетах сто
имости· обработки деталей.
Текст программы SFPM. Программа занимает 17,251 байт памя
ти. Ее можно рассматривать как четыре отдельные программы, по
скольку каждый модуль может быть выполнен самостоятельно (рас
печатка 2.8).
30
Можно назвать четыре вероятных способа применения програм
мы.
1. Инженер определяет скорость резания обрабатываемого мате
риала . Если это делается по догадке , нет необходимости использо
вать ЭВМ.
2. Инженер готовит программу, представляющую собой сокра
щенный вариант программы SFPM. Модуль расчета стоимости обра-
1 REH PRDGRAH NAHE SFPH
REH Wf<lTTEN Е:У J,E ,NICKS
3 REH CDHPUTER APPLlCATlONS FOR ТНЕ HANUFACTURlNG ENGlNEER
1 REH COPYRlGHT 19В1 ALL RlGHTS RESERVED
10 CLS
20 PRINT"THIS F'ROGRAH CALCULATES SFF'H
, RF'M
, IIHE AND F'ARTS"
30 PRlNT"PER HOUR FOR ТНЕ FOLLЛWING OPERAТIDNS"
10 lNPUT"ENTER ТНЕ PART NAHE";ws
11 INPUT"ENTER ТНЕ PART NUHE:ER";X$
1'' INPLJТ"ENTER TODAYS DATE 1,Е, 01/01/81";У$
50 PRlNT " ТYPE lN ТНЕ HODULE NUHBER YOU WISH ТО USE"
60 F'RlNT
7 О PRINT"ТLJRNING CARE:IOE-· ·- --- ---- --- -- - ~ -
--1 "
80 PRINT"ТlJRNING HIGH SPEED - STEEL-- - - - - -- - -2"
-
На экран ЭЛТ выводит с я
90 F'RINT"DRILLING --GANG DRILL-- ----- ----- -3 "
"м еню" для пользователя
1О О PRlNT"HlLLING---------------------- - -----1"
110 lNPLJТN
120 ONNGOT0200,1000,2000,3000
200 REH TURNING CARE:lDE
201 CLS
202 PRINT"TH15 HODULE 15 FOR CARE:lDE TURNlNG"
203 PRlNT"THE FlNAL PRlNT OUT WILL 5HOW ПiЕ FOLLDWING DATA"
201 PRlNT"SF 'F'H 15 CALCULATE1J Е:У ТНЕ COHPUTER"
205 PRINT"A СO5Т SUHHARY 15 OEVELOPED FOR 2 CUПlNG CONDIТ1ON5"
206 PRINT"THE COHPUTER WILL CALCULATE СО5Т5 FOR 60 HIN. TOOL LIFE"
207 PRlNT"AND ТНЕ USER 15 ASl(ED ТО INPUT А TOOL LIFE CONDIТION"
208 PRINT"THAT IS LES5 THEN 210 HIN , FDR WHlCH ТНЕ CDHPUTER"
209 PRINT"WILL CALCULATE ТНАТ COST ALS □ ":PRINT(PRINT(PRlNT
210 INPLIТ"TYF·E 1 ТО SEE ТНЕ HATERIAL LIST";H
220 (INMGOSU820000
221 CLS(F' RlNT"AFТER 5ELECТING ТНЕ HATERlAL , AN5WER ТНЕ FOLLOWING"
222 PRINT"QUESTIONS 11
230 lNPUT"LENGТti OF CUT" ; L
210 1NPUT"5TART1NG DlAHETER ";D1
2~jQ INF'UT"FINI!]HEO OIAHETER 1 ' ;D2
260 INF'UT "RDUGH CUT TOOL DEPTH ";D3
270 lNPUT"FEED FOR ТНЕ ROUGНING CUT ";Fl
2ВО lNF·UT"FlNISH CUT TOOL DEPTH" ;01
290 lNF'lJТ"FEED FOR ТНЕ FlNI5НING CUT"; F2
300 lNPUT"5HOP RATE COST PER HOUR";G
310 INPUT"TOOL CHANGE ПНЕ lN НIN,";H
320 lNPUT"TOOL LlFE OESIRED
, LE5S THEN 210 HIN ,
";R1
325 INF'UT "COST OF 1 SIDE , CARE:IDE INSERT"; Р
326 GOTIJ330
Э27 J::1
328 GOH!360
330 Jl•CDI -D21/2(J2•CJ1 -D11/D3(J•lNTCJ21
310 IFJ ( ITHEN327ELSE360
360 Rl•D3/,03
370 Sl~ll<Rl[B>•C
ЗЕIО R2=F1/,01
390 S2:INT(1/(R2[D>•S1)
400 Г(3== R1/60
110 sз~INT(l/(f~З(A) •S2)
120 01=: 0.tt/, 03
130 51•1/CПlrE:l ■ C
440 Q2=F2/,01
150 S5=INT(l/(O2(D>•S4)
160 Q3,=R1/60
470 S6=INT(l/(Q3[A>•S5)
В строках 3 60-470 производ1п с'я
расqет скорости резания, фут/мин
Распечатка 2.8
31
32
480 lll==INT<S2•3 .[1197/D2)
490 lJ2=INT<S5•З.[1197/D2>
500 LJЗ=INTCSЗ•З.8197/O2)
510 LJ4=INTCS6•3.8197/O2)
520 V1•=L/F1
530 V2=:L/F2
540 W1=-0 V1/U1
~i5 0
W2=V2/U2
:='",60 WЭ=V1/LJЭ
~
:i70 W"1= ~=V2 /U1
580 W:i:::(W1• .J>+W2
590 W6=(W3•J>+W1
600 f(=G/60
610 X1:::t(.:W5
62 О X2c::: ►(•W6
630 XЗ =•: •H/(60/WS>
640 X4•K•H/(R4/W61
650 X5=P/(60/W5)
660 Х6••Р/ <R4/W6 1
670 X7c: =Xl+X3+X5
680 ХВ=Х2. +Х1+Х6
681 Z1~60/W5
6El2 Z.2=60/W6
В строках 480- 51 О про 1чводится
расчет ч стот ы вращения, об/мин
В строках 580-590 рас считывается
время
603 lYRINTCHRS(271 ;CHkS( 141"COST ESТIMATE - CARBПIE ТIJRNING"
684 LPRINTCHR$<1381: LPRINT"f'ART NAME
" ; W$;" F'ART NUl1E:ER "; XS
6El~i t_f'RINTCHRS С 1 ЭВ) :L.PHINT,,, "ОАТЕ
"; YS
606 FORl•lT05:LPRINTCHRS(l381:NEXTI
689 l _f •ION1 "ТН[ FOLLDWING DATA IS FOR TWO SETS OF TOOL l.ПТ"
690 t.f·RINT"
"
691 L_F" · R I N TT A E:(1~5);"FOR 60 HIN TOOL LIF~E";TAf::(40);''FOR";R4;"HIN TOOL . LIFE"
692 l_f•RINT"
"
700 tT·RINT"SF "F•H ROUGH";TAE:(l8);s2;TA[:('IO);Sз
710 LPRJNT"~ I FTH
F"INISH";TAE:(l8>;~;5;TAE:(40);S6
720 l .F'RINT"
"
730 l. F"RINT "RF ·H RO UGH" ;TAE:(1 B>; LJliTAE:C40) ;UЗ
740 t PRINl""f ,:f·M F[N.[SH"iTAE:(18) :tJ:~;TAE:C- ' 10> ;LJ- '1
7:,О IYRINT" "
•
760 LPRINT"TOTAL CUTTING TIME"jTAE:(18);W5;TAE:('ЧO);W6;" HIN , f'ER, f •C ,"
761 l _PRINT "
"
710 t ..f 'RI .NT "TOTAl . COST"; ТАЕ: < 10); "S"; Х7; ТАЕ:: < "10) "'S"; хе
7EJO LPRINT" "
790 LPRINT"f··ARTS F 'EH HOUR";TAE:(18>;z1;TAE:(-ЧO>;Z2
791 FORI -=l T03:tf'IONT " " :NEXТI
792 l.PRJNT "THE MATERIAL IS", AS
80 О lYRlNT"STARТING DIA. WAS"; Dl;" INCHES, ПNISHED DIA. IS
" ; -1)2; " INCHES"
810 l_f ''RINT"l_ENGTH OF CUT ";L;"INCHES"
Е11I l f•RINT"
"
•
El2U L.PRINT"f.:OUGHING DEf'TH"; D3; "INCHES АТ "; F 1; 'TEED f·ER r-:EV,"
02~,
Lf'RINT"
"
BJU Lf'RlNl" "FINI[iH.tNG DEF·TH";O-Чj"!NCHES АТ " jF2;"FEEO f'ER fi:EV"
831 l_PRINT"
"
оэ~ l..PRINT"THE. TOTAL NUHE:ER OF'cuтs TM(EN IS";J
ВЗЗ LF'RINT"
"
840 l.f'RINT"SH □ f• RATE S ";(;;"DOLLARS PER HOUR AND INSERT COSI S";P; "f 'ER SIDE"
Е150 l _f 'RINT "100L CHANGE ТIМЕ ";Н;" MIN, f 'ER CHANGE "
Е151 [N F'LIТ" r·uR ANOTHER CAL.C _IJLATION TYF·E 1 OR 2 ТО EXIT";A
852 ONAGOTIJ-'1 ,860
860 E.ND
1000 REM TURNING MODULE HHS
1 О 1 О f'RINT"TНIS IOGH Sf'EED ТlJRNING MODULE _ PERMIТS CALCULAПON OF"
1020 f·RINT"TIME ,Sf 'EED AND COST fOR 60 MIN, TDDL LIFE "
1021 INf'Ul"ТYf'E 1 ТО SEE ТНЕ MATERIAl_ LIST ";M
1030 IГ11=1 THEN1031
1оз1 c;osLJE:20000
Распечатка 2.8 (продолжение)
1032 CLS:PRINT"ENTER ТНЕ DATA FDR THIS OPERAТION , AS ASKEO FOR"
1033 PRINT : PRINT : PRINT
10'10 INP UT "TYPE IN ТНЕ LENGTH OF CUT";L
1050 INPUT"ТYF·E IN ТНЕ STARТING DIAHETER"; [)1
1060 INF'UT"ТYPE IN ТНЕ FINISHED DIAHETER" ;[)2
1070 INPUT"ТYPE IN ТНЕ ROUGHING DEPTH DF CUT" ; D3
1080 INF'UT "FEED FOR ТНЕ ROUGНING CUT";Fl
1090 INF'UT "TYF 'E IN ТНЕ FINISНING DEPTH OF CUT" ; □ '!
1100 INF'UT "FEED FOR ТНЕ FППSНING CUT";Fz
111 О INPUT " SHOF' RATE , COST PER HOUR" ; G
1120 GOTO11~' i0
1130 .J=l
11'10 GOT01190
1150 J1=(D1-D2)/2
1160 .J 2=( .J1 -D 'l>/D3
1170 .J=INT(.J2)
1180 IF.J<1THEN1130
1190 Rl=D3/ ,03
1200 S1=1/(Rl[B) • C
1210 f.:Z=Fl/.01
1220 SZ=INT(1/(RZ[D) Ж S1J
1230 S3=INT<1 /(60[А1) Ж 52)
12'10 QleeD'l/,03
1250 S1=1/(O1[B> • C
1260 O2=F2/.01
1270 S5=INT(1/(O2[D)ЖSi)
1280 S6=INT(1/(60[A1>•S5)
1290 U3 • INT<S3•3,8197/D2)
1300 U'l=INT(S6•3 , 8197/DZ>
1310 Vl=L/Fl
1Э20 VZ=L/F2
1330 W3=V1/U3
13'10 W 'l =V2/U 'I
1350 W6=<W3 • J>+W'I
1360 f(=G/60
1370 X2=t{ Ж W6
1380 Z1=60/W6
1390 LPRINTCHR S ( 27 >;CHR S ( 1'1) "COST ESТIHATE
-
HIGH SPEED TURNING"
1391 LPRINTCHR $ (138) : LF'RINT "F'ART NAME ";н s ;" F'ART NUME<ER ";x s
1392 LPRINTCHR $ (138):LPRINT, , ,"DA TE " ; У $
1393 FORI=1T □ 5:LF'RINTCHR $ C138 ): NE X TI
1 '10 О LF'RINT " THE FOLLOWING DATA IS FOR HIGfi SF'EED STEEL "
1'101 L" PRINT"AND FOR 60 MIN , TOOL LIFE"
1'110 L. PRINT "
"
1'120 L.F'RINT"SFPM FOR ROUGHING IS" ;s3
1'130 L.F'RINT"SFPM FOR FINISHING IS " ; S6
1'1'10 LPRINT"
"
1'150 LF 'RINT"RF'M FDR ROUGHING IS " ; U3
1 '160 L. F'RINT "RF 'M FOR FINISHING IS" ;LJ'I
1'170 LF 'RINT " "
1 ' 1!10 L.F'Ю:NT"TOTAL ТIМЕ FOR ТНЕ ROUGH & FINISH CUTS IS" ; W6 ; "MIN, PER Р С ."
1'190 L.PRINT"TOTAL OPERAТION COST IS
$"; x2; "DOLLARS PER F'ART"
1500 L.F'RINT"
"
15111 L.PRINT "F' ARTS F'ER HOUR ARE" ; Zl
1520 L. F'RINT "
"
1530 L.F'RINT"STARТING DIAMETER WAS" ;[)1; "INCHES. F'INISHED DIAMETER IS " ; D2 ; " I NCHES "
15'10 LPRINT "L .ENGTH DF CUT IS " ; L;"INCHES"
1550 L.P ~INT ~ROUGH]NG DEPTH 1s··:oз:··1NCHES AT 11 ; F·1 : ··FEED PER REV . ''
1560 L.PRINT " FIN I SНING DEPT\f IS" ; D'I; "INCHES АТ"; F2: "F"EED PER REV,"
1~.\70
L..F 'RINT "THE HATERIAL IS " ; А $
1580 LPRINT"SHOP RATE COST PER HOUR IS
$";с;
1585 Cl.S
- 1590
INF'LIT "TO PRODUCE А . GRAPH OF SFPM VS . FEED ТУРЕ l" ;A 'I
1 6 00 IFA'l =1THEN1615
1 6 10 IГA'l <' 1THEN17'10
Распеч атка 2.8 ( п родолжение)
2 Зак. 2156
33
1615 FORZ•1T03:LPRINTCHRS(1381:NEXTZ
1616 t_PRINT"
SURFACE FEET PER MINUTE"
1620 FORI•S3TOS6STEP15
1630 Z4=ZЗ+<X•50•<10/CS6-S3))+1tl):PRINTZ4,S6,SЗ,X
1631 LPRINTTAE:(Z41;I;
1632 ZЗ•Z3+3
1640 X•X+l
1650 NEXТI
1660 LPRINT""
1670 FORY•F2TOF1+,005STEP ,003
1680 R2•Y/ ,01
1690 52=INT<1/(RZ[O>•S1)
1700 S7•INT(1/(60[All•S21
В строках 1615-1730 операторы формируют граф11,
171 О LPRINTY; ТАЕ:(5); "FEED"; ТАВ ( ( S7-S3) • ( 50/ ( S6-53)) +15); "• "
1720 LPRINT''SFPN'';S7
1730 ·NЕХТУ
17qo END
2000 REM DRILLING MODULE
2001 CLS
2010 LPRINTCHRS<Z71;CHR$(141;"COST ESТil1ATE - GANG DRILLING"
2011 LPRINTCHRS(138):LPRINT"PART NA11E " :н•;" PART NUl1BER ";xs
2012 LPRINTCHRS < 138): L.PRINT , , , " DA TE "; У$ :FORI • l П15: LPRINTCHRS ( 1381: NEXТI
2015 PRINT " DRILLING 110DULE "
2016 PRINT
2017 INPUT"ENTER SHOP RATE COST PER HOUR ";Z
2018 INPUT"ENTER ТliE TOTAL (ШАNIТУ FOR TНIS LOT " ;z1
2020 PRINT"THIS PROGRAH CAt_CULATES ТI11Е FOR GANG DRILLING"
2030 PRINT
2040 PRINT"llP ТО 10 HO L.ES CAN Е:Е ENTERED (F'ER SET UPI"
2045 PRINT"l1ATERIAL HARDNESS RANGE CAN Е: Е FROH 150 ТО 300 E:HN "
2050 INF'UT "TYF 'E IN HATERIAL HAГ~ONESS E:HN" ;н
2060 IFH=>150ANDH~<Z10TtiEN2110
2070 IFH=>211ANDH = <225THEN2120
2080 IFH•>226ANDH•<2SOTHEN213D
2090 IFt~ = >251ANDH=<260THEN2110
2100 IFH=>261ANOH=<З00THEN2150
2110 S=65:GOT02160
2120 S=60:GOT02160
2130 S=55:G □ T02160
2110 S=50:GOT02160
2150 s~15:GOT02160
Строки 2060-2 150: ЭВМ выбирает скорость
-
резан и я с учетом тверJЮсп1 матер11ала
2160 INF·UT " HOH 11ANY HOLES ARE ТО Е:Е DRILt. ED IN THIS 5/ll " ;N
2161 SU=N•.25+.3
2170 PRINT"AПER ЕАСН? ТУРЕ IN ТНЕ SIZE OF ТНАТ HOLE"
2180 PRINT"AND ANSHER ТНЕ OTHER □ UESТIONS ASf(ED ON ТНЕ SCREEN"
2190 T=O(FORI•lTON
2200 INF·UT"THE SIZE OF ТIПS HOLE IS";[l<II
2201 F'RINT
22111 INPUT " THE LENGTH OF TНIS HOLE IS ";l
2219 RE11 FEED CALC
2220 F=((D(I)/.5)(,8071)• ,0 07
2~.21
REH RF'M
2230 R~S•З,8197/D(l)
2231 REM REV RQD
,.._ __ _
В строке 2220 рассч нrывается значение п одач сверла
2210 Ll=(L+(D(!)Ж.3) )/F
2241 REM ТI11Е
2250 T= Ll/R:Tl=Tl+T
2251 F'RINT
2260 PRINT"THE NEXT l1UESТIONS ARE OTHER ELEMENTS FOR тнп; HOLE"
2261 F'RINT
2270 PRINT"ENTEf< ТНЕ TOTAL NO. OF П11ЕS USED OR О IF NOT USED"
2271 F'RINT
2280 INF'UT' 'CHANGE SPEED,FEED,ENGAGE FEED,COOLANT OFF OR ON'';A
2281 F"RINT
Распечатка 2.8 (продолжение)
34
2290 Al=A»::,05
230 О INF'UT " MOVE JIG ТО NEXT SF'INDLE ( INCLUDS TUMBLE >" ;!' .
2301 PRINT
231 О Bl==E:• • 05
2320 INF'LIT "INSF'ECT HOLE ANO OR CHANGE BUSHING" ;С
2321 PRINT
2330 Cl=C»::.1
2310 INPUT"SPINDLE ТО , FROM, ON, OFF "; □
23Н PRINT
2350 D1::D1»::,05
2360 INF' UT "CLEAN HOLE "; Е
2370 E1=E ■ ,1:F1=A1+B1+C1+D1+E1:G = F1+T1
2377 E1=E»::,1:F1=Al+B1+C1+Dl+E1:G=F1+T
2379 L PRINT " HOLE NUMBER";I
2380 L.F ·RINT "FOR А "; О ( I);" INCH DRILL": L;" INCH HOLE . LENG "TH
, USE"; F; "F'EED"; Rt "R
f'M "
2390 LPRINT"
DRILL ТIМЕ ";T;"OTHER ELEHENTS ";Fl;"TOTAL НПS HOLE ";G
2395 LF'RINT "
z'100 T2=T2+G
2Ч10 NE:XТI
2120 PRINT"ESПMATE ТНЕ PART WEIGHT & ТУРЕ IN ТНЕ NUHE:ER ТНАТ "
2421 PRINT
2.q30 PRINT"CORRESF 'ONDS то ТНЕ WEIGHT
,
FOR L. OAO & UNLOAD"
zq31 PRINT:F'RINT
zq10 INPUT"HI 51 (1>: ТО 101 <2>: ТО 201 (31: OVER 201 (qJ";W
2150 ONWGOT02160,2170 ,2180,Z190
2160 W= , 15:GOT02191
2q70 W=,3:Goтo2q91
2100 w~.ss:Goтoz191
2190 W=l ,05:GOT02191
--
-
---
Строки 2460~2490 хранят значения нормативов
времени на установку и снятие детали
2191 LF'RINT "TOTAL LOAD AND UNLOAD ПНЕ IS";W
2.q9z LF'RINT"
TOTAL ПНЕ FOR ТНЕ OPERAТION IS"tTZ+W
2501 LPRINTCHRS(138)
2510 Т3=60/(Т2+~)
2520 l.. f · RINТ''f'ARTS F'ER HOLIR ARE ": ТЗ
2521 L.PRINT "TOTAL COST PER F'ART NOT INCLUDING SЕТ Uf• IS S";Z/Т3;" □ 0LLARS PER F'C ,
2:;22 LPRINT"TOTAt_ COST INCLLJDING SET llf ' COSTS AF ~E:"
2~j23 LF'RINT "
QUANITY THIS LOT"tZ1:"TOTAL $ " ;<SU/Z1)+(Z/T3)
252~i l .F 'RINT "
SET UP COSTS FOR THIS Of'ERATION ARE $ "; SLJ:«Z
2530 INf·UT"FOR ANOHiER SEIOES OF HOLES FOR Н;ПS f'ART ТУРЕ 1 OR 2 ТО ЕХIТ"; Х
2510 ONXGOTOZ000,2550
;~550 END
3000 REH MILLIN~ HOOULE:CLEAR100
3010 PR'.NT"TНIS F·ROGRAH CALCULATES HILLING ПНЕ f "OR"
3020 f'RINT " HSS ANO CARE:IDE CUТТERS & FOR 5 OIFFERENT"
3030 F'RINT"Hll.LING CONDIПONS, ТУРЕ 1 ТО SEE ТНЕ FIRST CONDIТION"
зо•о PRINT"OR ТУРЕ 1 то 5 то SEE ANY . OF ТНЕ CONOIТIONS"
3050 INPUTN:ONNGOT03060,3150,3270,3390,Зq90
3060 GOSUE:6000
3070 FORX•15956Т015971:f'OKEX,176:NEXTX
3080 FCIRY=15828T015956STEP61:POKEY,170:NEXTY
3090 fORY=158.3T015971STEf'61:POKEY,119:NEXTY
31 О О f•RINТl'7 68, "FOR THIS 1 ST
CONOIТION ТНЕ F'ART IS ON ТНЕ SAHE"
Э11 О PRINTl!832, " CE NTER A S
ТНЕ CUПER, THIS CONDIТION IS VAL.IO"
3120 f'RINT@896, "F O R SL AE: OR END MILL.ING"
3130 f'RINT@960,"F OR ТНЕ NEXT CONDIТION ТУРЕ 2":INf'UTN
31'ЧО ONNCOT031~i0
31~;0 COSUE:6000
3160 FORJ=15829T01581Z:POKEX,176:NEXTX
3170 FORX•15956T015971:fOKEX,176:NEXTX.
3180 FORX=1589ZT015907:POKEX,136:NEXTX
3190 FORY=15892T015956STEP61:POKEY,170:NEXTY
3200 FORY=15907T015971STEP61:POKEY,119:NEXTY
Распечатка 2.8 (продолжение)
2*
36
3210 X=15828:PO•CEX,160:X=158qз:POKEX,11q
3220 f'RINT@768, "F.OR TНIS 2ND CONDIТIDN ТНЕ F' ART IS E:ELOW"
3230 f'RINT@8З2,"THE CENTER LINE OF ТНЕ СUТТЕR. TНIS CONDIТION"
3240 PRINT@896,"IS VALID FOR SLOT HILLING "
3250 PRINT@960, "F.O R ТНЕ NEXT CONDIТION ТУРЕ 3 ": INPUTN
3260 ONNGOT03270
з210 c;osuE:ьooo
3280 FORX=15572T(l15587:POt(EX,131:NEXTX
3290 FORX•15636Т015651:POKEX,130:NEXTX
3300 FORX~15956T(l15971:F·OKEX,176:NEXTX
3310 FORX•15892TO15907:POKEX,144:NEXTX
3320 FORY=15572T015956STEP61:f•OKEY ,170:NEXTY
3330 FORY•15587TO15971STEP64:POKEY,149:NEXTY
3340 F'RINT@768 , "FOR THIS 3RD CONDIТION ТНЕ PART IS WIDER"
3350 PRINT@832,"THEN ТНЕ CUTTER. THIS CONDITION IS VALIO "
3360 PRINH•896 , "FOR FACE HП.LING OR END HIL .l .ING "
3370 F·RINTl ,960, "FOR ТНЕ NEXT CONDIТION ТУРЕ 4" :INF'UTN
3380 ONNGOTO3390
3390 GOSUE:60 О О
3400 FORX•15700TO15715:POKEX,1761NEXTX
3110 FCIRX=15828T015BqЗ:POKEX,176:NEXTX
3420 FORY=15764TO1582BSTEF'64:F'OKEY ,191:NEXTY
3430 FORY=15779TO15843STEP64:POKEY,191:NEXTY
3440 PRINT@76B,"FOR THIS 4ТН CONDITION ТНЕ F'ART IS ON ТНЕ SAHE"
.С помощью операторов РОКЕ на экране создается чертеж взаимного расположения фрезы и детали
3450 PRINH•взz, "CENTER А(; · тнЕ CUПER AND IS SHALL.ER THEN ТНЕ"
3460 PRINT@B96,"CUПП<. TНIS CONDIТION IS VALID FOR FACE OR "
3470 F'RINT@960, "END Hil. LING . FOR ТНЕ LAST CONDIТIIJN ТУРЕ 5 " : INF·tJТN
3480 ONNGOTO3490
3490 GOSUE:6000
3500 FORX•15956TO15976:POKEX,1401NEXTX
3510 F □ R•(=qT(l6STEP.101:A=tC•з.11:R~6:C=2:o=c+.101:x=O•<k•C(JS(A))
3520 Y=R •SIN<A>:SETCX+60,Y+28):C=O:NEXTK
3525 FORX=15898T015906:P □ KEX,1:12:NEXTX
з~;зо PRINT@ 76 8, "FOR TНIS lAST CONDIТION ТНЕ PART IS f<DllND"
3540 PRINT@832, "TНIS CONDПION IS VALID F·or, SLOT Hil.LING"
3550 PRINT@896, "ТУF'Е IN ТНЕ CONDIТION YOIJ WISH ТО WORf: WПН"
3560 PRJ.NT@9t,0 , "OR ТУF' Е 6 ТО START OVER"
э:;7 О INF'llТN
3580 ONNGOT03730,3780,3810 ,3810,3890
3730 REH LC FOR COND
3731 ZZS• = " SL.AE: OR END HIL.LING"
Э7Э2 F'RINТZZS
3740 INF'UT "THE CUПER DIA " ;D
3750 INF'lП"THE LENGTH DF CUT ТО Е:Е Hil.LED IS" ;1 ..
3760 Ll =l+(D/2)+.0 62
3770 с; □ ТО3965
3780 REH LC FOR COND 2
3781 zzs~ "S L.OT HILL.ING"
Э790 .L .NPUT "THE СUТТЕR DIA. · IS";D
3800 INPUT"LENGTH OF ТНЕ WORK ТО ВЕ HILLED
";L
381 О INf'LIТ"WIDTH OF ТНЕ HIL..L . CUT "; W
3811 R2=O/2~RЗ~R2[2:R1=RZ-W:RS=R1(2:R6=SQRCRJ· - R5)
3820 L1:L+R6+.062
ЗЕIЗО GОТОЗ963
JB40 ~ЕМ LC FOR CON~ 3&4
ЗЕ141 ZZS•"FACE OR END НILLING"
ЭВ50 INPUT"THE CUПER DIA, IS";O
3851 INF'llТ" L.ENGT H □ F· ТНЕ f"ART ТО Е:Е МILL.El)"; L
3860 INF'L/Т"ГHE WIDTH OF ТНЕ SI.. Of Ш< .J:.·ARf ICIJNO З OR 4> IS" ;W
3861 f.:2 ="'0/2:F~З~-=(fй[~~)•"t:Wl == H[2:r~-'1= SOR<RЭ -\.ll)/?,
ЗЕJ6:? fi:5 ,:cfi::-' - R1:L;l ::;; t_+fi:5i ,062
Распечатка 2.8 (продолжение)
3880 (; □ TIJ3965
3890 RЕ:м LC FOR COND 5
3891 ZH= " S l .OT HILLING OF А ROUND f'ART"
3900 INF'UT"CUTTER OIA. IS";O
391 О INF'UT " DEF'TH OF тtiE HILLED St_QT IS " ;01
3920 INF'UT "DIA. OF ТНЕ WOR ►( IS" ;oz
3930 D3=02/2:D1=01[2:05~C2•01•DЗ>-Oq
3931 L.. --=SQR <[>5 >•2
3932 A1~D-D1+<[>2•01>-D1[2:A2=SQR<A1>
3933 A3•CD •D11-D1[21A1=SQRIA311A5=A2-A1
3950 Lt~L .+AS+.062
Э960 [; □ TIJ3965
3965 [Nf'UT " ТYf'E 1 ТО SEE ТНЕ MATERIAl_ LIST "; Х
3966 IFX•1THEN3971
3971 GOSUE:10 О О
3972 F'RINT"THERE ARE 5 ТYf'ES OF MILLING CDNDIТIONS ТНЕ f'ROGRAM CALCLILATES "
Э973 F'RINT"ТYf'E IN HIE NUME:ER AFТER ТНЕ CONDППJN YOU WI5H"
3971 f'RINT " l- ---- -CARE:IDE FAC[ MH"LING
,
~ -ouGH CIJТ"
3970, f ' "RINT "2-- --- ---CARE:IDE FACE MILLING , ПNISH CUT"
Э971, f•Г<INT"3-------CARE:I(IE EN~ MILLING "
3977 f"ЮNТ"1-------нн;н Sf'EED STEEL FACE MILL.ING"
Э978 f'R1NТ"5 - - - ---нн;н Sf'EED ENO HILLING"
Э979 INf'UTN
3900 ONNGOT05000,5010,5080,5120,5160
1000 F'RINT "MATERIAL . SELECТION AND HARDNESS"
101 О F'RINT " TYf 'E IN ТНЕ MATERIAL NO , YOU WISH ТО WOIO( WПН"
1020 F'RTNT " 1- -- -ALllHINUM DR MAGNESIUM E:HN 21-118"
1030 F'RINT "Z ----E:RASS OR [:RQNZE "
1010 PГ..:INT"З---.CAST IRON E:HN 150-180"
1050 F'RINT "1 -----CAST OR MALl_AE:LE IRON E:HN 180-225"
1060 F'RINT"5 ----CAST IRON E:HN 225-3'50"
1070 F'RlNT "6 ·---CAST
STEEL.. "
СтJХ>ки 4000-4110: "меню"
для выбора материала
10ВО F'RINT " 7 --- --STEEL E:HN 100 - 150 "
1090 f'• R IN T"8 - - - STEEL E:HN 150-250"
1100 f'RINT"9---STEП. OR STAINl_ESS E:HN 250-350"
1110 F'Г-.:JNT"10--STEEL BHN 350-150"
-Ч120 INF'UTN
1130 ONNG □ 1·1:111so,1160,1170,11B0,1190
1110 ONN- ·5GOT01200,1210,1220 ,1230,1210
1111 REH A•FEED RC ,B =SFF'H RC,C=FEED FC,D=SFPH FC
1112 RE :H E=FEEO ЕМ =C,F=SFPH EH=D
1113 REM MG•HSSRSFF 'M,H•HSSRFEED,I •HSSFSFPH,J=HSSFFEED
1150 A=.02:B=1500:C=.007:K=22SO:E=C:F=K:G=.02:H=100:I=.01:~J=700
--Чl~il f;;EПJRN
1160 A;.Q15:B=350:C=.007:K=500:E=C:F=tt:G=.009:H=200:I=.005:,J=300
1161 RE ТIJRN
1170
1171
11ВО
1181
1190
1191
A~.02:B=32S:C:=.01:tC=500:E:=C:F=}t:G=.0 16:H=BO:I=. 008:J=120
Г\ETURN
A•,0111B=2301C= ,00 7 1K=350:E=CIF =KIG = ,0 1 31H•601l•,0071J•110
RETURN
A•,0071B•1501C•,0011K•200IE=CIF =K:G=, 011:H=501I•,0061J•90
REТIJRN
1200 A=.ooв:B=1S0:C=.00S:K=З00:E=c:r=к:c=.012:H=S0:I=.006:J=80
1201 REТIJRN
1210 A•,012:B•6001C=,0 07:K=7001E•CIF •HIG= ,01 1H=901l•,005:J•120
1211 REТURN
1220 A::, .012:B=375:C=.007:tt==500:E=C:F==~t:G=.008:H=80:I=.001:LJ=90
1221 RETURN
1230 A = .012:B:=250:C=,OOЗ:к~з50:E=C:F=K:G=.006:H=70:I=,OOЭ:Ll=BO
1231 REТLIRN
1210 A~.012:в=1so:c=,007:K=225:E=C:F=K:G=,001:H=150:I=.002:J=60
12"11 f"\E .TLJRN
~;ооо f'"RINT"fНIS SECТION CAL.CULATES CARE:IDE FACE HILL .INl; , ROtJl;H"
5001 ZXSa '•WIТH' А CARIO()[ Mit_t
-_
RDUGH CUT"
5010 [NF'tJТ"NllME:fR lJF TEEIH IN ТНЕ CUПER " ;N
Распечатка 2.8 (продолжение)
В строках 4150 - 4241
хранятся значения
скоростей и подач
для модуля 4
37
38
5020 R=CB•12)/<0•J .1116):F·1=A•N•R : Rl=L1/(A•N):T=R1/R
5030 GOTO::i200
5010 PRINT"THIS SECTION CALCULATES CARBIDE FACE HILLING
5011 ZXS="WIТH А CARE:IDE Hil..l .
·-
FINISH CUT"
5050 INf'UT "NUMl::ER OF ТЕЕТ!-1 I.N ТНЕ CLJТTER" ;N
5060 R•IK ■ 12)/ID ■ 3,1Ч161:Fl=C ■ N ■ R:Rl=Ll/lC ■ N):T=Rl/R
~ 10 7 0 G0f!J5200
5080 f'RINT"TНIS SECТION CAL.CUL .ATES CARE:IOE ENO HILl.ING"
5081 ZX$= " U SI N G А CAГ<E:IDE END НILL"
:,090 INf'UT"NUHE:ER OF ТЕЕТН IN ТНЕ СUТТЕR" ;N
5100 R~<F•12)/<D•З.1116>:Ft==E•N•R:Rt=Ll/CE•N>:T=R1/R
~ :i110 GOT05200
51;'0 f·RINT"THП; SECТION CALCULATES HSS FACE HIL.LING"
5121 ZXf="U SIN G А н н;н SF'EEO FACE НIL.L"
5131 INF'UT "NUME:ER OF ГЕЕТН IN ТНЕ CLJПER"; N
5110 R=(ti•12)/CD•З.1416> : F1=G•N•R:R1=L1/CG•N>:T=R1/R
5150 GOTO5200
~ ,160 PRINT"THIS SECTION CALCI .ILATES HSS END MILL .:rNG"
5161 ZX$="USING А НIGH SPEEO END Hil.L. "
5170 INF·UT"NUME:ER OF ТЕЕТН IN ТНЕ CIJTTER" ;N
5180 R=C,J • 12)/<D•З . 1416):F · l=I•N•R:Rl=L1/(I•N):T=R1/R
51 9 0 GOTO5200
5200 REM OT~iER ELEMENTS
FINISH"
5210 f'RINT "THE NEXT SERIES □ F · (IUESТIONS ARE f' OR ОП1ЕR ELEHENTS"
5220 PRINT"ТYPE IN ТНЕ NlJME:ER DF ТIMES YOU WISH"
5230 PRINT"EACH ELEHENT ТО Е:Е USEO OR О п-- NOT USED"
5211 INF'IJТ"RAF'I[) ADVANCE !О OR FROM WORH" ;м
~-,250 Ml ==Н•, 03
5760 INf'LIТ"COOLANT ON OR OFF OR ADJUSTED";f ·
5270 F·1= 0P•, 04
5280 INf' UT "START ANO OR STOF' CYCLE" ;(/
~ )290 (Н::с=О•,ОЗ
5300 f'IONT"LOAD AND LINLOAD "
5310 F'RINT"ТYF'E IN ТНЕ NLIHE:ER ТНАТ CORRESf'ONDS ТО ТНЕ f'ARf WEIGHT"
~ )320 lNF'lJТ"TO 5t (1),ТО 101 <2>,ТО 151 <З),OVER 201 (1)":\J
~ 330 ONUCOT05310,5311,S342,5343
5310 U==,2 5:GOT[l5350
5341 ll==.1:GCITO5350
~ J12 Ll ~ .9:GOTO5350
5313 LJ~1 , 15:~ □ T05350
5350 T2 ~ 1 +U+Hl+P1+O1
~.З~il t. PRLNTCHR'S(27>jCHRS<14>"COST ESTIHATE
-
MILLING"
~ :i352 LF·RINTCHR 'S < 1 ::10): t..PRINT'TART NAME
": W'S;" F 'ART NLJHE:ER "; XS
:",'З~;::~ LPRINl CHRt. < 1ЭВ): L.PRINT, , , "ОАТЕ " ; YS: F"ORI =l ТО 5 : t.. PRINTCHR'S( 1ЭВ>: NEXTI
~ ,360 Lf'RJNl"THE FПLI . OWING DATA IS FOR ";ZH ; ZXf
5361 LPГ.:IN"f :L .. f·RtN ·t "
"
5370 I.F'RINT " !НЕ. TOTAL I..ENGTH OF СIЛ WIТH Af•f 'ROACH iS" ; L. 1
5380 LPRINTCHR'SClЗB>
5390 L.. f ·RINT"RF ·H ТО IJ SE IS" ;R
5400 L. PRINTC:•1RS<lЭB>
5110 l.f 'RINl"FEFD IN INCHES f ·ER HIN, IS
" ;Fl
5420 L.PR!Nl"CHRS(138)
5430 l .PRINT "TOTAL HIL.. 1
. ING
TIME IS";Т
5110 LPRINTCHR$1!38)
5450 LF·RINT "TOTAL □ F·ERATION TIME IS."; Т 2
5160 LPRINTCHRfllЗBI
5470 L_F ·RINT"TOTAL .. F'ARTS f·ER HOUR ARF"; 60/12
5171 Lf'RINTCHR$1138)
5172 LPRINl''THf CUT TE "R [)[А. rs··;o
5q73 L.PRINT "THE LENGTH llf CUT WIТHOIJТ Af•f'ROACH IS" ;L
517Ч l.f'RINT"NUME:ER OF птrн IN ТНЕ CIJТTER IS" ;N
5'17 ~i L.F'RTNT "L .OAO AND LINL.OAD TIMf IS" ;u
5176 LF·RINT"NUME:EF,: OF REVS REOUIRED IS" ;F~l
5180 lNf'UT"T(J CALCUI_ATE ANOTHER CUT ТУРЕ 1 OR 2 ТО EXIТ";Z
5190 ONZ(;OTIJЗ000 , 5500
Распечатка 2.8 (продолжение)
5500 ENO
6000 CLS
6010
6020
6030
6010
6050
6060
F·RINH• 118, " PA RT ": F·RINT@l65, " CU TTER "
FORX • l5711TU15807:POKEX,l76:NEXTX
FORY~l5538T016050STEP61:POKEY,170:NEXTY
ГORK = 1T06STEP,10l:A = K•З.11:R=6:c-z:o-c+.101:x-o•<R•COS(A))
Y: R•SINIA):SETIX+lOO,Y+20):C=O:NEXTK
RE.ТIJRN
'
Строки 6000 - 6060 фор· мируют графическое изображение
фр ез ы в виде окружности.
n одпроrрамма исrользуется 6 раз и вы з ыва е тся оператором GOSUB.
20000 PRINT"ТYPE IN ТНЕ NUME,ER NEXT ТО ТНЕ MATERIAL"
20001 F'RINT"YOU WISH то wою~ WITH"
20010 PRINT"l --1018 -- 1020 - - BHN 150"
20020 PRINT"2--1040- - E:HN-:...1вo1 11
, 2 003 0 PRINT"З--1015--E:HN 270"
20010 F'RINT ' '1 --1050- -1060--52100--BHN 225 ''
20050 F'RINT"S --1095- - E:HN 225"
20055 F'RINT"t,--1335 E:HN 209 "
200/JO PRINT"l- -3110 - -E:HN 275"
20080 F·RINT "B --1130 --1310- · - 61 50--E ,HN 200 "
;(0090 F'RINT"? - -1110 - -1310 --5132 ·- -- E,HN 300"
20100 PRINT''l0-1150--1815- -BHN 250 ''
20110 PRINT " ll -1320- -E:HN 200"
20120 F'RINT " 12 ·-8 6 20 ·- - E:HN 175"
201ЗО INF'llТM
20110 ONHGOT020170,20180 ,20190,20200 ,20210
20150 ONH-5G(JT020220,20230 ,20210 ,20250 ,20260
20160 ONH - 10GOT020270,20280
20170 А - =,4415:в=.1423878:С=917:о~.1274194:А1=,478
20171 AS=''AISI 1018,1020--BHN 150'':RETURN
2 0100 А=,4415:Е~=.1103315:С = 766:О~,4268478:А1=.488
201Ell M="AISI 1010--BHN 180":REHIRN
70190 A~.111s:в=.11455 7 :C=451:D=.1214958:A1=.415
20191 AS::"AISI 1015-·- -E:HN 270 ' ' :RETURN
20200 А ~ .1415:Б=.1398561:С=552:О=.1295068:А1=.425
20201 AS = ''AISI 1050,1060,52100 - - BHN 225'":RETURN
20210 A=.1115:~=,1103511:C=507:D=.1276381:A1=.44
20211 AS~' 'AI SI
1095 -- BHN 225'':RETURN
2 0220 А~.111s:в=.1416237:С=631:О=.1285519:А1=.119
2 0221 AS~"A IS1 1ЭЭ5--Е:НN 209":Г~EflJRN
20230 A= . 441 5:B=. 14 1S5 39:C=12B:0=. 4 249875:A1=. 4 25
20231 AS="AISI 3140 - --E:HN 275" :REТlJRN
70210 А=.4115:В=.14125ВЗ:С = 651:D=,12725З:А1= . 457
20211 AS•= '' A I! ~I 11:I0,1310,6150--BHN 200' " :RETURN
20250 А=.4145:Б=.1424077:С=ЗВЗ:D~.127565Э:А1=.451
20251 AS= ''AI SI 11чо,1:310,5132--БНN 300'" :RETURN
~ 0260 А = .4115:В=.14376З:С~485:D =. 421931:А1=.451
20261 AS= ''AI SI 11 50,4815 --BHN 250 ' ":RETURN
20270 A=,4145:B=,1111351:C = 676:D=.1 26 8 54 1:A1= .44 5
20711 AS =''AISI 4320---БНN 200'':RETURN
2 0280 A~ .4145:B=,142019:C=BOO:D=. 1 276917:Al=. 1 75
202ft1 AS="AISt 0620 --- E::HN 175" :fi:ETURN
;~0290 END
Программа содержит все параметры степенных зависимостей. 11спользу емых для р асче та скорости
реза1111 я. Она может быть использована как по д программа в любой программе , с вя за нной с токарной
обработкой •
Распечатка 2.8 (продолжение)
39
ботки на многошпиндельном сверлильном станке является примером
такого подхода. В зависимости от твердости материала ЭВМ выбира
ет одно из пяти заданных значений скорости резания (строки 2060-
-
2150).
3. Инженер готовит программу , содержащую массивную подпро
грамму, в которой хранятся параметры режимов резания. Примером
может служить модуль 4 . В строках 4000 - 4241 пользователь выби
рает один из 10 различных материалов. ПосЛf того как пользователь
введет номер материала, программа присваивает всем установленным
переменным соответствующие значения, хранимые в подпрограмме .
Наименования переменных раскрываются в строках 4141 - 4143 с
помощью оператора REM. Используются только те переменные , ко
торые необходимы для выбранного типа обработки и инструмента.
Другие переменные не рассматриваются.
4. Инженер использует модули 1 и 2 для расчета скорости реза
ния. Поскольку на эту тему имеется очень немного публикаций, ни
же приведен алгоритм такого расчета .
Алгоритм расчета постоянных величин в программе SFPM (мо
дули 1 и 2) . Скорость резания у зависит от глубины резания х1 ,
подачи х 2 и стойкости инструментах 3 . Эта зависимость выражается
формулой:
где а0 = const.
Константы, используемые в программе SFPM, представляют со
бой значения параметров а0 , Ь 1 - Ь 3 , рассчитанные для каждого
вида материала . Для расчета использовались данные справочника
«Валенайт хэнди референс». Например, для стали AISI 1018- 1020
(НВ 150) при глубине резания 0,03 дюйм (0,76 мм), подаче
0,01 дюйм (0,254 мм) и стойкости инструмента 60 мин в справочнике
дана скорость резания 947 фут/мин (288 м/мин). При неизменных
подаче и стойкости инструмента и глубине резания 0,06 дюйм
(1,52 мм) скорость резания составляет 858 фут/мин (262 м/мин).
Можно записать:
947 = ао•О,030-Ы . о,010-ь 2 . 50-ьз;
858 =ао•О,060-Ы .0,010-ы,60-ьз ,
Поделив первое равенство на второе, получим
947 = 2ы откуда
858
'
Ь1 = lg(947/858)/lg2 = 0,1423878 .
При тех же глубине резания и стойкости инструмента и подаче
0,02 дюйм (0,508 мм) скорость резания составляет 638 фут/мин
(194 м/мин) :
858 =а0 , 0,06О-Ь1,О,ОIО-Ь 2 ,6О-Ь,;
638 =а 0 ,0,06О- ь, ,0,020-ь,.50-ь,.
40
Снова разделим первое равенство на второе:
858/638 = 2ь,, откуда Ь 2 = lg(858/638)/lg2 = 0,4274191.
Аналогично определяется Ь 3 . В программе SFPM хранятся значе
ния Ь1 ----: - Ь 3 для каждого материала, что позволяет рассчитать ско
рость резания для любых условий обработки . Так, в строке 20170
программы записано: А= 0,4445 (Ь 3); В= 0,1423878 (Ь 1 ); С= 947
(начальная скорость резания); D = 0,4274191 (Ь 2).
Допустим, требуется рассчитать скорость резания в следующем
примере: сталь AISI 1018, НВ 150; начальная скорость резания
947 фут/мин (288 м/мин); глубина резания 0,03 дюйм (0,76 мм); пода
ча 0,01 дюйм (0,254 мм); стойкость инструмента 240 мин.
Начальной скорости резания соответствуют следующие условия
обработки: глубина резания 0,03 дюйм, подача 0,0 1 дюйм, стойкость
инструмента 60 мин:
947 = а0 ,О,ОЗО- ь, . 0,010-ь, . 60-ь,.
Искомая скорость резания
у= а 0 •0,03О--ь, . о , О10--ь,.240 - ь, _
Поделив второе уравнение на первое, получим :
у/947 =(240/60)-Ьз ИЛИ
у= 947.4-о.4445 = 511 ,3фут/мин.
По справочнику скорость резания 511 фут/мин (156 м/мин).
Константа Al хранится в программе только для марок быстрорежу
щей стали. Поскольку ЭВМ не рассчитывает степеней с отрицатель
ными показателями, скорость резания .представлена в программе как
частное от деления единицы на произведение степеней с положи
тельными показателями. Примерно те же значения можно получить
графоаналитическим методом. Однако по точности этот метод усту
пает расчетам на ЭВМ.
В основной программе употреблен оператор INT(X), который от
секает дробную часть числа. Вот почему значения, с которыми опе
рирует программа SFPM, почти не отличаются от значений, приве
денных в справочнике.
2.4. ПРОГРАММА FORGE
Программа занимает 11500 байт оперативной памяти.
Эта программа _представляет собой важный пример расчета сто
имости обработки. Программа разработана и написана Марком Пул
сифером и Эдвардом Пети . Расчеты выполняются в той же последова
тельности, · что и при заполнении вручную формы документов по
калькуляции стоимости обработки.
В начале работы программы на экран выводится перечень (меню)
типовых операций, выполняемых при кузнечно - прессовых работах:
формовка, объемная штамповка, правка , обрезка . Когда пользова-
41
тель завершает «обработку давлением», он вводит цифру 8, и про
грамма выходит из цикла, заданного операторами FOR - NEXT .
Такой подход к программированию заслуживает внимания, по
скольку так следует писать большинство •программ расчета
стоимости.
Следующая особенность программы FOR GE заключается в том,
что пользователь должен задать для каждой операции производи
тельность оборудования. Здесь возможны различные оценки, поэто
му подобные программы приводят к некоторым неточностям, харак
терным для расчетов с использованием готовых форм документов.
Перед студентами, авторами программы, была поставлена зада
ча использовать технологический документ как формат для написа
ния программы. Именно этим объясняется способ задания произво
дительности оборудования. Авторы показывали работу программы
на одной из конференций по вопросам обработки металлов давле
нием. Реакция некоторых участников была просто восторженной.
Они были поражены быстротой, с которой ЭВМ выводила результа
ты расчетов, учитывающих всевозможные затраты, связанные с об
работкой деталей. Все данные о затратах на оборудование, оплату
труда основных и вспомогательных рабочих хранятся в программе.
Это уменьшает число данных, вводимых инженером. Содержа
щиеся в программе данные при необходимости могут корректиро
ваться ежеквартально (распечатка 2.9).
42
S REM LIST OF VARl8LES
1О А$ = '"••• FORGE ESTIMATE
••• •• : E:S='"OATE OF INQUIRY"': CS='"CUSTOMERS NAME '"
15 0$= '"CUSTOMERS ADDRESS .. : Е$ = '"ANNUAL lШАNПТУ'": f$= '"f ·ART NAME .. : G$= ''F 'ART NUME:ER'": Н
$='"Qf·ERAT .ION SELECТION"
20 l:S='"l) E:LANI( OR E:LQCl("( L.$ = '"2) FORGE":MS="З) Uf'SET ":NS="1) RESRШE"
25 OS=" S> TRIM <HOT-COLO)":f'S = "6> PLINCH":OS = "7) ROUGH GRIND":RS="B> SELECТION OF
Of'ERAТIONS COMf'L.EТED"
100 CLS:f'RINT:f'RINT ,A$
102 F'RINT:F'RINT"TO CLEAR SREEN OF INSTRUCTIONS ENTER -1 -"
105 f'RINT(PRINT"YOU МАУ USE UF ' ТО THREE DIFFERENT RUN QUANТIТIES ТО COMF'ARE ТНЕ
COST AND ТIМЕ REQD. ТНЕ FIRST ТIМЕ THRU ПiЕ f'ROGARM YOU J.IIL.L E:EREQUIRED ТО E NTE
R ПiЕ NECESSARY DATA. ТНЕ COMF'UTOR J .IILL THEN CALCUL. ТНЕ OTHER RUN QUANТIТIES
ANO";
110 f'RINT" GIVE А TDTAL SUMMARY. "
115 f'RINT: f''RINT "AS YOU GO THRIJ ТНЕ f'RDGRAM FDLLDW ТНЕ 11-'>TRUCТIDNS AND ENTER ТНЕ
CDRRECT DATA ASl(ED FOR. AFТER YOU HAVE ENTERED ТНЕ DATA REOD . f 'RESS -ENTER - ,
••THANt{-YOU••••
117 INF'UT IC
200 CLS:PRINT,AS:PRINT
205 f'RINTE:$"
<I, Е, (1111/DD/YY J": INf·UTE:1 $: f'RINTC$: INf'UTCI.
210 f'RINTDS:INf'UTDlS:PRINTES:INf'UTEl
215 f'RINTFS:INf'UTFlS:f'RINTGS:INf'UTG1$
220 GOSUE: 1600
225 GOSUE: 11 О О
230 GOSLJE: 161.ctO
;,35 CLS: f'RINT :INf'UT"HDW MANY DIFFERENT RUN <SIZE > OUANl ПIES DD YDU WISH ТО USE
,
ТНЕ LIHIT IS THREE '';OJ
210 FDRDC=ITODJ
215 f'RINT:F'RINT"WHAT IS ТНЕ OUANTПY FDR RUN - - ";r,c:INf'UTX(DC>
250 NEXT ОС
255 FDRY=I ТОВ: CLS:f'RINT, А$ :f·RINT: f'RINTH$ :f'RINT :f'RINП(t
260 f'RINТI. $: f'RINT/1$: f'RINTNS: f'RINTOS: f·RINTf "$: f'RINTQS: f'RINTR$
265 f'RINT: INf'UT"ТYf'E IN ТНЕ NO, CDRRESf'DNDING WIТH Df'ERAТIDN DESIRED , ";АА
280 LET V<Y>=AA
282 IFAA=BTHEN 355
285 REM МАСН, SELECТION LIST
Распечатка 2.9
;~90 CLS:F·RINT," •• • EOUIF'MENT ***":F'RINT
295 PRINT"l) 2000 LE:, E:OARD DRDF' HAHMER" ,"111) 1500 TDN FDRGE f'F<ESS"
ЭОО F'IONT "2) 3000 LE: , E:OARD DRDF' HAMMER", "11) -ЗООО TON FORGE f'RESS"
30~; PRINT"З) 5000 LE:, E:OARD DRDF' HAMMER", "12) 1000 TON COINING Pf!ESS"
Э!О F'RINT"1) 3000 LE:, STEAH DROF ' HAMMER ","13) 50 TON TRIM f'RESS "
315 f'RINT"5) 6000 LE:, STEAH DR □ f• HAMMER","H) 100 TON TRIH f'RESS"
320 PRINT"6) 1;·•00 □ L.E: , STEAH DROF' HAMMER","15) 5 □ TON COLD TRIH f'RESS"
325 f'RINT"7) 20 □□ 0 LE:, STEAM DROF' HAMMER","16> 10 □ TON COLD TRIM f'RESS"
33 □ F'RINT"B) 3--INCH FORGE MACНINE", "17> SNAGING OR GRINDING"
ЭЗ5 F'RINT"9) 6--INCH FORGE MACHINE "
310 PRINT: INF'UT"TYF'E IN ТНЕ NO , CORRESF 'ONDING НIТН DESIRED EOUIF' ,
";Н< У)
315 INF'UT"HHAT IS ТНЕ f'R □ D, / HR , FOR TНIS EQUIF' .
";LH У)
З~iО NEXTY
Э~i5 FOR ЕЕ= 1 TOD,J
360 f·RINT"THIS IS А SLJHMARY FOR RUN SIZE"X<EE>
362 LF'RINT "
":L.f'RINT"
SUMHARY OF DATA FOR SELECTED □ f· ERAТION" :L.PRINT"
"
ЗМ L..F'RINT"TНIS IS А SUHMARY FOR RUN SIZE OF " Х(ЕЕ> :L" PRINT"
"
Э65 LET TC•□:RC•□
370 f'OR Х•1 ТОВ
371 IF V(L)•8THEN615
372 IF VCX>•BTHEN615
Э7~i ON W(X) GOTO 395,4105,"Н5,4125,-Ч:З5,'115
380 ON W(X)-6 GOTO 155,165i175,185,195,505
ЗЕ15 ON W(X)-12 GOTO 515,525,535,550,560
390 REM DATA FOR EQUIP,
395 t _ETY=15.00:F=9.0o:т=1:R=S.SO:н=2:w=з.s:S=65
100 ZS••"2 □□ 0 LE:, E:OARD OROF' НАННЕR":с;от □ 570
105 LET Y=21:F=12:т=1:R=S.s:н=2:w=з.s:S=90
110 Н••"300 □ L.B , E:OARD DROF' HAHMER":COT057 □
115 L.ET Y=З1:F=11:T=1:R=S.s:н=z:w=з.5:S=110
120 ZS•"~; o □□ LE:, E:OARD DROP НАНМЕR":сото 57 □
425 LEl" Y = З6:F=11:T=1:R=5.5:tf=2:W=З.5:S=110
130 Zi=' ' ЗOOO LB. STEAH DROP HAHHER'":GOTOS70
135 LE:T Y=S:F=1fl:T=1:R=5.5:H=2:W =З.5 :S=200
1ЧО ZS= "600 □ LB, STEAM OROP HAMHER ":GOT0570
1Ч5 LET Y=75:F = 2З:T=1 : R=5 . 5:H=2 : W=З.5:S=100
150 ZS• "l2000 LB , STEAM DROP HAHHER":GOT0570
155 LET Y=100:F = ЗS:T=1 : R=5 . s:н=z:w=з.s : s=800
16 □ ZS•"2 □ 0 □ 0 LB, STEAM DROP HAHHER":G□T057 □
165 LET Y=20:F=10:T=1 : R=5.5:H=2:W=3.5:5=150
170 ZS•"Э-INCH FORGE HACHINE":GOT0570
Ч75 l[T Y=55:F=2s:т=1:R=s.s:н=2 : w=з.s:S=ЗOO
1В □ ZS•"6 -INCH f 'ORGE MACHINE" :GOT057 □
185 LET X=10:F=15:T=1:R=5.5:H=2:W=З.5:S=150
190 ZS•"1500 TON FORGE PRESS":GOT057 □
495 LET Y=20:F=O:T=t:R=5.s:н=z:w=з.s:s=SO
500 1$=''3000 TON FORGE PRESS'":GOT0570
505 LET Y=20:F=10:т=1:R=S . s:н=2:w=з . s:s=1SO
~i 10 l$:::"1UOO TON COINING PRESS":GOT0570
515 LET Y=ЧO:F=15:T=1:R=5.S:S=250
5 2 0 ZS="SO TON НО Т TRIM F'RESS":COT0570
525 LET Y=ЗO:F=15:T=t:R=S . S:S=200
530 ZS="100 TON НОТ TRIH PRESS":G □ T0570
535 L_ET Y=SO:F=O:T:::1:R=5 .5:S=300
~ ;10 ZS•"~;o TCJN пан PRESS" :c□ TCJ57 □
550 LET Y=50:F=O:T=1:R=S.5:H=2:W = 3 . 5 : S=ЗOO
555 Z$= ''100 TON TRIM PRESS'':GOT0810
~;6 □ LET Y•.Ь:T•l:R=5 ,5:ZS aa"SNAGGING OR GRINDING":l:OT0570
565 REM CALCUL, COST
570 LET Z=X(EE)/U(X):R=R •T:W=W •H
575 LET RC=<Z • Y>+<Z•F>+<Z•R>+<Z•W >+S
580 LET TC•TC+RC
585 REM PRINT DATA
59 □ CLS:PRINТ:PRINT"
591 LPRINТ" "
SUHHARY OF DATA FOR SELECTED OPERAТION"
Распечатка 2.9 (продолжение)
43
44
595 ON V< X > GOTO 1060,1065,10 7 0 , 10 7 5,1080 , 1085,1090
600 PRINT "EQUIPMENT USED", , z s: LPRINT "EQUIPMENT USED" ,, Z $
605 F'RINT
"F'ROO ./HR. ", , U(X) :L.F'RINT
"PROD . /HR .
",,ll( X)
610 PRINT "MACНINE RATE" ,, " $ "Y"/HR," : LPRINT "MACHINE RATE" ,, " S "Y"/HR,"
615 PRINT "SET UP CbST" , , " S"S:LPRINT "SET UP COST" , , " S "S
620 F'RINT
"ND,OFOPER,","
"T,"RATE/HR , ","$ "R : L.PRINT
"ND, OF OPER,","
"Т
, "RATE/HR," , " S "R
625 PRINT "NO . OF HEPLEf.:S" ,"
"Н, "f.:ATE/HR." , " f. "W: l.F'RINT "NO. OF HEF'LERS","
"Н,"RATE/HR•", "$"W
630 F'RINT
"TOTAl. HRS , /OPER,",Z:L.F'RINT
"TOTAL HRS ,/OPER , " ,Z
635 PRINT "RUN COST /OPER , " , , " $ "RC: L.F'RINT
"RU N
COST / OPER,",, " $ "RC
610 NEXT Х
615 LET TC(EEl=TC
650 NEXT ЕЕ
651 STOF'
7 00 REM OTHER ADDED COST
702 LPRINT" ": l . F'RINT"
" :t.F 'RINT, "ADDED OF'ERATШNS" : LPRINT" "
705 FOR I=l Н18
710 CLS:PRINT '' **** OT~~ER ADDED COST ** * * '':PRINT
715 F'RINT
" 11 CUТТING AND HANDLING" :F"RINT
" 21 H<DDUCT HANDLING AND SHIF'F 'INI;"
720 F'RINT
" 3 1 L.AE:ORATORY" : PRINT "q) F'ICl(LINI;": H,INT
" 5 1 TUMBLE OR SAND BLAST"
725 F'RINT " 6 > НЕАТ TREAT" : F'RINT
"7) ANN. - NORM ." : F'RINT RS
730 PRINT : F'RINT "ТУРЕ IN ТНЕ NO, CORRESPDNDING WПН ТНЕ OPERAТION": F'RINT
"YO U
DF
SШЕ ТО HAVE ADDED ТО EX ISТING OF·ERAТIONS,"
710 INF'UT G(l)
712 IFG(I>=8THEN71S
713 NEXT I
711 STOP
7q5 F'OR [:Е: 0• 1 TODJ
710 l..PRINT"
":t.PRINT "ADDED COST FOR ТНЕ RUN SIZE OF
" X (E:E:J :t..f"RINT"
"
750 FOR J=1T08 : IFV(J)=8THEN800
752 ON G(J) GOT(I 7 55,760 , 765,7 7 0,773,775 ,780
755 L_ETAD=<,l •NW>•X<BB>
756 l . l "RlNT "THE COST OF CUПING AND HANDLING IS $ "AD: GOH) 790
760 LET A0=( , 15■NWJ ■X(BBI
762 LF'RINT"THE COST OF PRODUCT HANDL .ING AND SHIPPING IS $ "AD:G □ Hl790
765 LET AD=(,Ol ■ NWJ ■ XIBBI
767 LPRINT"THE CQST OF l.AE:ORATORY WORI( IS $ "АО: GOT0 7 90
770 L.ET AD =(.02 •NW> • X<BB)
772 l . F 'RINT "THE COST OF PICl(L!Nl; I\; $ "AD : G □ T0790
773 LЕ "Г AD=C,05• NW> • XC8B)
771 l ..f"RINT "THE COST OF HIME:LE OR SAND E:LAST CLEANINI; IS $ "АD:С;ОП1 7 90
775 LE~T AD=( .08•NW>•XCBB)
77 6 l_PRINT "THE COST OF НЕАТ -TREATMENT IS $ "AD:G □ ГO 790
780 LET AD•( ,06■NWl■XCBBI
7 82 LPRINT"THE CUST UF ANN,
·-
HORM, IS $ "AU : GOTU790
7EI~ REM ACCUM, ADDED COST
790 LET ADl•ADl+AD
79~j NEXT "J
EIOO LET ADCBBl • ADI
[105 l .f "RINT"
":t.l"RINT "OT .fiER ADDED COST F UR ТНЕ RUN (ШАIN 'ГУ OF" X С Е:Е:) "= $ "АDШЕ: >: LP
RINT" "
810 NEXT ВЕ:
820 LET LN=(E1/200) • C~:
825 t_ET Ml "= (LN• :350)
827 IF LN< ITHENLN• I
820 l.PRINT "
": l .F'RINT "
": LF'RINT , "DIE MAINTENACE": LF·RINT "
"
830 Ll"RINT"
":t.F'RINT
"THERE Wil.L Е:Е AF ·PROXMATELY
"L N " ТIMES ТНЕ DIES WIL.L Е:Е CIOW
N FOR MAINT E NANCE"
НЗ~i l.PR I . NT "THE COST ш~ DП-: HAINTENANCE WH.L Е:Е $ "НТ
e1qo REM CALCUL . . FOR SUHHARY
815 H!R f·P• 1TODJ
Н50 Pf.:1NT : PRlNT, " *** SUMМAHY *** " : LF'RINT"
" : LPRINT, " *** SUHHARY *** ": L.PRINT" "
8~;2 PRINT"FOR ТНЕ RUN SIZE OF" X lf'PI : F''IONT:t.F'RINT"F· □ R ГНЕ Rl!N SIZE OF "X(F•f ') :tYRI
NT" "
Распеча тка 2.9 ( п родолжение)
855 F'RINT"THE TCJTAL CONVERSION COST IS "ТС ( F'F ') +АО ( РР) +НТ : u :·R I NT"THE TOTAL CONV E R
SlON COST IS 'S ··те(f:•p)+AD(рр) +НТ
86IJ F·RINT"THE ТОТАl. MAT'L WEIGH T IS
"NW •X lF'f')" L.E,S , @ s "SТЖ X (f'f') :t. F'RINT"THE ТОТ
Al.. МАТ,L.. WЕ:н;нт IS "NW•X(F·P)" LE:S . @ 'S
"ST•X(рр)
065 F'f.:INT " THE RE ...JECTION RATF. I S АТ 3 7. OF ТНЕ SUE:-TOTAL _,
WHICH IS 'S "( <ST•X<PF·))+Т
С (f•p) + AD ( f'f ') +МТ) ж , 03: L.F 'RINT " THE REJECТION RATE IS 3% [}f' ТНЕ suЕ,-тот AL , WНICH IS
$ "((ST•X<PF'~ )+ТС:(F'F')+АО(РР)+НТ)Ж.03
fl 7 0 F·RJNT " ТНЕ f' ACTORY COST IS s " . ((S ТЖX lf'f'))+AD(f'f')+MT + TClf'P)) жl, OЗ : L. F'RINT"THE
f:· ACTORY COST I ~;
'S "((БT •X< F'P))+AO<FT>+HT+TC(P}·>> • l . 03
Е175 F'R1NT " THE SAL.ES & ADHINI S TRATIVE COST I S $ "( ( (ST •X <F'F') )+TC(F'F ')+AO(F'F ') + HT> • l
.O З > • .1 ~'i : L_Pf'1NT " THE SAL.ES & AOMIHSTRATIVE COS T IS '$
"(((ST•X( f'F')> +TC<F'F')+AD<PF') ·+-
HT>•l.UЗ)•.1::'i
fJEIO Г'RJ:NT " THE. TOTAL. COST I ~" )
$ " (((ST :r:X (F'P))+AO(PF')+TC(F'F')+HT> • l . OЗ> • l . 1':'i : L.PRINT "
TtiE : lOfAL c:OST IS S ' '(((ST •X <F·P))+ADCF'P >+T(:CPP) +HT) • l.03) :r: 1,15
EIH2 NE XT Г'F'
fl8~,
f'RINT: INf"IП " DO YOLJ WISH ТО RUN ТIПS F'ROGRAM AGA I N , IF SO ТУРЕ I N
-
У-П!RУ
н; E"LSE
-·
N --·
FC,R NO .
11 :ELS
Е190 п· ELS•• " Y"THENZOO
Е195 E:" ND
1IJ 6 0 f'RINT:F'RINT Hs ,K s :LF'RINT H s, к s: GOTO 600
1065 PRINT:F'RINT нs,Ls :LPRINT нs,Ls: GOTO 600
1070 PRINT:PRINT ••-s,мs :LPRINT HS,M$: GOTO 600
1075 PRINT:F'RINT нs,Ns
:LPRINT нs,Ns: GOTO 600
1080 PRINT:f'RINl HS, Os : LPRINT Hs, os : GOTO 600
10EJ5 F·RIN ·r:PRINT HS, F· s
:Lf~RIN'f HS,F'$: GOTO 600
10УО PRINT:F'RINT нs,as
: LPRINT н,.а s : GOTO 600
11 О О CL.S: f'RINT "
п CAL.CI .IL , OI' SLUG WEIGHT
••"
11 о~; ~·RIN 1 : f'RINT , "МАТl. , SELECTION "
1 11 0 F'RINT:PRINT"l) ALUMINI.IH" , , " 6 ) MOLYE,DENI.I M "
111 ~.
F'RINT "Z) BRASS, ГORGING", "7) MONEL"
11~?. О PRINT"3) COF•f'[f,:, FOR GING", " 8) STEEI_ <CAST, CARE:ON , ALL.OY , CR . ) "
lt?~i f ·RJNT
" ", ) IRON,WRO(;tП" , ,"9) STEEL , 1'17 . TLINGSTEN "
1 130 F'RINT
" 5) MAGNESILJH" , , "10) STEEL,22Z ТLJNGS T EN"
1 1 35 PRINTIPRINT"TYPE IN ТНЕ NO , CORRESPONOING WITH ТНЕ HAT'L "
11qo INF'UT"OF' wнн:н HJRGI NG WH. L. Е,Е MADE OF , " ;нs
1112 (IN мs GOSUB 1зоо , 1 з оs,1:110 , 1э15 , 1320 , 1325,1330 , 1335,1ЭЧО , 13~5
11.q .q CL.S:PRINТ : PRINT"
•••
CALCLJL . OF SLLJG WЕI(;нт С □ N·т . ... ..
11q:, F'RINT:F·RINT"
l':EOMETRIC SHAF'E OF SLUG
"
11.lJ6 F·RINT: PRINT" 1) RECTAЖ;ULAR PRISH OR SQU ARE"
11q7 F'RINT
"2) юс; нт CY L.. INOER "
1 l'tll f•RINT "З> Тf([ANGLII. Af< f 'RISM"
1 1 1 9 PRINT : PRINT "ТУРЕ IN ТНЕ NO, CORRE SPONDING WITH ТНЕ GEOMETRIC"
11~_:;о lNF'LJТ "SHAPE E:EST SUITED FOR FORGING SL LJr-. " ; sн
1151 1:1N sн GOSUB 1160 ,1:1ss, 11вo
1 15::i REПJRN
1160 C:LS :F(IR L5== 15 ТО 30
1161 f·•RINТ @ 273, "-С-"
1165 ~;Ef(L_S ,5) : SET<L_5 ,20)
1170 NEXT L..5
1175 F(IR Н5=5 T(I 2 0
11flО SEТ(1~:;,М5):SEТ<3О,H~:i>
11H':'i NEXT Н5
119Ь f~(IR А5=60 ТО 120
1195 SE_l . (A5,5) :~iET<AS ,20)
12 00 NEXT A::i
1 205 FOR В5=~ T(I 20
12111 SE"T( 60,Б5>:SE:T<120 ,B5)
1215 NЕ:хт БS
•
11 20 f(IR ...15
= 22 ·rcl25
1;~2~ SE.T<1S,JS > : SET<ЗO , J5> : SET(60 , JS) : SETC120 , J5)
1230 NfXT J5
•
1/ ~5 F'OR
~(5=33 T(I 38
12 .lJO S[T(t:5,5) : SE:тct:5 , 20)
t~>q~,
NE' XT tCS
11~5 f~RINT@ 522,''-А-''
Распечатка 2.9 (продолжение)
45
1260
1265
F'RINT @ 555, "-Е:-"
PRINT@ 704, :INPUT"WHAT IS DIM,
-A-
PRINT@ 768, :INPUT"WHAT IS DIM, - E:-
PRINT@ 832, :INPUT"WHAT IS DIM, - C-
LETNW=<GA•CO•RS>•E:S
L.ETST=NW•DA
RETURN
(IN DECIMAL INCHES (I.E. 2 .5) "jGA
( IN DECIMAL INCHES ( I, Е, 3, О)
"; СО
(IN DECIMAL INCHES (I.E. 5.75) ";RS
:. 1270
1275
1276
1277
1280
1300
1305
1310
1315
1320
1325
1330
1335
1340
1345
1350
1355
1360
1365
1366
1370
1375
1380
L. ET J$=" ALUMINUM": E:S=, 098 :DA=2: СК = ,5: RETURN
46
L.ET J$="E:RASS ,FORGING" :E:S= , 3 0 5: DA=2: Ct(= , 9: RETURN
LET J$= " COF'F'ER ,FORGING" :E:S=. 325: DA =2 :Ct( = , 9: RETURN
LET JS=" IRON ,WROGHT": E:S=, 285 :DA=. 6:Ct( = l, 2: RETURN
LET J$= " MAGNESIUM": BS=. 063: DА=З, 5 :ct(=, s :RETURN
LET JS= "MOLYE:OENUM " :E:S=, 368:DA=4:CK =1 ,2:RETURN
LET J$="MONEL":E:S=,з20:DA=З:cк=1.в:RETURN
LET J$= " STEEL <CAST ,CARE:ON, ALLOY ,CR,) " :E:S = , 2 8 3: DA= ,6: CH=l: REТLIRN
L.ET JS=" STEEL, 14;( TUNGSTEN" :E:S=, 31 2 :DA= , 7: Ct(=l, 1 :RETURN
LET J$= "STEEL,22Z TUNGSTEN":is=,3 21:DA=, 8:CK=l ,16:RETURN
REM CYLINDER CALCUL,
CLS:FOR К8=4 ТО 6 ВТЕР ,101
LET АВ = t(В•З, 14
LET R8=6
С8=2
D8=C8+,101
LET X8=D8•<R8•COS<A8>)
LET Y8=R8•SIN(A8)
1385 SET(X8+25,Y8+15)
1390 CB=D8
1391 NEXT 1(8
1395 FOR А5= 60 ТО 120
1100 SET<A5,9):SET(A5,20)
1105 NEXT А5
1410 FDR Е:5=9 ТО 20
1115 SET(60,85):SET<120,E:5)
1120 NEXT Е: 5
1125 FOR CR=20 ТО 25
1430 SET(12,CR):SET(38,CR)
1435 NEXT CR
1110 FOR JS=22 ТО 25
1145 SET<60,J5):SET<120,J5)
1450 NEXT J:S
1155 F'RINT@ 523,' ' -А-''
1160 F'RINf@ 555, ' '-Е: - ''
1465 PRINT @ 704, :INPUT"WHAT IS OIM, -А-
<IN DECIMAL INCHES (I,E, 2,5) ";AG
1470 F'RINT @ 768, :INF'UT " WHAT IS DIH. -Е:- (IN DECIHAL INCHES <I.E. 5.75) ";СО
1472 LETN~=(.7851ж(AG[2)ЖCl))*BS
1473 LET ST=NW •DA
1475 RETURN
1477 REM TRIANGLE CALCUL,
1480 СLS:ХЗ=2D:УЗ=5:КЗ=15
1481 PRINT@ 260,"-С-"
1485 FOR LЗ=О ТО КЗ
1190 SЕТ(ХЭ+LЗ,УЭ+LЗ):SЕТ<ХЗ,УЭ+LЗ):SЕТ<ХЗ+LЗ,УЗ+tСЗ)
1495 NEXT LЗ
1500 FOR А5=60ТО120
1505 SET(A5,5):SET(A5,20)
1510 NEXT А5
•
1515 FOR BS=ST(l20
1520 SETC60,B5):SET<120,E:5)
1525 NEXTB5
1530 FOR J5=22TO25
1535 SET(20,J5):SET<З5,J5):SET<60,J5):SET(120,J5)
15q0 NEXT J5
1545 FOR CC=lO ТО 16
1550 SET(CC,5):SET(CC,20):NEXT се
1555 F'RINT@ 52'1,"-А-"
Распечатка 2.9 (продолжение)
PRINT@ 555,"-В-"
1560
1565
1570
1575
1577
1578
1580
1600
1605
1610
1615
1620
1625
1630
1Л35
1610
16.o:t5
1650
1655
1660
1665
1670
F'RINT@ 701,:INF'UT"wHAT IS DIH, -A -
F'RINТ @ 76В, :INF'UT "WHAT IS DIH, - E:-
F'RINТ @ В32, :INF'U T" WHAT IS DIH, -C-
LET NW =( ((GAxRS)/2)жCQ)x BS
<IN OECIHAL INCHES <I ,Е, 1, 25) ";GA
<IN OECIHAL INCHES <I,E, 5,75) ";СО
<IN OECIHAL INCHES <I,E, 3 ,0) ";Rs
LET ST=NW•DA
RETURN
LF'RINT,CHRS(301ASCHRS<29)1LF'RINT" •
LF·RINТE: S, ,E:lS
LF'RINТCS, ,ClS
LF·RINTOS, D1$
l.F'RINTE:$, , Е 1
LPRINТF·s, ,FlS
LF·RINТGS,, GlS
RETURN
LF'RINТ" ":LPRINТ" ":LPRINТ,"HATERIAL DATA"
LPRINТ" ":LF'RINТ"THE HATERIAL SELECTED IS "JS
LF'RINТ"THE HATER!AL IS S "DA" / LE: ,"
LF'RINТ"THE SLUG WErr;нт IS "NW
LF'RINТ"THE SLUG COST IS S "ST
RETURN
END
• • • FORGE ESTIMATE •••
DATF. □ F· INQUIRY
CLISTOHE.RS NAHE.
CUSTOHERS ADDRESS
ANNUAL QLJANПТY
PART NAHE
F'ARТ NUHE:E.R
HATERIAL DATA
01/01/В1
Е:, R, HACHINE
120 F'ERE HARQUETTE
3000
GE AR
82100
ТНЕ HATERIAL SEl.ECTED IS STEEL ( CAST ,CARE:ON ,ALLOY, CR,)
ТНЕ HATERIAL IS S ,6 /LE:,
ТНЕ SLUG WEIGHT IS 1,000В3
ТНЕ SLUG COST IS S 2,1005
SUMHARY OF DATA FOR SELECTED OF'ERATIDN
THIS IS А SUHHARY FOR RUN SIZE OF 1000
OF'ERAТION SE.LECТION
21 FORGE
ECНII PHE.NТ USED
20 00 l.E:, EIOARD DR □ F· HAHHER
F'RDD ,/HR,
100
НАСН!NЕ RATE
s 15 /HR,
SE T UF' соsт
s65
NO, OF OF·ER .
RATE/HR,
s 5.5
NO, □ F· HEЛ.ERS
2
RATE/HR,
s7
TOTAL. HRS,/OF'ER,
10
RLIN COST/OF'E .R,
s 130
OF'ERAТION SELECTION
11 RESRil<E
EQUIPHE.NТ LISE.D
1000 TON COINING F'RESS
PRDD,/HR,
125
HACHINE. RATE
s 20 /HR,
SET UF' COST
s 150
NO, □ F· DF'ER,
RATE/HR,
s 5.5
NO, OF HEF'LERS
2
RATE/HR,
s7
TOTAL HRS, /OF·ER ,
в
RUN COST/OF'ER .
s 190
Распечатка 2.9 (продолжение)
47
48
OPERATION SELECTION
EIШIPHENT USED
PROD,/HR,
HACHINE RATE
SET UF· COST
NO, OF OPER,
NO, OF HEPLERS
TOTAL HRS,/OPER,
RUN COST/OPER,
2
5) TRIH IHOT -COLD >
100 TON НОТ TRIH PRESS
125
$ 30 /HR,
$ 200
RATE/HR,
RATE/HR,
в
$ 716
$ 5.5
•
14
SUHHARY OF DATA FOR SELECTED OPERAТION
THIS IS А SUHHARY FOR RUN SIZE OF 2000
OPERAТION SELECTION
ECIUIPHENT USED
F'ROD, /HR ,
HACHINE RATE
SET UP COST
NO, OF OPER,
NO, □ F· HEPLERS
TOTAL HRS, /OF'ER,
RUN COST /OF'ER,
OPER,HION SELECТION
E(IUIPHENT USED
PROD,/HR,
HACHINE RATE
SET UP COST
NO, OF OF 'ER,
NO, OF' HEPLERS
TOTAL HRS,/OPER,
RUN COST/OPER ,
OPERAТION SELECТION
EQUIPHENT USED
PROD,/HR ,
HACHINE RATE
SET UP COST
NO, OF DPER,
NO, □ F· HEPLERS
ТОТ AL HRS, /OF'ER,
RUN COST/OPER,
2
1
2
2
2) FORGE
2 О О О LE:, EIOARD DROP HAHHER
100
t 15 /HR.
$65
RATE/HR,
RATE/HR,
20
$ 795
1) RESRП(E
1000 TON COINING PRESS
125
$ 20 /HR,
$ 150
RATE/HR,
RATE/HR,
16
S В30
$ 5.5
•
7
5> TRIH IHOT-COLD>
100 TON НОТ TRIH PRESS
125
S 30 /HR,
$ 200
RATE/HR,
RATE/HR,
16
$ 1232
SUHHARY OF DATA FOR SELECTED OPERATION
THIS IS А SUHHARY FOR RUN SIZE OF 3000
OPERATION SELECTION
EOUIPHENT USED
PROD , /HR,
HAC HINE RATE
SET l/P COST
NO, OF OF 'ER,
NO, □ F· HEPLERS
TOTAL. HRS, /OF'ER,
RUN COST/OPER ,
OPERATION S ELECT ION
EOllIPHENT USED
F'ROD ,/HR,
HACH:[NE RATE
SET UF· COST
2
2) FORGE
2000 LB, BOARD DROP HAHHER
100
$ 15 /HR.
$65
RATE/HR,
RATE/HR,
30
$ 1160
1) RESRШE
1000 TON COINING PRESS
125
$ 20 /HR.
$ 150
Распечатка 2.9 (продолжение)
.
-
NO, OF Of'ER ,
RATE/HR,
$ s.s
NO, oF· HEF·LERS
2
RATE/HR,
$7
TOTAL HRS,/Of'ER ,
21
RUN COST /OF'ER,
$ 1170
OF·ERAТION SELECTION
5) ТRП1 (HOT-COLD>
EQUIP11ENT USED
100 TON нот TRI/1 f'RESS
f'ROD,/HR,
125
11ACHINE RATE
$ 30 /HR,
SЕТ Uf' COST
$ 200
NO , □ F· Clf'ER,
RATE/HR ,
$ s.s
NO , OF HEPLERS
2
RATE/HR ,
$11
TOTAL HRS,/Of'ER ,
21
Rl/N COST/Of'ER ,
$ 171В
••• SUMMARY •••
FOR ТНЕ RUN SIZE OF 1000
ТНЕ HIТAL CONVERSION COST IS $ 7206, 00
ТНЕ TOTAL MAT'L WEIGHT IS 1000,ВЗ LBS,@ $ · 2100 ,5
ТНЕ REJECTION RATE IS ЗZ OF ТНЕ SUB-TOTAL, WHICH IS $ 290,597
т•tЕ FACTORY COST IS t 9977.lEI
ТНЕ SALES & AOMIMSTRATIVE COST IS S 1196,50
ТНЕ TOTAL COST IS S 11173,В
Дата запроса
Заказчик
Адрес заказчика
Распечатка 2З (продолжение)
*** Расчет себестоимости поковок **-"'
Годовая программа выпуска
Наименование детали
Номер детали
Данные о материале поковок
Выбранный материал сталь
Цена 1 фунт 0,6
Масса слитка 4,00083
Стоимость слитка 2,4005
01/01/81
3000
·Шестерня
82 100
Сводные данные о технологических операциях
Для годового выпуска I ООО·
Операция
Используемое оборудование
Производительность обору давания
Норма издержек для оборудования, долл/ч, 15
Затраты на наладку оборудования, долл., 65
Чнсло осr1овных рабочих 1 (при ставке 5,5 долл/ч)
Число вспомогательных рабочих 2 (при ставке 7 долл/ч)
Общие затраты времени на операцию, ч, 10
Технологическая себестоимость операции, долл., 430
ит.д.
К распечатке 2.9
Объемная фор
мовка
Фрикционный мо
лот с усилием
2000 фунт
100
49
*** Результаты расчетов ***
Годовой выпуск 1000
Цеховая себестоимость, долл., 7286,08
Общая масса металла, фунт, 4000,83
Потери от брака 3% стоимости забракованной продукции 290,597 долл.
Заводская себестоимость, долл., 9977,18
Торговые издержки и расходы на управленческий персонал, долл., 1496,58
Полная себестоимость, долл., 11473,8 и т. д.
К распечатке 2.9 (продолжение)
JOIOI SUMMARY •••
FOR ТНЕ RUN 5IZE OF 2000
ТНЕ TOTAL CONVER5ION COST IS S 8907,17
ТНЕ TCJTAL MAT'L WЕI1;нт IS В001.66 LE:S. @ S 1В01
П!Е RE.JECТION RATE IS 3;: OF ТНЕ SUE:-TOTAL, WHICH IS s 111,215
ТНЕ FACTORY СО5Т IS S 11119,1
ТНЕ SALE5 & ADMIM5TRAT1VE СО5Т 1S S 2117,91
ТНЕ TOTAL СО5Т 1S S 16237,3
••• SUHHARY •••
FOR ТНЕ RLJN SIZE OF 30ОQ
ТНЕ TOTAL CONVER510N СО5Т 15 S 10528,Z
тне· TOTAL MAT'L WEIGHT rs 12002,5 LE:5, @ ,S 7201.19
ТНЕ RE.JECTION RATE I5 3;: OF ТНЕ 5UB-TOTAL, WH1CH 15 S 531 .892
ТНЕ FACTORY СО5Т 15 S 18261.6
ТНЕ SALES & ADMIM5TRATIVE COST 1S $ 2739,25
ТНЕ TOTAL СО5Т 15 S 21000,9
ADDED OF"ERAТIONS
ADDED COST FOR ТНЕ RUN SIZE OF 1000
ТНЕ соsт OF HEAT-TREATMEN T rs $ 320.066
TtiE cos·r OF ANN.
-
HORH. IS • 210,05
ТНЕ COST OF TUMBLE OR SAND BLAST CLEANING rs S 200.011
OTHER ADDE.D соsт r ·oR ТНЕ RUN QUAINТY OF 1000 "' 100 .083
Распечатка 2.9 (продолжение)
Дополнительные операции
Дополнительные затраты на годовой выпуск, долл., 1ООО
Стоимость термообработки, долл., 320,066
Стоимость отжига и нормализации, долл., 240,05
Стоимость пескоструйной очистки, долл., 200,041
Суммарные дополнительные издержки для годового выпуска, долл . , 400,083
ит.д.
Ремонт штампов
Замена штампов 15 раз/год
Затраты на ремонт штампов, долл., 5250
К распечатке 2.9 (продолжение)
50
ADDED COST FOR ТНЕ RUN SIZE OF 2000
ТНЕ COST OF HEAT-TREATHENT 1S S 640,133
ТНЕ COST OF ANN, -
HORH, 15 $ 480,099
ТНЕ COST OF TUHBLE OR SAND BLAST CLEANING IS $ 400,083
OTHER ADDED соsт FOR ТНЕ RUN QUAINTY OF 2оро •$ 800,166
ADDED COST FOR ТНЕ RUN Sl ZE OF 3000
ТНЕ COST OF HEAT-TRE ATHENT 15 $ 96 0 , 199
!НЕ COST OF ANN, -
HORH, 15 $ 720,149
ТНЕ COST OF TUHELE OR SAND BLAST CLEANING IS S 6 00,124
OTHER AODEO COST FOR ТНЕ RUN QUAlNTY OF 3000 • $ 1200,25
DIE HAlNTENACE
THERE WILL ВЕ APPROXHATELY 15 TIHES ТНЕ DIES WILL ВЕ DDWN FOR HAINTENANCE
ГНЕ COST □ F DIE~ HAINTENANCE WILL ВЕ $ 5250
Распеча т ка 2.9 (продолжение)
2.5. ПРОГРАММЫ РАСЧЕТА СТОИМОСТИ
В последние годы написано немало статей и книг о применении
ЭВМ для расчетов стоимости. В них превозносится скорость проведе
ния на ЭВМ сложных расчетов, помощь ЭВМ в принятии решений .
Но большинство авторов забывают упомянуть о том, что программы
расчета стоимости оказываются самыми сложными из. числа про
грамм для решения технологических задач. В. отличие от многих
програм"'! для ЭВМ при написании программы расчета стоимости не
всегда ясно, с чего начать и чем закончить.
Начните с простых задач и по мере приобретения опыта програм
мирования переходите к более сложным программам. Инженер, на
чинающий самостоятельно писать программы, и его руководители
должны постоянно помнить о целях решения задачи . Цель не в том,
чтобы заменить традиционную систему расчетов стоимости системой
электронной обработки, выполняющей тысячи элементарных опера
ций, но в том, чтобы ЭВМ помогала инженеру, а не заменяла его .
Верояцю, читатели уже поняли, что ЭВМ способна выбирать
разумные решения, но эти решения должны быть запрограммирова
ны. Необходимо проводить экономическое обоснование, чтобы опре
делить, какие задачи следует автоматизировать и сколько на это
потребуется времени . Эти решения следует периодически пересмат
ривать, по мере того как навыки программирования улучшаются.
Сложную систему расчетов стоимости можно создать достаточно
быстро, но на начальном этапе надо думать не о сложных програм
мах, а о том, как оправдать капитальные вложения на покупку мик
роЭВМ .
Необходимо также уделить определенное внимание модульному
программированию. Принцип модульности применяется при реше-
51
нии более сложных задач. Прежде всего проанализируйте что лучше
может делать инженер, а что - ЭВМ, и начинайте с простых про~
грамм.
• И последнее замечание относительно стиля программирования.
В большинстве программ, написанных профессиональными програм
мистами, используются многочисленные проверки для того, · чтобы
уменьшить количество ошибок при вводе данных пользователем. Де
лать это необходимо, чтобы избежать неправильных . расчетов и оши
бок, искажающих результаты, но не следует проверять каждое вво
димое значение. Постарайтесь писать простые программы, которые
работают правильно
Упражнение 2.1 (наименее трудное). Написать программу расчета стои
мости обработки на цилиндрическом шлифовальном станке . Все параметры
режимов резания, подач, нормативы времени на ручные операции должны
храниться в подпрограмме, вызываемой оператором GOSUB.
Упражнение 2.2 (средней трудности). Написать программу для четырех
шпиндельного сверлильного станка. Программа должна включать типичные
операции, выполняемые на станке: сверление, разв.ертывание, зенкерование,
нарезание резьбы . В программе должны храниться все значения параметров
режимов резания и нормативные данные для других машинных и ручных
элементов операций: установка и снятие детали, проверка размеров и т. д.
Упражнение 2.3 (трудное). Написать поrрамму для многошпиндельного то
карно-винторезного станка. Все значения скоростей резания и подач для каж
дой типичной операции должны выбир . ться в программе и корректироваться
по паспорту станка.
Глава 3
ГРАФИКИ ОСВОЕНИЯ ПРОИЗВОДСТВА
И ЗАТРАТЫ НА ЗАПУСК ИЗДЕЛИЯ
3.1 . РАСЧЕТНЫЕ ФОРМУЛЫ
В гл . 2 рассмотрены вопросы использования микроЭВМ для оцен
ки стоимости обработки на токарных, сверлильных и фрезерных
станках. Другим аспектом оценки стоимости является применение
графиков освоения производства и расчет затрат (времени или
средств) на запуск изделия в производство . В этой главе описано
применение микроЭВМ для уточненной оценки стоимости с учетом
эффекта освоения.
Трудовые операции, выполняемые отдельн_ым работником, и
(или) процесс производства в целом могут быть усовершенствованы с
различной интенсивностью. Даже в условиях массового произведет~
ва, например в автомобилестроении, при освоении новой модели за
траты на начальных этапах производства выше, чем на последующих.
Темпы приобретения знаний и навыков характеризуются наклоном
кривых на графиках освоения производства . Применение таких гра
фиков преследует три общие цели.
1. Предсказать с определенной точностью, каковы будут затраты
на изделие по мере продолжения его выпуска, принимая во внима
ние, что динамика трудовых затрат имеет тенденцию к снижению.
2. Если затраты в процессе производства снижаются, то можно
предсказать, каковы будут дополнительные затраты при уменьше
нии объема производства, т . е. при изменении условия задачи на про
тивоположное.
3 . Достижение указанных целей предполагает, что между затра
тами и количеством изготовленных изделий существует определен
ная зависимость. Если рассчитать эту зависимость, то можно рас
считать дополнительные затраты к некоторой величине (норме в ус
ловиях освоения производства) и определить их как затраты на за
пуск изделия в производство или единовременные, разовые затраты,
связанные с начальными этапами производства.
Графики освоения производства и расчеты затрат на запуск из
делия в производство были разработаны в 40-е годы в авиационной
промышленности. Они позволили инженерам прогнозировать затра
ты задолго до начала производства конкретной модели самолета.
Эти методы используются сегодня в аэрокосмической и других от
раслях промышленности . Расчеты затрат на запуск изделия в про
изводство особенно часто проводятся в автомобилестроении при оп
ределении затрат на изготовление новой продукции. До появления
микроЭВМ подобные расчеты выполнялись графически на л·огариф
мической сетке, сейчас такая практика устарела .
53
Прежде чем рассмотреть программу для ЭВМ, рассчитывающую
графики освоения производства и з атраты на запуск изделия в про
изводство, уместно из.тюжить основные теоретические положения.
По мере того как количество обрабатываемых деталей удваива
ется, затраты рабочего времени на обработку одной детали сокраща
ются за счет освоения работы с некоторой постоянной скоростью, на
зываемой «интенсивностью освоения». Интенсивность освоения / из
меряется в процентах.
В следующем примере N - число обработанных деталей при / =
= 90 %, шт . , У - среднее время обработки одной детали, ч:
N
.
.
.
.
1
2
4
8
16
У..... 1,0000
0,9000
0,8100
0,7200
0,6561
В этом примере время, необходимое для обработки первой дета
ли, составляет 1 ч. Среднее время обработки двух деталей 0,9 ч .
В процессе освоения производства, когда объем производства вновь
удваивается, например от двух единиц до четырех, среднее время об
работки одной детали сокращается (0,9· 0,9 = 0,81 ч).
Среднее время обработки одной детали после обработки N дета
лей (исходное уравнение):
У= аN-ь,
где а - время обаботки первой детали; Ь
-
показатель степени.
Пример3.1.Рассчитать Уприа =1ч,N= 4шт.и Ь=О,152(приин
,е нсивности 90 % ) .
Среднее время обработки
у= 1.4 -o. 1s 2 =0,81004
{различие между 0,81000 и 0,81004 объясняется ошибкой, вызванной округле
нием с точностью до 5 - го знака) .
Показатель степени можно определить из следующего выраже
ния:
У1/У2 = aN;--ЬJ(aN 2 ь) = 2ь,
где У1 - среднее время обработки одной дета.тrи после изготовле
ния N1 детали; У 2 - среднее время обработки после изготовления
N2 детали; N2 = 2N1.
Пример3.2.РассчитатьЬ,еслиУ1=80чпри N1= 2шт.;У2=64ч
приN2=4шт.
Показатель степени определяется из соотношения .
80/64 = (4/ 2)ь = 2ь;
Ь = lg (80/64)/ lg 2 = 0,322;
интенсивность освоения
(64/80) ,100 = 80 % .
Индивидуальное время обработки детали У 3 подсчитывается по
формуле:
•
У3= (1- Ь)У.
54
Для очень больших партий обрабатываемых деталей приведен
ная выше формула дает небольшую ошибку, которую можно устра
нить, используя выражение
[(N .) (N-1)-ь]
Y 3 =Y(N-1) N-l
-
-N-
.
Пример 3.3. Рассчитать У3, если / = 90 %, Ь = О,l52, У = 0,6561 ч
приN=16.
У3 = (1 - 0,152) 0,6561 = 0,5564 ч.
Время обработки первой детали определяется по формуле
а= УN-ь.
Норма времени обычно «устанавливается» на некотором базовом
уровне, определяемом особенностями производства, и может учиты
вать или не учитывать ряд дополнительных факторов. Выражение
«устанавливается» подразумевает, что норма времени «приспосабли
вается» к условиям цеха для более точного соответствия среднему ко
личеству деталей в партии. Смысл в том, чтобы не считать затраты
для партии в миллионы штук, если средний размер партии 50 шт,
Пример 3.4. Определить а, если норма времени У = 1,58 ч «установ
лена» по среднему значению, достигаемому после обр-зботки 256-й детали;.
Ь = 0,152.
Время обработки первой детали
а= 1,58-256°, 152 = 3,67 ч.
Решая исходное уравнение относительно N, получим.
N=(У/а)-1/ь.
Пример 3.5. Определить N для / = 90%, если У = 0,96, а = 1,5 ч,
Ь = 0,074.
Номер детали
N = (0,96/l ,5)-(l/o.o 74 > =416.
Метод определения затрат на запуск изделия в производство ши
роко используется в различных отраслях. С его помощью пытаются
предст,азать, какие затраты (времени или средств) повлечет за собой
запуск нового изделия или модели. Суть метода иллюстрирует
рис. 3.1 .
Затраты на запуск определяются как разность между норматив
ными и фактическими значениями затрат при достижении некоторо
го заданного отклонения от нормы.
Теория определения затрат на запуск изделия в производство
предполагает, что после того, как достигнуты некоторые границы ос
воения операций, т. е. сокращение затрат стабилизируется и удвое
ние объема производства (например, от 2 млн. шт. до 4 млн. шт.)
сказывается незначительно, сокращение затрат должно вызывать
ся другими факторами. К ним относятся совершенствование норми
рования труда на основе применения передовых приемов и методов
труда, планирование снижения себестоимости или изменение конст-
55
т
4
3
N
Рис. 3. 1. Зависимость затрат времени
Т на запуск изделия в производство
от количества деталей N:
I - среднее время обработки одной де
тали: 2 - индивидуальное время обработ
ки N-й детали; З - норма времени; 4 -
дополнительное время
(i
L...._-----
3
/{
Рис. 3.2. Пример определения затрат
на запуск изделия в производство :
1 - начало влияния новых факторов на
процесс освоения; 2, З - нормы вре
мени
рукции изделия. Зависимость времени обработки от количества об
рабатываемых деталей с учетом этих факторов приведена на рис. 3.2 .
Расчет затрат на запуск изделия в производство можно прово
дить двумя способами. В соответствии с первым способом момент
пересмотра нормы должен совпадать с началом нового процесса ос
воения работы. Новая зависимость связана только с сокращающей-
.ся
частью затрат на изделие. На ту часть нормы, которая стабилизи
ровалась, распространяется старая зависимость. Новый цикл освое
ния начинается с N-го изделия, которое становится первым. При рас
чете затрат вторым способом предполагается, что процесс освоения
продолжается, но уже с другой интенсивностью. Изменяются пара-
•метры зависимости.
Можно привести доводы в пользу обоих способов, позволяющих
определи:гь затраты времени или средств на запуск изделия. Цен
ность обоих способов в том, что они дают возможность оценить улуч
шения в организации труда и определить затраты на начальных эта
пах производства для бухгалтерского учета.
Пример 3.6. Определить У 3 , если У= 0,96 ч. (N = 416). Индивидуаль
ное время обработки N-й детали
У3=У(1- Ь) = 0,96(1- 0,074)=0,89ч.
Затраты на запуск в производство партии из 416 деталей определяются
по формуле
(У - У 3) N А = (О,96-0,89) 416- 15 = 436,80 долл.,
где А = 15 долл. - цеховые расходы.
Анализ можно продолжить. Порядковый номер изделия, при ко
тором будет достигнута проектная норма времени У5 , если процесс
56
• освоения будет продолжаться, можно определить по формуле
N2 = (У/а)- 1 /Ь = [У8/((1-Ь) a)J- 1 /Ь_
Пример 3.7. Определить N 2 , если Ys = 0,8 ч. Проектная норма времени
·будет достигнута при
N 2 = ((О ,8/0 ,926)/1,5)- 13
•
5135 = 1729.
Дополнительное время к норме, %, рассчитывается по формуле:
(У3/Ys)l00 - 100 = ЛУ.
Пример 3 . 8. Определить ЛУ для рассматриваемых условий.
Дополнительное к норме время в момент, когда обрабатывается 416-я
деталь
ЛУ = (0,89/0,8)100-100 = 11,25 % .
Ниже приведены программа расчета затрат для процессов освое
ния производства и несколько примеров таких расчетов.
3.2 . ПРОГРАММА LEARN
Программа занимает 4136 байт памяти. Она состоит из четырех
модулей: расчета показателя степени для функциональной зависи
мости (1) и расчетов затрат времени на 1-ю (2) и N-ю (3) детали и на
запуск изделия в производство (4). В начале работы программы поль-
зователь выбирает необходимый модуль.
_
Некоторые микроЭВМ рассчитывают десятичные логарифмы.
МикроЭВМ TRS- 80 работает с натуральными логарифмами, по
этому необходимо в программе использовать соотношение lпx/lпl0,
позволяющее перейти от натуральных логарифмов к десятичным .
Текст программы приведен в полном виде на распечатке · 3.1 .
Комментарий к программе. Для написания программы использо
вано минимальное количество операторов и символов языка Бейсик
(11 операторов) . Такой подход позволяет инженеру, начинающему
составлять программы для ЭВМ, убедиться в том, что писать доволь
но сложные программы можно и без длительной подготовки. Для
тех, кто знаком с программированием, эта программа очень неслож
ная.
Строки 10- 240 дают возможность пользователю выбрать один
из четырех модулей, из которых состоит программа. В этой части
программы все вычисления, связанные с нахождением показателя
Рис. 3.3. Зависимость затрат вре
мени Т на запуск изделия в про
изводство от количества деталей N:
1 - индивидуальное время обработки
N - й детали; 2 - среднее время обра-
ботк-и одной детали
Iч
1,573
О L------~--;:13~64--:-----:,;:;71~0~N,шm.
ы
степени для функциональной зависимости, укладываются в три стро
ки- 140,150и160.
Строки 241-400 позволяют рассчитывать затраты времени на
первую деталь. Для этого надо ввести в программу значения пере
менной Q, обозначающей количество деталей, и переменной У, обо
значающей среднее время обработки одной детали. В строке 320 уп
равление передается подпрограмме, в которой значения показателей
степени хранятся так, как они хранились бы в операторе DAТА.
Эта часть программы может быть написана различными способами_.
В строках 401-590 обратите внимание на символ"[" после пере
менной Р в формуле (с_трока 480) - он обозначает операцию воз
ведения в степень.
Строки 600-680 охватывают наиболее важный модуль 1 в про
грамме, позволяющий рассчитать затраты на запуск изделия в про
изводство.
Строки 2000-2300 содержат подпрограмму, вызываемую опера
тором GOSUB, к которой обращается основная программа. Может
возникнуть вопрос: зачем вообще нужна подпрограмма? Почему не
вычислить показатель степени, если ЭВМ обладает такой непревзой
денной способностью к вычислениям? Существуют две причины, по
которым программу следует писать так, как она написана. Во-пер
вых, для расчета показателя степени должны быть известны четыре
переменных: время У1 и У2 и количество деталей N1 и N 2 . Их зна
чения не всегда известны на последующих стадиях расчета. Во-вто
рых, программа работает более надежно, если удается сократить
число данных, вводимых в нее пользователем, и тем самым умень
шить возможность ошибок при вводе.
Результаты работы программы LEA R N. Для получения на ЭВМ
любой из трех распечаток 3.2-3 .4 с результатами работы програм
мы требуется менее 1 мин. Инженеру, выполняющему те же расчеты
на электронном калькуляторе, на каждый вариант потребовалось
бы около 1 ч, если он не достаточно хорошо знаком с применяе
мыми формулами.
58
Рис. 3.3 служит иллюстрацией к распечатке 3.2
3 REM PROGRAM NAME LEARN
1 REM WRITTEN ВУ J.E .NICKS
5 REM COMPUTER APPLICATIONS FOR ТНЕ MANUFACTURING ENGINEER
6 REM COPYRIGHT 1981 ALL RIGHTS; RESERVEO
10 CLS
20 PRINT"TНIS PROGRAM CALClJl.ATES "
21 PRIN T"l .EARNING ClJRVES AND LAUNCНING COSTS"
22 PRINT"INF 'IJT ТНЕ SLJE: F'ROCRAM YOU \,п~:;н то lJSE"
23 F'RINT:F'f;:TNT
ЗО F'RINT"CAL.CLJLATE ТНЕ EXF'ONENT FOR А CLJRVE--·· ··-------1 "
10 PRINT"CALClll_AТE ТНЕ ТIMf: ГIJR ТНЕ FIRST LJNIТ- ·--··--·--2 "
50 PRINT"CALClll _ATE ТНЕ TIME FOR ТНЕ N ТН . UN IT--------3 "
60 PRINT "CALCULATГ L_AUNCH :[NC COST ·- --- --- --- -· --- --- --- --- - --. q"
7 О INPLJТN
Распечатка 3.1
80 ONNGOT090,250,110,600
Е11 Cl.S
90 l"RINT"TНIS ROIJТINE CALCULATES EXPONENTS FCIR А LEARNING CIJRVE"
91 F·RINT
9? F'fi:INT"THE: NUME:ER OF UNITS f"RODUCEO <LARGER) HUST Е:Е"
93 PRINT"2 ПМЕS ТНЕ NUME:ER OF UNIТS PRODUCED (SMALL.ER)"
91 PRINI
100 INPUT"TIME OR PER CENT <LARGER>";Yl
11 О INf·tл "NUME:ER ог-· LINIТS PRODUCED <L.ARGER >"; Nl
1;! о INPUI "ПНЕ OR PER CENT ( SHALLER)"; yz
1ЗО INPLIТ"NLIHE:ER OF LINIТS PRODUCED ( SMALLER)"; N2
НО A=Yl/Y2:Al=LCIG(A>/LOG(10>
Строки 140 н 150 нсrюльзуются для
1~•о C=Nl/N2: Cl ==l.OG <с) /LOG( 1 о)
п ересчета натуральн ы х логарифмов
160 [:=Al/Cl :Е::1=У2/У1
в десятичные
170 l.PRINT CHRS ( 27) ;CHR$ ( 1 q); "LEARNING Ct.JRVE EXF ·ONENTS "
171 LPRINT " "
180 L.PRINT "THE l .ARGER ПНЕ OR ;,: WAS"; Yl; "П1Е SMALLER WAS"; У2
181 l.PRINT"
"
190 LF'RINT "L .AR(;ER LJNITS F'RODUCED WAS "; Nl; " ТНЕ SMALCER WAS"; N2
191 LPRINT " "
200 L.PE:I:NT"HПS IS А ";Е::1;"% CEARNING CLJRVE"
201 1-PRINT""
,1 О lYRINT"THE EXPONENT FOR ППS CURVE IS" ;Е:
?20 CL .. ~ i:INF'UT"f.-OR ANOTHER CAL.CULATION ТУРЕ 1 OR 2 ТО EXIT";X
230 ONXGOT(ll0,210
240 END
241 CLS
,5 0 Pf<INT"THIS ROUТINE CAL.CULATES ПМЕ OF ТНЕ FIRST UNIТ"
260 INF0 LI T "THE AVERAGE ACCUH (ШАNТПУ IS
" ;(1
27 О PIONT"THE AVERAGE ACCUH ПНЕ FOR "; Q; "QUANТIТY IS"
2Е!О INF'LIТY
290 l"f<INT"TO CHODSE ТНЕ l.EARNING CURVE YOU WISH ТО WORt( НПН"
300 INF' LIT"TYF 'E: 1":Z.
3 1 О If'Z =l THEN320
з20 c;osLJE:2000
330 А=([j([:)ЖУ
335 LPRINT CHR$(27>;CHRS-(lq);"ТIME FOR ПiЕ Flf<ST UNIТ"
336 LPRINT " "
:ИО L.PRINT"THE АVЕГ<АС;Е ACCLIM ТIНЕ FCIR ПiЕ" ;[1; " UNIТ"
Э~iО L_PRINT "WAS"; У
Э5~i LF'R1NT "
"
360 l.PRINT"П:ME FOR ТНЕ FIRST UNIT LISING А ";С;";,: CURVE"
.3 70 L_f"RINT"IS ";А
.3В0 INF·UT "FOR ANOTHER CAL. C I JLATПJN ТУF·Е 1 OR 2 ТО ЕХIТ" ;х
390 ONXGCITOl0,100
100 END
401 CLS
11О PIO.NT"ТIHE ,-□R ТНЕ N ТН UNIT"
120 INF"LIT"NUHE:ER □ F· LINПS PRODlJCED, ТНЕ N ТН UNП IS" ;р
qзо INF"LJТ"ПME FOR ТНЕ FIRST LINП" :А
110 f'RINT "TO CHOOSE ТНЕ l.EARNING CURVE YCIU HISH ТО HORI: НIТН"
1~;0 INF· U T"ТYPE 1" ;z
%0 lf'l.=IТHEN170
170 с;оsш, 2000.
180 У=<РС-Е:>•А
190 Yl• =( 1-Е:)•У
500 l.f'RINT CHRS(27>;CHRS(14'>;"TIHE F- "O R Т Н Е N ТН UNIT"
505 L_PRINT"
"
51 О L_PRINT"WI-IERE TIHE r~or .: ТНЕ f "1HST UNIT IS ";А
520 LPRINT"LJSING А " ;С; " % L.EARNING CLJRVE"
s;~.5 L..f:·RINT"
"
~.зо l.PRINT"THE AVERAGE ACCIJM ТIМЕ FOR ПiЕ N Пi UNIТ" ;р
~ 'i .it0 L..f 'RINT"IS"; У
Распечатка 3.1 (продолжение)
'59
60
515 L_F 'RINT" "
550 LPRINT"AND ТНЕ TIHE FOR ТНЕ N ТН ";Р;" UNIТ ONLY "
560 LPRINT"l5";Y1
570 PRINT"FOR ANOТtiER CALCULAТION ТУРЕ 1 OR 2 ТО ЕХIТ"
571 INF"UTX
580 ONXGOTOl0,590
590 END
600 CL5
601 PRINT"THIS ROUТINE CALCULATES LAUNCHING COSTS"
61 О INPllТ"ТIHE IN HOUR5 FOR ТНЕ FIR5T UNIT 15"; А
620 INPUT"5TANDARD TIHE IN HOURS PER UNIT ";5
630 INPUT"5HOP RATE DOLLAR5 IS";R
610 PRINT"TO CHOOSE ТНЕ LEARNING CURVE YOU HISH ТО HORI( НIТН"
650 INPUT"TYPE l";Z
660 IFZ = 1ТHEN670
670 G05UE:2000
680 Bl=- 1/8:82=1-B
690 Р=((5/82)/А)(81
700 У=(Р( - Е:>•А
710 O=<IY/5)•100)-100
720 L=<Y-S>•P•R
730 LPRINT CHRt<27>;CHR$111);"LAUNCHING СО5Т5"
731 LPRINT""
710 l.PRINT"ТIHE FOR ТНЕ FIR5T UNIТ IS";A;"HOURS "
750 LPRINT"5TANDARD TIHE 15";5;"HOUR5 PER UNIТ"
760 LPRINT"SHOP RATE 15 S";R;" DOLLAR5"
761 LPRINT" "
770 LPRINT"U5ING А ";С;"Х LEARNING CURVE'
7EIO LPRINT"5TANDARD 15 REACHEO АТ ТНЕ ";P;"UNIТ"
781 LPRINT""
790 L.PRINT"HHEN ТНЕ ";P; "UNIТ 15 REACHED А5 А UNIТ"
800 LPRINT"THE AVERAGE ACClJH ПНЕ UP ТО ТНЕ ";F-;"'UNIТ"
810 LPRINT"l5 ";Y
811 l.F'RINT"
"
820 LPRINT"AND ТНЕ DFF 5TANDARD 15";0;"PER CENT"
821 LPRINT""
В22 LF'RINT""
830 l.F 'RINT CHRt 127>; CHRtl 1'1 >; "LAUNCНING СО5Т5 ARE $"; L.; "DOL .LARS."
810 INPUT"FOR АNОПiП: CALCULAТION ТУРЕ 1 OR 2 ТО ЕХIТ"; Х
850 ONXGOTOI0,860
860 END
2000 CL5
2010 PRINT"THE FOLLOHING CURVE5 ARE AVAILABLE ТО HORI< HITH"
2030 PRINT"ТYF'E IN ТНЕ NUHBER YOU Н15Н ТО U5E
2010 PRINT"I
98% - --------- -- -2
96%"
Z0S0 PRXNT''З
95%------- - -----1
91%''
2060 F'RINT "S
92Z-- - --- --- ----6
90%"
2070 F'RINT"7
88% ------ - - - ----8
86%"
2080 PRINT"9
85%------------10
81%"
2090 F'RINT"11
821 - - - ---------12
80%"
2100 F'RINT"IЗ
78%- -------- -- -11
76% "
2110 F'RINT " l5
75%"
2120 INF'UTN
2130 ONNGOT02160,2170,2180,2190,2200
2110 ONN - SGOT02210,2220,2230,2210,2250
2150 ONN - 10GOT02260,2270,22B0,2290,2300
2160 B• .029116:C=98:RETURN
2170 B= .OS B891:C =96:RETURN
2180 B= .0 7 1:C=95:RETURN
2190 B=. 089267:C=91:RETURN
2200 E:=.120291:C =92:RETURN
2210 Е: = .152003:С = 90 :RETURN
2220 B= .18 '112S:C=88:RETURN
2230 B= . 21 7591:C=86:RETURN
22i0 в~.2з~~65:C=B5:RETURN
2250 B=.251539:c=вi:RETURN
2260 B=. 286301:C-82:RETURN
2270 B=.32192b:c-вo:RETURN
2280 B=. 3581531C=78:RETURN
2290 B= . 395929)C=761RETURN
2300 B= .'115038 1C =751RETURN
Распечатка 3.1
(продолжение)
LEARNING CURVE EXPONENTS
ТНЕ LARGER TIHE OR 1⁄4 WAS .86 ТНЕ SHALLER WAS .8
LARGER UNIТS PRODUCED WAS 1730 ТНЕ SHALLER WAS 865
THIS IS А .930233 ,: · LEARNING CURVE
тне: EXPDNENT FDR THIS CURVE IS .101337
TIHE FOR ТНЕ FIRST UNIT
ТНЕ AVERAGE ACCUH TIHE FOR ТНЕ 1730 UNIT
WAS .Е16
TIHE FOR ТНЕ FIRST UNIТ USING А 91 Х CURVE
IS 1.6732
TIHE FOR Т~Е N ТН UNIT
WHE:RE TIHE FOR ТНЕ FIRST UNIT IS 1. 6732
USING А 91,: LEARNING CURVE
. ТНЕ AVERAGE ACCUH TIHE FOR ТНЕ N ТН UNIT 1730
IS . 859998
AND ТНЕ TIHE FOR ТНЕ N ТН 1730 UNIT ONLY
IS .7В3228
LAUNCHING COSTS
ПНЕ FOR ТНЕ FIRST UNIT IS 1. -
6732 HOURS
STANDARD TIHE IS .8 HOURS PER UNIT
SHOP RATE IS $ 15.25 DOLLARS
USING А 91 Х LEARNING CURVE
STANDARD IS REACHED АТ ТНЕ 1361.17 UNIT
WHEN ТНЕ 1361,17 UNIT IS REACHED AS А UNIT
ТНЕ AVERAGE ACCUH TIHE UP ТО ТНЕ 1361,17 UNIT
IS ,878113
AND ТНЕ OFF STANDARD IS 9,B016S PER CENT
LAUNCHING COSTS ARE $ 1631.61 DOLLARS
Расп ечатка 3.2 .
Показатель степени для кривой освоения про и зводст ва
Максимальное время 0,86, минимальное время 0,8
Большее количество обрабатываемых деталей 1730, меньшее количество об
рабатываемых деталей 865
Интенсивность освоения 0,0930233
Показатель степени О, 104337
Затраты времени на первую деталь
Среднее время обработки 1730 деталей 0,86
Интенсивность освоения 94%
Время обработки первой детали 1,6732
За траты времени на N-ю деталь
Время обработки первой детали 1,6732
Интенсивность освоения 94 %
Ср еднее время обработки 1730 деталей 0,859998
Индивидуальное время обработки детали No 1730 0,783228
61
Затраты на запуск изделия
Время обработки первой детали 1,6732
Проектная норма времени обработки одной детали 0,8 ч
Цеховые расходы 15,25 долл.
Интенсивность освоения 94 %
Норма достигается при обработке деталей No 1364,47 и т. д.
К распечатке 3.2.
Одним из преимуществ микроЭВМ является ее способность вы
полнять повторяющиеся расчеты за несколько секунд. В качестве
примера приведена распечатка 3.5 программы LEARN2, состоящей
из восьми строк. Интересная особенность этой короткой программы:
на ее написание потребовалось всего 3 мин; на ввод программы в
ЭВМ - не более 5 мин. И менее чем за 30 с ЭВМ рассчитала и на
печатала 25 строк, приведенных после текста программы.
62
LEARNING CURVE EXPONENTS
ТНЕ LARGER TIHE OR Z WAS ,75 ТНЕ SHALLER WAS .65
LARGER UNITS PROOUCED WAS 500 ТНЕ SHALLER WAS 250
THIS IS А ,866667 Z LEARNING CURVE
ТНЕ EXPONE:NT FOR THIS CURVE IS .206151
TIME FOR ТНЕ FIRST UNIT
ТНЕ AVERAGE ACCUH TIHE FOR ТНЕ 500 UNIT
WAS .75
TIHE FOR ТНЕ FIRST UNIT USING А 88 Z CURVE
IS 2.35919
TIME FOR ТНЕ N ТН UNIT
WHERE TIHE FOR ТНЕ FIRST UNIT IS 2,35949
USING А 88 Z LEARNING CURVE
ТНЕ AVERAGE ACCUH ПНЕ FOR ТНЕ N ТН UNIТ 500
IS .749999
AND ТНЕ TIHE FOR ТНЕ N ТН 500 UNIТ ONLY
IS ,6116В
LALI NCHING COSTS
TIHE FOR ТНЕ FIRST UNIT IS 2.35949 HOURS
STANDARD TIHE IS ,6 HOURS PER UNIT
SHOP RATE IS $ 18,75 DOLLARS
LISING А 88 Z LEARNING CURVE
• STANDARO IS REACHED АТ ТНЕ 555.1 UNIT
WHEN тне: 555,1 UNIТ IS REACHED AS А UNIТ
ТНЕ AVERAGE ACCUH ПНЕ UF• ТО ТНЕ 555, 1 UNIТ
IS • 735678
AND ТНЕ OFF STANOARD IS 22.6129 PER 1 CENT
~ AUNCHING COSTS ARE $
1412.15 DOLLARS
Распечатка 3.3.
3.3 . АНАЛИЗ СБАЛАНСИРОВАННОГО СООТНОШЕНИЯ
МЕЖДУ ОБЪЕМОМ ПРОИЗВОДСТВА И СТОНМОСТЬЮ
ОБРАБОТКИ НА РАЗЛИЧНЫХ СТАНКАХ
Один из главных вопросов, который должен решить инженер
технолог, формулируется следующим образом: «На каком оборудо
вании экономически целесообразнее обрабатывать данную деталь?»
Часто выбор такого оборудования основывается лишь на интуиции.
Несколько лет назад в докладе, представленном обществу инжене
ров-технологов, автором был описан графический метод, позволяю
щий выбирать необходимое оборудование.
LEARNING CURVE EXPONENTS
ТНЕ LARGER TIME OR 7. WAS 10 . 187 ТНЕ SMALLER WAS 8.698
LARGER UNITS PRODUCED WAS 2000 ТНЕ SMALLER WAS 1000
THIS IS А .В53833 7. LEARNING CURVE
ТНЕ EXF'ONENT FOR THIS CURVE IS .227971
TIME FOR ТНЕ FIRST UNIT
ТНЕ AVERAGE ACCUM TIME FOR ТНЕ 2000 UNIT
WAS 10.187
ПНЕ FOR ТНЕ FIRST UNIТ USING А 85 7. CURVE
IS 60.5372
TIME FOR ТНЕ N ТН UNIT
WHERE ПНЕ FOR ТНЕ FIRST UNIT IS 60.5372
USING А 85 7. LEARNING CURVE
ТНЕ AVERAGE ACCUM TIME FOR ТНЕ N ТН UNIT 2000
IS 10.187
AND ТНЕ TIME FOR ТНЕ N ТН 2000 UNIT ONLY
IS 7.79851
LAUNCHING COSTS
TIHE FOR ТНЕ FIRST UNIT IS 60 . 5372 HOURS
STANDARD TIHE IS В.5 HOURS PER UNIT
SHOP RATE IS $ 22.25 DOLLARS
USING А В5 7. LEARNING CURVE
STANDARD IS REACHED АТ ТНЕ 1385.12 UNIT
WHEN ТНЕ 1385.12 UNIТ IS REACHED AS А UNIT
ТНЕ, AVERAGE ACCUH ПНЕ UP ТО ТНЕ 1385 .12 UNIТ
IS 11.1033
AND ТНЕ DFF STANDARD IS 30.6276 F'ER CENT
LAUNCHING COSTS ARE S eozзz .1 DOLLARS
Распечатка 3.4 .
63
1 REH f'ROGRAH NAHE LEARN2
2 f.:EH WRIТTEN Е:У J, Е, NICl(S
э REH COMF'UTER Af'LICAТIONS FOR ТНЕ HANUFACTURING ENGINEER
4 REH COF'YRIGHT 1981 Al.L · RIGHTS RESERVED
~-) L.PRINT ' 'TH1S F·RQGRAH CALCULATES LEARNING CURVE EXf'ONENTS"
6 LYRINT" "
10 F'ORX=75TO 111 О
20 A•lOO/X
30 U=LOGCAI/LDGC101(C=LOGC21/LOG(101
40 О=Е:/С
50 L. F "RINT"FOR А";Х; "1⁄4 LEARNING CURVE USE EXF'ONENT Е: =" ;r>
60 NEXTX
lHIS F'ROCRAH CALCULATES LEARN!NG CURV~ EXF'ONENTS
FOR А 75 7. LEARNING Cl/RVE USE EXPONENT Е:
.115038
ПIR А 76 7. LEARNING CURVE USE EXF'ONENT Е:
.395929
FOR А 77 7. L.EARNING Cl/RVE USE EXF'ONENT Е:
, 37707
HIR А 78 7. LEARNING CURVE l/SE f.Xf'ONENT Е:
. 3581 51
ПIR А 79 7. LEARNING CURVE USE EXF'ONENT Е:
, 340 076
П/R А EIO 7. L.EARNING CURVE USE EXF'ONENT Е:
.З219Z8
ПIR А 81 7. L .EARN:LNG CURVE USE EXF'ONENT Е:
,3 040 06
FOR А 82 7. LEARNING CURVE USE EXF'ONENT Е:
.2 863 0"1
ПIR А 83 7. L.EARNING CURVE l/SE EXf'ONENT Е:
. 2688 17
ПIR А 84 7. L.EARNING CURVE l/SE EXf'ONENT Е:
.251539
HIR А El~i 7. L.EARNING CURVE l/SE EXF'fJNENT Е:
.2 31"165
П/R А Е16 7. LEARNING Cl/RVE l/SE EXf'DNENT Е:
.2.17591
HIR А 87 7. L.EARNING CURVE USE ' EXF'ONENT Е:
. 2009 13
ПIR А EJEI 7. L.EARNING Cl/RVE l/SE EXf'ONENT [:
.1В1'125
П/R А Е19 7. L.EARNING CURVE l/SE EXF'ONENT Е:
.1ьв1:~э
ПIR А 90 7. LEARNING CURVE l/SE EXF'ONENT Е:
. 152003
FOR А 91 7. L.EARNING CURVE USE EXF'ONENT Е:
, 1360 61
FOR А 92 7. l .EARNING Cl/RVE l/SE EXF'DNENT Е:
. 1202 91
FOR А 93 7. l .EARNING Cl/RVE USE EXF'ONENT Е:
,1 04697
П/R А 94 7. LEARNING CURVE l/SE EXF'ONENT Е:
. 0892 672
ПIR А 95 7. LEARNING CURVE l/SE EXF·ONENT Е:
. 0710 005
FOR А 96 7. LEARNING CURVE llSE EXF'ONENT [:
, 05 88936
FOR А 97 7. L.EARNING CURVE USE EXF'ONENT Е:
,0439431
HIR А 9EI 7. LEARNING CllRVE l/SE EXF'ONENT Е:
. 0291464
FOR А 99 7. LEARNING CURVE IJSE EXF'ONENT Е:
.0 l'lt\991
ПIRА1007.L
. EARNING CURVE l/SE EXF'ONENT [: = о
Распечатка 3.5 .
Предположим, что обрабатывается партия из 350 деталей. Не
обходимую технологическую операцию можно выполнить на станке
1 или 2. Однако для каждого станка существуют свои затраты под-
3. 1 . Определение точки сбалан-сированного соотношения
Показатель
Подготовительно-заключительное вре-
. мя,
ч
Оперативное время, мин
Стои~ость I станко-ч, долл.
Постоянные затраты на обработку ,
долл .
Затраты на обработку одной детали,
ДОЛЛ.
64
Станок 1
4,0
1,5
15,0
60,00
(1,5/60) 15,00=
=0,375
Станок 2
3,0
1,90
14,0
42,00
(1 ,9/60) 14,00=
=0,4433
3 Зак. 2156
BREAK EVEN ANALYSIS
ТНЕ ~R[AK EVEN PПlNl 15 260,711 PARTS
roR L[SS THEN 260,71 '1 OLJANITY USE ТНЕ GISHOLT TURRET LATHE
FOR MORE THEN 260.7! ~ OUANITY USE ТНЕ W & 5 TURREl LATHE
FOR ТIIE W & S TURRET L.ATHE ТНЕ ORIGINAL ОАТА WAS
srт UP HOURS 1 ANO RUN TIME PER РС OF 1,5
(:(J!iГ PER HOUR OF $ 15 , 25
HIR ТНЕ ИSHOLT ТlJRRET L. ATHE ТНЕ ORIGINAL. ()АТА WAS
SET UP HOURS 3 ANO RUN TlME PER РС OF 1,9
COST PER IIOLIR OF S 1.q,2:5
DREAK EVEN ANALYSIS
ТНЕ BREAK EVEN POINT JS 768 ,7 19 PARTS
f '(IR L_ESS THEN 768,719 OUANITY USE ТНЕ Т LATtiE
FOR MORE THEN 768,749 OUANITY USE ТНЕ SP lATHE
f"UR ТНЕ Т L.ATHE HiE ORIGINAL . DATA WAS
~iET
UP ► iOLIRS 3.75 AND RUN TIHE PER РС OF .5
c:CIST f•ER HOUR OF S 12,5
FOR ТНЕ SP LATHE ТНЕ ORIGINAL DATA WAS
SET UP HOURS 1 AND RUN ТТМЕ PER РС OF ,15
C:()~iT PER HOUR (IF S 13
E:fa:EAI{ EVEN ANAL.. YSIS
THERE IS NO BREAK EVEN POIN:
Tti~ N/C DRlll_ IS ALWAYS l.ESS EXPENSIVE
FOh ТНЕ GANC DRILL ТНЕ ORIGINAL DATA WAS
S[TUPHOURS3ANDRUNTIMEPERРСOF3
C(IST PfK HOLJR (JF S 12,5
FOR ТНЕ N/( ORILL ТНЕ DRIGINAL DATA WAS
~i(:r Uf· tiOURS 2 AND RUN TIHE PER РС о~ 2
c:os1 f'ER fiOUR OF ~ 12
Ec: f'-:EAI{ E\.JEN ANAL . YSIS
lНЕ (:REAt: EVE.N F 'OINT IS 11)2,703 PARTS
f"[JR LESS TtiEN 1!12 , 703 QUANITY USE ТНЕ GANG DRILL.
roR MORF THEN 102,703 QUANITY USE ТНЕ N/C DRILL
F"OR T•iE . N/C DRIL .L T •iE ORIGINAL DATA WAS
~;f•T Uf· ') iOLJRS 1 AND RUN TIME PER РС OF .85
со:;т F'ER HOUR OF $ 1::'i, 75
H>R fHE GANC DRIL . L
.
ТНЕ ORIGINAL DATA WAS
SE:T Uf· ~~OURS 3,5 AND RUN TIME PER РС OF 2,1
COST PER HOLIR (JF $ 12,11
Распечатка 3.6 .
65
66
REH PROGRAH NAHE ВЕР
REH WRITTEN ВУ J,E ,NICKS
З REH COMPUTER APPLICATIONS FOR ТНЕ MANUFACTURING ENGINEER
1 REH СОf'УRП;нт 1981 ALL RIGHTS RESERVED
1О CL.S
11 PRINT"ППS f'ROGRAM CALCIJLATES ПJЕ E,REAf( EVEN POINT"
12 PRINT"FOR HACHINE OPERAПONS "
13 PRINT"AND DETERHINES WНICH MACIONE ТО USE FOR А GIVEN OUANIТY "
20 FORI• !T05:PRINT:NEXT
30 PIONT"ENTEf( ТНЕ DATA FOR ПiЕ FIRST MACНINE"
10 INF'UT"ТYPE !N ТНЕ NAHE OF ТНЕ FIRS T HACНINE" ;AS
50 INPUT"SET UP HOURS FOR MACHINE 1 IS";Al
60 INF'UT "RLIN ПНЕ IN MIN, PER F·C, MACHINE 1 IS";A2
70 INF'UT"COST f 'ER HOUR HACНINE 1 IS" ;АЗ
75 CLS:FORI•lTOB:PRINT:NEXT
EIO f ·RINT " ENTER ТНЕ DATA FOR ТНЕ SECOND HACHINE"
90 INF'UT"ТYPE IN ТНЕ NAHE OF ТНЕ SECOND HACНINE" ;вs
100 INF'UT''SET LJP HOIJRS FOR HAC .iINE 2 1s ·· ;в1
llf) TNF'lJТ " R LJN TIHE IN HIN. f ·ER f'C . HACHINE 2 IS"/E::2
120 INF'LIT ' ' C(J!;T PER HOLJR HACHINE 2 rs · ·:вз
121 REH A4=HR PER f·C,AS =S/ ll COST
130 A4=A2/60:B4=B2/60:ns~A1•AЗ:EJ5=B1•BЗ
110 REH A6 zR UN COST
1~0 А6=А1•АЭ:В6=:В4•ВЗ
160 С:::;А5-вs:о;А6 ·- В6:Е : =С/[)
tt,~i t.F ·RINTCHRS(?7> ;CHRS< 1- ' f) ;"f:REM~ EVEN ANA L YSIS "
166 FORI"l ГIJ7:L f'IONГ"
" :N[XT
170 IfE..• lfH[NЗOU
100 E. "' AE:S<f: >
190 f-~-- =- f: +10:A7=A5+(A6•f: > :r:7==E:5+(B6•F)
200 If~A7 B7 THE :N220
210 lfAl B7 T ► ~EN260
:,:10 l f'"'TNT"ПIE E:RfA ►( E'VE'N F'OINT IS" :Е: "F 'Af.:TS"
:']О Lf- · f<INT"f--OR l.E'SS THE"N
" ;E ; " OUANITY LISE ТНЕ ";AS
;,qo l_f 'IONT 'TOR MORE THEN";[; " QUANIТY IJSE ТНЕ " ;,,s
:'':, О с;ото-чоо
?60 l F'RTNl"THE' E: RE.A ►( EVE'N r··OINT IS";E;"F"ARTS
?70 IYRINT''f '(JR l_f:SS THAN " ;E;"ШJANПY LJSE тtiE ";Ы
:•во l.F'RI NT"FOR HORE THAN " ; [; "OUANITY IJSE ТНЕ " ;AS
29 0 Г.ОТI.I-ЧОО
100 r ~ r+10:r· 1 ~E -10:A7~A5+(A6•F>:A8=AS+(A6•F1>:A9=A7+A8
310 E:7=85+CB6•F>:BB=B5+CB6•Ft>:B9~B7+B8
320 [f: A? В9ГНЕ: N:З10
~30 JГA9 , 89THEN370
: НО l .. F·RINT"THERE IS NO E,R[Af( EVEN РШNТ "
350 l_f-'RINT"THE
" ;As' ; " IS Al.WAYS LESS EXF'ENSIVE "
36О СОН11UО
370 L_f'RTNT"THEHE IS NO [ :RE -M( EVEN f ·OINT "
ЭВО t.. r .·R -IN_l ' "THE
"; f::s; " IS ALWAYS L..ESS EXf 'ENSIVE "
390 [;онноо
100 f' OR[,,!T[)2:LF' RINТ" ":NEXT
101 LJ:•RINT"r-: ·oR THF."
";As;" ТНЕ ORH;JNAL DATA WAS"
110 l. PRINT"SET LJF ' HOURS";At;"ANO RUN TIHE F'ER ' f 'C OF";Az
120 CPRINT"COST F·E·R HOUR OF S " ; АЗ
125 FOi;:[ 0 :1T02:L_f ·RINT"
":NEXT
130 lYRINТ"FOR · ТНЕ "; r,s;" ТНЕ ORIGINAL DAT·A WAS "
110 LF'RINT"SE" T LJF· HOI .JRS";[:t;"AND RUN TIHE f•ER f 'C OF";E:2
q~.o lf'RINT " COST f·ER H□UR OF S";[,з
%0 INF·tJТ " ТУf·Е I F Of< ANOTHER CAl_CIJLA fION OR 2 ТО ЕХП"; Z
170 (INZGOI010,180
quo FND
Распечатка 3.7 .
д.,ilолл.
Рис. 3.4. Зависимость суммарных
затрат А от количества деталей N 200
для двух станков (по данным
1----------::.<r:::--
табл. 3.2):
1- для станка 1; 2- для станка 2;
100
~·ов4 -)
-
-
п:с;оя;;оь;:ет~~;~:~~'; ~л}:_ те;::~
1""':.,....---~--1------
сбаланснрованного соотношения
о
Анализ сбалансированного соотношения
Точка сбалансированного соотношения 260,714 деталей
400 N,шт.
дJ)я партии до 260,714 шт. используйте револьверный станок GISHOLТ
для партии более 260,714 шт. используйте револьверный станок W&S
Исходные данные для револьверного- станка W&S :
Подготовительно-заключительное время, ч, 4
Оперативное время, ч, 1,5
Стоимость I станко-ч, долл.," 15,25
Исходные данные для револьверного станка GISHOLТ
Подготовительно-заключительное время, ч, 3
Оперативное время, ч, 1,9
Стоимость I станко-ч, долл., 14,25
Анализ сбалансированного соотношения
Точка сбалансированного соотношения отсутствует
Сверлильный станок с ЧПУ всегда дешевле
Исходные данные для многошпиндельного сверлильного станка:
Подготовительно-заклю,rительное время, ч, 3
Оперативное время, ч, 3
Стоимость 1 станко-ч, долл., l 2,5
Исходные данные для сверлильного станка с ЧПУ:
Подготовительно-заключительное время, ч, 2
Оперативное время, ч, 2
Стоимость I станко-ч, долл., 12,0
rотовительно-заключительного и оперативного времени, своя сто
имость 1 станко-ч и другие показатели, приведенные в табл. 3.1 .
Какой выбрать станок? Данные можно изобразить в виде графиков,
приведенных на рис. 3.4 .
Затраты на обработку определяются по формуле
у=а+Ьх,
где а - постоянные затраты на обработку партии деталей; Ь
-
пере
менные затраты на обработку одной детали.
По данным табл . 3.1 можно определить точку сбалансированного
соотношения:
60,ОО+О , 375х .-с-, 42,00 + 0,4433 х , откуда х =0 264 .
Точка равного для двух станков соотношения между объемом 11ро
изводства и стоимостью обработки соответствует riартии из 264 де
талей. Таким образом, еслн надо обработать 264 детали, то можно
выбрать любой станок. Если количество деталей в партии меньше 264 ,
~
м
то следует использовать станок 2, если больше 264 - станок 1 .
Этот метод принятия решения удобен, но он требует времени для про
ведения расчетов, поэтому большинство инженеров-технологов вы
бирают оборудование интуитивно.
Пример можно усложнить , если учесть дополнительное время к
норме и различную интенсивность освоения операции на каждом
станке .
3.4 . ПРОГРАММА ВЕР
Программа занимает 1956 байт памяти. Она выполняет расчет
точки сбалансированного соотношения и рекомендует технологу
использовать станок 1 или 2, если обрабатываемое количество не
соответствует точке сбалансированного равновесия. Программа так
же проверяет гипотезу о наличии такой точки. Если гипотеза не под
тверждается, в распечатке появляется сообщение о том, что такая
точка не существует, и о том, какой станок экономичнее исполь
зовать во всех случаях
При расчетах принято, что если значение точки сбалансирован
ного равновесия положительно, то такая точка не существует.
В этом случае управление передается операторам в строке 300 . Вы
числяются затраты на обработку некоторого выборочного количе
ства деталей плюс или минус 10 деталей. Затем в строках 32.0 и 330
сравнивается стоимость обработки деталей на обоих станках и на пе
чать выводится наименование станка, на котором стоимость обработ
ки ниже.
Если значение точки сбалансированного равновесия отрицатель
ное, то в строке 180 знак меняется на плюс и осуществляется сравне
ние стоимости обработки (строки 200, 210). На печать выводятся зна
чение точки сбалансированного равновесия и рекомендация, какой
станок использовать, если количество деталей в партии не соответст
вует точке сбалансированного равновесия. •
Ниже приведены результаты работы программы ВЕР (распечат
ка 3.6) и ее текст (распечатка 3.7). В каждом примере приведены ис
ходные данные, для которых проводились расчеты.
Упражнение 3.1 (наименее трудное). Написать программу расчета мас
сы заготовки прутка для многошпиндельного токарно - винторезного станка.
Предусмотреть ввод в программу данных о длине детали, ширине .отрезного
резца и цене· материала и вывод на печать следующих результатов: числа де
талей, изготовляемых из одной заготовки; затрат на одну деталь (включая
брак и отходы); погонной длины прутка.
Упражнение 3.2 (средней трудности). В гл . 2 рассмотрено применение
ЭВМ для расчета стоимости. Написать программу расчетов стоимости с учетом
графиков освоения работы . Предусмотреть ввод данных о планируемо м
количестве изделий и относительном снижении затрат времени на обработку
за счет освоения операций.
'
Упражнение 3.3 (трудное). Написать программу расчета точки сбаланси
рованного равновесия для трех · станков . Предусмотреть ввод следующих
данных : подготовительно-заключительного времени; штучного времени ;
стоимости оснастки инструментами и приспособлениями (для конкретного
станка); стоимости I ч работы каждого станка .
68
Глава 4
АНАЛИЗ ТЕХНОЛОГИЧЕСКИХ ВОЗМОЖНОСТЕЙ
ОБОРУДОВАНИЯ
4.1. КАЧЕСТВО ПРОДУКЦИИ
При разработке технологических процессов важно определить
технологические размеры детали и допуски . Технологический раз
мер отличается от размера по чертежу, поскольку надо дополнитель
но обработать заданную поверхность, чтобы получить размер, пре
дусмотренный на чертеже. В качестве примера назовем такие опера
ции, как грубое точение, получистовое и чистовое шлифование. Тех
нологический допуск - это допуск, связанный с технологическим
размером. Задача определения линейных технологических размеров
и допусков усложняется, если инженеру-технологу приходится рас
пределять по размерной цепочке допуск, заданный на чертеже (см.
ГЛ. 11).
При проектировании технологии необходимо решить вопрос, мо
жет ли точность конкретного станка обеспечить установленные до
пуски. Важно, чтобы инженер-технолог, разрабатывающий процесс
обработки детали, выбрал такую точность обработки, которая может
быть достигнута на рабочем месте. В многочисленных публикациях,
описывающих методы статистического контроля ~ачества, этому во
просу уделяется необходимое внимание. Ниже рассмотрен один из
методов выбора оборудования, обеспечивающих заданную точность,
и разработаны его математические основы. Применение метода про
иллюстрировано конкретным примером анализа точности оборудо
вания. Приведена небольшая программа для ЭВМ, выполняющая
такие расчеты.
Службы управления качеством создаются только на крупных
предприятиях. На остальных предприятиях функции обеспечения
качества целиком или частично возлагаются на инженеров-техноло
гов. Нередко эти функции не выполняются, так как инженеры-тех
нологи не получают соответствующей подготовки или эта работа
не входит в их должностные обязанности.
Чаще всего термин «контроль качества» связывается с техниче
ским контролем в ходе производства . Технический контроль быстро
устаревает. Он основывается на эпизодических проверках работы
операторов, независимо от того, нужны ли такие проверки или нет.
Это замечание может показаться очень резким. Сделано это предна
меренно. В последнее время в печати нередко задают вопрос: «Почему
американская промышленность не может выпускать продукцию вы
сокого качества?» В прошлом году США посетила группа японских
специалистов, которые выступили на предприятиях автомобильной
промышленности с лекциями об управлении качеством.
69
4.2. АНАЛИЗ ТОЧНОСТИ ОБОРУДОВАНИЯ
Ниже описан простой метод анализа точности оборудования.
Подчеркнута мысль о том, что инженер должен разделять ответствен
ность за обеспечение высокого качества продукции .
• Работы по планированию качества, выбору контрольно-измери
тельного инструмента и частоты контроля, анализу технологических
возможностей оборудования необходимо включить в дополнитель
ные обязанности инженера-технолога, если на предприятии нет
службы управления качеством .
Анализ технологических возможностей оборудования играет
важную роль на любом, успешно работающем предприятии. Во
первых, анализ точности оборудования позволяет ответить на во
прос: «Может ли данный станок обеспечить исходный или техноло
гический допуск? Если нет, то какой допуск обеспечивает станок?» .
Во-вторых, ежегодно на большинстве предприятий составляют сме
ты капитальных затрат на приобретение оборудования и детальное
обоснование по каждой единице оборудования. Причинами покупки
нового оборудования могут быть расширение производственных мощ
ностей, внедрение новых методов работы, замена старого оборудова
ния .
В каждом случае следует проводить анализ технических возмож
ностей оборудования. Чтобы пояснить эту мысль, разберем вопрос
о замене старого оборудования новым. Возможны различные пути
его решения: подремонтировать станок и использовать его еще один
год; капитально отремонтировать станок; приобрести новый ста
нок . Независимо от выбранного пути необходимо проанализировать
точность станка. Например, если обработка должна проводиться
с допуском +О, 125 мм , а станок обеспечивает точность +О, 150 мм,
то этот станок еще можно использовать. Если же станок обеспечива
ет точность + 0,25 мм, решение должно быть совершенно иным.
Прежде чем решать проблему, надо определить ее масштабы. По
мере стремительного роста цен на новое оборудование для хорошего
руководителя становится правилом не только испытывать станок до
-его покупки, но и рассчитывать возможности станка перед его покуп
кой .
Многие фирмы, приобретающие новое оборудование, исходят из
практического правила (и это оговаривается в контракте), по кото
рому точность нового станка должна обеспечивать допуск не более
5/8 исходного допуска . Это служит гарантией того, что новый ста
нок будет длительное время выдерживать заданную точность обра
ботки.
Хотя между анализом производственных и технологических
возможностей оборудования имеются различия (вопросы, на ко
торые ищут ответа в ходе анализа, различны), методы проведе
ния исследования и расчета совпадают.
Покажем сначала, как выполняется анализ точности станка
70
традиционным способом. Затем рассмотрим программу для
ЭВМ, по;зволяющую автоматизировать эти расчеты.
При проведении анализа технологических возможностей оборудо
вания руководствуются следующими основными правилами . Вы
борка должна быть непрерывной и объем ее должен быть не менее
64 ед., т. е. достаточно большим, чтобы обеспечить надежность ре
зультатов исследования. Выборки меньших размероЕ приводят к
появлению систематической ошибки в результатах. Способы опреде
ления необходимого объема выборки при заданных доверительных
интервалах рассмотрены в гл. 7.
При решении практических призводственных задач выборка объ
емом 64 ед. считается достаточно представительной. Если станок об
рабатывает деталь в нескольких координатных осях, то анализ точ
ности обработки следует проводить по каждой оси. Для такой дета
ли необходимо измерять более одного качественного признака . На
пример, если станок настроен на обработку двух линейных размеров
и двух диаметров, то анализ надо проводить, по крайней мере , для
одного линейного размера и одного диаметра. При проведении иссле
дования необходимо пользоваться микрометрическими инструмента
ми, а не калибрами или специальными мерителями. Возникает во
прос: «Как измерять деталь?» Ответ на него мог б~I стать темой це
лой книги.
Следующий фактор, который необходимо учитывать при анализе,
это число шпинделей. Шестишпиндельный токарно-винторезный ав
томат надо рассматривать как шесть отдельных станков и проводить
анализ точности для каждого шпинделя. Выборочные обследования
часто показывают, что низкое качество обработки. на таком станке
объясняется погрешностями обработки на одном из шпинделей.
На многих предприятиях все еще используют для систематиче
ского выборочного контроля основных размеров контрольные карты
с ранжированием средних арифметических. Данные, собранные с по
мощью таких карт за длительный период времени, позволяют опре
делить, какую точность обработки обеспечивает станок . Однако ин
женер должен понимать, что точность обработки зависит от действий
оператора (смена инструмента, подналадка станка) и не отражает
точность собственно станка. Контрольные карты являются отличным
средством контроля работы оператора, но они меньше подходят для
анализа технологических возможностей оборудования, так как не
позволяют получить ответы на многие вопросы .
Одна из целей анализа технологических возможностей оборудова
ния заключается в том, чтобы отделить работу оператора от работы
станка. Важное значение имеет правильная постановка вопроса, на
пример, может ли станок выдерживать заданный допуск независимо
от того, сколько времени тратит оператор на настройку инструмента.
Вот почему анализ проводится на основе непрерывной выборки.
Существуют две общие формулы для расчета стандартного отклоне
ния а . Обе формулы дают одинаковые результаты, но используются
71
для различных целей . Если расчеты проводятся вручную, то проще
использовать не сами значения случайной величины, а их отклоне
ния от среднего арифметического значения:
<J=i -. /
"2:.fd2 -( Щd )2
V "2:.f
щ
-
А+Щd•
Х=
--t,
"2:,f
где х - среднее арифметическое значение; i - интервал ; f - ча
стота; d - отклонение; А
-
значение среднего элемента ранжиро
ванного ряда.
Пример расчетов вручную приведен в табл . 4 .1. Для сбора ис
ходных данных непосредственно на рабочем месте применяется спе
циа.1ьная форма (рис . 4.1). Используя эту форму, инженер строит
гистограмму распределения размеров деталей и определяет, насколь
ко это распределение близко к нормальному (рис . 4.2) .
4.1 . l(арта распределения частот
Наименование оборудования:
Дата 4/ 12/81
токарно-револьверный станок
Наименование детали: цилиндр
Номер детали: 12 345
Допуск : ±0,005 дюйм
Номинальный размер: 1,000 дюйм
Линейный размер/диаметр :
Интервал: 0,001 дюйм
линейный размер
Измерение
х
0,994
0,995
0,996
0,997
0,998
0,999
1,000
1,001
1,002
1,003
1,004
1,005
1,006
Частота f I Отклонение 1
1
-6
3
-5
6
-4
5
-3
8
-2
10
-1
16
о
11
+1
10
+2
7
+3
5
+4
2
+5
1
+в
"2:.f=85
_
I.fd
2
fd
-
-15
-24
-15
-16
-
о
11
20
21
20
10
6
"2:.fd = 2
d'
36
25
16
9
4
1
о
1
4
9
16
25
36
Примечание : х=А + щ i=I000+85 o,00l = l , 000235=1 , 000;
а=О,001 v574-(2·)• =О,00259=0,0026;
85
85
х+За=!,ООО+(3.О,0026) = 1,0078;
х-За=1,000-:- (3.0,0026)+О,09922.
fd'
36
75
96
45
32
1(}
о
11
40
63
80
50
"2:.fd2 = 574
Допуск по ч е ртежу (1,00±0,005) дю йм ; точность обработки (1 ,000±0,0078) дюйм;
А= 1.000 дюi!м - с редний э лемент ранжированного ряда.
72
Наименование оборудования:
токарно-револьверный станок
Номер детали: 12 345
Номинальный раз:мер: 1,000 дюйм
Интервал: 0,001 дюйм
Результаты измерений
0,992
0,993
0,994
0,995
0,996
0,997
0,998
0,999
1,000
1,001
1,002
1,003
1,004
1,005
1,006
1,007
1,008
111
1111
IТП
Шi 111
IТП 1111
IТП iТП 1111
ПТI IТП -1-
IТП iТП
ffiТ -11-
Ш!
-11-
Дата 4/12/81
Наименование детали: цилиндр
Допуск ±0,005 дюйм
Линейный размер/диаметр:
линейный размер
Нижнее отклонение допуск.а
Верхнее отклонение допуска
Рис. 4.1 . Форма для а11а,1нза точности обработки
(размер выборки 85 деталей)
Если номинальный размер по чертежу и фактический средний
размер, полученный при обработке на станке, совпадают, то нет не
обходимости переналаживать станок. Если разность между этими
значениями велика, необходимо отрегулировать станок так, чтобы
средний размер приближался к номинальному. В этом случае на
станке будет получено меньше дефектных деталей. Контрольные кар
ты помогают настроить станок на соответствующий средний размер
обработки. Оценить долю дефектных деталей можно по формуле
А=х-х
(J
'
где А - отклонение, стандартные единицы; х
-
верхняя или ниж
няя контрольная граница. По рис. 4.2
А= 1,005-1,ооо = 1,92 ,
.
0,0026
что соответствует 48,6 % площади под кривой, т. е. 1,4 % деталей
имеют размеры, превышающие верхний допуск.
На рис. 4.2 фактический средний р;э.змер и номинальный размеf
совпадают, поэтому кривая симметрична и доля дефектных детален
с размерами меньше нижнего допуска также составляет 1,4 %.
73
1·
1
-Jб -Zб -16
+1б +26 +Jб
1,000
Рис . 4.2 . Гистограммы распределения
деталей:
/ -- расч е тная при номинальном сред ~1ем раз·
мере I дюйм; 2 - фактическая при среднем
размере 0,9974 дюйм; З - область бракован
ных деталей; 4 - область неиспользованного
допуска
Доля дефектных деталей геометрически равна сумме площадей,
расположенных за пределами верхнего и нижнего допусков, и состав
ляет 2,8 %.
С учетом нормальной вариации фактического среднего размера
обработки, обусловленной изнашиванием инструмента и общепри
нятой заводской практикой настройки режущего инструмента на
нижний допуск (это позволяет выпускать детали все больших раз
меров по мере и~нашивания инструмента), можно ожидать, что раз
брос среднего арифметического для станка составит + а. Если не
контролировать средний размер обработки, то размер деталей может
колебаться от 0,9896 дюйм (25, 135 мм) до 1,0104 дюйм (25, 664 мм),
несмотря на то что станок позволяет обрабатывать линейный размер
с допуском+ 0,0078 дюйм (О, 198 мм) .
Гистограмма на рис. 4.2 не скошена, не имеет двух вершин.
С помощью микроЭВМ инженер может быстро проанализировать
точность оборудования , используя несложную программу, решаю
щую большинство задач анализа. Ранее приведенная формула для
расчета стандартного отклонения была получена из формулы
a = VL(,~-x)2_
Преобразования позволили упростить расчеты, производимые
вручную . Для облегчения программирования основную формулу
также следует преобразовать .
•
В программе STDEV (см. распечатку 4.2) используется преобра
зованная формула расчета стандартного отклонения, Гистограмма,
приведенная на распечатке, имеет нормальную форму .
4.3. ПРОГРАММА STDEV
Программа занимает 1904 байт оперативной памяти. Время, за
траченное на написание программы, составило около 1 ч. Это обыч
ная программа, и нет необходимости комментировать ее построчно.
Замечания будут касаться программы в целом. Инженеру -техноло
гу необязательно самому разбираться в математических тонкостях
и писать такую программу. Если технолог понимает принципы нор
мального распределения и их применение для анализа технологиче-
74
1 REM PROGRAM NAME STOEV
2 REH WRITTEN ВУ J.[ .Nil:.{S
3 REM COMPUTER APP L ICATIONS FOR ТНЕ MANUFACTURING ENGINEER
•
REM COPYRIGHT 1981 ALL RIGHTS RESE.RVEO
10 DIHX<2S>,F<25>,N<25>
15 CLS
20 F·RINT"TIO.S PROGRAM CALCULATES STI\NDARD DEVIAПON"
30 PRINT"FOR MACHINE CAPAE:IL . IТY SТIJOIES"
•о Pf.:INT " ANO Wll ..L. АССЕРТ llP ТО 2.5 ENTIOES"
50 PIONT"ENTER ТНЕ DATI\ Ast\EO FOR Е:У ТНЕ COMPLIТER"
60 PRINT
70 r·RINT
71 PR I NT"ТYPE IN ТНЕ MACHINE NAME."
72 INF·u1·А•
7З PRINT"ТYPE IN ТНЕ MACHINE NUME:ER"
7• INF' LJП: S
7~,
F' RINT"TYPE IN ТНЕ МАХ ANO MIN SF·EC , , SEPARATE [:У А СОНМА"
76 INf'UTSl,52
77 !NF' llТ"ТYPf IN ТНЕ UNIТ or· MEASURE" ;IJ
78 CLS
80 Pf<INT"INPUT ТНЕ TOTAL NUME:ER OF LINE ENTRIES"
90 PRINT"EACH LINE ENTl<Y 15 11АОЕ UF ' OF А FREIJLIENCY OF Х"
100 PRINT " AND ТНЕ VA L.UE OF Х"
105 PRINT"START. WПН ТНЕ SMALLEST · ENТl<Y f'IRST "
11 О INF· LJТ"TOTAL. LINE ENTRIES"; N
120 FORI=lTON
130 INF'LIТ"ENTER Х, THEN ТНЕ FREIJUENCY, F, SEF'Al<AТI': Е: У А COMMA";X<I>,F(I)
1•0 REM Xl =SUM Х
150 REM X2=SUM Х SQR
160 REM Fl•SUM 1'
170 Xl=Xl+X(I)
180 X2 = X2+XCI>L2• F <I)
190 Fl=Fl+F<I>:X3=X3+(X<I>•F<I>>
200 NЕХП
210 REM S=STD DEV
22О S=SQR((Х2-(<(ХЗ/F1>[2)•F1))/F1>
2•0 .XE:=X3/F1
211 t. PRINTC HF:S ( 27) ;CHRS ( 11); "HACHINE CAPAE:ILIТY STUDY "
212 LPRINTCHR$(138)
2•3 l . PF:INT " MACHINE NAME ";As
2•• LPRINT"MACHINf NUME:ER
" ;i::s
215 l.F 'RINTCHRS·( 138)
2•6 LPRINTCHRS<138>
250 t.F'RINПAE: ( ~;); "IТЕМ"; Т АЕ: ( 1 U); "FREIJ"; Ti\E: ( 15); " MEASUREMENT"; ТАЕ: ( 30) ; "BAR CHAF:T"
260 LPRINTCHRS(138)
265 SЗ=Sl+tJ
270 FORI•ITON
275 IFS2:X(I)THEN276ELSE277
276 LPRINT"
-
----
-
- - - - - SPEC - -- - ------- ";S2:GOT0277
277 IFX(I) = S3THEN279ELSE280
279 LPRINT "
- -- - - - - -- - -SPEC- - ----- --- -";S1:GOT0280
280 LPRINTTAB(5);I;TAB<10);F<I>;TAB<18);X<I>;
290 FOF:A = lTOF<I>
300 LPRINТТAE:(30);"X";
310 NEXTA
320 t.PF:INT""
330 NEXTI
3•о LPF:INTCHF:S(138):LPRINTCHRS(138)
350 LPF:INT"THE AVERAGE IS";xв;"AND ТНЕ STANDARD OEVIAТIDN IS";s
390 SA=<S1+52)/2
•оо Rl=S•3:C=S•6
11 О LPRINT, "LOW", "AVERA
0
GE " , "HIGH"
"tZO LF'RINT"SF'EC",S2,SA,S1
•3о LPF:INT'"'
"О LPRINT"ACTUAL",XB -Rl,XB ,XB+Rl
75
'150 LF'RINT " "
•60 IFC)SI-S2THEN470ELSE480
470 LPRINT"THE MACHINE IS NOT CAPAE:LE": 1; □ ТО51 U
•оо l_f· ·RINT"THE MACНINE IS CAF'AE:LE" :G □ T0510
•90 LPRINT"THE MACHINE IS NOT CAPAE:LE":GOT0510
500 l_f ·RINT"THE MACНINE IS CAPAE:LE"
510 l_PRINT"THE MACHINE IS CAPAE:LE OF";C;"WНICH IS 6 SIGMA"
520 ENO
Распечатка 4 .1.
MACHINE CAPABILITY STUDY
MACHINE NAME LE BLOND N/C LATHE
MACHINE NUMBER 12345
IТЕМ FREQ MEASUf<EHENT
E:Af< CHART
1
3
. 995
ххх
- - -- --- --- -SPEC-----------
.996
2
6
. 996
хххххх
3
10
. 997
хххххххххх
4
14
.998
хххххххххххххх
5
16
. 999
хххххххххххххххх
6
20
1
хххххххххххххххххххх
7
18·
1,001
хххххххххххххххххх
8
15
1,002
ххххххххххххххх
9
10
1,003
хххххххххх
106
1.004
хххххх
-- -- -- -- -- -SPEC----------- 1 . 004
111
1,005
Х
ТНЕ AVERAGE IS ,99995 AND ТНЕ STANOARO DEVIATION IS 2,23624Е-03
LOW
AVERAGE
HIGH
SPEC
. 996
1
1.00~
ACTUAL
, 993241
,99995
1,00666
ТНЕ MACHINE IS NDT CAPABLE
ТНЕ MACHINE IS CAPABLE OF ,0134175 WHICH IS 6,SIGHA
Распечатка 4-2 .
ских возможностей оборудования, он может использовать готовую
программу (распечатки 4.1, 4.2). Это позволяет поручить системати
ческое проведение анализа точности оборудования специалистам с
меньшей квалификацией. В техническом отделе должны храниться
исходные данные на все технологические процессы.
Комментарии к программе.
Строка 10: DIMX(20), F(25), N (25)
В этой строке оператором DIM задаются размерности массивов;
Х - массив значений размеров обработки, F - массив значений
частоты интервалов. Если в программе размерность массива не ука
зывается явно с помощью оператора DIM, то под массив отводится по
умолчанию 10 последовательных ячеек памяти.
Строка 130: INPUT «ENTER Х THEN» ТНЕ FREQUENCY, Е,
SEPARATE ВУ А СОММА; Х (1), F (I)
76
Анализ точности станка
Наименование станка: токарный станок с ЧПУ
Номер станка 12 345
Номер
Частота
Измерение
Гистограмма
интервала
3
0,995
ххх
Граница
0,996 хххххх
0,996
2
6
3
10
0,997 хххххххххх
4
14
0,998 ххххххххххххх
5
16
хххххххххххххххх
0,999
6
20
1
хххххххххххххххххххх
1
18
1,001 хххххххххххххххххх
8
15
1,002 ххххххххххххххх
9
10
1,003 хххххххххх
10
6
1,004 хххххх
11
1
Граница
1,005 х
1,004
Средний размер 0,99995 Стандартное отклонение 2,23624Е -ОЗ
Нижняя
Средняя
Верхняя
Границы
0,996
1
Размер
0,993241
0,99995
1,004
1 ,00666
Станок не обеспечивает заданной точности
Станок обеспечивает допуск 0,0134175, что составляет 6 сигма
В этой строке Х (I) и F (I) - индексированные переменные .
Они включены в цикл FOR - NEXT с параметром I. Применение
переменных с индексами позволяет сохранить их значения в памяти
ЭВМ. Например, при первом выполнении цикла ЭВМ поместит пер
вое значение переменной Х (0,995 дюйм) в ячейку памяти с адресом
Х (1), при втором выполнении - второе значение переменной Х
(0,996 дюйм) в следующую ячейку памяти с адресом Х (2) и т. д.
В дальнейшем программа извлечет необходимые значения из памяти,
называя адреса ячеек: Х (1), Х (2) и т . д.
Строка170:Xl=Xl+Х(I)
Строка180:Х2=Х2+Х(I)[2*F(I)
Строка190:Fl=Fl+F(I):ХЗ=ХЗ+(Х(I)*F(!))
Среднее арифметическое совокупности наблюдений х в програм
ме определяется после введения всех исходных данных. Поэтому в
строках 170-190 выполняются следующие действия:
строка 170: нарастающим итогом подсчитывается сумма значе
ний Х;
строка 180: нарастающим итогом подсчитывается сумма произ
ведений квадратов значений Х на соответствую
щую частоту;
строка-190 : накапливаются сумма частот и сумма произведений
значений Х на соответствующую частоту;
строка 220: S = SQR ((Х23 - (((XЗ/Fl) [2) * Fl))/Fl)
В этой строке рассчитывается стандартное отклонение. Преобра
зованная формула для расчета стандартного отклонения имеет вид:
77
Оператор в строке 250 начинает печать гистограммы .
В строках 275 и 277 осуществляется проверка условий для после
дующего вывода на печать нижнего и верхнего отклонений допуска.
Печать контрольных границ выполняется операторами в строках
276 и 279. Чтобы напечатать исходные данные (цикл с параметром 1)
и последовательность символов х (цикл с параметром А), исполь
зуется вложенный цикл.
Проrрамма анализа точности оборудования позволяет не только
проводить расчеты, но и отображать информацию в графическом
виде.
Несколько лет назад одна из автомобильных компаний разрабо
тала упрощенный метод анализа точности оборудования. В основе
его лежала непрерывная выборка из 64 деталей, изготовленных на
данном станке, которая разделялась на группы по 8, 16 и 32 детали.
Применяя этот метод, инженер мог быстро провести анализ и отве
тить на вопрос: можно ли на станке обрабатывать данную деталь или
нельзя. Однако . этот метод, разработанный до появления микро
ЭВМ, имел много недостатков .
Исследования точности каждого станка необходимо проводить не
реже одного раза в год . Результат такого анализа представляет боль
шой интерес для специалистов, занятых разработкой технологиче
ских процессов и : ремонтом оборудования. Решение только этой за
дачи уже оправдало бы затраты на покупку микроЭВМ. Ясное пред
ставление о точности каждого станка становится важным условием
снижения брака, обеспечения высокого качества готовых изделий,
снижения себестоимости.
Проверку качества продукции в цехах заводов-изготовителей це
лесообразно дополнить оперативным анализом технологических воз
можностей оборудования на микроЭВМ.
Упражнение 4.1 (наименее трудное). Написать программу с использова
нием распределения Пуассона. Формула имеет вид:
'С
1
Р(с)= μ е-μ
,
с!
'
гдеμ' = Np'; N - объем выборки; р'
-
доля бракованных деталей, % ; с -
число событий.
•
Упражнение 4.2 (трудное) . Внести изменения в программу STDEV, вклю
чив в нее расчет доли бракованных деталей. Площади под кривой, выражаю
щие вероятность появления бракованных деталей, рассчитывают по формуле
у = 1 ' е-(х-μ)'/(2о'),
аV2л
где μ - среднее значение генеральной совокупности; а
-
стандартное откло·
иение генеральной совокупности.
78
Глава 5
ЭКОНОМИЧЕСКОЕ ОБОСНОВАНИЕ
ПРИОБРЕТЕНИЯ ОБОРУДОВАНИЯ
Инженер-технолог обязан знать принципы обоснованного выбо
ра оборудования. Производительность труда в США застыла на мес
те, в то время как инфляция неудержимо растет. Одним из основных
путей решения этой проблемы является внедрение нового современ-
ного оборудования.
,
Большинство инженеров-технологов чувствует себя неуверен
но при общении с финансистами . Мир финансового работника полон
цифр . Он оперирует такими понятиями, как прибыль, убытки,
амортизационные отчисления, налоговые льготы, капиталовложе
ния, в то время как инженер связан с механическими устройствами,
электронными схемами, рационализаторскими предложениями по
снижению себестоимости изделия . По этим причинам (и по другим)
в этой главе рассмотрены формулы оценки денежных средств; амор
тизация; распространенные методы анализа экономической эффек
тивности капитальных вложений; сметы затрат на оборудование .
Цель этой главы - показать инженеру-технологу, что, исполь
зуя микроЭВМ и зная основы экономики, он м9жет с большей уве
ренностью добиваться выделения денежных ресурсов, необходимых
для обеспечения роста производительности труда.
•
Программа MONEY призвана познакомить инженера-технолога
с несложными формулами для оценки денежных средств, которые
применяются при расчете первоначальной стоимости, суммы денег в
будущем, предполагаемой ставки банковского процента . Возможно,
инженеру-технологу и не потребуется проводить такие расчеты в сво
ей практической деятельности, но ему полезно ознакомиться с этой
программой в учебных целях.
5.1. ПРОГРАММА MONEY
Эта программа занимает 3481 байт памяти (распечатка 5.1).
Комментарии к программе. На примере этой программы хорошо
видно , как легко программировать, используя язык Бэйсик. Мате
матические операции занимают в тексте программы шесть строк . Ос
тальная часть программы состоит из операторов, содержащи х инст
рукции пользователю, и операторов LPR INT.
79
Ценность предполагаемых капиталовложений
Первоначальная стоимость капитала, долл., 1(} ООО ·
Процентная ставка 0,18
Число периодов в год 360
Число лет 3
Стоимость, долл., 17 158,4
Первоначальная стоимость капиталовложений
Если стоимость в будущем составит 20 ООО долл.
Процентная ставка 0,18
Число периодов в год 12
Число лет 5
Первоначальная стоимость капитала, долл . , 8185,98
Фактическая процентная ставка
Номинальная процентная ставка О, 18
Число периодов в год 360
Фактическая процентная ставка О, 197217
Номинальная процентная ставка
Первоначальная стоимость капиталовложений, долл., 20 ООО
Стоимость в будущем, долл., 25 ООО
Число периодов в год 360
Число лет 3
Номинальная процентная ставка 0,0743713
Фактическая процентная ставка 0,0772175
К распечатке 5.1 .
Программа делится на четыре модуля и позволяет рассчитать
ценность предполагаемого вложения капитала; первоначальную сто
имость капитальных вложений; фактическую процентную ставку;
•номинальную процентную ставку. Для каждого модуля приведена
<:оответствующая расчетная формула.
Под ценностью предполагаемого вложения капитала понимают
стоимость, которую через заданное число лет имели бы вместе с на-
80
1 REH PROGRAH NAHE HON EY
2 REH NRITTEN Е:У J,E ,NICKS
3 REM COMPUTER APPLICATIONS FOR ТНЕ HANUFACTURING ENGINEER
1 REH COPYRIGHT 1981 ALL RIGHTS RESERVED
10 CLS
20 PRINT"TНIS F'ROGRAM CAL.CULATES ТНЕ RELAТIONSHIF"'
30 f''RINT"OF VERПILJS ТУРЕS OF INVESTMENTS"
10 PRINT:PRINT:PRINT
50 PRINT"ТYPE IN ТНЕ MODLIL.E NUME:ER YOU NISH ТО NORK NIТH"
60 f''RINT:PRINT
70 f''RINT"FLIТURE VALUE OF AN INVESTMENT---------------1 "
80 PRINT"INIТIAL. VALUE OF AN INVESTMENT----------- - -2• ·
90 PRINT"EFFECТIVE INTEREST RATE-------------------- ---3 "
100 F'f<INT"NOMINAL _ INTEREST RATE · ------ -· --------- -
--- --1"
110 INP\JТX
120 ONXGOTOlЗ0,300,170,620
130 CLS:REM FUTURE VALUE
131 PRINT"TНIS MODULE CALCULATES ТНЕ F'UТLIRE VALUE OF AN INVESTMENT"
132 PRINT"E:Y INF'LIПING AN INIТIAL INVESTMENT, INTEREST RATE AND "
133 PRINT"YEARS ТНЕ INVESTMENT IS OUTЫANDING"
IЭ1 f'RINT:f'RINT
110 INP UT"ТYPE IN INIПAL INVESTMENT DOLLARS"; Р
150 INPLIT"ТYPE IN INTEREST RATE <AS А DECIMAL > " ; I
160 INF'UT "ТУF·Е IN NO , □ F· COMF 'OUNDING PERIODS "; N
170 INPUT"TYPE IN ND, OF YEARS";Y
180 T•P ■ (l+(I/N))[(N ■ Y)
190 t. . F'R1:NTTAE:(;to);CHRS(27);CHRS(1--Ч>;"FUTURE VALLJE"
200 LPRINTCHRS(138>
21U LPRINTTAB<IO);"FOR AN INITIAL INVESTMENT OF S ";P ;"DDLLARS "
220 L .PRINТТAE:<lO); "AT AN INTEREST RATE OF";I;"f 'Ef<CENT"
230 l.PRINТТAB (].О); "COMF'OUNDED "; N; ''F'ERIODS PER YEAR"
2'10 LF'RINTTAE: < 1 О>: "J-- □ R"; У; "YEARS"
250 LPRINПAE:< ].О>; "ТНЕ FUTURE VALUE IS S"; Т; "OOLLARS"
25~; l.f 'RINTCHR S ( 138 > : L.f'RINTCHRS < 138 >
260 F· RINT"TYPE 1 FDR MENU--- -- 2 FDR ANOTHER CALCULAТION"
270 f'RINT "OR 3 ТО ЕХIТ"
280 INPUTX
290 ONXGOTOl0,130,800
300 CLS:REM INITIAL VALUE
301 PRINT"THIS MODULE CALCULATES ТНЕ INIТIAL VALUE □ F· AN INVESTMENT "
302 PRINT"E:Y INF'UTТING ТНЕ FUTURE VALUE OF ТНЕ INVESTMENT ,INTEREST "
303 f'RINT "RATE AND YEARS OUTSTANDING FOR ТНЕ INVESTMENT "
301 f'RINT: F·RINT
31 О INF'LIТ"ТYF'E IN FUTIJRE INVESTMENT DOLLARS"; Т
320 INF'UT "TYF'E IN INTEREST RATE (AS А DECIMAL>";I
330 INF'LIТ"TYf'E IN ND, DF CDMF 'OUNDING PERIODS" ;N
3ЧО INPUT"ТYF'E IN NO, OF YEARS";Y
3~;0 Р~т/ ((1+(I/N))[(N■Y))
360 Lf'RINTTAB<20>;CHRS<27>;CHRS(11);"INITIAL VALUE "
370 LPRINTCHRS(138)
380 LPRINПAB ( 1 О>; "FOR А FUTURE INVESTMENT DF S"; Т; "DDL.LARS"
390 L.f'RINПAB ( 1 О>; "АТ AN INTEREST RATE OF"; I; "PERCENT"
ЧОО L.F'RINПAE:( 1 О); "COMF 'OUNDED"; N; "F 'ERIODS F'ER YEAR"
Ч10 L.PRINТТAB(].O);"FOR";Y; "YEARS"
120 Lf'RINПAE:( 10 >; "ТНЕ INIТIAL VALUE IS S" ;р; "DOLLARS "
125 Lf'RINT CHRS(138):LPRINTCHRS<138>
130 F·RINT "TYF 'E 1 FOR MENU -- - - --- -2 FOR ANOTHER CALCULAТION"
НО f'RINT"OR 3 ТО ENIТ"
--Ч50 INF'UTX
160 ONXGOTOlU,300,800
Ч70 CLS:REM EFFECTIVE INTEREST RATE
171 PRINT"ППS MODLIL.E CAL .CUL.ATES EFFECТIVE INTEREST RATE"
172 PRINT"EFFECТIVE INTEREST RATE IOLL VARY DEF'ENDING ON ТНЕ"
173 f'RINT "NLIME:ER OF COMf'OUNDING f'ERIODS "
171 PRINT:PRINT
180 INF'LIT"ТYPE IN NOMINAL INTEREST RATE (AS А DECIMAL>";I
q90 IN F'LIТ"TYf'E IN NO, OF COMF 'OUNDING F'ERIODS "; N
500 IFN>20THEN520ELSE510
510 E=((l+(I/N))[N>-1:GOTO530
520 E•EXf'(l)-1:GOT0530
530 Lf'RINTTAB<2Dl;CHRS(27);CHRS(lq);"EFFECTIVE INTEREST RATE "
510 LPRINTCHR$<1381
550 LF' RINТТAE: < 1 О); "FOR А NOMINAL INTEREST RATE OF''; I; "f 'ERCENT "
560 l.PRINТТAE• < 1.0 >; "AND F'OR " ;N; "COMPOUNDING PERIODS"
570 l.F'RINПAE: < 1 О); "ТНЕ EFFECТIVE INTEREST RATE IS"; Е; "PE RCENT "
575 LPRINTCHRS<138):LPRINTCHRS(138)
580 f'RINT"TYPE 1 FOR MENU -- - - - -- - - --2 FOR ANOTHER CALCULATION"
590 f'RINT"OR 3 ТО ЕХIТ"
600 INF'UTX
610 ONXGOTOl0,170,800
620 CLS:REM NOMINAL INTEREST RATE
621 f'RINT"TНIS MODULE CALCIJLATES Е:ОТН Er'FECTIVE AND NOMINAL"
81
82
t,22 PRINT"INTERE ST RATES E:ASEO UPON AN INПIA L INVESTHENT AND"
623 PRINT"THE FLJТLJRE VALUE OF ТНАТ INVESTHENT "
62~ PRINT : PRINT
630 INF· LJТ"ТYPE IN INIТIAL INVESTHENT";P
ИО INF'LJТ"ТYPE IN FUТIJRE VALUE"; Т
6~;о INF'UT"ТYPE IN NO, OF COHF 'OUNDING F'ERICIDS " ;N
660 INPUT"ТYPE IN NO, OF YEARS ";Y
67D I==(NЖ( ( Т /F') [ ( 1/<N»:Y))) )-N
680 E=<IT/Pl[ll/Yll-1
690 L.PRINТТABl20l;CHR$1 271;C HR $ 1l~l;"NOHINAL_ INTEREST RATE"
700 LPRINTCHRSllЗBI
710 LYRINПAE:(1.111 ;"FCJR AN INIТIAL INVESTHENT OF S " ;P;"DOLL.ARS"
720 L.PRINПAE:< J 111 ; "ЮТН А r· uтtJRE VALUE OF' $ "; Т; "DDL.LAR S "
730 L.f'RJ.NПAE: <1111; "AND ЮТН"; N; "COHPDUNDING PERIODS FOR "; У ;- "YE ARS"
7~0 l.PRINПAE:< 101; "ТНЕ NOHINAL INTEREST RAT E IS"; I; "PERCENT"
7:;о LYRINПAE:< 101; "AND ТНЕ EFFECПVE INTEREST RATE IS" ;Е; "PERCENT "
755 LPRINTCHRSl13B>:LPRINTCHR$1138)
760 РЮNТ"ТУРЕ 1 ГОR HENU ---------z FOR ANOTHER CAL.CUI.AПCIN"
77 О PRINT" OR 3 ТО ENIТ"
780 INf'UTX
790 ONXGOTOl0,620,800
ВОО END
F' lJT lJ Jc;: Е VAl.... l.JE
F()R AN TNl :TIAL. INVES l "HENT OF S 10000 DOLL.ARS
АТ AN INTEREST RATE OF , 18 PERCENl
COHPOUNDED 360 PERIODS PER YEAR
F~OR 3 УЕАRБ
THF.: FlJHJГ.:E VAL ш: IS $ 1 71~18.1+ [Юl " l . ARS
IN:I:TIAI__ VAL. . . ~JE
П)R А ПJHJRE JNVEЭТHE.NT Of' $ 20000 DOLLAR~;
АТ AN TNlt~RfSI - RAlE OF
,1EI F'ERC:ENT
COMPOUNDED 12 PERIПDS PER YEAR
Foi;: 5 Y[At..:s
ТНЕ INJ.ТIAI _ VAl"UE IS $ 811'~,. 98 [Юl. L ARS
EFFECTIVE TNTEREST RATE
F(IR А NOM INAL INTE:REST КАТЕ Of ,1!3 PEkCfNl
AND ГUR 36() COHF'otJNDil,u r·CF\.iГJO~I
тш · ЕТПСПVЕ INTEREST RAT[ IS . 197217 f 'Er,Cl' NT
NOMINAL INTEREST RАГЕ
FUR AN INITIAL INVESTMENT OF $ ~0000 DULLARS
WITtt А FLIГIJRE VAL _LJE OF $ 25000 DOLLARS
AND w:rTti 360 c:c1нr · (]UNDING PERI(IDS F:O R Э YEARS
тт ~ NOMINAL INTEREST RATE 1S .0 7131 1 3 P[RCENT
AND тне : EFFEC " ГIVE INГE~REST RAT[ TS ,0772175 PERL:ENГ
Распечатка 5.1 .
числен ным сложными процентами Х долл . , положенные в банк на
i%:
т=РО+i!N)NY,
где Т - сумма денег в будущем; Р
-
первоначальная стоимость ка
питальных вложений; i - процентная ставка; N - время, за кото
рое начисляются сложные проценты; У - число лет .
МикроЭВМ TRS-80 дает правильный результат при расчете
по этой формуле суммы денег в будущем, если N ~ 20. В против
ном случае необходимо использовать натуральные логарифмы, но
при этом появляется незначительная погрешность. При расчете фак
тической процентной ставки результат получается одинаковым при
использовании сложных процентов или натуральных логарифмов .
Для определения первоначальной стоимости капитальных вложе
ний потребуется преобразовать формулу к. виду, который позволит
ответить на вопрос, сколько денег надо инвестировать, чтобы достичь
заданной ценности предполагаемого вложения капитала:
Р=Т(1+i/N)•-NY=Т/(1+i/N)NY_
Если ЭВМ не позволяет использовать отрицательные показате
ли степени, следует применять формулу с положительным показа
телем .
Фактическая процентная ставка представляет собой ставку, на
которую помещается в банк капитал, с тем чтобы его первоначаль
ная стоимость возросла в будущем до определенной суммы:
Е=(1+i/N)N- 1,
где Е - фактическая процентная ставка.
Инженеру полезно знать, с какого момента ЭВМ начинает дейст
вовать по «умолчанию» . В этом ему окажет помощь небольшая
программа:
10FORN=1ТО100
20Е"-= ((1+(0,06/N))[N)- l
30 LPRINT N, Е
40 NEXTN
Номинальную процентную ставку можно определить, преобразо
вав формулу для фактической 11роuентной ставки :
1
i--N(Т/Р)"tГТ ·-
N.
Выше приведены рез ультаты работы программы MON ЕУ . Цен
ность этой программы за1< л ючается в том , что она rю:~оолн ет сн1 е ра
п1вно провести расчеты , связанные с обоснованием з аЯВl(Н н а фннан
сирование. Это дает возможность инженеру быстр о оцен1п 1, ра зл ич
ные варианты 1<апнтащ,ных затрат . Няпрн мер , нз перuой рас11tчат1ш
результатов работы этой програ ммы видно, что 1~е111юсть 1!ре)l1юл;:1 •
83
гаемого сейчас вложения 10000 долл. через три года должна соста
вить 17 ООО долл., чтобы конкурировать с существующими ставками
банковского процента. Эта программа приведена скорее с целью обу
чения, чем для использования в повседневной практике. Поработав
с программой небольшое время, инженер начинает понимать дейст
вительную ценность денег при различных вариантах капиталовло
жений.
5.2 . РАСЧЕТ АМОРТИЗАЦИОННЫХ ОТЧИСЛЕНИЙ
Правительство разрешает промышленным предприятиям обесце
нивать оборудование по мере истечения срока его службы . Хотя
расчетом амортизационных отчислений оборудования всегда занима
ется бухгалтерия, инженеру -технологу иногда приходится составлять
амортизационный регламент для обоснования выбора оборудования.
И если бухгалтерия не передает таких сведений в технический от
дел, инженер - технолог рассчитывает их самостоятельно. Кроме то
го, учет влияния амортизационных отчислений на окупаемость за
трат, на оборудование, особенно в первые годы его службы, позво
ляет инженеру, проводящему анализ, уяснить, как изменяется до
ход на вложенный капитал при различных схемах амортизационных
отчислений. Хотя правительство может разрешить любую разумную
схему амортизационных отчислений, на практике обычно исполь
зуют три метода расчета.
Самый простой - это метод равномерных амортизационных от
числений. Широко применяются и два других метода: суммы чисел
и уменьшающегося балансового остатка, позволяющие списывать
основной капитал ускоренными темпами в начале амортизационного
периода. В обычной бухгалтерской практике амортизационные от
числения рассматриваются как элемент затрат. В этом случае объем
валовой прибыли уменьшается на величину амортизационных отчис
лений и предприятие выплачивает меньшую сумму налога, так как
амортизационные отчисления вычитаются из прибыли до расчета на
лагав . . Затраты на капиталовложения могут окупиться быстрее,
если амортизационные отчисления (затраты) «списываются» в боль
ших размерах в первые годы. В некоторых методах, используемых
для обоснования выбора оборудования, учтено это обстоятельство.
Решение о выборе того или иного метода расчета амортизацион
ных отчислений принимают финансовые службы, а не работники тех
нического отдела , однако важно, чтобы инженер-технолог знал эти
методы и их влияние на результаты экономического обоснования.
Инженер-технолог устанавливает срок службы оборудования .
Этот параметр влияет на норму амортизационных отчислений.
В настоящее время правительство предоставляет налоговую скид
ку , чтобы ускорить окупаемость капитальных вложений . В послед
ние годы налоговая льгота колебалась , но сейчас достигает 10 %.
Таки м образом , до 10 % стоимости основных фондов может быть спи-
84
сано дополнительно к ставке амортизационных отчислений, рассчи
танной на данный год.
Ниже приведены примеры расчетов амортизационных отчисле
ний различными методами.
Метод равномерных амортизационных отчислений. В этом при
мере использованы три показателя. Пусть срок службы нового стан
ка Т = 5 лет, а его стоимость 1100 долл. Остаточная стоимость
100 долл. Суммарные амортизационные отчисления за год могут быть
подсчитаны по следующей формуле:
L= А-В
т'
где А - первоначальная стоимость станка; В
-
остаточная стои
мость станка;
"(
о
'--
1
2
3
4
5
1; = 1100- 100 = 200 долл.
5
Результаты расчета приведены в табл. 5.1.
5.1 . Расчет равномерных
амортизационных
отчислений, долл.
5.2. Расчет амортизационных отчислений
по методу суммы чисел, долл.
-
Стои -
Амортиза- Спшмость
масть на
начало
nионные
на конец
от числения
года
ГС>Да
Стоимость Значение Амортиза- Стоимость
на начало
дроби
ционн:ые
на конец
"(
о
года
отчис.11ен11я
года
'--
1 1100
5/ 15 333 ,33 766,67
1100
200
900
2 766,67 4/15 266,67 500,00
900
200
700
3 500,00 3/ 15 200 ,00 300,00
700
200
500
4 300,00
2/ 15
133,33 166,67
500
200
300
5 166,67
1/ 15
66,67 99,99
300
200
100
Метод «суммы чисел». При расчетах этим методом применяются
те же самые показатели, которые и используются для расчета по ме
тоду равномерных амортизационных отчислений. Ставки амортиза
ционных отчислений дифференцированы по годам и уменьшаются с
каждым годом. Расчеты по этому методу проводят в следующей по
следовательности.
1. Рассчитывают сумму чисел в зависимости от срока амортиза
ции:
п=1+2+3+4+5=15.
2. Рассчитывают суммарные амортизационные отсчнсления за
первый год по формуле
L=(А -В)Tln,
~ се.с, (1100- 100)5/ ]5 = 333 ,33 ДОЛЛ .
85
5.3. Расчет амортизационных отчислений
по методу уменьшающегося
балансового остатка, долл.
!
2
3
4
5
Стоимость
на начало
года
1100,00
660,00
396.00
237,00
142,56
440,00
660,00
264.00
396,00
158,40
237,00
95,04
142,56
57,02
85,54
Стоимость на конец
первого года составляет
766,67 ДОЛЛ. (табл. 5.2).
3. Для расчета суммар
ных амортизационных от
числений за второй год
используют ту же формулу:
L = (1100-100) 4/15 =
= 266,67 ДОЛЛ.
4. Проводят расчеты
для оставшегося срока
амортизации, подставляя в формулу дроби соответственно 3/15,
2/ 15, 1/15. Результаты расчета приведены в табл . 5.2 . Из табл .5.2.
<;ледует, что в первые годы амортизация идет ускоренными темпами.
Метод уменьшающегося балансового остатка. Для этого метода
расчета амортизационных отчислений необходимо задать коэффи
циент амортизации КА. Примем первоначально КА = 2. Учитывая,
2
что срок амортизации 5 лет, получим КА = 5
=
0,4. Суммарные
амортизационные отчисления за первый год рассчитывают по форму
ле
L=A-KA,
L = 1100-0,4 = 440 долл.
Необходимо рассчитать стоимость станка на начало второго года
D=A-1:.
Для рассматриваемого примера стоимость на начало второго года
составляет 660 долл. Снижение стоимости на начало каждого года
показано в табл. 5.3 . Расчеты суммарных амортизационных отчисле
ний за год для последующих лет проводятся по формуле
L = D-KA.
Остаточная стоимость равна стоимости на конец срока амортиза
ции (в примере 85,54 долл. при сроке амортизации 5 лет). Налоговое
управление разрешает рассчитывать сумму амортизационных отчис
лений с учетом не только стоимости основных производственных
фондов, но и других элементов затрат. К ним относятся затраты на
доставку и монтаж оборудования, оснащение инструментом, проект
но-конструкторские работы. Предприятие может отнести элемент
затрат к затратам на производственную деятельность или к основ
ным производственным фондам и амортизировать. Цель, конечно, в
том, чтобы «списать» элемент затрат как можно скорее . Однако су
ществует ряд ограничений, которые следует учитывать. Времен
ная оснастка инструментами и приспособлениями, например, никог
да не заносится на баланс предприятия, потому что она временная .
Постоянная оснастка в зависимости от сро1<а службы может рассмат-
86
риваться как самостоятельный элемент основных производственных
фондов . Другим ограничением является минимальная стоимость .
Если элемент расходов не превышает 200 долл ., он может быть от
несен к затратам на производственную деятельность. Никто не ста
нет заносить его на б аланс предприятия в связи с большой трудоем
костью учета. Многие фирмы устанавливают минимальный размер
стоимости элемента, который может быть отнесен к основным фон
дам, при условии, что удовлетворяются другие требования.
Следует упомянуть еще об одном условии . Возможна встречная
продажа старого оборудования в счет частичной оплаты нового.
В бухгалтерском учете существует термин «основа учета». Основой
учета для нового оборудования являются затраченные на его при
обретение наличные деньги . При встречной продаже стоимость ново
го оборудования уменьшается и корректируется наqальная стои
мость на первый год срока службы оборудования. Безусловно , это
умен1-,шение должно увя зываться с балансовой стоимостью старого
оборудования по бухгалтерским книгам, если таковые еще сущест
вуют .
5.3. ПРОГРАММА DEP
Программа за1:1имает 36()5 бай т памяти (распечатка 5.2) . Она по
зволяет рассчитывать амортизаuионные отчисления любым из трех
рассмотренных методов . Пользователь может получить распечатку с
резуль татами расчетов по одному или по всем трем методам, что дает
воз можность провести быстрое сравнение при оценке предложений .
Амортизационный регламент
Капитальные, вложения , долл . , 50 ООО
Доставка , долл. , 1ООО
Затраты на монтаж , долл., 3000
Прочие затраты (проектно-конструюорские работы)
Затраты на ттро е ктно-1,онсгрукторскне работы, долл., 5000
Обшие затраты, долл., 65 ООО
Срок службы обору давания, 8 лет
Метод равномерных амортизационных отчислений
Предполагае м ая закупк а
Станок с ЧПУ
Год
Начальна я
Амортвзационнh1 е
Остаточная
стоимость
ОТЧИСЛСIIIIЯ
стоимость
1
65 ООО
7250
57 750
2
57 750
7250
50 500
8
14 250
7250
7000
К распечатке 5.2.
87
88
1 REH PROGRAH NAHE DEP
2 REM WRITTEN ВУ ~.E , NICKS
3 REH COHPUTER APPLICATIONS FOR ТНЕ MANUFACTURING ENGINEER
q REH COPYRIGHT 1981 ALL RIGHTS RESERVED
10 CL.S : CL.EARlt!O
20 f'·RINT"ППS f' ·R OGR A M
CALCLJI_ATES OEF·RECIAТION SCHEOULES"
ЭО PRINT"FOR THREE DIFFERENT ТУРЕь OF ° [>EPRECIATION"
qo PRINT"ТYPE IN JHE HODULE NUHE:ER YOU WISH ТО WORH WIТH"
50 PRINT:PRIIO
60 PRINT"STRAI(;нт t . INE DEF 'RECIATION- --- --- --- --1 "
7 0 PRINT"DOlJE:LE DECLINING E•ALANCE--- ---- --- - - - -2 "
80 PRINT"SUH OF YEAR DIGIТS-·---·· --- - --- - - ------ 3"
90 INF· uтx
100 CLS:ONXGOT(lll0,360 , 560
110 REM STRAIGHT LINE DEPRECIATION
120 GOSU~1000:GOSUB1500:GOSUB2520
130 LPRINTCHRSl271;CHRS (lqJ;"STRAIGHT LINE DEPRECIATION"
131 GOSUE:201 О : c;osuE:2520
190 T2= .(T-S>
200 HIRI=lTON
230 D=(T--5)/N
210 D2°.c : D2+0
250 E=T- -D2
260 LPRINTI,T - D1 , D ,E
270 D1=01+0
280 NEXТI
2 9 0 LPRINTCHRS l1381
300 PRINT"ТYPE 1 FOR А DOUE:l.E DECLINING B A LANCE PRIIO OUT"
310 PRINT"ТYPE 2 FOR А SUH OF DIGIТS PRINT OUT"
320 INF·LJТ"OR ТУРЕ З ТО ЕХIТ"; Х
330 ONXGOTO371,571 , 350
350 END
360 REM DDE:
370 GOSUE:lOOO:GOSUE:1500:GOSUE:2520
371 LPRINTCHRS 1271 CHR S ( 1q 1 ; "[IOUE:LE DECLINING E:ALANCE"
372 GOSUE :2010:GOSUB2520
Э80 INF · UT"ТYPE IN ТНЕ DOllBL.E DECLINING E:ALANCE FACПJR IUP ТО 21";Н
390 F=F·11N:E = TЭ
qoo FORJ=l Т(JN
130 O=E:t:F
1.qo 02:=оzн>
q~;o lc"'fЗ ·· D2
160 L . PRINTI,TЗ-D1,D,E
q 7 0 [)1•[)1+[)
qво NЕХП
qв1 LPRINTCHRS l1381
qвz l . PRINT"THE DDE: FACTOR IJSED IS" ; П
q90 LPRINTCHRSl1381
500 PRINT"ТYPE lПJR А STRAIGHT LINE PRINT OllТ"
~; 1 О PRINT" ТУРЕ 2 FOR А SlJM OF DIGIТS PRINT UIJТ"
570 lNPUT''OR ТУРЕ ЗТО EXIT'';X
530 ONXGOTOlЗ0,571,550
~i ~iO FND
560 REM SUH OF DIGITS
570 GO~U81000:GOSU81500 : G □ SUB2520
571 LF'RINfCHRS(27>;CHR$(11);"StJH OF DIGITS"
572 GOSUBZ010:GOSUB2520
580 FORI•lTON:Nl=Nl+I:NEXTI
~~90
Т~~= <T4t ··· S)
600 FORI•NTO!STEP-1
630 [l=T2*(I/Nl1
6<1\0 02=02+{)
650 f: :;: T'l-· OZ
660 L.PRINT<N+l) · I,тq-01 , D , E
670 01•[11+0
nt!0 N[XlJ
6ЧП l . ~ · R1Nl'C ► ~R$(1:IB>
700 f"h" .I N l"TYf·E · 1 r: □ R А STRAIGHT LINE PR1NT Ollf"
1\11 f'f<!Nl"ТYPE 2 l ' OR А DIJU[:t.E и· ct.ININC l :AIANCE' f ·J<[NI П\11"
//0 ·1 NF·l.J'Т "T 'rTE 3 ТО EXIT"; Х
1:·10 1/NX[;() 101 ЭО, Э/ 1,750
1:JO E.NO
\11.011 [Nf'UT"TYJ' ·E
IN ТНЕ r·R □ ,JE. CT NAME";M
1001 CLS
1010 f·f .:IN1"THE NE.XT Sf-RJ[fj OF QlJESfIONS f.:f . l . Alf •• 111 (_J 'lf•ITAL f X f"L NOIЛJl:;;E.S "
1 020 f·Г-.:JNl
I0J0 J·RINT " CAF'ПA L EXFT.NSE, FREH;нr, lNSTAl. l. AПIJN AN[) TIЮLJNG"
1040 f·RlNl "ARE Al. l. JNPLJТП:. O SETAf(ATП У . "
10:='jQ ~·RTNf" "П-' THERl ARE NO огн1:r, E_Xf"EN~3ES ПТНГR THCN ТНЕ"
1060 f·1:;;TNl "" IN11IAL САР1ТА1. EXF'ENSE ГНЕ.N IYf·[ U f"Oh: ГНЕ:.;Е Ш.Jl:. SllONS"
1 ОНО TNf•LJТ"TYf""E. 1N ТНЕ" CAf·JTAl .. E "Xf "E 'N:)[ OOLI i"'IRS ": L:
tnв1 с,s
lО9О I"NF·LJТ"ТYf·F TN ТНЕ ГR[lGHT DOL.l.AГ.;;~;":С1
111JO INl'·tJТ"l Yf'•[ IN INSTALLATION COSTS" ;· с;~
!l!O I'NF'IJl"ПPE IN HIOLTNG EXf'ENSE";CЭ
11:1 0 PRTNT"ARE fH ER [ ANY OTHER CAF"ITAL. EXPENS[S"
11ЭО lNF" lJ'l "T YPI::' У Н)Г.; YE!:i OR N FOR NП";Е:$
! 1 '1⁄20 If E.: $ .0= "Y"THE. N11~:,0El. Ы-:1170
1 l~i0 1NF· tл "ТУН.: 1N ТНЕ OTHER EXF "ENSE!) NAHE" ;с•
1160 [NPLIT"THI: D01 .. L.ARS F[JI:;; тн:rs EXF'ENSE" TS " ;c.q
1170 T==C -♦- C1+C2 ·tC3+C-'t
1?20 LNF·lJТ"THE NtJHE:ER OF . Y[ARS t:JF ТНЕ ASSET l .If--E IS" ;N
1230 PГ,JNT:Pf([NT:Pf~INT"A БALVAl;E VAt. UE 1!3 LJSEO ONLY FOR SП.;АJ[;нт l.INE
"
12.qu PRINT"DETRECIATION OR
~ilJH
OF" DIGITS Е:uт NOT FOR"
1 ;!50 PRIN J""OOUE:1. Е DEct. ININC f:At ANCE ( TYF·E О :п· NCT LJSED >"
1;,,,:,, f··RINT"IJR ТУf'Е IN А SAL.VAGE VAl.UE П' LATER YOIJ WISH OTHEF! r·RINIШJl!i "
121,О I"NHIТ " TYf"T IN ТНЕ. SAL VAGE VALI.IE " ; fl
1~"'.6~.'j COSIJE:'1.~:i0 О
177 О RE" Т\.JRN
l~OU LPR INTCHRlll~B>
150::i l .PГ,:JN ГCHRS ( ;!7); CHRS ( 1 Ч); "OEPRE CIATIПN SC H EDШ.f."
1506 l. PRINl"(:HR $ (1:JB>
l~"ilO
1.. f -· RT N -l"CAPITAL. EXPENSE IS $ " ;С
1~.'i 20
,. f :•~·-:1NТ'TRE[t:;н· 1 JS $" ;с1
153() LPRJNl''lNS "fAt.. l.ATION EXPE ~NSE IS s••;c2
1:,10 l.f 'RTNT"TOIJl"IN(; EXf'ENSE I ,S S" ;сз
1~1::'i0 1:f'E:$ 0 : "N " fHENl~jf.lQEL . БEl~'i60
1:.;ьо l .PRТ.NT"IHHER [XPENSE IS ";cs
1~
.'i 70
l ..f 'RTNT "[>OL.L. ARS F"OR ";С$;" AFi:E $": C- 't
l~'i fl0
l ..~·RJ : N · rcнRS(13A)
1~. ",9 О t ..F"RINT" ТНЕ TOTAL.. [XF"ENSE IS $"; Т
1600 L.PRJNT(:HR$(1:18)
1.f,ЭО l f··R[NT"ASSE:T CIF"E 1S";N;"YEARS"
1610 LPRINTCHR$(13B>
1.l ,:: ' ,0 f~EЛ.JRN
:'О 10 l:PRINTCHRS С 138)
21120 CPRINT(:HRS(27>:c:нR t (1Ч);• 1 f'RO~ECT NAHE
'';А$
2030 LPRINTCHRSl!ЗB>
2010 l .PRINT ''YEAR ", "E:E[;INNING VALIJE", "DEPRECIAПON", "ENDINC; VAL .llE"
2050 Lf'RINTCHRSllЭB>
2060 REТIJRN
2500 RE"H ТЗ=ОDВ то·r T-'t =SOD тот
2510 TЗ=т: ·r.q = т:RE'"ГLIRN
ZSZU O=0:[>1 = 0:{)2~0:E=O:T2=0:RETURN
89
90
DEPRECIATION SCHEDULE
CAPITAL EXPENSE IS $ 50000
FREIGHT 15 $ 1000
INSTALLATION EXPENSE IS $ 3000
TOOLING EXPENSE 15 $ 6000
OTHER EXPENSE IS ENGINEERING
DOLLARS FOR ENGINEERING ARE $ 5000
ТНЕ TOTAL EXPENSE IS $ 65000
ASSET LIFE IS 8 YEARS
STRAIGHT LINE DEPRECiдTION
Pla:O,JECT NAHE
N/C LATHE
YE.AF ~
BEGINNING VALUE DEPRECIATION
ENDING VALUE
3
,,
6
7
в
65000
57750
50500
-13250
Э6000
28750
21500
1lf250
7250
7250
7250
7250
7250
7250
7250.
7250
57750
:':i050 О
- '13250
36000
28750
21500
14250
7000
DOUBLE DECLINING BALANCE
Pla:O~JECT NAHE
N/C I__ ATHE
YEAR
BEGINNING VALUE DEPRECIATION
ENDING VAl_UE
6
7
8
65000
48750
36~)6~~. 5
27"1⁄421 .9
20566 . .q
1:;424.8
11568.6
867 6. 'т5
тнr DDB FACTOR USED IS 2
16~!50
121Е17.5
9НО,63
6855.'1 7
51'т1.6
3856.2
2892. 1 ~;
21() 17.11
- '18750
36562.5
2.7421.9
20566.4
1542.11⁄2 .8
11~i68.6
8676 . 15
6507,31
N/C I__ ATHE
УЕАГ.:
BEGINNING VAL .UE [)EPREC .[A "ГION
1 NDINt; VAl ..llE
6
7
о
6500()
~;2111.1
10833,Э
Э116f.J,7
;·!3111 . 1
16666,7
11нэз.э
fl61L,11
12.BBfJ , 9
11 :~77. В
9666.6 "/
805~:i, ~. i6
(14'1'1 • . q. .q
1В:ЗЗ.3З
з"'·-,•). ,,,,,,
11.111,11
Распе•rатка 5.2.
52111 , 1
1онээ.э
. 311 1,6,7
?3111,1
161,66.7
1 lЕIЭЭ. З
8611 . 11
7000
Метод уменьшающегося балансового остатка
Предполагаемая закупка
Станок с ЧПУ
Год
Начальна и
Амuртизаднонные
Остаточная
стоим осп,
отчисления
стоимость
1
65 ООО
16 250
48 750
2
48 750
12 187,5
36 562,5
8
8676,45
2169,11
6507,34
КА=2
Метод суммы чисел
Предполагаемая закупка
Станок с ЧПУ
Год
Начальная
Амортнза1~нонныс
Остаточная
. стоимость
отчисления
стоимость
1
65 ООО
12 888 ,9
52 111, 1
2
52 111,1
11 277.8
40 833,3
8
8611,11
1611,11
7000
К распечатке 5.2 .
Комментарии к программе. Программа имеет одну интересную
особенность. Она показывает, как хорошо ЭВМ может запоминать.
При выполнении программы на экране сначала появляются инструк
ции, объясняющие пользователю, что он может сделать. Затем поль
зователь вводит показатели, которые запрашивает программа. ЭВМ
запоминает эти показатели и после выдачи на печать результатов
решения задачи по выбранному методу расчета амортизационных от
числений спрашивает пользователя, необходимо ли ему провести
расчеты двумя оставшимися методами . Если пользователь нажима
ет в ответ соответствующую клавишу, ЭВМ продолжает решение по
новым формулам, используя ранее введенные показатели.
5.4 . АНАЛИЗ ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ
КАПИТАЛЬНЫХ ВЛОЖЕНИЙ НА ОБОРУДОВАНИЕ
В любом объявлении в газете о приеме нн работу инженеров- тех
нологов указывается, что кандидат должен иметь опыт проведения
экономического обоснования предложений, связанных с приобрете
нием нового оборудования. Способы определения экономического
обоснования весьма расплывчаты . Большинство компаний применя
ют те или иные системы оценки предложений о покупке оборудова
ния. Обычно фирмы имеют в своем центральном аппарате подразде
ление, которому функционально подчинены технологические отделы
предприятий . Оно оценивает заявки предприятий на приобретение
оборудования и (или) планы капитальных затрат на оборудование
по единой методике.
Большинство инженеров-технологов имеют лишь общее представ
ление об анализе экономической эффективности капитальных вло
жений на оборудование и не проводят детальные расчеты, которые
91
остаются в ведении финансового отдела. В то же время руководите
ли технологических служб хотели бы иметь возможность анализи
ровать планы капитальных затрат задолго до их утверждения. Мик
роЭВМ дает им такую возможность. Нужна лишь некоторая
подготовка, чтобы учесть особенности отдельного предприятия или
фирмы, и должны быть затрачены усилия на программирование,
поскольку даже при использовании одинаковых методов оценки ка
питальных затрат остаются существенные различия между отдельны
ми предприятиями и фирмами.
Вот почему умение анализировать предложения к плану капи
тальных затрат становится все более важным. Такой анализ удобно
делать с помощью программы D ISCOUNT. Прежде чем рассмотреть
эту программу, необходимо установить несколько основных правил .
Хотя большинство специалистов, пишущих об оценке эффективности
капитальных затрат, не прибегают к такому приему, считаем полез
ным выделить и разобрать на примерах три уровня обоснования за
мены оборудования, что, по нашему мнению, облегчит понимание
проблемы.
Уровень 1. На этом уровне применяют самое элементарное обос
нование. Приведем пример. Инженер-технолог предлагает оснастить
существующий станок новым: автоматическим устройством для уста
новки и снятия детали. Стоимость устройства 3000 долл. Обоснование
покупки такого устройства заключается в прямой экономии трудо
вых затрат: устройство позволит одному оператору работать на двух
станках. Вероятность успех а высока . Новое устройство почти не
влияет на затраты, связанные с браком и его исправлением, эксплуа
тацией оборудования, накладными расходами, оплатой труда вспо·
могательных рабочих , содержанием управленческого персонала. Его
воздействие на потоки денежных средств и налоги пренебрежимо ма·
ло.
Чтобы убедиться в целесообразности такого предложения, нужны
минимальные доводы . Руководитель отдела оценит его примерно
так: «Если мы можем вернуть 3000 долл . менее чем через 6 мес и
предложение имеет 90 шансов на успех из 100 - давайте попробу·
ем». В этом случае анализ с помощью микроЭВМ не требуется. Не
которые фирмы включают в сметы капитальных затрат на оборудова
ние статью «прочие расходы», в пределах которой руководитель тех
нологической службы может принимать решения по своему усмот
рению. Другим примером обоснования на этом уровне может быть по
купка микроЭВМ для повышения эффективности труда инженеров .
Уровень 11. Обоснование на этом уровне требует более глубо
ких размышлений и детального анализа. Представим себе, что инже
нер готовит предложение о замене двух старых станков одним более
производительным станком с ЧПУ. Чистый эффект от изменения
других реальных элементов затрат или экономии приобретает важ
ное значение. Термин «чистый эффект» в этом примере означает чис
тую экономию или убытки. Замена оборудования может привести
к снижению затрат по прямой производственной заработной плате ,
92
но при этом возрастут расходы на инженерное обеспечение. Термин
~реальные» означает «измеренные» элементы затрат или экономии .
Например, новый станок будет обрабатывать детали быстрее, поэтому
следует ожидать сокращения объемов незавершенного производства.
Если мы не можем измерить это сокращение, то мы не имеем эконо
мии. Другой пример: если стоимость дополнительного инженерного
обеспечения составит 2000 долл/год, но оно может быть выполнено
без увеличения численности инженеров, то это не является элементом
затрат.
Для покупки нового станка с ЧПУ могут потребоваться перво
начальные капиталовложения в размере 100 ООО долл . и более. Вви
ду большой стоимости оборудования риск может быть выше, чем в
предыдущем примере, и поэтому предложение должно быть подроб
но обосновано. Рассматривая экономию на прямой производствен
ной заработной плате, инженер должен учесть все доходы и расходы,
связанные с пенсионным обеспечением, страхованием по временной
нетрудоспособности, оплатой отпусков, сменной работой. Эти при
меры показывают, насколько детальным должен быть анализ, про
водимый инженером при определении доходов и расходов наличных
денежных средств.
Чтобы определить, относится ли подобное преII.ложение о замене
оборудования к уровню II, необходимо ответить на один важный во
прос: «Изменятся ли существенным образом общие заводские на
кладные расходы (постоянные или переменные)?». Если изменятся,
то предложения следует отнести к уровню I II. Предложения уровня
11 могут потребовать очень сложных обоснований, но они не влияют
на структуру общезаводских накладных расходЬв . На многих фир
мах общезаводские расходы рассчитываются в процентах от прямой
производственной заработной платы. Накладные расходы в процен~
тах определяют на основе прогноза затрат труда основных производ
ственных рабочих и издержек производства на некоторый период в
будущем.
В типичном случае изменения могут коснуться многих статей
накладных расходов, хотя структура остается прежней. Можно сфор
мулировать следующее правило: если есть сомнения, спросите у
специалистов финансового отдела .
•
Уровень 111. Предложения о замене оборудования, подготовлен
ные на этом уровне, требуют проведения специального исследова
ния, с тем чтобы определить влияние чистой экономии на общеза
водские накладные расходы и потоки наличных денег. Предполо
жим, что на участке механической обработки на сверлильных и фре
зерных работах занято 20 основных производственных рабочих.
Предлагается закупить автоматическую линию стоимостью 2 млн.
долл., с внедрением которой численность рабочих сократится до
трех человек. Оценка подобного предложения выходит за рамки ком
петенции технического отдела и должна проводиться финансовым
отделом. Однако вклад инженера-технолога в экономическое обосно
вание предложения такого типа не менее важен, чем в предыдущем
93
примере . Никто лучше инженера-технолога не может определить
чистую экономию от снижения затрат на заработную плату основных
и вспомогательных рабочих, исправление брака. Но он не в состоя
нии определить чистую экономию , обусловленную воздействием этих
изменений на общезаводские накладные расходы.
• Оценка
предложений. Программа D ISCOUNT может оказать
помощь при оценке предложений о замене оборудования. Эта про
грамма учитывает 14 элементов затрат или экономии и использует
шесть независимых методов оценки предполагаемых капиталовло
жений в оборудование .
Можно выделить два основных преимущества при использовании
ЭВМ для анализа экономической эффективности капиталовложе
ний: быструю оценку вариантов и высвобождение рабочего времени
инженера.
По результатам работы программы видно, что одним из методов
оценки является дисконтирование денежных потоков.
Для расчетов по этому методу ЭВМ незаменима . За полминуты
она способна выполнить расчеты , на которые у инженера ушло бы
несколько часов. При этом не надо пользоваться специальными таб
лицами и интерполировать данные.
Каждая фирма, естественно, использует свои методы оценки эф
фективности капитальных вложений. Одни компании применяют
очень простые методы, другие - очень сложные. Проведенные спе
циалистами Мичиганского университета исследования показали,
что из 342 компаний, деятельность которых изучалась, большинство
использовали следующие формулы.
Срок. окупаемости/ (PBJ) :
PBJ = 'i.FCl (NSIN),
где FC - первоначальная стоимость или капиталовложения;
NS - чистая экономия за вычетом налогов; N - число лет.
По этой формуле рассчитывается число лет, в течение которого
окупаются капиталовложения . Такой подход к оценке капиталь
ных затрат - самый простой и самый огр а ниченный. Он не учиты
вает ставки процента на ссудный капитал или налоговые льготы,
обусловленные амортизационными отчислениями . Метод не заинте
ресовывает фирмы в получении быстрой отдачи на вложенный капи
тал.
Срок. ок.упаемостu 11 (РВ2):
РВ2 = 'i.FC/((NSIN) + (D /N)),
где D - амортизационные отчи <;ления.
Этот метод лучше, чем предыдущий , поскольку он учитывает фак
тор амортизации при определении доходности вложенного капитал а.
Из формулы видно , что метод не охватывает процентные ставки и не
заи нтересовывает в получении быстрой отдачи на капитал,-
94
Срок окупа,емости I II (РВЗ):
РЕЗ = '2.FCl[(NSIN) + (DIN) + (((BV - D) i)INI,
где BV - стоимость по бухгалтерским книгам на конец каждого го
да; i - норма, %.
Этот метод - лучший из трех представленных здесь методов
оценки эффективности капитальных затрат на основе срока окупае
мости. На распечатке 5.3 приведены результаты расчетов по различ
ным методам для следующих исходных данных: капиталовложения
на приобретение оборудования 65000 долл., доход от применения но
вого оборудования за первые пять лет с учетом налогов 136 310 долл.
Результаты расчета сроков окупаемости : 1 - 2 ,38 год, 11 -- 1, 75
ГОД , 111 - 1,47 ГОД.
Если компания хотела бы оценить капитальные затраты на осно
ве годовой экономии, то результат расчета по последнему методу был
бы ближе к реальной действительности, чем при расчете по первому
методу . Основной недостаток всех трех методов заключается в том,
что они не учитывают изменение стоимости денежных средств во
времени . Принимая во внимание, что инфляция составляет 12-14 %
в год, а доходность денежных рынков 14- 16 %, необходимо оце
нивать стоимость денег в будущем.
Некоторые компании предлагают использовать. в качестве крите
рия эффективности капиталовложений показатель нормы прибыли
на вложенный капитал. Следующие два метода служат этой цели.
Норма прибыли, оцененная по первоначальной стоимости :
RR=
'2. (NSIN)l(FC) .
Преобразование формулы для расчета срока· окупаемости I по
зволяет получить значение нормы прибыли на основе первоначаль
ной стоимости капитала . Формула дает значение прибыли в виде
процента от капитала . Она имеет те же недостатки, что и формула
для расчета срока окупаемости 1.
Норма прибыли, оцененная по средней балансовой стоимости:
RA = L (NS!Nl(BVIN).
Норма прибыли, оцененная по средней балансовой стоимости,
также выражается в процентах и учитывает среднюю стоимость по
бухгалтерским книгам. По результатам работы программы видно,
что норма прибыли, оцененная по первоначальной стоимости, состав
ляет 41,95 % ; норма прибыли, оцененная по средней балансовой
стоимости, равна 83,91 % .
Кое-кто может сказать, что любой метод оценки капиталовложе
ний на оборудование приемлем, если все предложения оцениваются
на его основе . Довод справедливый, но надо учесть следующие об
стоятельства. Существуют два аспекта оценки предложений о замене
оборудования: окупаемость первоначальных затрат и приоритет, по
скольку предложений всегда больше, чем возможностей финанси
рования.
95
Кроме того, спрос на ссудный капитал, как мы уже отмечали,
очень велик. В подтверждение этого сошлемся на недавнюю статью
в «Уолл Стрит Джорнал», где говорится о многомиллионной компа
нии, получающей 20 % дохода на ссудный капитал. В 1981 г. сумма
прибыли, полученная компанией, составила 100 млн. долл. Инже
неру, работающему в такой компании, очень трудно выйти с ·предло
жением о капитальных затратах на приобретение нового оборудова
ния, имеющего равный показатель эфрективности.
Оценим риск, связанный с осуществлением фирмой различных
вариантов капиталовложений.
В получении нормы прибыли, существующей на денежном рын
ке, можно не сомневаться, в то время как экономический эфрект
-от замены оборудования не столь очевиден. В таких условиях инже
нер может никогда не получить одобрения своего проекта. Причина
ми могут быть: борьба за источники финансирования; боязнь понести
убытки; эффективность капитальных вложений; недостаток налич
ных денег; предпочтение, отдаваемое капитальным затратам, обес
печивающим быструю отдачу.
Для оценки капитальных затрат лучше других подходит метод
дисконтирования денежных потоков. По этому методу ожидаемая
экономия снижается каждый год на некоторую долю и общая эко
номия приравнивается к первоначальным затратам. Затем доля
снижения сравнивается с существующей учетной ставкой. Применя
ется и другой метод обесценения денежных потоков, когда для рас
чета окупаемости капитальных затрат используется постоянный
дисконтный множитель
Дисконтированный денежный поток определяется по формуле
DCF = "'1:,NS (1 + i)-Y,
где DCF - дисконтированный денежный поток; N S .-
годовая эко-
номия; i - ставка процента; У
-
годы.
•
Например, при· капитальных вложениях 10 ООО долл. и ставке
12 % дисконтный множитель составит (1 + i)-Y = (1 + 0,12)-5 =
= 0,5674.
В примере, приведенном в табл _. 5.4 ., 400 долл., получаемые еже
годно в виде экономии, дисконтируются (т . е. уменьшаются) на 12 % .
Другими словами, если сумма экономии за 5 лет с учетом дисконти
рования на постоянную долю окажется равной или больше первона
чальных капитальных затрат, вложение считается выгодным. Мож
но определить общую экономию с учетом дисконтирования по отно
шению к суммарным капитальным вложениям и затем рассчитать
процентную ставку. В подобных расчетах ЭВМ позволяет организо
вать цикл вычислений, на каждом шаге которых происходит незна
чительное приращение или уменьшение процентной ставки до тех
пор, пока не будет достигнуто, равенство. Фирмы используют оба
метода дисконтирования денежных потоков. Некоторые компании
применяют проверку на равенство, чтобы решить вопрос о приорите
те капитальных вложений. Те варианты, для которых коэффици-
96
ент дисконтирования по
лучается
наибольшим,
должны рассматриваться
в первую очередь.
Проверка равенства
также используется при
решении вопроса о приме
нении капитала на денеж
ном рынке, если такое
применение обеспечивает
большую отдачу капиталь
ных затрат. Ряд компа
ний устанавливают неко
Год
1
2
3
4
5
5.4 . Дисконтированные денежные
средства, долл.
Коэффициент Экономия
Ежегодная
с учетом
экономия дисконтиро-
дисконтиро -
вания
вания
4000
0,8978
3571.42
4000
0.7972
3188,76
4000
0,7118
2847,12
4000
0,6355
2542,о7
4000
0,5674
2269,70
И то го! 20000
14 419,07
торую минимальную · норму дисконтирования, на основе которой
оцениваются различные варианты капитальных вложений. Если
сумма экономии с учетом изменения стои_мости денежных доходов
во времени оказывается выше первоначальных затрат (как в рас
смотренном примере), то затраты считаются обоснованными.
Программа DISCOUNT, текст которой приведен ниже, дает воз
можность пользователю вводить значения экономии или затрат по
14 различным направлениям , рассчитывать !_IОТоки денежных
средств, образующиеся после уплаты налогов, и оценивать эфректив
ность капитальных вложений шестью описанными методами. Ре
зультаты работы программы приведены в ра<!печатке 5.5. Эта про
грамма экономит массу времени по сравнению с проведением анало
гичных расчетов вручную. Каждый год большинство компаний со
ставляют и рассматривают смету капитальных затрат на новый фи
нансовый год. Это неизбежная, но очень трудоемкая работа. Для про
ведения детальных расчетов, позволяющих выявить выгодные для
фирмы проекты, микроЭВМ просто необходима.
5.5. ПРОГРАММА DISCOU.NT
Программа занимает 10,835 байт оперативной памяти. Пользо
ватель вводит значения экономии или затрат за первые пя ть лет
срока службы оборудования. Расчеты за более длительный период
могут оказаться ненадежными. Большинство фирм произвольным
образом устанавливает максимальный период реализации капитало
вложений.
С программой очень легко работать, поскольку от пользователя
требуется только вводить данные . ЭВМ организует вывод результа
тов в табличной форме . Прежде чем выполнить эту программу на
ЭВМ, пользователь должен собрать необходимые данные из различ
ных источников.
Наибольшие трудности, вероятно, представляет получение дан
ных об элементах экономии или затрат, связанных с прямой и кос
венной производственной заработной платой. Многие фирмы упроща-
4 Зак. 2156
97
EOUIPMENT JUBTIFICATION
f'RO ,JE СТ NAHE N/C LATHE
YEARS LifE в
YEAR
ПЕН
2
з
4
CAF'ITAL EXF '
-65 000
IHRECT I.. AE:OR
20000
20000
20000
20000
FNGINEERING
-20 00
-2000
о
о
SCRAF'
2000
2000
2000
2000
FXF' TOOLING
1000
1000
1000
1000
OE:F'RECIAТION
16250
12197
9140
6855
I..INE TOTALS
·-27750
33187
32110
29855
CASH FLOW E,[FORE ·rAXES
TOTALS
NET
21000
23000
LESS ОЕ:Р
-16 250
21000
-12197
881:J
23000
-9110
13860
6930
-6855
TAXA~LE INCOHE
4750
ТАХ
2375
CASH ~LOW AFTER TAXES
NЕТ INCOME'
ТАХ CREDП
NE.' 1 ACCUH
31875
6500
11Э75
28780.5
70155.5
25210
95365.5
161/JS
21782.5
117148
5
TOTAL_
о
-65000
200 00
1000.00
о
·-4000
2000
10000
1000
5000
5111
49573
28111
95573
23000
17859
0929.5
19211,5
1Э6360
Данные расчетов по методу уменьшающегося балансового остатка взяты и з предыдушего примера.
ANAt.. YSIS
TOTI\L CAf'ITI\L COSTS ААЕ S -65000
ГOTI\L ACCUH SAVINГ;S АПЕR ГАХЕS ARE s I Э6360
РАУ ВАСК PERIOD 1
HiE. f'ROF 'USAL. WIIJ РАУ IТ SEL.F E,ACf< JN 2. Э8Э41 YF.ARS
F'AY ВАСК F'ERIOD I AVERAGES ALL YEARS SAVINGS
RATE OF RETURN ON FIRST COBTS
ППS f'f .:OF'OSAL HAS А RETlJRN OF FIRST COSTS OF
• .q 19568 PERCENT FOR ТНЕ f: IГ~ST
Yf..:S
RATE OF F<ETURN AVERAGES ALL YEARS SAVINGS
RETURN OF AVERAGE ГIRBT COSTS
TНIS НЕПЮD CONSil)ERS ТНЕ AVERAGE ЫНЖ VALLIE OF. ТНЕ INVESTMEN 1
I\NI) AOOS ТНЕ ТАХ BENEFTГ F'ART OF HI [S ТО SAVINt;S
тн:ts PF<Of·OSAL . НА5 А
• ВЗ< /!Э6 f'Ef)CENT REHIF<N IIN гшsт COSTS f ' OF< ТНЕ гп,f; Г
YR(;,
РАУ ВАСК PERIOD ~
РАУ ВАСК PERIOO 2 CONSIDEF<S ТНЕ EFFECT OF lHE OFPRECIATION
AS РАRТ oF· ТНЕ CASH FLOW AND ТНЕ F'AY E,ACI< F'I.R [(J[) 1 S l.ESS THEN F ·AY 1,дСf( F'E RIOO 1
ТНЕ F'AY ВАСК F'EF<IOD EQUALS 1,74795 YEAR$
К распечатке 5.3.
98
5.5 . Оценка планов капитальных затрат на приобретение станка с ЧП У
Метод равно-
Метод умень-
мерных
Метод
шающ е гося
Показатель
амортнза-
сумм ы
балансового
цнонных
чисел
остатк а
отчнспеннй
Срок окупаемости 1, лет
2,79
2,42
2,38
Срок окупаемости 11, лет
2,13
1,78
1,75
Срок окупаемост и 111, лет
1,64
1,47
1,47
Норма прибыли, %
35,8
41,4
41,9
Норма прибыли, оцененная по сред-
71,6
82,8
83,9
ней балансовой стоимости, %
Дисконтированный денежный поток,
24,1
34,3
37,5
%
ют эту процедуру и, вместо того чтобы определить каждый элемент
в отдельности, рассч итывают элементы затрат и ли экономии в виде
процента от основной зарплаты производственны х рабочи х . Про
грамма построена таким образом, что пользователь не обязател ьно
вводит данные каждый раз, когда программа их запрашивает . Чтобы
пояснить этот прием, рассмотрим строку 1395 :
IFDI=ОTHEN...
где D I представляет собой сумму экономии или затрат- на прямую
производственную заработную плату и вычисляется в строке 430 .
D 1 = О означает, что пользователь не ввел никакого конкретного
значения экономии или затрат по прямой оплате труда. Причина ,·
по которой это может произойти, отмечается в комментариях к разде
лу «Анализ экономической эффективности кап-итальных вложени й
н а оборудование. Уровень I». Напомним, что на этом уровне н е тре
буется каких -либо экономических обоснований. Во втором примере
с помощью этой программы решается задача обоснования приобрете
ния устройства для установки и снятия детали со станка . ЭВМ тре
буется менее I ми н , чтобы подготовить формальное обоснование .
Помимо того что программа DISCOUNT позволяет оперативно
провести расчеты, она обладает многими др угими преимуществами.
Фирмы используют различные методы расчета амортизационных от
числений. От выбранной модели амортизации зависит расчет срока
4•
РАУ ВАСК PERIOD З
тнrs МЕПЮD CONSil)ERS ТНЕ EFFECT OF DEPRECIAТION AND
еоо1 : VAl_lJE АТ INTEREST RATE .10 FOR RE - INVESTMENT OF CASH FLOW ASSETS
llSINC ТIПS MEТIIOD ТНЕ F·AY E:ACf: PERIOD IS 1.16613
_
YEARS
DIBCOUNTEO САВН FLOW
WHfN ТIП Al.. SAVTNGS ARE SET El1UAL ТО П1Е TOTAL. INVESTMENT
f:Y l)lSCOUNТING f' LIТIJRE SAVINGS Е:У SOME DISCOLJNT RATE, THEN
тнrs PROPПSAL HAS А DISCOUNT RATE OF .371999 PERCENT
1 Н [! i [)TSCOLJN Г RA ТЕ ts ТНЕ F'ERCENT REПIRN
1НЕ ORIИNAL. INVESTMENT WDULD HAVE ТО EARN
TII E(lllAl_ Н1Е SAVINGS OVER А 5 YEAR F·ERIOD ,
Распечатка 5.3 (продолжение)
99
Обоснование выбора оборудования
Предполагаемая закупка: станок с ЧПУ Срок службы 8 лет
Год
Элемент затрат
1
2
3
4
5 Всего
Капитальные вложения -65000
о
о
о
0-65000
Прямая производствен- 20000 20000 20000 20000 20000 10000
ная заработная плата
-2000 -2000
Проектно-конструктор-
о
О-
о-4000
ские работы
2000
2000
2000
2000
Исправление брака
2000 10000
Временная оснастка
\ООО
1000
\ООО
\ООО 1000 5000
Сумма годовых аморти- 16250 12 187
9140
6855 5141 49573
зационных отчислений
Итого
-27 750 33187 32140 29855 28141 95573
Денежные поступления до вычета налогов
Всего в чистом виде
21 ООО 21 ООО 23000 23000 23000
За вычетом амортизаци- -16 250 -12187 -9140 -6855
- 5141
онных отчислений
Облагаемые налогом по-
4750
8813 13 860 16 145 17 859
ступления
2375
Налог
4406,5
6930 8072,5 8929,5
Денежные поступления после вычета налогов
Чистый доход
34875 28780,5 25210 21782,5 19211,5
Налоговая скидка
6500
Чистые накопления
41375 70155,5 95365 ,5 117148 136360
Пр и меч а н и е. Данные расчетов по методу уменьшающегося балансового
остатка взяты из предыдущего примера.
-
Анализ
Общие капитальные затраты, долл., 65 ООО
Общая сумма экономии за вычетом налогов, долл ., 136 360
Срок окупаемости
Предложение окупится за 2,38341 года
Срок окупаемости 1 рассчитан .на основе усреднения годовой экономии за все
r~ы
•
Норма прибыли, оцененная по первоначальной стоимости
Это предложение предполагает получение нормы прибыли в размере 0,419568
за первые 5 лет
.
Норма прибыли рассчитана на основе усреднения годовой экономии за все
годы
Норма прибыли, оцененная по средней балансовой стоимости
По этому методу учитывается средняя стоимость фондов по бухгалтерским
книгам, полученная с этой суммы
Налоговая скидка включается в экономию
Это предложение предполагает получение нормы прибыли 0,839136 за первые
5 лет
• Срок окупаемости 2
Срок окупаемости 2 учитывает ам·ортизационные отчислени·я как часть денеж
ных поступлений.
Срок окупаемости 2 меньше, чем срок окупаемости 1, и равен 1,74795 года
100
Срок окупаемости 3
Этот метод учитывает влияние амортизационных отчислений и возможное
выделение денежных средств, равных стоимости по бухгалтерским книгам, на
рынок ссудного капитала с процентной нормой 0,18
По этому методу срок окупаемости равен 1,46643 года
Изменение стоимости денежных средств во времени
Общая сумма ожидаемой экономии приравнивается к первоначальным за
тратам, при этом экономия за каждый год снижается на некоторый коэффици-
ент дисконтирования
.
Для данного предложения коэффициент дисконтирования составляет 0,374999
Коэффициент дисконтирования равен учетной ставке, по которой доход от вы
деления на рынок ссудного капитала средств в объеме первоначальных за
трат оказался бы не ниже суммы экономии за 5 лет
ит.д.
К распечатке 5.3.
EQt)IPHENT ...JUSTIFICATION
f'fШ.JECT NANE LOAO - UNLOAO OEVICE
YEARS
YEAR
I ff.:N
2
з
1
CAl'tт AL. EXF'
-3 000
о
о
о
!HRE:CT I.AE:OR
6000
6000
6000
6000
OEHIECIATIIJN
600
600
600
600
ITNE: TOTALS
3600
6600
6600
6600
CASH FLIJW BEFORE TAXES
TOTAL.S
NE:T
6000
6000
6000
6000
1.Е:55 OE:f'
-600
-600
- 600
-600
TAXAE :L.E INCO NE
5100
5100
5100
5100
TI\X
l.700
2700
2700
2700
CASH FL.OW AFТE:R TAXE.S
NE:1' INCONE:
3900
3900
3900
3900
ТАХ CREDIT
99,99
NE:T ACCUN
3999,99 7В99,99
!HIOO
1!.)700
ANACYS:J:S
TOTAL. CAF·IТAL COSTS ARE t -3000
HITAL АССШI SAVINGS AFTE:R TAXES ARE t 19600
РАУ ВАСК PERIOD ~
тве: F'ROf'OSAL WII.. L . F·AY IТ SELF BACI( IN , 76:i307 YEARS
РАУ !::АСУ. f'E:RIOD 1 AVERAGES AL.L YEARS SAVINGS
LIFE 5
:;
о-
6000
600
6600
6000
-600
5100
2700
3900
1'}60 О
RATE OF RETURN ON FIRST COSTS
TOTAL
-зооо
30000
3000
30000
flttS F'ROF ' DSAL HAS А REHIRN Of' F:[RST COSTS Of' 1. 30667 f •ERCENT FOR ТНЕ FIRST :; YRS
RATE oF· RE:TIJli:N AVERAGES ALL YEARS SAVINGS
101
RETURN OF AVERAGE FIRBT COBTS
ППS МПНОD CONSП)Ef<S ТНЕ AVERAGE E:OOf( VAl.UE OF ТНЕ INVESТHEN Г
AND ADDS ПiЕ ТАХ E:ENEFIТ f'I\RT OF THIS ТО SAVINGS
ППS f'ROF'OSAL HAS А 2 ,61333 f'ERCENT RETURN ON FIRST COSTS FOR ТНЕ FIRST 5 YRS ,
РАУ ВАСК PERIOD Z
F'AY BACf( PERIOD 2 CONSIOERS ТНЕ EFFECT OF ТНЕ DEPRECIAТION
AS f'ART OF ПiЕ CASH f ·Low AND ПIЕ РАУ Е:АСК PER[OD IS LESS THEN f'AY Е:АСК f'ERIOO 1
ПiЕ РАУ ВАСН f•Ef.;IOD [(ШAl.S , 663717 YEARS
РАУ ВАСК PERIOD З
THIS 11ETHOf) CONSI!)ERS ТНЕ EFFECT OF DEf'RECIAТION ANO
Е:ОШ( VALl/E АТ INTEREST RATE ,5 FOR RE-INVESТMENT OF CASH FLOW ASSETS
IISING ППS НЕПЮD ТНЕ РАУ E:ACf( F'ERIOD 1s· ,5 53 50 6
YEARS
DIBCOUNTED САВН FLOW
WHEN TOTAL SAVINGS ARE SET EOUAL ТО ТНЕ TOTAl.. INVESTMENT
Е:У DISCUUNT.ING FUTURE SAVINGS Е:У SOME OISCOUNТ RATE, THEN
·rнrs F'ROF 'OSAL HAS А OISCOUNT RATE oF· 1 .25501 PERCENT
THIS DISCПutH RATE 15 ТНЕ f'ERCENT REТl/RN
ПiЕ: ORJGlNAL INVESTMENТ WOULO HAVE ТО EARN
ТО Е(ШАI. ГНЕ SAVINGS OVER А 5 YEAR F·Er<IOO
REM f'ROGRAM NAME OISCOUNТ
2 REM WRIТTEN Е:У J, Е, NICf<S
3 REM COMF'UTER AF'f'LICAТIONS FOR ТНЕ MANUFACТl/RING ENGINEER
q r,Ем COF"YRIGHT 19В1 ALL RIGHTS RESERVEO
10 CLS:CLEARi00
20 F'RINТ"THIS PROGRAM ANALYZES CAf'ITAL EOUIPMENТ INVESTMENТS"
30 PRINТ"HiE PROGRAM PROVIDES FOR ТНЕ PROPOSAL ТО Е:Е ANALYZEO"
10 PRINТ"SEVERAL WAYS, AMONG WHICH ARE: RATE OF REТURN,"
50 PRINТ"PAY E:ACf( НЕТНОО ANO OISCOIJNТED CASH FLOW,"
60 PRINТ"THE PROGRAH ALLOWS FGR ТНЕ ENТRY OF SAVINGS"
70 PRINТ"AND EXPENSES FOR ЕАСН OF ТНЕ FIRST FIVE YEARS OF ТНЕ"
80 PRINТ"PROPOSAL OR AS А SINGLE ENТRY FOR А SINGLE YEAR"
90 F'RINT"ANO ТНЕ PRINТ OUT WILL SHOW ТНЕ CASH FLOW FOR ТНЕ"
100 PRINТ"FIRST FIVE YEARS"
11 О PRIN f: INf'UT"ТYF'E IN ТНЕ f'f<OF OSAL NAME" ;А$
115 INPUT" ТУF· Е IN ТНЕ YEARS OF Llf.E"; У
120 CLS
130 PRINT"SAVINGS ARE ТУРЕО IN AS f'OSIТIVE NUME:ERS"
НО PRINТ"AND COSTS ARE ТУРЕD IN AS NEGATIVE NUMBERS"
150 f'RINT"ТYf'E IN ПiЕ NUMBER OF Тl!Е SAVINGS OR EXPENSE YOU WISH ТО ENТER"
160 PRINТ"IF А SAVINGS DR EXPENSE DOES NOT OCCUR IN А YEAR ТУРЕ О"
170 PRINT"TO INOEX ТО ТНЕ YEAR П SHOULD Е:Е ENТEREO АТ"
180 f•RINT "ALL SA.VINGS OR EXf'ENSES MUST Е:Е ON AN ANNl/AL E:ASIS"
181 ' f"RINТ"F·RE:SS ENТER ТО CONТINlJE"
Н12 INF'llТINf<EY: ONINl<EYGOTOI В6
185 REH MENU
186 CLS
190 PRINT"CAf'IТAL EXf'ENSE - -- - - -1
OIRECT LAE:OR---------2"
200 F'RINT "INOIRECT LAE:OR-------3 MATERIAL - -- -- - -- - -- - -•"
210 f'RINT "PROPERTY ТАХ---------5
INSURANCE------------6 "
2Z0 F'RINT"SALARY & HGT,
-------7
E:Nf;JNEERING-- --------В"
230 PRINT"MAINТENANCE----------9
SCRAP-------------' - -1 О"
2,0 PRINT "SHOP SUF'PLIES -- - - -·· -11
TDOLING-·--- - ---------12 "
250 PRINT"OEPRECIATION--------13 OTHER- - -- - -- - - -- - -- -11"
260 f'RINT"
ОАТА ENTRY COMF'LETE ---15"
270 INf'UTN<I>
280 ONN(l>GOT0310,390 ,~ 5 0 ,520 ,590
290 ONN(I)-5GO"Г0660,730,810,BB0,950
102
300 ONN<II-IOGOTOI020,1090 ,1160 ,1230 , 1300
310 C$•"CAPITAL EXP ":CLS
320 PRINT"TYPE IN ТНЕ CAPITAL EXPENSE FOR ЕАСН YEAR "
Э30 PRINT"RHHNDER
'
'
'
EXPENSE IS ENTEF<EO AS А NFGAТIVE NUMf;[f,: "
э.qr, FltГ,:I==l ТО5
Э50 INF·UTC <I >
31.,О C1::::C1+C(I>
370 NE ХП
Э75 c;OS\JE:30 О О
эво с;ото10~;
ЭIJO Dt, =: "Dlf~ECT l .. At:OR": CLS
'100 f'RINl. "ENTER
DIRECT LABOR SAVINGS OR EXPENSE"
" i10
fOR J=1TO5
' 1?0 INPIIТO<II
'130 111,-Dl ◄ D<I>
' 1'10 NЕХП
1q5 G010185
.
'150 L$•"INDIRECT LABDR":CLS
'160 PRINT"INDIГ<ECT LABOR SAVINGS OR EXPENSE"
470 FOf<J•lТ05
'180 JNF'UП. II >
. qr;o l_l ::Ll+C(I)
' 500 Nl:XTl
510 (;nJ(l185
520 н,~··нATERIAL . ":CLS
530 PRINT " MATERIAL SAVINGS OR EXPENSE "
~ ; 10 f' ORI-,lТCl::O
55О HIPl.11Н(I )
560 M1 =~ H1+H(I)
570 NE"Xll
~1 00 с:о ·rо1в5
~.190 f·• S="PROF 'EKTY ТАХ" :ct.S
60 О f ·R [NT"f'F,Of'EF<ТY ТАХ SAV1NGS OR EX~· E NS E '"
61 о .--окr==1 то::;
6~?0 JNF'lflf'(l )
t.зо r·1=•··1+f··<r>
6'10 NЕХП
l,~; o с; о 1010~;
660 Si.-- "JNSIJl;.ANC['' :r.1 .S
670 f··R .INT"INSLIRANCE SI\VINGS OR FXF'HISE"
t.oo f" Пk( ;0 1 то~:;
1, 9 0 JNl'' IITS!I>
700 St =:S1 +5( 1)
710 NF.XH
1?0 (;он11о~i
7:-,n
ca.~-•"SAI. $ MGT. 11 :Cl.S
7'10 F'IПNl"SAL ..ARY AND MANI\G[MENT SAVIN(;5 ()f,: l.XF'ENSE "
730 f' ORI = =1T0'5
ll,U INF'llf(;( [)
7/0 (;l"GIH;(I>
7110 NЕ'ХП
1'10 1·; ото10~;
HIO Ft • "ENGINEENINC ":CL S
1120 1··RTNТ"ENG1NEl: RIЖ; SAVINGS OR EX~·E NS E "
ВЭО f llf<laeJ П15
В10 INHIТE <I >
Е150 E1=E1+Et1)
fJ60 NEXT I
970 (; (П01Е15
ВВО F$,0 "HAINТENANCE": CL S
EJ90 f- ·R TN T"MAl NTENANCE SAV I ж;s OR EXF '[NSE"
9110 l ' Of<[•lTO:o
'11 1) TNF'LJП' ( I >
1J"20 F'1=f- l+F(1)
'IЭО . N[Xl I
103
910 GOTOHl5
950 Rt="SCRAF'": CLS
960 f'RINT "SCRAf· SAVINCS OR EXf·ENSE' "
970 FORI=1Т05
980 INf"lJHHI)
990 Rl=R!+R<I>
!ООО NfXП
1010 GOT0185
1020 WSaa"SHOP SUF'F',":CLS
1030 PRINT"SHOf' SUf'f•LIES EXF'ENSE OR SAVINl;S"
1010 r·oRI=IТ05
1050 INF'UTW(l)
1060 Wl••Wl+W<I>
1070 NEXТI
1080 СОТО185
1090 TS="EXF' TOOLING ":CLS
11 О О f'RINT"EXF 'ENSED TOOL .ING SAVINGS OR COST "
1110 FORI"1Т05
1120 INf'lfТТ(l)
IIЭO " Т!•T!+T(l)
1110 NE:XTI
1150 с;ото1в:::;
1160 ZS="DEF'RECIAТION":CLS
1170 f'RINT"NEТ DEF'RECIAТION EXPENSE"
1175 PRINT"INf 'lfT Off•RECIAТION AS А f'OSIТIVE ПGIJRE"
11!10 F"l)Rl=ITOS
1190 INf'U "fZ(l)
1200 Z1"z1+Z<I>
1210 NПTI
1~~20 (;ото10:;;
1230 CL.S:f'r.:Iн-r··oп1ER EXPENSE OR SAVlNGS "
123~; f·•RINT"L.IIПT "!НЕ NAHE HI \~; LEТТERS"
1;!10 INF'IП'"TYf'E IN ТНЕ NAHE OF ТНЕ оп1п, EXPENSE OR SAVINGS" ;os
1215 Pr-i:JNT"lNF'lП ТНЕ SAVIN(;S OR EXF"ENSE OF
"
:ot
1250 r·oF::t= 1 TOS
1;!60 JNf• lJТO<I)
IUO 01 •01 +О< I)
1280 NЕ:Х-П
12:90 с;ото1вs
1300 RE:11 SUl111ARY OF AL.L EXPENSES AND SAVINGS
1310 FORI=IТ05
1320 Xll)=C<I>+D<I>+L(1)+1111)+f'(l)+S<I)+GII>+E<I)+F(l)+R<Il+WIIl+T(ll•Z<I>•O<II
1325 Xl<I>•X<I>-C<I>
!ЗЗО XZ••XZ+X(l)
1310 т:хп
1350 l .f'RINTCHRSl27> ;CHRS< 11); "EGUIF'l1ENT JLISТil"ICATION"
1360 L.f·RINTCHRSI 1:18)
1 зь;• l . f'RINT"f'ROJECТ NA11E ";As;"
YEARS t.IFE"; У
136:.; 1.PRINTCliRtl 138) :L.f 'RINI ' '
YEAI<"
1370 Lf·RINT"1TEH" :ТА[:( 10); "1 11 ; TAf:( 28 >: "2"; ТАЕ:( ЗО); "Э": ТМ·:( 11:1); "1"; TAl::(~iB); "5 "; ТА
[:(651;"TOTAL "
1300 1. f 'RINTCHRSI !ЭВ)
1390 LPRINT(;S,C(1);TAB(25)JC(2>;TAB<З5);(:CЭ)JTAB<1S>;(:<1>;TAB<SS>:C<S>;TA~<6S)Jf:
1
1395 IГD!•OTHEN1110ELSE!100
1100 LPR1NTDSt0(1)JTAB<2S>:D<2>;TAB(35)JOCЗ);TAB(15>;0<1>;TAB(S5>;0<S>;TAB(65)JO
1
1410 IFLl=OTНENl130ELSE1120
1420 LPRINTLt,LC1>;TAG(25);L<2>;TAB<ЗS>:t .. <З>;TAB(15>;L<1>;TAB(55>;L<S>;TAB(65>;L
1
·1130
11'111 •OTHENl150EL.SE!110
i 110 l.PRINTMt ·"< 1); Т_АВ( 25) ;нс 2 >; ТА(::( 35); Н( 3); ТАЕ: <15) :мс 4); ТАВ( 55); Н( 5 >; ТАЕ:( 65); Н
1
1450 IFPl•OTHEN!170ELSEl160
1160 LPRlNTPt,P<1>;TAB(25>;P<2>;1ABCЗS)JPC3>JTABC15>;P<1>;TAB(S5>:P<S>;TAB(6S);p
104
1q7~ IFS1 ·"0THEN 119DELSE11BO
J 100 l .. f • F'йtHS S ,S( 1); ТАЕ:(25) :s< 2) ; ТАВ<ЗS) ; s(З) ; ТАЕ:( 15) ;s< 1) ;тАЕ:<55) ;s<S) ; ТАЕ=(Ь5) ;s
1
1190 IFG1•0THEN1510ELSE1500
1500 CF'RTNTr;s ,( ~{ 1 >; ТАЕ: ( 25); G( 2); ТАВ (35) ; G( 3) ; ТАЕ:( 15) ;G( 1) ;ТАВ(55) ;G( 5); ТАВ(65); G
1
1510 [FE1•01HEN153DELSE1520
1~20 t _ PRINTES,EC1>;TAB(25);EC2);TABCЭS);E(З);TABC 1 S> ; EC4>iTA8(5S>;E<S>;TABC65> ; E
1
1530 IFF1=0THEN1550ELSE1510
1510 LPRINTFS,F(1);TAB<2S);F(2>;TA0(3S);F(З>;TA8( 1 5>;F<1>;TABC5S>;F<S>;TA8(6S>;F
1
1 ~iSO If--Rt =OTt-lEN 157DEL.SE 1560
1~i60 t_f ·RINl RS ,R ( 1 >; ТАВ< 25> ;R< 2); ТАЕ:(35 >Н< С З); ТАВ< 15) ;F« 1) ;ТАВС55~ ;R<S>; ТАЕ:< 65); R
1
1570 IFW1•0THEN1590ELSE15BO
1 !:180 l _f •RINTWS , WС 1); ТАЕ:(25) ;wc 2) ;ТАЕ:( 35) ;wc 3); ТАВ< 15 > нн 4); ТА8(5'5 >HHS) ; ТА8(6'5); W
1
1~;90 If'Тl=Ort1EN1610ELSE1600
160О t..F'RINTTt,Т(1);ТАВ(25);Т(2);ТА8(35);Т(З>;ТАВ(15);Т(-4 >;Т'АВ(55);Т(5);ТАВ(65):Т
1
1610 IFZ!=OTHEN1630ELSE1620
1620 LPRINTZt,Z(l>;TABC25)iZ<2>;TAB<ЗS>;Z<З>:TA8(1~>;Z<1>;TA8(55>;z<~>;TA8(6~>;Z
1
1630 [F01••0THEN1650ELSE1610
1ь-,о t PRJ"N Hlt, 0( 1 >; ТАВ( 25) нн 2 >; ТАЕ:( 35) HJ ( 3); ТАЕ:( 15) :СН-1 >; ТАВ(55) ;о< 5); ТА8( 65 >;о
1
16:10 LF· f<JNТГ.HRt < IЗВ) :L . F'RINТCHRt <!ЭВ)
ll160 t .PRINT"l.INE T(HAL.S", Х ( 1 >; ТАЕ:( 25); Х ( 2); ТАВ< 35 >; Х ( Э >;ТАВ( 1§) ;Х< 1) ;ТА8( 55);)(( 5
>;TAf:(6S);X2
11,70 IYRINТCHRt< !ЭВ)
11,ВО L.f'RINТ"
CASH FLOW E:EFORE TAXES"
1690 I..PRINTCHRt(!Э8)
1700 L.F'RГNT"TOTAl.S"
1710 l'ORI=!П)5
1770 X!(I)=D(l)+L(I)+H(I)+F'<I)+S(I)+CII)+E(I)+F<I>+R(IJ+W(I)+T(I)+<-Z<I))+O(I)
1730 XЗ<I)=O(I)+L(I)+H<I)+P<I)+S<I)+G<I>+E<I>+F<I>+R(I)+W(I)+T(I)+O(I>
1710 Nf.XТI
1750 1 F'RINТ"NEТ" ,х:н 1 > :ТАВ(25) ;ХЗ(2) ;TAIH35) ;хз< 3) :ТАВ(15) ;ХЗ(1) НАВ(55) ;хз<S)
17 60 LF'RINТCHRt < 1 ЭВ)
1770 LF'RINT ' 'LESS OEP'',-Z<1>;TAB( · 25);-Z(2);TAB(35>;-Z<З>;TAB<~S>;-Z<1>;TABCSS>;-z
(5)
17В0 1..PRINTCHRt <138)
17r10 t.. f -•R INT "TAXAE:LE: INCOHE", Х1 <1) ; ТАВ ( 25 >; Xl <2 >; ТАВ< 35>; Xl <З); ТАВС 45); Х1 <-1); ТАЕН
S~i) ;х1 <5>
HIO О L.PRINH:HRt < 1 ЭВ)
1810 1·0RI=!T05
1820 IFX1<I> < ITHEN1B10ELSEIBЭO
1Sэо X1(1)•X1(1)/2:GOT01BSO
1810 X1<I)•O:GOTO!BSO
1850 X5<I>=XЗ<I>-X1<I>+Z<I>
1870 NЕ: хп
1875 X6C1)=X5(1)+ABS(Y1):X6(2)=X6(1)+X5(2):X6(3)=X6(2)+XS(З):X6(1)=X6(3)+X5(1):X
6(5>,.,ХО<1>•Х5(5>
1880 \ _ PRINT''TAX'',X1(1);TAB(25>:X1(2);TAB<З5>;X1(З);TAB<45):X1(1>:TAS(55>:X1C5)
1890 I..F'RINТCHRt <1 ЭВ)
1900 l.F'RINТ"
CASH FLOW AFТER TAXES"
1910 LPRINТCHf<t( !ЭВ>
1920 \..F'F:INT"NET INCOHE" , X S ( 1 >; ТАЕ:С 25): XS< 2) f ТАЕ:( 35); XS( Э); ТАЕ:< 15>; XSC 1); ТАВ<:55);
Х~<5)
1925 LF'l<INI"TAX CREDIТ",ABS<YI)
1930 L.f ·RJNT "NET ACCUf '\ ", Х 6( 1): ТАВ( 25) ; Х6( Z); TAf;( 35); Х6( :J); ТАЕ:(15); ХО( tt); ТАЕ:(55); Х
6(5)
1910 LF'RINTCHRt< !ЭВ) :1..Pf<INTCHRt< 138) :CLS:F•RINТ"THIS IS А F'ROCRAHED SfOF ' ТО PERHI
Т PRINП~R F' AF'ER ПI Е:Е INDEXED"
105
1911 PRINT"WHEN THIS IS COMf'LEП , ТУРЕ CONT AND ENП:J,,"
1912 SH)P
1950 Lf'RINTCHR •<27>;CHR•<t1);"ANALYSIS"
1980 RE:M F' AY BACt( PEl'<IOD 1
1990 ~1 ~ABS(C1)/(X6(5)/5)
2000 L.f"RINTCHR ♦ < 138) :Lf'RINTCHRt< 138)
2005 Lf'RINT "TOTAL САРПАL COSTS ARE: $ ";С!
2006 Lf'RINT "TOTAL ACCUt\ SAVINGS AFTER TAXES Af<E $ ";Х6<5>
2007 FORI"1ТOЗ:l.f'RINTCHRf(13B) :NEXТI
2010 LPRINTCHRS<27>;CHRt(l1);"PAY ВАСИ PERIOO 1"
2.020 LPRINT"ПiE PROPOSAL WILL f'AY IT БЕLГ BACt( IN";Pl ;"YEARS"
2030 L.F'RINT "f'AY Е:АСК РЕRПЮ 1 AVERAGES ALL YE:ARS SAVlNGS"
2.010 REM REТllRN ON FIRST COSTS
2050 P2•(X6(5)/5)/ABSIC11
2060 L_f'RINTCHRS < 138) : Lf'RINTCHRt < 13В >
2070 Lf'RINTCHRt<27J;CHRS<11J;"RATE OF RE:TURN ON FIRST COSTS"
2080 Lf'RINT "THIS PROPOSAL HAS А REТLIRN ()f- FIR5T COSTS OF" ;P2; "F'ERCENT f'OR ТНЕ f'I
RST 5 YRS."
2090 LF'RINT"RATE OF REТURN AVERAGES AL .. L YEARS SAVINGS"
2100 L.F 'RINTCHRS< 13В) IL.PRINTCHRS( 138)
2110 РЗ=(Х6(5)/5)/(АВS<С1>•.5>
2120 Lf'RINTCHRSl27>;CHRt<11);"RETURN OF AVERAGE FIRST COSTS"
2130 Lf'RINT"THIS МЕТНОО CONSIOERS ПJЕ AVERAGE E:Oot( VALUE OF ТНЕ INVESTtlENT"
2135 L.f ·RINT "AND ADDS ТНЕ ТАХ E:ENEFIТ F'ART or TНIS ТО SAVINGS"
2110 Lf'RINT "THIS f'ROf'OSAL HAS А ";PЗ;"PERCENT RETURN ON FIRST COSTS f'OR THF' FIRS
Т 5 YRS,"
2150 LF'RINTCHRt< !ЭВ> :LF'RINTCHRS< 13В>
2160 REM РАУ BACI( f'ERIOD 2
2170 Lf'RINTCHRS(27>;CHRt(11);"PAY ВАСК PERIOD 2"
2180 f'1•ABSIC1)/((X6151/5)+(ABSIZ1)/51>
2190 Lf'RINT"f'AY E<ACt( f'ERIOO 2 CONSIDERS ТНЕ EFFECT OF ТНЕ DEf'RECIAТillN"
2200 Lf'RINT"AS f'ART OF ТНЕ CASH FLOW AND ТНЕ РАУ BACt( PERIOD IS L.ESS THEN f'AY Е:А
СК f·ERIOD 1"
2205 L.f'RINT "THE f 'AY BACt( f'ERIOD EQUALS" ;р~; "YEARS"
2206 Lf'RINTCHR ♦( 138) :L.F 'RINTCHRS< 138>
2210 RE:t1 f'AY BACt( PERIOD 3
2220 f'RINT"f 'AY E:ACI( f'Ef<IOO З CONSIOERS AN INTEREST RATE FOR"
2230 PRINT"RE-INVERSTMENT OF CASH FLOW ASSETS"
2235 INf'UT"TYPE IN ТНЕ INTEREST RATE <DECIMALI YOU WISH ТО USE";A
2210 REM н~воок VALUE:A=INTEREST RATEIAl•INTEREST
2250 H!•AE:S(Cl 1 :А!•Н!•А
2260 ti2=<H1 ··A8S<Z(1))):A2=h2 •A
2270 HЭ=(H2-AE•S<Zl2) > > :АЭ•НЭ•А
2280 H1•1H3-AE:S(Z13) > > :А1=Н1•А
2290 HS=IH1 -ABS<Zl1>>>1A5•HS•A
2300 А6=1А1+А2+А3+А1+А5)/5
2310 PS=ABS(C1)/CCX6(5)/5)+(ABSCZ1)/S)+A6)
2320 Lf'RINTCHRS ( 27 > ;CHRS< 11 >; "РАУ ВАСИ PERIOD З"
2330 Lf'RINT"THI5 МЕТНОD CONSIOERS ТНЕ EFFECT OF DEf'RECIAТION AND"
2310 LPRINT"E:OOK VALUE АТ INTEREST RATE"; А; "FO,R RE-INVESTMENT OF CASH· FL .OW ASSET
S"
2350 LPRINT"USINC THIS МЕТНОО ТНЕ РАУ ЕАСК PERIOD IS";P5;"YEARS"
2360 LPRINTCHRS( 1381 llf'RINTCHRH 138)
2365 CLS:PIONT"THE C011f'UTER IS CALCULAТINC"
2366 f'RINT "OISCOUNTED CASH FLOW 11АУ ТАКЕ А FEW t1011ENTS ТО CALCULATE"
2370 REM DISCOUNTEO CASH FLOW
2380 REM INTEREST =AI CAF' EXF' •C!:SдVINCS•XS<I>
2385 IFABS(C! >>Х615>ТНЕN2570
2386 X5(1)=X5(1>+AES(Yll
2390 Х8=0
2100' FORir.1T05
2110 X7=XSII>•<<1+AIC-I>
2120 Х9=ХВ+Х7
2130 NЕХП
2110 IFXB>ABS(C!)-100ANOXB<ABS<C1)+100THEN2190ELSE21SO
2150 IFX8>ABS(C!>THEN2160ELSEZ170
106
2160 А=А+ . ОО1:GОТ()~З9O
7q70 IFXB<ABS(CIITHEN2.80
7100 А~А-.OO1:1.:ото2з9O
119 0 Rl:M DISCOIINTE·o F'ERCE.Nf CALCLJLATEO
;->~ ·i00 L PR1.N "1CHR'I ( :' J >; CHF'i 'S ( 1 '4); "DTSCOUNTfO CASH FLOW"
7~,1О
LYRINl " WHEN fOTAL_ SAv1w;s ARE SET EGUAL то ТНЕ TOTAL INVESTHENT"
/':i20 L_f "RINl "Е:У [)lSCOLINTING F"U rвRE SAVJNr;s Е:У SOHE OISCOUNT RATE • THEN "
2~130 L. F•f.. .tN "J"THIS f- · RO F ·OSAL HAS А DISCOUNT RATE OF ";A;"f'ERCENT"
~~'i-ЧО l . f 'R]Nf"lH"fS DISCOUNT RATE . Е) ТНЕ f'Ef::CEN "f RETllRt-1"
7~;50 L PRINI "ТНЕ or,нaNAL INVESTMENT WDUL.D HAVE ТО fARN "
7 560 LPRl~T"TO EUUAL ТНЕ SAVINБS DVER А 5 YEAR PERIOD ~
Z 56~i END
;,~ ;70 l ..F"RINT " IHIS 1··r, □ F"OSAL CANNOT Е:Е EVALUATE:D Е:У OISCOUNTED CASH FLOW"
:i~.e o 1..F·RJ.NT"П!E SAV"JNl;s OVER А ~j YEAk f'ERIOD
~ , 5. -10 t f'f;;TNf"OOE5 NOT EOtJAI ~ ТНЕ QRIGINAL INVESTHENT"
2600 f~NI)
3000 REM Y• YfARS,Yl~TAX CREDIT
3010 [F' Y 31HE.N:J0/Hf: LS[Э020
3 0 20 [ГY r~. 011tiENЗOЗOELSE304П
~о~о Yt~<1: 1• . ЗЗЗ:i)•.1:RET U RN
ЭО10 !fY · 'J.OllHEN:J050El: si:зo60
ЗU50 Y1=(~1 •.6666)• .t:RETURN
3060 1тy·: 7.01ПiENY1=C1a.t:RETiJRN
30711 Yt=, 0:f~f.TLJRN
Распечатка 5.3.
окупаемости. В табл. 5.5 приведены три варианта обоснования пред
ложения о приобретении станка с ЧПУ. В вариантах, nодrотовлен
ных с помощью ЭВМ, использованы разли ч ные модели амортиза
ции.
В тех случаях, когда управJ1яющий техническим отделом должен
определить приоритет для различных предложений, предусмотрен
ных планом капитальных вложений, у него мож~ возникнуть жела
ние провести расчеты по каждой единице оборудования за различ
ные периоды времени. Программа DISCOUNT позволяет вводить
значения элементов экономии или затрат за 5 лет. При проведении
расчетов по программе управляющий может ввести данные только
за первые 3 года и оценить риск, связанный с приобретением каж
дой единицы оборудова ния, включенной в план капиталовложени й
(распечатка 5.3).
Глава 6
РЕГРЕСС И ОННЫЙ АНАЛИЗ
6.1 . МОД Е ЛИ РЕГРЕССИОННОГО АНАЛИЗА
Регрессионный анализ представляет собой полезный статистиче
ский инструмент, призванный помочь инженеру в решении сложных
задач, возникающих в производственных условиях.
Прежде чем начать изложение материала этой главы, попытаем
ся объяснить читателю, не знакомому с этим методом, общие прин
ципы его применения. Предположим, что инженер-технолог разра
батывает для сверлильного участка технологию обработки детали
из нового материала. Этот материал ведет себя иначе, чем другие
материалы: при сверлении размеры отверстий получаются больше,
чем установлено техническими условиями. После тщательного изме
рения размеров сверл и отверстий инженер приходит к выводу о
необходимости дальнейшего исследования. Несмотря на то, что при
меняются стандартные сверла, размеры отверстий выходят за преде
лы, установленные допусками. Проведя дополнительные измере
ния и просмотрев несколько справочников, содержащих данные об
ожидаемых размерах отверстий, инженер приходит к выводу о том,
что данный материал ведет себя необычным образом.
Цель регрессионного анализа - математически предсказать из
менения зависимой переменной (диаметр отверстия), вызванные из
менениями независимой переменной (диаметр сверла). Приведен
ный выше простой пример лишь иллюстрирует общие принципы
регрессионного анализа,' хотя подобные задачи, несомненно, встре
чаются на практике. Регрессионные модели, представленные в этой
главе, предоставляют в распоряжение инженера несколько инстру
ментов, чтобы решать подобные задачи. Хотя в повседневной работе
инженеру возможно нечасто придется прибегать к регрессионному
анализу, идеи, рассмотренные в этой главе, заслуживают изучения .
Ниже приведены четыре программы оценки линии регрессии.
Для каждой программы сначала описана математическая модель,
затем приведен текст программмы с комментариями . После текста
программы следуют один-два примера решения типичных задач.
Опись1ваются четыре модели регрессии: линейная зависимость
для одной независимой переменной; линейная зависимость для двух
независимых переменных; линейно-логарифмическая регрессия;
нелинейная регрессия.
.
Перед рассмотрением простой линейной регрессии следует ска
зать несколько слов о прогнозировании на основе регрессионных мо-
108
делей. Мнения специалистов относительно того, насколько коррект
ны регрессионные модели, расходятся.
Некоторые специалисты считают, что регрессионный анализ не
может применяться для прогнозирования, другие допускают такую
возможность. По нашему мнению, регрессионный анализ служит
мощным инструментом прогнозирования, хотя необходимо соблю
дать известную осторожность.
Регрессионный анализ является математически-ориентирован
ным методом. Его можно использовать для предсказания поведе
ния переменной, но надо опираться при этом на здравый смысл. Воз
можно, это выс1<азывание покажется читателю неопределенным, од
нако работа инженера-те~нолога - это сплав специальных научных
знаний и умозаключений . Можно спорить о том, какая доля в про
фессиональной деятельности технолога приходится на умозаключе
ния, но ни один инженер-технолог не скажет, что здравый смысл не
является частью его повседневной деятельности. •
6.2 . ЛИНЕЯНАЯ РЕГРЕССИЯ С ОДНОЯ НЕЗАВИСИМОЯ
ПЕРЕМЕННОЯ. ПРОГРАММА R.EGt
Если наблюдения независимой Х и зависимой У переменных
имеют рассеяние, где У линейно зависит от Х, то-Х и У связаны меж
ду собой уравнением: У = а + Ь. Если результаты наблюдений на
нести на график, то связь между ними может быть выражена (более
или менее) прямой линией (рис. 6. 1, табл. 6.1).
Применяя выбранную функциональную зависимость, можно оце
нить У при Х = 3,5. Данные представлены в т~бл. 6.2 .'
Модель линейной регрессии с одной переменной имеет вид:
У=Ь0+Ь1Х1+е.
Параметры модели могут быть оценены с помощью следующей систе
мы уравнений:
1:У = пЬ0 + Ь11:Х;
1:ХУ = Ь0 + 1:Х + Ь11:Х2.
6.1. Результаты наблюдений зависимой Х
и независимой У переменных
Номер
х
у
наблюдения
1
1
2
2
2
3
3
3
7
4
4
7
5
5
11
у
10
8
б
4
2
о
2345х'
Рис. 6.1. Диаграмма рассея
ния в виде прямой Jiинии
109
Номер
наблюдения
1
2
3
4
5
n=5
6.2. Расчет параметров уравнения регрессии
х
}'
ХУ
Х'
1
2
2
1
2
3
6
4
3
7
21
9
4
7
28
16
5
11
55
25
IX=l5
IУ=ЗО LXY= 112 LX2 =55
у,
4
9
49
49
121
LY2=232
Решая эти два уравнения совместно относительно Ь0 и Ь1 , находим
их оценки, при этом сумма квадратов остатков е будет минимальной:
5Ь0+15Ь1=30;
15Ь0 + 55Ь1 = 112;
Ь0= - 0,6;
Ь1 = 2,2;
Уе=
-
0,6+2,2 Х,
где Уе - выравненное или прогнозируемое значение У.
6.3. Фактическ11е значения Х и У
и выравненные значения У,
Номер 1
11а6люде•
HИII
1
2
3
4
5
х
1
2
3
4
5
1,6
3,8
6,0
8,2
10,4
у
2
3
7
7
11
Выравненные значения при
ведены в табл. 6.3 .
Исходные данные предвари
тельно были «подобраны» та
ким образом, чтобы график за
висимости, рассчитанной по
способу наименьших квадратов,
выражался прямой линией.
Далее необходимо определить,
насколько хорошо данные удов
летворяют уравнению прямой
линии, или, другими словами,
какова теснота связи между исходными и расчетными данными.
Формула для расчета коэффициента корреляции приведена ниже:
-
1 L (Х-х) (У-У)
, R = _п_______
ахау
Коэффициент корреляции рассчитывают для того, чтобы прове
рить, насколько данные удовлетворяют уравнению прямой линии
(табл. 6.4). Коэффициент корреляции может принимать значения в
диапазоне от +1 до -1 . Чем ближ~ коэффициент корреляции к еди
нице (+1 или -1), тем точнее подобрана линия регрессии. Коэффи
циент корреляции принимает положительное значение + 1, если
прямая линия регрессии образует с положительно направленной
110
у
у
d)
х
5)
х
Рис. 6.2. Зависимость У= f (Х) при коэффициенте корреляции :
а .- -nоложительном; 6 - отрицательном
осью абсцисс острый угол (рис. 6.2, а), и отрицательное значение
-
1, если этот угол тупой (рис. 6 .2, б).
Приведенный расчет иллюстр1:1рует общую схему решения задачи
линейного регрессионного анализа . Для составления программы рег
рессионного анализа для ЭВМ необходимо формулу У = а + ЬХ
преобразовать в формулу
У=В0+В1Х+е,
где В0 - свободный член; В 1 - угловой коэффициент ; е
-
случай
ная погрешность, е = R = 1 - R2; здесь R2- доля общей вариа
ции зависимой переменной, для которой справедлива регрессия.
Номер
наблюдения
I
2
3
4
5
=5
6.4 . Расчет коэффициента корреляции
х
1
2
3
4
5
IX 15
- ·--
п
5
Х=З
у
2
3
7
7
11
IY 30
---
п
У=6
1
-
,22
5
5
R=.
-------
V'i V5s2
(Х-Х) 2
(У-У)2 1(Х-Х)(У-У)
4
16
8
1
9
3
о
1
о
1
1
1
4
25
10
I (Х-Х)2= I (У-У)2 = I (Х-Х) х
=10
=52
х (У-У)=
ах= V{°- ay = vs:
=22
4,4
1,414-3,225
0,9647
111
Выражение Уе = а + ЬХ теперь примет вид
Уе=Во+В1Х
или
Уе=У[ :Е(Х-Х)(У - У) ]х+[ :Е(Х -Х)(У-У) 1· Х.
•
:Е(Х-Х)2 •
:Е (Х-Х)2
Для оценки параметров уравнения регрессии используют формулы 1
В _ :Е (Х-Х) (У-У).
i-
:Е,х-х)2 ,
В0=У-В1Х;
В 1 (:Е (Х -Х)(У-У))
:Е (У-У)2
. Коэффициент
корреляции R 1 рассчитывают по формуле
:Е (Х-Х)(У-У)
R1=
--;=================::::::;:=
V :Е (\-Х)2 :Е (Уп-У)2
Метод регрессионного анализа применим для решения многих
производственных задач (табл. 6.5) .
6.5. Типичные примеры использования рергессионного анализа
Независимая переменная
Зависимая переменная
Дна.метр сверла
Диаметр отверстия после сверления
Прямизна
Температура термической обработки
Глубина резания
Прогиб
Ширина сварочного шва
Подача
Зона прогрева .
Скорость резания
В любом из примеров, приведенных в табл. 6,5, действуют мно
гие другие факторы (независимые переменные), оказывающие влия
ние на результирующий показатель . Одна из основных предпосылок
правильного проведения регрессионного анализа заключается в том,
что все другие независимые величины считаются постоянными.
1 Возможна и другая равнозначная форма записи коэффициентов.-Прим .
перев .
112
п:ЕХУ - :ЕУ:ЕХ
п:ЕХ 2 -:ЕХ :ЕХ
Ri=
п:ЕХУ!-.:ЕХ:ЕУ
Y[n:EX 2 - (IX) 2] [п:ЕУ 2 - (:Еу)2
Прим . перев.
RE/1 PROGRA/1 NA11E REG1
2 RE/1 WRITTEN ВУ J,E,NICKS
3 RE/1 CONPUTER APf·LICATIONS FOR ТНЕ 11ANUFACTURING ENGINEER
1 RE/1 COF·YRIGHT 1981 ALL RIGHTS RESERVED
10 CLS
20 PRINT"TtПS PROGRA/1 CALCULATES REG'RESSION LINES"
30 PRINT"FOR ONE UNKNOWN "
10 PRINT"ПIE PROLGRA/1 IS DEVELOPED IN 2 PARTS"
SO PRINT"THE FIRST PART ТНЕ USER INPUTS Х AND У DATA"
60 PRINT"THEN ТНЕ COl1PUTER CALCULATES А CORRECTED У"
65 f'IПNT
70 f'RINT "THE USER THEN HAS ТНЕ OPTION OF ТYPING IN А"
ВО PRINT"SINGlE ENTRY FOR А FORECAST OF У"
8:'j f'RINT
90 f'RINT "X VALlJES ARE INDEPENDENT DATI\"
91 f'RINT "Y VALUES ARE DEPENDENT DATA"
92 FORI=!TOЗIPRINTINEXT
93 INF'UT "ENTER ТНЕ NA11E OF' ТНЕ Х VALUES"; Xt
91 INF·UT "ENTER ТНЕ NA11E OF' ТНЕ У VALUES" :Vt
95 DIHXC2~),YC2S>,Z<25)
96 CL.S
100 INF•UT"ENTER ТНЕ TOTAL NO, OF' Х & У DATA POINTS";N
11 О FOIH=1ТON
120 PRINT"TYf 'E IN Х & У VALUES SEf'ARATED ВУ А СО1111А"
130 INPUTX<I>,Y(I)
135 REHXt~su" X,X2=SU" Х SQ
110 X1=X1+X(I):X2=X2+X(l)[2
150 Y1=Y1+Y(I):Y2=Y2+Y(I)[2
155 RE/1 XЗ=SU/1 Х• SU/1 У
160 XЗ=X3+(X<I>•Y<I))
170 NEXТI
175 R'El1X1=X BAR
180 X1sX1/NIY1=Y1/N
185 RE/1 X5=Slll1 А-Х BAR SQ
190 X5=X2 -<<X1[2)/N)
200 Y5=Y2-((Y1[2J/N)
205 RE/1 X6=SU11 Х-Х BAR • SU/1 У-У BAR
210 X6=X3 -((X1>•<Y1)J/N
220 B1=X6/XS
230 В2•У1-(В1•Х1>
210 RE/1 Z<I>=CORRECTED У
260 LPRINTCHRt(27);CHRt(11);"REGRESSION ANALYSIS"
261 Lf'RINT ''
.
26:5 LPRINT"SAl1f 'LE " ;ТАЕ:( 15); "Х"; Tl\8(29); "У" ;ТАВ<13); "CORRECTED У"
266 LPF.:INT ТАЕ:( 15) ;xt;TAB(29) ;Yt
267 Lf'RINT"
"
270 FORI=1ТON
275 Z<I>=B2+(B1•X<J))
ZBO Lf'RINTI,X<I>,Y<I>,Z<I>
28~ NE:XT
289 Lf'RINT"
290 1.f 'RINT "81 :;";81,"82 =";82
300 R2=(81•<XЗ-((X1•Y1)/N)))/(Y2-<<Y1>[2)/N)
310 R1=<X3-((Xl•Yl)/N))/SQR((Y2-<<Y1)[2)/N>•<X2-((X1)C2)/N)>
320 LF'RINT "THE CORREL.'AТION COEFFIC:IENT IS" ;R1
330 l.f'RINT "THE CLOSER ТО 1 ТНЕ E!ETTER ТНЕ DATA FITS У=А+ВХ"
31 О l.f·RINT"
"
350 LPRINT 11 THE PREDICTION У EXPLAINS";R2; 11 X OF ТНЕ"
360 l.f'RINT"VARIAТION OF ТНЕ DATA INPUПEO . AS У"
370 Cl.S
ЗВО f·RINT"TO INPUT А SINGLE VALUE TYf'E 1 OR ТУРЕ 2 ТО EXIT"
100 INF"UTP
110 ONPGOTO120,50D
-,20 I NF'l/T"THE VAL .UE OF Х IS";X
130 У=Е:2+<1Н•Х>
i10 Lf'F:INT"F -·oR А VALLIE OF";x;"Y EQUALS 11 ;y
150 CL.S:PRINT"FOR А VALUE □f"';X;"Y EGUALS";Y
160 f'RINT"FOR ANOTHER VALUE ТУРЕ 1 OR 2 ТО EXIT"
170 INF'UTF'
100 ONPGOTD120,500
500 END
Распечатка 6.1 .
113
Программа REGl. Программа занимает 1912 байт оперативной
памяти (рас печатка 6 .1).
Комментарий к программе. Строки программы с номерами 20-
-91 содержат инструкции для пользователя. ЭВМ резервирует де
сять ячеек памяти в тех случаях, когда опущен оператор DIM. Что
бы пользователю было удобно работать с программой, в строке с но
мером 95 резервируется память для 25 зна\с~ений величин Х и У.
Если требуется ввести более 25 пар чисел, необходимо соответствую
щим образом переписать строку 95 . По команде , записанной в про
грамме, ЭВМ выделит по 25 ячеек памяти для Х, У и Z.
С помощью операторов FOR - NEXT в программе организован
цикл для ввода значений переменных в виде Х (I), т. е. индексиро
ванных переменных. Это позволяет ЭВМ обращаться к каждому зна
чению самостоятельно при проведении последующих расчетов, на
пример вычислении средних значений величин.
При проведении расчетов вручную пользователю пришлось бы
организовывать данные в табличной форме, с тем чтобы последова
тельно обрабатывать каждое наблюдение по зависимой и независи
мой переменным. То же самое осуществляется в программе в строках
175--285. Сначала рассчитываются суммы значений Х и У, средние
арифметические значения, суммы квадратов Х 2 и У2, суммы произве
дений Х У . Затем проводится заключительная часть расчетов.
В строке 275 рассчитывается новое значение У. Оно определяется
как значение переменной Z (I). Строка 280 печатает фактические
значения Х (I) и У (I) и выравненные значения У в виде значений
Z (I).
114
REGRESSION ANALYSIS
SAMf'l Е
х
у
CORRECTEO у
DRILL SJZE
IIOLE f'RODUCED
.257
. 2608
. 26101
. 375
,3796
, 37933
3
,5
.5018
.501669
~
.6875
.6925
, 692677
5
.1811
,78М
, 78663
6
.875
,8009
,ВВО6В~
Б1 n 1,00271
82 = З.31438Е-03
lHE CПNRELATION COEFFICIENT IS ,999999
rнf: Cl. OSER то 1 ТНЕ E:ETTER ТНЕ ()АТА FITS Y=A-tf:X
П<Е f•RIDlCПt:IN У l : Xf'LAINS
,?99998 1⁄4 OF ТНЕ
VANlAT[ON UF ТН[ ПАТА INPUГTED AS У
f (Jf\ А VAt. lJE OF .12.s У EQUAL_S .12:еоsз
f Of.: r. VAL I.JE OF
• 2 ~.J У [QlJAl.S
• 25399:\
f IIK t, VAt. iJI= OF
. 6:!:i У EQUAL.S
.630007
IПR А VALUE ПF I У [QUALS 1,U06U2
1Oh' n VAI l.lf lJF l,;,~; У HlllAlS 1.2567
•Of,;АVAIIJEot·1.~
.=; У F·: oUAL~.!:I 1 • ~'i"07Эfl
1 Of.: А VAL ОЕ oF· 1,75 У EOlJAL"S 1,75805
Распечатка 6.2.
х
У
CORRECTED У
6
E:Of<E DIA,
1 .25
1 .625
1.875
7,75
З, 2':,
:).75
СН1Р Cl_[Af<ANCE
, 183
,2:ЗВ
. 77":J
.зз
.1оз
, q71,
• ::,,q9
i:1: .1 1+6Э7Н
f·:2 = З.10Э61[ - Q,Ч
ТНЕ CПHf<ElATlUN COErrICifNI JS ,999998
fHE С1 OSER 1П 1 fHE f:EПf_R ТНЕ l>ATA FПS У0А+Е:Х
УНЕ f·fa01t.: 11 ON У [XF'LAI.NS
. 999995 % OF' ТНЕ
VARlAlJIIN OF ТНЕ l>АТА INf'LIПl:D AS У
rок А
fllf< А
f' (}f< А
1·ок А
fOR А
1(lf< А
FПR А
HIR А
1-□R А
VALllE.
VAI_UE .
VAL LFE
VAL .UE'
VALLJE'
VALUE
VALLJE'
VALLJE
VAL lJE "
ПF 1- У [QUAL.S
, 116688
OF 1,5 У [OUALS ,219877
(lf 1,75 У rauA L. S ,256171
OF 2 У ГOUALS ,293066
Of 2.5 У EOUALS ,366255
OF 3 У EQUALS ,139111
П F 3,5 У EOUALS ,517633
(IF 1 У EUUAL.5 , 585821
(IF ~ У EOUALS ,732199
Распечатка 6.3.
, HIJ ZEl3
, 238171
. 271769
,32966
• ,qozoq9
• 1 76038
,5.q9z21
В строках 300 и 310 рассчитываются коэффициенты R1 и R 2 .
Вторую часть программы составляют строки 380-490. Пользова
тель получает возможность вводить новые значения Х и рассчиты
вать выравненные значения У. Все ранее введенные исходные вели
чины продолжают храниться в памяти ЭВМ.
В строке 430 уравнение регрессии записано в виде У = В 2 +
+ (В 1 Х). Коэффициенты В 1 и В 2 уже рассчитаны в программе на ос
новании данных наблюдений Х и У.
Реrре_ссионный анализ
Номер
Х (днаметр
наблюдения
сверла)
1
0,257
2
0,375
3
0,5
4
0,6875
5
0,7812
6
0,875
В!= 1,0027
В2=3,31438Е-0 3
Коэффициент корреляции 0,999999
У (диаметр
о тв е рстия)
0,2608
0,3796
0,5048
•0,6925
0,7864
0,8809
Чем ближе к 1, тем точнее данные удовJiетворяют У= А + ВХ
Прогноз У объясняет 0,999998% колебаний наблюдений У
\Для А, равного 0,125 , У равняется 0,128653
Для А, равного 0,25 , У равняется 0,253991
Для А, равного 0,625, У равняется 0,630007
Для А, равного 1, У равняется 1,00602
Для А, равного 1,25, У равняется 1,2567
Для А, равного 1,5, У равняется 1,50738
Для А, равного 1, 75 , У равняется 1,75805
К распечат ке 6.2 .
Онснс-нное
значение У
0,26101
0,37 933
0,5046 69
0,692677
0,78663
0,880684
115
Из распечатки 6.2 ясно, что данные о размерах сверл и получаю
щихся при обработке ими отверстий взяты из справочника. Дейст
вительно, коэффициент корреляции имеет очень близкое к единице
значение. Данные подобраны преднамеренно и служат для демон
страции работы программы.
Для распечатки 6.3 задача может быть сформулирована так : оп
ределить зазор для схода стружки, если размер борштанги задан. От
вет получен после обработки таблицы, в которой собраны данные по
нескольким наблюдениям.
6.3 . МНОЖЕСТВЕННАЯ РЕГРЕССИЯ. ПРОГРАММА REG2
Рассмотрим теперь модель множественной регрессии. Само на
звание модели говорит о том, что в ней используется более одной
независимой переменной .
Программа REG2 рассчитывает уравнение регрессии для двух
независимых переменных Х и одной зависимой переменной У. При
меняемые формулы во многом схожи с формулами простой регрессии,
только более громоздкие. Их можно найти в любом учебнике по стати
стике. Формулы, использованные в программе, были взяты из спра
вочника «Кволити контроЛ>>.
Можно назвать множество примеров из производственной прак
тики, когда некоторая зависимая переменная является результа
том воздействия двух взаимно несвязанных между собой независи
мых переменных или управляющих факторов. Типичные примеры
множественной регрессии приведены в табл. 6.6.
6.6 . Типичные примеры использования многофакторного
регрессионного анализа
-- --- ---- --, -- ---- --- --
Управляемые факторы
Управляющие факторы (независимые переменные)
1
XI
Х2
(зависимая переменная) У
Время
Твердость материала
Содержание углерода
Температура
Подача
Поперечное сечение
Глубина ц~ментации
Стойкость инструмента
Размер сердцевины
В общем виде математическая модель множественной регрессии
записывается следующим образом:
у =B0-t --B1 Х1 +B2X2-t- ... + в kх }, -t- -e,
где В - неизвестные коэффициенты при Х; е
-
случайная погреш
ность .
Тогда прог нозируемое значеf!ие
У= Ьо +Ь1 Х1 +Ь2Х2 + ... +ьkxk.
Общее уравнение регрессии можно записать в матричной форме:
116
S
Ь
а
1:Х~ Х2 ... 1:Х1 Xk] (Ь1]-(1:Х1 У]
~х2 ••• ~X2Xk
ь2 - ~Х2У
,
1:xkх2 ••• rxi
.
ьk
~xk У
где Sb =а.
Написать программу для ЭВМ, в которой реализуется эта модель,
довольно сложно. Для решения уравнений используется метод, из
ложенный в [6.1, 6.2].
Основная цель автора заключалась в том, чтобы инженер-техно
лог получил полезный инструментарий для решения производствен
ных задач, а не занимался математическими упражнениями . Поэто
му при написании программы многофакторного регрессионного
анализа REG 2 была использована общая математическая модель
с разбиением ее на части.
Такой подход к программированию задачи обладает одним суще
ственным недостатком: внимание читателя направлено на общую ма
тематическую модель. Xk определяет число независимых перемен
ных. Программа REG2, текст которой приведен ниже, позволяет
вводить ряд наблюдений по двум независимым переменным Х1 и Х 2 .
В том случае, когда язык программирования вк11ючает операторы
обработки матриц, написание отдельных частей программы упроща
ется. После того как программа выполнит вычисление параметров
линии регрессии, пользователь получает возможность ввести с кла
виатуры значения нового ряда наблюдений переменных Х 1 и Х 2 .
Оценки У рассчитываются по формуле:
где Х1 и Х 2 - новые значения независимых переменных; У, Х1 Х2-
средние арифметические значения, вычисленные на основании пер
воначальных данных ; Ь1 и Ь 2 - расчетные коэффициенты для Х1 и
Х2.
•
В конце работы программа выводит на печать корреляционную
матрицу, которая выполняет ту же роль, что и коэффициент корреля
ции в простой регрессии. С ее помощью пользователь может опреде
лить, насколько точно данные удовлетворяют прямой линии. При
идеальном подборе линии регрессии элементы корреляционной мат
рицы, расположенные на главной диагонали, равны единице , осталь
ные элементы равны нулю:
или
( 1,0001 0,0004] ·
0,0001 ·0,9985
117
у
Рис. 6.3 . Рассешше величин Х1, Х2
х
При rрафичес1юм определении линия регрессии может оказаться
искривленной . Корреляционная матрица позволяет судить, насколь
ко хорошо данные удовлетворяют уравнению прямой линии. Исход
ные значения могут быть представлены в виде диаграммы (рис. 6.3).
Программа REG2. Программа занимает 3252 байт оперативной
памяти (распечатка 6.4, 6.5)
Множественная регрессия
Номер
Давление Xl Кисло ·,ность xi
наUтодення
1
110
116
2
119
104
3
138
94
J•••
20
120
120
Номер
Остаток
наблюд<:ния
1
-
7,34332
2
- 18,1808
3
- 4,10132
20
19,0134
Сумма остатков -8,54492Е-04
Усилие У
665
618
620
640
Прогноз УЕ
672,343
636,181
624,101
620,987
Для Х, равных 121 и 98, оцененное значение У или УЕ равно 614,175
Для Х, равных 122 и 98, оцененное значение У и-111 УЕ равно 615,745
Д.111 Х, равных 123 и 98, оцененное значею1е У или УЕ равно 617,315
О
-8,54492Е-04
Корреляционная матрица
l
О
О
1
Чем ближе элементы корреляционной матрицы к 1 или (), тем точнее подо
брана зависимость для описания наб.~юдаемых данных
К распечатке 6.5 .
Комментарии к программе. Структура программы в строках
1-290 аналогична структуре программы REGI. Оператор REM по
зволяет пользователю вставляТI;, в программу комментарий, поясня
ющий ее работу, например:
Строка 180: REM ХЕ = SUMXl * У
1!8
И~ходные и расчетные величины, используемые в программе,
представлены в табл. 6.7 .
6.7 . Переменные, используемые в программе REG2
Xl=XI (1)
Х2=Х2 (1)
У=У (!)
Xl (1)
Х2 (1)
у (1)
Xl (2)
Х2 (2)
у (2)
Xl (3)
Х2 (3)
у (3)
Xl (N)
х2· (N)
у (N)
XA=!:Xl
ХВ=~Х2
Yl=Y
ХС=~Х1 2
XD=~X22
У2= }:;уа
XE=!:XIY
XF=!:X2Y
XH=Xl
XJ=X2
УЗ=У
Для упрощения расчетов уравнения приходится преобразовы
вать внутри программы.
1 REH F'ROGRAM NAME REG2
Z REM COMF'l/ТER AF'F'LICATIONS FOR ПiЕ 11ANUFACHIRING ENGINEER
З RE11 WRITTEN ВУ J.E,NICKS
' 1 REM COF"Y RIGHT ALL RIGHTS RESERVED
10 CLS
20 F'RINT"ТIПS. F'ROGRAl1 CALCULATES REGRESSION LINES"
30 PRINT"FOR 2' IJNKNOWNS"
' 10 F'RINT"ТliE F'ROGRAH IS OEVELOPED IN 2 PARTS"
~;о F'RINT "FOR ТНЕ FIRST F·ART, ТНЕ USER INf•UTS Xl, Х2 AND У DATA"
60 F'RINT"AND ТНЕ COl1PUTER CALCULATES А CORRECTED У OR (УЕ)"
70 PRINT"THEN ТНЕ USER INPUTS SINGLE ENTRIES Of Xl AND Х2"
ВО f'RINT"FOR А SINGLE CORRECТEO VALUE Of У DR <УЕ)"
90 DIHX1(20),X2(20),YC20),Z<20)
91 DIHRE:<20)
95 FORX•IТ □ i:PRINТ:NEXTX
96 INF'l/Т"ENTER ТНЕ NA11E Of X1";N1$
97 INF'UT "ENTER ТНЕ NAl1E Df X2";N2t
9В INF'UT"ENTER ТНЕ NAHE Df Y";NЗt
100 INF'l/Т"ENTER ТНЕ TOTAL NU11BER DF У DATA F'DINTS" ;N
11 О FORI= IТON
120 F'RINT "ENTER ТНЕ ОАТА Х1,Х2,У (SEF'ARATE ВУ COHHAS)"
130 INF'UT X1<I),X2<I>,Y<I>
110 REH XA=SUl'I Х1 ,XE:=SUM X2,Yl=SUH У
150 XA=XA+Xl<I>:XB•XB+X2<I>:Y1•Yl+Y(I)
160 REH XC=SUM XI SOR,XD =SUH Х2 SOR,Y2=SUM У SOR
170 xc~xc+X1CI)(Z:XD=XD+X2(I)[2:Y2:Y2+Y(I)[2
180 REH XE=SUH X.! •Y:XF=SUH X2•Y:XG=SUH XI-X2
190 XE•XE+<X1<I>•Y<I)):XF=XF+(X2<I>•Y<I>>:XG=XG+(Xl(l)•X2<I>>
200 NЕХП
21 О RE11 ХН=Х 1 E:AR: XJ=XZ E:AR: УЭ=У BAR
220 XH=XA/N:XJ=X~/N:YЗ=Yt/N
230 REM START MATRIX
210 St=XC -<<XA(2)/N)
250 S2=XD -((XB[2)/N)
260 A1=XE -(((XA)•<Y1))/N)
270 A2=XF -(<<XB>•!Y1))/N>
119
120
280 SЗ=XG-<<<XA)•(XB)J/NJ
290 S1=SЗ
ЗОО REH HATRIX CONSTRIJCTION NEW CONTINUES AS Р
З10.Р1 • 01РВ•О:Р2•S1:Р3•SЭIАЗ•А1
320 P1•11P5=S3/SIIA1 •A3/S1
330 P6=S2-<P5• S3)
310 А5zА2-<Р5 • АЭ)
350 Р7=1
360 А6=А5/Р6
370 82=А6
380 В1=А1-<Р5•82)
390 REH 83=80
100 B3=Y3-(81•XH)-<B2•XJ)
110 LPRINT CHRS<Z7JICHRS(11)1"1\ULТIPLE REGRESSION"
120 LPRINT "IТEH",N1S,NZS,N3t,"FORECAST"
125 LPRINT""
~3 0 LPRINT '' ··,: · ·х1· · :,:··х2·•;,;••у••;,:••у[••
110 FORI=1ТON
150 YE=Y3+(81•<X1(1)-XH))+(BZ•<X2(I)-XJJ)
1 60 LPRINT I,X1(I),XZ(I),Y(IJ,YE
161 RE(I)•Y<IJ-YE I SR =SR+RE<IJ
110 не:хт I
171 LF"RINT "ПЕН", "RESIOUAL"
172 FORI=lTON
173 LF'RINT I ,RE(IJ
171 NEXTI
175 Lf'RINT "SUN RESIDUAL"ISR
180 LPRINT""
190 PRINT"FOR А SINGLE ENTRY OF Xl,X2 ТУРЕ 1"
191 F·RINT "OR ТУРЕ . 2 ТО EXIT"
500 INPUП
510 ONTGOTO520,S70
520 INF'UT"ТYPE IN ТНЕ VALUE OF X1,X2 "1L ,H
530 YE=B3+((Bl•LJ+(82•NJJ
510 I..PRINT "FOR А VALUE OF "IЦ"ANO " IHl"THE EXPECTED У OR УЕ IS"IYE
550 INF'UT "FOR ANOTHER SINGLE ENTRY ТУРЕ 1 OR 2 ТО ЕХП";Т
560 ONTGOT05:ZO ,570
570 lo:EH· IOENТIТY HATRIX
573 t_Pf. .:INT f..:E, SR
580 С2:1/Р6:СЗ= - <С2•Р5>:С1=1/Р2 - <СЗ•Р5>:С1=СЭ
590 Il=<Cl•SlJ+(C3•S1J
600 IЗ=<Cl•S3)+(C3•52)
610 I1=<C1•51J+(C2•S1J
620 12=<C1•SЗ)+(C2•S2>
630 I.PRINT
610 LPRINT CHl'<t(lJ;"THE IOENТITY HATRIX"
660 LF'lo:INT Il, IЗ
665 LPl'<INT
670 LPRINT 11,12
680 LPRINT
690 LPl'<INT "IN ТНЕ IOENТIТY HATRIX, ТНЕ CLOSER ТНЕ VALUES ARE"
700 LPRINT "TCI I AND О ТНЕ ВЕТТЕR ТНЕ DATA FITS"
710 END
Расп ечатка 6.4.
HULTIPLE REGRESSION
IТЕМ
f'RESSURE
ACID
STRENCTH
Х1
Х2
у
1
110
116
665
2
119
104
618
3
138
94
6:ZO
4
130
86
574
5
143
110
682
6
133
87
::i9'\
7
147
114
722
8
112
106
700
9
125
107
681
10
135
106
695
11
152.
98
664
12
118
86
5'\В
13
155
87
620
11
128
96
595
15
1'16
120
7'\О
16
. 132
108
670
17
130
10'\
6'\О
18
112
91
590
19
113
9?.
570
20
120
100
6'\О
Пf.11
RESIDUAL
1
-7,3'\332
2
-18 . 180В
3
-'\,10132
"
- '\.01196
5
-17.0092
6
7,08667
7
-.о~звзз
в
19,3253
9
22,8251
10
25,3158
11
1,15332
12
-
11,1711
13
-1 .. .5196
14
·- 21,7828
15
-S,63031
16
-3 .3562
17
-
13,1516
1В
19,2939
19
-
6,46729
.20
19,013 '\
SUM RE:SIOUAL - 8 , 51192[-01
FOR А VALUE OF 121 AND 98 ПIЕ EXf'ECTED у ~ УЕ IS 611,175
FOR А VALUE OF 122 AND 98 ТНЕ EXF-ECTED у OR УЕ IS &15,715
FOR А VALUE OF 123 ANO 9В ТНЕ EXPECТl,D у Of< УЕ 15 617,315
о
- 8,S1192E-01
ТНЕ IDENTПY MATl<JX
1
о
IN тне: IDENТIТY MATRIX. ТНЕ CLDSER ТНЕ VALUES Af<E
ТО I AND О ТIIE Е:ЕТТЕR ТНЕ DATA FIТS
Распечатка 6.5.
FORECAST
УЕ
672,343
636,181
62'\ ,101
578, О 12
699,009
~ 86 ,913
7:z2. о:;4
680,675
658,175
669,68 '\
662,В'\7
559,171
621,155
616,783
745,63
673,356
653,152
570,706
576,167
6:Z0,987
121
Термин «матрица» использован только для того, чтобы показать
процесс формирования таблицы в строках 300--480, и не связан с
матрицей в математическом смысле слова.
Строки 490- 560 программы позволяют пользователю вводить от
дельные значения Х 1 и Х2 для расчета величин У, при этом Х 1 и
Х2 не являются частью исходной совокупности данных, т. е . эта
часть программы позволяет прогнозировать значения У.
В строках 570-710 корреляционная матрица рассчитывается
так же, как коэффициент 1<0рреляции в модели простой регрессии.
Одно замечание . Имеется множество книг, статей и трудов, по
священных регрессионному анализу. Цель этой книги - воору
жить инженера знанием основ применения мю<роЭВМ и моделей ма
тематической статистики, с тем: чтобы написать программы, которые
окажут ему помощью в работе. Программы, приведенные в этой гла
ве, являются базовыми. · Проницательный читатель заметит что
многие из статистических проверок не рассматриваются. Чтобы объ
яснить, почему это так, можно провести следующую аналогию. До
пустим, инженер изучает проблему сокращения брака и повторных
обработок изде.тшя. Единица измерения равна 0,001 дюйма
(0,0254 мм). Попытка решить задачу, используя измерения с точ
ностью до 0,00001 дюйма (0,000254 мм) оказалась бы попыткой с не
годными средствами, хотя такой подход имел бы некоторую теоре
тическую ценность. Для иллюстрации: статис,:ическая погрешность
в разности .SXm2 - CZXm) 2/n и~ (Xm - Х)2 в большинстве слу
чаев имеет лишь академическое значение для решения задачи.
6.4. НЕЛИНЕЙНЫЕ РЕГРЕССИОННЫЕ МОДЕЛИ .
ПРОГРАММ. Ы REG3 И REG4
Большинству инженеров -технологов приходилось пользоваться
для графоаналитической обработки планшетами с логарифмической
или полулогарифмической сеткой. Например, кривые освоения
производства удобно строить в логарифмических координатах. Ког
да данные отображаются в обычных осях координат, часто становит
ся очевидным, что график зависимости между ними не может быть
выражен прямой линией. Ниже описаны две дополнительные регрес
сионные модели и приведены программмы расчетов.
Линейно-логарифмическая регрессия. Линейно-лщарифмическая
модель описывает полулогарифмическую зависимость. Полулогариф
мическая зависимость означает, что на одной оси координат наносит
ся линейная шкала, на другой - логарифмическая.
В качестве общей математической модели для зависимости ис
пользуется уравнение прямой:
у=а·+Ьх.
Для преобразования к линейному виду используется формула
Inу=Inа+Ьх,
122
REM r·ROGRAM NAME REG3
2 f.:E М WR!ПEN Е: У J, Е, NICl:S
:1 f<[M COMf'llTER Af'f'LICAПONS FOR ТНЕ MANUFACTURING ENGINEER
1 RE.M CDf 'YRTGHT 1981 ALL RIGHTS RESERVEO
10 CLS
2С f'l<INТ"ТIПS l<EGl<ESSION MODEL. IS USED WHEN"
30 f·RINТ " X IS LINEAR ArlD У IS (LOG)"
10 F'l<IIO"X IS INDEf'ENDENT AND У IS ТНЕ DEf·ENDENT VARIAE:LE"
~,О f'RlNl "f "OR ТliE FllNCТIDN INY=INA ♦ Е:Х INE"
60 f·RJIO "ТНЕ f'ROGRAM IS CA L CULATED IN NAHIRAL DR Е E:ASE !.OGS "
90 H<INТ"AND ТIIE f •ROGRAM IS DEVELOf'ED IN 2 f'ARTS"
100 f·IONТ"THE Пf<ST f'Af<T IS . CALCULAТING ТНЕ MODEl. AND ТНЕ SECOND"
11 О f·RJ N Г"F'ART IS ENT[RING SINGLE VALllES OF Х f 'OR FORECASТING"
111 INf'lll"ТYF'E IN Т11Е NAME OF X";xs
112 INF'llТ"TYF·E IN ТНЕ NAME OF У";Н
1,0 INF'lJТ"TYf'E IN ТНЕ NUJ1E:ER OF DATA f·OINТS FOR X":N
1:10 FORT=IHIN
11С INf·tJТ"ТYf'E IN Х & У VAL.UES, SEF'ARATE Е:У А СШIМА"; Х ( I >, У ( I >
15 0 RE'M A•-S lJ M X:E:=SUMY:C=X•Y:D=X SOR:E=Y SOR
160 A=A ♦ X<I) :Yl(l)=l. OG(Y(I)) :.f:=E:+Yl(I)
161 PRINТYl<I>
170 O~D•X(I)t2:E:~E+Y1(1>[2ZC=C+<X<I>•Y1<I))
НJО NE. XТI
190 Б1=<<N•C>-<A•l~))/(N•O-(A[2))
200 A1=((1/N)•(~- (B1•A>>> -
210 Lf'RINT CHRS< ;,7) ;CHRS ( 11 >: "SEJ1I - L .OG REGRESSION"
2'20 LF 'RINT "
"
~ 30 LPRINT''SAHPLE'',XS,Yt,''CORRECTED у • •
210 f'ORI•I HJN: YE=AI +1 ~:1•Х <I) >: YE=EXF '( УЕ)
260 LPKINTI,X<I),Y(l),YE:NEXTI:LPRINi'' ' '
2.70 R-:.;( ( N•C >-<А•Е:) >/SOR< ( <N•O> - <А(2 >) •< <N•E )-(Е:[2)) >
275 LF'RINТ " THE COl'<RHAТION IS ";R
280 i_PRfNT"H-tE CLOSE'R ТО +1 OR -1
ТНЕ E:ETTE:R ТНЕ DA1A FITS"
290 l f•RINТ"THE 110DEL INY=INA+E:X"
310 1NPUT " FOf '< А SINGLE fNTf<Y ТУРЕ
OR Z ТО EXIT";f'
320 DNF·GOTOЗЭO, 380
330 INf'Ul"ТYF'E IN ТIIE Х VALUE";X
310 YE•EXF'IBl•X>•A2
350 Lf'RINT"FOR А VALUE OF ":х:"УЕ EOUALS";YE
360 INf'llT"FOR ANOTHE R SINGLE ENТf'<Y ТУF · Е I OR 2 ТО ЕХП"; F·
370 0Nf'G01'0330 ,380
380 END
SEM:J:
LOG REGRES'!:>ION
SAl1f'L.E
SAMF'LE х
SAMf't .E у
CORRECTEO
1
1
1. 25
2
2
1.05
3
з
2
1
1
2. 19
5
5
2.66
6
6
3, 17
7
7
З.'55
8
8
1,02
ТНЕ CORRH. AПON IS , 983959
тне: CtOSER Tll +1 OR -1
,
Т!tЕ [:ЕТТ[I< Т11Е DATA FIТS
ТНЕ MODEL INY=INA+E:X
Распечатка 6.6 .
1,11316
1. 6'5029
1,92678
2.24961
2~62652
3, 06659
3.58038
1.10026
у
123
Рис. 6.4. Линейно-логарифмическая зависимость
y=lgx
где
Ь = п'2.ху- '2.х'2.у .
nLt2 -(Lx)2 '
а = (1/п) (2°:у - Ь2°:х).
Коэффициент корреляции
R=
п:rху- '2.х'2.у
ОZ468
у [n'2.x2-('2,x)2] [n'2,y2-('2,y)2]
]1о
х
На рис. 6. 4 . показано типичное для такой зависимости рассея
ние точек.
Программа REG3. Программа занимает 1726 байт оперативной
памяти (распечатка 6.6).
Номер
наблюдения
1
2
3
4
5
6
7
8
Полулогарифмическая регрессия
Наблюдение
х
1
2
3
4
5
6
7
8
Наблюдение
у
1,25
1,85.
2
2,19
2,66
3,17
3,55
4,02
Коэффициент корреляции 0,983959
Чем ближе к 1, тем точнее данные удовлетворяют модели
lnY=lnA+ ВХ
К распечатке 6.6 .
Оценное
значение У
1,41346
1,65029
1,92678
2,24961
2,62652
3,06659
3,58038
4,18026
Хотелось бы предостеречь тех, кто будет пользоваться моделями
регрессионного анализа, отличными от линейных. При решении ин
женерных задач к ошибочным выводам могут привести исходные дан
ные, методы анализа или данные и метод . Поэтому, • прежде чем
использовать ту или иную модель, инженер должен убедиться в том,
что исходные данные удовлетворяют выбранной модели. Для иллю
страции этого положения можно воспользоваться приведенными ни
же результатами расчетов по программе REGЗ. Обратите внимание
на то, что усредненные значения не очень хорошо совпадают с фак-
124
тичее1шми значениями У. Эrо можно объяснить одной из следующих
причин: слишком велик диапазон значений У, зависящих от величи
ны Х или модель регрессии плохо представляет множество точек
(Х, У), полученное в результате наблюдений.
Наглядным примером не слишком умелого подбора линии регрес
сии служат приведенные в книге расчеты, из которых видно, что
коэффициент корреляции составляет 0,9839 . Отсюда следует, что
линейно-логарифмическая зависимость неточно представляет мно
жество исходных точек.
Нелинейная регрессия. В случае нелинейной регрессии по оси
ОХ наносится линейная шкала, в то время как по оси ОУ шкала
представляет собой некоторую показательную функцию Х.
Данная программа написана для уравнения параболы второr(}
порядка. Математическая ~одель имеет вид:
1 RE" PROGRA" NA"E REC 1
Z RE" COIIPUTER APPLICAПONS FOR ТНЕ 11FC ENC
3 REK WRITTEN ВУ J,E,NICKS
1 RE" СОРУ RICHT 1981 ALL RICHTS RESERVED
10 FQRXzOT032:PRINT:NEXTX
20 F'RINT"THIS RECRESSION /100EL IS USED FOR"
30 PRINT"CURVII.INEAR DATA"
10 PRINT"WHEN Х IS LINEAR AND У IS CURVED"
SO PRINT"THE PROCRAK IS OEVELOPED IN 2 PARTS"
60 F'RINT "Tl!E FIRST PART IS INPUТТINC Х AND У 0-' ITA"
70 PRINT"ANO ТНЕ SECOND PART IS FOR SINCLE ENTRIES FOR FORECASТINC"
71 INPUT"ТYPE IN ТНЕ NAKE DF Х";Х•
72 INf"UT"ТYPE IN ТНЕ NAKE OF Y";YS
80 INPUT"INF'UT ТНЕ NU"BER OF DATA POINTS";N
90 RE" X<I>=X,Y(J)zY,A=SU/1 Х, B=SUK У
100 FORI=IТON
110 INf'LIT "ENTER Х AND У ОАТА, SEPARATE ВУ А COK"A ";X<I>,Y<I)
120 A=A+X<I):B=B+Y(I)
130 NEXT I
110 REK ХВ=Х 8AR
1S0 XB=A/N
160 FORI=ITON
170 Xl(I!=X(l)-XB:C=C+(Xl<I>•Y<I>>:D(l)=Xl<I)[2
180 E=E+(D(I!•Y<I>!:F=F+D(I>:G=C+(X1(I)[1)
190 NEXТI
ZOO E:l=C/F
210 B2=(E-<<BIN>•F!)/(G-((F/N!•F>)
220 BQ=<B-<B2•F>>IN
221 L.F'RINT "81", "82", "ВО"
222 LPRINT Bl,82,BO
230 LPRINT снR•< 27) :снR•< 11); "CURVII.INEAR REGRESSION"
210 LPRINT CHRt<Z>;
2S0 LPRINT "IТE"",Xt,Yt,"FOR ECAS TED У"
260 LP~INT 11Х11 , 1'У'1 , 1'УЕ''
265 LPRINT
27 О FORI= !ТОН
280 YE=BO+(Bl•Xl<I>>+<B2•D<I>>
290 LF'RINT I,X<I>,Y<I>,YE
300 NEXТI
310 LPRINT •• "
320 f'RINT"FOR А SINGLE ENTRY ТУРЕ I OR 2 ТО EXIT"
330 INF'UTO
331 ONOGOTOЭ10,100
310 INF·UT"THE VALUE OF Х IS";X
ЭSО YE=BO+<Bl•<X-XE:) )+<В2•< <X-XBHZ> >
360 LPRINT "F .OR А VALUE OF"; Х; "УЕ EOUALS": УЕ
370 F'RINT "FOR ANOTHER ENTRY ТУРЕ I OR 2 ТО EXIT"
ЗВО INPUTO
390 ONOGOTOЭ10,100
• 100 ENO
125
r:1
E<Z
f',O
1. Н9Н~,8
-
. t:107~;1.,
~ 1 .9158
1:~::t.JJ:.:V TI. .. ::ТNE_~ Af-~ f<E~(";R t:: : !:;f:; I , C)N
rпм
х OAIA
у [)АГА
FOR[CASTEO у
х
у
УЕ
;>
-8 . 6~i55
111
6
10.2082
"
16
16
241. 21 .lfB
q
17
23
25.6339
10
;>В
26.7916
6
,.,, .,
32
28.8069
f OR А VAL I.IE OF 3 Yf' EllUAl_5.·· 10,0316
f Of.: А VAL LJE (Jf q УЕ' E"OUALS - lЭ.2128
ГОR А VAL.IJE OF 5 УЕ E:-OUAL.S ·--8.6555
+У
HIR А VALIJF. '
OF 6 Yf E(IUAL.S · -q , 3597:J
f"OR А VAL.LIE. (Jf 7 УЕ E'Ol!Al_S··-. 3254174
f'(JR А 1JAI. I.JI:. (lf в УЕ E(IUAL.S з . ~"\727
F OR А VAI_LIE OF 9 УЕ ПШАL5 6.95851 .
HIR А VALI.IE . IJF 111 УЕ EotJAl.S 10 , 2082
+•о
ПIR (\ VAI. LIE . OF 11 У[ [ 'QLIAL.S 1З.196q
f'OR А VAL.LIE OF 12 УЕ EOLIALS 15.92]1
F OR А VALLJF. (Jf 1:1 н· ECШAL. S 10,3883
IOR А VAI. LIE [lf \q УЕ El1UAL5 20,592
FOf.: А VAl..llt: [lf 1~; УЕ EOLIAL.S 22,53-12
f-10
FПR А VAI" LIE OF 1;, УЕ EOOALS 2-'Ч. 21 'IB
f OR А VAL..IJE OF 17 УЕ EШJALS 25.6339
ГОR А VALIJt· Of' 10 УЕ [QUALS 26,7916
HIR А VAI..LН: OF 19 У[ [ПIJALS 27. 6El77
+>D
f OR А VAI..LJE OF 20 УЕ E.OUAL..S 28,3223
F· OR А VALI.IE OF 21 УЕ. EOUALS 28.69541
ПIR А VAI. UE OF 22 УЕ EQIJAL.S 28.8069
1·0R А VALLJE IJF ;,3 УЕ EOUALS 28.657
ПIR А VAL LIE (Jf' 2 .4 УЕ EIJUAL.S 28.2-'Ч56
..
+к
1· ок А VAI.LIE □ F· 25 УЕ EQUALS 27.5726
>о
,о
FOR А VAL.LIE . □ F· 26 УЕ EllUALS 26.6381
l' OR А VAL .LIE OF 27 УЕ EQUALS 25.1 '\21
1· 0R А VAL.LIE OF 28 УЕ EllUALS 23.9846
.,.
FOR А VAL.LIE OF 29 У[ E.(ШALS 22.2656
FOR А VAI..LIE OF 30 УЕ EOUALS 20.2851
FOR А VAL.1 .IE OF 31 УЕ EIШALS 1!1.0131
FOR А VAL.llf OF 32_ У[ E(ШA L S 15.5395
~-□,;, А VALIJE DF 33 УЕ ElШALS 12.7745 - ..
ГОR А VALLIE: □ F· 31 У[ EQUALS 9,7q7e9
ГОR А VALUE OF 35 УЕ EllUALS 6.41598
ПIR А VALLIE OF 36 УЕ EllUALS 2,9102 ~
f '' OR А VA!_i .11:: OF 37 У[ EllUALS-, 900871
-у
FOR А VAL.LIE OF 38 У[ EOLJAL. S-1 . 9735
FOR А VALLIE. OF 39 УЕ EQUALS-9 ,30766
ПIR А VALlJE OF 10 УЕ EQUALS-13 .9033
Р аспечатка 6.7 .
У=Ь0+Ь1Х1+Ь2Х;+е.
Параметры этой модели могут быть оценены с помощью следующей
системы уравнений , которые решаются методом подстановки:
1:У= nb0+b1~Х+Ь21:Х2;
1:ХУ = Ь0 ~Х+Ь1 1:Х2 +Ь2 ~Х3;
1:УХ2= Ьо1:Х2+bl1:Х3+Ь2~Х4•
Далее приведены текст п рограммы и результаты ее работы.
Программа REG4. Программа зани мает 1338 байт опер ати вной
памяти ( ра с печатка 6.7) .
'
В этой программе в качестве линии регрессии испол ьзуется пара
бола, параметры которой оцениваются по нескольким исходным точ
кам (см . результаты расчетов).
126
В качестве исходных данных были использованы по шесть наблю
дений по каждой переменной. Программа была переработана, чтобы
обеспечить вывод на печать в том виде, как это показано . Прежде
чем мы закончим рассмотрение моделей регрессионного анализа, еще
раз подчеркнем: необходимо хорошо представлять форму кривой
перед тем, как выбрать модель регрессии.
В1.
В2
1,89858
-0,130756
Нелинейная регрессия
Номер
Наблюдение Х
Наблюдение У
наблюдения
1
5
2
10
3
16
4
17
5
18
6
22
Для Х равного 3, УЕ равняется -18,0316
Для Х, равного 4, УЕ равняется -13,2128
Для Х, равного 5, УЕ равняется -8,6555
Для Х, равного 40, УЕ равняется -- 13,9033
ДJiя Х, равного 40, УЕ равняется -13,9033
2
6
16
23
28
32
во
21,9158
Оцененное
значение У
-8,6555
1{),2082
24,2148
25,6339
26,7916
28,8069
Все программы в этой главе имеют одинаковое построение. После
операторов, обеспечивающих ввод данных в программу пользовате
лем, следуют операторы, выполняющие следующие функции:
проведение расчетов внутри первого цикла FOR - NEXT;
осуществление непосредственного доступа к любому элементу
данных с использованием индексированных переменных;
проведение расчетов средних значений;
проведение дополнительных вычислений внутри второго цикла
FOR - NEXT. До начала второго цикла все данные должны быть
уже введены в программу;
проведение расчетов прогнозируемых или выравненных значений
УЕ внутри последнего цикла.
При использовании регрессионного анализа возникает проблема
выбора модели, наилучшим образом представляющей совокупность
данных. Необходимо «подогнать» модель под данные, а не данные под
модель. Данные, если только они не подобраны специально, редко
точно удовлетворяют уравнению регрессии.
6.6. ПОДБОР ФУНКЦИОНАЛЬНЫХ ЗАВИСИМОСТЕА
Подбор функциональной зависимости для описания наблюдаемых
данных можно проводить одним из трех методов: графоаналитиче
ской обработки ; стандартных погрешностей и ортогональных поли - \
номов.
127
Метод графоаналитической обработки заслуживает внимания
тех, кто впервые решает задачи, связанные с регрессионным анали
зом. Отображение скопления точек на обычном графике позволит
инженеру понять, какого типа данные были собраны. Если связь
между Х и У линейная, то на графике это будет хорошо видно . Воз
можно, в некоторых случаях потребуется изменить масштаб, чтобы
удобнее расположить прямую линию на графике, например, разде
лить значение переменной на 10, 100 или 1000. Можно использовать
различные шкалы для осей координат. Для выяснения харак
тера данных может оказаться полезным применение логарифмиче
ской шкалы на одной или двух осях координат . Точки, нанесенные
на такой график, образуют прямую линию.
Второй метод проверки предположения о виде функциональной
зависимости заключается в использовании формул расчета стандарт
ной ошибки. Этот метод называется методом стандартных ошибок.
В качестве примера ниже приведены две такие формулы: стандарт
ная погрешность для линейной регрессии
а = 1/r '2.у2-Ь1'2.у-Ь2'2.ху .
хуV
n-df
'
стандартная погрешность для нелинейной регрессии
(J . = 1/ '2.у-уе
хУ
n-df •
Результаты вычислений по . этим формулам проверяются по F-
распределению . Этот раздел математической статистики носит наз
вание статистического вывода, или проверки гипотез .
Третий метод проверки предположения о том, что выбранная
формула наилучшим образом описывает исходные данные, называ
ется методом ортогональных полиномов. При проверке этим методом
формируется таблица с ключевыми элементами, которые и определя
ют наилучший выбор . Если шкала по оси ОХ равномерная, ключевые
элементы в таблице рассматриваются с помощью ортогональных по
линомов. Если шкала неравномерная, используются другие методы.
Однако этот метод рекомендуется применять только тем, кто знаком с
математической статистикой.
Упражнение .6.1 (наименее трудное). Написать программу расчета числа
размещений и сочетаний. Она позволит выяснить ,- как ваша ЭВМ рассчитыва
ет факториалы. Ниже приведены необходимые формулы и определения .
Число размещений из п элементов по r элементов в группе определяется
по формуле
р п--'- п!
r-
'
(n-r)!
где п_ - общее число элементов; r -
· число
элементов в группе. Например,
если из коробки, содержащей 10 предметов, вынимают по три предмета, то
128
р,о
10!
10-9-8-7-6-5-4-3 -2-1
з .=- --=- -- -- --=720.
(10-3)!
7.5.5.4.3 .2.1
Число сочетаний из п элементов, объединенных в группы по г элементов
в каждой, определяется по формуле
сп- п!
г- r!(n--r)!
Используя данные примера, найдем сочетания из I О предметов по три:
101
10-9 -8 -7
с~о= ----.
=
----=120 .
3!(10-3)! 3-2 -1 -7!
Упражнение 6.2 (средней трудности). Переписать программу REGI, вклю
чив в нее формулы расчета стандартной погрешности.
Упражнение 6.З (трудное). Написать программу, оuенивающую парамет
ры уравнения множественной регрессии для ·трех независимых Х в одной
зависимой У переменных :
5 Зак. 2156
Глава 7
АНАЛИЗ ЗАТРАТ РАБОЧЕГО ВРЕМЕНИ
7.1. ХРОНОМЕТРИРОВАНИЕ
Изучение затрат рабочего времени традиционно считалось обя
занностью инженера по организации производства. Методы хроно
метрирования воплотили в себе искусство и научные знания многих
основоположников научного управления в Америке. Наиболее из
вестные из них - Фредерик Тейлор, Фрэнк и Лилиан Гилберт, а из
более поздних авторов - Ральф Барнес.
В последнее десятилетие колледжи и университеты разработали
учебные планы и программы специально для подготовки инжене
ров-технологов. В них вошли многие предметы, которые традицион
но изучали инженеры по организации производства. По мере рас
ширения круга обязанностей инженера-технолога многие учебные
заведения сочли необходимым разработать курсы лекций по таким
дисципилинам, как изучение движений и хронометрирование, анализ
рабочего времени на основе моментных наблюдений, планировка ра
бочих. мест, перемещение материалов и др.
В колледжах и университетах подготовка по этим двум специаль
ностям ведется по различным планам, имеющим четкое разграниче
ние. Однако в реальных производственных условиях такое разгра
ничение в ряде случаев стирается. Конечно, это не означает, что ин
женер-технолог должен стать экспертом по изучению трудовых про
цессов, но определенные знания в этой области у него должны
быть. Хронометрирование - это только один из многих предметов,
изучаемых инженером по организации производства, однако моло
дые инженеры, только что окончившие высшие учебные заведения,
как правило, начинают свою трудовую деятельность в должности
нормировщика. На многих предприятиях считают, что кратковре
менная работа непосредственно в цехе - это самый лучший способ
познакомить молодого инженера с производством. Работа в цехе
обычно связана с установлением норм времени с помощью хрономет
ража.
Другая причина, по которой высшие учебные заведения включают
этот предмет в планы подготовки инженеров -технологов, заключает
ся в том, чтобы привить будущим инженерам качество, которое ав
тор называет «чувством времени». Представление о времени являет
ся важной составной частью подготовки инженера и служит в даль
нейшем основой для работы в области оценки затрат.
Дилемма, которая встает перед высшими учебными заведениями,
занятыми обучением инженеров-технологов, заключается в том, что
130
они стараются подготовить инженера, способного выполнять обе
функции, и в то же время избегают включать в учебные планы пред
меты, традиционно изучаемые инженерами по организации произ
водства.
По этой и некоторым другим причинам в учебные планы включа
ется только один курс, в рамках которого и изучается тема по хро
нометрированию трудовых проuессов . Более того, этот курс охваты
вает и многие другие темы. В этих условиях напрашивается вопрос:
«Могут ли в высшем учебном заведении научить инженера-технолога
правильно проводить хронометрирование?». Ответ будет отриuатель
ным.
При подготовке инженеров по организации производства препо
давание многих дисциплин за последнее время улучшилось. Однако,
мы считаем, что обучение методам хронометрирования отстает от
современных требований . Перечисление проблем обучения, их крат
кий обзор ставят своей целью подготовить читателя к рассмотрению
тех вопросов, которым посвящена эта глава.
В этой главе представлены две программы. Первая программа
называется TIME и позволяет проводить запись и обработку резуль
татов хронометража с помощью микроЭВМ. Вторая программа на
зы вается RATIO. Она может быть полезна инженеру при проведе
нии исследований на основе выборочных наблюдений.
7.2. ПРОГРАММА ТIМЕ
Чтобы объяснить, каким образом ЭВМ можно использовать в ка
честве секундомера, необходимо дать некоторые пояснения о внут
реннем устройстве ЭВМ. Фактически, в микроЭВМ имеется двое ча
сов: одни - это генератор импульсов истинного времени, работаю
щий как обычные часы, другие - это цикл FOR - NEXT. Обыч
ные часы измеряют время в секундах и поэтому не обеспечивают не
обходимой точности при хронометражных наблюдениях. Цикл
FOR - NEXT может иметь любую продолжительность в зависимо
сти от того, что выполняется внутри цикла.
В программе, представленной в этой главе, именно цикл FOR -
NEXT используется для измерения времени. Можно подсоеди
нить к микроЭВМ цифровое или аналоговое устройство, которое вы
полняло бы функции таймера. На практике этого не делают из-за
высокой стоимости такого соединения. Прежде чем рассмотреть ре
зультаты работы программы TIME, необходимо пояснить, как ра
ботает программа. Так же как и при обычцом хронометраже, инже
нер фиксирует наименование и номер операции, значения скоростей
и подач. Затем он вводит описание до 8 элементов, на которые делит
ся операция. Как только внутренний секундомер (uикл FOR -
NEXT) начинает отсчет времени, инженеру необходимо делать
лишь одно - нажимать клавишу с соответствующим номером, что
бы зафиксировать конец элемента операции. ЭВМ прекращает вы
полнение цикла, записывает значение времени, управление вновь
5*
131
передается в начало цикла, и ЭВМ начинает измерять продолжи
тельность следующего элемента. На прерывание цикла уходит не
более 20 мкс. Во время выполнения цикла происходит стробирование
клавиатуры, и как только инженер касается клавиши, ЭВМ прекра
щает выполнение никла. Все, кому приходилось пользоваться се
кундомером в процессе проведения обычных хронометрических наб
людений, представляют себе, насколько упрощается техника хроно
метража, если на наблюдательном листе не надо записывать показа
ния текущего времени. Измерение затрат времени с помощью ЭВМ.
позволит наблюдателю сосредоточить свое внимание не на считыва
нии показаний секундомера, а на том, что делает в данный момент
рабочий. Исчезают какие-либо требования к технике хронометри
рования.
Закончив хронометрирование, инженер может просмотреть на •
экране ЭЛТ значения отдельных замеров и исключить замеры, вызы
вающие сомнение, так же как это делается при обычном хрономет
раже.
Одним из недостатков применения ЭВМ для проведения хроно
метражных наблюдений является то, что наблюдатель лишен воз
можности делать отметку об отступлениях от нормальных условий
выполнения элементов операции с помощью условных обозначений.
Например: ПР - посторонние разговоры, НД
-
неловкие движе
ния и т. п. Хотя ЭВМ позволяет делать такие отметки, это прерыва
ет выполнение цикла, отсчитывающего время, и ведет к потере точно
сти результатов наблюдений . Отмеченный недостаток имеет вто
ростепенное значение по сра"Внению с теми преимуществами, кото
рое дает применение ЭВМ
Еще одна небольшая трудность связана с установкой ЭВМ в це
хе вблизи рабочего места. Для транспортирования Э13М вместе с
дисководами, печатающим устройством и дисплеем была использо
вана тележка размером 508 х 890 мм. Несколько слов о мерах предо
сторожности при работе в цехе. Чтобы избежать помех от электро
двигателей, магнитных полей и статического электричества, жела
тельно все электрические разъемы ЭВМ оснастить фильтрами и уста
новить стабилизатор напряжения. Со стабилизатором ЭВМ можно
включать в сеть напряжением 115 В. После окончания хронометра
жа и исключения дефектных замеров инженер вводит значения ко
эффициента приведения к нормальному темпу работы и надбавок
времени к норме. ЭВМ рассчитывает норму и печатает результаты .
Единственное, чего не может сделать ЭВМ - это воспроизвести
эскиз планировки рабочего места. Правильнее было бы сказать «по
ка не может», так как подготовка эскиза - это следующий шаг в раз
работке программы. Без затрат труда на дополнительное програм
мирование этого можно добиться, используя электронный uифратор
или световое перо .
'
Описание программы. Применение этого метода хронометриро
вания обеспечивает более точные результаты, чем замеры обычным
секундомером. Программа, позволяющая автоматизировать процесс
132
изучения затрат рабочего времени, выполняется в следующей после
довательности.
1. В каждой изучаемой операции выделяется до восьми элемен
тов.
2 . На каждый элемент отводится до 25 наблюдений (это количе
ство можно варьировать, для чего необходимо изменить размер
ность оператора DIM в строке 20) .
3. ЭВМ начинает работать как секундомер после введения опи-
саний всех элементов.
•
4 . После окончания хронометрирования вводятся значения ко
эффициентов, учитывающих темп выполнения каждого элемента.
При необходимости можно исключить дефектные замеры.
5. Вводятся значения надбавок к норме времени.
6. Вводятся зна_чения повторяемости для каждого элемента.
7. Результаты обработок и данных хронометрирования выводят-
ся на печатающее устройство.
•
Программа ТIМЕ. Программа занимает 12308 байт оператив
ной памяти (распечатка 7 .1).
Комментарии к программе . Первые 50 строк программы содержат
инструкции для пользователя и операторы, организующие ввод в
программу информации, которая при традиционном методе хроно
метрирования обычно фиксируется в начале наблюдательного листа.
Операторы в строках 360 и 370 выводят на экран подсказку пользо
вателю о необходимости, когда это возможно, использовать сокра
щения в описании элементов операции. Строки 510-605 содержат
бесконечный цикл FOR - NEXT, с помощью которого измеряется
фактическая продолжительность отдельных з&меров. По оператору
INKEY.$ состояние электрических цепей клавиатуры постоянно про
веряется, пока не будет нажата клавиша с цифрой. Как только на-
1 REM r·r ,oGRAM NAME TIME
2 REM HRITTEN ВУ J,E ,NICKS
3 REM COf'YRIGHT 1981 AL .L RIGHTS RESERVED
q REM COMF'LIТER Af'f'LICAТIONS FOR ТНЕ MANUFACTURING ENGINEER
10 CLEARlOOO
20 OIHA<25) ,Е:< 25> ,С(25) ,0<25> ,Е<25> ,F<25> ,(;(25) ,H<2~j)
30 CL.S
qo PRINT"TIOS PROGRAM IS DESIGNEO FOR ТНЕ ENGINEER"
50 PRINT"TO тм:Е TIME SТIJOIES ON ТНЕ MICROCOMf'llТER"
60 F'RINT "THE f'ROGRAM WIL .L . АССЕРТ UF' ТО 7 TOTAL EL"EMENTS"
65 PRINT"ELEHENT В CAN ВЕ USED FOR А FOREIGN ELEMENT REGISTER"
66 F'RINT"OR AS А REGlJLAR EL.EMENT
------BUT
NOT Е:ОТН-----"
70 PRINT"AND 25 RECORDINGS FOR ЕАСН EL.EHENT, "
во f'RINT"AПER ТНЕ STUDY HAS BEEN тм:ЕN, RAТING FACTORS ARE INf'UПED "
100 F'RINT"П1EN А RATE OF F'RODUCTION HIL .L Е:Е CALCULATED , "
110 PRINT:PRINT:f'RINT
120 IN f'llТ "ТУF'Е IN ТНЕ PART NUME:ER" ;А$
130 INF'LП"ТYPE IN ГНЕ PART NAME";E:$
110 INf'UT"ТYP E IN П1Е DATE ОО/ОО/ОО";С$
150 INf'llТ"ТYF""E IN ТНЕ ENGINEER' S NAME "; D$
170 INf'llТ"ТYf'E IN ТНЕ Of'ERAТIDN DESCRif'ТION" ;[$
180 INf'UT"ТYF'E IN П1Е Df'ERAТION NIJME:ER" ;f'$
190 c~_s
200 PRINT"OTHER ]Nf'ORMAТION"
21 О INF'UT "NLJHE:ER OF MACHINES"; (;$
Распечатка 7.1
134
?70 INF'LJТ " NlJME:[f;: □ F· OF'ERATJ .ONS" ;!-1$
2/0 INPLJT"f;:pн OR sтr.: □ HES F·ER НIЖJТЕ" ;J$
ZHO INF'lJТ"SFF'M" р($
290 TNf'lJТ"FEED f'ER MINUTE: REV : f'ER ТСЮТН" ;(_$
30 О INf'llТ"CllТ: DEF'TH: W:ШТН: l .. ENGTH " ;М$
310 INl''LIТ"CllТТING TDOL ТYf'E";N$
::1эо CL s
340 l'NlNT "TYF'E IN AN ELEMENT DESCRIF'TION FOR ЕАСН ELEMENT "
350 F'RINT"AND LIMIT ТНЕ DESCRif'TIDN ТО 80 CHARACTERS,"
:160 f'· RI NT"LJSF AE:E:r<EVIAТIDNS WHEN f'OSSIE:LE,"
370 f'RINT "EX: R,H , REACH HJ: f',U , SП( & l.OC ТО FIX"
380 INf'lJТ"ТYPE IN ТНЕ NUME:ER OF El_EM E NTS"; N
390 FORI,,J TON
395 f•f<INT"ТYPE IN ТНЕ El_EMENT DESCRIF'ТION"
400 INPUTPS(l)
110 NE'XТI
470 ~LS:PRINT"ONCE YOU START ТНЕ TIME STUDY,"
430 PRINT"DEPRESS П1Е NUME:ER J(EY ТНАТ COINCIDES WIПI"
440 f'RINT "THE COMPLEТION OR E:REAl(f'OINT OF ЕАСН El _EMENT , "
450 f:•RINT"EXAMF'LE: 1.2,з,.q,s,6,7,8"
45~ l ''RINT " HJ END ТНЕ SТLIOY ТУF"Е 9,"
q~;6 f·RINT"NOH:: ELEMENT В CAN Е:Е USEO FOR А l'OREIGN ELEMENT"
4~;7 f·RINT"IF SOMETНING OCCURS OURING ТНЕ SТIJDY ТНАТ LATER SHOLILD"
458 f'r , :,.NT "CROSSED OUT ( I, Е, GET DRINl(-TALJ(-l_EAVE ЕТС > "
459 f'RINT " TYf 'E IN 8, THEN LATER ENTER 1000 AS А RATING FACTOR"
S60 INF'LJТ"ТCJ START ТНЕ INTERNAL CLOCJ: ТУF'Е 1 AND [NTER WHEN READY";A
470 ONACOHJ4BO
•
400 А=о:в-о:с-о:о=о:Е•о:r=о:с-о:н=о
500 CL.~;
~ 11 О FORI==l ТОЗООО
520 l]S=INJ:EYS:п·as="1"HIEN610
530 lf~QS==''2 ' ' THEN620
540 IFl]S="З"THEN630
5~0 п : аf.:: " 1"ТНЕN6'ЧО
560 п~ а.~= " 5"ТНЕN650
570 If:Qt,= ' '6' 'THEN660
590 IFQS= " 7 "THEN670
590 п: Ot,::"EI" THEN6AO
600 lf-Qt, ,:: " 9 "THEN6rlo
605 .NE ХТ
6 t О А:::А t-1: А (А) ::CI/925: N1 =N1+1: F'RINT "Et_EHENT 1 ", А, А< А): GOT051 О
620 E::=[:-tl :в<E::>=I/925:N2=N2+1 :F·RINT "ELEHENT 2",Е:,Е:СЕ:> :(;QT0510
630 Сс:, с+ 1: С< С) c:cI/925: NЗ=NЗ+1: F·RINT "f .LEHENT 3", С, С (С>: GOT0'51 О
610 D~D+l: [)(O)~I/925:N'Ч==N1+1:F'RIN·r • •ELEHENT 1'',D,D<O):G □ T0510
650 f."c.::f:. • 1 : Е ( Е) =·:I/925: N::i--:N5+ 1: F"F~INT"ELEHENT 5", Е, Е ( Е): GOT051 О
660 F·:sf -t · 1 :F~о~) =·I/925: N6=N6+1:F'R1NT"ELEHENT 6 " , F. ,F <F):(;()1051 О
67 О С-=.(; •· "L :i:; (С) =I/925: N7==N7+1 :PRINT"f"l .E "HENT 7", С, G ( G): GOT0'510
680 Н-=+Н 1: Н <Н > =~I/92~i: NB=N8 t-1: F'RJNT"ELE"HENT В", Н, Н <Н): с;отоs1 О
690 GОП1700
700 lYF<INT"END"
(!ЭО l .PRlNT"TlHE SHJDY F"OR
" ;AS;"
810 lPRTNl''F 'ART NAME
••:f:$
Н~,О U··RTNT"OAП ":С$;"
ENGINfER
Ш,О l . F'f<IN 1 " r>f•ERA I ION DESCR1f'ПON
870 L.. f -•R [N 1"NO ПF HACHINES
"; CS;"
880 LPRINTГ:HRS(1З8>
Е190 1 f·RJNT"Г.:F·н OR SPH
"; ..JS
B9~-J
i. _f ··RlNl "SF f ·H
";t~S
90U I f'RTN1·•тЕED F'ЕГ\
"; I_$
'110
1 f··RJ:Nf"CLП: ОfF•тн: \,ПОП-1
";мs
920 l F'RIN!"ClJПJNG f(JIJL
";NS
930 l f·RJ.NTCHRS ( 1 ЭВ)
";о,
";E:s
NO OF OF'ERAТIONS
";н,
Ч10 CL~:l~JNT"THE NEXT SFCIION IS WHERE CROSSOUTS Г:АN ВЕ MADE,"
9,;о r·RINl "THF. RAW ОАТА Wlll_ Af·f·EAR А'! ТНЕ ТОР OF ТIIE SCREEN"
'160 S'ION Г"ANI) 1АСН CYГ:t_F <ONE АТ А ПМЕ > АТ ТНЕ Е:ОТТОМ,"
Распечатка 7.1 (продолжение)
975 F'HINT"IF IT IS ТО Е:Е CROSSEO OUT, TYf:•E 2. "
980 PRINT"THE RAПN!; FACTOR IS ALSO INF'LIПE[> IN TIOS SECТION,"
990 F"RINT"INPLJТ ТНЕ Fi:ATING FACTOR AS А DECTHAL. , I.F • . 90% . "
1000 INF'UT "TYPE 1 ТО CONTINUE";Z
1010 ONZGOT01020
Hl?O Cl.S
1 0311 l..F 'RINT "ELEMENT 1"
10i0 l.PRINTP S (1)
1050 f' · R INT "ELEMENT 1"
11160 PRINП·s <1 >
1070 INP!JT''RATING FACT(IR FOR THIS ELEHENT'':Rl
1080 L. PRINT"RAH DATA"
1090 FORA•ITONl:Al•Al+A<A>:PRINTA , A<A>, : LPRINTA;A<A>; : NEXTA
1095 LPRINTCHRS<IЗBI
1100 A2=A1/N1:PRINT"SUH" ; Al ; "AVERAGE";A2
1110 LPRINT"SUH";Al;"AVERAGE";A2
112 О f'ORA•'l HiN 1
1130 PRINT@850,A ,A<A)
11'10 INPLIT"TYPE 1 IF Ш{ OR 2 FOR CROSSOlJT";Y
1150 ONYGOTO1160,1180
1160 NEXTA
1170 GOTO1190
1180 A,Al•0IX•X+IINEXTA
1190 A1-0IA2=0
1200 FORA • ITONl:Al•Al+A(A>INEXTA
1210 A2=<A1/(N1-X>>•R1
1:'20 l . F'RINT "CORRECTED AND RATED DATA"
1230 t..PRINT "RATING FOR THIS ELEHENT"; Rl
1210 FORA=lTONl:LPRINTA;A<A>;:NEXTA
1215 LPRINTCHRS(138)
1~!50 LPRINT "SUH " ; Al; "RATED AVERAGE"; А2
1255 FORI-1тo2:LPRINTCHR$(138)1NEXTI
1265 IFE:=0T ► ~EN1520ELSE1270
1270 Cl.S
1280 L.PRTNT "EL.EMENT 2"
1290 LPRINTf)$(2)
1300 F'RINT"ELEMENT 2"
1З10 PRINП· S<Z>
1320 INF'UT "RATING FOR ПНS ELEMENT";Rz
1330 L.F 'RINT "RAH ОАТА"
1310 FORE=1T □ N2:в1~в1+B(B>:PRINTB,B<B>,:LPRIN "ГB:B<B>;:NEXTB
1Зi5 LPRINTCHRS<IЗB>
1350 E:Z=E:1/N2:F'RINT "SUM"iE:1i"AVERAGE";E:2
1360 LPRINT"SUH " ;ЕН; "AVERAGE" ;Е:2
1З70 П!RЕ:=·1 TON2
1300 PRIN1"@850 ,B,8(B)
1 Э90 INF "UT"TYPE 1 п~ т~ OR 2 FOR CR0!5SOUT"; У
1100 ONYGOTU1110,1130
!НО NEXlE:
1120 1;ото11qо
!iЗО B<B>•0IXl•X1+11NEXTB
1-Ч10 Е:1:..~ о:Е:2=0
1450 F(IR8~1тoN2:в1=Bl+B(B):NEXTB
1160 B2=(81/(N2 - Xl))жR2
1170 LF'RINT "" CORRECTED AND RATED DATA"
1180 l.F'RINT"RAТING FOR TНIS El.EMENT " "; R2
1i90 FORB•1TON2:LPRINTB;B<Bl;INEXTB
1i95 LPRINTCHR$(1~31
150 О L..PRINT"SLJH "; Е:1; "RATED AVERA(;I:" ;Е:2
l~il0 FORI:=11·02a.PRJNTCHRf.(1Э8) :нЕхТ· I
152U IFC=0THEN1780ELSE1530
1530 CLS
1:'°J10 L..PRINT "EL..EHENT З"
1550 LPRINTPS(З)
1560 PRINT"EI. EMENT 3"
Распечатка 7.1 (продолжение)
135
136
1~;70 f''RINТf'S(З)
1~;во INF'LJТ "RAПNG FOR THIS ELEHENT" ;Rз
1590 L.PRINT "RAW DATA"
1600 FORC=lTONЗ:Cl=Cl+C(C):F'RINTC,C(C),:LF'RINTC;C(C);:NEXTC
161 О С2=С 1 /NЗ: PRINT"SLJM"; С1; "AVERAGE"; CZ
1615 LF'RINTCHRSC138)
162 О L.. F'RINT"SLIH "; С 1; "AVERA(;E"; С2
1630 ПIRC=l ПINЗ
1610 F'RINT ~850,C ,C(C)
16~j0 INf'llТ"TYPE 1 п~ Ш( OR 2 FOR CROSSOUT";Y
1660 ONYGOT01670,1690
1670 NEXTC
1680 СОП11700
1690 C<C>=O:XZ=X2+1:NEXTC
1700 c1-o:cz -o
1710 FORC=lTONЗ:Cl=Cl+C<C):NEXTC
1720 C2=CC1/CN3-X2>>•RЗ
1730 LYRINT"CORRECTED AND RATED DATA"
17'10 l.F'RINT"RAПNG FOR THIS ELEHENT";RЗ
1750 FORC=ITONЗ:LPRINTC;C<C);:NEXTC
1755 .LPRINTCHRS(138)
1760 l.F 'RINT "SUH";Cl;"RATEO AVERAGE";CZ
1770 FORI•1TOZ:LPRINTCHRS(138>:NEXTI
1780 IFD•OTHENZO'IOELSE1790
1790 CLS
1800 LPRINT"El.EHENT '1"
1 Bl О l.PRINTF'S ( '1)
HIZO F'RINT "El.EHENT '1"
!ЕIЗ О f''RINTPS ( '1)
lEl'IO INF'IJТ"R AТING •oR TНIS ELEHENT" ;R'I
!Е150 L.F'RINT"RAW DATA"
1860 FORD•ITON'IID1•D1+0(D):F'RINTO,D(D),ILPRINTD;D<D>;:NEXTD
1065 LF'RINTCHRS(138)
1070 02=D1/N.ct: F'RINT"SLJM" ;!.Н; "AVERAGE" ;D2
1875 LPRINTCHRS<138)
11:180 L.. PRINT"SLJM"; Dl; "AVERAGE "; 02
Hl9 О FORD•0 1 TON'I
1900 PRINT@850,D~[)(D)
191 О INF'UT "ТУF'Е 1 If' Of( OR ,, FOR CROSSOUT"; У
1920 ONYGOT01930,1950
1930 NЕХП)
1•110 с;ото1960
1950 D<D)•OIXЗ•XЗ+l:NEXTO
1960 01=0:[)2=0
1970 FORD•lTON'l:Dl•Dl+D<D>:NEXTD
1980 DZ•<D1/(N'I-XЗ>)•R'I
1990 l.f'RINT "CORRECTED AND RATED DATA"
2000 l..PRINT"RAТING FOR THIS ELEHENT" ;R'I
2010 FORD•lTON'l:LPRINTD;D<D>;:NEXTD
2015 LPRINTCHRS(138)
2020 LF'RINT"SUH ";Dl;"RATED AVERAGE ";O2
2030 FORI~1тoz:L.PRINTCHRS(138):NEXTI
2010 IFE=0T•1EN2:Э00ELSE2050
20~,О CL S
ё1160 lP RINT "ELEHENT ~ ,"
;1-070 l.. PR .INTP$(~i)
;~ооо PRJNT"EL.EHENT 5"
::090 PRTNTPS<~i)
:~ 1 О О Т.NF·l.JT"F~AT ING ГОR THIS П_Е:МЕN Т" : •~~;
?110 l ..PRINT"RAW DATA"
2170 f:ORE=Jl- □ NS:El==El+E<E>:f)RINTE,f : <E),:L.PRINTE;E([);:NEXTE
21ЭО E2=E1/N5:PR1NT"SLJM " ;Et; "AVERAGE" ;Е::2
213~ l _f)R1NTCHR$(138)
21 qo I ..PГ([NT"SlJH"; [ 1; "AVERA[;E"; Е:2
21~. 'i0 F:·O1XE==1TПNo•j
Распечатка 7. 1 (продолжение)
216~ PRINT@850 ,E,L<E>
2170 INF·UT"TYPE 1 IГ Ш~ OR 2 FOR CROSSOI.JT";Y
21EIO (INYGOl .02190,2210
21r;o NEXTf. .
;!.:'оо r;ото2220
2210 E(E~> =O:X1=X1+1:NEXTE:
2220 Е1:::О:Е2=0
2230 FOR[=~1TON5:E1=El+E<E>:NEXTE
2210 E2:<El/(N5-X1>>•R5
20'50 l.F'RlNT"CORRECTED AND RATED DATA "
2260 l ..F'RINT"f<AТING r· □ R ТШS El. EMENT " :R5
2270 FORE=1TON5:L.PRINTE;E<E>;:NEXTE
2275 LPRINTCHR$(138)
2200 L..PR I N T "SllH " :Е:1; "AVERAGE·' ;Е :.2
?ЭОО п:т=,QHiEN2560EL.. SE231 О
2310 Cl.S
~~Э.20 L.PRINT "ELEMENT6"
2330 lPRINTF' $ <6 >
2310 PRINT"EL.EMENT 6"
2Э50 PRINTPS<6>
2360 INF'UT"RAТING FOR THIS El.EHENT": R6
2370 l.F'RJNT"RAH DATA"
2380 FORF•1TON6:F1•F1•F<F>IPRINTF,F(F),ILF 'RINTF;F<F>:INEXTF
2390 f:·z=Fl /N6: F'RINT"SUH"; f"l: "AVERAGE" a:·z
2395 L.F 'RINTCHR$ < 1 ЭВ>
210 О LF'F:.:INT"SUH"; f"l; "AVERAGE"; f"2
211 О FORF•1ТON6
2120 PRINT@850,F,F(F)
zqэo INF'UT"ТYPE 1 п· Ш( OR 2 FOR CROSSOUT";Y
2110 ONYGOT02150,2170
21~i0 NEXTF
2160 GOT02180
2170 F<F>=O:X5=X5+t:NEXTF
2180 r·1:0 0:F~2=0
2q90 FORF•1TON6:F1•F1+F(F)INEXTF
2500 F2=(F1/(N6-X5>>•R6
2~;10 l.F'RINT"CORRECTED AND RATED DATA "
2520 l.F'RINT"RAТING FOR THIS ELEHENT" :R6
2530 FORF=1TON6:LPRINTF:F·cr>;:NEXTF
2535 LPRINTCHR $(13B>
2510 LPRINT"SUM";Ft;"AVERAGE";F2
2550 FORI•1T021LPRINTCHRS(13BflNEXTI
2560 IFG=OTHEN2820ELSEZ570
2570 CLS
25В0 LF'RINT"EL.EtlENT 7"
2590 LPRINTF'$(7)
2600 F'RINT "ELEHENT 7"
2610 F'RINТF'$(7)
2620 INF'UT "RATINC FOR THIS ELEHENT " ;f<7
2630 LF'RINT "RAH DATA"
2610 FORG•1TON71G1=G!+G(G)IF'RINTG,G<G>,ILF'RINTG;G<G>:INEXTG
2650 G2=G1/N7: PRINT"SUH " ;Gt; ' 1 AVE RAG E" ; G2
2660 l.F 'RINT"SUH" ;Gt; "AVERAGE' '; G2
2665 l.F'RINTCHR$ < 1 ЭВ>
267 О F"ORG= 1 TON7
2680 PRINT@B50 tG,G(G)
2690 INF'UT"ТYF'E 1 IF Of( OR 2 FOR CROssduт";Y
2700 ONYGOT02710t2730
2710 NE:XTG
2720 GOT02710
2730 G<G>•O:X6•X6+1:NEXTG
2710 G1:-:0:G2=0
2750 FORG•!TON71G!=Gl+G(G)INEXTG
2760 G2=(G1/(N7-X6))ЖR7
2770 L.F 'RINT"CORREGTED AND RATED DATA "
Распечатка 7.1 (продолжение)
137
2700 l ..F· RINT"RAТING ГОR THIS ELEMENT "; R7
2790 FORG=l TON7 :L.PRINT~ G< G >;: NEXTG
27У5 LPRINTCHR$(138)
280 0 L. PRINT ''SUH' ':c1:AVERAGE'';G2
2в1n FORT•!T02:LPRINTCHRS(138):N~XTI
2820 [FH~OTHEN3080ELSE2830
2В3П Cl.S
2840 LPRINT"ELEMENT 8"
:~850 L. PRINTP$ <8 >
2860 PRlNT"El.EHENT 8"
2870 PRINTPS<B>
;'В80 INF'UT"RAПNG F"OR НПS ELEMENT "; RB
2В90 l ..PRINT"RAW DATA"
2900 FORH~1TUN8:Hl=Hl+H<H):PRINTH,H<H>,:LPRINTH;H<H>;:NEXT~
291 О Н2=Н 1/NB:F'RINT "SLJH" ; Н1 ; "AVERAGE"; Н2
2915 LPRTN1CHR$1138)
: 1 97.0 L..f •RINT "SLJM "; Hl; "AVERAGE"; Н2
2ЧЭО Hlfi.:H:::_1 HINA
;н,1.qO-F- ·RINTl~FJ~iO,Н,Н(Н>
2950 INPUT"TYPE 1 IF ОИ OR 2 FOR CROSSOUT";Y
7960 (INY~(IT(l2970,2990
21J70 NE" XПi
:'980 сотозооо
2990 ti<t~)=O:X7=Xl+1:NEXTH
эооо н1,:: о:н2:~ о
3005 IFR8•1000THEN3006ELSE3010
3006 l_F ·RINT ''F "ORIEGN ELEMENT NOT ALLOWED": G!=O: G2=0 :с;з=о
3007 GOHJ3070
зotn FORH = 1TONB:н1=H1•H<H>:NEXTH
3020 H2=Ctil/CNB-X7>>•R8
ЗОЗО l ..F 'RINT "CORRECTED AND RATED DATA"
зоqо l .. f'RINT"RAТING FOR TНIS ELEMENT";R8
3050 FORH•!TONB:LPRINTH;HIH);:NEXTH
ЗО55 l ..PRINTCHRSI 1Э8)
3060 l. F'RINT"SUM"; til; "AVERAGE" ; Н2
Э070 f- □ RJoa!T02:LPRINTCHRS(138) :NEXТI
ЗОЕIО CL.S
3081 IFRB•!OOOTHEЫЗП82ELSEЗ090
30Е12 LPRINT"FOR1EGN ELEMENT NOT ALLOWED "
3090 f'RJNT"Pf<DRAТINC;"
3100 PRINT"ГHE NEXI STEP IS ТО PRORATE ANY OF ТНЕ П_EMENTS,"
Э! 10 PRINT"A F'RORATED Н ЕМЕNТ мн;нт Е:Е L.H:E AND INSPECTHIN ELEMENТ"
з1;~0 f··RINT"WHE:RE: ТНЕ AVERAGE E:LEMENT TIME IS OIVIOEO Е:У ТНЕ F'RORATEO F·AcTOR"
3130 PRJNT"EXAMF 'L.E: INSF ' ECТНIN OF EVERY !ОТН f'ARТ"
ЗИО f•RIN "f
:н:;о f'RINT"IF ANY ELEMENT IS то Е:Е f'RDRATED
•
ТУРЕ IN ТНЕ ELEMENТ NO."
:Jlt.O f· RINТ"OR IF NO EL.EMENT 15 PRORATED ТУРЕ 9"
3170 f ·RJ.NT"OR П' YOU ARE COMPLETED ТУРЕ 9"
31 ВО INf'LIТH
3190 (INWGOT03210,32З0,3250,3270,3290
з200 CIN w -5 Gото зз10,зззо,ззsо,зз10
3210 INF' IП"ELEMENT 1 IS PRORATED OR DIVIOED bl";Qll)
3220 AЗ=A2/Ql1>:GOT03140
Э:'ЭО TNF'LH "EL.EMENT 2 IS f·RORATED OR DIVIDED Е:У"; О ( 2)
32111 ~З= f~2/U(2):GOT(l31ЧO
:·1250 JNF 'UT "El.EMENT 3 15 f'RORATED
3260 СЗ=С:2/О<Э>:GОТ031ЧО
:-1270 INF'LJТ"ELEMENT lt IS PRORf.iATE
32НО оз~О2/Q(1):GОТОЗ1ЧО
Э290 INF'I .I 1 "EL [MENT ~ ,
IS F'KORATED
3300 [З•Е2/U(5):СОТОЗ\~П
З310 INF'Ul "[lf:.ME.Nf 6 15 f'RORATEO
3320 f : З=f2/Q(6):GOf03110
ЭЗЗО [NF'Ul "ElEMEN1 7 Е; PRORATEO
Э340 CЗ 0 (_;2/(JI n : СОТОЗ!~U
OR
OR
OR
ПR
OR
DIVIDED Е:У";ОСЭ)
DIVШED E:Y";ocq>
DIVШED Е:У" ;ос5 >
DIVH>ED Е:У" ; 0(6)
DIVШEO f:Y" ;ос 7 >
Распечатка 7.1 (продоJiжение)
138
3350 INF'UT"EL .EHENT В IS f'RORATED OR DIVIDED ВУ" ;о<В>
3360 H3=H2/0(B>:GOT03110
3370 REH PRORATION CDHF'LETE
33В0 REH ALLDWANCES:CLS
3390 f'RINT "THIS SECTION OF ТНЕ PROGRAH IS WHERE ALLOWANCES ARE INF'UТТED"
3100 PRINT"TO INPUT ALLOWANCES, ТУРЕ ТНЕ NUHBER NEXT ТО ТНЕ ALLOWANCE"
3110 PRINT"f'ERSONAL TIHE --- - - - - -------1"
3120 PRINT"TOOLING ALLOWANCE
------ ----2"
3130 f'RINT"HATERIAL HANDLING ----------3 "
3110 f'RINT "OTHER -- --- --- --- --- --- -- ---1"
3115 PRINT"COHF'LETED-- - --- - -5"
3150 INF'UTW
3160 ONWGOT03170,ЗS00,3530,3560,3590
3170 St " "F'ERSONAL ПНЕ"
3180 f'RINT "ENTER PERSONAL ПНЕ IN HIN, PER 8 HR, SHIFT"
3190 INF'UTS1: GOТCJ3380
3500 H="TOOLING ALLOWANCE"
3510 PRINT"ENTER TOOLING AL .LOWANCE IN HIN, PER 8 HR , SHIFТ"
352 О INF'UТТ 1: GOT03380
3530 Ut=" H AT E RIA L HANDL ING"
3510 f'RINT"ENTER HATERIAL HANOLING ALLOWANCE IN HIN , F 'ER 8 HR, SHIFT"
3550 INPUTU1:GOT03380
3560 INF'UT"ТYPE IN ТНЕ NAHE OF ТНЕ OTHER ALLOWANCE";Vt
3570 f'RINT"ENTER ";vs;" ALLDWANCE IN HIN , f 'ER 8 HR, SHIFT"
3580 INF'UTV1:GOT03380
3590 REH E.ND OF ALLOWANCES
3600 REH SUHHARY
3610 REH TOTAL TIHE
3620 IFQ(1>=0THENZ1=Z1+AZELSEZ1=Z1+A3
3630 IF0(2)=0fHENZ1 =Z1+BZELSEZ1=Z1+B3
3610 IFQ(3)=0THENZ1 = Z1+CZELSEZ1=Z1+C3
3650 IFQ(1)=0THE NZ1 =Z1+DZELSEZ1=Z1+D3
3660 IFQ(5)=0THENZ1=Z1+EZELSEZ1=Z1+E3
3670 IF0<6J=OTHENZ1 =Z1+F2ELSEZ1=Z1+F3
36В0 IFQ(7)=0THENZ1=Z1+GZELSEZl=Z1+G3
3690 IFQ<8> • 0THENZl=Zl+H2ELSEZl•Z1+H3
3700 FORQ=1ТOB
3710 IFO(O)=OTHEN3730ELSE37ZO
3720 LPRINT"ELEHENT";O;"IS PRORATED ВУ";О<О>
3730 NEXTQ
3710 LPRINTCHRS<l38)
3750 Lf'RINT "TOTAL ALLOWED TIHE FOR ALL ELEHENTS IS ";Zl
3760. Lf'RINT "ALLOWANCES"
377 О Lf'RINTSS , S1
3780 IFTl=OTHEN3800ELSE3790
3790 LPRINTTS,TI
380 О IFLJl=OTHEN3B20ELSE381 О
381 О LPRINТLJS, UI
3820 '. I F VI =OTHEN3B10ELSE3B30
3В30 LPRINTVS,Vl
3810 ZZ•<18D-<Sl+Tl+Ul+Vl)>/Zl
3850 LPRINT"NET PRODUCTION PER SHIFT IS " ; zz
3860 Z3•180-(S1+T1+U1+V1>:REH NET PROD HIN
3870 Z1=<S1/Z3>•Zl:REH f'ERS TIHE
3880 Z5=<<Tl+U1+V1)/Z3>•Zl:REH OTHER ALLOW
3890 Z6=Zl+Z1+ZS:REH TDTAL ALLDWED TIHE
3900 Z7•60/ZЬ:REH NET PER HR
3910 Z8=60/Zl:REH ATTAINABLE PER HR
3920 Z9=Z6/60:REH STD HR
3930 Lf'RINT "TDTAL ALLDWED TIHE ";Zl
3910 LPRINT"TOTAL f 'ERSONAL ТIHE";Z1
3950 LPRINT"TOTAL OTHER ALLOWANCES ";zs
3960 LPRINT"TOTAL ALLOWED WITH ALLOWANCES";Z6
3970 LPRINT"NET PER HR , ";Z7
3980 LPRINT"ATTAINABLE PER HR,";zв
Распечатка 7.1 (продолжение)
139
3990 l.f'RINT "STANDARD HOURS f'ER РС."; Z9
1000 FORI•1T02:LPRINTCHRS(1381:NEXTI
1010 LYRJXl"RECAF"'
1020 Lf'RINTCHRS(1381
' 1 03 0 L.f "RINT"ELEHENT 1 ";F'SCll
'1010 L..F'RINT"RAТING";Rl;"ALLOWED ПНЕ";А;'
1050 IFU(ll•OTHEN1070ELSE1U60
1060 L.F'RINT"PROl<ATED Е:У" ;сн 11; "F 'RORATED ПНЕ" ;АЗ
1070 IFE:•OTHEN112UELSE108U
1080 L.f'RINT "ELEHENT 2 "; f'S <2 1
1090 L..F'RlNT"RATING"; R2; "Al.L.OWED TIHE "; Е:2
' 1 10 0 IFQ(21•0THEN112UELSE1110
1110 L.PRINT"f'RORATED E:Y";cн21;"PRORA T ED ПНЕ";Е:Э
' 1 12 0 IFC•OTHEN1170ELSE1130
11ЭО LPRINT"ELEHENT 3 ";F'$(31
1110 L.f'RINT"RAПNG";R3;"ALLOWED ПНЕ";С;'
1150 IFQ<31•0THEN'l170ELSE'l160
' 1 16 0 l..PRINT "PRORATED E:Y";Q(З);"f'RORATED ПНЕ";сэ
' 1 170 IFD•OTHEN'l220ELSE'l180
1100 Lf'RINT"ELEHE:NT 1 ";F'S('II
' 1 190 LF'RINT"RAТING";R'!;"ALl.OWED ТIHE";D2
1200 IFQ(11•0THEN'l220ELSE1210
121 О L.F 'RINT"PRORATED Е:У"; Q ( 11; "F 'RORATEO ПНЕ"; DЗ
1220 IFE=OTHEN4270ELSE4230
1230 LF'RINT ''ELEHENT 5 '';Р$(5)
4240 L.F'RINT"RATING 11 ;R5:"ALLOWED TIHE";Ez
' 1 25 0 IFU<51•0THEN'l270ELSE1260
"12 6 0 C F'RINT "PRORATED E:Y";O<5);"PRORATED TIHE"iEЗ
1270 IFF•OTHEN'l320ELSE'l280
'1280 L.f'RINT"ELEHENT 6 ";PSC61
1290 LF'RINT"RAТING"; R6; "AL.LOWED ПНЕ"; F·z
' 1 30 0 IFQ(61•0THEN1320ELSE'l310
'1 3 1 0 LF'RINT "f'RDRATED E:Y";Q(61;"PRORATED ТIНЕ";F·з
1320 IFG•OTHEN1370ELSE'l330
1330 Lf'RINT"ELEHENT 7
";PS(71
13'10 LPRINT"RAТING";R7;"ALLOWED ПНЕ";G2
1350 IFQ(71•0THEN'l370ELSE'l360
'1 3 6 0 LPRINT"PRORATED Е:У" ;0<71; "F 'RORATED ПНЕ" ;GЗ
'1 370 IFH•OTHEN'l'l20ELSE'l380
'1 3 8 0 LPRINT"ELEHENT 8 ";PSCBI
1381 IFR8•1000THEN'l382ELSE'l390
1382 LF'RINT "F'OREIGN ELEHENT NOT ALLOWED"
1390 LF'RINT"RAТING";RB;"ALLOWED ПМЕ";нz
' 1 '100 IFQ<Bl•OTHEN1120ELSE'l'l10
1110 Lf'RINT "PRORATED E:Y";Q(81;"PRORATED ПНЕ";нэ
'1120 END
Распечатка 7.1 (продолжение)
жимается одна .из клавиш, соответствующих цифрам l'--8, цикл
прерывается и управление передается на одну из строк 610-680 .
В этих строках имитируются циклы FOR - NEXT . Например,
610А = А+ l: А (А)~ 1/925: Nl = Nl + 1: PRINT «ELEMENT 1»,
А, А (А): GOTO 510,
где А = А + 1 представляет собой счетчик для индексируемой пере
менной А (А)= 1/925 . Первый раз, когда вводится . сигнал об окон
чании элемента 1, в ячейку А (1) заносится продолжительность за
мера по этому элементу. В строке 61 О величина 925 является констан
той. Одна минута делится на 925 равных частей . Значение констан
ты может изменяться в зависимости от того, как написана програм
ма. Nl = Nl + 1 представляет собой счетчик числа наблюдений .
На экране высвечиваются слова «Элемент 1/ », номер цикла и факти
ческое значение времени, выраженное десятичной дробью, А (А).
Затем по оператору GOTO управление передается на строку 5 10, и
возобновляется цик л отсчета времени . Ранее мы упоминали о том ,
140
что цикл FOR - NEXT никогда не кончается, т. е. ЭВМ
никогда не прочитает строку 605 NEXT. Цикл прерывается после
выполнения функции INKEY,$. В строке 520 установлено число
повторений цикла от 1 до 3000. Поэтому при измерении даже
самого продолжительного элемента потребуется 3000/925= 3,24 мин,
прежде чем будет выполнен оператор NEXT на строке 605.
После того как получены и зафиксированы данные хронометри
рования, инженер делает исключения из ряда полученных чисел.
Обратите внимание на строки 940-2970. Значения замеров времени
отображаются в верхней части экрана, в свою очередь каждый от
дельный замер появляется внизу экрана вместе с надписью «Введите
1, если все верно, и 2, если замер исключается». Прежде чем ис
ключить из хроноряда то или иное наблюдение, инженер видит на
экране весь ряд и среднюю арифметическую из полученных замеров.
После этого он решает, какие значения нужно исключить.
Элемент 8 играет двойную роль. Его можно использовать как
обычный элемент в операции, но можно зарезервировать для фикса
ции данных о посторонних элементах. В последнем случае пользо
ватель должен ввести значение коэффициента эффективности трудо
вых движений, равное 1000. Это служит сигналом для ЭВМ о том.
что элемент 8 надо исключить.
По определению, посторонний элемент - это элемент, который
не включается в изучение затрат рабочего времени. При проведении
обычного хронометража инженер осуществляет наблюдение за по
сторонним элементом, фиксирует его продолжительность, но не
включает в дальнейшие расчеты. Элемент 8 служит для выполнения
той же самой · задачи.
Комментарии к примеру расчетов по программе. Поскольку это
большая программа, то не было сделано никаких попыток сократить
число строк. На первый взгляд, это кажется странным. В програм
ме можно насчитать 41 цикл типа FOR - NEXT, содержащий бо
лее 60 переменных. Однако наблюдается определенное постоянство
в использовании переменных. Переменные А, А (А), Nl, Rl, А2,
АЗ связаны с первым элементом, переменные В, В (В), N2, R2, В2,
ВЗ - со вторым элементом и т. д.
Пример проведения исследования методом хронометрирования
представлен в распечатке 7 .2. Изучалась операция сверления и раз
вертки на многошпиндельном сверлильном станке. По результатам
работы программы инженер исключил несколько замеров после то
го, как закончилось хронометрирование. Рабочий отвлекался от ра
боты и разговаривал с мастером во время хронометрирования. Эти
затраты времени были зафиксированы как затраты на посторонний
элемент (элемент 8) и исключены из расчетов.
На распечатке дефектные замеры для наглядности обведены.
Еще одно последнее и важное примечание к этой программе: на про
ведение непосредственно в цехе исследования методом хронометри
ческих наблюдений, которое включало замеры времени, исключение
ошибочных замеров, приведение продолжительности элементов к
141
нормальному темпу работы, окончательные расчеты и печать резуль
татов, потребовалось менее 15 мин.
Прежде чем перейти к следующей программе, рассмотрим кратко
несколько соображений, связанных с техническим нормированием.
Негативное отношение американских рабочих к пересмотру норм
вряд ли изменится от того, что нормы будут рассчитываться на ос
нове данных хронометрирования, полученных с помощью ЭВМ . Тем
не менее использование ЭВМ для хронометража трудовых процессов
может дать положительный эффект. Сегодня почти все работы, вы
полняемые в промышленности, в той или иной мере связаны с приме
нением ЭВМ. В американской промышленности по-прежнему наблю
дается предвзятое отношение к ЭВМ . Общий лозунг таков: если это
сделано на ЭВМ, то это сделано правильно. В то время как другие эле-
END
TIHE STlJDY F- □ R 1~·~3,ч5
OF·ER NO 20
PART NAME HOUSING
ОАТЕ 01/01/В1
ENGINEER JEN
OPERATION DESCRIPTION ORILL & REAM 1 -
,5 INCH HOLE
NO OF MACHINES
1 NO OF OPERATIONS
RPM OR SPM RPM DRILL 350 - REAM 200
т:·рм 6':i
FEED PER FPR DRILL , 007 - REAM
, 012
CUT : DEPTH: WIDTH LENGTH DRILL & REAM 1 , 125
CUTTING TOOL
HSS
З амерЬ1, о бве де нные о валом,
были исключены как ошибочные
EL ..EMENT 1
Rti REACH 18 IN , ·- (;RASF' PART -TRANS Тll ,JIG -·LOC AT E ··L .H HOLD-CLAMP -MOVE ТО SPIN 1
R~w
~~~~7 297 ~ з .111э51 q .oв:,qosq 5 ,099q595 ~ 7
092973 8 . 102703
· . 0951352 10 . 105916 11
~
. 092973 1 2 .121324 13
.1 03781 14 . 101622 15
. 0972973
StJM t . 5827 AVERAGE . 105511
CORRECTED AND RATED DATA
RAПNC f[IR пп~.:;'..EMENT
.9
1 ,0(197297 2 О 3 ,111351 1
102703 9 , 09 ,;,
.:':,2
10 ,105916
, 1243 21 1Э , 10Э70'1 1'1
, 101622
. 0851051
5 .0991595 ~ 7
11 , 092973 12
~ ,092973 В
15 ,(1972973
SllM 1 , ЭО27 f<АТП) AVERA[;E , 0901Е171
П_ [МЕNТ 2
SPIN ТО WORK - DRILL
RAW [)АТА
1- , 5 DIA HOLE-SPI N UP-SWING BUSHING F~ATE UP
1 ,08
• \0 U:,," ·~~ .__. .,_ :
9 В ,0886q86, 9
12 ,0832133 1~:-1- -=
,109189 5 , 118919 ~~ 7
. 112132
11 . 112132
~
lЧ . 100511 1~'i
.
0983781
, 10918
SUM \ , q7676 AVERAGE , 098q5U5
CORRECTED AND RATED DATA
RATINC FOR THIS ELEMENT 1
1 .ов 2 .100:;н з .01091в•1 q .109109 :;
, 118919 О 7 ,109189 в
0886186 ~ 10 . 112.1эz 11 . 1121з2 1;~
.0 832 133 13 . 0918919 lЧ . 1110511 15
. 0983781
SUM 1.2вqз2 RATED AVERAGE .0987912
El.EMENT :1
L..H MOVE ,Л:t:; ТО Sf"'IN '2.
RAW DATA
1 • 0367568 2
. 0356757 8
11 . 0356757
2
;,f,;--" --;c-,-i;--:;-:~73101
- ~~~;;~;1 5 ,0518919 6 ,0518919 7
11 . 0356757 15 . 0367568
-- ---
Распечатка 7 .2
142
менты метода хронометражных наблюдений требуют пересмотра
(например, субъективная оценка нормального темпа работы), приме
нение ЭВМ для проведения хронометража трудовых процессов, безу
словно, имеет свои преимущества. Главными среди них являются по
вышение точности замеров и упрощение техники хронометрирова
ния. Что же касается того, будут ли трудящиеся больше доверять
нормам, разработанным с помощью ЭВМ, то здесь еще нет ясности.
К распечатке 7.2.
Конец
Изучение затрат рабочего времени для детали 12 345, операция No 20
Наименование детали: корпус
Дата 01/01/81 Инженер Джен .
Наименование операции: сверление и развертывание отверстий 1-0,5 дюйм
Число станков 1 Число операций 1
Режим резания: частота · вращения, об/мин, сверла 350; развертки 200
Скорость резания 65
Подача: оборот сверла 0,007 - развертки 0,012
Длина резания: глубина: ширина: длина сверления н развертки 1,125
Режущий инструмент с пластинами из быстрорежущей стали
Элемент 1
Правую руку переместить на 18 дюйм - взять деталь
-
установить в приспо
собление - левой рукой зажать деталь
-
перенести руку к шпинделю 1
Данные хронометрирования
1 0,897297
2 0,132973
3 0,111351
4 0,0854054
5 0,994595
6 0,147027
7 0,092973
8 0,102703
9 0,951352
10 0,105946
11 0,092973
12 0.124324
13 0,103784
14 0,101622
15 0,0972973
Сумма 1,5827 - среднее арифметическое из полученных замеров 0,105514
Скорректированные и приведенные к нормальному темпу работы данные
Коэффициент приведения к нормальному темпу работы 0,9
1 0,0897297 2 О 3 О, 111351 4 0,0854054 5 0,0994595
6 О 7 0,092973 8 0,102703 9 0,0951352 10 0,105946
11 0,092973 12 0,124324 13 0,103784 14 0,101622
15 0,0972973
•
Сумма 1,3027 Нормальная длительность элемента операции 0,0901871
Элемент 2 и т. д.
Посторонний элемент исключается из расчетов
Элемент 6 повторяется 10 раз
Нормальная длительность всех элементов операции 0,443755
Дополнительное время
Время на отдых и естественные надобности в течение смены 24
Время на техническое обслуживание рабочего места 35
Время на перемещение заготовки 15
Время на смазывание и чистку станка 5
Норма выработки за смену 903,652
Норма оперативного времени 0,443755
Норма времени на личные надобности 0,0265589
Норма времени на обслуживание рабочего места 0,0608642
Норма штучного времени 0,531178
Норма выработки в 1 ч 112,956
Максимально возможная выработка за 1 ч 135.21
Норма штучного времени, ч, 8,85297Е-03
Распечатка 7.2 (продолжение)
143
SUM ,69В 379 AVERAGE ,01655В6
CORRECTED AND RATED DATA
RATING FOR THIS FLEMENT ,В5
1 , 036756В 2 • 03В91В9 3
,0 356757 В ,050В10В ~
,0356757 ~ 13 ,01 11
.052973 1 .0321321 5
10 ,0113213 11
,051В919 6 ,051В919 7
• 0356757 15 . 0367568
SUH .513781 RATED AVERAGE .035 5551
ELEMENT 1
SPIN ТО IIORf(-REAM 1- , 5 HOLE-SPIN Uf' - MOVE ТО UNLOAD
1 .10378"\ 2 .121321 З .111595 i
. 1018 65 5 . 0918919 6 ,163213 ~
RAWDATA
~
78378 В ,090В10В 9 ,0910511 111
, 11027
11
~
"<_У
. 0991595
12 .0912973 1з .оввь1аь 11 .11021 ч~
SUM 1,51919 AVERAGE ,103279
CORRECTED ANO RATED DATA
RAТING FOR THI5 ELEMENT ,95
1 .103781 2
.121321
3 .11.q595 1
. 1018 65
5 .0918919
.~~
В .09
08108 9 .0910511 10
.11027
11 .0991595 12
~ \[__.V
,0972 9 73
13 ,ОВВ61В6 11 ,11027 ~
SLJM 1, 23027 RATEO AVERAGE , 0973961
ELEMENT 5
I_H HOL.[>- ·F IH
I_OOSE CLAMf' - RH R EMOVE f'ART-DISP 1В IN ТО REAR
RAW DATA
~
1 ,0910511 2 ,0В10В11 3 ,118919 1 ;090В10В 5 ,11591
6 ,08861В6 7
. 113 511
8 .0994595 9
,112132
10 .0861865 11
.0 821622
12 .111595 13 .113511 11 . 0851051 15 .108108
SUM 1.53511 AVERAGE
. 1023 12
CORRECTED AND RATED DATA
RATING FOR THIS ELEMENT 1
1 .0910511 2
.0810811 3 ,118919 1
1 в . 0991595 9 .1121э2
.082.1622 12
,111595
13
SUM 1,38919 AVERAGE ,0992278
El.EMENT6
1 О • 0861В65
,113511
11
,090В10В
11
.085 i051
INSPECT f'ART WITH PLUG GAGE-EVERY 10 f'ARTS
RAW DATA
1 .219159 2
. 232132
SUM ,151892 AVERAGE .225916
CORRECTED AND RдTED DдТА
RATING FOR THIS ELEMENT 1
1 .219159 2
. 2321 32
SLJM .151892 AVERAGE .225916
П..ЕМЕNТ В
f\AW [)АТА
1 .555676
о6 ,0В86186 7
15 ,108108
SLIM . 55567 6 AVERAGE • 555676
ПIREH:N El.EMENT NOT ALLOWE[)
Рабочий разговаривал с масте ром
Распечатка 7.2 (продолжение)
.11351
Можно представить себе другую ситуацию. Предположим, что
хронометраж с помощью ЭВМ не найдет широкого распространения
в промышленности. На многих предприятиях все еще сохраняется
практика, когда хронометрирование работ, по которым возникают
трудовые споры поручается представителю профсоюза. Предполо
жим также, что на предприятиях при проведении хронометражных
наблюдений по-прежнему пользуются секундомером, а профсоюз
ные нормировщики применяют ЭВМ. Что в этом особенного?
144
RECAF'
FORETGN ELEHENT NOT ALLOHED
EL ..EHE.NT 6 IS F'RORATП> Е:У 1 О
ГПТАL ALLOWED TIHE FOR ALL ELEHENTS IS ,113755
ALLOWANCES
PERSONAL TIHE.
24
TOOL :lNG Al..l OWANCF.
35
HATERIAL HANDLIN~
15
CL.EAN IJP
S
NE :T PRODUCTION PER SHIFT IS 903.652
TOTAL ALLOWED TIME , 113755
JOTAL. P[RSONAL TIHE .0265589
TOTAL. IHHER ALHJWANCES , 0608612
TOTAL ALLOWED WITH ALLOWANCES , 5311 7 0
NET PER HR. 112 . 956
ATTAINABLE PER HR, 135 , 21
STANDARD HOURS PER РС. 8.85297Е-03
EL_EHENT 1 RH REACH 1В IN, -GRASP PART-- TRANS ТО JIG-LOCATE-LH HOLD-CLAHP-HOVE ТО
SPIN 1
RATING ,9 ALLOWED TIME ,D90187!
ELEME:NT 2 SPIN ТО WORf(-DRil.L 1- , 5 DIA HOLE ·- SPIN UF' - SWING E:USHING PLATE UF'
RATING 1 ALL_OWED TIME ,0987912
EL_EME:NT 3 LH MOVE JIG ТО SPIN 2
RATING . 85 Al.L .OWED TIME
• 0 355551
ELEl1E:NT 1 SPIN ТО WORf(-REAM 1- , 5 HOLE--SPIN LIF'-MOVE ТО UNLOAD
RATING , 95 ALLOWED TIHE , 0973961
ELEME:NT 5 LH HOLD-RH LOOSE CLAMP-RH REMOVE PART-DISP 18 IN ТО REAR
RATING 1 ALLOWED TIME , 0992278
ELEME:NT 6 INSPECT PART WITH PLUG GAGE-EVERY 10 PARTS
RATING 1 ALLOWED TIME , 225916
PRORATED Е:У 1 О PRORATED TIME , 0225916
EL.EME:NT В
FOREIGN El.EMENT NOT ALLOWEI>
RAТING 1 О О О ALL.OWEO ТIМЕ О
Распечатка 7.2
7.3 . МЕТОД МОМЕНТНЫХ НАБЛЮДЕНИИ
Метод моментных наблюдений разработан впервые в начале 40-х
годов . Тогда этот проблемно-ориентированный метод носил назва
ние «метод определения доли перерывов». В основе его лежит опре
деление соотношения между временем работы и временем переры
вов (простоев). Предполагается, что если точно определить это от
ношение , его можно улучшить, совершенствуя организацию труда в
бригаде, подразделении. С течением времени этот метод начали ис
пользовать и при решении других задач.
Например, если в цехе имеется токарный участок и контроль
деталей осуществляют сами станочники , то можно определить,
сколько времени затрачивается на участке на контроль деталей
и как сократить эти затраты времени, если они значительны .
.
Затраты времени на контроль деталей на участке определяются
методом моментных наблюдений. Инженер, которому поручено ре
шить эту задачу, может выделить в составе работ, выполняемых на
участке , различные элементы затрат рабочего времени . Например ,
145
7. 1. Стандартное отклонение
Число единиц cr
±!
±1,64
±2
±3
Доверительная
вероятность. %
68
90
95,45
99,73
рабочий - оператор 1) закреп
ляет деталь; 2) обрабатывает
деталь; 3) снимает деталь ; 4)
перемещает деталь; 5) контро
лирует деталь; 6) не работает
(или отсутствует на рабочем
месте); 7) выполняет прочую
работу.
Выборочные наблюдения, про-
веденные в начале некоторого пе
риода времени, позволяют выявить затраты времени (в процентах)
на эти операции для каждого рабочего, занятого на участке. По ре
зультатам исследования определяется, можно ли улучшить общие ре
зультаты работы, если провести обучение передовым методом тру
да и сократить время, затрачиваемое на контроль деталей, увели
чив при этом время обработки.
Метод моментных наблюдений широко применяется для решения
различных практических задач, например:
при определении удельного веса различных работ (печатанье на
машинке, ведение дел и карточек, заполнение документов и т. д.)
в общем балансе рабочего времени конторских служащих с целью
разработки шкалы заработной платы, соответствующей выполняе
мым задачам;
при определении показателей эффективности труда работников
отдела сбыта. Эrот показатель может зависеть от того, сколько вре
мени работник теряет на выполнение различных операций по сбыту
продукции и какое количество ящиков или пакетов отгружается
потребителям и др.
Приведенные примеры являются просто небольшой выборкой.
В действительности метод моментных наблюдений представляет со
бой один из наиболее эффективных методов, с помощью которых мож
но собрать точную информацию о затратах рабочего времени, загру
женности работников и оборудовании. Те, кто не знаком с методом
моментных наблюдений, могут найти много хороших книг на эту те
му , например [7.1-7.3].
Прежде чем выяснить, что можно поручить микроЭВМ при про
ведении исследований на основе выборочных наблюдений, рассмот
рим несколько математических формул. Необходимо определить,
с какой точностью следует проводить исследование. Точность может
быть абсолютной или относительной .
Например , если удельный вес отдельного вида затрат рабочего
времени составляет 25 % , относительная точность результатов наб
людения ± 10 % обеспечивает абсолютную точность (0,25) Х (О, 10)=
= ±0,025. Другими словами , удельный вес затрат рабочего времени ,
связанных с выполнением изучаемой работы , составит в общем ба
лансе рабочего времени 22 ,5~27 ,5 %, или в среднем 25 %. Опреде
лим вероятность того , что погрешность не выйдет за эти пределы .
Доверительная вероятность определяется площадью под кр и вой рас-
146
пределения и связана с числом единиц о . Доверительной вероятно
сти 90 % соответствует интервал ± 1,64 о. В табл . 7. 1 приведена
зависимость между числом единиц а, или средним квадратическим
отклонением, и доверительной вероятностью.
Требуемая точность и доверительная вероятность определяются
количеством наблюдений. Чем больше число наблюдений, тем мень
ше погрешность и выше доверительная вероятность. Существует
определенное противоречие между стоимостью исследования на ос
нове большого числа наблюдений и небольшим повышением точности
и доверительной вероятности. Чтобы его разрешить, нужно до начала
исследования определить необходимую точность результатов наб
людения.
При выборочных наблюдениях используются следующие фор
мулы:
для расчета стандартного отклонения
S=1/р(1-Р)
VN,
для расчета требуемой точности
А= ИVf Р(1;Р)
Например, no первым 100 наблюдениям удельный вес перерывов
в работе составляет 25 % , тогда
s = vr 0,25-0,75 =0,0433;
100
А=2i/· 0
•
2~~~ .7 5 =0,0866.
Время перерывов составляет (25 + 8,66) % с вероятностью
95,45 %.
Число наблюдений, при котором относительная погрешность наб
людения R ~ + 2,5 % или 2а, с вероятностью 95,45 % определя
ются по формуле
где И - число единиц а; тогда
N= (-2
-)
2
о,75 = 19,200.
0,025 0,25
Исследования затрат рабочего времени на основе выборочных
наблюдений могут потребовать проведения большого числа наблю
дений , которые должны п роводиться с произвольными интервалами .
Существуют два подхода к написанию программ для ЭВМ, кото
рые могут оказать инженеру помощь в проведении исследования.
147
Можно создать «файловую систему» и использовать стандартную про
грамму обработки последовательных файлов или файлов прямого до
ступа. В этом случае ит.оги наблюдений за каждый день вводятся в
ЭВМ, а затем записываются в файл, размещаемый на магнитном дис
ке. Если мы хотим по стандартной программе обрабатывать резуль
таты многих различных исследований, то потребуются большие за
траты труда, чтобы приспособить ее к требованиям системы (см. при
меры обработки файлов в гл. 9).
При другом подходе данные вводятся в программу посредством
операторов DATA. Этот способ менее удобен, но позволяет реализо
вать те же цели, что и файловая система, без дополнительных затрат
труда на программирование. Примером может служить программа
RA ТIО, в которой используются операторы DAТА для ввода резуль
татов наблюдений за каждый день. Чтобы скорректировать програм
му, необходимо ежедневно изменять одну строку в программе и до
бавлять еще одну строку. После корректировки на печать выводятся
итоги за все дни, данные о достигнутой точности результатов наблю
дений и количестве наблюдений, необходимых для завершения иссле
дования.
При проведении исследований на основе выборочных наблюде
ний весьма трудоемким является составление таблиц случайно отоб
ранных моментов времени, в которые будут проводиться наблюде
ния. Существует несколько стандартных способов составления та
ких таблиц: использование таблиц случайных чисел; использование
местных телефонных справочников. В последнем случае берут се
рию последовательных номеров телефонов и располагают их в виде
таблицы, которую и используют для проведения наблюдений на сле
дующий день.
Программа RA TIO генерирует значения случайно отобранных
моментов времени и печатает наблюдательный лист фотографии
рабочего времени на следующий день с указанием времени начала
обхода.
7.4. ПРОГРАММА RATIO
Программа занимает 5377 байт памяти (распечатка 7.3) и состоит
из трех модулей, выполняющих следующие функции: печать наблю
дательного листа фотографии рабочего времени; ввод результатов
наблюдений за каждый день; печать результатов.
Исследование конкретной ситуации. При анализе затрат рабоче
го времени в общем балансе рабочего времени четырех конторских
служащих можно выделить следующие элементы: 1) печатание на
машинке; 2) разговор по телефону; 3) работа с папками или карто
теками; 4) работа с документами; 5) отсутствие на рабочем месте;
6) посторонние занятия.
Предположим, что исследование ведется уже четыре дня; резуль
таты наблюдений за последний день приведены в табл. 7.2.
148
7.2 . Фотография рабочего для четырех служащих,
nров~денная м етодом моментных наблюдени й
Элемент затрат рабочего времени
Число случаев п овтор ен ия
Печатание на машинке
Разговор по телефону
Работа с папками или картотеками
Ра бота с документами
Отсутствие на рабочем месте
Посторонние занятия
56
35
28
24
15
21
Число случаев повторения отдельных элементов затрат вводится
в программу с помощью оператора DA ТА:
Строка 2110 DA ТА 56, 35, 28, 24, 15, 21
Дополнительно корректируется строка 2070: вместо
Строка 2070 DA ТА 3
записывается
Строка 2070 DA ТА 4
После ввода данных в программу инженер набирает на клавиа
тур е RUN 600, и ЭВМ выводит на печать результаты анализа сука
зани ем даты его проведения О l/01 /81 .
1 REM F~OCRAM NAME RATIO
REM WRITTEN ВТ J.E .NICKS
З REM COMf'LJТER Af'f'LICAТIONS l'OR ТНЕ MANUFACТLIRING ENGINEER
1 REM COF'YRIGHT 1981 ALL RIGHTS RESERVED
1 О CL.S: Cl.EAR50 О
20 F'RINT " ППS PROGRAM CALCI.ILATES WORI( SAMf'LING RAТIOS"
30 PRINT"THE f 'ROGRAH IS DEVELOf'EO IN 3 f'ARTS"
10 f'RINT"f'ART 1 GENERATES А WQRI( SHEET WIТli RANDOH ТIHES BETWEEN 8 & SPH"
50 l'"RINT " THIS WORf( SHEET CAN Е:Е USED ТО RECORD SAMf'l .INGS OF ТНЕ SТLIDY"
60 PRINT"PART 2 5ETS UP ТНЕ STUDY HEADINGS IN ТНЕ FORH OF DATA STATEMENTS"
65 PRINT"IF Тlif WORJ( SНЕП HAS NOT E:EEN SET ur· , USE PART 2"
70 f)RINT''PART 3 PERMITS ТНЕ USER ТО INPUT ЕАСН OAYS RANDOM SAMPLES AND''
80 Pl<INT"CALCULATES ТНЕ TOTALS AND PERCENTAGES"
90 PRINT"ТYF'E IN ТНЕ HODlJLE YIJU WISH ТО WORf( WПН"
1О О INPLIТX •
110 ONXGOTUlZ0,2000 ,500
120 RANDOH
1ЭО [)]НС< 1200)
110 INF'LIТ"TYPE IN ТНЕ NAHE OF ТНЕ STUDY"; Xf
150 LPRINTCHRt,(27);CHR$(1~>:Xt,
160 LPRINTCHRS(13B)
170 READA
lflO l.PRINT "WORI( SAMPLING WORI( SHEET"
185 LPRINTCHRS(13B)
190 INPUT"ТYPE IN TODAYS DATE";Af
200 LPRINT"DATE
";AS
21 О FORI= 1ТОА
220 REAOE:t
23~.
LF'RINTTAE:(lO);E:t,;" - --" ;
210 NEXТI
2~5 LPRINTCHRS(138>
250 FORI=B00TO1200STEPB
260 A=RND<35)
270 C(I)a=I+E:
280 IFC(I)=BOOTHEN330
290 IFC(I)>1ZOOTHEN316
300 X=INT(C(I)/100)(Y=((C(I)/100)-X)•60:Z=INT<Y>
Распечатка 7.3
149
310 IFX>l2THEN316
320 L_F •RJNTX;":";Z
Э30 f:=f:+A
310 NEXTI
346 OIMD(2000)
317 LPRINTCHR$11Э81
350 FORI=100T0500STEPD
360 C=RND1351
365 D(I)=D+I
370 IFD<I>~500THEN120
375 IFO<I>=100THEN100
380 X=INTIDII!/100l:Y=IID(Il/1001-X) ■ 60:Z=INTIYI
390 IFX=5THEN "120
395 l.PRINTX;":";Z
100 D=D+C
НО NEXТI
420 END
500 REM ЕАСН DAYS ENTRY AND CALCW ATION:CLS
501 CLS
510 PRINT"AFТER ЕАСН DAYS RECORDINGci ТНЕ SUMMARY IS ENTERED AS DATA"
520 PRINT"TO ENTER DATA--BREAK--LIST- - ENTER DATA--RE-RUN LINE 600 "
530 PRINT"LINE 2070 SHOULD CONTAIN ТНЕ NUMBER OF DAYS DATA"
510 PRINT"LINE 2080 ЕТС SHOULD CONTAIN А SUMMARY OF RECORDINGS
FOR ТНАТ DAY"
550 PRINT "RECORD INGS SHOULD f:E ENTERED IN ТНЕ SAME ORDER AS HEADINGS"
560 PRINT"EXP: DATA LOAD,PROCESS,UNLOAD "
570 PRINT''ENP: ОАТА 15t23,10
580 STOf·
6 00 READA
61 О f"DRI= 1 ТОА
620 READE:$(!)
630 NEXТI
610 READN
650 f"ORI =l TON
660 FORJ=lTOA
670 READT<I,J>
680 NEXTJ
690 NEXТI
700 FDRI=lTON
710 FDRJ=lTOA
72:0 Tl=Tl+T<I, .. J)
730 IFJ=1THENT2=T2+T<I,J)
710 IFJ=2THENTЗ=T3+T<I,JI
750 IFJ=ЗTHENT1=T4+TCI,J)
760 lF"1=1TtiENT5=T5+TCI,J>
770 1F"J =5THENT6=T6+T(l , J)
780 IFJ=6THENT7=T7+T<I,J)
790 IFJ=7TtiENTB=T0+TCI,J>
800 If: ._ J =BTHEN 'f9 =T9+TCI,J)
810 NEXTJ
820 NEXTI
ВЭО CLS
831 PRINT"CONF" :П)ENCE L:IMTTS ARE EXPRESSED IN UNITS OF s:rc;мA"
832 PRINT"68 7.CONFШENCE =1 ·- -- -- - 90 7. CONDil>ENCE =1,61"
833 f'RINT "95 7. CONf"IDENCE =1 ,96- · -· - -·- 95,15 7. CONDIOENCE = 2 "
ЕIЭ1 r·RINT "AND 99,73 7. CONFIDENCE IS E(IUAL то 3 sн:МА"
Е110 INPLIT"ТYPE IN ТНЕ sп;мА EOLJAL ТО ТНЕ CDNFIDENCE REOLIШED" ;G
fl':J{J F'RINT "TYF'E IN ТНЕ A[:f.iШ_IHE ACCORACY REOUIRED IN DECIHAL ..- O RM "
060 INF·UЛ:
El61 INPLIТ"ТYf'E IN ТНЕ NAME OF ТНЕ STt.lDY"; Х $
862 LPRINTC.4R$(27):c:HRS(11):xs
Н6З tf'RINTCHR$113BI
HfJ'1 1.. F 'RTNT"SLJHHARY "
Е165 L_F'R[Nl·(:HRSC138)
Н66 JNF'LIТ"[NTER TODAYS [)АТЕ";А$
867 L_F'RINT,,, А$
Распечатка 7.З (продолжение)
150
870 P2~т21т1:02=G•<SOR((P2•<1-P2))/T1)):N2=((G(2)•<P2•<1-P2)))/(K(2)
ВВО lYRJNT"IТEH "; [:S < 1 >
Н90 l.f .• R INT "PERCENT FOR 1 HIS ELEHENT IS": Р2
900 LYRINT"AE:SOL. LJГE :
.
ACCLJRACY NOW IS"i02;"0R ТНЕ RANGE IS";P2;"+ OR -"; 02
91 О LPRINT"THE NUHE:ER OF RECORDINGS ТО ACHIEVE" ;f(; "PERCENT ACCURACY АТ"; G; "SIGHA
IS";INT<NZ>
920 P3=T3/Tl:GЭ•G ■ (SOR<<P3•11-P3))/Tl)):N3•11G[2)•1P3•11-P3)))/IK[2)
930 LPRINTCHRS(138)
910 LPRINT"IТEH " ;E:Sl2)
950 LPRINT"PERCENT FOR THIS ELEHENT IS";PЭ
960 l_PRINT "AE:SOLUT[ ACCURACY NOW IS" ;оэ; "OR ТНЕ RANGE IS" ; РЭ; "+ OR _ .. ; Q З
970 LPRINT"THE NUHE:ER OF RECORDINGS ТО ACHIEVE ";К;" PERCENT ACCURACY АТ" ; G; "SIG
НА IS";INT(N3)
980 IFT1=0THEN1100
990 P1=T1/Tl: □ 1=G•ISORIIP1•<1-P1>)/Tl>>:N1=((G[2>•<P1•<1-P1)1)/(K[2>
1ООО L.PRINTCHRS<138>
1 О 1 U l_f•RINT"IТEH "; E:S <З >
1020 l_f·RINT"PП<CENT FOR THIS ELEHE;NT IS"; Р1
1030 l_PRINT"AE:SOL.U 'fl: ACCURACY NOW IS" ;(11; "OR ТНЕ RANGE IS"; Р1; "+ OR - " ; □ 1
1010 l _P RINT "THE NUHE:ER OF RECOROINGS ТО ACHIEVE" ;1(; "PERCENT ACCURACY АТ" ; G; "SIGH
А IS";INT(N.q)
lOSJ IFTS•OTHEN1100
1060 Ps~тs1т1:ns=G•<SOR<<P5•<1-P5))/T1)):N5=((G[2)•(P5•(1-P5)))/(.C[2)
1070 LPRINTCHR$(138)
1080 L.PIONT"IТEH ";f:S(1)
1090 L.PRINT "PERCENT f 'OR THIS ELEHENT 15 "; Р5
11 00 LPRINT"AE:SOLIJТE ACCURACY NOW IS"; 05; "OR ТНЕ RANGE IS"; F'S; "+ OR -" ; 05
111 О l _f '•R IN T "THE NIJHE:ER OF RECORDINGS ТО ACHIEVE" ;f(; "PERCENT ACCURACY АТ" ;G; "S]:GH
А IS"iINT(N5)
1120 IFT6=0T•iEN1100
\130 P6=T6/Tl(Q6=G•<SOR<(P6•11-P6))/Tl)l:N6=1(G[2) ■ (P6 ■ 11-P6>>)/(K[21
11~0 LPRINTCHRSl138)
11~;,;о L_PRINT"ITEH ";Е:$(5)
1160 l ..PRINT' 'F 'EKCENT f 'OR THIS EL.E ~ENT IS "; Р6
1170 L.. PRINT"AE:SOLUTE ACClJRACY NOW IS":cм;"OR ТНЕ RANGE IS";Pbi "+ OR -":СМ
11EIO l _PRINT"THE NIJHE:ER OF RECORDINGS ТО ACHIEVE"; 1(; "PERCENT ACCURACY АТ"; G; "S1:GH
А IS";INTIN6>
'
1190 IFT7=0THEN1100
1 ZO О F'7~T7 /T1: (U=G• ( SOR( ( Р7• ( 1--Р7) >/Tl >): N7== ( ( [;[2 >•< F'7• <1-·F'7))) / ( t{[2)
1210 LPRINTCHRS(138)
1220 l ..F'RINT"IТEH
";E:S<6>
12ЭО l ..F'RINT"PERCENT ГОR THIS EL.EHENT IS"; f'7
12qo l _f·R1NT"AE:SOLIПE ACClJRACY NOW IS":07;"0R ТНЕ RANGE IS":P7;"+ OR -":07
1;,50 l "PRINT"THE NUHE:ER OF RECORDINGS ТО ACHIEVE"; 1(; "PERCENT ACCURACY АТ";(;; "S]:GM
А IБ";INT<N7)
~260
IFTU•OTHEN1100
1270 P8•T8/Tl(U8=G ■ (SQRIIPB ■ (l-P8))/Tl)l : NB=IIG[2) ■ (P8 ■ (1 - P8>))/(K[2)
1280 LPRINTCHRS<138)
\290 l " f·RJNT"IТEH " ;f:Sl7)
1:ЗО О l ..PRINl "PEl<CENT FOR THIS ELEHENT IS"; РВ
1:нtJ LPRlNT"AE:SOL. lJ'ГE ACCURACY NOW IS";oв;"OR ТНЕ RANGE IS";f'B;"+ OR -";ов
132~ LPRINT"THE NUHE:ER OF RECORDINGS ТО ACНIEVE" ;1(; "PERCENT ACCURACY АТ" ;G; "SIGH
А IS";INT<NB>
1330 1FT9=0THEN1 ~00
1310 P9•T9/Tl:Q9=G ■ (SOR<IP9 ■ (1-P9))/Tl)l:N9=(1G[2) ■ <P9 ■ (1-P9)))/(K[21
1350 LPRINTCHR S(138)
1360 lYRINT"ПEH ";Е:S<В>
1'370 L.f 'RINT"PERCENT FOR THIS ELEHENT IS " ;р9
1380 LPRINT"AE:SOLUTE ACCURACY NOW IS";Q9;"0R ТНЕ RANGE IS" ; P9;"+ OR - ";Q9
1390 [_f 'f<INT"THE NUHE:ER OF RECORDINGS ТО ACHIEVE";l(;"PERCENT ACCURACY AT";G J "SТ:GH
А IS";INTIN9)
1400 LPRINTCHRS<lЗB>
1 ~ 1 IJ l_f ·RINT "TOTAL NUHE:ER OF OE:SERVAТIONS ТО ОАТЕ ARE"; Т1
1420 [ND
2UOO CL.S:f=· RI N T"HEADINGS HlJST Е:Е ENTERED AS DATA STATEHENTS"
Распечатка 7.3 (продолжение)
151
2010 F' RINT"START Е:У ТYF'ING ТНЕ NUME:ER OF HEAOINGS AS DATA EXAMF'LE "
2015 PRINT''LINE 2050 ОАТА 5''
2020 PRINT"THEN ENTER AND ТУРЕ IN ЕАСН HEADING NAME IN ТНЕ NEXT LINE"
2025 F'RINT"EXAMF'LE L,INE 2060 DATA ТYF'E,FILE,"
2030 F'RINT "WHEN COMF'LETE RE -RUN ТНЕ F'ROGRAM"
20'10 F"RINT "SAVE ТНЕ F'RDGRAM WHEN COMPLETE"
2050 DATA6
2060 DАТА"ТУРЕ", "F'HONE", "FILE " , "WRIТE", "AWAY", "I DLE "
2070 DATAS
2080 DАТА60,10,24,20,10,ЗО
2090 DATA56,56 ,28,20,10 ,34
2100 DATA76,40 ,20 ,16 ,20 ,20
2110 ОАТА56,З5,2В,21,15,21
2120 DATA56,15 ,20,23,19 ,17
Распечатка 7.3 (продолжение)
В распечатке 7.4 приведены средняя загруженность работника
данным видом работы, %; абсолютная погрешность результатов наб
людения; число наблюдений, необходимое для обеспечения заданной
степени точности +3,5 % при доверительной вероятности, соответ
ствующей интервалу 3 а.
Число моментных наблюдений равно 759. В то же время для обес
печения заданной точности результатов наблюдения по элементу
«печатание на машинке» необходимо провести 1616 наблюдений.
В начале пятого дня инженер, проводящий исследование, вводит
в ЭВМ программу и подготовляет наблюдательный лист на этот день
(см. лист с пометкой «День 5»). В наблюдательном листе указано
время начала всех обходов, планируемых на пятый день и отобран
ных произвольным образом. После завершения наблюдений за пятый
день ввода их итогов в программу на печать выводятся очередные
результаты анализа (см. результаты, датированные 01/01/81) к это
му времени. Инженер провел 939 наблюдений, и значения анализи
руемых факторов несколько изменились. Исследование продолжает
ся до достижения заданного числа наблюдений.
Изучение затрат рабочего времени четырех служащих
Результаты наблюдений
Элемент затрат: печатание на машинке
01/01/81
Удельный вес загруженности работника данным видом работы 0,326746
Абсолютная погрешность наблюдения 0,0510734 означает, что удельный вес
затрат лежит в пределах О,326746+или-О,0510734
Число наблюдений, необходимое для обеспечения заданной точности 0,035 при
доверительном •интервале З сигма, 1616
Элемент затрат: переговоры по телефону
Удельный вес загруженности работника данным видом работы 0,225296
Абсолютная погрешность наблюдения 0,0454931 означает, что удельный вес
затрат лежит в пределах 0,225296 + или - 0,045931
Число наблюдений, необходимое для обеспечения заданной точности 0,035 при
доверительном интервале 3 сигма, . 1282
Элемент затрат: работа с папками или картотеками
Удельный вес загруженности работника данным видом работ О, 131752
Абсолютная погрешность наблюдения 0,03683 означает, что удельный вес за-
152
трат лежит в пределах 0,131752 + или - 0,03683
Число наблюдений, необх одимое для обеспечения заданной точности 0,035 при
доверительном интервале 3 сигма, 840
Элемент затрат: внесение записей в документы
Удельный вес загруженности работника данным в идом работы 0, J0:5402
Абсолютная погрешность наблюдения 0,0334379 означает , что удельный вес
затрат лежит в пределах 0, 105402 + или - 0,0334379
Число наблюдений, необходимое для обеспечения заданной точности 0,035 при
доверительном инте рвале 3 сигма, 692
Элемент затрат: отсутствие на рабочем месте
Удельный вес загруженности работника данным видом работы 0,0724638
Абсолютная погрешность наблюдения 0,028231 означает, что удельный вес за
трат лежит в пределах 0,0724'638 + или - 0,028231
Число наблюдений, необходимое для обеспечения заданной точности при 0,035
при доверительном интервале 3 сигма , 493
Элемент затрат: посторонние занятия
Удельный вес загруженности работника данным видом работы 0,13834
Абсолютная погрешность . наблюдения 0,037596 означает, что удельный вес
затрат лежит в пределах 0,13834 + или - 0,037596
Число наблюдений, необходимое для обеспечения заданной точности 0,035 при
доверительном интервале 3 сигма, 875
Всего проведено наблюдений 759
К распечатке 7.4.
OFFICE STUDY q C L ERKS
SLIHHARY
ПЕН ТУF'Е
PERCENT FOR THIS ELEHENT IS . 326716
01/01/81
AE:SOLUTE ACCURACY NOW IS ,0510731 OR ТНЕ RANGE IS ,326716 + OR -
,0510731
ТНЕ NUHE:ER OF RECORDINGS ТО ACHIEVE ,035 F'ERCENT ACCURACY АТ 3 SIGHA IS 1616
IТ[Н F'HONE
PERC:ENT FOR THIS ELEHENT IS .225296
ABS(ll .UTE ACCURACY NOW IS . 0151931 OR ТНЕ RANGE IS .225296 + OR -
. 0151931
ТН[ NUHE:ER DF. RECORDINGS ТО ACНIEVE
, 0 3 5 PERCENT ACCURACY АТ 3 SIGHA IS 1282
ПЕН F"IL.E
PERCENT FOR THIS ELEHENT IS . 131752
AE:SOL. LJТE ACCLJRACY NOW IS ,03683 OR ТНЕ RANGE IS ,131752 + OR -
,03683
ТНЕ NLIHE:ER OF RECORDINGS ТО ACНIEVE , 035 PERCENT ACCURACY АТ 3 SIGHA IS 810
ПЕН WRIТE
PERCENT FOR THIS ELEHENT IS .105102
AE:SOLUTE ACtURACY NOW IS ,0331379 OR ТНЕ RANGE IS , 105102 + OR -
,0331379
ТНЕ NUHE:ER CJF' RECORDINGS ТО ACHIEVE
, 035 PERCENT ACCURACY АТ 3 SIGHA IS 692
ПЕН AWAY
F'ERCENT FCJR THIS ELEHENT IS
,0721638
AE:SOL.LIТE ACCURACY NOW IS , 028231 OR ТНЕ RANGE IS , 0721638 + OR -
, 028231
ТНЕ NUHE:ER □ F- RECORDINGS ТО ACНIEVE , 035 PERCENT ACCURACY АТ 3 SIGHA IS 193
ПЕН IOL.E
F'ERCENT FOR THIS ELEHENT IS
,13831
AE:SOLUTE ACCURACY NOW IS , 037596 DR ТНЕ RANGE IS , 13831 + OR -
,037596
ТНЕ NUME:ER □ F- RECORDINGS ТО ACНIEVE , 035 PERCENT ACCURACY АТ 3 51GMA IS 875
TJПAL. NUHE:ER OF. OE:SERVAТIONS ТО DATE ARE 759
Распечатка 7.4 (продолжение)
153
OFFICE STUDV 4 CLERKS
WORK SAMPLING WORK SHEET
Day5
DATE 01/01/81
ТУРЕ - --РНОNЕ - --F.ILE---WRIТE- - -AWAY- -- IDLE- - -
8
111/
8
20
8
27
8
38
11
852
//
9
о
1
/
92011
,,
933//1
/
938
"
9 5'5
/1
102
/
1011/1
10
161
1/
10
21
1
J/
10
31 /.
}/
1033//
'·
10 15
//
/
10
55
I
1/
/
11
1
/
11
11 16
}/
/
1119/
}/
1137/1
1
11 55
1
11
15
//
31
,,
39
11
1
51
11
2
1
2
15
2
эz
//
53
11
з
8
1
11
з
16
1
1/
:,
20
/(
"
3
ЭВ
з
19
1
,,
/1
1
Zl
/1
1
'2.7
1/
1
1
38
1
'
1
19
1
1
1
1
51
'
"
1
56
7217,ft.,
s(р
1r <rO
.}9 ,~
17
Изучение затрат рабочего времени четырех служащих
Метод моментных наблюдений Наблюдательный лист
Дата 01/01/81
Печатает--телефон -- папки--пишет--отсутствует--не работает
8:1
8:20
V
V
8:27
V
8:38
V
vv
8:62
V
V
4:51
V
vv
4:56
V
Всего
56
45
Распечатка
154
V
V
V
V
vv
V
V
V
20
23
7.4 (продолжение)
V
V
V
19
vvvv
V
17
OFFICE BTUDY ~ CLERKB
SLIMMARY
1ТЕМ ТУf'Е
PERCENT FOR TH I 9 ELEMENT IS ,323749
01/02/Bl
AE:SOL.Ul"E ACCURACY NOW IS • o.q513006 OR ТНЕ RANGE IS • 3237 .!\9
•
OR --
• 04 ~iB Of:Jc'J
ТНЕ NL)ME:ER oF· RE CIJRl>INGS то ACHIEVE , О:З5 F'EГ<CENT AC C LIRACY АТ З sн;МА IS 1608
IТЕ11 F'HONE
PERCENT FOR THIS ELE11ENT IS ,230032
AE:SOL.UТE: ACCURACY NOW IS , 0 41 2021 OR ТНЕ RANGE IS , 230032 + OR -
, 0412021
ТНЕ NLJl1E:ER OF RECORDINGS ТО ACHIEVE , 035 f 'ERCENT ACCURACY АТ 3 SIGl1A IS 13tJ1
IТЕ11 FILE
PERCENT FOR THIS ELEMENT IS ,1 27796
AE:SOLUTE ACCURACY NOW IS , 0326В55 OR ТНЕ RANGE IS , 127796 + OR -
•.0326855
ТНЕ NUl1E•ER OF RECOROINGS. ТО ACHIEVE , 035 PERCENT ACCURACY АТ 3 SIGl1A IS В1В
ПЕН WRITE
f'ERCENT FOR THIS ELEMENT IS ,109691
AE:SOL.UTE ACCURACY NOW 15 , 0305946 OR ТНЕ RANGE IS , 109691 + OR -
, 0305946
ПiЕ NUHE:ER OF RECOROINGS ТО ACHIEVE , 035 PERCENT ACCURACY АТ 3 SIG11A IS 717
IТЕМ AWAY
PERCEN T FOR THIS ELEHENT IS .0788073
AE:SOL. l!ТE ACCURACY NOW IS , 02637В3 OR ТНЕ RANGE IS , 07ВВО73 + OR -
, 02637В3
ТНЕ NUME:ER OF RECORDINGS ТО ACHIEVE ,035 PERCENT ACCURACY АТ 3 SIGl1A IS 533
IТЕ11 IDL.E
PERCENT FOR THIS ELEHENT IS .1 29925
AE:SOL.UП: ACCURACY NOW IS , 0329165 OR ТНЕ RANGE IS , 129925 + OR -
, 0329165
ТНЕ NUHE:ER OF RECOROINGS ТО ACHIEVE , 035 PERCENT ACCURACY АТ 3 SIGHA IS В30
TOTAL NLJME•ER OF QE;SERVAТIONS ТО DATE ARE 939
Распечатка 7.4 (продолжение)
Упражнение 7.1 (наименее трудное). Написать программу расчета полез
цой площади с учетом проходов для складских помещений. Учесть размеры
нескольких типов стандартных контейнеров для хранения деталей и ограни
чения на высоту стеллажей .
Упражнение 7.2 (средней трудности). Используя теорию массового обслу
живания, написать программу оценки оптимального размещения в цехе
единицы оборудования. Такая программа полезна при планировке производ
ственных площадей. Необходимые формулы можно найти в учебнике по
статистике.
Упражнение 7 .3 (трудное). Написать программу для расчета таблицы нор
мативной численности вспомогательных рабочих при изменении производст
венной программы. Учесть переменные соотношения между численностью
основных и вспомогательных рабочих.
155
Глава 8
ГРАФИЧЕСКОЕ ОТОБРАЖЕНИЕ
АНАЛИТИЧЕСКОЙ ИНФОРМАЦИИ НА ЭВМ
8.1 . МАШИННАЯ ГРАФИКА
Одним из наиболее привлекательных, но трудоемких направле
ний программирования является машинная графика. Инженер-тех
нолог может использовать машинную графику для иллюстрации
идеи, для анализа и для построения диаграмм и графиков.
Составление программ, в которых машинная графика использует
ся для иллюстрации идеи, требует большого труда программиста.
В гл . 2 приведены пять примеров такого применения графического
отображения информации . Основное назначение графики в этом слу
чае - донести до пользователя идею или условие задачи, которое не
может быть объяснено описательным путем. Наглядным примером
является программа расчета стоимости обработки фрезеf)'ованием.
Существуют не менее пяти вариантов взаимного расположения фре
зы и детали и в каждом случае используется своя формула для рас
чета пути врезания фрезы. Без графических средств трудно понять,
какой способ установки фрезы имеется в виду.
Наглядным примером применения машинной графики для анали
за служит столбиковая диаграмма или гистограмма, приведенная в
гл. 4. ЭВМ строит гистограмму по исходным данным, введенным ин
женером. Анализируя гистограмму, инженер делает вывод о распре
делении случайной величины: оно может быть нормальным, скошен
ным, иметь ярко выраженный пик или две вершины. Такого вида гра
фики нетрудно программировать; они полезны при анализе и явля
ются признаком хорошего стиля в программировании.
Построение диаграмм и графиков - еще один путь использова
ния графических возможностей ЭВМ. Примерами такого использова
ния для инженера-технолога могут служить: график ГАНТА, гра
фическое отображение функциональных зависимостей, сетевой гра
фик ПЕРТ. С помощью ЭВМ диаграммы и графики можно строить
как с применением, так и без применения масштаба. В последнем
случае используется только ось координат У, по другой оси шкала
отсутствует . Построение графиков в масштабе требует двумерной си
стемы координат (ось Х и ось У). Ниже рассмотрены вопросы графи
ческого отображения информации на ЭВМ при решении производст
венных задач инженером-технологом.
Для каждой программы приведены необходимые построчные ком
ментарии. Описаны следующие программы: для построения гисто
граммы BAR; для построения в масштабе графика загрузки оборудо-
156
вания МАСН; для построения календарного графика производства
GANT; для расчета параметров многостаночного обслуживания
MAN.
8.2 . ПРОГРАММА BAR
Программа занимает 659 байт оперативной памяти. Эта простая
программа включает все приемы, используемые для программирова
ния безмасштабных графиков (распечатка 8.1).
Частота
Размер
4
0,994
6
0,995
9
0,996
11
0,998
15
0,999
19
1
27
1
23
1,001
20
1,002
16
1,003
12
1,004
9
1,005
Среднее значение равно 1,00019
Сумма всех частот равна 171
Гистограмма
хххх
хххххх
ххххххххх
ххххххххххх
ххххххххххххххх
хххххххххххххххххх
ххххххххххххххххххххххххххх
ххххххххххххххххххххххх
хххххххххххххххххххх
хххххххххххххххх
хххххххххххх
ххххххххх
К распечатке 8.1
Комментарии к программе.
Строка 5: DIM В (13), D (13), S (13)
Оператор в строке 5 задает размерность массивов, обозначенных
переменными В, D, S. Под каждый массив резервируются 13 ячеек
памяти. Без оператора DIM ЭВМ отводит по умолчанию 10 ячеек
под каждую индексированную переменную.
Строка 10: INPUT «ТУРЕ IN ТНЕ NUMBER OF BARS ON ТНЕ
CHART»; N
Строка20:FORI= 1ТОN
Во время выполнения строки 10 пользователь вводит число стол
биков на диаграмме (N), а строка 20 начинает выполнение цикла
FOR - NEXT, которое продолжается до тех пор, пока значение
счетчика цикла не станет равным N.
Строка 30: INPUT «ТУРЕ IN ТНЕ FREQUENCY
AND CELL SIZE, SEPARAТЕ ВУ А
СОММА»; В (I), S (I)
Строка 30 позволит осуществить ввод значений нескольких пере
менных. Для индексирования переменных используется та же пере
менная I, что и в операторе цикла FOR - NEXT . Индексирование
необходимо для того, чтобы позже программа могла иметь доступ к
этим значениям.
Строка40:D(!)=В(I)*S(I)
157
1 REM PROC:RAM NAME E:AR
2 REM WRIПEN [:У J,Е ,NICHS
З REM COMPUTER APPLICATIONS FOR ТНЕ MANUFACTURING ENGINEER
q REM СОРУRIС:нт 1981 ALL RIGHTS RESERVED
5 DIME:(1:З> , 0(13),5(13)
6 CI.S
• 7 PRINT"ППS F'ROGRAM F'RINГS OUT А E:AR CHART"
10 INF'UT"ТYF'E IN ТНЕ NUME :E R OF E:ARS ON ПiЕ CHART";N
20 FORiaol TON
30 INPLIТ"ТYPE IN ТНЕ FREQ , &CELL SIZE ,5EF 'ARATE [:У А COMMA";E:(I) , S(I>
10 D<I>=B<I> • SCI>
50 E==E+D(I)
60 T=T+E:(I)
70 NEXТI
ВО Cl.S
100 1.F'RINПAE:(Э);"FRE □ ";TAE:(lO>;"CELL SIZE";TAE:(ЗO);"E:AR CHART "
101 LF' RINT
102 FORX=OT060:t.PRI NT"= ";:NEXT
105 LF'RINT
110 FORI=iTON
120 LF'RINTTAE: <Э); Е:< I >; ТАЕ: < 1 О>; "SIZE "; S< I >;
130 FORA=lTOE:(I)
110 LPRINTTAB<2S>t''X'";
150 NEXTA
160 I.F'RINT
170 NEXTI
175 CF'RINT
180 LF'RINT"THE AVERAGE IS";E/Т
185 LPRINT"THE SUM OF ALL ТНЕ FREQUENCY 15",Т
190 END
FREQ
CELL SIZE
E:AR CHART
=============================== ======================= =======
q
SIZE .99i
хххх
6
SIZE .995
хххххх
9
SIZE ,996
ххххххххх
11
SIZE ,997
ххххххххххх
15
SIZE ,998
ххххххххххххххх
19
SIZE ,999
ххххххххххххххххххх
27
SIZE 1
ххххххххххххххххххххххххххх
23
SIZE 1,001
ххххххххххххххххххххххх
20
SIZE 1.002
хххххххххх х ххххххххх
16
SIZE 1,003
хххххххххххххххх
12
SIZE 1.ooq
хххххххххххх
9
SIZE 1.005
ххххххххх
ТНЕ AVERAGE IS 1,00019
ТНЕ SUM OF ALL ТНЕ FREQUENCY IS 171
Распечатка 8.1 .
В этой строке значение частоты умножается на размер интервала,
и результат запоминается в переменной D (I).
Строка50:Е =Е+D(I)
Строка60:Т= Т+В(1)
Эги две строки накапливают значения сумм Е и Т.
Строка 70: NЕХП
Строка 70 передает управление в начало цикла до тех пор, пока
не будут введены все записи.
Строка 100: LPRINTTAB(З); <<FREQUENCY»;
TAB(l0); «CELL SIZE».
ТАВ (30); «BAR CHART»
158
В этой строке формируется заголовок. Функция ТАВ поместит
головку печатающего устройства перед позицией, в которой должен
быть напечатан следующий символ . Правила пунктуации должны
быть соблюдены в точности, иначе ЭВМ выдаст сообщение об ошибке.
Строка 101: LPRINT
Этот оператор заставляет ЭВМ пропустить при печати одну строку .
Строка 102: FOR Х =ОТО 60: LPRINT« = »:NEXT.
На этой строке записано несколько операторов. Строка с этим но
мером была дописана уже в готовую программу . Она служит для под
черкивания заголовка.
Строка 110: FORI = l ТО N
Эта строка начинает цикл, который печатает диаграмму.
Строка 120: LPRINT ТАВ (3); В (1); ТАВ (10); «SIZE»; S (I};
Аргументы в функции ТАВ совпадают с аргументами в строке,
печатающей заголовок; В (1) или любое значение, введенное в каче
стве первого В (1), будет вызвано из памяти и напечатано сразу пос
ле позиции ТАВ (3). Точка с запятой, помещенные в конце строки
программы, заставляют печатающее устройство продолжать форми
ровать строку печати.
Строка 130:FORА .lТОВ(1)
Эта строка начинает вложенный цикл FOR -- NEXT. Конечное
значение счетчика цикла равно В (I} или частоте наблюдений дан
ного значения случайной величины.
Строка 140: LPRINT ТАВ (25); «Х»;
В соответствии с этой строкой печатающее устройство печатает
Х на таком числе позиций, которое равно значению B(I}. Благодаря
точке с запятой u конце строки по-прежнему не происходит возврата
каретки печатающего устройства.
•
Строка 150: NEXTA
Строка 150 передает управление в начало цикла до тех пор, пока
не будут напечатаны все Х в выходной строке.
Строка 160: LPRINT
Происходит возврат каретки.
Строка 170: NEXТI
Управление передается на оператор в строке 110 для обработки
следующего ряда данных.
Программа BAR очень проста . Можно добавить к ней ряд опера
торов, которые позволят провести разграничительные линии, рас
ширить заголовок, улучши_ть оформление диаграммы . Графическое
отображение информации на печатающем устройстве независимо от
применения масштаба всегда связано с использованием оси Х для
нанесения значений переменной величины . Гистограммы чаще стро
ятся по оси У и располагаются вертикально. Поскольку печатающее
устройство позволяет откладывать значение переменной величины
только по оси Х, любая программа, связанная с построением диаг
рамм или графиков, должна осуществлять поворот графического
изображения . Хотя в эту программу были специально введены дан -
159
ные для построения кривой распределения, ее можно использовать
и с другими данными.
Программы МАСН и GANT по з воляют строить графики на тер
минале ЭВМ с применением масштаба. Применяя масштаб, можно
строить двумерные графики на экране дисплея или с помощью пе
чатающего устройства. Экран терминала в продольном направлении
(ось Х) включает 64 символа, лист печатающего устройства -
80 символов. По вертикали (ось У) экран дисплея разбивается
на Jб строк; а высота графика, полученного на печатающем устрой
стве, ограничивается 11 дюйм (279 мм) с учетом стандартного форма
та листа бумаги (8 1/2 дюйм х 11 дюйм). Построить двумерный график
на экране дисплея или с помощью печатающего устройства неслож
но, если следовать нескольким простым правилам. В качестве пер
вого примера рассмотрим график синусоиды (рис. 8.1). Каждый ин
женер знает, что синусоида может иметь отрицательные значения.
Экран дисплея заполняется символами так же, как заполняется
лист бумаги при движении каретки пишушей машинки . Но каретка
пишущей машинки может возвращаться назад, для дисплея такой
возврат невозможен. Поэтому первое правило для построения гра
фиков на терминале ЭВМ заключается в том, чтобы все значения
переменных были положительными. Поэтому значения синусоиды
должны изменяться не от +1 до - 1, а от О до+ 2, занимая на экра
не 50 позиций, и надо расположить график как показано на рис . 8.2 .
Второе правило для построения графиков на экране дисплея или с
помощью печатающего устройства: значения переменной величины
могут наноситься только по оси Х. В примере с синусоидой это озна
чает, что кривая должна быть повернута относительно начала коор
динат, если мы хотим получить график функции на экране или печа
тающем устройстве:
10FORI= ОТО6,4STEP0,2
20У=SIN(I)*25
30 PRINT ТАВ (У + 35); «*»
Рис. 8.1. График y = sin х
Рис. 8.2. Построение графиков на эк -
ране дисплея:
I - левое поле длиной 1О пробелов; l/ -
50 пробелов ; l/l -4 пробела; ! V- пози
ция 35
160
j
о
40 NEXТI
Эта короткая программа позволяет получить на экране термина
ла синусоиду.
Строка10:FORI = О ТО6,4STEP0,2
Эта строка задает отрезок, изображающий угол примерно 2 л рад .
Отрезок разбивается на 32 точки с шагом 0,2 (6,4/0 ,2 = 32), из ко
торых 16 точек находятся выше ну.'Iевой линии, а 16 - ниже нуле
вой линии.
Строка20:У =SIN(1)*25
В этой строке оператор присваивания за дает значение У, равное
синусу угла 0,2-25 для первой точки графика, т. е !J,2-25 =
= 0,08726
Строка 30: PRINT ТАВ (У + 35) ; <<*>>
Согласно рис. 8.2 _первая звездочка печатается на экране в пози
ции 35 + 0,08726 . С учетом левого поля длиной 10 символов центр
графика соответствет 35- й позиции на экране. Синусоида занимает
по ширине 50 позиций. Это определяется строкой 20, где + 1 или
-
1 умножается на 25. Оператор в строке 30 указывает позицию пе
чати . Добавим .
Строка 25: PR INTY;
При выполнении программы этот оператор позволяет пользова
телю увидеть, какие значения принимает У. Значения У могут быть
целочисленны, если добавить и изменить строки:
Строка 22: Yl = INT (У -\- 35)
Строка 25: PRINT Yl
Теперь перепишем операторы PRINT в виде LPRIN_T, чтобы по
лучить твердую копию.
8.3. ПРОГРАММА МАСН
В качестве первого примера построения на ЭВМ графиков с ис
пользованием масштаба служит программа МАСН. Программа за
нимает 862 байт оперативной памяти и предназначена для построе
ния графика загрузки оборудования (распечатки 8.2, 8.3).
Комментарии к программе. Строка 10: А = 20:В = 60
В строке 10 устана вливаются минимальное и максимальное коли
чество часов в неделю, которое станок будет загружен.
Строка50:FOR1= АТОВSTEP5
После того как в строке 40 определено место каждого элемента
заголовка в печатной строке, строка 50 по существу означает:
FORI =20ТО60STEP5
Первое зн:1.чение переменной цикла 20, затем 25, 30 и т. д. Шаг
выбран произвольно. Если на терминале или печатающем устройстве
отводится 30 позиций, то это число позиций приравнивается диапа
зону изменений Х = 60-20=40; 30/40=0,75. Таким путем опреде
ляется масштаб по оси Х .
Строка 55: LPRINT ТАВ (1*0,75); I;
6 Зак. 2156
161
• 1 REM PROGRAH NAHE МАСН
2 REM HRITTEN 8У J . E.NICKS
3 REM COPYRIGHT 1981 ALL RIGHTS RESERVED
1 REM COHPUTER APPLICATIONS FOR ТНЕ MANUFACTURING ENGINEER
10 А=2018=60
15 LPRINTCHRS(27) ICHRS< 11>; "HACHINE LOAD CHART"
20 LPRINT"HACHINE NAME-----GRINDER-----OCT-NOV 1980"
21 LPRINTCHRS(138)
30 LPRINT"HOURS LOAD PER НЕЕК"
~1 LPRINTCHRS(138)
10 LPRINПAB(S)l"HEEK"ITA8(1S>l"HOURS THIS HEEK"ITA8(ЗS)l"OVER ТIHE"ITA8(S5)1"D0
HN"
50 FORI=ATOE:STEP5
55 LPRINTTAB<I•. 7S) ; I;
60 NEXTI
65 LPRINTCHRS(138)
70 FORX=1Т010
75 READH,D
76 H1=H1+H:D1=D1+D
77 IFH>10THEN78ELSEBO
78 01=01+<Н-10>
80 LPRINПAB(S> IXIТAB<H•,75+3) 1"• " I TAB(SS> IDI
85 LPRINTCHRS(13)
86 LPRINT"
---------------------------1---------------"
90 NExix
100 ОАТАЗО,З,35,6,38,6,10,О, ◄ 2,5
110 DATA11,в , 1в,10,2s,1z,32,10,36,1
120 LPRINTCHRS(1З8)
130 LPRINTC:HRS<27)1CHRS(11)1"ANALYSIS"
110 LPRINTCHRS(138)
•
150 LPRINT"AVERAGE HOURS OPERATED THIS PERIOD HAS 8EEN"IH1/10
160 LPRINT"TOTAL DOHN ТIМЕ HOURS HAS E:EEN" IDl
170 LPRINT"TOTAL OVERТIHE HOURS HAS E:EEN" I Ol
180 END
Распечатка 8.2.
MACHINE LOAO CHART
MACHINE NAME - ----GRINDER-----OCT-NOV 1980
HOURS LOAD PER WEEK
НЕП:
HOURS fHIS НЕЕМ
OVER flME
202530351015505560
--------------- - -----------1---------------
--------- - -----------------1-------- - ------
DDWN
3
6
з
•
6
162
---------------- -------- --- 1---- ---------- -
1
•
---------------------------1---------------
5
•
---------------------------1----------- - ---
6
•
В
------- ------------ ------ -- 1---------------
7
•
10
---- -------- ---------------1-------- - ----- -
в
•
12
-------- ------ ---- --- --- ---1----------- ----
9
•
10
---------------------------1------------ . --
10
•
1
·---------------------------!-
АVЕЛА(;Е: HOURS OPERATEO THIS f'ERIOD HAS E:E:EN Э7
ПIТАL . [)OHN ПМЕ HOURS HAS f:EEN , 61
lUTAL OVERTlME HOURS HAS BEEN 11
Распечатка 8.3 .
График загрузки оборудования
Наименование оборудования: шлифовальный станок --- окт.
-
нояб. 1980
Количество часов работы в неделю
Недели
Врем>1 работы
во II смену
20
25
30
35 40
45
х
2
х
3
х
1
4
х
1
5
х
6
х
7
х
8
х
9
х
10
х
Анализ
Среднее время загрузки за отчетный период 37 ч
Общее время простоев оборудования 64 ч
Общее время работы во вторую сме1-1у 14 ч
К распечатке 8.3
Врем,~
простоев
505560
3
6
6
о
5
8
10
12
10
4
В этой строке весь диапазон изменения Х, равный 40 ед. и разде
ленный на отрезки по 5 ед., умещается на 30 позициях терминала.
Точка с запятой в конце строки означает, что печатающее устройст
во не может перейти к печати строки, пока полностью ее не сформи
рует .
Строка70:FORХ= lТОlO
График охватывает период времени в 10 недель, поэтому про
грамма читает 10 групп данных. Эту строку можно переписать ина
че, используя переменные величины .
Строка70:FORХ=SТОF
где S означает «Старт», а F - «Финиш».
Строка 75: READ Н, D
Значения Н (время работы оборудования) и D (время ремонта)
получены из оператора DAТА, что упрощает программу. Корректи
ровка исходных данных в программе возможна двумя способами.
Первый способ. Удалите начальную группу данных в операторе
DA ТА. При этом способе корректировки строка 70 примет вид:
Строка 70:FORХ = 2ТОll
ИЛИ
Строка70:FORX=SТОF
В последнем случае требуется дополнить программу еще двумя
операторами для ввода значений S и F.
Второй способ . Измените период времени, охватываемый графи
ком, добавив данные за 11-ю неделю:
5•
163
Строка 70: FORX = 1 ТО 11
Строка76:Hl=Hl+H:Dl=Dl+D
В этой строке вычисляются переменные Hl (общее время работы
оборудования) и Dl (общее время ремонта).
Строка 77: IFH > 40 THEN 78 ELSE 80
Строка78:01=01+(Н- 40)
В строке 77 проверяется условие, работало ли оборудование в
начале недели более чем в одну смену, и значения переработки сум
мируются в строке 78 . Если сверхурочных на этой неделе не было,
то управление передается оператору в строке 80.
Строка 80: LPRINT ТАВ(5); Х; ТАВ (Н*О,75+3): <ю; ТАВ (55);
D;
При построении графиков в масштабе необходимо выравнивать;
значения по оси Х с заголовком, напечатанным ранее. ТАВ(55);
D печатает номер недели. ТАВ (Н*О,75+3); <<*>> умножает отработан
ные часы (Н) на 0,75 (масштабный коэффициент, уже встречавшийся
в программе), затем прибавляет 3, выравнивая положение звездочки
по отношению к шкале. Часть строки ТАВ (55); D печатает значе
ние сверхурочной работы, прочитанное ранее.
Строка 86: LPR INT «___ I
_
_
_»
Оператор этой строки печатает символ «I» в 40-й колонке, чтобы
выделить для наглядности значения, превышающие 40 ч (сверхуроч
ная работа) .
Программа была написана для того, чтобы показать, насколько
просто строить графики с помощью ЭВМ . Если бы перед заводски
ми инженерами была поставлена задача проследить с помощью та-
1шх графиков загрузку нескольких станков, программу пришлось
бы переписать, чтобы ею было удобнее пользоваться. Например,
группы данных в операторе DA ТА следовало бы записать на от
дельных строках программы, а в циклы FOR - NEXT ввести пере
менные, значения которых читаются из оператора DAТА. При та
ком подходе корректировка программы требует внесения изменений
только в оператор DA ТА. Перепрограммировать какой -либо из цик
лов FOR - NEXT уже нет необходимости. Эта программа может
работать с файлами, используя средства обработки файлов, описан
ные в гл. 9, однако для подобных целей намного проще писать
программы с операторами DATA.
8.4 . ПРОГРАММА GANT
Программа занимает 578 байт оперативной памяти (распечатка
8.4).
Комментарии к программе. Инженеру-технологу неизбежно при
ходится пользоваться графиками для планирования и контроля ра
бот . Программа GANT - это очень простая программа, во мно
гом напоминающая программу МАСН. Поэтому пояснения к этой
программе касаются только различий в определении масштаба. 52
164
REM F·ROGRAM NEME (;ANTT
REM WRITTEN ВУ J,E ,NICKS
3 REM COPYRIGHT 1981 ALL RIGHTS RESERVED
q REM COHF~TER APPLICATIONS FOR ТНЕ MANUFACTURING ENGINEtR
10 1.PR1NTCHR$( 27) ;CHR$ ( 1~); "PROJECT CONTROl. CHART FOR PROJECT 1"
20 LPRINTCHRS(138)
30 I._ F 'RI NT"lTEM " ; ТАЕ: ( ЭО); "WEП(S" ; ТАЕ:< 60); "TIHE"; ТАЕ: <66); "START"; ТАЕ: <72); "FINI.SH"
~О LPRINTCHR$(138)
50 F(IRI=0TO52STEP1
60 LPRINTTAБCI •.1+7);I;
70 NЕХП
80 LPRINTCHRSC1З8)
90 r· □ RX=l ТО!О
llJO READA'ltS,F
110 T=F-S
120 t_F "RINTA•:
130 FORY=STO(F-1)
110 LF·RINTTAB<S+7) j "I " ;
1 ~iO NEXTY
160 t_PRINTTAE:<60);T;TAБ<66>;Я;TAB<72);F;
170 LPRINTl~R$113B)
180 LPRINTCHRSC1381
190 NEXTX
200 DATADES.A,1 ,10
210 DATABUILD,10 ,20
220 DATADES,B ,4,8
230 DATAE:UILD,B,16
240 DATAASSY,20 ,30
250 DATATRY,31 ,35
260 DATADEBUG,35,40
270 DATAREWRK,40 ,42
280 DATASHIP,42 ,43
290 DATACOLLECT,44,45
300 END
PROJECT CONTROL CHART FOR PROJECT 1
ПЕМ•
WEEKS
TIME START FINISH
4в12162024283236404~4852
DES.A IIIIIIIII
9
10
BUILD
IIIIIIIIII
10
10
20
DES,E:
IIII
4
4
в
E:UIL.D
IIIIIIII
в
в
16
ASSY
IIIIIIIIII
10
20
30
TRY
IIII
4
31
35
DEE:UG
IIIII
5
35
~о
REWRt(
II
2
40
42
SHIP
I
42
~з
CDLLECT
I
44
15
Распечатка 8.4 .
165
График контроля работ по проекту No 1
Этап
Недели
Продолжи-
тельность Начало Окончание
О481216202428323640444852
РАЗБ. А IIIIIIIJIII
9
1
10
СТРОИТ.
1III IШ III
10
10
20
РАЗБ. Б
IIII
4
4
8
СТРОИТ
IIIIIIII
8
8
16
СБОРКА
1III III II III
10
20
30
ИСПЫТ.
1111
4
31
35
ОТЛАД.
1III 1
5
35
40
ДОРАБ.
11
2
40
42
ОТГРУЗ.
1
1
42
43
ОПЛАТА
1
1
44
45
К распечатке 8.4.
недели занимают 53 печатных позиции. Номера недель печатаются
на графике с интервалом в 4 недели.
Строка 60: LPRINT ТАВ (I * 0,4 + 7); 1;
I - параметр цикла (счетчик числа недель) в строке 50; 0,4 - мас
штабный коэффициент 1 , 7 - размер левого поля.
Строка 140: LPRINТ ТАВ (S + 7); «Т»;
Переменной S присваивается значение срока начала работ, 7 --
размер левого поля.
Корректировка программы GANТ проводится, как и кор
ректировка программы МАСН, путем изменения оператора DA ТА.
В программу GANТ можно включать алгоритм расчета критического
пути.
Инженер-технолог использует и другие методы планирования и
контроля работ, например ПЕРТ или ЛОБ (Лайн оф Бэланс), кото
рые также могут быть запрограммированы .
Для размещения программы сетевого планирования (ПЕРТ)
обьхчно требуются большие ресурсы памяти, поэтому большщ1ство
существующих программ написано для больших ЭВМ. Описанный
подход к программированию такого вида графиков имеет два основ
ных преимущества. Первое - на графике будет заметна ошибка, ес
ли скорректированные данные вводятся единой группой: могут из
меняться значения последующих данных вследствие неправильной
простановки запятой в операторе DA ТА, или резерв времени может
оказаться таким, что вызовет остановку выполнения программы.
Второе преимущество связано· с легкостью, с которой в проект
можно вносить изменения. Если число событий в графе превышает
ЗО-40, наглядность графа может быть улучшена за счет проведе
ния вертикальных линий, образованных, например, символом «I».
• Эrо позволит сэкономить nремя и не размечать граф от руки. Такой
прием был использован в программе МАСН для обозначения на гра
фике сверхурочных работ.
1 Масштабный коэффициент следует вводить, если число позиций (зна
комест) меньше числа недель. Например, если мы отводим 22 позиции, то мас
штабный коэффициент равен 0,4 (22 :52=0,4).
-
Примеч. пер.
166
8.5 . ПРОГРАММА MAN
Программа занимает 2398 байт оперативной памяти (распечатка
8.5).
Циклограмма обслуживания миогостаиочиого рабочего места
Событие
Вспомогательное время
Основное технологическое время
Время ожидания
Цикл
Оператор простаивает
Коэффициент занятости рабочего, %
Коэффициент загрузки станка, %
Расходы на заработную плату
Станок 1
0,1
0,35
0,05
0,25
0,9
Оператор
0,1
0,8
8,5
Станок 2
0,3
0,2
о
0,25
1,00
Расходы на эксплуатацию станка
12,5
Стоимость обработки
16,75
Себестоимость детали
0,0697217
8,25
12,5
0,0520833
Производительность, шт/ч
240
Если оператор работает только на . одном станке, резу;1ьтаты следующие
Производительность, шт/ч
133,333
120
Себестоимость детали
0,1575
0,139583
К распеч.атке 8.5 .
Графики обслуживания многостаночного рабочего места были
заимствованы инженерами-технологами из практики работы инже
неров по организации и нормированию труда. Они позволяют опре
делить занятость рабочего и оборудования при работе одного опера
тора на наскольких станках (рис. 8 .3). Графический анализ дает воз
можность достоверно определить нормы выработки одно.го рабочего,
занятого обслуживанием двух станков; стоимос,:ь обработки детали
при обслуживании одним рабочим двух станков и степень загрузки
рабочего и станков.
Инженер отмечает на графике, имеющем шкалу времени, затраты
времени на установку детали, ее обработку и снятие для каждого
станка до тех пор, пока приемы не начнут повторяться. Затем инже
нер рассчитывает полный цикл изготовления двух деталей (одной де
тали на станке l и другой детали на станке 2) и другие основные па
раметры многостаночной работы, такие, как время простоя, занято
сти и общее количество деталей, которое можно обработать за l ч.
Одно любопытное отступление: автор применял графики обслу
живания многостаночных рабочих мест свыше 25 лет, читал о них в
учебниках, но ни разу не видел, чтобы пользовались расчетным мето
дом определения параметров многостаночной работы, только графо
аналитическим.
Более того, математическая модель была разработана автором
только после решения применить ЭВМ для анализа процесса много
станочной работы. Другой интересный факт: основное назначение
графика состоит в том, чтобы рассчитать затраты времени в течение
цикла. Если создана математическая модель, то ЭВМ определит зна
чения всех величин расчетным путем и надобность в графических по
строениях отпадет. Эта программа включена в данную главу не nото-
167
168
REM PROGRAM NAME MAN
2 REM WRITTEN ВУ J,E ,NICKS
3 REM COMF'UTER AF'PLICAТIONS FOR ТНЕ MANUFACТLIRING ENGINEER
'1 REM
COPYRIGHT 1981 ALL RIGHTS RESERVED
-.J CLS
10 PRINT"THIS PROGRAM CALCULATES TlME AND PRODUCTION "
11 PRINT"RATES FOR 1 MAN OF'ERAТING 2 MACНINES"
12 PRINT"IF YOU i<EEO INSTRIJCTHINS ТУРЕ 1 If' NOT ТУРЕ 2"
20 INPUTZ
ЗО ПNZGОТ!ИО ,1 '10
'10
PRINT"INSTRUCТIONS"
50 PRINT"THERE ARE А SERIES OF INPUTS NECESSARY FOR тн:rs PROGRAM,"
60 PRINT"TНIS f··RQl;RAM ACCEPTS DATA FOR ONE MAN TWO MACHINES,"
70 PRINT"IТ IS NOT NECESSARY FOR ТНЕ TWO MACHINES ТО HAVE ТНЕ"
ВО PRINT"SAME CYCL.E ТIMES ПR COSTS, IТ IS NECESSARY HOWEVER ТО INf 'UT"
90 PRINT"THE DATA IN ТНЕ SEQLIENCE ASl(EO FOR"
1 О О PRINT"DATA FOR ТНЕ L.ONGEST CYCL .E IS INPUTTEO F' IRST, "
11 О PRINT"Al .l _ ТIМЕ VAl .LIES ARE IN OECIMAL_ MIN, "
120 PRINT"MACНINE AND MAN OOLLARS RATES ARE INPUТТED SEPARAТL_ У"
1'10 PRINT"ТYPE IN ТНЕ DATA FOR ТНЕ MACHINE ТНАТ J.IAS ТНЕ LDNGEST"
150 PRINT"H!ТAL CYCLE FIFIST"
160 INPUT"l_(JAD ПМЕ , MACHINE 2 ";1.2
170 INF•LJТ"LINLOAD ТIМЕ , MACHINE 2"; Ll2
HJO INF'UT "PROCESS ТIМЕ , MACHINE 2"; Р2
190 INF'LIT"COST PER HOUR FOR ТНЕ MAN ";L)
INPUT"COST PER HOUR FOR MACНINE 2 "; [)2
INPUT"l .OAD ТIМЕ , MACHINE 1 " ;t .1
INPUT"IJNUIA[) ТIМЕ , MACHINE 1 "; Lll
INF'LIТ"PROCESS ТIМЕ , MACH:[NE 1"; Pl
INPUT"COST PER HOUR FOR MACНINE 1"; □ 1
200
210
220
2·зо
210
211
212
21Э
2'1'1
250
260
270
280
290
300
310
320
3~0
310
350
360
370
380
390
'1 00
'1 10
'1 20
421
'1 30
'131
' 110
450
'1 60
465
'1 70
'180
'1 90
191
500
510
520
530
510
550
560
570
580
590
591
592
593
591
595
600
610
620
RЕ:м Т1,Е1,Т2,Е2 = то·г TIHE AND EXTERNAL TIHE
REM Ml,MAN WAIT ,W1 ,W2 MACHINE WAIT
REH C,CYCLE,H2,HЗ . ,H1=UTIL. FOR HAN,HACH1&2
REM Р,РС PER HR,R1,R2=MACH RATE,C1,C2 COST РЕ~ HR
T1=L1+U1+P1 1El=L1+Ul
T2=L2+tl2+P2:E2=l.2+U2
IFE1<P2THENЗ00ELSE280
IFE1=PZTHEN310ELSE290
lf'E 1 >PZTHEN380
м1=Р2-Е1:к1~т2 - т1:w2=0
С=Т2/2:Н2=<Т2-Н1)/Т2
М3=Т1/Т21М1=100
GOT01ZO
м1=0:w1=т2:w2=0
С=Т2/2:М2=<Т2-Н1)/Т2
М3=Т1/Т2:М1=100
GOTO'IZO
Н1=О:Т3=Т2+СЕ1-Р2)
W1=TЗ-T11W2=T3-T2
С=ТЗ/21М2=<ТЗ-Н1)/ТЗ
М3=Т1/Т3:М'!=Т2/ТЗ
G □ то-,21
P=60/C:R1=(O/2)+O1:R2=(O/2)+O2
C1=R1/PIC2=R2/P
P3=60/T11P'l=60/T2:C3=(D+D1)/PЗ:C'l=(D+D2)/P'I
LPRINTCHR$(27) ;CHR$( 11) ;ТАЕ:(8) ; "MAN - MACHINE ANAl .YSIS "
LPRINT"IТEM","MACHINE 1" , "M AN " , " M AC HI N E 2"
FORX=OTO 6 '1:l.F 'RINT " - ";INEXT
LF'RINT
LPRINT"EXTERNAL" , E1, ,E2
L_PRINT"PROECSS",P1,,P2
LPRINT""
LPRINT""
LPRINT"WAIT TIHE",W1,,W2
LPRINT"CYCLE" ,C , ,C
LPRINT"MAN WAIТS",,Ml
LF'RINT "MAN LIТIL Z " , ,М2
LPRINT"MACH UTIL Z ", М З "M 'I
LPRINT"MAN COST", ,"$ ";0
LPRINT"HACH COST 11 ,"t 11 ;01, , 11 t ";D2
LPRINT"TOT RATE" ," S";R1,, " S";R2
LPRINT"COST F"ER PC","S ";c1,,"S ";c2
LPRINT"PC PER HR" ,, P
LPRINTCHRS(13)
LPRINT"IF . ТНЕ MAN OPERATES ONLY ONE MACHINE ТНЕ FOLLOWING DATA APPLIES"
l.PRINTCHRS <138)
LPRINT"PC PER HR", Р3" P'I
LF'RINT"COST PER F'C","S";cз, ,"$";с1
INPUT"TYPE 1 ТО CONTINUE 2 ТО ЕХIТ";У
DNYG □ тo1 о, 620
Распечатка 8.5 .
END
Параметры двухстаночноrо обслуживания
Станки /, 2
L l, L2 - время на установку детали
Ul, U2 - время на снятие дста;ш
Р l, Р2 - основное технологическое время
TI, Т2 - оперативное время; Тl = Ll + Ul+Pl; T2=L2+ U2+P2
Е\, Е2-вспомоrательное время; El=Ll+UI; E2=L2+U2
Параметры, относящиеся к оператору
М l - простой оператора
Друг и е пара~tетры
W 1 - простой станка 1
W2 - простой станка 2
С.- приведенный цикл
М2 - коэффициент занятости рабочего
МЗ - коэффициент загрузки станка l
М4 - коэффициент загрузки станка 2
D - расходы на заработную плату одного рабочего в течение I ч
D l - rаеходы на эксплуатацию станка l в течение l ч
D2 - денежные затраты на I ч работы станка 1
С 1 - расходы на эксплуатацию станка 2 в течение I ч
С2 - денежные затраты на I ч работы станка 2
Р - п р оизв о дителыюсть станка, шт/ч
R1. -
стоимость обработки детали на станке 1
R2 - стоимость обработки детали на станке 2
Рис . 8.3. Параметры многостаночного обслуживания для двух ст анков
му, что она строит график, а потому, что она позволяет избежать
графических построений. Мы не даем построчный комментарий к
ней по двум причинам. Во-первых, понадобил1:!_сь бы целая глава,
чтобы пояснить логику программы. Во- вторых, сама математиче
ская модель не содержит ничего, кроме операции сложения и вычи
тания . Однако читателя может заинтересовать метод разработки
математической модели . На рис. 8.4 изображено дерево решений,
раскрывающее варианты построения процесса многостаночной ра
боты . В начале анализа дерева решений имелось 12 возможных
альтернатив, число которых в конечном счете было сведено к
трем.
Т2 ;;;;,: Т\
__ __ ___
____ 1
,_______
____
El<P2
Ml= P2- EI
Wl = T2-TI
W2= 0
С=Т2/2
М2= (T2- Ml)/T2
МЗ = Т1/Т2
М4=Т2/Т2
Р=60/С
Е!=Р2
М\=0
W2 = Т2-Т\
· W2=0
С-:- Т2/2
М2 = (T2- Ml )/Т2
МЗ=ТI/Т2
М4 = Т2/Т2
Рис . 8.4. Дерево решений
Е!>Р2
М\=0
ТЗ = Т2 + (EI-P2)
Wl = ТЗ-Т\
W2 = ТЗ-Т2
С2=ТЗ/2 .
М2 = (ТЗ-М!)/ТЗ
МЗ=ТI/ТЗ
М3 = Т2313
169
MAN -
MACHINE ANALYSIS
ITEH
MACHINE 1
HAN
MACHINE 2
EXTERNAL
PROECSS
.1
,35
WAIT TIME
,OS
,3
.2
CYCLE
.25
,25
MAN WAIТS
,1
MAN UТIL. Х
,В
МАСН UTIL Х
,9
100
MAN COST
$ В,5
НАСН COST
t 12,5
$ 8.25
ТОТ RATE
$ · 16.75
$ 12,5
COST PER РС
$ ,0697917
$ ,0520833
РС PER HR
240
IF ТНЕ HAN OF"ERATES ONL У ONE MACHINE ТНЕ FOLLOWING DATA APPLIES
РС PER HR
COST PER РС
133,333
S •1575
120
$ .139583
MAN
MACHINE ANALYSIS
ITEM
MACHINE 1
MAN
MACHINE 2
EXT[HNAL
F··Roe·css
WAIT ТIМЕ
CYCL.E
MAN WAITS
HAN LIПL. Х
.з
•1
.275
.25
.25
.05
.2 75
МАСН LIТIL Х
,BHllEJ2
,909091
MAN СОВТ
$ 8,5
НАСН COST
S 9.5
$ 8.25
r1,1 · RATf ~
S 13.75
$ 12.s
со~; -1 PER F:•c
s • O6зо2O0
s. • 0572917.
f''CH.RHR
21fl, 1Ef2
п· ТНЕ : MAN OF'ERATES ONLY ONE MACfПNE ТНЕ F 'DLLOWING DATA APPLIES
РС f·FR HR
COS f f"'E:R F'Г.
IЭ:J,333
s .1э5
Распечатка 8.5 (продолжение)
120
$ • 139~i83
Чтобы провести анализ, подобный проведенному программой
МАN, без использования ЭВМ, опытному инженеру потребова
лось бы 1,5 ч. ЭВМ решает эту задачу за 3 мин, включая время, не
обходимое на ввод данных.
Есть ли программы для многостаночных процессов, в которых
один рабочий обслуживает три и более станков? Когда за рабочим
закрепляют три или более единиц оборудования, возникают серьез
ные трудности. Во-первых. несмотря на незначительное увеличение
выпуска продукции при обслуживании трех станков в большинстве
случаев возрастает общая себестоимость детали, обрабатываемой на
этих станках. Во-вторых, хотя занятость рабочего возрастает, коэф
фициент использования станков уменьшается. Лучшим вариантом
на практике является максимальное использование всех возможных
факторов. В-третьих, если наладочные работы требуют значитель
ного времени, то становится трудно контролировать, из-за чего про-
170
исходит фактический простой станков (из- за наладки или ожидания
обслуживания).
-
Некоторые читатели могут с этим не corласиться. Возможно, они
попробуют написать программу для ЭВМ, которая бы обосновывала
их точку зрения.
Упражнение 8. 1 (наименее трудное) . Написать программу для ЭВМ, от
ражающую результаты работы технического отдела по снижению себестои
мости изготовления различных изделий. На графике может быть проведена
линия, обозначающая запланированную экономию времени или денежных
средств. Предусмотреть в программе простые средства для корректировки
ИСХОДНЫХ данных.
Упражнение 8.2 (средней трудности). Написать программу для построе
ния графика ГАНТА, взяв за основу программу, приведенную в этой главе.
Включить в нее модуль расчета резерва времени. После того как в программу
введены новые данные, о.на должна рассчитать новые сроки выполнения работ.
Это упражнение поможет программисту лучше освоить применение логи
ческих выражений.
Упражнение 8.3 (трудное). Написать программу, которая может строить
ПЕРТ - ГРАФ . Программа также должна рассчитывать критический путь,
используя следующие данные: наиболее раннее возможное время выполнения
работы; ожидаемое время выполнения работы; наиболе~ позднее возможное
время выполнения работы.
Глава 9
МЕТОДЫ ОБРАБОТКИ ФАЙЛОВ
9.1 . СРЕДСТВА ЯЗЫКА БЕПСИК ДЛЯ ОБРАБОТКИ
ФАйЛОВ
В · системе программирования микро ЭВМ TRS-80 имеются
средства обработки файлов прямого и последовательного доступа.
В файлах прямого доступа может быть прочитана любая запись на
диске. При чтении последовательного файла для микроЭВМ TRS-80
записи с диска вводятся последовательно, в том порядке, в ко
тором они были помещены на диске.
Язык программирования Бейсик часто называют языком высокого
уров н я , или языком для решения научных задач. Слово «научных» .
вообще говоря, означает, что на Бейсике легко можно описать слож
ные математические расчеты. Первоначально Бейсик создавался как
язык для проведения математических расчетов и не был предназна
чен для решения экономических задач . Другие языки, напри
мер КОБОЛ или РПГ, специально разработаны для программирова
ния типичных экономических задач, таких, как обработка массивов
информации или составление отчетов, но они менее удобны для вы
числений.
Почти 20 % всех операторов и команд, используемых в Бейсике
для TRS-80, применяется исключительно для обработки файлов.
Можно написать много полезных программ, не имея представления
о расширенном языке Бейсик, допускающем обработку файлов.
Однако во многих случаях можно и нужно создавать файлы для
хранения используемой в техническом отделе информации , напри
мер сметных данных о капиталовложениях; данных учета использо
вания инструмента и дв и жения материалов; данных о ходе выполне
ния новых проектов и др. Этот перечень, безусловно, можно продол
жить . Есть свои плюсы и минусы при обработке файлов на автоном
ных микроЭВМ. Любое структурное подразделение, которое хра
нит некоторые объемы информации, используемые внутри подразде
ления , может быть заинтересовано в создании таких файлов . Неко
торые задачи обработки данных удобнее решать на большой ЭВМ,
а для решения других · задач целесообразнее использовать микро
ЭВМ на рабочих местах.
Предположим, в отделе ремонта среднего по размерам предприя
тия необходимо обновлять учетные данные, используемые для состав
ления ежедневого графика планово-предупредительных ремонтов;
для учета объемов ремонтных работ и времени простоев по каждой
единице оборудования; для текущей инвентаризации запасных час
тей и деталей по каждому станку.
Если решать эту задачу на большой ЭВМ, то программировать ее
172
должны в отделе обработки данных, Автор знает по собственному
опыту, что после нескольких месяцев работы над постановкой зада
чи, в течение которых заводские специалисты пытаются объяснить.
свои требования, они начинают сомневаться в том, что поставленные
цели могут быть достигнуты. Еели решение этой задачи будет пору
чено инженеру-технологу, знающему ремонтное хозяйство и знако
мому с программированием для ЭВМ, оно может быть получено го-
раздо быстрее.
.
Но главный вопрос не в том, кто может писать программы
ЭВМ, а в том, кто еще в организации должен их использовать.
Например, если программы для решения задач управления
ремонтным хозяйством представляют часть набора программ,
используемого сотрудниками других подразделений, то составле
ние программ и внесение в них необходимых изменений про
водит персонал отдела обработки данных. Если эти программы будут
использоваться только в отделе ремонта, то составление программ и
внесение необходимых изменений может быть поручено любому спе
циалисту . С точки зрения инженера немаловажен еще один фактор.
Некоторые фирмы начали предоставлять различным структурным
подразделениям доступ к вычислительным мощностям в режиме
«онлайн», используя дисплеи и телефонные линии связи. Такой под
ход имеет свои преимущества и недостатки . Работа в режиме «он
лайн» имеет свои особенности. Нередко абоненты вынуждены ждать,
когда освободиться центральная ЭВМ. По мере увеличения числа
абонентов часто приходится заменять ЭВМ более мощной. Обычно в
этом случае программы надо переделывать. Другая сложность свя
зана с несовместимостью языков программиро.вания. Не хотелось
бы выглядеть слишком придирчивым, но •нельзя не отметить, ЧТ(}
большинство профессиональных программистов, стремясь сделать
хорошо · работающую систему, заставляют программу делать боль
ше, чем от нее требуется.
Использование микроЭВМ позволяет избежать многих неудобств,
связанных с решением такого типа задач на центральной ЭВМ в рее.
жиме «онлайн» .
Каковы должны быть технические возможности систе мы? Может
лн микроЭВМ с объемом памяти 32К байт удовлетворить ваши по
требности? Хранение данных в настоящее время не является пробле
мой. За последние два года фирмы, выпускающие накопители на маг
нитных дисках, существенно увеличили их емкость. В журналах по
вычислительной технике можно увидеть объявления о памяти на маг
нитных дисках для TRS-80 емкостью 1,5М байт · (такой объем
памяти имели многие большие ЭВМ всего 5 лет назад) .
В этой главе детально рассмотрены програм мы обр аботки файлов.
К каждой учебной программе дан ы постро ч ные кvмментарии . Под
робно объяснены новые операторы, встречающиеся в программах.
Основное внимание уделено методам обработ ки файло в прямого до
ступа, которые обладают больши м и возможностями по сравнению с
последовательными файлами .
173
9.2. ПРОГРАММА R1ПLE
Программа занимает 2514 байт оперативной памяти (распечатка
9.1 ).
Файл учета комплектующих изделий
Номер
Наименова-
Годовая
Цена
детали
ние детали
потребность
детали
82 101
Отливка
1000
10,3
Общие затраты на эту деталь составляют IО 300 долл.
82 102
Корпус
1000
12,23
Общие затраты на эту деталь составляют 12 230 долл .
82 103
Шестерня
250
5,87
Общие затраты на эту деталь составляют 1467.5 долл.
82 112
о
о
Общие затраты на эту дстадь составдяют о
Всего затрат 33343,5
Класс
А
А
в
Примечание. Длядетади No82107 идруrихданныепока отсутствуют,
но место для них в файле зарезервировано.
К распечатке 9.1 .
Это программа учета материальных ценностей , работающая с фай
лом прямого доступа. Она состоит из трех модулей. Модуль 1 позво
ляет поместить в файле записи, содержащие информацию о деталях .
Результатом работы модуля 2 является чтение заданной записи из
файла и ее отображение на экране. Модуль 3 дает возможность выве
сти содержимое файла на печать . Программа рассчитывает стоимость
отдельных деталей, умножая из количество на цену, и итоговую сто
имость. Серия номеров деталей начинается с номера 81200 . После
считывания транслятора с языка Бейсик ·операционной системой в
память ЭВМ печатает вопрос «Сколько файлов?». Если пользователь
нажимает клавишу ENTl::R, ЭВМ по умолчанию резервирует буфе
ры ввода-вывода для трех файлов. Если пользователь намерен рабо0
тать более чем с тремя файлами, он должен ввести их число, напри
мер 5 или 6. Максимальное число файлов, которое может задать
пользователь, 15. Буфер ввода-вывода (рис. 9.1) представляет собой
некоторую область оперативной памяти. В буфер ввода-вывод"
вводится часть файла и хранится там до тех пор, пока не поступит
команда, указывающая, что делать с содержимым буфера . Таким об
разом, буфер ввода-вывода выступает в качестве временной памяти.
Буферы ввода-вывода используются при работе с последовательными
файлами и файлами прямого доступа . •
Комментарии к программе.
Строка 20: OPEN «R», 1, «PA.RT»
Оператор в строке 20 открывает прямой файл R 1 для чтения или
1 Начальная буква англ. Random, что в переводе означает «произволь
ный», «случайный» - Прим. пер .
174
записи и резервирует для содержимого файла буфер l. Имя файла-
~ PART, имя программы - RFILE.
Строка 30:FIELDI, IOASA$ (1), IOASB$ (1), IOASC$(l ), 8ASD$(l),
2ASE$ (l)
Размер буфера ввода-вывода 256 байт . Буфер ввода-вывода мо
жет быть разбит на несколько полей. Каждому полю присваивается
имя. Запись файла, с которой работает данная программа, содержит
пять полей следующих размеров:
первое поле 10 байт; имя А$; поле содержит номер детали, на
пример 82100;
REM PROGRAM NAME RFILE
2 f<EM EaASIC AND ТНЕ MANUFACTURING ENGINEП<
3 REM WRITTEN ВУ J,E,NICKS
1 REM CDPYRIGHT 1981
1 О CL.EAR50 О: CLS
20 OF·EN "R" , 1, "F'ART"
30 FIELD~ , 10 A S А$111,10 AS 8$111,10 AS Cflll ,B AS D$111,2 AS Etlll
.qo FIELD1, 63 AS OUS,10 AS ASC2),10 AS Bt<2>,10 AS CS<2>,8 AS DS<2>,2 AS ES<2>
50 FIELD1,126 AS DUi,10 AS А$СЗ>,10 AS ВS<З>,10 AS С$СЗ>,В AS ОS<З>,2 AS ЕS<Э>
60 FIELDl,189 AS DUS,10 AS А$(1),10 AS 8$(1),10 AS С$(1~,8 AS 0$(1),2 AS f$(1)
7 О r,Ем OPТIONS
80 PRINT"USER OPTIONS ARE"
90 f'"RINT"ТYPE 1 ТО WRIТE ТО ТНЕ FILE"
100 PRINT"ТYPE 2 ТО READ FROM ТНЕ FILE"
110 PRINT"ТYPE 3 ТО PRINT OUT ТНЕ FILE"
120 PRINT"TYPE i ТО EXIT"
125 INF"UT"WHICH ONE DO YOU WISH " ;х
130 ONXGOTO110,260 ,370 ,999
110 INPUT " ENTER ТНЕ PART NUMBER";Al
111 PRINT"LENGTH OF FILE";L □ Flll
1.q5 AZ=Al-82100
150 R = 1+INT((A2-1)/1):P=A2-1жINT<<A2-1)/1)
151 PRINT"RECORD NO " ;R;"POSIТION";P
160 GET1,R
170 INPUT " ENTER ТНЕ F"ART NAME"; Eat
180 INF0 UT"ENTER ТНЕ ANNUAL USAGE"; С
190 INF'lJТ"ENTER ТНЕ PART COST" ; □
200 INPUT"ENTER ТНЕ CLASS OF F·ART I,E. А , е, , С , X";Et
210 LSETB$1Pl=BS:LSETCtlPl=MKIS<C>:LSET0$1Pl•MKS$COI
220 LSETE$1Pl=E$
230 F'UT1,R
2i0 INF"UT ' "l 'OR ANOTHER RECORD ТУРЕ 1 OR 2 ТО EXIT"; Х
250 ONXGOTO110,25S
255 CLOSE:END
260 REM READ FROM ТНЕ FILE
265 PRINT"LENGTH OF . FILE "; L.OF 111
270 INPUT"ТYPE IN ТНЕ PART NUME aER" ;Al
280 AZ=Al - 82100
290 R= 1+INTCCA2-1)/1):P~A2 - 1 •INT(CA2-1)/1)
295 PRINT"RECORD NUMEaER" ;R; "POSIТION" ;р
300 GEТl,R
310 PRINT"PART NUMEaER";A1
320 PRINT"PART NAME","USAGE","COST","CLASS"
325 PRINT
330 PRINTBSIPl,CVIIC$1Pll,CVSID$1Pll,E$CPI
ЗiО PRINT"FOR ANOTHER ENTRY ТУРЕ 1 OR 2 ТО ЕХП"
350 INPUTX
360 ONXGOT0260,999
370 LF·RINT"PART NUME:ER RECORD FILE"
3В0 LPRINTCHRtl13B1
390 LPRINT"PART NO,","NAME","USAGE","COST","CLASS"
100 LPRINTCHR$11381
110 Al=B2100
i20 REM PRINT OUT ТНЕ FILE
130 FORR=1TOLOFl11
iiO FORP=1T01
Распечатка 9.1
175
115 А1=А1+1
155 F'RINTR ,P
160 GEТ1,R
170 LF'RINTA1,Bt<P>,CVI<Ct(P)>,CVS<Dt(P)>,E •<P>
175 B=CVI<C • <P>>•CVS<D • <P>>
176 LPRINT"TOTAL USAGE VALUE FOR THIS РАRТ IS •";В
177 С=С+В
178 LF'RINTCHR.<138)
180 NEXTF'
190 NEXTR
500 LPRINTCHR•t138)
:но LF'RINT "TOTAL INVENTORY VALUE IS •";С
999 CLOSE
1000 END
PART NUHE:ER RECORD FILE
PART NO.
NAHE
USAGE
82101
CASТING
1000
TOTAL USAGE VALUE FDR THIS PART IS • 10300
82102
НАСН CAST
1000
TOTAL US,AGE VALUE FOR THIS f 'ART IS t 12230
82103
GEAR
250
TOTAL USAGE VALUE FOR THIS PART IS t 1167.5
82101
SHAFТ
100
TOTAL USAGE VALUE FOR THIS f'ART IS • 112
82105
SHAFT2
700
TOTAL USAGE VALllE FOR THIS f'ART IS • 218~
82106
HOUSING
1000
TOTAL USAGE VALUE FOR THIS PART IS • 5670
82107
о
TOTAL USAGE VALUE FOR THIS PART IS • о
8210В
NOSE
1000
TOTAL USAGE VALUE FOR THIS f ' ART IS
• 1260
82109
TOTAL USAGE VALUE FOR THIS f ' ART IS • о
82110
f'IN
1000
TOTAL USAGE VALUE FOR THIS f'ART IS J 120
82111
о
TOTAL USAGE VALUE FOR THIS F'ART IS t
82112
о
TOTAL USAGE VALUE FOR THIS F'ART IS
•
о
TOTAL INVENTORY VALUE IS J 3~313.5
соsт
10.з
12,23
5.87
1.12
з. 12
S.67
1.26
.12
Распечатка 9.1 (продолжение)
CLASS
А
А
в
с
в
в
в
х
второе поле 10 байт ; имя В$; поле содержит на и менован и е детали,
например корпус;
третье поле 10 байт; имя С$ ; поле содержит зн а чение годового
объема, например 100000;
четвертое поле 8 байт; имя D $; поле содержит цену детали, доЛJ1,.
например 23 ,50;
пятое поле 2 байт; имя Е$; поле содержит код класса детали, на
пример А.
176
Po50I/OR
о5лост1,
(понлт1,J
5yrpep 1
(6режннол пон11т1,J
5yrpep2
(6рененнол понять)
Дuи106ол
. -,тнять
Рис . 9. 1 . Передача дан ных между памятью на дисках, буферами и оператив
ной памятью
Из 256 байт памяти, резервируемых для буфера ввода-вывода, в
примере используется только 40. Поэтому в буфере ввода-вывода мо
жет храниться информация о нескольких деталях. На рис., 9.2 по
казано, как разместить в буфере ввода-вывода записи, относящиеся
к четыр ем различным деталям.
Нужны какие-то параметры, чтобы указать часть буфера, в ко
торой хранится необходимая запись. В файле можно разместить
больше информации, так как буфер ввода-вывода использован
не полностью (рис. 9 .3).
-
В буфере можно выделить новое поле F$ и использовать незапол
ненные 24 байт. Индексированная переменная В$ (1) означает, что
наименование детали хранится в первой из четырех частей буфера .
Например, в строках 40, 50 и 60 переменные В,$ (2), В$ (3) и В$ (4)
указывают, где в буфере хранятся наименования следующих деталей.
В строках 40, 50 и 60 буфер ввода-вывода структурно организо
ван так же, как в строке 30, исключение составляют значения индек
са и поле с именем DU$. Переменная DU$ или DUMMYSTR_ING 1
не выводится на печать и используется для пропуска первой записи
и доступа ко второй записи буфера (рис . 9.4).
Данные для I Данные для I Данные для
детали No 81 201
детали No 81 202 дrтали No 81 203
Данные для
детали No 81 204
Рис. 9.2 . Размещение данных о четырех деталях в буфере ввода-вывода
Хранение А$, В$, С$, D$, Е$ (40 байт)
Резервная область
(24 байт)
Рис. 9.3. Первая четверть буфера (64 байт)
1 • Фиктивная строка. - ПриАt. пер.
177
Строка 40
63 байт
◄------ DU$
Пропуск
-►1
Данные для детали No 81 202
1
, Рис. 9.4 . Фиктивная за
пись для п р оnуска части
блока данных
Если буфер ввода-вывода разделен на шесть частей, то потребуетсн
шесть операторов FIELD. Если буфер ввода-вывода содержит всего
одну запись , оператор принимает вид: FIELD 1, 256 OR А$. Индек
сированные переменные применяются только тогда, когда буфер раз
деляется на части. Буферы 2 и 3 могут быть организованы как после
довательность тех же самых полей.
Строка 141: PRINT «LENGTH OF FILE»; LOF (1). Эта строка
позволяет пользователю видеть, сколько блоков занимает файл. На
пример , если ЭВМ печатает ЧЕТЫРЕ, это означает, что для разме
щения файла требуется четыре блока . Если буфер ввода - вывода
вмещает четыре записи, то можно считать 16 записей. Гибкий диск
диаметром 5 1/4 дюйм (134 мм) имеет 35 дорожек . Каждая дорожка
вмещает 10 блоков (секторов). В свою очередь каждый сектор вмеща
ет 256 байт информации. Объем дисковой памяти, доступной поль
зователю на одном диске, для TRS-80 составляет 58 800 байт ,
или 23 из 35 дорожек. На остальных 12 дорожках гибкого диска за
писаны стандартные утилиты и интерпретатор с языка Бейсик .
Для программы RFILE справедливы следующие расчеты: если
каждый буфер ввода-вывода содержит четыре записи и в него считы
вается часть файла длиной 256 байт, т. е. один сектор, а на одной до
рожке размещается 10 секторов и если пользователю доступны
23 дорожки, то на диск диаметром 5 1/4 дюйма можно разместить ин
формацию о 920 деталях (4 х 10х 23 = 920).
Термин «файлы прямого доступа» может ввести в заблуждение,
если не представлять себе точно, что именно имеется в виду. Данные
хранятся на диске блоками по 256 байт, доступ к ним возможен толь
ко в том случае, если известен номер блока и номер позиции в буфере
ввода - вывода . Это значит, что должен существовать некий алгоритм
пересчета номера детали в параметры, которые понятны ЭВМ
(рис. 9.5) .
Данные хранятся на диске последовательно , но доступ к ним мо
жет ,быть произвольным. Когда пользователь вводит с клавиатуры:
деталь No 82107, ЭВМ должна преобразовать номер в блок 2, позицию
3. Это преобразование выполняет следующая часть программы:
Строка 145: А2 = Al-82100
178
256 5oiim
2555oiim
82101 82102 82103 82104 82105 82105 82107 82108
1
2
3
4
1
2
3
4
~'-1/ "'' / /
позицин
t
nозицил
t
5лох1
5ЛО/f 2
Рис. 9.5 . Доступ к записям данных на диске с использованием номеров бло
ка и позиции
Строка 150: R=l + INT((A2-l/4), P ~
-~ A2 -4*INT ((А2-1)/4,
где R - номер блока; Р
-
номер позиции.
После того как пользователь в ответ на вопрос ЭВМ, помещенный
в строке 140, введет число 82107, будут выполнены следующие дей
ствия:
Строка 140: INPUT «Введите номер детали»; Al = 82107
Строка 145: А2 = 82107- 82100 = 7
Строка 150: R = 1 + INT ((7- 1)/4)=2
Строка 150: Р = 7-4*INT ((7-1)/4) = 3
Данные о детали No 82107 хранятся в блоке 2 на позиции 3 . Опе
ратор в строке 151 отображает эти параметры на экране.
Строка 160: GET 1, R
ЭВМ «считывает» блок 2 и «помещает» его содержимое в буфер 1. Счи
тываются все четыре записи в блоке 2, т. е. данные о деталях с но
мерами 82105-82108.
Теперь, когда блок 2 связан с буфер'ом ввода-вывода, операторы
в строках 170- 200 служат для ввода в программу данных, которые
затем будут помещены в файл. Обратите внимание на то, что символь
ные переменные используются для хранения алфавитно-цифровых
данных, а обычные переменные - для хранения цифровых данных .
Строка 210: LSET В$(Р) с-:, B,t :LSETC$= МКI$ (С); LSETD$(P) =
= MKS$ (D)
LSET или RSET переносят данные в буфер (L означает, что данные
сдвинуты влево, R - вправо). Например, ранее размер поля BS ус
тановлен равным 10. Если В$ обозначает наименование детали, на
пример ШЕСТЕРНЯ , то операторы LSET и RSET устанавливают
это значение внутри принимающего поля (рис. 9.6). В$ (Р) помещает
В$ (ШЕСТЕРНЯ) на tретью позицию в блоке 2, т. е. в запись, отно
сящуюся к детали No 82107. По,п: переменную Al, означающую но
мер детали, отведено поле А.$, но оно не используется. Это значит,
что первые 10 позиций каждой записи остаются незаполненными , но
поле резервируется в памяти (рис. 9.7).
Все данные в файле должны храниться в виде символьных пере
менных. Имеются три стандартные функции преобразования действи-
179
LSEТ
G
Е
А
R
$
$
$
$
$
В$1
В$10
RSEТ
$
$
$
$
$
$
G
F
А
R
В$1
В$10
Рис. 9.6. Сдвиг данных влево LSEТ или вправо RSEТ внутри принимающего
поля:
$- пробел
тельных чисел в символьную строку: MKDS в строку длиной 8 байт;
MKS$ в строку длиной 4 байт; МЮ.$ в строку длиной 2 байт. Данные,
хранящиеся в виде символьных строк, не требуют преобразования.
Строка 230: PUТI, R
Этот оператор записывает содержимое буфера ввода-вывода
в файл, создаваемый на диске.
Строка 255: CLOSE:END
Очень важно «закрыть» файл до окончания выполнения програм
мы. Если оператор CLOSE отсутствует, данные в файле могут быть
потеряны.
м
В$
$$$$$$$"$$$GЕАR
. А$0
А$9
Рис. 9 .7 . Использование поля А$ (номер д етали не записывается в файл, по
ле может быть использовано позднее)
Строки 260 -- 350 представляют ту часть программы, в которой
пользователь «считывает» данные из файла. Тот же самый алгоритм
используется для пересчета номера детали в номер блока и номер
позиции .
Строка 300: GEТI, R
_
Эта строка программы «считывает» блок данных.
Строка 330: PRINT В$ (Р), CVI (CS (Р}}, CV$ (D$ (Р)), Е$ (Р).
В этой строке данные, хранящиеся в виде символьных строк, преоб
разуются в действительные числа. Функции CVT и CVS являются об
ратными функциями по отношению к функции MKI$ и MKS$
(табл. 9.1).
9.1. Функции преобразования
Преобразование действительных
чисел в сим.nодьную строку длиной
8байтMKD $
4байтMKS $
2байтМЮ $.
180
Обратное преобразование первых знаков
симво;1ьно й строки в действительное чнс.rю
8 знаков CVD
4 знака CVS
2 знака CVI
Последний раздел программы служит для расчета стоимости де
талей и вывода на печать всего файла. Это можно сделать, организо
вав вложенный цикл FOR - NEXT, в котором переменная R обо
значает номер блока, а переменная Р - номер позиции.
Строка430: FORR = 1ТОLOF(1)
Строка440:FORР= 1ТО4
Пользователь может не знать, сколько блоков занимает файл, по
этому функция LOF (1)* выдает число, которое ЭВМ считывает и ис
пользует при выполнении цикла FOR - NEXT. Поскольку мы ис
пользовали оператор FIELD 4 раза и разделили буфер ввода-вывода
на четыре части или позиции, параметр цикла Р меняется от 1 до 4.
В строке 475 можно производить арифметические расчеты, если
данные хранятся в памяти и ЭВМ не выполняет цикла второй раз .
Переменной В в строке 475 присваивается значение стоимости:
пер.
~ Аббревиатура от англ. «LENGTH OF FILE» - длина файла.
-
Прим.
1 REH PROGRAH NAHE SFILE
2 REH WRITTEN Е:У J.E.NICKS
3 REH E:ASIC FOR ТНЕ HANUFACTURING ENGINEER
1 REH СОРУ RIGHT 1981
5 H=CHRS(13>: CLS
1 О PRINT"THIS PROGRAH IS А HAILING LIST PROGRAM'"
20 PRINT"HAOE UP OF 3 SECТIONS. SECТION 1 CREATES ТНЕ ORIGINAL FILE"
30 PRINT"SECТION 2 UP DATES ТНЕ FILE AND SECТION 3 HERGES FILES"
10 PRINT"l AND 2 INTO А NEW FILE , CALLED FILE 3. "
50 PRINT"AFTER ТНЕ FILE HAS E:EEN UP DATED AND HERGED INTO FILE З"
60 PRINT"FILES 1 ANO 2 ARE IOLLED. AFTER THIS IS OONE ENTER DOS AND "
70 PRINT"RENAHE FILE 3 ТО FILE 1"
90 CLEARlOOO
100 INPUT''F 'RESS ENTER ТО CONТINUE"; Х: ONXGOTOl 1 О
110 CLS:PRINT"OPTIONS "
120 PRINT"TYPE 1 ТО CREATE ТНЕ FILE"
130 PRINT"TYPE 2 ТО UP ОАТЕ ТНЕ FILE"
110 PRINT"TYPE 3 ТО HERGE FILES 1 AND 2"
150 PRINT"ТYF"E 1 ТО PRINT OUT FILE 1 ON ТНЕ CRT"
160 PRINT"ТYPE 5 ТО F·RINT OUT FILE 2 ON ТНЕ CRT"
170 PRINT"ТYF·E 6 ТО F'RINT OUT FILE 3 , HARO СОРУ"
180 PRINT"TYPE 7 ТО KILL FILES 1 ANO 2"
190 PRINT"ТYPE 8 ТО ЕХП"
195 PRINT"ТYPE 9 ТО f(ILL FILE 3"
200 INF'UTX
210 ONXGOT0220,qoo,600 ,1050,1130,1270,1400 ,1110,1420
220 OF·EN"O ", 1, "F "ILE1" :CLS
230 F'RINT "SECTION 1 CREATE А HAILING LIST FILE"
210 PRINT"OATA HUST NOT HAVE ANY COMHAS "
250 F'RINT "ENTERIES HUST Е:Е IN ALF'HAE:EТICAL ORDER"
260 F'RINT"ENTER LAST NAHE FIRST"
270 PRINT"TO TERHINATE ENTERIES ТУРЕ&"
280 INPUT"TYF'E IN FULL NAHE , LAST NAME FIRST";A S
290 IFAS=" &"THEN350
300 INPUT"TYPE IN ТНЕ ADORESS" ;A 1$
310 INPUT"ТYF'E IN ТНЕ СПУ , SТАТЕ , AND ZIF' CODE ";A2S
320 INF·UT"ТYF'E IN ТНЕ PHONE NUHE:ER"; АЗ$
325 Z$=CHRt(13)
•
330 PRINTtl,At;zs;A1s;zs;A2s;z s;A З S
335 F·RINT
310 GOT0270
350 CLOSEl
360 GOTOllO
Расг.еч атка 9.2
181
400 Of·EN"O",2,' r-ILE2":CL.S
q10 PRINT"SECТION 2 , UP DAТING ТНЕ FILE "
qzo PRINT"OATA MUST NOT HAVE ANY COMMAS"
q30 PRINT"ENTERIES MUST ВЕ IN ALF'HAБEТICAL ORDER"
qqo PRINT"LAST NAME FIRST "
qso PRINT"TO TERMINATE ENTERIES ТУРЕ&"
q~o INF'UT "TYPE IN ТНЕ FULL NAME";Bt
q70 IFBt=" &"THENS30
qeo INPUT"TYPE IN ТНЕ ADDRESS ";Blt
q90 INPUT"TYPE IN ТНЕ CITY, STATE , AND ZIP CODE ";B2t
500 INF'UT"ТYPE IN ТНЕ F'HONE NUMBER ";B3t
S0S Zf=CHRt(13)
510 PRINTt2,вs;zt;в1s;zs;в2s;zs;вз•
515 PRINT
520 GOTO450
530 CLOSE2
sqo GOTOIIO
600 CLS:OPEN"I ",1 ," FIL E I "
610 OPEN''I'',2,''FILE2''
620 OPEN''O'',3,''FILEЗ''
630 INPUTt1,At,Alt,A2t,A3t:INPUTt2,Bt,Blt,Ыt,B3t:GOTO66G
6q0 INPUTtl,At,A1t,A2t,A3t:GOTO660
650 INPUT•2 ,BS,B1t,B2t,B3t
660 IFEOF(l>ANDEOF<2>l~EN710
670 IFEOF(l!Thf.NB00
680 IFEO,(2)THEN900
69U GOTO1000
700 zt=CHRt(13)
710 IFAt)BtTHEN730ELSEPRINTt3,At;zt;Alt;zt;Azt;zt;A3t:PRINT
720 PRINTtЗ,Bt;zs;в1t;zs;в2t;zt;взt:PRINT:CLOSE:GOTO110
1зо PRINTtз,вs;zs:в1s;zs;в2s;zs;взs:PRINT
7qo F'RINTtЗ,At;zt;A1t;zt;A2t;zt;A3t:PRINT:CLOSE:GOTO110
800 IFAt)BtTHEN820ELSEPRINTt3,At;zt;A1t;zt;A2t:zt;A2t:PRINT
810 PRINTtз,в•:zs:в1t;zs;в2•;z•:взt:PRINT:GOTQ8qo
вzо PRINтtз,вs;zs;в1s;zs;в2s;zs;взs:PRINT
830 GOTO6S0
В40 INPUTt2,Bt,B1S,B2S,BЗS
Ь50 PRINTtЗ,Bt;zt;в1t;zt;в2t;z,;взt:PRINT
860 IFEOF.(2)THEN870ELSE8qo
870 CLOSE
880 GOTO110
900 IFAt>BtTHEN920ELSEPRINTt3,At;zt;A1t;zt;A2t;Zt;AЗt:PRINT
910 GOTQ6q0
920 PRINTtз,вs:zs:в1s:zs:в2s:zs:взs:PR:Nт
930 PRINTtЗ,At;zs;A1s;zs;A2s;zs;A3t:PRINT
9qo INPUTtl,At,Alt,AZt,AЗt
950 PRINTtЗ,At;zt;A1t;zt;A2t:zs:Aзt:PRINT
960 IFEOF<l>THEN970ELSE9qo
970 CLOSE
980 GOTOIIO
1000 Zt=CHRS(13):IFAS>BtTHEN1010ELSEPRINTt3,At;zt;A1t;zt 1A 2t;z •:Aзt:P RINT:GOTQ6q
о
182
1010 PRINTtз,вs;zs;в1s;zs;в2s;zs;взs:PRINт:coтoьso
1050 OPEN''I'',1,''FILEl'':CLS
1060 INPUTtl,At,Alt,AZt,AЗt
1070 PRINTAt:PRINTA1t:PRINTA2t:PRINTA3\
1080 INPUT"PRESS ENTER ТО CONТINUE";X
1090 ONXGOTOl100
1100 IFEOF(1)THEN1110ELSE1060
1110 PRINT:PRINT:PRINT"END OF FILE "
1120 CLOSEl:ENO
1130 OPEN"I " ,2," F ILEi":CLS
1140 INPUT•2,BS,Blt,B2S , BЗS
1150 PRINTBt:f'RINTBlt:PRINTB2t:PRINTB3t
1160 INPUT"PRESS ENTER ТО CONTINUE";X
1170 ONXGOTOIIB0
Распечатка 9.2 (продолжение)
11В0 IFEOF(2)THEN1190ELSE1110
1190 PRINТ:PRINТ:PRINT"END OF FILE"
1200 CLOSE2:END
1270 OPEN"I",3 , "FILE3"1CLS
12В0 INPUTt3,Af,A1f,A2f,A3f
1290 PRINTAf,A1S,A2t,A3f
1330 IFEOF(3)THEN1310ELSE1280
1310 PRINT"END OF FILE"
1350 CLOSEЭ:END
1100 l(ILL"FILE1"1KILL"FILE2"1END
1110 CLOSE11CLOSE21CLOSEЭIENO
1120 KILL"FILEЭ"IEND
Распечатка 9.2 (продолжение)
Строка 475:В = CVI (С$ (Р) * CVS (D$ (Р)).
Тем, кто не привык писать программы, в которых проводится
множество вычислений, программы обработки файлов могут понача
лу показаться трудньrми. Однако инженер, имеющий некоторый
опыт программирования на Бейсике, должен попытаться написать
несколько таких программ. На одном диске можно хранить данные
более чем по 900 деталям. Файлы выступают в качестве ценного
инструмента, имеющего многочисленные применения. Нельзя ска
зать, что это программа слишком большая, она просто не похожа на
другие. Результаты работы программы приведены на распечатке 9.1.
9.3 . ПРОГРАММА SFILE
Программа занимает 3303 байт оперативной памяти и использует
ся для обработки последовательного файла, предназначенного для
хранения списка адресов (распечатка 9.2). Фактически она состоит из
трех программ. Эти три программы выполняют ·различные функции.
Когда они объединены в одну программную систему, то пользователь
без труда может реализовать следующие действия: создать файл;
скоррректировать файл; объединить два файла в третий и упорядо
чить в нем данные по алфавиту.
Комментарии к программе. С помощью операторов в строках
10-100 пользователь знакомится с инструкцией по работе с про
граммой. Строки 100-195 дают возможность выбирать один из девя
ти функциональных модулей программы. Строки 200-210 связаны
с оператором ON ...GOTO, осуществляющим переход на один из
перечисленных номеров строк.
Строка 220: OPEN «О», 1, «FILEI»: CLS
Файл 1 открывается как выходной файл для записи в нем инфор
мации, временно размещаемой в буфере 1.
Строка 240: PR INT «ДАННЫЕ НЕ ДОЛЖНЫ СОДЕРЖАТЬ
ЗАПЯТОЙ»
Запятая играет роль разделителя данных, помещаемых в файл.
Строка 290: IFA$ = «& »THEN350
Эта строка программы дает пользователю возможность прекратить
ввод данных, нажав на нижнем регистре клавишу 6 или & . Эту часть
программы можно было бы написать, используя цикл FOR - NEXT.
183
Строка 325:Z$ = CHR$ (13)
CHR:jj; (13) представляет собой десятичный код символа, обозначаю
щего возврат каретки. Переменной Z$ присваивается это значение,
с тем чтобы не вводить каждый раз с клавиатуры CHR$ (13), когда
требуется отделить одно данное от другого. Можно иепользовать и
другие разделители.
Строка 330: PRINT#l, А$; Z$; Al,$; Z$; А2.$ ; Z$; АЗ$
Строка 330 программы размещает только что введенные данные в
буфере 1, а затем переносит их на диск. Z$ выступает в роли разде
лителя данных
Строка 335: PRINT
Польза от такой прогрю1:v1ы очевидна. Для большинства микроЭВМ
используются методы оfiработки файлов, которые могут показаться
сложными при отсутствии опыта • программирования. Вот почему
необходимо провести детальный разбор программы . Функции,
выполняемые программой, приведены ниже.
1. Первоначальный список адресов вводится с клавиатуры в ал
фавитном порядке и хранится на диске в файле 1.
2. Дополнения к списку вводятся с клавиатуры в алфавитном
порядке и хранятся на диске в файле 2.
3. Выполняется процедура сортировки, при которой считывает
ся по одной записи из каждого файла, записи сравниваются между
собой и младшая по алфавиту запись помещается в файл 3.
4. Этот процесс продолжается до тех пор, пока не будут объеди-
нены оба файла.
5. Файлы 1 и 2 уничтожаются.
6. Файл 3 переименовывается и становится файлом 1.
Весь процесс может быть повторен сначала.
Основная особенность обработки посдедовательных файлов со
стоит в том, чтобы разместить данные на диске последовательно,
а затем считать их с диска в том же порядке, в котором они были раз
мещены. В отличие от прямых файлов, для последовательных фай
лов не требуется указывать номер блока и номер позиции, поскольку
записи считываются с диска или пишутся на диске одна. за другой . •
Однако в программе надо указывать параметр О, если мы собираем
ся писать в файле, и параметр I , если информация будет считывать
ся из файла. Объясняется это тем, что в ЭВМ магистраль для переда
чи данных пропускает электрические сигналы в двух направлениях
и необходимо подсказать ЭВМ, в каком именно направлении будет
осуществляться эта передача.
•
Эта строка используется для того, чтобы ·вернуть каретку в ис
ходное положение перед вводом следующей записи.
Строка 350: CLOSE 1
Программа закрывает буфер 1. Пrи прогр а ммировании нужно
следить за тем, чтобы файлы были своевременно закрыты. Если файл
не закрыт , то возможна потеря информации .·
•
В строках 400- 530 только что рассмотренный алгоритм повторя
ется, но имена переменных меняются с А$ на В$ .
184
Строка 600: CLS:OPEN «I», 1, «FILEl»
Оператор в этой строке открывает файл для чтения, считывает
запись и пересылает ее содержимое в буфер 1.
Строка 610: OPEN «I», 2, FILE2»
Те же действия выполняются для файла 2:
Строка 620: OPEN «О», 3, «FILE3»
Оператор открывает файл 3 и помещает запись в буфер 3. •
В строках 630~ 1010 записана процедура сортировки, в которой
сравниваются данные из файлов 1 и 2, содержащиеся в переменных
AS и В.$. Значения одной из переменных помещаются в файле 3 в по
рядке алфавита. Данные хранятся на диске в кодах ASCII 1 и сим
вольные данные могут быть отсортированы с помощью операции от
ношения.
ПустьAS=АААВиBS=АААА
Используя условный оператор, можно в зависимости от того, что
больше - А$ или В$, выполнять различную последовательность
действий и рассортировать А$ и В$ в алфавитном порядке,
.т.
е. сначала В$, затем А$. В программе должно проверяться и
другое условие - достигнут ли логический конец файла (EOF).
Если заставить ЭВМ читать файл после того, как прочитана
последняя запись, на экране появится сообщение, например
«PAST END OF FILE IN LINE NUMBER». ЭВМ затем показывает
на экране «READY» или прерывает выполнение программы в том
месте, где выявлена ошибка . Поэтому в программе необходимо
проверять два условия: сравнение А$ и В.$ и достигнут ли логичес
кий конец файла. Возможны различные комбинации - условий при
решении задачи сортировки. В программе должны быть описаны
шесть логических проверок (рис. 9.8). Можно дать построчные за
мечания к этой части программы, но лучше внимательно изучить
рисунок.
После того как файл 1 создан, пользователь может просмотреть
записи файла в строках 1050-1120. Операция просмотра выполняет
ся этой частью программы за пять шагов:
1) файл открывается для чтения;
2) текущие значения переменных А.$, А1$, А2$ и АЗ$ переписы
ваются в область памяти и печатаются на экране;
3) пользователь, просмотрев одну запись, нажимает клавишу
«ENTER» и вызывает на экран следующую запись файла;
4) проверяется условие достижения логического конца файла;
5) после просмотра всех записей файл закрывается програм
ма заканчивает работу.
В строках 1130- 1200 действия, ранее выполненные для файла 1,
повторяются для файла 2.
Строки 1270- 1350 выполняют ту же операцию, что и предыдущие
разделы программы. Эти строки могут быть изменены в зависимости
1 Стандартный американский код для обмена информацией. - Прим .
1tep.
185
Первая логическая проверка
Если EOFI и EOF2, то сравнить А$ и В$ и писать записи в установленной
последовате.'lьности в файл 3, иначе:
Вторая логическая проверка
Если EOFI и нет EOF2, то сравнить А$ н В$ и писать записи в установлен
ной последовательности в файл 3, вернуться к чтению оставшихся В$ и по
местить их в файл 3, затем закрыть файлы.
Третья логическая проверка
Если EOF2 и нет EOFI, то сравнить А$ и В$ и писать записи в установлен
ной последовательности в файл 3, вернуться к чтению оставшихся А$ и по
местить их файл 3, затем закрыть фай,1ы.
Четвертая логическая проверка
Если нет EOFI или EOF2, тогда
Пятая логическая проверка
Если А $ больше В$, то писать В$ в файл 3 и вернуться к началу сорти
ровки и читать следующую запись из файла 2 или
Шестая логическая проверка
Если В$ больше А$, то писать А$ в файл 3 и вернуться к началу сорти
ровки и читать следующую запись из файла 1.
Рис. 9.8 . Алгоритм сортировки
от того, как мы собираемся использовать программу обработки спи
ска адресов . Мы можем получить твердую копию списка или заме
нить бумажную ленту печатающего устройства почтовыми ярлыка
ми, одна из сторон которых заранее покрывается клеем. Существуют
и другие возможности. Список адресов может быть рассортирован по
семи различным признакам. Например, можно упорядочить спи
сок адресов, используя в качестве ключа сортировки переменную
А2$, обозначающую код города, штата и почтовый индекс. Почто
вый индекс можно выделить из символьной строки с помощью опера
тора LEFT$ (А2$5), а затем использовать его в качестве ключа для
сортировки. Можно рассортировать список по коду города, применив
тот же самый прием. Возможны и другие варианты. Например, мож
но осуществить сортировку для всех адресатов, чьи фамилии начи
наются с буквы «И».
Строка 1400: KILL «FILEl»:KILL «FILE2»: END
После объединения в файл 3 файлы 1 и 2 уничтожаются. Пользо
ватель должен ввести соответствующую директиву и переименовать
файл 3, используя имя файла 1. После переименования файла весь
цикл может быть повторен .
Писать программы обработки последовательных файлов проще,
чем программы обработки файлов прямого доступа. Необходимо об
ратить внимание на следующие моменты. Во-первых, следует ясно
представлять себе, как организованы хранение и поиск данных на
диске. Во-вторых, некоторые коды ASCII могут быть использованы
в качестве разделителей данных на диске. Вот почему, прежде чем
1'86
браться за любую серьезную программу, опытным путем следует оп
ределить, какие это коды.
Файловые системы могут применяться для хранения большого чис
ла записей. Их главное назначение - хранить огромные объемы
информации, далеко превосходящие возможности оперативной па
мяти ЭВМ. Результаты работы этой программы в книге не приведены,
поскольку маловероятно, чтобы читателя заинтересовали чьи-то
фамилии, адреса и номера телефонов, за исключением адресов и но
меров телефонов голливудских кинозвезд.
Упражненне 9.1 (наименее трудное). Написать программу расчета сметы
капитальных затрат, ввод данных в которую осуществляется из файла прямого
доступа. Запись файла имеет следующую структуру: номер строки; наимено
вание оборудования; планируемое количество; состояние заказа (поставщик,
дата размещения заказа, ожидаемая дата поставки, примечания); фамилия
инженер а-кур а тор а.
.
Программа должна осуществлять поиск информации по номеру строки
и (или) выводить на печать данные о состоянии заказа .
Упражнение 9.2 (средней трудности). Написать программу для планиро
вания и контроля работ по созданию нового изделия. Все сведения о материа
лах должны храниться в файле, а результаты работы программы должны быть
представлены в виде графика ГАНТА (см. гл. 8, программа GANT).
Упражнение 9.3 (наименее трудное). Написать программу обработки дис
кового последовательного файла, в котором хранятся данные об инвентариза
ции оборудования. Программа должна предоставить пользователю возмож
ность обновлять данные. Ниже приведены типичные элементарные данные,
из которых должны состоять записи файла: инвентарный номер; порядковый
номер; наименование оборудования; дата приобретения; стоимость.
Упражнение 9.4 (средней трудности). Написать программу расчета гра
фика планово-предупредительного ремонта, работающую с последователь
ным файлом. Запись файла имеет следующую структуру: инвентарный номер,
наименование оборудования, вид ремонта, номер недели или дня, когда пре-
дусматривается проведение ремонта.
•
Программа должна выполнять сортировку по номеру дня. После заверше
ния сортировки на печать выводится график работы на каждый день .
Глава 10
ПРОЕКТИРОВАНИЕ ТЕХНОЛОГИЧЕСКИХ ПРОЦЕССОВ
С ПОМОЩЬЮ МИКРОЭВМ
10.1 . АВТОМАТИЗИРОВАННОЕ ПРОЕКТИРОВАНИЕ
ТЕХНОЛОГИЧЕСКИХ ПРОЦЕССОВ
Разработка технологических процессов является одной из основ
ных обязанностей инженера - технолога. Для производственного
участка цеха создается укрупненная маршрутная технология с ука
занием последовательности выполнения операций. Но технологиче
ский процесс может быть разработан очень подробно и включать все
необходимые сведения для настройки станков на обработку. Подго
товка такой документации требует больших знаний и творческого
подхода и может быть очень трудоемкой. Инженер-тех11олог вы
полняет следующие основные работы: изучает чертеж детали; уста
навливает последовательность операций обработки; разрабатывает
маршрутную технологию; вычерчивает операционные эскизы к тех
нологическому процессу, на которых указывает состав переходов и
их характеристики, режущий инструмент и требования к измери
тельному инструменту; рассчитывает технически обоснованные нор
мы времени; задает размеры на обработку; проектирует приспособле
ние, вспомогательный режущий инструмент и измерительный
инструмент.
Такой подход к разработке технологических процессов выглядит
весьма логичным, однако его осуществление требJет . больших за
трат времени. Их можно сократить, если инженер будет делать толь
ко то, что он делает лучше ЭВМ, остальное должна делать ЭВМ.
Именно эта мысль красной нитью проходит через всю книгу.
В этой главе показано, как применять микроЭВМ при разработ
ке технологических процессов . Рассмотрим проблемы автоматиза
ции проектирования технологической подготовки производства в це
лом для двух направлений проектирования. К первому относится
проектирование технологических процессов с использованием груп
повых технологических процессов, ко второму - индивидуальное
автоматизированное проектирование с использованием автоматизи
рованного рабочего места технолога.
Групповая обработка деталей. Появление групповой технологии
было вызвано стремлением распространить технологию массового
производства на мелкосерийное производство, что значительно повы
шает эфрективность труда технологов. Основная идея групповой об
работки - сгруппировать детали по проце ссам обработки и сгруп
пировать станки для выполнения групповой операции. При группо
вой обработке уменьшаются з·атраты времени на переналадку; со
кращаются уровень запасов деталей и время ожидания обработки;
188
возможна автоматизация разработки технологических процессов~
снижаются стоимость обработки и затраты на перемещение деталей.
Групповая обработка деталей начинается с классификации дета
лей, объединения их в группы в зависимости от метода обработки, ге
ометрической формы, функционального назначения, технологичес
ских характеристик, материала. После того как детали объедине
ны в группы, разрабатывается система кодирования характеристик
деталей, позволяющая автоматизировать решение технологических
задач. На основе анализа закодированной информации формируются
групповые процессы обработки. Меняется традиционное размещение
оборудования. Если раньше на участке устанавливались однород
ные станки, то теперь в производственные линии объединяется раз
нородное оборудование, на котором выполняются групповые опера
ции. Самым большим преимуществом групповой обработки являет
ся сокращение числа переналадок для групп станков и упрощение
разработки технологических процессов благодаря использованию ко
дов 1 . Управляющие полны решимости достичь этих целей. Вряд ли
найдется на предприятии структурное подразделение, которое не
стремилось бы совершенствовать свою работу. Для технологической
службы такое стремление связано прежде всего с внедрением груп
повой обработки.
Групповая технология создает необходимые предпосылки для ав
томатизации проектирования технологических процессов на основе
мощной вычислительной техники. Только после того как решена за
дача классификации деталей по размерам, форме и т. д., можно пере
ходить к проектированию технологических процессов с помощью
ЭВМ. Разрабатывая технологию на новую деталь, необходимо учиты
вать последовательность операций, заданную на специализированной
производственной линии. Такой подход имеет свои плюсы и минусы.
С одной стороны, ЭВМ может очень быстро определить вид обработ
ки и специализированное оборудование. Одновременно ЭВМ просмат
ривает график загрузки данной производственной линии и пересчи
тывает ее пропускную способность. Решение этих задач осуществля
ется при минимальном участии инженера.
С другой стороны, групповая технология накладывает на процесс
изготовления детали жесткие ограничения, так как он ведется по не
которому общему плану, что в ряде случаев может затруднить обра
ботку. Совершенствование невозможно без изменений, и если измене
ния трудно осуществить, то мы будем продолжать завтра делать Т(}
же, что и сегодня.
За время своей работы в промышленности автор использовал идеи
и принципы групповой технологии в процессе технологической под
готовки двух различных между собой производств. Не вдаваясь в.
подробности, отметим, что ни один из этих экспериментов не дал оше
ломляющих результатов. Как это часто бывает, на практике не уда
лось достичь всего того, что предсказывает теория.
1 Инструмента, поверхностей и др. - Прим. пер.
189
У читателя может сложиться мнение, что автор относится к идее
групповой технологии отрицательно. Хорошо представляя повсед
невную работу по управлению производством, автор хотел бы под
черкнуть следующее: цель групповой технологии заслуживает вни
мания, но ее реализация в производственных условиях требует ог
ромной работы. В процессе производства происходят постоянные из
менения -- меняются изделия, обновляется оборудование и , самое
важное, совершенствуется технология и организация труда, что ве
дет к росту производительности труда. Идеи, заложенные в груп
повой технологии, полезны, но для многих предприятий они еще
преждевременные . Вероятно, требуются некоторые промежуточные
шаги, прежде чем перейти к «большим переменам» в будущем .
Проектирование технологических процессов с помощью микро
ЭВМ . Создание и внедрение автоматизированных рабочих мест пред
ставляет собой еще одно направление автоматизации производства.
Прежде чем описать, каким образом инженер-технолог может ис
пользовать на своем рабочем месте микроЭВМ для разработки техно
логических проuессов, перечислим работы, которые он при этом
выполня ет : поиск решения; проведение расчетов; подготQвка до
кумента.
В процессе автоматизации технологической подготовки производ
ства происходит разделение работ между инженером и ЭВМ: поиск
решения выполняет инженер; проведение расчетов выполняет ЭВМ;
подготовку документа выполняет печатающее устройство.
Применение микроЭВМ для проектирования технологических
процессов не связано с необходимостью внедрять групповую обра
ботку деталей. Такой подход имеет свои преимущества и недостатки.
К основным преимуществам следует отнести то, что внедрение микро
ЭВМ в одном отделе не требует каких-либо изменений в деятельно
сти других отделов.
В гл. 2 был рассмотрен вопрос : в какой мере оправдана большая
детализация, а следовательно, и трудоемкость расчетов стоимости
обработки изделия при получении заказа на его изготовление. Те
перь мы можем на этот вопрос ответить так: есть смысл проводить
более детальные расчеты, если время, необходимое для оценки сто
имости обработки детали, сравнимо со временем самой обработки де
тали. Избегая укрупненных расчетов, мы тем самым повышаем их
точность. Излишняя аргументация может повредить доказательству,
поэтому мы назовем лишь главное преимущество применения микро
ЭВМ для проектирования технологических процессов - это опера
тивность. Трудоемкость разработки технологических процессов со
кращается на 75 %.
Чтобы быть объективным, отметим недостатки внедрения микро
ЭВМ на рабочем месте технолога. Основным из них являются боль
шие затраты труда на программирование. Писать программы для
решения на ЭВМ технологических задач должен только инженер
технолог, хорошо знающий программирование и особенности кон
кретного станка. Другая трудность заключается в том, что это на-
190
/
правление автоматизации еще очень молодо и большинство фирм ,
связанных в той или иной степени с созданием и внедрением ЭВМ,
не торопится поделиться своим опытом. Большей частью, если не
полностью, работы, проводимые фирмами в этой области, носят по
исковый характер.
10.2 . РАСЧЕТ ТЕХНОЛОГИЧЕСК И Х ПРОЦЕССОВ
Рассмотрим программу расчета процесса обработки деталей на
патронном револьверно-токарном станке. Эги станки нашли широ
кое распространение на предприятиях машиностроения и металлооб
работки. Они знакомы большинству инженеров-технологов . Вот по
чему программа написана применительно к этим станкам. Для чита 0
теля, не знакомого с патронным револьверно-токарным станком, при
ведем его краткое описание .
Станок имеет один шпиндель, оснQвной суппорт, с размещенной
на нем пятипозиционной револьверной головкой, передний и задний
суппорты. Задний суппорт может работать совместно с основным суп
портом, выполняя операции по проточке пазов и канавок, подрезки
торцов . Кинематика станка обеспечивает два диапазона скоростей и
36 значений подач, шесть из которых могут быть .использованы при
обработке с одной установки .
Другая причина, по которой был выбран именно этот станок, за
ключается в том, что на его примере можно научить инженера учи
тывать при программировании физические ограничения, накладывае
мые конкретным оборудованием. Специальный модуль в программе
осуществляет замену расчетных значений скоростей резания и подач
на фактические значения, указанные в паспорте станка.
Еще одна интересная особенность программы - большое число
сочетаний операций, которое можно выполнять на этом станке. Ста
нок пр~дназначен для выполнения операций сверления, развертыва
ния, продольного и поперечного точения, растачивания, прореза
ния канавок, фасонного точения . Все три суппорта станка могут ис
пользоваться одновременно, и на каждом устанавливается несколько
инструментов . Дополнительные технологические возможности стан
ка реализуются с помощью различных комбинаций состояний конце
вых выключателей. Например, когда инструмент, установленный в
гнездах пятипозиционной револьверной головки, заканчивает обра
ботку детали, могут быть осуществлены три варианта движения ра
бочих органов: шпиндель останавливается и происходит быстрый
отвод инструмента; шпиндель продолжает вращаться во время быст
рого отвода инструмента; выполняется операция точения или раста
чивания во время обратного хода инструмента. Различные варианты
движения предусмотрены и для поперечного суппорта .
Из общего описания следует, что этот ста·нок имеет многоинстру
ментальное оснащение, широко распространен в призводстве и яв
ляется типичным представителем многих станков . Программу, раз-
191
'-
:S Рабочая карта для патронного револьверно-токарного станка
Наименование детали: втулка
Деталь No 12 345
Операция I О , 1-я установка
Варианты обработки
Дата: 1/1/81
Материал: Ковкий чугун
Револьверная головка
Позиция 1
и нструмеf!Т
11 Точение поверхно-1
сти в
2 J Подрезка торца 1
3\
41
Позиция 2
и нструмент
1 Растачивание по-
верхности D
Диаметры и
допуски
9, 27±0,005
9,27±0,005
7,84±0,005
2 / Растачивание по- \ 5,36±0,005
~хности Н
зl
1
4\
1
Р~;~;::1l 1 21 3141 5161718 191lО111J_±Jl4
1
1,5±0,005
1•44±О,ОО511111111111111
1\1.1.l1\111•1•111
11111111111111
1,49±0,005
1.49±0,005
1
1
1111111111111
1111.,1_111111!1
1111111111l11
" '--1
uJ
..
:,
N
"'
"'
-
Инструмент
!iнструмент
инструмент
Позиция 3
11 Обработка поверх- ,·
7,5 ± 0,010
1
0,060±0,005
ности Е
21
зl
11
4\
l1
1
Позиция 4
11 Точение поверхно- \ 9 ± 0,010
1
0,75±0,010
сти А
2 \ Обтачивание по - \ 7,84±0,005
_
верХ!!()_СТ__I{__ D
_
О,Об±О,ОО51111111111 1 1 1 1
3
1
11J111111_I1~11--1
1о
11 J 1111111 I I_II
Позиция 5
11 Растачивание по-
1
7,86±0,002
1·
1,5±0,005
верхности D
1
..
2\ ~0бfт~б~ткаповерх-\ 8,738±-0,002 ~66~~,002 1 1 1 1 1 1 1 1 1 1 1JJ •1
зl
1
1
l111_IIl1111l11
41
1
1
111111\{111111
~ Рис. 10.1 . Карта для определения состава переходов и последовательности обработки
0,00!i/0,0015R
Шuрино
11ано611и
0,2!i0 ± 0,00J
1,ПО
1:0,00!i
2860 ±0,010
Ноинено6анщ iltmonu: 6тупко н~ 1ZJ4!i
Опероц· ин ТО, Т - н f!Cmoнo6110
nотронныti ре6ол1,6ерно-то11арныti стоно11
Иотериол: lf06кuu чугf!Н
Рис . 10.2. Упрощенный
чертеж детали
работанную для такого станка, можно рассматривать как типовую
программу расчета технологических процессов.
Разделение труда между человеком и машиной при решении тех- ·
нолоrических задач с помощью микроЭВМ. Прежде чем познако
мить читателя с результатами работы программы, рассмотрим про
цесс разработки технологической документации с помощью микро
ЭВМ. Инженер -технолог изучает чертежи и технические требования,
используя специальную карту (рис. 10 . 1, 10 .2) для патронного ре
вольверно-токарногЬ станка, он определяет состав пер~ходов, ус
танавливает последовательность обработки, задает размеры и до
пуски на обработку, выбирает для каждого перехода режущий ин
струмент, вид обработки, вариант движения рабочих органов, вво
дит исходные данные в ЭВМ.
МикроЭВМ выбирает скорость резания в зависимости от перехо
да и обрабатываемого материала, рассчитывает частоту вращения
шпинделя, осуществляет корректировку найденного значения по
паспорту станка, рассчитывает trеобходимую для выполнения пере
хода частоты вращения, технологическое время, норму времени я вы
работки. Построчно-печатающее устройство позволяет получить
твердую копию технологического документа, который затем пере
дается в цех. В документе указываются последовательность перехо-
194
1
дов для каждой позиции револьверной головки и поперечных
суппортов, операции, выполняемые для каждой обрабатываемой
поверхности, линейные размеры и диаметры и допуски на них.
Докумен:т содержит все основные данные, необходимые для на
ладки станка: параметры режимов резания, варианты движения ра
бочих органов после завершения обработки ПОJзерхности, передаточ
ные числа в гитаре станка, обеспечивающие необходимые значения
подач. По этим данным наладчик настраивает станок на выполнение
заданной последовательности операций, устанавливая переключате
ли для · каждой позиции револьверной головки в определенное со
стояние и перемещая упоры на заднем барабане станка .
Пример проектирования технологического процесса с помощью
микроЭВМ. Обрабатываемая деталь - втулка. Так же как и при
обычном проектировании, инженер изучает чертеж детали и уста
навливает последовательность операций. Когда решение принято,
инженер записывает его в специальную карту (см. рис . 10.1) . Карта
помогает инженеру во время диалога с ЭВМ не упустить из вида от
дельные данные и полностью ввести их в машину. На выполнение
этой части работы инженеру требуется примерно 1 ч. ЭВМ подго
тавливает распечатку (распечатка 10.1), которая указывает опера
тору, в какой последовательности обрабатывать поверхности дета
ли, какой режущий инструмент назначен для каждой поверхности
и на каком суппорте он размещен. Программа рассчитывает длину
резания, на основе которой затем определяется технически обосно
ванная норма времени.
Проектирование технологического процесса обработки детали
на патр о нном револьверно-токарном ст~нке
Наименование детали: втул~<а
Номер детали 12 345
Дата 01/01/81.
Материал группы С
Назначенные скорости резания
2237446272104121170203230334568
Назначенные подачи
Подача Число зубьев Подача
шестерни
Подачи1и2
2.8Е-03
22
0,011
Подачи2и5
6Е-03
27
0,025
Подачи3и6
0,015
33
0,06
Описание операции
Операция
Диаметр
Длина
Подача
ЧисJю зубьев
шестерни
38
33
27
Частота
вращения
Точение и подрезка тор ц а, 1 - й суппорт, грубая обработ к а, остановка шпин
деля и быстрый отвод инструмента
1 1 точение А
9,27 + -5Е-03
1,5 +-53-03 0,025 . 121
1 2 подрезка '1
9,27 +-5Е - 03
1,44 + -5Е-03 0 ,025 121
Технологическое время на переход 0,5024 79 + 0, 11 индекс
Технологическое время на операцию 4, 10711 плюс время на установку и сня
тие детали, итого 4,45711
Количеств о деталей, шт/ч 13,4616
Подготовительно-заключительное время 2,49333 ч
К распечатке 10.1 .
195
Помимо документа, подготовленного ЭВМ, в цех передается чер
теж детали (рис. 10.2). Он отличается от обычного чертежа тем, что
на нем не обозначены диаметры. линейные размеры и допуски на
них . На чертеже указываются только обрабатываемые поверхности.
Сделано это преднамеренно, чтобы сократить время, затрачиваемое
инженером за чертежной доской. В отдельных случаях размеры все
же приходится проставлять. Например, на рис. 10.2 проставлен раз
мер (1,400 + 0,005) дюйм от торца детали. Необходимость проста
новки этого размера объясняется следующим. В документе, подго
товленном ЭВМ (см . распечатку 10.1) для пятой позиции револь-
Z А/С P ROCESS PLANNI NG SUHMARY
PART NAl'IE SLEEVE
FIRST CHUCKING O, D, CHUCK
HATERIAL G.ROUP С
SF'EEDS SELE CTED
РАRТ NUl'IE:ER 1231 5
ENGINEER NICKS
2237116272101121170203290331568
FEEDS SELECTED
FEEDS1&1
FEEDS Z /1. 5
FEEDS Э /1. 6
FEED
2 , ВЕ-03
6[-03
.015
OPERATION OESCRIPTION
OPER
DIAHETER
'-1 ,), .. , !1 ~ :; 7r,..,_,,
GEAR
~
27
33
LENGTH
FEED
, 011
. 025
,06
TUR N & FACE FRT SLIDE, ROUGH CUT, STOP SPINDLE RA PID OFF , ,
TURN А
9,27 +- :SE-03
12FACE1
9,27 +- 5Е-ОЭ
TIHE FOR THIS OPERATION IS , 502179 +
1.5 +- SE-03
1 , '1'1 +·· 5Е-ОЭ
,1 1 INDEX
E:ORING HULTIPLE TOOLS , ROUGH CUT, STOP SPINDLE RAPID OFF, ,
21BORED
7,8'1 +- SE-03
1, '19 +- 5Е-03
22E:OREн
5.36 +- 5Е-ОЭ
1, '19 +- 5Е-ОЭ
ПНЕ FDR THIS OPERAТION IS .35529-1 + • 11 INDE X
TURN AND SLAE: сuт , FINISH сuт , RAPID TURRET FACE OFF , .
31SLA~Е
7,5 +-
,01
, 06 +- 5Е-03
ПНЕ FOR THIS OF'ERATION IS ,0656815 +
, 11 INDEX
DATE 01/01/81
FEED
GEAR
ЭВ
33
27
.02 5
, 025
. ozs
, 025
6Е-ОЭ
RPl'I
121
121
170
17U
zоэ
TURNING l'IULTIPLE TOOLS , FINISH CUT, STOP SPI NDLE RAPID OFF, ,
'1
1TURNВ
9+-
,01
'1
2СНАМD
7,8'1 +- 5Е-ОЭ
TIHE FOR THIS OF'ERATION IS ,301961 +
.75•-
,01
,06 +- 5Е-ОЭ
, 11 INDEX
E:ORE & FACE REAR SLIDE , FINISH CUT, REVERSE FEED OFF, ,
51E:ORED
7,86 +- 2Е-03
1, '1 +- 5Е-ОЭ
52FORl'IС
8,738 +- 2Е-ОЭ
, 266 +- 2Е-ОЭ
TIHE FOR THIB OPERATION IS 2 , 33169 +
, 11 INDEX
TOTAL OF· ER A ТIO N IB 1 , 10711 F'LUS LOAD & UNLOAD EQUALB '1, '15711
TOTAL PARTB PER HOUR ARE 13, 1 616
'
ВЕТ UP AL.LOWANCE IS 2, 1 9333 HOURS
196
Распечатка 10.1.
\
, 015
,01 5
6Е-03
6Е-03
170
170
203
203
2 А/С PROCESS PLANNING SUMMARY
PART NAME SL.EEVE
SECOND CHUCKING I,D , CHUCK
MATERIAL GROUP С
Sf'EEDS SELECTED
22з711ь2721oq
FF.EDS SELECTED
FEEOS18.4
F--EEDS 2 &
l'EEDS З В. 6
FEED
2.ВЕ-03
4,4Е-03
•О1~1
OPERATION DESCRIPПON
OPER
DIAMETER
121
PART NUMBER 12345
ENGINEER NICl:S
170 203 290 334 568
GEAR
~-EED
22
,011
22
,017
33
,06
LENGTH
TURNING MULTif'LE TOOLS, FINISH CUT, REVERSE FEED OFF,
,
11TURNА
9.219 +-- ZE -03
12TURNF
8.75 +-
.01
TIHE FOR THIS OPERATION IS 2.52106 +
SKIP INDEX TIME •,02
2.з1 +--
.01
,49 +- ,01
, 11 INDEX
TURN & FACE FRT SLIDE, FINISH CUT , STOP SF'INDLE RAPID OFF , ,
31FACE2
8,75 +- ,01
32СНАМН
5.38 +- SE -03
TIME FOR THIS OPERATION IS ,65098 +
1 .6"1 +--
.01
• 06 +- 5Е--03
, 11 INDEX
DATE 01/01/81
GEAR
F'EED
, 011
, 011
ЭВ
38
27
RF·M
170
170
170
170
RAPIO ADVANCE - GROOVE, FINISH CUT, RAPID OFF , CARВIDE, LATE CROSS SLIDE
11GRVG
·5 .75 +- ZE-03
. 185 +- 2Е-ОЗ
TIME FOR THIS OPERAТION IS ,451681 +
,15 INDEX
E:ORING SINGLE TOOL, FINISH CUT, REVERSE FEED OFF, ,
51BORE
5.38 + - ZE-03
1.13 +- 5Е-ОЗ
TIME FOR THIS OPERATION IS ,909091 +
,11 INDEX
TOTAL OPERATION IS 5 ,03582 PLUS LOAD I UNLOAD EDUALS 5,38582
TOTAL PARTS PER HOUR ARE 11,1404
SET UP ALLOWANCE IS 2.17667 HOURS
Распечатка 10.2.
2.ВЕ-03
170
, 011
290
верной головки назначен резец 2, который вытачивает канавку диа
метром (8,738+0,002) дюйм при длине резания (0,266+0,002} дюйм.
Если обработка ведется инструментом, размещенным на основном
суппорте, то длина резания одновременно определяет и положение
обрабатываемой поверхности относительно базовой. В случае раз
мещения режущего инструмента на поперечных суппортах необхо
димо указывать дополнительно расстояние от некоторой базовой по
верхности до поверхности обработки. Таким образом, чертеж содер
жит минимум информации, без которой деталь невозможно изгото
вить.
Документ, подготовленный ЭВМ, упрощенный чертеж детали и
требования к измерительному инструменту - вот все, что необхо
димо для выполнения операции. Требования к измерительному ин-
7В Зак. 2156
197
струменту могут быть запрограммированы, но проще отразить их
на чертеже.
Инженер-технолог тратит 1 ч на обдумывание плана обработки
детали, 15 мин - на ввод данных и подготовку с помощью ЭВМ тех
нологической документации для обработки детали и 1 ч - на под
готовку чертежа. Вся работа занимает 2 ч 15 мин.
10.3 . ПРОГРАММА АС
Программа занимает 18441 байт оперативной памяти. Это самая
большая программа из описанных в книге. Трудно дать к ней пост
рочный комментарий, поэтому мы ограничимся описанием 11 различ
ных модулей, из которых состоит программа и укажем, когда это
необходимо, каким образом программа выполняет свои функции.
REM PROGRAM NAME А/С
REM WRITTEN ВУ J.E.NICMS
3 REM COMPUTER APPLICATIONS FOR ТНЕ MANUFACTURING ENGINEER
1 REM COPYRIGHT 1981 ALL RIGHTS RESERVED
10 DIMG(12),F(12),R(12>,S(12),S1{12>
20 CL_S:PRINT"lHIS PROGRAM IS DESIGNED ТО ASSIST ТНЕ ENG. IN PROCESS PLANNING"
30 PRINT"ON ТНЕ WARNER 1!. SWASEY 2 А/С CHUCf(ER"
10 PRINT"THE PROGRAM WIL_L СОАСН ТНЕ ENGINEER THROUGH ЕАСН STEF" . ••
50 PRINT"FIRST , MATERIAL IS SELECTED FROM ТНЕ MATERIAL LIST,"
60 PRINT"NEXT, SPEEOS AND l 'EEDS ARE SELECTED , "
70 PRINT"THEN ТНЕ ENGINEER STARTS ТНЕ PROCESS PLANNING ROUТINE,"
80 PRINT"HПS PROGRAl1 USES ТНЕ APPROACH OF ТНЕ А/С [:EING TOOLED AS SHOWN BELOW:"
:PRINT
90 PRINT"PENTAGON FACES 1 , 2 & 3 ARE TOOLED FOR:"
100 PRINT"TURNING , BORING, DRILLING, REAМING AND THREADING"
110 PRINT"PENTAGDN FACE 1 IS TOOLED FDR LATE CROSS SLIDE OPERATIONS ,"
120 PRINT"PENTAGON FACE 5 IS TOOLEO WIТH AN ADJUSTABLE E:ORING HEAD"
130 PRINT: f·RINT
200 INPUT"f 'RESS ENTER ТО SEE ТНЕ MATERIAL LIST ";X
210 GOSUB20000
220 CLS:INF'UT "PRESS ENTER ТО SELECT FEEDS"; Х
230 [;OSUE:10000
210 CLS:INPUT"PRESS ENTER ТО SELECT 11ACHINE SPEEDS ";X
250 GOSUE:1'5000
260 CLS:INPUT"ENTER ТНЕ DATE I,E, 01/01/81";E:S
270 INPUT"ENTER ТНЕ PART NА11Е";ва
275 INF"UT"ENTER 1 FOR 1ST CHUCf(ING OR 2 FOR 2ND CHUCf(ING"; М
276 IFM=1 THENE:5S="FIRST CHUCfaNG"ELSEE:5S="SECOND CHUCf(ING"
277 INPUT"ENTER 1 FOR 0D CHUCM OR 2 FOR ID CHUCK";M1
278 IFM1=1THENB6S = "O,D, tHUCK"ELSEB6S = "I.D, CHUCK"
280 INPUT"ENTER ТНЕ PART NUMBER " ;ЕН
290 INPUT"ENTER ТНЕ ENGINEER'S NAl1E";в2s
300 l,PRINTCHRS( 27) ;CHRS< 11); "2 А/С PROCESS PLANNING SUl111ARY"
31 О LPRINTCHRS( 138) :LPRINT"PART NA11E ":в1s;, '!PART NUMBER "; В1, "DATE
"; вs
320 LPRINTCHRS(138):LPRINTE:5S,B6S, "EN GIN EE R "; в2s
330 L.PRINTCHRS <138) :LPRINT"l1ATERIAL ";AS
310 LPRINTCHRS<138>:LPRINT"SPEEDS SELECTED"
350 FORI=1T012:LPRINTS<I>;:NEXTI
360 LPRINTCHRS(138>:LPRINT"FEEDS SELECTED "
370 LF'RINT,"FEED", 11 CEAR","FEED","GEAR"
380 LPRINT"FEEDS 1 & 1",F1 ,G1,F1,G1
390 LF'RINT"FEEOS 2 & S" ,F 2,G2 ,F5,GS
100 LPRINT"FEEDS 3 & 6" ,F3,G3,F6,G6
110 LPRINTCHRS<138>:LPRINT"OPERATION DESCRIPТION"
' 120 LPRINT" □-PER", "DIAMETER "; ТАВ< 10); "LENGTH "; ТАЕ:( 60 >; "FEED " :ТАВ( 70); "RP11" :LPRINT
CHRS(138)
' 190 FORZ=1T05
500 CLS:PRINT"PENTAGON FACES 1, 2 & 3 • , 11ULТIPLE TURNING HEAD"
501 PRINT"PENTAGON FACE 1 LATE CROSS SLIDE OPERATIONS"
502 F'RINT"F 'ENTAGON FACE 5 ADJUSTABLE BORING HEAD"
503 PRINT"YOU ARE NOW TOOLING PENTAGDN FACE
";Z
198
\
Распечатка 10 .3
~ 11 О F'faNT"ENTER ТНЕ fYPE ()РЕ RAT ПJN YOL/ W.Ibl -I го wom~ WITH"
~ :i2 О Pr~INT '' 1 ·-·-· ·- ··- ··-Tt.JГ.:NTNC ''
~.=,эо PRINT" 2.--- ·- - - r ::ш-.:I N! :; "
~ =;.q О Pr..:INT" З·-·-- - - -- [)Rll_l_
_TNC"
:=i~ 'iO
PRIN "I "4-- - -- - - ·-F(EAHING "
~ i60 PfaNT"~'i-· -- - -- -- THRE ADI NG"
~;7 О Pr..:INT" 6 - ·- ··- -- --T RE F'ANNING" ·
5EIO PRINT"7· · ·- ···SJ:П· INDEX"
590 INPUTX
600 (INXGCJT(l610,20(J0,3000,1000,1500,5000,5010
61 О CL.S: PRINT" ТIJRNING OF'ERATПJNS"
1,20 F'RINT"ENTER ТНЕ ТУРЕ ТLIRNING OF'ERAТillN"
6ЭО F'RINT " 1 - -- ·- - - - TLIГ<NING SINf;LE TOOL"
610 F'RINT"?- -- - ··-ТL IRNING MUL Пf'LE TOOLS"
650 Pf<INT"З-----·---Tlll<NING AND ORIL.LING
1,70 PRJ:NT"~------ТIJRNING ANO CORE DRIL.LING"
ЫIО f'RlNT"c.-------ТLll<N ANO REAM"
690 PRINT"6-------ТLIRN ANO E:ORE"
700 PRINT" 7 --.. ·---ТLll<N AND SLAE: CUT"
71 О PRINT"O------ТLIRN AND FACE FROM ТНЕ CROSS SLIDE"
720 PRINT"9------ТLIRN AND ГОRМ FROM ТНЕ CROSS SLIDE"
710 F'RINT"9- - --ТLIRN , F'ACE AND F'ORM"
750 INF'UT "9 ----TURN
,
E:ORE , FACE ANO
,·ORM
FROM ТНЕ CROSS SLIDE";X:Cl.S
760 ONXGOTOB00,920,1080,1110,1110,1150,1160,1170,1280
ВО О CLS: F'$="ТLIRNINI; SINGLE HIDL": F'3$="Тl1RN"
Ell О INF'UT"ENTER ТНЕ DIA, & TOLERANCE , (;EF'ARATE Е:У А СОНМА";(), 01
Ы.О INF'LIТ"ENTП< ТНЕ l.ENG TH & TOLERAN.CE , SEF'ARATE [:У А СОНМА"; L. , L l
ВЗО INF'UT"ENTER 1 ~- □ R f<OlJGH CUT OR 2 FOR FINISH CUT" ;'N
810 IFN=1THENR=(TR•12)/([)•3.1116)ELSER=(TFж12)/(0•З.1116)
81~; п·N~! THENF'2$="ROUGH CUT"ELSEf '2S• "FI NIS H CUT"
850 GOSUB9000:GOSUB9200
ньо Т=<<L+.02> 1F>1R:т1~.11:т2 =т +т1
Н65 П(= ТА: п:·,=тt::
870 INF'UT"ENTEf~ 1 F"OR STOF ' SF'IN, , 2 FOR Г..:ЕV . FEED, 3 FOR RAPID OFF ·" ;N1
ВВО ONN1GOT0890,900,910
Е190 F'l$•"SТCIF' SPINDLE RAPIO OFF" :с; от1JЕ1500
90 О Pl $= "REVERSE FEED OFF ": T=T •Z: TZ=т+Tl: (;ОТОВ50 О
910 F'1$="RAF'IO ТLIRRET F'ACE OFF":c;oтuв~;oo
92 О CLS: F'$=" ТLIRNIN(; MUI" ТIF'l.E TOOLS": f'ЗS="ТLIRN"
930 INF'LIТ"ENTER ТНЕ NUME:ER oF · HIIJLS " ; , . 1
935 F'Г<INT"ENTEf< ТНЕ L.ONGEST ClJТ FIRST"
936 f"RINT"CLJТ NAHES SHOULD Е:Е SH ORT I. Е. F~ACE А , FORM Е: "
910 PRINT"ENTEH ТНЕ LARGEST DIA , & l.ONGEST LENGTH FП,ST"
91:; f'ORI=!ТO,J
946 INF'LIТ"ТYPE IN ТНЕ OF'ER, NAME I. Е, E:ORE, DRILL, TURN ПС."; РЗS <I)
9:;о INF'UT "ENTEH ТНЕ DIA, & Тlll.ERANCE , SEF'ARATE Е:У А СОНМА"; D ! I), D1 ( 1)
960 INF'LIТ"ENTER ТНЕ l.ENGTH & TOLERANCE
,
SEPARATE Е:У А COMMA";L<I) ,Ll<II
970 NЕХП
980 INF'UT"ENTER 1 HJR ROUGH CUT OR 2 FOR FINISH CUT" ;N
990 IFN=1T~iENR=CTR•12)/(0(1>•З.1q16)ELSER=(TF•12)/(0(1)•3.1116).
1 О О О IFN•1 THENF 'Z S • "RO IJG H CUT"El .SEF'2S ="FINISH CUT"
1010 GOSUB9000:G □ SUE:9200
1020 T=((l(1)+.02)/F)/R:т1-.11:т2=T+Tl
102~i ТF<=TA:TF=TB
1озр INF'UT "ENTER 1 FOR STOP SF 'IN ., 2F OR R EV , FEED ,3 FOR RAF 'ID OFF' ';Nl
10410 ONN1GOHH050,1060 ,1070
1050 P1$="SHIF' SF'INDLE RAF 'ID OFF":GOT08500
1oi o PlS= "R EV E RS E F "EED OFF":T==T•2:т;!=T+т1:GOT08500
1070 P!S• "RA f'IO TURREТ FACE OFF":t;OTIJ8500
1080 PS="ТLIRNING ANO ORIL.LING": GOT0930
1110 P S ="TURNING AND CORE DRILLING":GOT0930
1110 F'S•"ТLIRNING AND REAMING": GOT0930
1150 F'S ="TURNING AND BORING":GOT0930
116 О PS• "ТLIRN AND SLAE: CUT": GOH)930
1170 CLS:f''RINT"TURNING & FACING"
Распечатка 10.3 (продолжение)
199
1100 PRINT"ENTER WHH:H OF'ТION YOU WISH"
1190 f'RINT"l '----ТLJRN & f'ACE FRONT SLШE"
1200 PRINT"2--·--ТLIRN & ,-АСЕ REAR SLIDE"
1210 Pr<INT"Э·----ТLJRN & F' ACE E:IJTH S LШ ES"
1220 INF'UT"q.----ТLJRN , E:QRE & FACE ."; Х
1230 ONXGOT01210,1250,1260,1270
1240 PS= " TUl<N & FACE П'<Т SLП>E" :GOHl930
1250 PS="TURN /\ FACE REAR SLIOE" :c;oTIJ'/30
1;!60 PS="ТLIRN & FACE E:IJTH S LШES" :GOT0930-
1270 PS="TURNiBORE & FACE " :GOT0930
1280 Cl.S: PR:[NT" TlJkNING - E:ORING & FOIXНING"
1290 Pr..:INT"NOTE AL.L FOIXMING OF"Ef..:ATIONS ARE COMF'l_ETED w:rтн F~ORHING SF ·EEOS"
1300 f'RINT"ENTER ТНЕ Of'TНIN YlJIJ WISH Т О . LJSE"
1310 PRINT"l-·--- - Тl.ll<N & r· □ RM f'RIJNT SLШE"
1320 PRINT"2-- · --ТLJRN & ПJRM REAR S I_IDE"
1330 f'RINT"Э-·-- - --E:ORE & ГIJRM FRONT SL.IIJE "
1340 PRINT"q -- - --E:ORE & ГОRМ REAR SLШE "
1341 PRINT"5----ТLJRN - BORE & FORM"
1342 f'RINT"6- ·-- ·-ТLIRN - E:ORE - FACE & ,- □ RM"
1350 INf'LIТX
1360 ONXGOT01370,1:180,1390 ,1100,1101,1402
1370 f)$=' ' TU RN & FORM FRT SLIDE'':Goтo1q10
1ЭВО PS="ТI.JRN /\ f'IJRM REAR SLIDE " а;от1J1•1111
1Э90 PS="E:QRE & f ' lJRM FRT SLIDE" :с;отои111
1400 f'S ="E:ORE & FDRM REAR SLШE" :с;ото11111
1101 PS="TURN - BORE
-
FORM R.S,":G □ T01110
1402 PS="TURN-E:ORE-FACE -F'ORM R, S,": GOTIJ 14111
14111 CL.S: INf'LIТ "ENTER ТНЕ NUME:ER OF TOOLS"; ,1
1420 F'RINT "ENTER ТНЕ LDNGEST CUT FШST----ТIME IS CALCULATED ON TНIS"
1130 F'ORI "l HIJ
1440 INPUT"TYf'E IN ТНЕ Of'ER, NAME I ,E , ТLIRN А, f'ORM Е:, ПIRM C";f'3$(l)
11~,О INf'UT "ENTER ТНЕ DIA , & TOLERANCE
,
SEPARATE Е:У А COMMA";D<I> ,D1<I)
1ll60 INF'UТ''ENTER LENGTH OF' C:UT & TOL., SEF'Af.:ATE Е:У А COMMA";L(I) ,Ll(I)
1470 NEXТI
1~80 INF'UT"ТYF'E 1 FOR HSS FORM TOIJL OR Z FOR CARE:IDE";N
1490 IFN=1THENR=<FS ■ 12)/(0(1) ■ 3,1Ч16)ELSER=<FC ■ 12)/(0(1) ■ 3,lq16)
1500 IFN=lTHENf '4S="HIGH SS "ELSEf '4S= "CARE:IOE"
1510 GOSU89UOO:GDSU89200 .
1520 T=((L(1)+.03)/F)/R:т1=.11:т2=T+Tl
1530 PRINT"ENTER 1 FOR STANOARD CRDSS SLIDE"
1510 PRINT''ENTER 2 FOR LATE CROSS SLIDE''
1550 INPUT"ENTER 3 FOR I_ATE CROSS SLIDE 2 NO FEED "; Nl
1560 ONN1GOTO1570,1580,1590
1570 f'SS= "STD CROSS SLШE":GOT01630
1580 P5$="LATE CROSS SLIDE":T1=,1~;:т2=T+Т1:G □ T01630
1590 f'5S="LATE C ,S, 2ND FEED":Tl= ,1 5:T2=T+T1
160 О Lf'RINTCHR$ С 138): LPRINT"FIRST FEED FOR TНIS Of'ERATION IS "; F ;_" S E CON D F EED I S
SHOWN IN ТНЕ FEEO COL."
161 О INf'UT"TYf'E 1 ТО SELECT ТНЕ SECOND FEED"; U
1620 IFU=1THENGOSU89200
1630 INF' UT "ENTER 1 FOR ROUGH CUT OR 2 FOR FINISH CUT"; V
1610 . IFV=1THENP2$="ROUGH CUT "ELSEP2$="FINISH CUT"
1650 INPUT"E;NTER 1 FOR STOP Sf'IN , 2 FOR REV FEE0,3 FOR RAPID OFF";Nl
1660 ONN1GOT01670,1680,1690
1670 PlS="STOP SF ·INDLE" :G □ T08500
1680 f'lS = "REVERSE FEED":T=T•2:T2=T+Tl:GOT08500
1690 f'lS = "RAf'ID OFF ":GOT08500
2000 CLS:PRINT"E:DRING Of'ERATIONS "
2010 f'RINT"ENTER ТНЕ ТУРЕ EIORING Of'ERAТION YOU WISH"
2020 f'RINT "1----E:ORING SINGLE TOOL"
2030 f'RINT "2----E:ORING MUL ТIPLE TOOLS"
2010 f'RINT "3 ----E:ORING & FACING CROSS SLIDE"
2050 f'RINT"З-- --E:QRI NG & FORl'\ING CROSS SLIDE"
2060 f'RINT"З--- -E:ORING, FORMING & FACING CROSS SLIDE"
2070 INF'UT"4- - - -E:QRING 11. GROOVING " ;х
Распечатка 10.3 (пр одо л ж ение)
200
2100 ONXGOT □ 211ll,2120 , 21З0,2 2 10
2110 F·S = "ЫJRINI; S[NGLE TOOL " :F"3S="Ec ORE":TR = EcR:ТF · = EcF : C:OT0810
2120 P$="E:or-.:ING MULTIPI_E TOOL. 5":P3$:,"E:ORE.":TR:::E:f.::TF.::E:~:(;oтп9Э0
21ЭО CL S:PRINT"[:QRJN(; &. F~ACING"
21qo PRINT"ENTER ТНЕ ОРПОN YOU WISH ТО USE"
21~)0 PF(tNT"1- ---- - E:ORING & FACING FRONT SLIDE"
2160 PRlNT " 2 ·· · - - - • -EcQRING & F"ACING REAR (;LJOE"
2170 f··RINT"Э-· ----BORING & FACING ВОТН Sl. ШES' "
2100 TNF·UT"1 - - - - --t:ORING & F'ORMING"; Х
2190 ONXGOTO2200,2210,2220,2Z30
2200 f·$ =" EcORE & FACE F"RT Sl .IDE" :c; □ HJ930
221(1 f>t,.:: ''CORE & FACE REAR SLIDE.'':COTl)930
2220 F'S.::"E:ORE & FACE BOHi SL.IOES" :GOTO930
2230 (;ОТ[11280
zzqo CL.S:PRINT"ENTER ТНЕ OF ·l I!JN YOU IOSH "
2250 F'RINT"l-.. ·---.- [:QRE THEN GROOVE"
2260 F·RINT"2. ·---- ----- RA F·ID ADVANCE THEN GROOVE OR Е:АО~ F'ACE ."
2265 F"RINT"NOTE ТНЕ LENGT H OF CIJТ IS ТНЕ DЕF·тн OF GROOVE"
2270 1NF"UTX1
2280 ( INX1GOT(l2290,2300
2290 l'$="EcORE THEN GROOVE" :GOTOl'l10
2300 P$="RAPID ADVANCE
-
GROOVE":GOTOIHU
3000 CL .S:f'"RINT"DRILLING MODLILE"
3010 PRINT"ENTER ТНЕ NUM[cER YOU WISH ТО W □ Rf: WПН"
3020 F" RINT " 1 · •-- - -- 0RILC }ПGН SF"E[D STEEL "
3030 F"RINT"2- - - ·- -CORE DRILl .
-
CORED HOLE"
3oqo PRINT"З-·--·--CORD DRILl. - DRILLED HOLE "
зоq1 PRINT"q- - - ·-DRILI., , & FACE"
3050 INF'llTX
3060 ()NXGOTO3070,3170 ,3270 ,3310
307 О CL.S: f'"S=" DRILl. - HSS": f·3S= "DRIL.L ."
3080 INF"UT"ENTER ТНЕ DIA, & TOLERANCE SEF"ARATED ВУ А COMMA";D,01
3090 TNPUT''ENTi:R ТНЕ LENGTH R TOLERANCE SEF·ARATED ВУ А COMMA '' ;L,Ll
31 1)0 R=(f1D•12)/<D•З,1116)
3110 GOSUB9000:COSU89ZOO
3120 T= C<L .+<D•.3))/F)/R: Tl = .11:T2=T+T1
31ЭО INF'LJТ' ' ENTER 1 F.- O R
STOF" SF·J:NOL.E OR 2 f-"OR RAF·п> OF F-" "; Nl
э1qо ONN1GOT03150,3160
31~50 P1$= "STO F " SPINDLE RAPID OFT " :сот □ В500
Э160 Pl$,="RAF'Ш Тlll<RET F"ACE Ol'F": СОТ08500
3170 CLS:f0·$="CORE DRll.L
••
CORED HOLE" : P3$= "CDRE "
31EJO INPUT"ENTER ТНЕ DIA, & TOl.ERANCE SEF'ARATED ЕсУ А COMMA";D , 01\
3190 INF"UT"ENTER ТНЕ l.ENGTH & TOL ERANCE SEF'ARATEO ВУ А СОММА"; l . , Ll
3200 R=CCC•12)/(D•З.1q16>
3210 GOSUE:9000:GOSUB9200
3220 T~((L+,02)/F)/R:T1=, 1 1:T2=T+Tl
3230 INF"UT"ENTER 1 FOR STOP SF"INDLE OR 2 FOR RAF"Ш _ OfF"; Nl
3240 ONN1GOT03250,3260
3250 F'l$="SHIP SPINDLE RAPID OFT" :GOHJB500
3260 F"lS="RAF'П) ТllRF<ET FACE OFF" а;отовsоо
3270 CL.S:PS=" C:ORE DRIL.L
-
DRILLED HOLE" :F'3$= "C O RE "
3280 INF"UT"ENTER ТНЕ DIA, & TOLERANCE SEF'ARATED ЕсУ А СОММА" ; □ ,(11
3290 INPUT"ENTER ТНЕ LENGTH & TOLERANCE SEF'ARATED ЕсУ А СОММА" ;L., l.1
3300 R=CCD•12>l<O•З.1116>:GOTD3210
3310 CLS:PRINT"DRil.. l . & F"ACE"
3320 F"RINT"ENTER ТНЕ DF" ТION YDU WISH"
3330 f'RINT"l- - --DRILL & FACE FRONT SLП)E"
33qo PRINT"2 ----DRILL & ~-АСЕ REAR SLIDE "
3350 f'RINT"3-- --DRILL & FACE ВОТН SLIDES"
3360 INF'LJI X
3370 ONXGOTD3380,3390 ,3~00
3380 f'S= "DR il ..l . & FACE FRT SLIDE" :t; □ TIJ930
3390 P$= " DRIL L & FACE REAR SLiDE " :GOT0930
3100 PS="D R ILL I
FACE ВОТН SLIDES":GIJT0930
q О О О Cl. S: PRINT"Г<EAMING MOl)IJLE"
Распечатка 10.3 (продолжение)
201
•но::=; F"RINT "NOTE OF'TIONS 1 & 2 USE REAHIN(; SF·EEOS "
101 U PRINT"ENTER ТНЕ NUME:ER YIJIJ w:rsн то WORt: WПН"
1020 PRIN1''1 -· - - --REA M HIGH SPEED RE :AHER ''
1030 PRINT"2 ·· -·· --REAM CARE:I[>E REAMER"
10Э1 PRINT"Э----REAM & r·AcE USINI; FACING sr·pм"
1010 INF·tJTX
1050 ONXGOT()1060,1150,1190
1060 Ct.S:P $ ="REAM -· HSS REAl1ER" : РЗ$•"RЕАМ"
• 1070
INPllТ"E.NTER ТНЕ DIA, & TOLE.RANCE SEPARATED Е:У А СО11МА";О,01
1080 INPUT"ENTER ТНЕ LENGTH & TOLERANCE SEPARATED ВУ А COMMA";L,Ll
1090 R•IRS ■ 121/ID ■ 3 , 11161
202
•ноо c;OSUE:9000 :GOSUE:9200
1110 INPllТ"ENTER 1 FOR STDP SPINDLE OR 2 FOR RАРП> OFF";Nl
1120 ONN1GOT01130 ,1 110
1130 Pl $• "STOP SPINDLE RAPID OFF":GOT08500
1110 Pl $•"RAPIO TURRET FACE OFF":GOT08500
1150 CLS :P$ ="REAM - CARBIDE REAMER":P3$• "RE A l 1"
1160 INF·UT "ENTER ТНЕ ОТ.А. & TOLERANCE SEPARATED Е:У А COMMA";D,D1
1170 INF·UT "ENTER ТНЕ l .ENGTH & HILERANCE SEPARATED Е:У А COMl1A";t ., Ll
1180 R•IRC ■ 12 1/ID ■ 3, 11161:G □ T01100
1190 CL.S:f'RINT "REAMINt; & r·ACING "
1200 PRINT"ENTER ТНЕ bPTION YOU WISH ТО USE"
121 U PRINT" 1 · ·- --REAM & FACE FRONT SLIDE"
1220 PRINT"2 --- -REAM & FACE REAR SLIOE"
1230 PRINT"Э--··-REAM & FACE Е:ОТН SLIOES"
1210 INPlJТX
1250 CINXGOT01260 , 4270,1280
1260 P$•"REAM & r ·AcE FRT SLIDE":GOT0930
1270 P$•"REAM & FACE REAR Sl.IDE" : GOT0930
1280 Pf="REAM & FACE ВОТН SLIDES":GOT0930
,;soo · CI .. S:PS=="THREADING"
151 О PRINT"ENTER ТНЕ NUME:ER NEXT ТО ТНЕ THREAOS f'ER INCH AND"
151:•; F·Ю:NT"Fl,H, r ·oR RIGHT t(AND OR L.. ,H, FOR LEFТ HAND, SEPARATE Е:У СО1111А"
1520 PRINT"l - - -7 TPI
9---11 TPI"
1530 PRINT"2- - - B
10---16 "
1510 PRINT"Э-- -9
tl---18"
1550 F)RINT''1- --10
12---20 ''
1~;60 PRINT"5· ·· - - ·1 ].
lЗ- --2 '1"
-4570 PR1NT"6 ---11.• 5
1'♦ -·--27 11
1580 PRINT''7- - -12
15---28 ''
1590 PRINT"EJ- -··1:1
16---32 "
1600 INF·t.JТXl ,РЗ$
1610 ONX1GOT(l1620,1630,3610,1650,1660,1670,1680,1690 ,1 700,1710 ,1720 ,1 730,1710,17
~;о ,1760, 1110
1620 S:::TH: 0=7: P6S:=" 7 TF'I": F·1t="61 -UU - -11 ": GOT0'\780
1630 S•TX : ll•B:P6$ee"O TPI " : F·1$•" 51
12"Н;ОТО17ВО
1610 S•TX:0=9:f•6fee"9. TPI":P1$•"50
12":(;0TIJ17B0
1650 S••T Х: О• 1 О: Р6$•" 1 IIП'l": f'1$"" 19 -U · -12": GOT01780
1660 S=TX:fl••ll :P6$• " 11 TP I" : P1$•" 39
10":GIJТ017BO
1670 S=TX: О •• 11,;;: F'6$=" 11, 5 TPI" :F·1 $ea"39-U -1 U": GOHl17EIO
-'1680
S:=:T Х: (1::: 12: F'6$:::" 1;~ TPI": P1S=" 16-U-12": с;ото.q700
1690 S•ТХ:С1••1З:r·6$•"1Э TPI":F•1$="11
12":GOT01780
17 00 S••TX:fl••l'l:P6$ •"1 '1 TPI ":PH• "3 5
10" : G□ T017B0
171 О S•ТУ: О•• 16:Р6$•" 11, TPI": F'1$-,"16-0 -1'1": с;от□ 1780
1720 S=TY:a~1e1:P6S=''18 TPI'':P1 S= 11 25
-
в··:GОТО1780
1730 S=TY :0== 20 :P6i,::::"20 TPI" :P4S::"18
16" :GOT01780
171 О S=T У: 0==21: P6S="21 TF'I": F'1S="31-U-12": GOT01780
1750 S=ТZ: 0••27 :Р6$еа"27 TF'I ": F'1$• " 31
12": GOT01780
1760 s-тz:0••28:P6$•"2B TPI":P'l$• "3 5
11":GOT017B0
1770 Б=тz:о=Э2:Р6'5="32 TF'l":F'1 '5 =" 2 B
12":GOT01780 "
1780 CLS:f'RINT"ENTER тt1Е NIJМE:ER YOU WISH ТО WORJ( WIТH"
17'10 PRINT"l-··----THREAГJ SOL.Ш TAF"'
1EIOU PRINT"2 ·- ·- · · ·- -THl<EAD INTERNAl.. Clll.L.AF'S:Шl.E"
1810 PRINT"З· -· --THREAD ENTERNAL .. DIE HEAD ."
10;':О l"Nf'IJTX;~
Распечатка 10.3 (продолжение)
1830 ONX2GOTO1810,1850 ,1860
' 18 '10 F'5$="THREAD - SOLID TAF'":G □ TO'l870
1850 P5S•" T Hl<EAD - INTERNAL COL .LAF 'SIE:LE" :G □ TO'l870
' 18 6 0 F'~;$="ПJREAD - ENTERNAL DIE HEAD": GOHl'IB70
'1870
INF'UT"ENTER ТНЕ DIA. & TOLERANCE , SEF'ARATE Е:У А СОННА" ;O,Dl
'1880
INF'UT"ENTER ТНЕ l.ENGTH & TOLERANCE, SEF'ARATE Е:У А COHHA";L,Ll
1890 R•IS ■ l21/ID ■ 3.1'116):G □ SUB9000
1900 F•l/O:T•IIL+.125)/F)/R:т1-.11:т2-т+т1
1910 IFX2=1THENT=T•2:T2=T+T1ELSE1920
'1920 LF'RINTCHRSl1381
' 1930 LF 'RINTPS;" ";Рьt;"
GEARS"
1910 LF'RINTCHRSl1381
' 19 5 0 I F X2 •1THEN 'l960ELSE'l970
'1960 F'l$•"REVERSE FEED OFF
":G □ TD8500
' 19 7 0 F'l$•" RA F 'ID ТLJRRET FACE OFF":G □ TDB500
50 О О F'S•"TREF'ANNING": GDH1930
5010 l.F'RINTC:HRSl1381:LF'RINT "Sf(If' INDEX ПНЕ ~. 0 2"
5020 T2= ,02:GOTOB520
8500 LF'RINTF'$; _" ,
"jF'2$j"· ,
"jf'l ♦ ;", "jf'1$;",
" jf'5$:L_f'RINTCHR$(138):IFJ=·O TH EN B ~i01E
LSEB510
8501 FORI•lТOJ
8~i02 L_f 'RINTZ;I;" ";F'З$(1>,D<I>;"+-";01<I>;TAE:(10);L<I)j"+-·";l.1<I>;TAB<60>;F;TAE:<
70> ;R
8503 NEXТI
вso.q с;отоеs15
8510 LPRINTZ;l;" " if'ЗS,O;"+-"jD1jTAE:<"10);t_;"+·· " jl.1jTAE:(60);F~;тAE:<70)jR
8515 LPRINT"ТIHE FOR THIS OF'ERAТION IS";т; " +
"
;т1;"INOEX"
8520 Lf'RINTCHRSl138J:TЗ•T3+T2
1;)525 J=0: F'1$="": P5S=="": Р2$="" :F·1$="": РЗ$==""
85ЭО NEXТZ
8510 CLS:F'RINT"THE NEXT SECТION OF ТНЕ F'ROGRAH ADOS LOAD & UNLOAD П:НЕS"
8550 F'RINT "TYF 'E IN ТНЕ NUHE:ER NEXT ТО ТНЕ f'ART \ .IEIGHT"
В560 PRINT" 1- - - ·- -IJNDER 5 LE:S."
8570 PRINT"2 - -- --LJNOER 1 О l.E:S. "
В580 F'RINT"Э···-··--LJNDER 15 LE:S,"
0590 F'RINT "if- -- - -lJNOER 20 LE:S. "
8600 F'RINT " ~•-··---OVER
20 LE:S."
8610 INF'UTH
В620 ONHGOT08630,8610,8650,8660,8670
8630 H•.25:G □ T08680
8610 H• .35:GOT08680
8650 H•,15:G □ T08680
8660 H•.55:G □ T08680
8670 H• .75:GOT08680
8680 T'l;T3+H:T5:6U/T~
8690 LF'RINT "TOTAL. OF'ERAТION I.S "; ТЗ; "F 'LUS LOAD & LJNLOAD ECШALS " ; T'I
8700 LF'RINT "TOTAL F 'ARTS F 'ER HOUR АRЕ";Т5
8710 CL.S:PRINT"THE LAST F'ART OF ТНЕ f'ROGRAH IS ADDING LJF ' ТНЕ SET Uf' ПНЕ"
8720 F'RINT"AS ТНЕ SET UF' DESCRIF'ТION AF'F 'EARS ()N ТНЕ SCREEN,"
8730 PRINT"ТYPE IN ТНЕ NUHE:ER OF ТIHES IТ IS USED OF О IF NOT llSED, "
8710 F'RINT "NOTE-TO SHORTEN ТНЕ F'ROCESS SOHE CONSTANTS ARE ADDED IN "
8750 F'RINT :INPUT " INSTALL TURRET SLШE HEAD - F'ACING OR RECESSING CUT"; НА
8760 НЕ:•НА ■ 16,5
8770 INF'UT"OVER HEAD TURNING - СUТТЕR & HOLDER"; МС
8780 НЕ:•НЕ:+ 1НС ■ ! О 1
8790 INF'UT "INSTALL E:ORING E:AR & СUТТЕR" ;но
880 О МЕ:=МЕ:+ <MD•9. 5)
8810 INF'UT "INSTAL L OVERHEAD CHAHFER СUТТЕR & HOLDER";HE
8820 HE:•HE:+IHE•61
8830 INPUT"INSTALL BORING E:AR СUТТЕR HEAD & СUТТЕR"; HF
8810 HE::HE:+IHF ■ 51
8850 INF'UT "INSTALL DRILL
,
CORE DRIL.L
,
REAHER OR TAF"'; HG
8860 HB•HE:+IHG•5>
8870 INF'UT "INSTALL FRDNT OR f<EAR CROSS SLIDE СUТТЕR E:LOCf( & СUТТЕR"; НН
8880 HE:•HB+IHH ■ 71+61,6:HJ•HE:/60
Распечатка 10 .3 (продолжение)
203
204
ВВ90 L_F'RINT II Ы:~Т ш=· AL .l.OW ANCE IS ,, ; M.J; "Hou1;: s"
f190 О ENI)
9000 f:·oRI::1 ТО1~-!
9010 IFI~12ANDR> S(IITHEN9020ELSE9030
9020 S1 = S(I):GO T0 9110
9030 IFS(I) < RTt1EN9100
9040 [F~i(]))·RTtiEN9050
9П50 Sl=CS(I>+S<I-1))/2
9060 J'FS1 < =RTHENS1 =SCI)E"LSE9080
9070 СОТО9110
9080 TFSl > R.ГHENSl=S<I-1)
9090 СОТ11911 О
9100 NEXTJ.
9110 k=Sl
91 2 О RE"ПJl;:N
92 00 CL S: F"RINH~760 , "FEED SELECTION"
9210 f~RINT~832,Fl;r2:f~ э;F·1;r·s;F6
9720 PR] NTfrlB96, "ENT[R ТНЕ FEED NUME:ER YOU WISH ТО USE": INF"LJТX
9730 CJNXGOT09210,9250,9260,9270,9280,9290
9:.?'10 f :· 0.,т1 :Fi:ETLJRN
9 2 '50 f: =Г- 2: f~ETLJ!;:N
9260 f::=TЗ:f,:r::т ш:..:N
9210 F ·= r4:нЕ· тш:..:N
9:..-'НО t ·=· F ~,:f<ET LJГ.:N
S':?90 f:· :.:т6 :нЕТt.11:..:N
100(10 t :LS:FORI=11' (112:READRCI):NEXTI
10010 [ JА ' ГАl,1,ЗiЗ,5,5,7,7,9,9,11,11
10020 F(IR :r=1тo12:READG(l):NEXTI
10030 ОАТА17,43,22,38,27,ЗЗ,ЗЭ,27,38,22,43,17
1О О 40 PRJNT"ROW", "FEED", " ROW", "F'EED"
111050 FORI=1T012:RE:Ao~ - (l):F·RINTR<I>,F<I>;,:NEXTI
10060 OATA.fl019, .0077, .0020, .011, .oo,q, .016, .006, .024, .оов, .034, .01:~, .05
10070 INF'l/Т"ENTП:;: ТНЕ FШW NLIME:ER У(НJ WISH ТО USE";I
10000 f- 1 ::=F<I> :F-4=F -(I-+· 1) :(;t==C<I) :c;4=CCI+1>
1 О 090 Ct..S: r- •f ',;IN f "ROW" , "F 'E[.D " , ''RO\,,I" , "FEED "
101110 ГOF;.f cojTП1;·,:1,EAl)f(J):F·1<1NTR(I),Hil;,:NEXTI
101:tU OATl't,OOЭ, .01?, .0 0'14, .017, .006, ,025, .009, ,037, .ОlЗ, .052, .0 1 9, .076
101?0 IN1:•LJТ"[NT[f,: ТНЕ f(O\,,I N\ .JME:Ef'.: YO \J WISH ТО USE":I
101:10 F"2:::F-- IT) :г~:i =T(I+ l ) :С:2=(;(!) :c5 ::::C(I+1)
JО l'fO CL S: PRJNT"ROW", 'TEED " , "ROW", " FEEO "
101~'i 0
F-0Rl = = =. 1T01:·! :RE.AOF<I> :F·RINTR<I> ,F. (I):, :NEXTI
l(fJl,O [)At·A.005, .О .19, .007, .020, ,01, .04,.01~.'i, .01.,,
.O ~ ~' L, ,004\, ,031 , ,124
101711 INf' IH" E:N'ГГR ТНЕ r,ow Nl.tмE,ER YOIJ юsн н, I.ISE ";I
10 100 ГЭ::f~ (l) :F6=f: <I+l) :1;э~=С(I) :G6=(;(I+1)
10190 ~i [ TIЛ.:N
1~~(i IIО CL ~; : f:•f(l.N1"1НЕ 2 А/С cнuc•(ER HAS 2 SETS OF RPM'S."
1::·;010 Pf(J'NГ"F-- ACH sгr HAS А н:rс;н ANO А [ _()W SF'EED f ~AN(;E "
l~-, lJ ~?O F··f '1Nl "
Н/:~, f( F'H МОТПR SF'EE[)"
1:,0 ~10 F'(lf;: "J .,: l ТП1 :1 : f,;E_Д[)S ( ]"): r·1;:тNт: ; ( I),;: NEXTI
1~01tJ t) A1Al2,37 ,41 ,62 ,72 ,l(J4 ,121 ,170 ,203 ,290,334 ,S68
1: ·10~·,о f-•f,:JNI :f-•F,:TNT:H.:INT"
1750 RF'M HOTOR Sf'EED"
1~:,060 ГОR.1 == 1 ТО1 ;t: f~E .AOSl С I.): Pf.:INTSl ( 1), ; :_NEXTI
15065 0АТА41,7Ч,В8,121,11'1,208,242,340,406,580,66В,1136
1:"i070 INr'llТ"ENTER 1 ТО I.JSE ТНЕ 875 SET OR 2 ТО USE ТНЕ 1750 SET";X
15 ОВ{) IГX:.:=ZTHEN 1~jO 90Et.. SE 1 ~11 О О
1~090 f ~ ПRl : =11012:scr>=Sl(I):NEXTI
1~il IJ О RЕл.н;:N
7000 0 CLS:PRINT"MATERIAL LIST "
~
?0010 F'RINT"l--•Г;RQUF· А"
~ !U U20 F•f ' ,:JNT"l:--1112 ,C-111El,E:RONZE {F'-'64)"
20030 PRINT:f)RJNT''2 --GROUP В''
~ 00"1⁄20 PE:INT"116 S.S . ,C -1010 -llJl ~j TUE:ING,C· -1019,C-1037,C-1041"
20050 PkINT"NAVAL [,F;QNZE 73, [ ,RONZE CTOION I , CAST IRDN (SOFТI"
2 О 060 PRINT: F·RINT" 3 --GkOIJf· С"
Распечатка 10.3 (продолжение)
\ \\20070 F'RINT" C: -1010-l\S-50,A-. ql'I0 - 50,A- l\310,A - l\615,302,30.q STAINLESS STEEL"
20080 PRINT"BRONZE <АСШ1), CAST IRON <HARD), MALLEAE :LE IRON"
2 0090 PRINT " 1 - - GROUP О,-----Е-3310 , Е-1160 , CAST S TEEL"
f O!OO ~·RINT "5 - -GROUF' Е,-----С - 10 7 0,· С-1090, MONEL . "
20110 PRINT''6 - -GROUP F, - - -- -A L U M, BRASS (FREE MACHINING ) ''
201 2 0 PRINT : INPUT"ENTER ТНЕ NUHE:ER FROM 1 ТО 6 ТНАТ CORRESPONDS ТО ТНЕ LEПER";N
20130 ONNGOT020110,201 7 0,20200,20230 , 2 0260,20290
201~0 AJ • "GROUP А"
20 15 0 TR = 1 9 0:TF =560 : TA=TR:TE: = TF:BR=TR:BF=T F :SD= 1 2 0:CD=150:C:C=1 2 0:f~S =6 0:RC= 9 0:FS=
J50:FC•320:TW•10:TX=20:TY=ЗO:TZ•10
2 01 6 0 RfTt.lRN
2017 0 A'S ~• "C;ROUF" Е:"
.
.
~
2 01 8 0 TR ~ 120:TF = 190:TA=TR:TE:=TF:BR=TR:BF=TF:S0=80:CD=120 : 1:C=100:kS=50:RC =75:F 5= 1
20 : FC:=3 2 0:TW==t5:TX=2S:TY=10:TZ=15
2. 0190 F.:EП.IRN
20 2 00 AJ•"GROUP С"
•
.
.
2 0210 TR=З Z O:TF=1Z0:1 · A=TR:TБ=TF:BR=350:BF=120:S0=60:C0=90:CC=BO:RS=111:RC=60:Fb=9
о:гс=21 s :тw=q:тх=в:тУ=10:тz=15
20220 RETURN
20230 At,= "GROUF' D"
20 2 10 TR = 215:TF=320:TA=TR:TE = TF:BR=260:BF=320:SD=50:C0=70:CC=60:RS=ЗO:RC=45 :FS = 7
o:FC=220:TW=1:TX=B:TY=1 0 :T Z=15
20 25 0 REТt.JRN
20 2 60 At,="GROUP Е"
.
_
_
2 0270 TR •= 220:TF=2ЗO:TA=TR:TE = TF:BR=175:BF=2ЗO:SD=50:CO=50:CC=50:RS= 2 5:RC=З5:FS=5
o:FC=Z0o:тw ~ 1:тx=5:TY=l0:T Z =1 2
20280 RETURN
~6;:~ *~= ~~~~~~:F:~R: TA=TR : TE:=TF: E:.R=TR: E:F=TR: SD=Z0 О: CD=250: СС=20 О: RS=120: RC=180: F
S=250:FC=1000:TW=Z0:TX=S0:TY=100:TZ=150
::~~: =~~U~=RIABLE NAHES TR•R TURN, TF • F TURN, FACE SAME AS TURNBR•R BORE, BF=F
BORE, SD =DRILL HSS , CD •CORE DRICLED ,CC=CORED HDLE , RS =REAM HSS,RC •REAM CARBIOE,F
S=FORM ~iSS,FC=FORM CAR8IDE, T=THD,TЧ= < 7.5,TX=B-15,TY=16-21,TZ=>25
Распечатка 10.3 (продолжение)
Модули осуществляют выбор материала, подач и скоростей; ввод об
щих сведений о технологическом процессе; вывод на печать исход
ных данных; назначение режущего инструмента по гнездам пяти
позиционной револьверной головки; выбор пере"Х.одов; вывод на пе
чать результатов решения задачи; выбор переходов для нарезания
резьбы; расчет времени установки и снятия детали и подготовитель
но-заключительного времени (распечатка 10.3).
Выбор материала. Фирма - изготовитель станков , для которы х
написана эта программа, объединяет 34 различны х материала в
шесть групп . Программа делает то же самое.
Строка 200: INPUT«PRESS ENTER ТО SEE ТНЕ МА TER IAL» ; Х
Строка 210: GOSUB 20000
Программа выводит на экран перечень материалов, после чего
пользователь должен ввести номер группы, к которой относится
обрабатываемый материал. Подпрограмма также хранит все значе
ния скоростей резания, рекомендованные фирмой д.ля каждого ма
териала. Так, в строке 20210 для материалов группы «С» перемен
ная TR = 320, переменная TF = 420 и т.д. Переменная TR обозна
чает скорость резания, фут/мин, для грубого точения, переменная
TF - для чистового точения. Примечания в строке 20320 помогают
расшифровать имена переменных.
Выбор скорости резания или ее расчет осуществляется при ре
шении любой задачи проектирования технологического процесса.
В конкретной программе вопрос о том, выбирать скорость резания
205
или рассчитывать, должен решаться в зависимости от иазиачеиия/
программы и оснащения станка режущим инструментом .
/
Выбор подач. Кинематика станка обеспечивает 36 значений по-1
дач, шесть из которых могут быть использованы при обработке с од-
ной установки. В строке 220 программа начинает процесс выбора по
дач
Строка 220: INPUT «PRESS ENTER ТО SELECT FEEDS»; Х
Строка 230: GOSUB 10000
При выполнении этой подпрограммы экран очищается и на нем по
является первый ряд значений подач. Затем ЭВМ запрашивает но
мер строки, в которую помещено значение подачи, необходимое ин
женеру . Выбор подач в патронном револьвер но-токарном станке
осуществляется путем установки в гитару сменных шестерней. В тех
нологическом документе, изготовленном ЭВМ, указываются номера
упоров, требуемые сменные шестерни и значения подач . Процесс вы
бора продолжается до тех пор, тюка инженер не выберет 6 подач.
Выбор частоты вращения.
Строка 240: «SPEEDS»'; Х INPUT «PRESS ENTER ТО SELECT
MACHINE,
Строка 250: GOSUB 15000
.
При выполнении этой подпрограммы на экране появляются два диа
пазона значений частоты вращения шпинделя. Пользователь дол
жен выбрать один из них. Выбранные значения хранятся в памяти
ЭВМ и используются при дальнейших расчетах.
Ввод общих сведений о технологическом процессе. Операторы в
строках 260-290 позволяют инженеру ввести в программу наимено
вание детали, ее номер, текущую дату и другие данные.
В целях экономии памяти в программе применяется интересный
прием: постоянно используются одни и те же символьные перемен
ные в операторах печати. Например:
Строка 277: INPUT «ENTER 1 FOR 0D CHUCK OR 2
FOR ID СНИСК»; Ml
Строка 278: IFMl 0 = 1 THEN B6S = «О.Д. CHUCK» ELSE B6S +
+ «ID CHUCK»·
Второй пример: переменная Р$ используется в этой программе
48 раз.
•
Вывод на печать исходных данных. Этот модуль распечатывает
щ1 построчно-печатающем устройстве все данные, введенные с кла
виатуры или выбранные из числа данных, хранимых в программе .
Назначение режущего инструмента по гнездам пятипозицион-
u
u
,
1
нон револьвернои головки
.
Строка440:FORZ= 1ТО5
В этой строке начинается цикл FOR - NEXT, который продол
жается до строки 8530 . Цикл выполняется 5 раз, по числу позиций
револьверной головки. На экран выводится информация об оснаще
нии станка режущим инструментом, на основании которой пользо
ватель выбирает вид обработки: 1) точение; 2) растачивание; 3) свер
ление; 4) развертывание; 5) нарезание резьбы и т. д.
206
\ \ Выбор переходов . Если пользователь выбрал «точение» , управ
ление передается на оператор в строке 610 и пользователь должен
уточнить, какую операцию он выбрал: 1) точение одним резцом ;
2) точение несколькими резцами; 3) точение и сверление; 4) точение
и развертывание; 5) точение и раста·чивание; 6) точение и отрезка;
7) точение и обтачивание плоскости с использованием поперечного
суппорта и т. д.
Программа учитывает 48 различных операций. Для каждой опе
рации (кроме операций, выполняемых одним резцом) организуется
новый цикл FOR - NEXT , который выполняется столько раз,
сколько выбрано для данной позиции револьверной головки режу
щих инструментов . Число сочетаний операций практически · беско
нечно. Чтобы определить это число, автор даже написал короткую
программу, но ЭВМ не смогла ее выполнить, так как она не воспри
нимает число комбинаций более 33! (факториал) . Это гораздо мень
ше, чем требуется, хотя 33! - число с 39 нулями.
Если инженер выбрал операцию «точение несколькими резцами»,
то управление передается оператору в строке 920. Программа напи
сана таким образом, что инженеру приходится вводить в нее с кла
виатуры минимум данных. Большинство инженеров неплохо управ
ляются с клавишами электронного калькулятора, но чувствуют себя
менее уверенно за пишущей машинкой или клавиатурой дисплея.
Выбор вариантов движения рабочих органов станка, таких, как
«остановка шпинделя», «реверсивная подача» или «быстрый отвод
суппорта» осуществляется нажатием одной клавиши. Как только в
ЭВМ введены все значения диаметров и длин резания, программа
рассчитывает для данной операции частоту вращения · шпинделя.
Затем вызывается подпрограмма , начинающаяс·я со строки 9000 .
Подпрограмма сравнивает частоту вращения шпинделя _ со зна
чениями, выбранными по паспорту станка, находит ближайшее
значение и использует его при дальнейших вычислениях. После то
го как определен состав переходов для режущего инструмента, раз
мещенного в данной позиции револьверной головки, управление
передается оператору в строке 8500.
Вывод на печать результатов решения задачи . На операторы в
строках 8000-8525 следует обратить особое внимание, поскольку
именно они организуют вывод результатов решения задачи на пе
чать. Их операнды - символьные переменные
-
используются в
программе различными модулями. Например, переменная Р$ хра
нит наименование операции и может иметь значение «точение», «рас
тачивание» и т . д.
В строке 8525 символьным переменным присваивается значение
«пустой» строки, прежде чем выполняется оператор NEXTZ в строке
8530.
Выбор переходов для нарезан ия •резьбы . Хотя на распечатке с
результатами работы программы отсутствуют операции, связанные с
нарезанием резьбы, программа предусматривает выполнение следу
ющих переходов: нарезание резьбы метчиком; нарезание внутрен- •
207
ней резьбы резцом; нарезание внешней резьбы винторезной голов
кой. Выбор переходов, связанных с нарезанием резьбы, осуществ
ляется в строках 4500-4970. В программе также хранятся данные о
сменных шестернях, используемых при нарезании резьбы.
Расчет времени установки и снятия детали. После составления
плана обработки детали и назначения режущего инструмента для
каждой обрабатываемой поверхности пользователь выбирает норма
тивы времени на установку и снятие детали в зависимости от ее мас
сы. Последний модуль программы рассчитывает время, необходимое
для настройки станка в зависимости от ряда условий. Перечень ус
ловий отражается на экране и пользователь вводит О (нуль), если
условие отсутствует, или цифру, показывающую, сколько раз данное
условие выполняется (см. строки 8720-8900).
Программа представляет большой интерес с нескольких точек
зрения. Она может быть использована с небольшими изменениями
для широкой гаммы станков этого типа. Необходимо только изменить
значения параметров режимов резания, хранимых в программе.
Эта программа типична для металлообработки. Целые семейства
станков могут быть охвачены одной программой. При написании та
кой программы много труда уходит на то, чтобы разобраться в осо
бенностях конкретного станка и найти такой универсальный под
ход к программированию, при котором программа охватит другие
станки этого семейства или даже станки другого семейства. Эти за
мечания помогут вам правильно ориентироваться при выборе задач
для микроЭВМ.
Для написания этой программы потребовалось 44 чел.-ч. Затра
ты времени могут показаться большими, но если программа исполь
зуется в производстве, она окупится после решения 25-30 задач.
В среднем использование микроЭВМ позволяет снизить трудоем
кость на разработку технологического процесса на 1 - 1,25 ч.
Кроме того, чтобы написать такую программу, инженер-технолог
должен очень хорошо изучить станок, для которого он проектирует
технологический процесс. Это также приносит предприятию опре
деленную пользу.
Упражнение 10.1 (наименее трудное). Написать программу обработки
детали на горизонтальном фрезерном станке, используя в качестве прототипа
предыдущую программу. Это упражнение отнесено к разряду наименее труд
ных, так как число различных операций, выполняемых на горизонтально
фрезерном станке, ограничено.
Упражнение 10.2 (средней трудности). Выбрать двухшпиндельный патрон
ный револьверно-токарный станок с вертикальным расположением ре
вольверной головки и написать для него программу.
Упражнение 10.3 (трудное). Написать программу, аналогичную програм
ме, помещенной в этой главе, для шести- или восьмишпиндельноrо токарно
винторезного автомата. Подпрограмма, которая осуществляет выбор режи
мов резания, должна учитывать разfичные типы переходов.
208
!
Глава 11
РАСЧЕТ ТЕХНОЛОГИЧЕСКИХ РАЗМЕРОВ
,
11.1 . КОНТРОЛЬ ДОПУСКОВ
При разработке нового технологического процесса важной зада
чей инженера является опреде.11ение технологических размеров и до
пусков. Технологический размер - это размер, установленный тех
нологом с учетом процесса обработки. Он отличается от размера, за
данного на рабочем чертеже детали. Примерами технологических
размеров могут служить:
размеры с учетом припусков на грубую обработку поверхности,
после которой за чистовой проход получают размер, заданный кон
структором;
размеры отливок и поковок, с обработки которых начинаются
процессы изготовления деталей;
размеры, которые отсутствуют на чертежах и за-даются для удоб
ства обработки.
Технологические допуски - это допуски на технологические раз
меры. Они также устанавливаются инженером-технологом и ' отлича
ются от допусков, заданных на рабочих чертежах.
В этой главе сделан краткий обзор проблемы, . рассмотрены мето
ды построения диаграмм для контроля допусков и программа, с по
мощью которой этот процесс можно автоматизировать.
Мысль о необходимости проверять допуски на размеры деталей
впервые возникла у Эли Уитни (Eli Whitney). Занимаясь производ-
•ством мушкетов, он заложил основы системы взаимозаменяемости
деталей. Концепция взаимозаменяемости деталей и создание станков,
способных выпускать такие детали, привели к промышленной рево
люции в Америке . Можно сказать, что Уитни стал фактически пер
вым инженером-те,,шологом. Однако потребовалось еще много лет
для того, чтобы эволюция концепции взаимозаменяемости деталей
привела к идее контролировать допуски на обрабатываемые разме
ры.
В настоящее время методы построения диаграмм для контроля
допусков на обработку, возможно, относятся к числу наименее
разработанных и потому редко используемых в работе инженера
технолога методов. Иногда на эту тему появляются статьи в журна
лах, время от времени можно встретить главу в технической книге,
посвященную контролю допусков. Автору известна только одна мо
нография по этой проблеме, написанная Оливером Р . Уэйдом, кото
рый обобщил весь известный к тому времени опыт и внес много ново
го в разработку проблемы. Именно благодаря ero усилиям контроль
209
за допусками на обработку сегодня стал больше наукой, чем искус
ством.
Использование микроЭВМ при построении диаграмм для кон
троля допусков дает большие преимущества. Существенно сокра
щается время, необходимое инженеру для составления такой диаг
раммы. Однако возникает другая трудность : не все хорошо понимают
алгоритм, реализуемый в программе. Всегда надо руководствоваться
следующими правилами работы с ЭВМ: сначала разберитесь, как ре
шается задача вручную, затем составляйте программы. Если вы не
понимаете, каким образом получаются конечные результаты, то как
вы можете знать, правильный или неправильный ответ выдает ЭВМ?
11.2. МЕТОДЫ ПОСТРОЕНИЯ ДИАГРАММ
ДЛЯ КОНТРОЛЯ ДОПУСКОВ
Диаграмма для контроля допусков позволяет определить линей
ные размеры и допуски в тех случаях, когда для изготовления дета
ли или узла необходимо установить технологические размеры на об
работку .
Сама диаграмма практически не изменилась за последние 30 лет.
На рис . 11 .1 приведен пример построения диаграммы. На диаграмме
для обозначения плоскостей 1- 3 , от которых отсчитываются линей-
210
1
2
® ххх±:ххх
-::
..
·, ::,
'-'
ххх± . ххх
ххх±.ххх
1 ® ххх±.ххх
1------ ~
~ ххх±.ххх
2
з
--s
3
_.;;:
4
5
◄
fi
,.
~~
7
в
Рис. 11.1 . Диаграмма для контроля допусков
;/
ные размеры, все вертикальные линии на чертеже детали продолжа
ются вниз.
Диаметры и допуски на них фиксируются в верхней части диа
граммьт •с указанием операции, после которой образуются эти раз
меры . Кружок с цифрой 10 означает, что диаметр был получен в ре
зультате обработки непосредственно на станке. Квадрат с цифрой
40 показывает, что размер был изменен после вспомогательной опе
рации (гальванопокрытие, окраска и т. д.). Стрелка с буквой S оз
начает, что в этом месте деталь будет отрезана от прутка или заготов -
1.000
2 .000
±1
±1
fазнер по
·vepmeЖ!/
1 .000 ±0.005
05
1.000 ±О.О
2.000 ±0.010
1------------ 1
.,___,_
;
2
З BJOUl'fOCfJflJOHH6/t:
а,
раЗ/'fе/JЫ
а2
3⁄4
С,
·#
Hof'fep
pei!, -
2.1 разf'fер-
·1ш +-
нoil
,разl'tep ДОП!JСК /1/ШШ/
а4
1.
и&
1.
as
2.
--
ООО О .005
3
ООО Q,002.
ООО Q,003
2
Рис. 11 .2. Расчет размеров с учетом распределения допусков, . заданных кон
структором
ки. Стрелка с точкой обозначает технологический переход. Точка
определяет технологическую базу, от которой отсчитывается раз
мер. Длина стрелки равна длине резания. Все переходы, сязанные с
обработкой на станке, и зображаются следующим образом. Две точ
ки, соединенные прямой линией, обозначают искомый размер. Ис
комые размеры образуются в результате сложения или вычитания
двух исходных размеров или одного исходного и ранее найденного
искомого размера и для обознач ения припуска, снятого с заданной
поверхности обработки (см. рис. 11.3).
Треугольники обозначают базовые точки. В данном случае они
показывают расположение детали между центрами станка. Квад
рат с точкой означает, что искомые размеры образуются после вспо
могательной операции, такой, как термообработка, гальванопокры
тие и т. д. Например, при термической обработке это может быть раз
мер, обусловленный тепловым расширением детали. Размеры гото
вой детали обозначены так же, как искомые размеры в нижней части
диаграммы.
.
На рис. 11 .2 - 11.4 изображены примеры искомых размеров,
образуемых после выполнения операционных переходов или снятия
припуска на обработку.
211
Обратимся к рис. 11.2 . Какие допуски должны быть назначены
на размеры а1 и ai Необходимо помнить, что погрешности взаи
мосвязанных размеров складываются. Если размер аз имеет по чер
тежу допуск + 0,005 (размеры и допуски в дюймах), то поле это
го допуска должно быть распределено между размерами 1 и 2:
а1 = 1,000 + 0,002;
а2 = 2,000+ 0,003.
Проверим это распределение поля допуска
а2-а1=аз.
fазперы гото- ,
t!o1l i/emoлt.1
1.000 ± 0,00
2.000 ±О.00
З .000 ±О.00
5
5
5
2.980 ±0.005
Q,
02
аз
а"
as
06
а7
..
-s lfсконыц
размер
Рис. 11 .3 . Расчет размеров , образуемых после выполнения операционных пе
реходов
Если размер а 2 - минимальный, а размер аз
-
максимальный, то
1,997- 1,002 = 0,995,
если размер . а 2 - максимальный, а размер а1 - минимальный, то
2,003 - 0,998 = 1,005.
Определим среднее (номинальное) значение размера
0,995+ 1,005 = l ООО
2
'
•
Тогда верхнее отклонение допуска этого размера
1,005-1,000 = + 0,005,
нижнее отклонение
0,99~1,ООО = г- 0,005;
размер а3 = 1,000 + 0,005. . .
Если установить для а1 или а 2 допуски, заданные на чертеже, то раз
мер а 3 выйде; за пределы этих допусков. По рис. 11.3:
212
dDjJ110oin.
роз11.
'КО,(/О
' l!pll
1
t---------'1 •
2
3
-
$
f1p1.1Лfl.CK 110
ocllн- оораоотк!J
а1
±0,005
Dзаш,
±0.006
2.000 ·±0:005
..
~.ООО ±0.005
'О
±0.005
Р11знерп.
•ql!JlmCЖ!f
1.000
• 2,QDO ±0,005
аз
-
U4
~
а7
ав
а2
а,
заннме cpeilнee дoл!JCft
ept,! зzi~e ~
разн.
2-
2-t
3-t
4-
4
6
5
• 0.010
0,15
0,010
0.020
О.015
Рис. 11 .4 . Расчет искомых размеров, образуемых в результате снятия при
пуска
а2-а1=а4;
аз-а1=as;
ав-as=а1,
Если после обработки а1 = 1,000 ±0,005,
а2 = 2,000±0,005, а6 = 2,980 + 0,005 и
а 3 = 3,000±0,005, то:
а2-а1=а4
1,995-1,005=0,990
2,005 --,.0,995= 1,010
0,990+ 1,010
2
0,990-1,000 = - 0,010
1,010-1,000 = + 0,010
а4 = 1,000±0,010
аз-а1=as
2,995-1,005= 1,990
3,005-0,995=2,010
1,000
1 ,990+2,010
__
....;._.;,....__ = 2,000
2
1,990-2,000 =
-
0,010
2,010-2,000 = -
0,010
213
Размер 5 • -2,000 + 0,10
a6 - as=a;
2,975-2,010=0,965
2,985-1,990=0,995
О, 965-j-0, 995 = О, 980
2
0,965 - 0,980= - 0,015
0,995- 0,980= +О,015
а, = 0,980 + 0,015
Таким образом, после выполнения перехода 6 изменяется расстоя
ние между плоскостями 3 и 4. Теперь оно равно размеру 7. Дока
жем это:
а3 - а6 = припуск;
а1- припуск = а7.
Если размер а:1 минимальный, а размер а6 максимальный, то:
2,995-2,985 = 0,010.
Минимальный припуск равен 0,010 дюйм . Если размер а:1 максималь
ный, а размер а6 минимальный, то:
3,005 - 2,975 = 0,030 .
Максимальный припуск равен 0,030 дюйм. Если размер а 1 макси
мальный, а припуск минимальный, то:
1,005-0,010=0,995.
Если размер а 1 минимальный, а припуск максимальный , то:
0,995 - 0,030 = 0,965.
0,985-j-0, 965 = О 980 .
2
,
,
0,995-0,980 -: - + 0,015;
0,965- 0,980 = - 0,015;
а, = 0,980 ± 0,015.
Определим размер 1 по рис. 11.4 . Он не входит в цепочку взаимо
связанных размеров, и допуск на него можно назначить прои зволь
но . Предположим, размер 1 имеет допуск+ 0,005.
Размер а6 имеет допуск + 0,015 (размеры 1,4 и 5). Добавим к
этому еще 0,005;
+ о,015 + 0,005 = + 0,020.
Номинальный размер а1 = 1,000 - 0,020 = 0,980.
С учетом допуска размер а1 = 0,980±0,005
214
11.1. Зависимость допуска, дюйм, .от способа обработки детали
Номер
11ереход.:1
~~ip,i~,~~имиер- -------:--------,-------
1
н
I
Варианты обработки
на диаграмме
2
3
-
1
1
+0.002
0,002
0,002
2
2
+0.002
0,002
0,002
3
3
+О ,005
0,005
0,005
4
7
+О,009
0,002
0,005
5
8
+О,009
0,005
0,001
6
12
+0.001
0,00[
0,002
7
16
• +0.002
0,002
0,002
Определим размер а 2 . Поскольку размеры а2 и а4 ограничены од
ними и теми же плоскостями, сложим допуск на размер а 2 (+0,005)
и допуск на размер а4 (+0,005), затем прибавим+ 0,005:
+о,оо5+о,оо5+о,оо5 = 0,015.
Размер а2 больше размера а4 на 0,015 и составляет 2,015+0,005.
Выбор технологических баз. Для разрабатываемого технологи
ческого процесса он оказывает решающее влияни~ на распределение
допусков, на возможность использовать полностью допуски, назна
ченные конструктором. Это очень важное решение, значение которо
го нельзя переоценить. Применение диаграмм для контроля допус
ков гарантирует учет зависимости между технологическими базами,
д.тшной резания и размерами готовой детали . Очень чаtто инженер
технолог, разрабатывающий процесс обрабоtки детали, упуска
ет эту зависимость из вида. Построение диаграмм для контроля до- .
пусков важно в аэрокосмической промышленности, где многие слож
ные детали просто нельзя обрабатывать, не рассчитав сначала раз-
меры обработки и допуски на них.
•
Инженеры-технологи, занятые в отраслях, где требования к об
работке деталей не столь высоки, часто подходят к определению раз
меров и допусков упрощенно. Такая практика ведет к одному из двух
нежелательных последствий: 1) цех выпускает дефектную продукцию,
не подозревая об этом. Ошибка кроется в технологическом процессе,
по которому работают рабочие; 2) допуски, заданные в технологи
ческой документации, не отражают оптимального распределения до
пусков, заданных на рабочих чертежах.
На рис. 11.5 -,- -11 . 7 представлены полностью законченные диаграм
мы на очень простую деталь. Диаграммы соответствуют различным
технологическим процессам. Состав переходов и поверхности, обра
батываемые на каждом переходе, одинаковы для всех трех процес
сов. Меняются только технологические базы для двух последних
переходов. Всего переходов семь. Постарайтесь ответить на вопрос,
изменяются ли допуски на размеры обработки, если менять техноло
гические базы. Затем рассмотрите табл. 11.1 . В ней приведены зна
чения допусков для каждого перехода. Обратите внимание на то, что
215
Нонср
1:;;1345
Дете1дь ВАЛ
l111женер Ни..кt;,
т-ш
l_j;i,=•-
@1.0,s :t. .оо'5
--(@)\.'!>ОО±,ОС>5 §1.~<г.S±.,00'> -
@ \.000:t. ,001
--@::~.ооЬ ± ,005
Iлш1У :у
1
;;z. 3. 4.
6.
w·шУШ
1. \О е- "•"5 3.0IS .оо~
.,,., ;,..,
2.
2.06
·"""
-
~
:,..,
3_
1,С'УТ ,,,..,,
.,
""'
:~
•.
~-~
1-2
5.
/
'J,
.' "'"
,., _,.
1•"-
6.
1. :z.o .. 11~ ,~~ ,rv<
,_.,
,01 5
· "''
8.
1,,,,,.,
.сся
""
.......
9.
10.
11.
·-
12. эn 1-=
'"·
.~
.00 1
IA-1 '2
.0 12 .. ,()Ю
13.
•=·
.
,vv,
. 010 '7-12-
14.
1.~
"~~
15.
a,.. .!Z:..o
,' 512
"""'
11::>.·!
18.
..,_
1.-
'"" ....
,с,,,,. _,.,....,
-
1,о;.11, ..... ,:z. ,0'"
17.
11.
~
·"""
,007 1<1.• •
18.
'
20.
21.
22.
23.
24.
25.
26.
27.
28-
29.
30.
31.
32.
33.
34.
35.
36. Рдэ"еРы no Чfl mfl:Y
ТекнопоrичРскuе рй1МfРЫ
37.
Ц)ОО ,0\0
1.000 .о,о 1~
38.
.!,а: .-~
-
--
. '511: .002 \\о
.39.
,_,,, ..
.N YI
-
,.,.,., 10.
40.
,.~ ,f")tC,
,,
1. """
=L ц.
41.
--
-·-
,... ,..,
,,
42.
43.
...
45.
41.
да11/11.· - --·
Рис. 11.5 . Определение допусков для переходов 4 и 6 при обработке детали
типа вала первым способом; общее число переходов 7:
/--строка; JI - операция; Jll - вариант; IV- тип станка; V· - о б р а б о т ка
до размера
(номинальный± допуск); \1/ - искомый размер (номинальный± допуск); VII - взаимо
связанные размеры; V11 / - припуск· на обработку (номинальный ± допуск)
216
lloнep
,;z.-~ц5
1/етиль ВО(,,,.,(_..
Ннжвнер кикс_
т- ш 1~•=•-
®t:01S:t:.00S
-- (@) , . s oo±.oos @)1. . i,rst-oo5'
@)1.000±.
. 001
--@ ")..000 ±. .oos-
IлшN
у
'
z.3Lf
S"
wУЛWlI
1 10 1 lo)tS J.004, ,OOZ.
$0 uo
2.
,..... .002. .
'50 \...t't>
3.
,."Stl,
-0 05
.,'
с.о ._, i,
•.
,.--
.OO ,j, 1 -1.
5.
,_
,_
.=- r
,_ ..
•.
7 . 2 .0 1 и110.n ....CIQO ,002 ..
1,_ .,
-~
-~
8.
2.""-
·"""
"~
·-
9
,_
2.-
·""'"
7-L\
10.
"""'
.<>11 т-8
11.
'·""2.
.-"" --
12.
·""
1 11\.1\. ~
.~,
-
11,-12. .t'\IZ.
.01 0
13.
--=' -"
. "<00 .~
q-11 .
14.
15.
-. ..... :... .
.~,.., .012 . 1">•10
16. цо 1 1--LO
.~ .oo,z;
-
,,... .-•~
. 01'1..
17.
18.
·~
,.- - 00~ 1.2-,w
19.
20.
21.
22,
·23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
=
36. Ра меры по черmе»жу
технопогuческuе- ааJн ..,
37.
\.ООО .О\О
--
-~
.ОО" ,а
38.
. 600 .ooz.
~
. -r~ .r-nz.
'"'
35.
.,sco .oc,-r
~
·"""'
.,,, -
....
40.
,.~ .010
.,
-
.--·
ti
41.
3_,..,... . .о,о
"-~
_...,.,,
'7
42.
43.
44.
45.
46.
дата
Рис . 11 .6. Определение допусков при обработке детали типа
способом (для переходов 4 и 6 выбрана новая технологическая
чения см. на рис. 11.5)
вала вторым
база, обозна-
8 Зак. 2156
217
Нонер
1231-}'5 Детал1, в~.,(
Ннжсffвр 1-{ц,ц:,,.
т-
ш1
@•=· ~
@ I.DI<& ± .005
--@)1.SCO±; ,0Cf5 ®' ·~ ~S!:,00' .>
@ 1,000±. ,00 \
-- @> 2..000 :!: •С>О'::>
Iпш1Уу
1
234
5
wVJiУШ
1 . 1О 1. . l.l>t."'> з.n1n .002
..,.,
LiD
2.
;1..0,,.., .со,
-
50 LiO
3.
I,.s2.;z.
.00'5
.,
""'
,~
•.
1.
-2.
5
1.u= ,с,:51 1-ё>
6.
-
7. ZD
'2.. "А=
,,__
1-'1
.О\С> .007
8.
-,- .
N\\
"
<:л L\n
•.
.nn..i .ос-...
-r -P.
10.
''·"""'
.o os 11..U
\1.
...l.L.. .,
. 511'!
·"""'
<>..S
12. 1\0 z. o .oi-0
.~- ,002
·~
~
11-\2 ,/\\2 . .010
13.
,.,.
'"
'·""""
.осе C+l'Z . .
14.
~
, <.,. ,.,
· ""'
ln..l?
15
,,.
16. ILlo 2.
'"·"6•
,0 07
=
11:)-1~
=
17.
.,,.
18.
1\,N "r1 .D\O l~ -li
19.
20.
21.
22.
23.
24
25.
26.
27.
28.
29
30.
31.
32.
33.
34.
35.
36 Ра.1мерь1 по че mежч
--
те:шолоruческuе размерь,
37.
,.,..,,. .,.
.010
~
--
1."" " .о,о
1\3
38.
·""""
,001.
~
--
.'51:О .DOL lln
39.
·"',.,..
.r,d'J
=
.sm .007 ,ц,
40.
1,А~ .010
1.11
,.ее.о ,0"'1 4
41.
"'·-
.010
;,;.,. ., .. .
. rYY" rт
42.
43.
44.
45.
46.
flama
Рис. 11.7 . Определение допусков при обработке детали третьим способом
(обозначения см. на рис. 11.5)
218
допуски в каждом примере разные и объясняется это сменой техноло
гических баз при выполнении переходов 6 и 7.
В этих трех примерах допуски можно было распределить и дру
гими способами, однако значения допусков на обработку зависят от
способа обработки, выбранного инженером-технологом. Эту зависи
мость можно проследить, прим~няя диаграммы для контроля допус
ков.
Контроль допусков на угловые и радиальные размеры. Детали,
имеющие поверхности, обработка которых требует задания угловых
и радиальных размеров и осуществляется за несколько проходов,
представляют особую сложность. В этих случаях надо использовать
специальные формулы, приведенные в [11.2].
11.3 . ПРОГРАММЫ TCHARТI И TCHART2
Специалисты фирмы «Дженерал Моторе» разработали программу
построения диаграмм для контроля допусков. Однако пользоваться
программой могут только отделения фирмы.
Марк Олдер и Майк Ля Пирри, два студента Государственного
колледжа в Мичигане, написали программу для построения диаг
рамм, приведенную ниже. Каждый из авторов потратил по несколь
ко сот часов на постановку и программирование этой задачи. В ре
зультате их совместных усилий была создана одна из самых слож
ных программ для микроЭВМ.
Для пользователя микроЭВМ с объемом оперативной памяти
32К байт доступны лишь 21910 байт памяти. Поскольку программа
требует большей памяти для размещения, авторы нашли следующий
остроумный выход. Программа разделена на две части, которые по
следовательно считываются в память Э]?М. Первая часть TCHARTl
занимает 11157 байт памяти, вторая часть TCHART2 - 11336 байт . .
После того как программа TCHARTl рассчитает все искомые разме
ры, она создает последовательный файл, в который записывает зна
чения всех переменных. Когда файл создан, память ЭВМ очищается
и в нее автоматически вводится программа TCHAR Т2. Значения
переменных считываются с файла и таким образом восстанавливают
ся. Программа готова к продолжению расчетов. Ниже приведен сце
нарий работы с программой и результаты расчетов по ней. В качест
ве примера выбрана деталь, изображенная на рис. 11.5. Технологи
ческие базы для операционных переходов 6 и 7 вновь изменены, что
бы показать четвертый способ обработки этой детали.
Сценарий работы с 1 программой. 1. Программа спрашивает поль
зователя, нужны ли ему инструкции. Если ответ утвердительный,
программа выводит на экране текст, который объясняет как рабо
тает программа, что такое искомый размер, какие символы исполь
зуются при построении диаграммы для контроля допусков и каким
образом обозначаются на диаграмме плоскости, между которыми
ведется обработка.
в•
• 219
2. Пользователь вводит данные о количестве операционных пере
ходов и размеров, проставленных на чертеже.
3. Программа запрашивает размеры допусков для типичных
переходов. Эти допуски используются в программе в качестве базо
вых допусков, кроме тех случаев, когда допуск на конкретный пере
ход не является частью суммарной погрешности нескольких разме
ров. Значения рабочих допусков выводятся на печать в виде проме
жуточного документа - рабочей карты .
4. Пользователь вводит число плоскостей , на детали, между кото
рыми ведется обработка. На экране появляется изображение этих
плоскостей.
5. Пользователь вводит данные о каждом операционном перехо
де, оперируя номерами плоскостей. Например, первый переход вы
полняется от плоскости 1 до плоскости 5. После того как данные о
переходе введены, он отображается на экране линией со стрелкой и
точкой на концах. Точка определяет технологическую базу, от кото
рой отсчитывается размер. Стрелка указывает на плоскость, образу
ющуюся в результате резания. Процесс продолжается, пока не будут
введены данные о всех переходах. Если какая-либо плоскость дета
ли не является результатом выполнения перехода, программа выда
ет сообщение о необходимости произвести ввод данных повторно и
дополнить недостающую информацию.
6. Пользователь вводит размеры с чертежа детали и допуски на
каждый переход, используя номера плоскостей. Эти данные также
отображаются на экране.
7. После того как ввод данных завершен, экран очищается от
информации и на нем появляется сообщение: ЭВМ рассчитывает
искомые размеры; ЭВМ распределяет допуски.
8. На этом шаге программа записывает значения всех перемен
ных в файл на диск и загружает в память вторую часть программы
TCHART2 .
9. После того как TCHART2 загружена в память и значения
переменных считаны с файла на диске, пользователь должен отве;
тить на вопрос: нужны ли ему инструкции для работы с диаграммои
(см. распечатки 11 . 1 _ _:_ _11 .2).
На печать выводится рабочая карта, которая содержит допуски
на все переходы (см. распечатки 11.2, 11.3).
ЭВМ предварительно распределяет допуски по всем взаимосвя
занным переходам, т. е. переходам 1,2, 4, 6 и 7. Для переходов 3 и 5
допуски не назначены, так как они не связаны с другими переходам~
и не участвуют в формировании суммарной погрешности.
Пользователь может скорректировать по своему усмотрению лю
бой допуск, назначенный ЭВМ . Допуск на переходы 6 и 7 увеличи
вается на + 0,0002. Верхнее отклонение допуска 0,0005, нижнее --
-
0,0003 дюйм. После этой корректировки необходимо изменить
допуск на переход 4, так как переходы 4,6 и 7 создают размер, задан
ный на чертеже: (5±0,002) дюйм. Поскольку допуск на переход
6 был увеличен, следует также скорректировать допуски на перехо-
220
HORKSHEET INSTRUCTIONS
INTRODUCTПIN :
ТНЕ CHART DN ТНЕ WORf(SHEEТ SHOWS ТНЕ BLUEPRINT DIMENSION AND TOLERANCE AS
ORIGINALLY INPUTED , ALDNG WITH ТНЕ NEW TOLERANCE ТНАТ YOU 11АУ ЕХРЕСТ AS А RESULT
OF ТНЕ '11ACHINE CUT ' TOLERANCES ТНАТ ARE LISTED BELOW ТНЕ CHART,
ТНЕ '11ACHINE сuт· TOLERANCES WERE DERIVED PROPORTIONALLY, USI NG (1) ТНЕ DRI-
GINA I_ f:L.UE:F·RJ .NT HILERANCE , ( 21 ТНЕ 11ACHINE CUTS INVOLVED IN CREAТING THIS DIMEN-
SION , AND (31 ТНЕ ТУРЕ OF 11ACHINING TAKING PLACE А Т ЕАСН CUT,
AN ' ■' HAS BEEN F~ACED UNDER ЕАСН 11ACHINE CUT ТНАТ ТНЕ COMPUTER HAS DETER-
MINED IS INVOLVEO IN CREATING THIS DIMENSION,
АТ THIS PDINT, ТНЕ COMPUTER HAS DONE AS MUCH AS POSSIE ~E , AS FAR AS DISTRIB-
UTI NG TOLERANCES HATHEHATICALLY, IT IS UP ТО YOU ТО МАКЕ ANY NECESSARY CHANGES,
INSТIШCТillNS :
LET U8 SAY, FOR EXAH F ~E , ТНАТ WE HAVE А BLUEPRINT TOLERANCE OF ,005 AND А NEW
TDLERANCE OF ,001 , WE WISH ТО МАКЕ А CHANGE ТО INCREASE ТНЕ NEW TOLERANCE ТО
USE ТНЕ FLJL .L.
. ons.
<1> LOOK АТ ALL ТНЕ MACHINE CUTS INVOLVED WITH THIS OIMENSION (AS MARKED ' ■ '1
AND DETERHINE WHICH OF THESE CUT TOLERANCES YOU WISH ТО INCREASE ВУ ,001 ,
NOTE: ТН Е ,001 НАУ ВЕ DISTRIBUTE:D OVER 110RE THAN ONE 11ACHINE CUT IF YOU SO
OE:SIRE.
<2 > NEXT ТО ТНЕ ' ■', r·он ТНЕ MACНINE сuт ТНАТ YOU HAVE CHOSEN, WRIТE IN '• , О О 1',
<Э> NOW FOLLOW TKIS MACHINE СОТ COLUl1N UP ANO OOWN, PUTTING А ••. 001' WHEREVER
THERE IS А ' ■' IN ТНАТ COLUMN,
(11 ТАКЕ NOTE ТНАТ WHEREVER YIJIJ HAVE ENTERED А •• .00 1', ТНЕ TOLERANCE OF ТНАТ
BLUEPRINT DIMENSION IS ALSO INCREASED ВУ ,001 ,
(~) ADD ТНЕ , 001 ТО ТНАТ MACHINE CUT IN ТНЕ ваттом TABLE,
<6> CON TINUE ON WITH ANY OTHER NEW TOLERANCES ТНАТ YU WISH ТО INCREASE OR OE-
CREASE,
( 7) Al)D OR SlJE:ТRACT ANY CHANGES IN ТНЕ е,оттом CHART то GET ТНЕ NEW TOLERANCE ,- □ R
ЕАСН MACHINE CLJТ,
(8) ASSIGN WHATEVER TOLERANCE YOU DESIRE FOR MACHINE TOLERANCES MARKED 'NONE' ,
AS THESE CUTS ARE NOT DIRECTLY INVOLVED IN EiUEPRINT TOLERANCES,
NOTt::: •сЕЕ:Р IN MINO- ·(A) ТНЕ HIGHER ТНЕ TOLERANCE, ТНЕ HIGtiER TtiE sтос•с REHOVAL,
AND (С) ТНЕ 11INI11UM TOLERANCE OF THIS OPERATION SHOULD ВЕ OBEYED,
( 9) INF'UT ТНЕ NEW TOLERANCES ТО RECEIVE ANp Llf'DATED CHART INCORPORAТING ТНЕ
CHANGE, ( YOU Wil.l.. Е:Е ABLE ТО MAf(E FURTHER CHANGES IF NECESSARY ~
Qf·ERAТION ТYPf:S
ТУF'Е
NAMt
1 > RQLH;H C\JТS
~ ) SEH] FINSH cur~;
Э > f: IN[SH CLJТS
' t) F~OLJGH t;f(I. NDS
~ ;) f~I.NISH L;RINOS
MIN. HIL,
,0100
, О050
. ооэо
.оо~.о
.0 010
Нача.1ьные значення .1опуо;ов.
fi~FEK то Tti .[S TABLE WHEN ASKEO FOk ТНЕ ТУРЕ OF cu ·r.
Распечатка 11.1 .
221
Инструкции по работе с картой
Введение
В карте распределения допусков указаны размеры г◊товой детали вместе с
технологическими размерами, учитывающими допуски, приведенные в ниж
ней части таблицы.
Технологические размеры определены : ( 1) с учетом пропорционального рас
пределения поля допуска, заданного конструктором, (2) вз31:1мосвязи разме
ров , (3) типа обработки, выполняемой на каждом операционном переходе .
Знаком «*» помечены операционные переходы, образующие данный размер.
К этому моменту ЭВМ выполнила предварительное формальное распределе
ние допуска между размерами . Теперь вы долж~lы внести нео('>ходимые из
мен е ния.
Предположим , допуск по чертежу составляет 0,005 , а допуск на обработку
0,004; необходимо увеличить технологический допуск до О,ООБ
( 1) Рассмотрим все операционные переходы, связанные с формированием
этого размера (они помечены знаком «*») , и определим, для какого перехода
м 1,1 хотели бы увеличить допуск на 0,001.
Допуск 0,00 l при желании может быть распределен по двум и бGлее пере
ходам.
(2) Рядом со знаком «*» напишите «+О . 001» для выбранного операционного
перехода.
(3) Теперь просмотрите соответствующий столбец сверху вниз, помещая
«+О.001 » везде, где встречается знак «*».
(4) Помните . что везде, где добавлено + О,001, допуск на длину резания для
заданного перехода также увеличился на 0,001.
(5) Добавьте 0,00 1 к заданному операционному переходу в нижней части
таблицы .
(6) Повторите процедуру внесения изменений для других технологических
допусков, если в этом есть необходимость.
(7) Добавьте или вычтите любые изменения в нижней части таблицы, чтобы
получить новый допуск на каждый операционный п ереход.
(8) Назначьте любой допуск на переходы, от меченные словом «нет» , посколь
ку они не влияют на размеры, заданные на черrеже.
С увеличением допуска растет припуск на обработку . Необходимо вы
держивать минимальный допуск, установленный для данного перехода.
(9) Введите новые значения допусков в ЭВМ, чтобы получить скорректиро
ванную карту (для внесения необходимых изме н ений) .
Типы обработки
Тип Наименование
Минимальный допуск
1) Грубое точение
0,0100
2) Получистовое точение
0,0050
3) Чистовое точение
0,0030
Начальные зна ч ения доп ·усков
4) Грубое шлифова н ие
0,0020
5) Чистовое шлифовани е
0,0010
И с пользуйте эту таблицу, когда ЭВМ запрашивает тип обработки .
К распечатке 11 . 1.
ды 1 или 2. Переходы 1,2 и 6 формируют размер по чертежу , равный
(5+0,007) дюйм . В результате допуск на переход 1 уменьшается
на 0,0003 дюйм. Назначаются допуски на переходы 3 и 5.
10 . Как только инженер закончил распрецеление допусков, но
вые значения должны быть введены в ЭВМ.
11. На печать выводится новая рабочая карта, и инженер дол
жен ответить на вопрос, будет ли он вносить дополнительные изме
нения. Если перед этим инженер сделал ошибку и превысил погреш-
222
WORKSHEET FOR TOLERANCE DISTRIBUTION
BL.LIEF ·RINT
DIMEN, +/- Т OI _ER.
(NEW) +/·- . 000 3
.5 +/ -,0020
(NEW) +/-, 00 2 0
,5 +/·-,0070
(NEWI +/-· ,0070
1 +/-,0100
(NEWJ +/-,0067,
Э +/-- ,0100
(NE:W) +/ ·-·,0014
1
1
1
1*!*1
111
1•1 •1
111
MACНINE CUTS
34567
11
1•1
11
11
1•11•1•1
11111
1•i
11
1•1
11
MACНINE CLIT
+/ -• TO L.ERANCE CHANGES
с::: NEW TOLEf(ANCE
э
.
О 034
.0034
NONE
.оо:l,,
NONC
. оооэ
.оооэ
ооз/
_,..
.
о о~-
-
. ооО
у
, 00ОS"
-f-,ООО}.,
, ооо!Г
Распечатка 11.2.
Размер по чертежу
+!- допуск
Карта распределения допусков
Операuио11ные переходы
2
3
4
1+1-0.0100
(!iовый допуск) +/-0 .0003
0,5 +/-0,0020
(новый допуск)
0,5 +/-0,0070
(11овый допуск)
1 +/-0,0100
( н овый допуск)
3 +/-0.0100
(новый допуск)
Переход
1
2
НТ.Д.
+/-0,0020
*
+/-0,0070
*
+/-0,0067
+/-0 .0014
-+,/-допуск
0,0034
0.0034
*
*
*
*
Изменения
-0,0003
К распечатке 11.2.
5
6
7
*
*
*
= Новый допуск
0,0031
223
WORKSHEET FOR TOLERANCE DISTRIBUTION
BL.LIEF 'RINT
DIMEN,+/-TOLER,
1 +/- ,0100
(NEW) +/-, 00 0 5
.5 +/-.0020
(NEW) +/-,00.20
.5 +/-.0070
(NEW) +;~, 0010
1 +/-,0100
( NEW) +/-· , 0065·
3 +/-,0100
(NEW) +/·- ,0 010
MACHINE CLJT
2
3
5·
6
MACHINE CUTS
123i567
1
1111•1
1
11.111
1•11•1•1
,.
1111
1•1 "1
1•1
111
11
1.
,
.,
111
1111•1
'·
,••
111
+/- TOLERANCE CHANGES
,0031
, 003'1
, 0050
,0005
•=
NEW TOL.ERANCE
.
.
-------- -----------·-·-· ·-
------- -- . --------- ----·--: -- - -------------·-·- - ------------- ---------------·-
7
, 0005
•
.
'
.
·-------------------·--- -·-------- ----- ----- -- ---- -·- ----·---·----·----- -
------- ·-··---~--- ·-
Распечатка 11.3 .
ность обработки, заданную конструктором, ЭВМ сообщает ему о ха
рактере ошибки и как ее исправить. Если ошибок не было и инженер
технолог удовлетворен достигнутым распределением допусков, про
грамма переходит к следующему шагу.
12 . ЭВМ просит инженера ввести дополнительную информацию
об обработке плоскостей детали. Пользователь должен сообщить
программе, подрезается ли плоскость справа или слева. В зависимо
сти от этого значение припуска добавляется или вычитается из
размера обработки .
13. На экране появляется перечень всех переходов, во время
которых снимается припуск, и минимальное значение припуска .для
обрабатываемой поверхности. Затем инженер увеличивает мини
мальный припуск. Это приращение добавляется или вычитается
ЭВМ из соответствующих размеров.
14. Инженер вводит номинальные размеры цля каждого перехода .
15. На последнем шаге распечатывается окончательный вариант
диаграммы для контроля допусков.
Написание сценария потребовало гораздо больше времени,
чем реализация его на машине.
224
HA CH INE CU TS & E:ALANCE DIMENSIONS
LINE
NO,
1
2
З
1
5
1
1
1
1
1•--------+---------+-- ------ -+-- - - - - -->1
2
1•--------+---- - - ---+- -- - - --->1
1
15
1
1
1
0 --------- 0
3
1•~ - ------+-- ----- ->1
1
1
18
1
1
о---------+---------о
1
(<--------+---------+------ ---+- --- -----•
5
1
!<--------+---- -----+--~--- ---•
17
0---------0
1
1
1
6
!<-------- + - --------•
13
о - --·-- - ---+---------- о
1
1
16
1
1
0---------0
1
7
1•--- --- ->1
1
1
1
1'1
1
0---------0
1
1
1
1
1
1
1
E:LUEN<INT DIMENSIDNS
8
9
10
11
12
2
•--- ------•
3
1
1
•---------•
"1
1
1
•---------•
5
1
1
1
1
•--- --- -- -•
•---------+-- --- --- -+--- ------+ --- ------•
PROCESS DIMENSIONS ANO TO L ERANCES
CUT
NUME:ER
1
2
3
+/- LINE
TOL
INV,
, 00 31 SOLID
,003'1 SOLIO
,0065
1-2
.ooso SOLID
, 0081
1-3
,001О 1
. 0050 SOLID
,0060
-4 1-5
.ooos 18
.0015 '1-6
,0070 6- 15
.ooos 17
,0020 13-7
LINE,INV ,
7
1'1
16
15
"s
6
7
DIMENSION +/-
3,0080 +/-
2,0080 +/-
t.5160 +/-,
3,0000 +/-
2,0080 +/-
1,5000 +/-
1,0000 +/-
TOLERANCE
,0031
,0 03'1
,0050
,0010
,0050
.ooos
.0005
Око н чательные результаты работы программы
представлены в виде традиционной диаграммы
дJIЯ контроля допусков
5,
10
11
15
16
TCHART
f·ART t 1
WRПTEN Е:У
17
MARK Е, ALDER
18
&
)
19
мIКЕ А, LA PIERRE
Распечатка 11.4 .
20 REM COMPUTER APPLICATIONS FOR ТНЕ MANUFACTURINC ENCINEER
21 CLS:~ - oR I=l ТО 6:PRINT:NEXT:PRINTCHR$(;'З>ТA[:(5)"Пll..п,• .~Nf : f CHART":f•f,INПAEH~;)"
22 PRINT: PRINTTAE:( 8) "WRГI ITN СУ": F'RINТТAB < 6) "MARf( Е, Al.DER ": PRINT ТАЕ:< 3 >"t1ICHAEL
А, !.А PIERRE"
;>Э PIONT:PRINT" COPYRIGHT (С) 1981 ALL RIGHTS RESERVED"
Распечатка 11.5
225
2"1 CL_EAR17~j
;!.~! п-· IЖ(EYS=""THEN25
26 Cl_(;: f'· IONПAEa ( 2:З) "'H>l.ERANCE CHART ": F'RINT: INF·LП"DO YOI.J WISH ТО f<EVIEW ТНЕ 'INTR
[IDI.JCПON/INSTRIJCТION' ( У /N)"; А$: IГA$<>"Y"ANDAS >>"N ' 'T HEN26El.SEIFA$•0 "Y "THENGOSUE:l ~;
00
27 CI.. S: f'·f<INT" SEVERA .L INF'LJТS ARE RE!JIЛRED ТО START,,, , . ": F'IONT: INF'UT"ENTER ТНЕ NLJ
ME:ER ш ,· MACНINE CLJТS 1О MAf:E: TНIS F'AP"; Z8: f'RINT :INF•I.JT "ENTER ТНЕ TOTAL _ NUME:ER OF
f:L.LIEPIONT DIMENSIONS "; Z9
28 IFZ9<ZBTHENZ9=ZR
ЗU OIMT ( ZB+~j, 7), F'(Z9+~i, 7), Е:( 7~j, 7) ,L<25, 2), At.( ВО>: Ct.= ". t ttt": ]TAt,::"Y "THENr;OSUE:1.60
o:Gosuв1210:ELSEGOSUB1210
"1 0 REH SUB ТО F'RINT Pl.ANE LINES
11 CL.S:F'IONT"YOLI WILL.. NOW Е:Е ASf:ED ТО INl"UT ТНЕ l.OCAТING SLIRF "ACE AND ТНЕ SUR - ·FAC
Е ТО ВЕ CUT, FOR ЕАСН MACHINE CUT , ALONG WITH ТНЕ ТУРЕ OF CUT<FROH ТНЕ TABLE JUS
Т l'RINTED OUT> ,":f'RINT:f'RINT "SIHf'LY НП
'EN TER ' WHEN Al_t _ CUTS HAVE E:EEN ENTERED,
":[;□ SUE:2000
50 F'RINT:INF'LJТ"HOW HANY SURFACES ARE ЫJING ТО Е:Е MACHINEO ON ППS F'ART";Al:IFAl<
31ANDA1>2THEN70EL.SECLS:IFA1>30THENG$="HAXIHUH OI ' ЗO"ELSEGS="HINIHUH OF 3"
60 F'RINT: F•fйNTTAE: ( ~:.i) "*** ENTRY ERRCШ ***": f'RINT: f'RINT"THIS HAS А
" : Gt,;" F 'LANES":
f'RINT: PRINT"F'LEASE TRY AGAIN ": GOSUE:200 О: с;от □ 50
70 DIHDR(Al>:AA=INT(61/(Al+l)):CLS:AЗ=l:A2•Al:GOT0120
80 CLS:AЗ•l:A2=Al:FORC1•1TUA1:FORC•lTOB-1:IFT(C,3>=ClTHENNEXTC1:IFLF''>0THEN1DOEL
SE2Cl5ELSENEXTC
90 l'IONT "f •t _ANE NUHE:ER" ;Cl; "HAS NOT BEEN CUT" :Lf"=Lf "+l :NEXTCl
1 О О PRINT: F'RINT ''F"l.EASE REDO ANI) CUT THESE": GDSUE:2 О О О: В• D: CN• О: У•О: N• О
110 REH SUB FOR HACHINE CUTS
120 LP•D:CLS:GOSUB390
1 ::iO Е:::Е:+1: f•fйNT@.953, "* ": PRINT@916, "*
";: F·RINT@960, "NUHE:ER OF CUTS MADE:" ;Е:-1;
:PHINT@932t"*
"; :F'RINT@B96,"LOCATING SURFACE NO ." ; :INPUTT(E:,2) :IFT<E:,2)=0THENB
OELSEIF.T<B,2))A10RT(B,2}(0THENB=B-1:GOT0130ELSECN=CN+1
110 PRINT@920, "МАСНТ.NЕ ТО":: TNPUTT ( Е:, 3): IF"T (В, 3 >>Al □ RT (В, 3 )=Т ( Е:, 2 )CJRT ( Е:, 3 ><1 THEN
1'IOEt.. SET <Е:, 1 >="'CN
150 F'RINТ!!910, "ТУl'Е OF CUT"; :INF'IЛRE: IFRE>5THEN150ELSEIFA ( RE >•DTHEN 1~;OEL.SEТ ( Е:, 6)
=A<RE>:Y=Y+l:N=N · t61:IF"T<E:,З>>T<E:,2)THENAt.='')''ELSEA$=''
160 IF"T (В, 2) > Т (В, 3) THEN170ELSEPRINT@( < ( AA:t:T <Е:, 2)) H·N+l >, "-";: А2=Т ( Е:, 3): АЗ=Т (Е:, 2 >
:r;от0100
170 А2'-Т(Е: ,2> :АЗ:::Т<Е:,З) :F'RINT@( ( (АА•Т<В,3)) )+N+l) ," -";
180 FORA=lТO ( ( AA•AE:S ( Т ( Е:, 2 )-Т ( Е:, 3)) ) --2): F·RINT" -" ;: NEXT :IFA$=">"THENf'RINт@( ( ( AA•l
(f:;,2)) )+N) ," *"; :PRINT@( ( (AA:t:T<E:,3)) )+N-1) ,A$;Et-SEPRINT@( ( (AA:t:T(E:,2) > H·N -1 > , " : .:";
:PRINT@( < <АА•Т<В,З> > H·N> ,A'S;
1'/0 IFY=13THENF 'RINT@896,STRING$(60,"
"); :FOR C=l ТО 1-2:F'RINT:NEXT:f·RINT@O,SТRIN!;
t(60 ," "); :F'RINT@6.q,"(;:UT"} :f'RINTE:; :N=:128:У=2:АЗ=1:А2=А1
200 GOSUB390:GOT0130
210 CL~:PRINT:FORI=l ТО Al:FOR J=l ТО 0-1:IF F'(J,2)=IORF'<J,3>=ITHENNEXTIELSENEXT
J:GOT0210
220 GOT0340
210 CLS :F•RINT :PRINT"F'LANE NO ,
"; I; "HAS NOT BEEN GIVEN ANY DIHENSION ТО REFERENCE
IТ FROH, ": f'RINT"THERE WILL ВЕ NO E:ASIS WIТH WHICH ТО CALCULATE А HACHINE CUT
ТО CREATE TНIS SURFACE, ": F·RINT "F'LEASE REDO ТНЕ DIHENSION TABLE AND CORRECT THIS,
250 GOSUE:2000
260 REH BLUEf'RINT DIMENSIONS
265 CLS: F'RINT :F·RINПAE:( 20) "BLUEF 'RINT DIHENSIONS ": F'RINT: F'RINT"YOU WILL NOW IJE ASf:
ED ТО INF'UT ТНЕ SURFACES ТНАТ ЕАСН IJLUEF"RINT DIMENSION GOES FROH-TO, ALONG WIТH
ТНЕ DIHENSION AND TOLERANCE" :F·RINT
266 F·RINT "NOTE: EVERY SURFACE ТНАТ IS E:EING HACНINED HUST HAVE А DIHENSIONASSDCI
ATED WITH IT," :GOSUE:2000
270 Y=2:CLS:GOSUB390:Y=O:CN=B -1:H=O:D=O
280 F'RINT@7 68,"
" : D=D+1: F"RINT@960, " NU ME:ER OF F'RINT DIHENSIONS ENТERED:"; : f'RINTO
-1;: f'RINT@832,"
" :PRINT@832, "F RDM SU RFA CE NU M E:ER";: INPUTf" (О, 2) :IFf' (0, 2) =OTHEN21
OELSEIFP<D,2>>AITHEND=D-1:GOT0280
290 F'RINT@861, "ТО SURFACE NUHE:ER";: INf"UTF'<D, 3) :IFf" ( D, 3) >AlORF'<D, 3) <1 THEN290ELSEC
N=CN+l: Y=Y+l: F'RINT@896, "Е:. f".
DIHENSION'';: INF'UTP ( D, 1): F'RINT@928, "T OL E R AN CE , + OR
-"; : INF'UTF' ( D, 5):F' (О, 1)=-=CN: M=H+6.q: IFF' (О, 3)<Р (D, 2)THEN01=P (О, 2 >: Р (0, 2)=Р (D, 3): f' (0,
З)=D1
Распечатка 11 .5 (продолжение)
226
300 IF P<D,5>>=1 THEN P<D,S>=P<D,5)/1000
310 Hl=CP<D,3)-PCO,2))•AA:PRINT@<P<D,2> •AA+ H) ,S TRING t<M1,' ' -' ' );tPRIN T@(PCD , 2) •AA+
Н >, "ж"; :F•RINT@< (Р <D, 3 >•АА-1 >+Н >, "1 1";: PRINTP< D, •);: IFY•12THENH=128: PRINT@6•D ,STRI
NG$(63," ") ; :PRINT@832,STRING$(63, " ">;:FORC = 1Т012 :PR INT :N EXT :A3 =1 :A 2•A1:Y•2 :GO S
UE:390
320 GOT0280
3.0 01-1 : Gosue•10:PRINT@512,"DUE ТО ТНЕ LENGTH OF THIS PROGRAH, WE ARE NOW STORI
NG YOUR DATA ON DISC AND LOADING ТНЕ SECOND HALF OF ТНЕ PROGRAH";:OPEN"0 ", 1 , " D AT
А":PRINтtl,Al,Е:,D,Z
350 FOR Х=1 ТО B-1:FOR Y•l ТО 7:PRINTtl,T<X,Y>:NEXTY,X
360 FOR X=l ТО D- 1:FOR Y=l Т О 7:PRINTt1,P<X,Y>:NEXTY,X
370 FOR X=l ТО Z :FOR У•1 ТО 7:PRINTt1,B<X,Y>:NEXTY,X
380 CLOSE:RUN"TCHART2"
390 FDRA=A3TOA2:FORC=(15•2•+<AA •A >>T016255STEP6•:P □ KEC,1•9:NEXTC:NEXTA:IF<N=O>OR
<Y =2)THENIFA1>2DTHENFORA=2TOA1STEP2 : PRINT@(<AA•A>-2>,A;:NEXTELSEFORA•1TOA1:PRINT
~( (AA•A)-2),A;:NEXT
•оо RETURN
•10 REH TRACKING ТО FIND CUTS
•zo IFD1=1THENBB =B:FOR D1 = 1 TOD -1ELSEFORD1=B - 1T01STEP - 1:H=O:I=O:BB=D1
125 IF01 =1THEN PRINT '' •••••AND WE'RE OFF !!! ! ~ !~••:PRINT@128,''THE COMPUTER IS NOW С
REATING BALANCE LINES ТО REACH PRINT
DIHENSIONS , ";
•3 0 Z9=Z:FORB1•88 -1T01STEP -1:IFTIB1,3>=P<D1,2)THENH=B1ELSENEXTB1
••о FOR81=BB -1T01STEP -1:IFT(Bl,3)=P<D1,3)THENI=81ELSENEXTB1
~~~ ~;~:::;~~~~=;~~~~~~;:~~::~>=P(D1,2)THENPCD1,6)=X:G□T07~0
170 IFT(X,З)<T<X,2> T H E NIFT<X,2>=P<D1,3>THENPCO1,6)=X:GOTO750
•во IFI = OTHENIFP( D1,3) =T(D1,3)THENFORJ=ITODl-1:IFT(J,2)=P(D1,3)THEN510ELSENEXT:P
(D1,6)=,999:GOT0750
•90 IFH=OTHENIFPID1,2>=TID1,3>THENFORJ=IT001-1:IFT(J,2)=PID1,2)THEN510ELSENEXT:P
<D1,6) = ,999:GOTD750
500 REH ТО FIND ALL LINES INVOLVED
510 S3=1 : S1=1:L<1,1)=XX:LC1,2>=X:S5=XX:S6=X
520 FORS1=S6 - ITOOSTEP - 1:IFS1=0THENS• =s •+1:s6=0:L<S•,2>=999:GOT0530ELSEIFT(S1 ,3 )=
T<S6,2>THENS1=S1+1:L<S1,2>=T<S1,1>:S6=T<S1,1>ELSENEXTS1
530 IFS6)S5THENNEXTS1ELSEIFS6=S5THEN570ELSE5•D
5•о IFS5=1THENSЗ=S3+1:L(S3,1)=999:GOT0570
550 FORS2 =S5 - 1TO0STEP-1:IFS2=0THENS3•S3+1:LCS3,1)=999:S5•01GOTO560ELSEIFTIS2,3)•
T<S5,2)THENSЗ=S3+1:L<S3,l)=T<S2,1):S5=T(S2,1)ELSENEXTS2
560 IFS5>S6THEN550ELSEIFS5=S6THEN570ELSEIFS2=0ANDS1=0THEN570ELSE520
570 IFS3<S•THENCC=S •ELSECC=S3
580 IFS3-l=OTHENFA=L<S•-1,2>:F8 = L<S• - 2,2>:GOT0610ELSEIFS•-1=0THENFA•L<SЗ-1,1>:FB
= L <53-2 , 11 :с;ОТО61 OELSEIFL <53-1 , 1 ><L <s• - 1. 2 >ТHENFA=L (SЗ-1, 11 :GOT0600ELSEFA=L<S• -1
,21:IFS•-2=0THENFB=L(S3-1,2>ELSEIFL<S1 - 2,2><L<S3 - 1,11THENFB•L<S•-2,21ELSEFB•L(SЗ
-1,1)
590 GO T0610
600 IFS3-2=DTHENFB=L<S•-t,2>ELSEIFLISЗ-2,1><L<S•-1,2>THENFB=L<S3-2,1>ELSEFB=L(S•
- 1,2>
610 IFTIFA,2>=T<FB,2)THENB6=FA:B7=FB:B2=T<FB,З):B3=TIFA,3):GOT0650
620 IFT<FA,2)=T<FB,3)THENIF<T<FA,2>>T<FA,З>ANDT<FB , 2)>T<FB , З>>OR<T<FA,2><T<FA , З)
ANDT<FB,2><T<F8,3))THENB6=FA:87=FB:B2=TIFA ,3):83=TIFB ,2)1GOT0650
630 IFT<FB,2)•T<FA,31THENIF(T<FA,2>>T<FA,З)ANDTIFB ,2 ))T(FB , 3)10R(T(FA,2)(T(FA , 31
ANDT<FB,Z><T<FB,З>>THENB6 = FA:B7=FB:B2=T<FB,З>:BЭ=T<FA,2>:GOTO650
6•0 IFT<F8,2>=T<FA,3>THEN86=FA:87•F8:B2=T(FB,З>:83•TIFA,2>:GOT065DELSEIFTIFB ,31•
T<FA,2)THENB6=FA:B7=FB:B2=T~FA,З):BЗ= T <FB,2>
650 GOSUB1160:FF=FB:CA=1
660 FORC=lTOCC:IFL<C,1)=FF+CATHENFB=L<C,1):GoT0680ELSEIFL(C,2)=FF+CATHENFB=L<C ,2
>:GOT06BOELSENEXTC
670 CA =CA+l:IFCA>B - 1TH E N7 •DELSE660
680 IFE:<Z9,2)<>T<FE:,2)ANDE:(Z9,3><>T<FE:,21THENCLS:PRINT"ERRAТIC HACHINING IS TAKI
NG .PLACE, tHE PART CANNOT Е:Е HACHINED LIKE THIS,": GOSUE:200: RUN
690 IFTCFE:,з> > B<Z9,3)ANDT<FB,2)=B(Z9,З)THENB6=Z9+B+D-2 :B7 =FB:B2=B<Z9,2) :B З=T(F8,
3) : GOS UE: 1160' : GOT0670
700 IFT<ГB,3>(B(Z9,21ANOT<FB,21=8(Z9,2)THEN86=Z9+D+B-2:B7=FB:ez=T<FB,3):B3=B(Z9,
З>:GOSUE:1160:GUT0670
710 IFT<FB,З>>B<Z9,2>ANDT<FB,З><B<Z9,З>THENIFT<FB,2)=B<Z9.З)THENB6=Z9+D+B - 2:B7=F
Распечатка 11.5 (продоJiжсние)
227
B:БZ=B<Z9,2> : BЗ=T(FB,3):GOSUB1160:GOT0670ELSEIFT<FB,2>=BCZ9,2)THENB6=Z9+D+B-2:B7
•FB:B2=T(FB,ЗJ:BЗ=B(Z9,Зl:GOSUB1160:GOT0670
720 IFT<FB,3))8(Z9,3)THENB6~Z9+D+B-2:B7=FB:вz=B(Z9,3):BЗ=T(FB,3):GOSUB1160:Goтo6
70ELSEIFT(FB,Зl<B(Z9,21THENB6•Z9+D+B-2:B7•FB:B2•T(FB,Зl:BЗ=B(Z9,2J:GOSUB1160:GOT
0670
730 CLS: F'RINT"ERRAТIC MACНINING IS TA ► :ING F'LACE, TНIS F'ART CANNOT Е:Е MACНINED L
п~Е тнrs~ 1 ~ •":cosuвzoo:RuN
,
740 IFB(Z9~21•F'(D1,21ANDB(Z9,31 •F '(D1,31THENP(D1,61•B(Z9,11ELSESTOF '
750 NEXTOl :IF F2()0 THEN RETURN
760 REM 10 ASSIGN TOL F'O BAL DIM & МАСН CUTS
770 TP•B+D - 2:FORTB=1TOD -1 : TL=F'<TB,51:TF•O:IFF'(1B,61<TF'THENIFT(F'(TB,61 ,51>TLORT(F'
(TB,61 ,51•0THEN1(F'(TB,61,51 •TL:GOT0850ELSE850
7ВО TC•F '<TB,61 -TF '
790 T6=B(TC,6):T7=B(TC,71:IFT6(TF'ANDT7(TPTHEN800ELSETF=T(T7,6)+TF:тc-в(TC,61 - TF':
GOHl790
~00
TF=TF+T(T6,61+T(T7,61:TC•(F'(TB,61 -TF ')
810 16•B(TC,61:T7•B(TC ,7 ):IFT6 ( TF'ANDT7<TPTHEN830ELSET9=(T(T7,6)/TFl ■ TL:IFT(T7,51
~T90RT<T7,5)~0THENT(T7,5)=T9
820 TL=TL - T(T7,51:TF=TF -T(T7 ,6 J : TC=B(TC,61 -TF ':GOT0810
830 T8•(T(T6,6)/TFl ■ TL:T9=(T(T7,61/TFl ■ TL:IFT(T6,51 > TBORT(T6,51•0THENT(T6,5)•TBE
LSET9=T8-T(T6,5)+T9
810 IFT(T7,5))T90RT<T7,5)=0THENTCT7,5)=T9
850 F'RINT@256, "TOL .ERANCES ARE NOW Е:Еrж; DISTRIBUTED ТО ТНЕ MACНINE CUTS,";: NЕХТТ
в
1080 REH SHIFT PRINT DIM TABLE (~) ТО TABLE F'1
-
SET ТАВР ТО О THEN GOSUB FOR S
TOCf: REM E:AL DIH
1090 DIMP1(D - 1,71:FORFZ=1TOD-1:FORF3=1T07:P1(F2,F31=P(F2,FЗl : P(F2,FЗl•O:NEXTFЗ,F
2 : GOSUB1160:FORF2•1TOB-1:FORFЗ=JTOЗ:P(F2,FЗl•T(F2,FЗl:NEXTFЗ:XX•F'(F2,2>:IFXX ) P(F
2,Э>THENF•(F2,2)=PCF2,Э>:P<F2,Э>=XX
11 О О NEXTFZ : F'RINT@38 ~, " JO W W E' RE CREATINI; BALANCE OIMENSIONS FOR sтос1: REMOVAL_ , "
;:GOSUB420:FORF2=1TOB-1:T(F2,7)=P(F2,6):NEXTF2:FORF2=1TOD-1:F· □ RF3=1TCJ7:P<F2,F3)~
Pl(F2,FЗ):NEXTFЗ,F2
1110 FORTB=1TDB -1:TL=O:IFT(TB,7)=,999THENT(TB,61= ,999:GOT01140ELSEIFT(TB,71<BTHE
NT(TB ,6) =T<TB,5)+T<T<TB,7),5):GOT01110EL.SETC=T(T8,7)-TP
1120 ть~B<TC ,6): T7=8(TC,7):IFT6<8ANDT7<BTHENTL=T(T6,5)+T(T7,5)+Tl_:GOT(J1130ELSEl'L
=T L+TIT7,51:TC=B(TC,61-TP:GOTD1120
1130 T(T8,6)=TL+T<TB,5>
1140 NEXTTB:RETURN
1150 REM CREATE BAL DIM AND ORGANIZE ТНЕ TABLE
1160 Z=Z+l:CN=CN+1:B<Z,2)=B2:B<Z ,3) =BЭ:B(Z,1>=CN : B(Z,7)=~7:B<Z,6)=86:C:=z:IFB(C,2
l)BIC,31THENMM•B(C,Зl:B(C,31=B(C,21 : B(C,21=MM
1170 IFB(C ,6 1>BIC , 71THENIFB(C,61<BTHENMM=B(C,61:B(C,61 •B(C,71:B(C,7)=11M
1180 REM SUB ТО FINO ANY OF ТНА SAHE E:ALANCE DIM
1190 IFZ <2 THENZ9•1 : RETURNELSEFORC•1TOZ-1:IFB(C,21=B<Z,ZIANDB(C , Зl=B(Z,ЗIANOB(C,6
l=B(Z,61ANDB<C , 71 =B(Z,71THENZ=Z-1:CN=CN-1ELSENEXT
1200 Z9=C:RETURN
1210 CLS:PRINT@15, "M I N I M UH OPERAТIONAL TOLERANCES":PRINT:PRINT:S$(11=" 11 R OU GH С
UTS":St(Z)= "ZI SE M I FI NSH C UTS":S$(31= "3) FINISH CUTS" : S $ (~1-" 4) ROUGH GRINDS":S
$ ( 5) = " 5) FINISH GRINOS": PRINT : FORW=l ТО5: F'RINTS$ ( W1 :NEXT: F'RINT
1220 PRINT"ENTER ТНЕ MINIMUN OPERAТION TOLERANCES ТНАТ CAN ВЕ HANDLED KN
ТНЕ Р
ROCESS EQUIPMENT, THESE TOLERANCES WILL ВЕ А BASIS FOR
ASSIGNING TDLERANCES
ТО ТНЕ MACHINE CUTS,"
,
1240 t(•213: FORW=1Т05 :t:=t:+64: PRINT@K," " ;: INPUTA ( W) :F'RINTS$ ( W+1);: NEXT
1245 LPRINТТAE: ( 1 О 1 "OF'ERAТION ТYF'ES": LPRINT" ": LF'RINT "TYPE "TAE: (9) "NAME "TAE:( 20) "MI
N, TOL,": FORQ=1 Т05: IFA<Q) =OTHENNEXT: GOT01246ELSELPRINТТAB( 11 S$( Q 1 ; ТАВ ( 22 IUSINGG$ •
;A(Q) : NEXT
12~6 LF 'RINT "
" : LPRINT" ":LPRINT"REFER ТО THIS TABLE WHEN ASf(ED FOR ТНЕ ТУРЕ OF С
UT , " : ГORQ=1T05:LPRINT" ":NEXT
1250 RETURN
1500 CLS:PRINT"WELCOME ТО РНЕ WORLD OF TOLERANCE CHARТING ! '! "':PRINT:PRINT"PRES
S ANY t(EY ON YOUR t(EYBOARO WHEN YOU WISH ТО CONТINUE , ":GOSUE:ZOOO
1510 F'RINT:F·RINT"THIS PROGRAM IS DESIGNEO ТО ALLOW ТНЕ USER ТО INPUT ТНЕ
MACHINING SEQUENCE ТНАТ IS ТО ТАКЕ F'LACE ON А PART AND
ТНЕ BLUEPRINT D
IMENSIONS ТНАТ ARE ТО ВЕ CREATEO AS А RESULT, ":GOSUE:ZOOO
Распечатка 11 .5 (продолжени е )
228
1520 PRINTIPRINT"BALANCE Dil1ENSIDNS ARE THEN CDl1PUTED AS NEEDED TD REACH ЕАСН DF
ТНЕ ELUEPRINT Dil1ENSIONS,"IGDSU82000
1530 PRINTIPRINT"A BALANCE Dil1ENSIDN IS А Dil1ENSIDN ТНАТ IS CREATED AS А RESUL
Т DF ADDING DR SUBTRACTING TWD 11ACHINE CUTS, DR А 11ACHINE CUT AND ANDTHER BALANC
Е DI11ENSIDN,"IGDSUB2000
1510 CLSIPRINTIPRINT"THIS PROGRAl1 IS DESIGNED TD CDACH YDU ALL ТНЕ WAY THROUGH,"
1GDSUE•2 О О О
1550 PRINTIF·RINT"DN ТНЕ FINAL PRINT-DUT ТНАТ YDU WILL RECEIVE, А BALANCE DIHEN-
SIDN WILL ВЕ DESIGNATED AS 0-------------------0 ,WITH ТНЕ CUTS INVOLVED IN ARR
IVING АТ THIS DI11EJSIDN EXPLAINED TD ТНЕ RIGHT,"IGOSUBZOOO
156 0 PRINTIPRINT"A HACHINE , CUT WILL ALWAYS ВЕ DESIGNATED WIТH А DOT AND ARROW,
•--------------- >, WITH ТНЕ DOT BEING ON ТНЕ LDCATING SURFACE AND ТНЕ ARRDW О
N ТНЕ CUT SURFACE,"IGDSUB2000
1561 CLSIPRINT@O,"CENTER "ISTRINGt<20," -")I"
"ISTRINGt<20," - " )IIFORiz1537
ОТО1550 OSTEP61 IPDKEI, 1-\911 POKEI+10, 170 1NEXT IPRINT@61," LINE " 11 PRINT1B1, "SAl1PLE Р
ART (1 SURFACES)"IIPRINT@320,""
1562 FORI=15562TD155731POKEI,1311PDKEI+29,1311NEXTIFORI=15S71T01S700STEP611PDKEI
, 1191PDKEI+17,1701NEXTIFORI=15702 T0157191POKEI,1311NEXT
1563 PRINT@ZO 1, "1"; :PRINT@З-41, "2"; :F'RINT@360, "3 "; :PRINT@Z'4З, 11 1 11 :
1570 PRINT@381 ,"THE FIRST STEP IS TD LABEL ALL SURFACES ON ТНЕ PRINT LIKE ТНЕ
EXA11PIE ABOVE"
1580 PRINТТAE:(5)"(2) NUHBER ЕАСН OPERAТION CUT IN "THE ORDER ТНАТ ТНЕ PART
WILL Е:Е HACHINED: 1,2,3,1,5 .. ,E TC,":GOSUB2000
1590 PRINТТAE:(5)"(3) NUHEER ЕАСН BLUEPRINT DIIENSIDN, IN ANY DRDER, 1,2 ,3,1,
S,,,ETC,"IGOSUB20001RETURN
1600 CLSIPRINTIPRINTIPRINT" YOU WILL NDW ВЕ ASf(ED TD ENTER THIS INFORl1ATIDN INT
D ТНЕ COHPUTER,"IPRINTIPRINT"THE FIRST INPUTS WILL ВЕ DPERAТION TOLERANCES,"IGD
SUB 2000
1610 PRINTIF'RINT"YOU WILL ВЕ ASKED ТО INPUT ТНЕ 11INI11Ul1 TOLERANCE ТНАТ CAN ВЕ
HELD FOR THIS ТУF"Е OF OPERAТION,"IPRINTIPRINT"IF ANY OF ТНЕ OPERAТIONS DD NDT А
F'F 'LY TD ТНЕ 11ACHININGtOF PHIS PART, SIHPLY НIТ 'ENTER', "IGDSUB20001RETURN
20 00 IFINKEYS='"'THEN200'0ELSERETURN
Распечатка 11.5 .
10 CL51PRINT@159," " IIPRINTCHRt(23)"TOLERANCE CHART"IPRINТТAB<lO)"PART 2"1PRINTI
PRINТТAE•< 9> "WRIТТEN Е:У" IPRINТТAE: ( 7) "HARK Е, ALDER" IPRINТТAB< 1) "HICHAEL А, LA PIE
RRE"IPRINT
12 PRINТТAE<(5)"COF'YRIGHT (С) 19В1"
20 CLEAR175 :Gt=" •••tt"
30 OF'EN' 1 I" , 1, 11 DATA 11 :INPUTt1 ,А1, В, D, Z: OIHT '<B, 7) ,f'(O ,7) ,Dt (А1) ,B<Z, 7) ,А ♦ (ВО): FORX-=
1TDB-IIFDRY =IT07 1INPUTt1,T<X,Y)INEXTY,X
10 FDRX=1TOD-11FORY=1T0711NF'UTt1,F'<X,Y)INEXTY,X
SO FORX=ITOZ IFORY =1T071INF'UT t1,B<X,Y)INEXTY,XICL05E
60 GOSUE:1 О I О I GOSUE:510
: FORC=lТOBO ILF'RINTCHRt ( 61 >I INEXT: LPRINТТAB( 16) "HACHINE cu
TS & BALANCE DI11ENSIONS"ILF'RINT " "ILPRINT"LINE"ILF 'RINT" NO,"ILPRINT ""
70 REl1 ТО F'RINT CHART
80 ВА=60/ ( AI +1 >IFORE:E:=QTOBI FORNA=l ТОВО IAt (NA )=" "INEXT IIFBB<>OTHEN100 ELSEIFA1>
16THENFORNA=7+E:AT071-BASTEPE:A•2ELSEFORNA=7+BAT071-E<ASTEF'BA: AN=NA: IH=Il1+11B t=RIGH
Н <STRt ( IH>, 1 >: IFil1>A1 THEN175 ELSEIFIM>9THENA7=A7+1 I AN=AN-A71 E:t=RIGHH< STRt< Il1)
,2)
90 At<AN>=E<t:NEXTIGOT0175
100 FORNA=7+EJAT071-E:ASTEPE<AIAt< NA>=CHRt ( 121> INEXT INX=NXH :IFNX=l THEN175 ELSEB2=
BA•AE:S ( Т ( е,е,, 3 )-Т(ВЕJ, 2) ) -2 1IFB2<0THEN175 ELSEIFT (Е:Е:, 2 >>Т ( вв, 3>ТHENNB=T(BB, 3>•ВА+
71At<NB+1)="< "ELSE110
11 О FORNC=N_E:+1ТONB+B2+1 I IFAt(NC> =" "THENAt(NC )=" -"
120 IFA t<NC>=CHRt(121)THENAt<NC)="+ "
130 NEXTIAt<NC)="• "IGDTD1iO
110 NE•= T ( е,в, 2 >•E•A+7 :At(NE+1 )E"•" IFORNC=NB+l TONB+BZ+l: IFAt (NC)=" "THENAt ( NC-) ="- "
150 IFAt(NC)=CHRt(l21>THENAt(NC)="+"
160 NEXTIIFAt<NC>=CHRt(IZ"l>ORAt(NC)9"+ "THENAt<NC-l>="> "ELSEAt<NC)="> "
170 LF'RINTBB;
175 F'ORNC=7+BAT071-E<A ILF'RINТТAB<7> IAt (NC >; INEXT IJK= ( ( ВА•<А1-1 )+12 >>
Распечатка 11.6
229
180 IFE:B=BTHENl 90 ELSEIFBB=OTHENLPRINTTAB( JК>" +/- LINE": NEXTE:BELSEIFE:B=NXTHE
NLPRINTTAB(JI()" TOL INv.•:GDT □ lnO:ELSEIFNX=lTHENLPRINT" ":G □ T0100 ELSELPRINTT
АВ< JK JUSINGG$; Т <Е:В, S); :LPRINT" ";: IFТ<E<B, 7 ),=, 999THENLPRINT"SOLID"ELSELPRINП <ВВ,
7)
190 FORZ1=1TOZ:IFB(Z1,7J)B+D-2THENBZ=B<Z1,7)-B -D+2:IFB<BZ,7J<BORB<BZ,6J>BBTHEN28
О ELSEZ20
200 IFB<Z1,7J<<D+B-21THEN210 ELSEIFB(Z1,6J<>BBTHEN280 ELSE220
210 IFB(Z1,7><>BBTHENZ80
220 83=BA•A8S(E:<Z1,З>-B<Z1,2))-2
;~~ ~~:u~~:~т ~~~R~::o ~~:o :AS<NA)= " ":NEXT:FORNB=7+E:AT1D71-E:ASTEPBA:AS(NB)=CHI<$( 1
2'1): NEXT: NF' =E: ( Z1, 21 •BA+7 :At ( NF )="о": FORNG=NF+l TONF+B3+2: IFAS ( NG 1=" . ' ' 1HENAS ( NGJ ="
250 IFAS ( NG 1=CHR$ <12'1 JТHENAS ( NG 1= "+ "
260 NEXTNG: А$ ( NF+2+E:3 I ="о": IFJ2<1 OTH!cNFS=" t t 't"ELSEFS=" tt ! tt"
270 LPRINTB< Zl, 1);: FORNG=7+BAT071-BA: LPR;r'NПAB <7) AS ( NG 1;: NEXT :LPRINПAE: ( <ВА•< Al-
1) +12) )USINGG$; В ( Z1, 5 >;: LPRINT'' ";USINGFt,; J1; D$; JZ
280 NEXTZl:NEXTBB:LPRINT" ":FORC=1TOBO:LPRINTCHR$(61JJ:NEXT:LPRINTTAB(161"BLUEPR
INT Oil1ENSIONS" :L.PRINTTAE:( Jl<-2) "LINE , INV, "
290 REH ТО PRINT BiP, OIH
300 A7=0:AN=O:IH=O:NX=O:FOR02=0TOO:FORNA=1TOBO:At<NAJ= " ":NEXT:IFD2<>0THEN320 Е
LSEFORNA=7+BATD71-BASTEPBA:AN=NA:IH=IH+1:BS=RIGHTS(STRS(IHJ,1J:IFIH>AITHEN35J Е
LSEIFIH>9TH~NA7=A7+1:AN=AN-A7
310 ASCANl=BS:NEXT:GOT0350
320 FORNA=7+BAT071-BASTEPE:A: А$ ( NA) =CHR$ ( 12'\): NEXTNA :NX=NX+l: IFNX=l ТliEN350 ELSED
D=E:AJIC ( Р( D2, 3 J-P (02, 2) 1-2: IFD2=DTHEN350 ELSENE:=P ( D2, 2) •Е:А+7: А$< NB) = "*": FDRNC=NB+
1TONE:+DD+I: IFA$ (NC) =" "THENAS (NC) ="-"
330 IFAS(NCl=CHRS(12'\ITHENAS<NCI= "+"
3'10 NEXT:AS<NCJ= "JIC":LPRINTP(D2,1);
350 FORNC=7+BAT071-BA:LPRINTTAB<7J;AS<NCJ;:NEXT:IFD2)0ANDD2<DANDNX)1THENLPRINTP(
D2, 6) :NEXTDZELSELPRINT" ": IFNX=I THEN320 ELSENEXTDZ: LPRINT" ": F'ORI=l Т080: LPRINT"
= 1•;:NEXT
360 LPRINT"PROCESS DIHENSIONS AND TOLERANCES": LPRINT" ": LPRINT" CUT": LPRINT"NUHE:
ER"TAB(16)"DIHENSION +/- TOLERANCE"
370 RS=" +/- ":FDR I=l TD B-1:LPRINT" ";T<I,1J;:LPRINПAE:<1BIUSING"tt,tttt"P<I,
q);:LPRINTR$;:LPRINTUSINGG$;T(I,5):NEXT
380 FDR I=I ТО 5:LPRINT" ":NEXT
390 CLS:PRINT"HERE IS ТНЕ FINAL СОРУ DF YOUR TDLERANCE CHART,"
'1 0 0 PRINT:PRINT"AT ТНЕ Е:ОПDН DF ТНЕ CHART IS А L.IST DF ТНЕ HACHINE CUT DIHENSID
NS ТО ВЕ USED ON YOUR PROCESS DIHENSIONS,"
'1 1 О PIONT: F'RINT "WOULD YDU LH(E ТО:" :F·RINT: f·RINT" <11 RllN ТНЕ PROGRAH AGAIN": F'RINT
"(2) END ТНЕ PROGRAH"(PRINT:INPUT"ENTER ТНЕ NUHBER";cc:IFCC=lTHENRUN"TCHARTl"ELS
ECL~:END
•
'\'\О REH SUB ТО ASSIGN LININV FDR PRINTOUT
'\ 5 0 IFB(Z1,6)(BTHEN170 ELSEJA=B<Z1,6J-D-B+2:J8=B<Z1,7J:IFB<JA,21 =T<JB,2JTHENIFT
( ,JE:, 3) <Т <JE:, Z) THENDS=" +" :Jl=E:< Zl, 6): ,12=Е: <Zl, 71: RETURNELSEIFT <JE:, 31 <В< JA, 31 THEND$
="-": Jl=B <Zl, 6): JZ=B <Z1, 7): RETURNELSEDS="-": Jl=E:( Z1, 71: JZ=E: ( Zl, 61: RETURN
'160 IFT <JE:, 31 >Т <JB, 2 JТHENDS="+": Jl=E: <Zl, 6): J2=E: <ZI, 7): RETURNELSEIFT <JE:, 31 >В< ,JA, Z
JТHEND$="-": Jl=E: ( Zl, 61: JZ=E: <Zl, 7): RETURNELSED$="-": Jl=E: ( Zl, 71: JZ=B <Zl, 61: RETURN
'170 G1•B<Zl,6J:GZ=B(Z1,71:IFT(G1,ZJ =T<GZ,ZITHEN'\BO ELSEIF(T(Gl,Z))T(Gl,3JANDT(G
2,З>>T<G2,2))OR(T<G1,2><T(G1,3)ANDT(G2,Э><T(G2,2))THEND$=''-'':Jl=G1:J2=G2:RETURNE
LSED$= "+ ":Jl=Gl:JZ=G2:RETURN
480 IF(T(G1,2))T(G1,3)ANDT(G2,Э)>TCG2,2))OR(T<G1,2)<TCG1,3)ANDTCG2,3)(T(G2,2>)TH
END$=: '+'':J1=G1:J2=G2:RETURNELSED$=''- '":IFABS(T(G1,2)-TCG1,3)))·ABS(T(G2,2)-T<~2,3)
ITHENJ1=G1(J2=G2:RETURNELSEJ1=G2:JZ=G1:RETURN
' 190 LPRINTSTRINGS ( 75, "-"): NEXT: FDRXX= 1 ТО5: LPRINT" ": NEXT: CL.S
500 FORTB•1TOB-1:TL=O:IFT(TB,71=,999THENT(TB,61=,999:G □ TD530 ELSEIFT<TB,7J<BTHE
NT(TB,6J=T(TB,51+T(T<TB,7),5):GDTD530 ELSETC=P<TB,6)-TP
510 T6=B(TC,6J:T7=B(TC,7J:IFT6<BANDT7(BTHENTL=T<T6,5)+T(T7,51+TL:GDTD5ZO ELSETL
=T L+T(T7,51:TC=B(TC,6J-TP:GDTD510
520 TCTB,6)=TL+T(T8,5)
530 NЕХТТЕ:
5'10 CLS:PRINT@O,"CENTER ";STRINGS<ZO," -" );"
" ;STRINGS(Z0," -" 1;:FDR 1=1537
О 'ТО 155 О О STEP6'\: РШ(Е I, 1 '19: f'Df(EI +'\O, 17 О: NEXT: PRINT@61," L.INE"; : PRINT@B'\ , "SAMPLE
PART <4 SLJRFACES)":: PRINT@320, " "
Распечатка 11.6 (продолжение)
230
550 FOR 1=15562 ТО 1557З:РОИЕ1,131:F·ОКЕ1+29,1З1:NЕХТ
560 FOR 1=15571 ТО 15700STEP6q:f•OKEI,119:P □ KEI+17,170:NEXT
570 FOR 1=15702 ТО 15719:PШ(El,131:NEXT:EE=268:TT=O:RS="LEFT--->"
580 REH SUB FOR CUT OIRECTION & FINDING DIHENSIONS
590 F'RINT"YOU ARE ASf:E □ HERE ТО INF'UT WHICH DIRECТION ТНЕ SURFACE FACES -
R RIGHT l'L' · OR 'R'I - ТНЕ SURFACE ТНАТ ТНЕ STOCK WILL ВЕ ADDEO ВАСК ON,
600 F'RINT" <IN TНIS SAHF'LE: SURFACES 1&2 ARE 'L' WHILE
SURFACES 34q ARE
PRINT@201 ., "1";: F'RINT@311, "2";: f'RlNT@360, "3 ";: F'R1NT@21Э, "1 ";
610 FOR I=l · то · з:PRINT@EE,"
";:F· □ RJ=l ТО 100:NEXT
620 PRINT@EE,Rs;:F □ R J=l то зoo:NEXTJ,l
LEFT О
'R' 1":
630 IF п< ··, 1 THEN RS="<---RIGHT": П=l :ЕЕ=297 :с □ ТО61 О ELSEPRINT@705, ... • YOUR F'A
RT HAS";At;"SURFACES * *"
640 FORXX= 1 TDAl: PRINT"WНICH DIRECТION IS SURFACE"; ХХ;: INPUT"FACING "; DS I ХХ 1: DS I Х
X>=LEFTS<DSCXX>,1):IF DS<XX><>"L"ANDDS<XX><>"R "THENF'RINT "USE 'L ' OR 'R' ONl.Y ~ ~ ~ • •
:хх=хх-1
650 NEXTXX
655 FORTB=1тoв-1:TL=O:IFT<TB,7)=,999Tt~ENT(1Б,6>=.999:GOT0658ELSEIFT(TB,7><BTHENT
<TB,6>=T<TB,5>+T<T<TR,7>,5>:GOT0658ELSETC=T<TB,7>-TF "
656 16=BITC,61:T7=BITC,71:IFT6<BANDT7<BTHENTL=TIT6,51+TIT7,51+TL:GOT0657ELSETL=T
L+T<T7,5>:TC=B<TC,6>-TP:GOT0656
657 T<TB,6)=TL+T<TB,5>
658 NЕХТТЕ:
660 CLS:F'RINT"YOU ARE NOW ASf:ED т'о INF'UT ТНЕ AHOUNT OF ST □ Cf: то Е:Е REHOVE □ ,":F·RI
NT"• • N □ ТЕ:: THIS HUST EXCEED ТНЕ HINIHUH STOCf: REHOVAL I Н, 5, R. 1 .": PRINT"INPUT С
AN ВЕ EITHER IN THOUSANDS OR DECIHAL NUHBERS 110 OR ,0101
670 PRINT: F'RINT"HACНINE CUT", "Н. S. R . " , "D ESIRED S. R ." : F'f<INT
680 FORXX=1TDB-1:SR=TIXX ,61:IFSR= , 999THENNEXTXX:GOT0730 ELSEPRINTTABl41XX;:PRIN
TTABl161USINGGS;SR;:PRINTTABl351"? ";:INPUTTIXX,61
690 IF ТСХХ,61)=1 THEN TIXX,61•TIXX,61/1000
700 IПIXX,61<SR THEN F'RINT"DESIREO S.R . HUST EXCEED н.s.R.": :F'RINТТAFH35)"?": :I
NPUTTIXX,61:GOT0690
710 NEXTXX
720 IF"Z=OTHEN750
730 FORXX=1TOZ:IFB<XX,6>•:BTHEN8(XX,5>=T <E:<XX,6),5)+T<B<XX,7>,5>:NEXTE:LSENEXT
710 FORXX=1TOZ:IFB<XX,5>=0THENIFB<XX,61=0THENNEXTELSEB<XX,5>=T<B<XX,7>,5)+B(B(XX
,6>-B -D+Z,5>:NEXTELSENEXT
750 FORXX=B - 1TO!STEP-1:PL=TIXX,Зl:SR=TIXX,61:IFSR=.999THENNEXTXX:G □ T0820 ELSEFO
RYY•XX -1T01STEP-1:IFTIYY,31 =PLTHEN760 ELSEIFTIYY,21=F 'LTHEN780 ELSENEXTYY:GOT08
00
760 IПIYY,21 > TIYY,ЭITHENIFDSIPLl="L"THENTIYY,~l•TIXX,61+TIYY,q)ELSEТIYY,q)=TIYY
, ' 1 > - Т <ХХ, 6 >El.SEIFO$ (F·L )="L"THENT< УУ, 1 >=Т( УУ, 1)-Т <ХХ, 6>ELSET ( УУ ,1> =Т<УУ ,q )+Т (ХХ,6
)
770 GOT0790
780 IFТI УУ, 21 > Т <УУ ,31 THENIF'DS IF'L l=" L"THENTI УУ, 1 l=TI УУ, qJ-TIXX ,6 IELSET I УУ, 41=Т С УУ
,41 )+Т <ХХ,6 >EL.SEIFD$ <F'L )="L"THENT <УУ, 4 )::.,:Т ( УУ, '1) +Т ( ХХ ,6)ELSET ( УУ, '1)=Т ( УУ ,4 >-Т СХХ, 6
)
790 NЕХТУУ
800 NEXTXX
810 REH SUB FOR ADDING UP Б,F', DIHENSIONS FOR HACHINE CUTS
820 CLS:PRINT :РЮ:NТ"АТ THIS f"OINT, I HAVE CALCULATED ТНЕ TOLERANCES AND STOCf:" :р
RlNT"REHOVALS FOR ЕАСН OF ТНЕ HACНINE CUTS, NOW I NEED ТНЕ BASE
DIHENSIONS
OF ТНЕ HACHINE CUTS, YOU HUST NOW DETERHINE ТНЕН FROHTHE BLUEPRINT DIHENSIONS AN
D ENTER ТНЕН,"
830 F· □ RI=15680 ТО 157q3:p0f:EI,HO:NEXT:PRINT:F'RINT"NOTE-- ENTER ONL.Y ТНЕ i;_ASE DI
HENSION OF ТНЕ HACНINE CUT, I WILL DETERHINE ТНЕ PROCESS OIHENSIONS":PRINT
вqо FOR C•l то В-1
850 FOR CC•l ТО D-1
860 IFCTCC,2>~= F·CCC,2)AND Т<С,З)=Р<СС,З))ОRСТ(С,З)=Р<СС,2)АNО T<C,Z)=P<CC,3)) ТНЕ
N T<C,4)=P(CC,'1)+T(C,1):G □ TOB80 E(SENEXT
870 F'RlNT"ENTER ТНЕ E:ASE DIMENSION F'OR CUT NUHE:ER";C; :INPUTDI:TIC , il •TIC,q)+DI
880 NEXTC:RETURN
1000 REH ТЦ ADD UF' НАСН CUT TOL
1010 TP•B+o-2:FORTE:=!TOD-1:TL=O:IFP<TB,6)(BTHENPITB,71•T(F'(TB,61 ,5):GOT010qo ELS
ETC>=P<TE:,6)-· TF '
1
1020 T6•BITC,61:T7=E:<TC,71:IFT6<BANDT7<E:THENTL•TIT6,51+TIT7,51+TL:GOT01030 ELSET
Распечатка 11.6 (продолжение)
231
L=TL+T<T7,5>:TC=B<TC,6)-TP:GOTO1020
1030 f'<ТЕ:,7):аТL_
1010 NЕХТТЕ:
10:'.О RE:11 SLJE: ТО f"RINT WORJ:-SHEEТ
1060 f'RINT: IF XS< > "N "ANDXS -·:::: ,-"Y "THENINf'UT "DO YOU NEED INSTRUCТIONS FOR ТНЕ WORKSHE
tт (Y/N)";XS:IFLEFTS(XS,l)r."Y"ТliENGOSLIE:I250
•
1070 Lf'RINT"
" :L.f 'RINTCHRS ( 27); CHRS ( Н); "WORl:SHEEТ f"OR TOLERANCE OISTRIE•UТION" :GO
SUE:1180 :L2 =0
1080 L.f'RINI "
" :L..f'RINT "E:LUEf'RINT "; ТАЕ:( 30) "t1ACHINE CUTS" :Lf'RINT "Dil1EN , +/-TOLER, " :L
f'RINT "
":FORL.9 =L5TOL6 :Lf'RINТТAB( ( L.9 -L2 >•З•l 9) L9; :NEXTL.9 :LPRINT" ":F- □ RXX=I TOD-I :У
=ХХ : LL.=O: IFF· <ХХ, 6 ><E:THENLL =LL+ 1: А< L.L . )=f' <ХХ ,6): GOTOI 100 ELSEY=f'( У, 6) •2-B-D
1090 LL=LL+l : A<LL> =E: <Y,7):IFE:<Y,6)<E:THENLL•LL+l:A(LL> =B(Y,6):GOTOI IOO ELSEY=B(Y,
6)+2-E:-D:GOT01090
1100 FORL9 =L5TOL6 :FORL8=1TOLL:IFA(L8) =L9THENA S(L9)="• "
1110 NE.XTL8:IFAS<L9)<>"• "T HENA S(L9>=""
1120 NEXTL9:Lf'RINTf'IXX,1>;"+/- ";:Lf'RINTUSINGGS;P(XX,5);:Lf'RINTTAE:(2I>CHRS<l21);:
L0•20 : FORL9=L5TOL6 : IFL9)9THENLO=LO+I
1130 L.f'RINТТAE:< З• <L 9-L2) +LO)AS (L 9) CHRS ( 121);: AS <L9 )=" ": NEXTL9 :L.0 =I8 :Lf'RINT " ":L
f'RINT"<NEW) +/- " ; : Lf'RINTUSINGGS;f'<XX,7>;:FORL9•L5TOL6+1:Lf'RINTTAB<3•(L9-L2)+LO)C
HRS<l21);:IFL9> 9THENLO=LO+I
1110 NE.XTL9: L.f 'RINT "
":LF'RINTSTRINGS 162, " - " ) :NEXTXX: IFL6=E:-1 THEN1150 ELSEGOSUE:I22
О :GOTOIOBO
1150 Lf'RINT"
":Lf'RINT" ":LF'RINT"t1ACHINE CUT", "+/- TOLERANCE", "CHANCES", "= NEW ТО
L[RANCE": Lf'RINT"
":FORXX=I ТОЕ:-1: Lf'RINТТAE:( 1) ХХ; :IП ( ХХ, 5) =OTHENLf 'RINTTAE:( 18) "NON
E"ELSELf 'RINTTAE:(19>USINCGS;T(XX,5)
1160 Lf'RINTSTRI NGS(75, " -" ):NEXT:FORXX =1T05 :Lf'RINT" " :NE XT:C LS
1162 FOR I=I ТО D -I:IF f'(I,7><=f '<I,5)THENNEXT:COT01170
1161 f'RINT:f'RINT ''F 'LEASE TAJ:E NOТICE:":PRINT:FOR 1=1 ТО D -I:IF f'<I,7> > f·<I,5>THENf'
RINT"FOR E:LUE.f 'RINT NO , " ;I": YOU ENTERED А TOLERANCE OF";:PRINTUS!NGGS;P<I,5>:PR
INT"THE . NEW TOLERANCE OF"; : f'RINTUSINCCS;f'<I,7); :f'RINT" EXCEEDS ТНЕ E:LUEF"RINT TOL
ERANCE": PIONI
'
1166 NE.XT:F·RINT:f·RINT "I WOULD ADVISE ТНАТ YOU CHANGE ТНЕ t1ACHINE CUT TOLERANCES"
: F'RINT
1170 INf'Ul "DO YOU WISH то CHANCE ANY OF ТНЕ t1ACHINE CUT TOLERANCES (Y/N)":cs:IFC
S ="Y"THENGOTOl1I0 ELSE RETURN
1180 L5=1:IFE:-l(IITHENL6=E:-1ELSEL6 =I0
1190 RE. TURN
1220 RE11 FOR INCREHENTS
1230 LZ~L2+10:L5=L5+10:IFB-1>L6+10THENL6=L6+10ELSEL6=B -1
1210 REТURN
1250 REH SUB FOR INSTRUCTIONS FOR TOL, DISTRIB,
1;'60 LF ·RINT "
":Lf'RINTCHRS ( 27) :cнRS( 11); "WQRl(SHEEТ INSTRUCТIONS": Lf'RINT"
": Lf'RINT
"INTRODUCТION : ":LPRINT" "
1270 LF'RINT"
ТНЕ CHART ON ТНЕ WORl(SHEET SHOWS ТНЕ E:LUEPRINT DIHENSION AND TOL
ERANCE AS
ORIGINALLY INPUTED, ALONG WIТH ТНЕ NEW TOLERANCE ТНАТ YOU 11АУ ЕХРЕСТ
AS А RESULTOF ТНЕ 't1ACHINE CUT' TOLERANCES ТНАТ ARE LISTED BELOW ТНЕ CHART,"
1280 Lf'RINT"
" : Lf'RINT"
ТНЕ 't1ACHINE CUT' TOLERANCES WERE OERIVEO PROf'ORТIONAL
LY, USING (1) ТНЕ ORI-GINAL E•LUEF "RINT TOLERANCE, (2) ТНЕ t1ACHINE CUTS INVOLVEO I
N CREAТING THIS DI11EN - SION , ANO (3) ТНЕ ТУРЕ OF t1ACHINING TAIONG f'LACE АТ ЕАСН С
LJI •"
.
t290 Lf'RINT"
":L.f'RINT"
AN '• ' H AS BE E N f 'LACEO UNOER ЕАСН t1ACHINE CUT ТНАТ ТНЕ
COMf'UTER HAS DETER- t1INEO IS INVOLVED IN CREAТING THIS DIHENSION, ":Lf'RINT" "
L30 О Lf'RINT"
АТ THIS f'OINT , ТНЕ COl1F'UTER HAS DONE AS HUCH AS f'OSSIBLE, AS FAR
AS OISTRiв~uтrNG TO LERANCES t1ATHE11AТICALL У, П IS Uf' то YOU то t1Al(E ANY NECESS
ARY CHANGES , " :lf'RINT" ":Lf'RINT" ":LF"RINT"INSTRUCТIONS : ":LF'RINT "
"
1310 Lf'RINT "LET US SAY, FOR EXAl1f 'LE , ТНАТ WE HAVE А E:LUEPRINT TOLERANCE OF .005
AND А NEW
TOLERANCE DF ,001 , WE WISH ТО МАКЕ А CHANGE ТО INCREASE ТНЕ NEW TOL
ERANCE ТО USE ТНЕ FULL ,005, ":Lf'RINT ""
1320 L.f'RINT" ( 1) LOOI( АТ ALL ТНЕ t1ACHINE CUTS INVOLVED WIТH THIS DIHENSION I AS НА
Rl(E.0
'•' )
AND DEТER11INE WHICH OF THESE CUT TOLERANCES YOU WISH ТО INCREASE
[:У , 001,"
1330 Lf'RINT" НОТЕ: ТНЕ
,0 0 1 НАУ Е:Е DISTRIBUTED OVER t10RE THAN ONE t1ACНINE CUT I
FYOU50
DESIRE, ":LPRINT" ": LF·RINT" ( 2) NEXT ТО ТНЕ '•' , FOR ТНЕ 11АСНI
NE: <:UT ТНАТ YOU HAVE CHOSEN, WRIТE IN '+,001' ,":Lf'RINT" "
Распечатка 11.6 (продолжение)
232
1:I1n t.F·RINT"(З> N □ II · F OLL.011 THIS HACHINE CUT COLUHN UP AND DDWN , PUTТING А
'+,001
'IIH EREV ER
THERE IS А '•' IN ТНАТ CDLUHN, ":LPRINT""
1350 lf'RINT" ( ~ > TAf:E NOTE ТНАТ WHEREVER YOU HAVE ENTEREO А '+, О О 1', ТНЕ
TOLERANC
Е C1F ТНАТ
E:LUEPRINT DIHENSION IS ALSO INCREASEO Е:У , О О 1 , " :L F·RINT"
": LPRINT
"( ~;> ADO ТНЕ ,001 ТО ТНАТ HACНINE CUT IN ТНЕ Е:DТТОМ TAE:LE, " : LPRINT" "
!Э60 LPRINT"(6) CONТINUE ON WIТH ANY OTHER NEW TOLERANCES ТНАТ YU WISH ТО INCREA
Sf OR DE-
CREASE," :LPRINT" ":LPRINT"(7) ADD OR SLJE:TRACT ANY CHANGES IN ТНЕ
воrтом CHAR1 то GET ТНЕ NEW TOLERANCE FOR
ЕАСН HACHINE CUT, "I LPRI NT ""
1 З70 l F'RINT" ( 8 > ASSIGN WHATEVER TOLERANCE YOU DESIRE FOR HACНINE TOLERANCES HARI:
ED 'NONE ',
AS THESE CUTS ARE NOT DIRECTLY INVOLVEO IN BLUEPRINT TOLERANCES,
1380 l.PRINT " NOTE : f:EEF' IN MIND -(A) ТНЕ HIGHER ТНЕ TOLERANCE, ТНЕ HIGHER ТНЕ ST
□ Cf: REHOVAL,
AND ( Е: > ТНЕ HINIHUM TOLERANCE OF THIS OF'Ef<AТION SHOULD Е:Е OBEYED
, ":l.F'RINf "
"
1:J90 LPRINT"(9) INF'UT ТНЕ NEW TDLERANCES ТО RECEIVE AND UF'DATED CHART INCORPORAT
ING ТНЕ
CHANGE , ( YDU WILL Е:Е AE :LE ТО MAl:E FURTHER CHANGES IF NECESSARY,
": REТLJRN
НОО FOR X••l ТО 51LF'RINT" ":NE XT
Hl О CL S: F'RINПAE: ( 13) "NEW HACHINE CUT TOLERANCES ": PRINT : PRINT"ENTER А NEW TOLERA
NCE <OR ELSE ·iENTER> )" :F'RINT"CUT NO,", "CALC, TOl.," , "NEW TOL , ": FORXX=lТОВ-1 : PRINI
: L 9"Т <ХХ, 5 >: F"RINТТAE: ( 2 >ХХ;: IF'L9=0THENPRINТТAE: <19 >"NONE"; ELSEf'RINТТAE:( 19) "+/- "; : Р
RINTUSINGGf.; l .9:
1lf20 F'RINTTAE:(lfO >"+/-";:INF'UTT(ХХ, 5):IFT(ХХ t 5)>•999 THEN Т ( ХХ, 5 >=Т( ХХ,5 >/ 1О О О :NE
хт xx:GOTOIOOOELSEN E XT:GOT01000
Распечатка 11.6 (продолжение)
Операционные переходы и искомые размеры
Номер
\
раз-
+ !- Вз~имосвязанные
мерной
допуск разNеры
линии
2
3
4
5
х
0,0031 Исходh'i_,IЙ размер
2х
1
-
1
0,0034 Исходный размер
1
15
-0 -0 0,0065
1-2
3х
-
0,0050 Исходный размер
1
18
1
о 0,0081
1-3
1
4+
1~
1
х 0,0010
5
1
Исходный
х 0,0050
размер
17о
о
1
1
0,0060
4-5
6
1
1
<-
х 0,0005
lo1
18
13 о·
о
0,0015
4-6
16
1
х
о
---
0 ,0070
6-15
7 х------,
1
0,0005
17
14
о
о
0,0020
13-7
233
Размеры по чертежу
1
2
3
4
5 Взаимосвязанные
1
1
1
размеры
8х
х
7
9
х
х
14
10
1
16
х
х
11
х
х
15
1,
12х
л
·4
Размеры обработки и допуски
Номер перехода Длина резания +/-допуск
l
3,0080 +/-0,0031
2
2,0080 +/-0,0034
3
1,5160 + /-0,0050
4
3,0000 +/-0,0010
5
2,0080 +/-0,0050
6
1,5000 +/-0,0005
7
1,0000 +/-0,0005
К распечатке 11.4 .
Программа, помещенная_ в этой главе, вносит существенный
вклад в дело автоматизации труда инженера-технолога, поскольку
большой объем ручной работы перекладывается на плечи машины
(распечатки 11.1
-
11.6) . Описанные выше программы позволяют
оценить, какими возможностями обладает Бейсик как язык програм
мирования, и какие разнообразные операции выполняет ЭВМ при
подготовке диаграмм для контроля допусков.
Упраж нение 11.1 (наименее трудное). Написать программу, которая ста
тистическим методом рассчитывает размерные цепи для сборочных чертежей.
Допуск на замыкающий размер
Т=Vта2+ть2+...+Тп2,
где Та - допуск на первую деталь; ТЬ
-
допуск · на вторую деталь; Тп -
допуск на последнюю деталь.
Упражнение 11.2 (средней трудности) . Написать программу расчета
припусков и допусков на отливки и поковки.
Глава 12
С Ч ЕГО НАЧИНАТЬ?
12.1. ОБУЧЕНИЕ
В предыдущих главах мы рассмотрели многочисленные примеры
использования микроЭВМ в работе инженера-технолога. Микро
ЭВМ приходит сегодня на смену микрокалькулятору. Она заменит
его также, как микрокалькулятор заменил логарифмическую ли
нейку. Со времени появления первых микроЭВМ в 1975 г. значитель
но повысилась их надежность и расширилась область применения.
Конкуренция между фирмами-изготовителями способствовала повы
шению надежности микроЭВМ, в то время как деятельность энтузи
астов-любителей порождала новые идеи по их применению. Естест
венно, у инженера возникают вопросы: «Как подойти к использова
нию микроЭВМ? С чего начать?» В этой главе мы постараемся дать
ответ на два основных вопроса: «С чего начинать и каковы перспек
тивы применения микроЭВМ?» Надо начинать с обучения. Существу
ет несколько направлений обучения программистов на ЭВМ, и каж
дое имеет свои преимущества и недостатки.
Прежде всего рассмотрим такое направление как самообразова
ние. Бейсик - очень r;~ростой язык, и изучить его можно самостоя
тельно, даже если имеются возможности для обучения. Однако
в условиях производства довольно трудно получить все необходимые
знания, занимаясь только самостоятельно. Требуется большое само
пожертвование, чтобы достичь таким путем цели обучения. Другим
недостатком является то, что самообразование- процесс слишком
медленный. Поэтому проблема обучения должна решаться сразу по
нескольким направлениям.
Обучение в колледжах. Рассмотрим другое направление - обу
чение в колледжах. Большинство колледжей и университетов пре
подают курс по программированию на ЭВМ . Как правило, предлага
емые курсы можно четко разделить на два вида. Многие учебные за
ведения включают в учебные планы курс по подготовке специалистов
по электронной обработке данных. В настоящее время такую подго
товку получают лица, собирающиеся специализироваться в области
автоматизированных систем управления и вычислительной техники.
Обычно слушатели изуliiают системное программирование с исполь
зованием алгоритмических языков, ориентированных на большие
ЭВМ. Предприятия не заинтересованы в том, чтобы инженер про
шел такую подготовку и получил диплом по второй специальности.
Учебный курс может носить прикладной характер. Большинство
колледжей и университетов организуют обучение программирова
нию на Бейсике. На таких курсах слушатели заняты общим изуче-
235
нием языка или учатся решать на нем экономические задачи.
Кроме знания основ языка эти курсы мало что дают инженеру-тех
нологу. В настоящее время существует очень немного учебных за
ведений, в которых преподают курс программирования специально
для инженеров-технологов. Однако необходимость в этом растет,
и в будущем положение может измениться. Если, однако, эта воз
можность обучения для вас единственная, начинайте с нее .
Еще одно направление обучения - проведение семинаров с от
рывом от производства. Целый ряд национальных организаций, та
ких, как Американская ассоциация управляющих, проводит семи
нары по вычислительной технике . Большей частью такие семинары
предназначены для управляющих и не включают практические за
нятия по программированию. Объясняется это отсутствием матери
альной базы, необходимой для проведения практических занятий,
недостатком квалифицированных преподавателей для обучения ин
женеров. Поэтому семинары с отрывом от производства, хотя и удов
летворяют определенным требованиям, не подходят для обучения
инженеров-технологов.
Семинары без отрыва от производства. Они имеют ряд преи
муществ. Во-первых, потребность в оборудовании сводится к мини
муму. Если фирма заинтересована в том, чтобы научить работников
технического отдела практическому программированию, и готова
приобрести две микроЭВМ, то можно приступать к организации
таких семинаров . Утром проводятся теоретические занятия с четырь
мя инженерами, а во второй половине дня - практические занятия
по программированию. Целесообразно послеобеденное время разде
лить на два занятия по 2 ч для каждой группы инженеров, так как
после работы с терминалом обучаемому надо проанализировать ре
зультаты своей работы за письменным столом . Такая организация за
нятий имеет и другие преимущества. Преподаватель, ведущий заня
тия, может увязать курс с конкретными задачами данного преприя
тия. Самое трудное при этом - найти квалифицированного препода
вателя. Обратите внимание на термин «квалифицированный предпода
ватель», под ним мы понимаем инженера-технолога, знающего про
граммирование на ЭВМ. Существуют две возможности найти rакого
преподавателя : пригласить консультанта или преподавателя высше
го учебного заведения . Роль консультанта мы обсудим в этой главе
позднее. Лучший и, возможно, самый экономичный выбор - при
гласить преподавателя высшего учебного заведения. Это дает и дру
гие преимущества, так как единение производства и высшей школы
является необходимым условием долгосрочного совершенствова
ния учебных планов и программ.
Рассмотрим последнее направление обучения - учебный класс
при высшем учебном заведении. Если ваше предприятие расположе
но вблизи колледжа или университета, в котором читаются курсы
для инженеров-технологов и по микроЭВМ, то появляется реаль
ная основа для создания учебного класса . Некоторые учебные заве
дения уже организовали такие классы, другие планируют их создать .
236
12.2. ОБОРУДОВАНИЕ
Выбор вычислительной техники на начальном этапе - сложная
проблема. Для ее решения требуются и знания и здравый смысл .
Прежде всего надо решить, какую ЭВМ покупать - мини или мик
ро . Поскольку терминология каждый день меняется, трудно прове
сти четкую границу между этими двумя понятиями. Сегодня мини
ЭВМ можно определить как ЭВМ, стоимость которой лежит в интер
вале от 15 ООО до 250 ООО долл . , в то время как микроЭВМ стоит
менее 15 ООО долл. Для инженера такое определение может показать
ся очень неопределенным, тем не менее это определение, принятое в
отрасли. Каждый тип ЭВМ имеет свои преимущества и недостатки,
и давать какие-либо рекомендации - дело трудное. Хотя основные
функциональные возможности ЭВМ совпадают, выбор технических
средств зависит от поставленных целей. Ряд фирм отдает предпочте
ние мини-ЭВМ, к которой подключено несколько терминалов, уста
новленных в техническом отделе . Такая организация вычислитель
ных работ позволяет достичь разнообразных целей, однако она тре
бует изменений в работе других структурных подразделений. В то
же время первый опыт некоторых фирм по применению ЭВМ пока
зывает, что для инженерных расчетов достаточно приобрести две
три микроЭВМ .
Поскольку цель этой книги - побудить инженера сделать пер
вые шаги, то мы не будем делать каких-либо попыток обсудить пре
имущества одной системы перед другой .
Теперь определим состав микроЭВМ. Для решения на микроЭВМ
производственных задач в автономном режиме она должна быть уком
плектована следующим минимальным набором модулей и устройств:
базовой ЭВМ с емкостью оперативного запоминающего модуля
(RAM) не менее 48К; сдвоенным дисководом для дисков диаметром
5,25 дюйм (134 мм); печатающим устройством с бумажной лентой
шириной 8,5 дюйм (216 мм); дисплеем; интерфейсом RS 232.
Надежность в работе и техническое обслуживание . Несколько
фирм выпускают микроЭВМ, компоновка которых отвечает перечис
ленным требованиям, и мы не ставим своей целью рекламировать
продукцию одних фирм в ущерб другим. Покупатель должен обра
тить особое внимание на надежность ЭВМ и их техническое обслужи
вание. Бурное развитие микроэлектроники привело к появлению
большого числа фирм, занятых производством ЭВМ . Подобная кар
тина наблюдалась на заре автомобилестроения. В начале ХХ в. де
сятки компаний пытались выпускать автомобили. Сегодня ч11сло
фирм, выпускающих автомобили в Америке, можно пересчитать по
пальцам. Производство микроЭВМ переживает те же болезни роста .
Через пять л_ет многие из этих небольших , испытывающих финансо
вые затруднения фирм выйдут из игры. Надежность микроЭВМ оп
ределяется их безотказной работой в реальных условиях, день за
днем. Техническое обслуживание имеет очень большое значение.
Когда для ЭВМ написаны программы и они каждый день эксплуати-
237
руются, возникает определенная зависимость от ЭВМ, поскольку
они так же могут выходить из строя, как и любое другое оборудо
вание. Вот почему необходимо подумать об обслуживании. Как толь
ко ЭВМ отказывает в работе, ее надо отсылать в центр обслужива
ния для ремонта. Вызывать специалиста по ремонту на предприя
тие - очень дорого. Поэтому надо начинать с приобретения, по
крайней мере, двух ЭВМ и тщательно изучить возможности их обслу
живания. Многие инженеры -технологи предпочитают не покупать
станки с начальными заводскими номерами. Не будем разбирать
здесь причин, но в большинстве случаев такая осторожность оправ
дана. Главное в том, что с такой же осторожностью и вниманием
надо подходить к выбору ЭВМ для решения производственных задач.
Стандартизация. В описании номенклатуры микроЭВМ значит
ся: «Интерфейс RS 232». Это принятое в электронной промышлен
ности обозначение стандарта на подключение к ЭВМ внешних уст
ройств. Хотя производство микроЭВМ очень быстро развивается,
стандартизация остается нерешенной проблемой. С точки зрения
пользователя недостаточный на этом этапе развития отрасли уровень
стандартизации вызывает дополнительные трудности. Подключение
к микроЭВМ внешних устройств, изготовленных различными фирма
ми, становится сложным дел.ом. Интерфейс RS 232 обеспечивает для
пользователя совместимость различных электронных модулей и до
полнительных внешних устройств, которые могут быть приобрете
ны в будущем.
По мере развития отрасли на рынке появляются новые внешние
устройства. Приведем краткий частичный перечень периферийного
оборудования, включив в него как известные, так и новые модели .
Телетайп ASR - 33 представляет собой стандартное устройство,
которое может быть подключено к мнни- или микроЭВМ. Оно может
оказаться весьма полезным, так как выполняет все функции, необхо
димые для электронной системы: пе<rать, ввод с клавиатуры, ввод и
вывод на перфоленту. Чтобы подключить это устройство к ЭВМ,
нужно приобрести модуль связи, выпускаемый фирмой - изготови
телем ЭВМ.
Может потребоваться высокоскоростное перфоленточное устрой-
- ство.
Такие устройства имеются в продаже и большинство из них
имеют выход на интерфейс RS232.
Следующее устройство, которое можно подключить к ЭВМ,
это модем. Он п·редназначен для сопряжения ЭВМ с устройствами
передачи данных по телефонным каналам связи. Популярность
этих устройств растет по мере возникновения новых видов услуг.
ЭВМ могут быть также связаны с внешним миром. При этом воз
никают захватывающие возможности. Часто внешнее устройство
или устройства не стандартизованы, и приходится использовать
модули связи. Чтобы осуществить такое соединение, нужны специ
альные знания.
Еще два периферийных устройства, о которых мы упоминали, но
которые обсудим позже в этой главе - графопостроитель и цифратор.
238
Документация. Документация рассматривается как вид обеспе
чения, предоставленный заводом-изготовителем. Она объясняет поль
зователю, как работать с ЭВМ. Плохое качество документации явля
ется общим явлением. Фирмы-изготовители больше всего думают о
рынках сбыта для своих ЭВМ и менее всего - о документации. Ес
ли документация плохо отработана, то прежде всего страдает поль
зователь, который пытается разобраться в новой и непонятной для
него системе. В конечном итоге убьпки понесет фирма-изготовитель,
но пока страдает покупатель.
Последний вопрос, который связан с оборудованием, - это мо
ральный износ. По мере совершенствования технологии произвсщст
ва ЭВМ сроки морального износа сокращаются. В настоящее время
ЭВМ устаревает примерно через 3 года. Для некоторых сама мысль
о покупке машины, которая через 3 года может устареть, кажется
устрашающей. И хотя мы не будем пытаться рассеять эти страхи,
сущность морального износа необходимо пояснить.
Покупка ЭВМ, на смену которой вот- вот появится ЭВМ нового
поколения, может, мягко выражаясь, вызвать разочарование. Вме
сте с тем, если инженер или управляющий видит сегодня, как мож
но с помощью ЭВМ повысить эффективность инженерного труда, но
откладывает покупку, он теряет время. Сущность морального изно
са не в том, что ЭВМ перестает работать. Будущие микроЭВМ ста
нут еще портативнее, увеличится их быстродействие и емкость па
мяти. Они будут построены на базе 16-разрядных микропроцессоров
вместо 8-разрядных. Снизится их стоимость. Размышляя над этой
дилеммой, не следует зь1бывать о другом вопросе: «А как поступают
конкурирующие фирмы?»
12.3. ЯЗЫКИ ПРОГРАММИРОВАНИЯ
Бейсик был разработан в 1964 г. сотрудниками Дармутскоrо кол
леджа. Вопрос о том, на каком языке программировать, задают час
то. Существуют различные мнения на этот счет, некоторые из них
субъективные. Подробный разбор языков программирования выхо
дит за рамки этой книги, но необходимо сделать р·яд замечаний.
Во-первых, наиболее распространенными языками для решения
научных задач сегодня являются Бейсик и Фортран. Паскаль зани
мает третье место. Бэйсик и Фортран - языки высокого уровня, об
ладающие большим набором средств для эффективной обработки ма
тематических выражений. В конце 1980 г. автор провел исследова
ние на нац1;1ональном уровне. Цель исследования закл~очалась в том,
чтобы определить, как»е курсы по применению ЭВМ читаются в на
стоящее время инженерам-технологам в колледжах и университетах
США и какие языки программирования используются. Если говорить
о языках проrраммирования, то результаты исследования показали,
что в 50 % случаев использовался Фортран и в 50 % - Бейсик .
Применялись некоторые другие языки программирования, но на
столько редко, что эти случаи не учитывались. В последние годы
239
фирмы-изготовители разработали программные средства для своих
ЭВМ, позволяющие использовать любой из трех наиболее распрост
раненных языков программирования.
Во-вторых, следует учитывать, что существует множество диалек
тов Бейсика. Хотя Бейсик широко распространен, имеются некото
рые различия между языками Бейсик фирмы «Радио шэю> и Бей
сик фирмы «Эпл.» Программа, написанная для ЭВМ TRS -80, не
будет -выполняться на ЭВМ фирмы «Эпл». Помимо небольших рас
хождений в языках программирования, эти ЭВМ имеют совершенно
различные дисковые операционные системы. Поэтому прог.раммы, на
писанные на одном и том же языке, несовместимы для различных
машин . Начинающий пользователь должен сделать для себя следую
щий вывод: не покупать из числа наиболее популярных ЭВМ по од
ной машине в надежде, что вы можете писать и использовать вз-аимо
заменяемые программы . Некоторые фирмы по разработке програм
много обеспечения создают трансляторы, которые могут выполнять
такую функцию. Однако после завершения разработок маловероят-
но, чтобы они стали достоянием других фирм.
.
Для каждой ЭВМ можно писать программы на языке Ассемблер
или в машинных кодах. Ассемблер - язык низкого уровня, в кото
ром используются мнемонические коды . Команды Ассемблер ис
пользуются непосредственно для управления работой ЭВМ. Слово
«непосредственно» означает «без использования транслятора 1».
Программирование на языке Ассемблер или в машинных кодах
очень утомительная работа, отнимающая массу времени . Точно так
же, как существуют различные диалекты языка Бейсик, каждый мо
дуль центрального процессора или микропроцессор имеет свой соб
ственный код , и каждый микропроцессор отличается от другого.
В ряде случаев изучение языка Ассемблер и (или) машинного языка
бывает о правданным . Их можно изучить после того, как инженер
хорошо освоит Бейсик. Программа в машинных кодах выполняется
быстрее, чем программа на языке Бейсик. Встречаются программы,
которые требуют для своего выполнения несколько минут машинного
времени (например, подпрограмма расчета процентов при дисконти
ровании денежных потоков). Если бы такая подпрограмма была на
писана на языке Ассемблер или в машинных кодах, время расчета
существенно сократилось. Другая причина изучения этих языков
заключается в необходимости обеспечивать интерфейс программным
путем. ЭВМ на своем нижнем уровне воспринимает только наличие
~игнала или его отсутствие в виде нуля или единицы и все ее элемен
ты могут находиться в одном из двух состояний: включены или вы
ключены. Связь ЭВМ с внешним миром осуществляется на этом ypoв
IJe. В некоторых системах Бейсик используют для программирова
ния интерфейса. Обучение программированию в машинных кодах
и на языке Ассемблер не входит в начальное обучение .
1 Неточно . Каждая команда языка Ассемблер с помощью специальной
программы транслируется в команду машинного языка, которая уже вы
полняется ЭВМ. - Прим. пер.
''240
12.4. ПРОГРАММИРОВАНИЕ
Этот раздел написан преимущественно для руководителя отдела,
который должен организовать работу по программированию. Преж
де чем начать программирование реальных задач, руководитель от
дела должен решить, сколько специалистов будут писать программы
для ЭВМ. Писать программы для решения производственных задач
на ЭВМ нетрудно. Существует, конечно, и оборотная сторона меда
ли. Н::~.блюдения и исследования, проведенные в классе, показыва
ют, что не каждый может или хочет работать с ЭВМ. Некоторых лю
дей пугает перспектива автоматизации их труда. В то время как од
ни чувствуют себя уверенно в условиях перемен и стремятся к ним,
другие предпочитают, чтобы все оставалось по-старому. Мы не
ставим своей целью разбирать мотивы поведения людей. Эти замеча
ния адресованы руководителю, и он должен их учитывать при орга
низации работ по программированию. Вместе с тем внедрение ЭВМ
в техническом отделе может повысить трудовой настрой работников,
вызвать ощущение новизны. В заключение сформулируем несколько
вопросов, которые следует тщательно проанализировать, прежде чем
начать работу по программированию.
1. Какие типы программ следует сначала освоить?
2. Сколько человек должно быть занято программированием?
3. Какие задачи надо запрограммировать в первую очередь?
4. Надо ли составлять график работ?
5. Как контролировать разработку программ?
6. Как определить на различных этапах работы, являются ли
результаты положительными или отрицательными?
'
7 . И наконец, должны ли уметь писать программы для ЭВМ ру-
ководители отдела?
Сразу после того, как начнется разработка программ, возникнут
новые вопросы. Заслуживает изучения проблема защиты информа
ции, хранимой в файлах. Многие фирмы по разработке программно
го обеспечения принимают в настоящее время меры для защиты сво
их разработок от злоумышленных действий. Некоторые фирмы соз
дали методы защиты, не позволяющие копировать программы.
И если опытный программист может избежать этой проблемы, то
читатель должен отнестись к ней серьезно. Внесение изменений в
программы и копирование гибких дисков представляют две другие
проблемы, которые нужно обдумать. Возможно, целесообразно соз
дать некоторую централизованную систему внесения изменений в
программы -и данные, наподобие той, которая существует в конструк
торских бюро. По мере ' увеличения числа программ растет -число из
менений и дополнений, вносимых в ранее разработанные программы .
Появляется необходимость в системных дисках и программной доку
ментации. Следует также подумать над тем, как научиться писать
простые и понятные системные и операционные документы.
241
12.5. КОНСУЛЬТАЦИИ
Большую помощь на начальном этапе может оказать квалифи
цированный консультант. Обратите еще раз внимание на слово «ква
лифицированный». Бурное развитие производства ЭВМ, их широкое
распространение во всех сферах деятельности привело !( появлению
новых отраслей, открыло новые возможности специализации. По
явилась профессия консультанта по вычислительной технике. Опыт
ный консультант помогает руководителю ыравильно определить
цели обучения, организовать учебный процесс, разработать програм
мы. Хорошей отправной точкой может стать проведение без отрыва
от работы семинарских занятий. Такие занятия позволяют выявить
уровень подготовки слушателей, прежде чем будут развернуты
серьезные работы по программированию задач.
С консультантами нередко заключают договоры на разработку
программ. Как правило, такое содружество дает хорошие результа
ты, но бывают и неудачи.
Можно приобрести готовые программы. За последние 4- 5 лет
появилось большое количество фирм по разработке программного
обеспечения. Их торговый оборот превышает 1 млн. долл. В основ
ном разрабатывается программное обеспечение для решения на не
больших предприятиях задач бухгалтерского учета, управления ма
териально-техническим снабжением, хранения и поиска информа
ции. Фирмы - изготовители ЭВМ предлагают готовые программы
для решения аналогичных задач и обработки текстов . Все эти про
граммы ориентированы на массовый рынок. После его насыщения
фирмы будут искать новые источники доходов и, возможно, начнут
создавать программы для решения задач технологии.
Следует тщательно продумс1ть планирование, организацию и осу
ществление работ по повышению эффективности инженерного тру
да на основе микроЭВМ. Как и в любом деле успех будет во многом
зависеть от правильного руководства.
Мы живем в век научно -технического прогресса. Быстрые изме
нения в технике и технологии происходят одновременно во многих
областях. Появление ЭВМ ознаменовало начало процесса, который
- можно
назвать новой промышленной революцией. Перспективы раз
вития производства вычислительной техники выглядят фантастиче
скими. В 1990 г. будет использоваться 33 млн. микроЭВМ. Это про
гноз. Он кажется нереальным, но специалисты верят в эту цифру.
Ранее мы обсудили концепции групповой технологии и систем
автоматизированного проектирования технологических процессов на
основе микроЭВМ. Хотя обе концепции частично переплетаются,
они представляют собой различные направления изменений в со
держании труда технолога. Автоматизированное рабочее место тех~
налога, в состав которого входят микроЭВМ, графическое устрой
ство ввода-вывода и отображения информации, устройство диско
вой памяти, построчно-печатающее устройство, в будущем попол
нится цифратором и графопостроителем. С их помощью можно будет
242
вводить размеры деталей в эвм непосредственно с чертежей и выпол
нять последний этап проектирования технологии - подготовку чер
тежа - автоматически. Можно предположить, что автоматизирован
ные рабочие места со временем будут встроены в автоматизирован
ную систему разработки групповой технологии. Тем самым будет
сделан еще один шаг на пути к заводам-автоматам. Произойдут из
менения в системах автоматизированного проектирования и произ
водства, которые сейчас быстро развиваются. В 1980 г. объем произ
водства вычислительной техники для этих систем равнялся 510 млн.
долл. Темпы роста составили 70 % в год. Правда, по отношению ко
всему объему производства вычислительной техники 510 млн. долл.
могут показаться не слишком большой цифрой, но не следует забы
вать стоимость периферийного оборудования (графические дисплеи,
графопостроители и др.). Ожидается, что к 1990 г. объем производст
ва многократно возрастет. Фактически, любые серьезные изменения
в промышленности Америки сегодня связаны с применением ЭВМ .
Изменятся требования к знаниям и умениям, которыми должен
владеть инженер-технолог. У него появятся новые обязанности. Было
время, когда на должность технолога назначался лучший рабочий
инструментальщик. Такая практика давно изжила себя. Сегодня
инженер-технолог несет ответственность за совершенствование про
изводственных процессов, за подготовку производства к требовани
ям завтрашнего дня. Было сделано много предположений относи
тельно того, каким будет производство в XXI в. Все элементы, не
обходимые для полной автоматизации и создания заводов-автоматов,
уже существуют, и когда это осознаешь, становится не по себе.
Нельзя предсказать будущее, и мы не будем пытаться этого де
лать . Но некоторые обобщения и заключения необходимы.
Для инженера мир будущего будет полон перемен. ЭВМ уже из
менили наш образ жизни и образ мыслей. Некоторые могут сказать,
что эти перемены произошли в ущерб отдельным интересам лич
ности или общества. Но технический прогресс нельзя остановить.
В последнее время задается множество философских вопросов отно
сительно того, куда приведет нас развитие техники и науки, в каком
направлении нам следует двигаться. Высказывается также мысль о
том, что общество может выбрать и другие направления своего раз
вития. Полезно размышлять и обсуждать эти вопросы. Но обсужде
ние заканчивается, как только задают другой вопрос: «Кто сделает
этот выбор?» А между тем технический прогресс все ускоряется.
СПИСОК ЛИТЕРАТУРЫ
К главе 2
2.1 . Horton . Holbrook L . , Editor. Machinery's Handbook. 19th Ed. New
York: Industrial Press. Inc., 1974.
,
2.2 . Jenson. Jon Е., Editor. Forging Jndustry Handbook. 2n.d Ed. Cleve-
land: Forging lndustry Associa.tion. 1970.
•
2 .3 . Valenite Handy Reference. The Valeron Corporation . 1976.
2.4. Vernon. lvan R., Editor. Realistic Cost Estimating for Manufacturing.
Dearborn. MI :Society of Manufacturing Engineers. 1968.
К главе 3
3.1 . К:опz, Stephan. Work, Design. Columbus, ОН: Grid PuЬlishing, !пс.,
1979.
3.2 . Nicks, J. Е. Numerical Control for Profit. DеагЬоп, MI: Society of
Manufactuгing Engineers, 1966.
3.3 . Ostwald, Phillip F., Editoг. Manufacturing Cost Estimating. Dеаг
Ьогп. MI: Society of Manuf actuгing Engineeгs, 1980.
К главе 4
4.1 . Hansen. Beгtгand L. Quality Control Тhеогу & Applications. Englewood
Cliffs. NJ : Pгentice- На!!, Inc., 1963 .
4.2. Hayes, Glenn Е. and Romig. Наrгу G., Моdегп Quality Control.
Bruce - А Divisiщ1 of Benzinger Bruce & Glencoe, !пс., 1977 .
4. 3 . J uran, J . М., Editor -in-Chief. Quality Control Н andbook, 3rd Ed. New
York: Мс Graw Hill Book Со., 1974.
К главе 5
5.1 . Bolten, Steven Е. Managerial Finance, Principlesand Practice . Boston:
Houghton Mifflin Со., 1976.
5.2 . Steffy, Wilbeгt; Smith, Donald N. and Sovter, Donald. Economic
Guidelines fог Justifying Capital Purchases. Апп. Arbor MI: Industrial Develop-
ment Division, Institute of Science and Technology, University of Michigan,
1973.
5.3. White, John А.; Agee, Marvin Н., and Case, К:enneth. Principles of
Engineering Economic Analysis. New York: John Wiley & Sons . 1977 .
К главе 6
6.1 . Hansen, Bertrand L. Quality Control Theory & Applications. Engle-
wood Cliffs, NJ: Prentice - Hall, !пс . , 1963.
6 .2 . Мапп, Lawrence Jr. Applied Engineering Statistics for Practising
Engineers. New York : Barnes & NоЫе, 1970.
6.3 . Mendanhall, Reinmuth. Statistic!J for Management & Economics, 2nd
Ed. Duxbury, 1974.
6.4 . Stockton, John R . and Clark, Charles Т . Jntroduction to Business and
Economic Statistics, 5th Ed. South-Western PuЫishing Company, 1975 .
К г,11аве 7
7.1. Barnes, Ralph М., Motion and Time Study , 6th Ed., New York. John
Wiley & Sons, 1968 .
7.2 . К:onz, Stephan . Work Design. Columbus, ОН. Grid PuЬ!ishing
Company. 1979.
244
7.3. Smith, George I" Jr. Work Measurement, а System Approach . Colum -
bus. ОН. Grid PuЬlishing Company, 1978.
К главе 8
8 . 1 . Dwyer, Thomas А. and Margot Critchfield. BASJC and the Personal
Computer. Philippines: Addison-Wesley PuЬlishing Company, Inc . , 1978.
8.2 . Inman. Don. Introduction to TRS-80 Graphics. Portland, Oregon :
Dilithium Press, 1979.
•
К главе 9
9.1. Radio Shack Disk Operating System, Disk, Basic, TRSDOS & DISK
BASJC Reference Manual, Ft., Worth, ТХ: Radio Shack, А. Division of Tan-
dy Corp., 1979.
К главе 10
10.1. Operating Jnstructions for the 2 АС (Ms920) Single Spindle Chucking
Automatic . Cleveland: Warner & Swasey, 1973.
10 . 2 . Wilson, R.C. and Henry, Robert А. Jntroduction to Group Technology
in Matiufacturing and Engineering. Ann Arbor, MI : Industrial Development
Division, Institute of Science and Technology, University of Michigan. 1977.
К главе 11
11.1. Wilson, _Frank W.,
Editor-in-Chief. Manufacturing Planning and
Esiimating Handbook. Dearborn, MI : Society of Manufacturing Engineers, 1963.
11.2. Wade, Oliver ,R., Tolerance Control in Design and Manufacturing.
New York: Ind.ustrial Press, Inc., 1967.
ПРОИЗВОДСТВЕННОЕ ИЗДАНИЕ
дж. никс
Бейсик:
РЕШЕНИЕ
ПРОИЗВОДСТВЕННЫХ
ЗАДАЧ
Редактор Л . В. Шипов
Художественный редактор С. Н. Голубев
Переплет художника Р. А. Казакова
Технический редактор Н. М . Харитонова
Корректоры О. Е. Мишина, А. П . Сизова
ИБ No 4870
Сдано в набор 23.10 .86. Подписано в печать 27 .01 .87 .
Формат 60Х90 1 / 1 6 . Бумага офсетная No 2. Гарнитура литературная.
Печать офсетная. Усл. печ. л. 15,5 . Усл . кр. - отт. 15,5. Уч. - изд. л. 15,57.
Тираж 25 ООО экз. Заказ 2156. Цена 1 р. 40 к.
Ордена Трудового Красного Знамени
издательство «Машиностроение»,
107i076, Москва, Стромынский пер . , 4
Московская типография No 4 Союзполиграфпрома
при Государственном комитете СССР
по делам издательств, полиграфии и книжной торговли.
129041, Москва, Б. Переяславская, 46
Дж. Нике.
БЕИСИК:
РЕШЕНИЕ ПРОИЗВОДСТВЕННЫХ ЗАДАЧ
УВАЖАЕМЫЙ ЧИТАТЕЛЬ!
Для получения информации о качестве переводных изданий редакция
просит Вас отметить галочкой позиции, соответствующие Вашей оценке
этой книги.
Необходимость издания переводов по
данной теме:
Ф Эффективность книги с точки зрения
о. практического вклада:
,-.
о
:r: Эффективность книги с точки зрения
,s: теоретического вклада:
К:нига соответствует современному уров
ню достижений науки и техники:
Книга сохранит свою актуальность в
течение:
Целесообр~зность издания этой книги
Качество перевода (стиль и терминоло
гия):
О значительная
О незначительная
О высокая
О незначительная
О затрудняюсь ответить
□ высокая
О незначительная
□ затрудняюсь ответить
О в полной мере
О частично
□ слабо
□ не более 1-2 лет
О около 5 лет
□ длительного времени
□ значительная
О незначительная
□ хорошее
□ удовлетворительное
О низкое
247
Название книги соответствует ее содер
жанию:
О в полной мере
О частично
О не соответствует
Не могли бы Вы предложить более верное название?
Т_ираж издания
Не могли бы Вы указать более верный
тираж?
Внешнее оформление книги:
о
о
о
о
о
о
достаточен
недостаточен
затрудняюс ь ответить
.. ..
тыс.экз .
хорошее
удовлетворитель н ое
неудачное
"'
"'
О)
с.
,...
Убедительно просим изложить дополнительные замечания на отдельном 0
листе, в частности, по качеству перевода, разборчивости рисунков, уровню
и объему математического аппарата (если таковой имеется) и проч.
<>:
:,::
:,:
Не могли бы Вы рекомендовать нам темы будущих переводных изда - ::s:
ний по Вашей специальности?
Заполненную анкету просим выслать по адресу:
107076, Москва, Стромынский пер., 4
Издательство «Машиностроение:.
Редакция переводной литературы
Если Вы -желаете получить проспекты лучших новых кни г нашего
издательства, не забудьте указать свой адрес.