Прежде чем переходить к анализу нормативных параметров, остановимся на выборе базового образца. Для того чтобы в полной мере оценить характеристики системы, необходим некоторый опыт работы с ней. В следствии этого для сравнения была выбрана система моделирования GPSS фирмы Minuteman Software, как наиболее доступная для исследования.

Анализируемые параметры следует разделить на параметры, определяемые количественно и параметры определяемые качественно. Т.е. на “жесткие” и “мягкие” параметры.

К жестким параметрам можно отнести:

Распространенность аппаратно-программной платформы.

Продолжительность процесса моделирования.

Масштабируемость системы.

Возможность изменения параметров моделирования в процессе работы.

Мягкими параметрами являются:

Простота обучения работе с системой.

Простота описания изучаемой модели.

Удобный интерфейс.

Ввиду того, что мягкие параметры труднее поддаются количественной характеристике, т.к. отражают субъективное восприятие человеком свойств объекта, их оценка будет производится по 10-ти бальной системе.

Следует отметить, что в виду того, что обе системы написаны для одной и той же аппаратно-программной платформы, сравнивать их по этому параметру не имеет смысла.

Иерархия степени важности параметров, по которым производилась оценка, была установлена в результате опроса пользователей подобных систем. Аналогично были произведены качественные оценки “мягких” параметров.

Сравнительные характеристики системы МИКРОСИМ и GPSS

Расчет сводного параметрических индексов сравниваемых моделей произведем по формуле (2)

Для идеальной, с точки зрения пользователя системы, (на 100% удовлетворяющей его потребностям) сводный параметрический индекс, оцениваемый по данным параметрам равен:

J_{ИДЕАЛЬНОЙ} = 6 + 5 + 4 + 3 + 2 + 1 = 21;

Параметрические индексы для МИКРОСИМА и для GPSS равны соответственно:

J_{МИКРОСИМ} = 6*0,7 + 5*0,6 + 4* 0,6 + 3*0,1 + 2*0,1 +1*0,93 =

= 4,2 + 3 + 2,4 + 0,3 + 0,2 + 0,93 = 11,03;

J_GPSS = 6*0,4 + 5*0,6 + 4*0,3 + 3*0 + 2*0 + 1 = 2,4 + 3 + 1,2 + 1 = 7,2;

Исходя из того, что параметрический индекс идеальной модели равен 21 определим степень удовлетворения потребности покупателя МИКРОСИМ и GPSS, выраженную в процентах:

Для МИКРОСИМ она равна: (11,03 * 100%) / 21 = 52%;

Для GPSS: (7,2 * 100%) / 21 = 34%;

Вычисленные индексы, выраженные в процентах, очень наглядно демонстрируют неоспоримые преимущества системы имитационного моделирования МИКРОСИМ над системой - конкурентом GPSS. Тем не менее, полученные данные говорят о том, что МИКРОСИМ способен удовлетворить потребности пользователей лишь наполовину.

Сравнительные характеристики исследуемых моделей по экономическим параметрам.

Ввиду особенностей эксплуатации ПО, под его экономическими параметрами подразумевается исключительно цена изделия. По причине специфичности изучаемого программного продукта и связанными с этим сложностями выяснения реальной стоимости подобных изделий, ограничимся эмпирической оценкой данного параметра.

На основе рассчитанных параметрических индексов, определим насколько цена МИКРОСИМ может превышать реальную цену GPSS. Для этого дополнительно вычислим приведенный индекс и различия в приведенных индексах.

Приведенный индекс вычисляется по формуле:

И равен соответственно: J_М = (34/52)*100 = 65;

Различие в приведенных параметрических индексах вычисляется по формуле:

И равно соответственно:

J_М = (100 - 65) / 65*100 = 54;

Цена ПС в условиях независимости покупательского предпочтения вычисляется по формуле:

Итак:

Ц_М = [цена системы-конкурента]*(100 + 54) / 100 =

[цена системы-конкурента] * 1,54;

4.5 Заключение

Из вышеприведенных расчетов вытекает, что разработанная в МГИЭТ система МИКРОСИМ вполне способна конкурировать с существующими системами подобного рода. Потенциальная стоимость системы имитационного моделирования МИКРОСИМ на рынке может в 1,54 раза превышать реальную стоимость GPSS.

Тем не менее, МИКРОСИМ нуждается в доработке. Если за основу взять некую систему, удовлетворяющую потребностям потребителя на 100%, то, исходя из тех же расчетов, получим что потенциальная стоимость МИКРОСИМ не должна превышать 0,521 от стоимости “идеальной” системы. Что очевидно и при рассмотрении полученного в результате расчетов сводного параметрического индекса.

Из всех сравниваемых в процессе исследования характеристик, в настоящее время наиболее целесообразно и доступно обратиться к усовершенствовании двух из них:

разработке более удобного интерфейса

создания более простого способа описания модели

Подобные доработки позволили бы увеличить конкурентоспособность МИКРОСИМ на 14%.

Следует отметить, что работы, связанные со второй частью рекомендаций по повышению конкурентоспособности уже были проведены. Разработанный редактор моделей СВПИМ является очень мощным дополнением к МИКРОСИМ. Благодаря данному программному средству процесс описания описание модели значительно упрощается.

Размещено на http://www.allbest.ru/

6. Санитарно - гигиенические условия труда на рабочем месте пользователя ЭВМ

Производственно - экологическая безопасность (ПБ) - это система законодательных актов и норм, направленных на обеспечение безопасности труда и соответствующих этому социально-экономических, организационных, технических и санитарно-гигиенических мероприятий.

ЭВМ в настоящее время являются орудием труда широкого круга пользователей. Нормальная работа пользователей ЭВМ во многом зависит от того, в какой мере условия его работы соответствуют оптимальным. Под условиями работы подразумевают освещение, температуру, влажность и вентиляцию воздуха, шум и вибрацию и т.д.

Обеспечение оптимальных условий труда на рабочем месте пользователя ЭВМ направлено на снижение уровня утомляемости пользователя.

Целью данного раздела является анализ условий труда пользователей ЭВМ и описание основных методов нейтрализации опасных и вредных факторов.

6.2 Неблагоприятные факторы

Работа за дисплеем ЭВМ объективно связана с воздействием следующих неблагоприятных для здоровья человека факторов:

пробой высоковольтного напряжения на незащищенные токоведущие участки;

поражение электрическим током питающей сети;

повышенный уровень шумов и вибраций;

проникающее излучение электронно-лучевой трубки;

нерациональное освещение;

неблагоприятный микроклимат (избыток тепла);

психофизиологические факторы.

Первые два фактора не являются источниками постоянно действующей опасности. Защита от них гарантируется тщательным соблюдением правил техники безопасности при эксплуатации ЭВМ.

Остальные факторы относятся к источникам постоянной опасности. Их действие сказывается при каждодневной работе.

6.3 Электроопасность и пожароопасность

Источниками электроопасности в помещении для работы с ЭВМ являются блоки ЭВМ, корпус устройства и приборы в случае возникновения неисправности (например, при нарушении защитного заземления, изоляции проводов, применении неправильных приемов включения в сеть и выключения из сети вилок электропитания).

Источниками пожароопасности являются устройства ЭВМ, измерительные устройства при возникновении перегрузок цепей питания и неисправностей в виде короткого замыкания.

Защитой от прикосновения к токоведущим частям электроустановок служат изоляция проводников, использование защитных кожухов, а также инструмента с изолирующими ручками при ремонте оборудования ЭВМ.

Защитой от напряжения, появляющегося на корпусах электроустановок в результате нарушения изоляции, являются защитное заземление, зануление и защитное отключение.

Важным организационным мероприятием является проведение инструктажа по электро - и пожароопасности всех лиц, допущенных к работе на ЭВМ. При проведении противопожарных инструктажей необходимо добиваться, чтобы персонал практически умел пользоваться первичными средствами тушения пожара и средствами связи.

Для тушения пожара применяются ручные огнетушители и переносные установки. На предприятиях электронной промышленности широко применяются пенные огнетушители ОП-3,ОП-5, а также ОХП-10. Электросети и электроустановки находятся под напряжением, тушить водой их нельзя, так как через струю воды может произойти поражение электрическим током. Именно поэтому для тушения пожара, возникшего из-за неисправности электроприборов, применяются пенные огнетушители.

Возможность быстрой ликвидации пожара во многом зависит от своевременного оповещения о пожаре. Весьма распространенным средством связи является телефонная сеть.

6.4 Шумы и вибрации

Источниками шума и вибрации, в основном, являются подвижные части печатающих устройств и дисководов. Шум неблагоприятно действует на организм человека, вызывая различные физиологические отклонения в организме, психологические заболевания и снижает работоспособность. Утомление пользователей и операторов ЭВМ из-за шума увеличивает число ошибок при работе, способствует возникновению травм.

Шум - это совокупность звуков различной частоты и интенсивности. Характеристикой шума с точки зрения физиологического восприятия является понятие "громкость шума". Количественную оценку уровня громкости шума различных источников проводят путем сравнения с шумом на частоте 1000 Гц, для которого уровень силы принят равным уровню громкости. При этом для измерения уровня громкости шума введена единица в 1 фон. За один фон принят уровень громкости шума с частотой 1000 Гц при уровне силы шума 1 дб.

ГОСТ 12.1.003-83 "Шум, общие требования безопасности" устанавливает, что уровень звука на рабочем месте (в том числе при работе на ЭВМ) не должен превышать 50 дБ.

Основными мероприятиями по борьбе с шумом и вибрацией являются:

- Облицовка залов ЭВМ шумопоглащающей плиткой;

- использование различных шумоуловителей;

- размещение устройств на резиновых прокладках и амортизаторах.

6.5 Микроклимат

Большое значение для обслуживающего персонала и правильной эксплуатации вычислительной техники имеют соблюдение температурного режима и уровня влажности воздуха.

Согласно ГОСТ 12.1.005-88 оптимальными условиями являются :

температура 20-22 С и влажность 55-60%.

Мероприятиями по поддержания этих условий в залах с ЭВМ, где происходит значительное тепловыделение работающими устройствами, являются необходимость применять кондиционирование воздуха. В периоды выходных и праздничных дней, когда отсутствуют естественные тепловыделения, должно быть предусмотрено, особенно в зимнее время, искусственное поддержание температуры воздуха в вычислительном центре.

В соответствии с требованиями СН 245-71 определенные ограничения предъявляются и к размеру помещений. Так, объем производственных помещений на одного работающего должен составлять не менее 15 куб.м, а площадь - не менее 4.5 кв.м.

6.6 Освещенность

Одним из основных видов работ, выполняемых на вычислительном центре, является работа за дисплеем ЭВМ. Этот вид работ характеризуется тем, что требует от программиста или оператора постоянного внимания.

Недостаток или избыток освещения на рабочем месте может привести к быстрому утомлению, появлению головной боли, падению производительности труда, росту числа ошибок, а при систематическом нарушении режима освещенности - к нарушению зрения.

Правильно спроектированное и выполненное производственное освещение повышает производительность труда, оказывает благоприятное психологическое воздействие, повышает безопасность труда и не вредит здоровью программиста.

В дисплейном зале освещение должно быть совместное - естественное (боковое, через окна в наружных стенах) и искусственное - и соответствовать требованиям СНиП 4-79. По конструктивному исполнению искусственное освещение может быть двух видов - общее и комбинированное, когда к общему освещению добавляется местное. В большинстве случаев достаточно иметь общее искусственное освещение (лампы местного освещения могут быть использованы, например, при контроле работ графопостроителя или печатающего устройства).

Общее освещение подразделяется на общее равномерное (без учета расположения оборудования вычислительной техники) и общее локализованное освещение. Для дисплейного класса выбирают общее равномерное освещение. Величина минимальной освещенности устанавливается согласно условиям зрительной работы, которые определяются наименьшими размерами объекта различения, контрастом объекта с фоном и характеристиками фона.

Вид работ в дисплейном классе относится к высокой точности (размер объекта от 0.5 до 1.0 мм , контраст объекта с фоном - малый, фон - темный). Наименьшая необходимая освещенность при этом равна 300 лк.

При работе с ЭВМ помнить о следующем:

прежде чем начинать работу на ЭВМ необходимо пройти всестороннее обследование у окулиста;

терминал не должен быть обращен экраном к окну, так как интенсивная освещенность поля зрения может затопить глаза потоками света и размыть изображение оригинала на сетчатке;

уровень освещенности рабочего места должен составлять 2/3 от нормальной освещенности служебных помещений и составлять не менее 250 лк;

необходима оптимальная направленность светового потока. Свет должен падать под углом 60 градусов к ее нормали;

состав света должен быть оптимальным, т.е. естественное освещение плюс искусственный источник со спектральной характеристикой, близкой к солнечной;

осветительная установка не должна быть источником дополнительной опасности;

избавляться от бликов можно при помощи штор, занавесок или жалюзей, ограничивающих световой поток;

стена или какая-нибудь другая поверхность сзади программиста должна быть освещена также как и экран;

если нельзя избавиться от бликов, то необходимо пользоваться специальными фильтрами для экрана.

6.7 Расчет искусственного освещения

Для расчета искусственного освещения воспользуемся методом использования светового потока. Основное уравнение этого метода:

где :

Eн - нормированная минимальная освещенность (лк);

S - площадь освещаемого помещения (кв м);

Z - коэффициент минимальной освещенности, равный

отношению Eср/Eмин (значение его находится в

пределах 1.1-1.5);

K - коэффициент запаса;

N - число светильников помещения;

n - коэффициент использования светового потока лампы;

F - световой поток группы ламп (лм).

Для определения n необходимо подсчитать индекс помещений по формуле:

где :

A,B - два характерных размера помещения;

H - высота светильников над рабочим местом.

В дисплейном зале, где проводилась работа над темой данного дипломного проекта, эти величины имеют следующие значения:

A = 8 м,

B = 4 м,

H = 3 м.

Из таблиц для полученного I и светильников с люминесцентными лампами находим:

K = 1.4

n = 0.36 (p(n) = 50%, p(с) = 30%).

где :

H - высота подвеса светильников (H = 3м).

Для освещения лаборатории используются люминесцентные лампы ЛБ40 со световым потоком F равным 3120 лм.

Зная световой поток одного светильника, по приведенной выше формуле находим необходимое количество светильников:

шт.

После округления получим, что число светильников N = 6 шт. При этом Eн = 300 лк и S = A * B = 24 кв м. Учтем при этом, что в светильнике находятся две лампы.

Для расчета примем, что освещение дисплейного класса равномерное. Тогда расстояние между светильниками (L) должно соответствовать оптимальным значениям : L = 4м.

Если же теперь, зная число светильников рассчитать световой поток, то получается F = 2750 лм

На практике допускается отклонение светового потока лампы от расчетного значения на 10-20%. В данном случае отклонение светового потока лампы от расчетного составляет

что лежит в пределах допустимого.

Подсчитаем фактическое значение минимальной освещенности рабочей поверхности с учетом выбранной лампы :

лк

Воздействие статического электричества и излучения

Для предотвращения образования и защиты от статического электричества в помещениях ВЦ необходимо использовать нейтрализаторы и увлажнители, а полы должны иметь антистатическое покрытие. Защита от статического электричества должна проводиться в соответствии с санитарно-гигиеническими нормами допускаемой напряженности электрического поля. Допускаемые уровни напряженности электростатических полей не должны превышать 20кВ в течении 1 часа (ГОСТ 12.1045-84).

Спектр излучения компьютерного монитора включает в себя рентгеновскую, ультрафиолетовую и инфракрасную область, а также широкий диапазон электромагнитных волн других частот.

От рентгеновских лучей опасности практически нет, так как они практически полностью поглощаются веществом экрана. Наибольшую опасность представляют биологические эффекты низкочастотных электромагнитных полей, которые до настоящего времени считались абсолютно безвредными. Однако недавно в ряде экспериментов было обнаружено, что электромагнитные поля с частотой 60 Гц могут инициировать биологические сдвиги (вплоть до нарушения синтеза ДНК) в клетках животных. В отличие от рентгеновских лучей электромагнитные волны обладают необычным свойством - опасность их воздействия не обязательно уменьшается с уменьшением интенсивности облучения; определенные электромагнитные волны действуют на клетку лишь при малых интенсивностях излучения или в конкретных частотах - окнах прозрачности.

Поскольку источник высокочастотного напряжения компьютера строчный трансформатор - помещается в задней или боковой части терминала, уровень излучения со стороны задней панели дисплея выше, причем стенки корпуса не экранируют излучения.

Мерами безопасности являются требования к пользователям, находиться не ближе чем 1.2 м от задних или боковых поверхностей соседних терминалов. Ряд специалистов рекомендует сидеть на расстоянии 70 см от экрана дисплея - однако в этом случае необходима консультация с окулистом. Рекомендуется устанавливать на экран монитора защитные фильтры, которые частично экранируют магнитные поля, а также устраняют статические поля.

6.8 Организационные мероприятия по созданию условий безопасного труда

Каждого вновь принятого на работу программиста или оператора инструктируют. Степень усвоения инструкции проверяется комиссией. Инструктаж на рабочем месте проверяется один раз в квартал. Оператор ЭВМ должен иметь группу 1 квалификации по электробезопасности.

Обслуживающий ЭВМ персонал должен обладать достаточными знаниями электроники и правил эксплуатации ЭВМ.

Обязательно ведение книги приема и сдачи смен, в которой отмечаются неисправности и способы их устранения. Перед началом смены рекомендуется проводить ежедневное технологическое тестирование основных блоков ЭВМ с использованием аппаратных и программных средств диагностики.

К работе на ЭВМ допускаются лица, прошедшие медицинский осмотр при приеме на работу. Последующие осмотры проводятся один раз в два года.

Обязательно проведение ежедневной уборки помещений, поддержание необходимых климатических условий.

6.9 Психофизиологические факторы

В современных условиях труд программиста изменился в таком направлении, что доля физических усилий сокращается, в то время как нагрузка на психику возрастает.

К психофизиологическим факторам относятся физические и нервно-психические нагрузки. Физические нагрузки, в основном, связаны с малой подвижностью на рабочем месте, что взывает гиподинамию - недостаточную мышечную активность. Для снятия напряжений такого рода необходимо после 1.5-2 часов работы делать перерыв, заниматься производственной гимнастикой.

Наряду с этим, профессия программиста требует высокого нервно-психического и нервно-эмоционального напряжения. Возникает проблема создания такой техники и производственной среды для человека, которая соответствовала бы его анатомофизиологическим и психологическим особенностям. При работе на ЭВМ рекомендуется находиться за экраном дисплея не более 3-х часов в сутки. Разумное чередование работы и отдыха позволяет человеку вести активную творческую жизнь.

6.10 Выводы

В этой главе дипломного проекта рассмотрены требования охраны труда и разработаны рекомендации по оптимизации санитарно-гигиенической обстановки при выполнении работ на ЭВМ.

Установлено, что уровень шума на рабочем месте не должен превышать 50 дб, объем производственного помещения на одного работающего должен составлять не более 15 куб.м, площадь - не менее 4.5 кв.м, наименьшая допустимая освещенность - 300 лк.

Показана важность и необходимость организационных и санитарно-профилактических мероприятий по созданию условий безопасного труда.

В данной главе был проведен расчет искусственного освещения и подсчитано фактическое значение минимальной освещенности дисплейного класса - 300 лк.

Вопросы экологической безопасности не рассматривались, т.к. работа с ЭВМ не связана с использованием природных ресурсов и не представляет опасности для окружающей среды.

Используемая литература

[1]. МИКРОСИМ, “Система Е-сетевого имитационного моделирования. Концепция и возможности”. Москва: МИЭТ, 1994 г.

[2]. МИКРОСИМ, “Система Е-сетевого имитационного моделирования. Описание языка”. Москва: МИЭТ, 1995 г.

[3]. МИКРОСИМ, “Система Е-сетевого имитационного моделирования. Руководство пользователя”. Москва: МИЭТ, 1994 г.

[4]. Джон Матчо, Дэвид Р. Фолкнер, “DELPHI”. Binom, 1995 г.

[5]. А. Федоров, “Создание Windows - приложений в среде Delphi”. Москва, компьютер пресс, 1995 г.

[6]. Моисеева Н.К., Костина Г.Д. “Маркетинговые исследования при создании и использовании программных продуктов. Методические указания для выполнения курсовых и дипломных работ по специальности «Менеджмент»”. Москва, 1996 г.

[7]. Ф. Котлер, “Основы маркетинга”, Москва, Ростинтер, 1996 г.

[8] Константинова Л.А. Ларионов Н.М., Писеев В.М., "Методические указания по выполнению раздела "Охрана труда" в дипломном проекте для студентов". М: МИЭТ 1988 г.

[9]. Константинова Л.А. Ларионов Н.М., Писеев В.М., "Методы и средства обеспечения безопасности технологических процессов на предприятиях электронной промышленности". Москва: МИЭТ 1990 г.

[10]. Долин П.А., ”Справочник по технике безопасности” .Энергоатомиздат 1984 г.

Приложение А

procedure TMainForm.SpeedButtonModelierenClick(Sender: TObject);

label konets,konets1;

type

OneLine= Record

Segment: string;

Perehod: string;

Ttime: real;

Ddelay: real;

FromPos: String;

FromCount: integer;

ToPos: string;

ToCount:integer;

end;

var

TransitionList:TList;

OneRec,one1rec: OneLine;

POneRec: ^OneLine;

F: TextFile;

S,segm,perehod,inputpos,outpos,timestr,timeunit, delaystr, delayunit: string;

i,j,m,prevpos,tmppos,inputfish, outfish, timme, delay:integer;

enablearr:array[1..15] of boolean;

OldNet:TNetObj;

OldPos:TPosObj;

k,tiime:extended;

sr:TSearchRec;

found,found1,result:integer;

dl:char;

dir,per:string;

begin

ModelNameRequest.ShowModal;

if ModelNameRequest.ModalResult<>mrOk then

begin

// SpeedButtonModelieren.Enabled:=true;

exit;

end;

found1:=1;

dir:='';

for dl:='c' to 'z' do

if findfirst(uppercase(dl+':\microsim\bin'),faAnyFile,sr)=0 then

begin

dir:=dl+':\microsim\bin\';

found1:=0;

break;

end;

SysUtils.FindClose(sr);

AssignFile(F, dir+ModelNameRequest.Edit1.Text+'.log');

Reset(F);

SpeedButtonModelieren.Visible:=false;

SpeedButtonStop.Visible:=true;

DecimalSeparator:='.';

TransitionList:=TList.Create;

breakModelieren:=false;

Readln(F, S);

Readln(F, S);

while not(EOF(F)) do

begin

Readln(F, S);

new(POneRec);

OneRec.segment:=s[1];

delete(S,1,1);

prevpos:=pos(' ',s);

while (pos(' ',s)-prevpos)=0 do

begin

tmppos:=pos(' ',s);

delete(S,pos(' ',s),1);

prevpos:=tmppos;

end;

OneRec.perehod:=copy(S,1,(pos(' ',s)-prevpos));

delete(s,1,pos(' ',s)-prevpos);

prevpos:=pos(' ',s);

while (pos(' ',s)-prevpos)=0 do

begin

tmppos:=pos(' ',s);

delete(S,pos(' ',s),1);

prevpos:=tmppos;

end;

OneRec.Ttime:=strtofloat(copy(S,1,pos(' ',s)-prevpos));

delete(s,1,pos(' ',s)-prevpos);

prevpos:=pos(' ',s);

while (pos(' ',s)-prevpos)=0 do

begin

tmppos:=pos(' ',s);

delete(S,pos(' ',s),1);

prevpos:=tmppos;

end;

// timeunit:=copy(S,1,pos(' ',s)-prevpos);

delete(s,1,pos(' ',s)-prevpos);

prevpos:=pos(' ',s);

while (pos(' ',s)-prevpos)=0 do

begin

tmppos:=pos(' ',s);

delete(S,pos(' ',s),1);

prevpos:=tmppos;

end;

OneRec.Ddelay:=strtofloat(copy(S,1,pos(' ',s)-prevpos));

delete(s,1,pos(' ',s)-prevpos);

prevpos:=pos(' ',s);

while (pos(' ',s)-prevpos)=0 do

begin

tmppos:=pos(' ',s);

delete(S,pos(' ',s),1);

prevpos:=tmppos;

end;

// delayunit:=copy(S,1,pos(' ',s)-prevpos);

delete(s,1,pos(' ',s)-prevpos);

prevpos:=pos(' ',s);

while (pos(' ',s)-prevpos)=0 do

begin

tmppos:=pos(' ',s);

delete(S,pos(' ',s),1);

prevpos:=tmppos;

end;

OneRec.FromPos:=copy(S,1,pos(' ',s)-prevpos);

delete(s,1,pos(' ',s)-prevpos);

prevpos:=pos(' ',s);

while (pos(' ',s)-prevpos)=0 do

begin

tmppos:=pos(' ',s);

delete(S,pos(' ',s),1);

prevpos:=tmppos;

end;

OneRec.FromCount:=strtoint(copy(S,1,pos(' ',s)-prevpos));

delete(s,1,pos(' ',s)-prevpos);

prevpos:=pos(' ',s);

while (pos(' ',s)-prevpos)=0 do

begin

tmppos:=pos(' ',s);

delete(S,pos(' ',s),1);

prevpos:=tmppos;

end;

OneRec.ToPos:=copy(S,1,pos(' ',s)-prevpos);

delete(s,1,pos(' ',s)-prevpos);

prevpos:=pos(' ',s);

while (pos(' ',s)-prevpos)=0 do

begin

tmppos:=pos(' ',s);

delete(S,pos(' ',s),1);

prevpos:=tmppos;

end;

OneRec.ToCount:=strtoint(copy(S,1,length(s))); //last word

delete(s,1,pos(' ',s)-prevpos);

POneRec^:=OneRec;

TransitionList.Add(POneRec);

Application.ProcessMessages;

if breakModelieren then begin

CloseFile(F);

goto konets;

end;

end;

CloseFile(F);

for j:=0 to (ActiveMDIChild as TChildForm).GraphSegm.ListPos.Count-1 do

begin

TPosObj((ActiveMDIChild as TChildForm).GraphSegm.ListPos.Items[j]).NumPoints:=0;

TPosObj((ActiveMDIChild as TChildForm).GraphSegm.ListPos.Items[j]).ResetCurrent;

end;

for j:=0 to (ActiveMDIChild as TChildForm).GraphSegm.ListNet.Count-1 do

TNETObj((ActiveMDIChild as TChildForm).GraphSegm.ListNet.Items[j]).resetpassed;

//start points

for i:=0 to TransitionList.Count -1 do

begin

if (OneLine(TransitionList.Items[i]^). Ttime -OneLine(TransitionList.Items[i]^).Ddelay) = 0 then

begin

for j:=0 to (ActiveMDIChild as TChildForm).GraphSegm.ListPos.Count-1 do

begin

if TPosObj((ActiveMDIChild as TChildForm).GraphSegm.ListPos.Items[j]).GetObjectNameNum=OneLine(TransitionList.Items[i]^).FromPos then

begin

TPosObj((ActiveMDIChild as TChildForm).GraphSegm.ListPos.Items[j]).setcurrent;

(ActiveMDIChild as TChildForm).GraphSegm.paint;

end;

end;

//====

for j:=0 to (ActiveMDIChild as TChildForm).GraphSegm.ListNet.Count-1 do

begin

for m:=i+1 to TransitionList.Count -1 do

begin

if (OneLine(TransitionList.Items[m]^).ToPos)=OneLine(TransitionList.Items[i]^).FromPos then

begin

per:=OneLine(TransitionList.Items[m]^).Perehod;

break;

end;

end;

if TNetObj((ActiveMDIChild as TChildForm).GraphSegm.ListNet.Items[j]).GetObjectNameNum=OneLine(TransitionList.Items[i]^).Perehod then//per then

begin

TNetObj((ActiveMDIChild as TChildForm).GraphSegm.ListNet.Items[j]).setpassed;

(ActiveMDIChild as TChildForm).GraphSegm.paint;

end;

end;

//====

end;

end;

//delay

k:=0;

while k<119999 do

begin

k:=k+1;

application.processmessages;

if breakmodelieren then goto konets;

end;

i:=0;

while i< TransitionList.Count -1 do

begin

k:=0;

while k<OneLine(TransitionList.Items[i]^).Ddelay*29999 do

begin

k:=k+1;

application.processmessages;

if breakmodelieren then goto konets;

end;

tiime:=(OneLine(TransitionList.Items[i]^).Ttime);

StatusLine.SimpleText:='Current modeling time: '+floattostr(tiime);

while (OneLine(TransitionList.Items[i]^).Ttime) = tiime do

begin

k:=0;

while k<99999 do

begin

k:=k+1;

application.processmessages;

if breakmodelieren then goto konets;

end;

application.processmessages;

for j:=0 to (ActiveMDIChild as TChildForm).GraphSegm.ListPos.Count-1 do

begin

if TPosObj((ActiveMDIChild as TChildForm).GraphSegm.ListPos.Items[j]).GetObjectNameNum=OneLine(TransitionList.Items[i]^).FromPos then

begin

if TPosObj((ActiveMDIChild as TChildForm).GraphSegm.ListPos.Items[j]).TypePos=QPos then

TPosObj((ActiveMDIChild as TChildForm).GraphSegm.ListPos.Items[j]).removepoint;

if TPosObj((ActiveMDIChild as TChildForm).GraphSegm.ListPos.Items[j]).NumPoints=0 then

TPosObj((ActiveMDIChild as TChildForm).GraphSegm.ListPos.Items[j]).resetcurrent;

(ActiveMDIChild as TChildForm).GraphSegm.paint;

end;

if TPosObj((ActiveMDIChild as TChildForm).GraphSegm.ListPos.Items[j]).GetObjectNameNum=OneLine(TransitionList.Items[i]^).ToPos then

begin

TPosObj((ActiveMDIChild as TChildForm).GraphSegm.ListPos.Items[j]).setcurrent;

if TPosObj((ActiveMDIChild as TChildForm).GraphSegm.ListPos.Items[j]).TypePos=QPos then

TPosObj((ActiveMDIChild as TChildForm).GraphSegm.ListPos.Items[j]).addpoint;

(ActiveMDIChild as TChildForm).GraphSegm.paint;

end;

end;

for j:=0 to (ActiveMDIChild as TChildForm).GraphSegm.ListNet.Count-1 do

begin

for m:=i+1 to TransitionList.Count -1 do

begin

if (OneLine(TransitionList.Items[m]^).FromPos)=OneLine(TransitionList.Items[i]^).ToPos then

begin

per:=OneLine(TransitionList.Items[m]^).Perehod;

break;

end;

end;

if TNetObj((ActiveMDIChild as TChildForm).GraphSegm.ListNet.Items[j]).GetObjectNameNum=per then

begin

TNetObj((ActiveMDIChild as TChildForm).GraphSegm.ListNet.Items[j]).setpassed;

(ActiveMDIChild as TChildForm).GraphSegm.paint;

end;

if TNetObj((ActiveMDIChild as TChildForm).GraphSegm.ListNet.Items[j]).GetObjectNameNum=OneLine(TransitionList.Items[i]^).Perehod then

begin

for m:=0 to (ActiveMDIChild as TChildForm).GraphSegm.ListPos.Count-1 do

if TPosObj((ActiveMDIChild as TChildForm).GraphSegm.ListPos.Items[m]).GetObjectNameNum=OneLine(TransitionList.Items[i]^).FromPos then

if (TPosObj((ActiveMDIChild as TChildForm).GraphSegm.ListPos.Items[m]).TypePos<>QPos) or

(TPosObj((ActiveMDIChild as TChildForm).GraphSegm.ListPos.Items[m]).numpoints=0) then

TNetObj((ActiveMDIChild as TChildForm).GraphSegm.ListNet.Items[j]).resetpassed;

(ActiveMDIChild as TChildForm).GraphSegm.paint;

end;

end;

inc(i);

end;

//

end;

{ for j:=0 to (ActiveMDIChild as TChildForm).GraphSegm.ListNet.Count-1 do

begin

if TNetObj((ActiveMDIChild as TChildForm).GraphSegm.ListNet.Items[j]).GetObjectNameNum=perehod then

begin

if OldNet<>nil then OldNet.ResetPassed;

TNetObj((ActiveMDIChild as TChildForm).GraphSegm.ListNet.Items[j]).setpassed;

OldNet:=TNetObj((ActiveMDIChild as TChildForm).GraphSegm.ListNet.Items[j]);

(ActiveMDIChild as TChildForm).GraphSegm.paint;

end;

showmessage(TNetObj((ActiveMDIChild as TChildForm).GraphSegm.ListNet.Items[j]).GetObjectNameNum+' '+inttostr((ActiveMDIChild as TChildForm).GraphSegm.ListNet.Count));

end;

// showmessage('#'+segm+'# #'+perehod+'# #'+timestr+'# #'+timeunit+'# #'+delaystr+'# #'+delayunit+'# #'+inputpos+'# #'+inttostr(inputfish)+'# #'+outpos+'# #'+inttostr(outfish)+'#');

}

konets:

TransitionList.free;

if messagedlg('Удалить '+ModelNameRequest.Edit1.Text+'.log?', mtConfirmation,

[mbYEs,mbNo], 0)=mrOk then DeleteFile(pchar(dir+ModelNameRequest.Edit1.Text+'.log'));

SpeedButtonModelieren.Visible:=true;

SpeedButtonStop.Visible:=false;

end;

procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

// if key=VK_ESCAPE then breakModelieren:=true;

end;

procedure TMainForm.SpeedButtonStopClick(Sender: TObject);

begin

breakmodelieren:=true;

end;

Размещено на Allbest.ru