Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Никифоров А.Д. - Метрология, стандартизация и с...docx
Скачиваний:
0
Добавлен:
01.04.2025
Размер:
913.75 Кб
Скачать
  • Какую оценку экономической эффективности качества продукции проводят в условиях свободного ценообразования в условиях рыночной экономики?

    Пр"р' = та х(Р(в) - С(0)) * тах(Р(0 - S(Q)).

    Контрольные вопросы


    СЛОВАРЬ ТЕРМИНОВ

    Адаптация — приспособление системы к фактическим условиям.

    Аккредитация — официальное признание того, что испытательная лаборатория осуществляет конкретные испытания или конкретные типы испытаний.

    Это определение введено руководством ИСО/МЭК 2-1983 «Общие термины и опре­деления в области стандартизации и смежных видов деятельности».

    Аккредитованная лаборатория — испытательная лаборатория, прошедшая аккре­дитацию.

    Аккредитующий орган — орган, который управляет системой аккредитации и про­водит аккредитацию организаций, являющихся объектами аккредитации.

    Аттестат аккредитации — документ, выданный аккредитующим органом и регист­рирующий факт официального признания компетентности организации в определенной области деятельности.

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

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

    Аудит — проверка соблюдения (выполнения) правовых норм.

    Безопасность — отсутствие недопустимого риска, связанного с возможностью на­несения ущерба.

    Введение классификатора — комплекс работ, направленных на своевременное внесение изменений во все документы с ним связанные, доведение этих изменений до пользователей. Работы по ведению координирует Госстандарт РФ.

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

    Генезис — происхождение, возникновение; процесс образования.

    Государственный реестр систем сертификации — официальный перечень зареги­стрированных систем сертификации.

    Декларация о соответствии — декларация поставщика о том, что продукция, про­цесс или услуга соответствуют конкретному стандарту или другому нормативному доку­менту.

    Защита продукта — сохранность продукции в условиях воздействия климатиче­ских или других неблагоприятных факторов при ее использовании, транспортировке или хранении.

    Заявитель — предприятие либо организация, обратившиеся с заявкой на проведе­ние аккредитации или сертификации.

    406

    Закон соответствия — зарегистрированный в законодательном порядке сертифика­ционный знак, используемый согласно порядку сертификации третьей стороной для про­дукции (услуги), находящейся в полном соответствии с требованиями нормативного до­кумента, применяемого при сертификации.

    Идентификация — процедура, посредством которой устанавливается соответствие продукции требованиям, которые предъявляются к ней в нормативных или информаци­онных документах.

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

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

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

    Классификатор — систематизированный свод наименований классификационных классов, подклассов, видов и их кодовых обозначений. Для идентификации объектов и использования в качестве единого языка общения производителей и потребителей про­дукции и услуг вводят кодирование технико-экономической информации.

    Комплекс — совокупность объектов стандартизации, составляющих одно целое.

    Качество — совокупность свойств продукции, обусловливающих ее пригодность удовлетворить определенным потребностям в соответствии с ее назначением. Эти свой­ства делят на свойства потребительские, основной и вспомогательной функции изделия.

    Квалификационные испытания — метод оценки работы лаборатории путем про­ведения параллельных таких же испытаний в другой аналогичной лаборатории (межла- бораторных испытаний).

    Консенсус — согласие, характеризующееся отсутствием возражений по существен­ным вопросам в процессе принятия нормативного документа (стандарта) у большинства заинтересованных сторон. Консенсус не предполагает полного единодушия.

    Кибернетическая система — система, состоящая из множества взаимосвязанных объектов, способных воспринимать, запоминать и перерабатывать информацию, а также обмениваться ею.

    Квалиметрия — научная область, объединяющая количественные методы оцен­ки качества, используемые для обоснования решений, принимаемых при управлении качеством продукции и стандартизации. Основные задачи квалиметрии — опреде­лить номенклатуру необходимых показателей качества изделий и их оптимальные значения.

    Контролирующий орган (для сертификации) — орган, осуществляющий по пору­чению органа по сертификации инспектирующую деятельность.

    Контроль технический — проверка соответствия продукции или процесса, от кото­рого зависит качество продукции, установленным техническим условиям.

    Критерий — основа оценки эффективности стандартизации, позволяющая избежать субъективных подходов.

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

    Концепция — система взглядов в явлениях стандартизации.

    Лицензия (для стандартизации) (сертификационная лицензия) — документ, из­данный в соответствии с правилами системы сертификации, посредством которого орган

    407

    по сертификации наделяет лицо или орган правом использовать сертификаты или знаки соответствия для своей продукции, процессов или услуг согласно правилам соответству­ющей системы сертификации.

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

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

    Метод измерений — сочетание принципов и средств измерений, соответствующих выбранному принципу.

    Метод испытаний — установленные технические правила проведения испытаний.

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

    Математическая статистика — раздел математики, посвященный математическим методам систематизации, обработки и использования статистических данных для науч­ных и практических выводов. В стандартизации и сертификации часто применяют стати­стические методы оценки качества. Для этого созданы многочисленные стандарты — отечественные и международные ИСО. Широко используется в процессах управления производством.

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

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

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

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

    Орган по аккредитации (лабораторий) — орган, который управляет системой аккредитации лабораторий и проводит аккредитацию.

    Орган по сертификации — орган, проводящий сертификацию соответствия.

    Охрана окружающей среды — защита среды обитания от неблагоприятного воз­действия продукции, процессов и услуг.

    408

    Оценка соответствия — любая процедура, прямо или косвенно используемая для определения соответствия продукции требованиям технических регламентов или стан­дартов. Наиболее часто соответствие подтверждается сертификацией. К процедуре оцен­ки соответствия могут быть отнесены: отбор проб, испытания, контроль, регистрация, аккредитация, утверждение (принятие), а также их сочетание.

    Область аккредитации — один вид работы или несколько видов, на выполнение которых аккредитована конкретная организация.

    Оптимизация требований стандартов связана с оптимизацией объектов стандарти­зации и для ее реализации применяют методы оптимизации параметров объектов стан­дартизации (ПОС). Важность проведения оптимизации для народного хозяйства опреде­лила целесообразность выделения ее методов в отдельную систему — систему оптими­зации параметров объектов стандартизации (СОПОС).

    Объект стандартизации в машиностроении — обычно называют предмет стан­дартизации на промышленную продукцию, технические условия, качество продукции, моделирование функциональных структур, технические объекты, для которых разраба­тывают стандарты, те или иные требования, характеристики, параметры, правила и т.п.

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

    Поставщик — сторона, несущая ответственность за продукцию, процесс или услу­гу и способная продемонстрировать свои возможности по обеспечению качества. Это определение применимо к изготовителям, оптовикам, импортерам, монтажным организа­циям, службам сервиса и т. д.

    Потребитель — получатель продукции, предоставляемой поставщиком.

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

    Проверка (лаборатории) на качество проведения испытаний — установление способности данной лаборатории проводить испытания посредством межлабораторных сравнительных испытаний.

    Протокол испытаний — документ, содержащий результаты испытаний и другую информацию, относящуюся к испытаниям.

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

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

    Сертификат соответствия — документ, изданный в соответствии с правилами сис­темы сертификации. Подтверждает полное соответствие продукции, процесса или услу­ги конкретному стандарту или другому нормативному документу.

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

    27—4523 409

    Система управления качеством продукции — совокупность управляющих орга­нов и объектов управления, взаимодействующих с помощью материально-технических и информационных средств при управлении качеством продукции.

    Стандартизация и сертификация — состоит во взаимосвязи их действий. Стан­дартизация устанавливает требования к объекту, а сертификация определяет соответст­вие объекта этим требованиям. Комплекс документов системы сертификации ГОСТ Р состоит из четырех групп: общесистемные положения, сертификация продукции, сер­тификация услуг, сертификация систем качества и производств. Каждая группа докумен­тов содержит основополагающие документы и документы, развивающие их отдельные положения.

    Стандарт применения — охватывает следующие основные виды работ: разработка из­делий и товаров с назначением показателей качества и технические условия; разрабопса производств, изготовление, монтаж и эксплуатация; сертификация; аттестация рабочих мест; экспертиза контрактов; авторский надзор; лицензирование; типизация; нормализация.

    Стандарт разработки — включает факторы: причина разработки, участники разра­ботки, технический уровень требований, процедура разработки, методы классификации объектов, авторские права разработчика стандарта.

    Система сертификации — система, располагающая собственными правилами про­цедуры проведения сертификации соответствия и управления им.

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

    Сертификационный центр — юридическое лицо, уполномоченное одновременно выполнять функции органа по сертификации и испытательной лаборатории.

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

    Стандартизация отклонений поверхностей деталей машин — распространяется на точность расположения и точность составляющих рельефа поверхности (шерохова­тость поверхности, волнистость поверхности, отклонения формы). Отклонения составля­ющих рельефа поверхности условно характеризуют отношением шага Р к высоте релье­фа. т. е. P/R. из них шероховатость поверхности (микрогеометрия) — P/R < 50; волни­стость поверхности — 50 < P/R< 1000; отклонения формы (макрогеометрия) — P/R> 1000.

    Система стандартизации — множество элементов, находящихся в отношениях и связях друг с другом, которое образует определенную целостность, единство. Исследо­вание и конструирование систем проводится в рамках системного подхода.

    Система техническая — комплекс, отражающий преобразования и связи объекта стандартизации на основе энергии, массы и информации. Свойства системы устанавли­ваются в процессе стандартизации с учетом ее предмета (сферы).

    Совокупность — множество элементов, сгруппированных с учетом поставленной цели стандартизации.

    Уровень развития иаучио-техиического прогресса — результат обобщенных дос­тижений науки, техники и практического опыта применительно к продукции, процессам, услугам в определенной области.

    410

    Управление качеством — методы и виды деятельности оперативного характера, используемые для выполнения требований к качеству. Термин введен стандартом ИС08402.

    Фактор стандартизации — причина, определяющая состояние системы стандарти­зации и условия деловой деятельности.

    Функциональный анализ — подчинен основной задаче — предварительному опре­делению параметров по заданным показателям качества исходя из рассмотрения физи­ческого принципа работы изделия и рационального технического решения. Используя методы функционального анализа и прогнозирования, составляют математические моде­ли функционирования и устанавливают различие между расчетным и заданным показа­телями качества [3]. В построение математических моделей функционирования главное внимание обращается на методологию применения методов функционального анализа. Стараются применять методы функционального анализа в их наиболее чистом, простом и фундаментальном виде.

    Экономическая эффективность — соотношение экономических результатов функ­ционирования системы и произведенных для их получения и использования затрат.

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

    ПРИЛОЖЕНИЕ

    Автоматизированный поиск допусков и посадок в системе гладких цилиндрических соединений ИСО

    Unit Common;

    Interface

    Function ChoiceNatiag:Boolean;

    Function ChoiceZazorrBoolean;

    Function ChoicePerehod:Boolean;

    implementation

    Uses Objects, AppConst;

    Procedure NewColiections;

    Begin

    Otv Predpoch Posadka: ~New(PCollecti on, Init(10, 5));

    Otv Recomend Posadka: = New(PCollection, Init(10, 5));

    Otv Vozmozh Posadka:=New(PCollection, Init(10, 5));

    Val Predpoch Posadka:=New(PCollecti on, Init(10, 5));

    Val R^comend Posadka:=New(PCollecti on, Init(10, 5));

    Val Vozmozh Posadka:« New(PCollection, Ini^lO, 5));

    End;

    Procedure DisposeCollections;

    Begin

    Dispose(Otv Predpoch Posadka, Done);

    Otv Predpoch Posadka:=nil;

    Dispose(Otv Recomend Posadka, Done);

    Otv Recomend Posadka: =nil;

    Dispose(Otv__Vozmozh Posadka, Done);

    Otv Vozmozh Posadka: =nil;

    Dispose(VaL_Predpoch__Posadka, Done);

    VaLPredpoch Posadka: «nil;

    Dispose(Val Recomend Posadka, Done);

    VaL_Recomend Posadka: =nil;

    Dispose(Val__Vozmozh Posadka, Done);

    Val Vonnozh Posadka: =nil;

    End;

    Procedure WritelPosadka(Var WFile: FStruct; PosadkaCol: PCollection; Title: String); Var i: Integer; SO: PStrObject;

    Begin

    With WFile Do

    Begin WriteLn(F, Title); WriteLn(F, "); FSize: * FSize + 2; if PosadkaColl*. Count=0 Then

    412

    Begin WriteLn(F, 'Отсутствуют.0; FSize:-FSize+1; End Else

    Fori:»l To PosadkaColT.Count Do

    sS"- PosadkaColl*At(i -1); WriteLn(F, SO.S); FSize-FSize+1; Bod;

    WriteLnfF,' '); WriteLn(F. ");

    FSize:-FSize+2;

    End;

    End;

    Procedure WriteTitleT oFileNaliag(Var WFile: FStruct);

    Begin

    With WFile Do Begin

    WriteLn(F,' ***РАСЧЕТ ПОСАДОК С НАТЯГОМ***'); WriteLn(F,");

    WriteLnfF,' 9;

    WriteLnflF, 'Исходные данные: У

    WriteLn(F. ‘NMin:', NMin:5:0, 'мкм., NMax=', NMax:5:0, 'мкм., DO-', ND0:5:0,

    I-Tt

    WriteLn(F,' У WriteLn(F. '0;

    FSize:—FSize+7;

    End;

    End;

    Procedure WriteTit]eToFi]eZazor(Var WFile: FStruct);

    Begin

    With WFile Do

    V$riteLn(F,' **РАСЧЕТ ПОСАДОК С ЗАЗОРОМ****); WriteLn(F, ");

    WriteLnfF,' 0;

    WriteLn(F, 'Исходные данные: 7;

    WriteLn(F, 'SMin=/, SMin:5:0, Wm., SMax«', SMax:5:0, 'мжм., DO-', SD0.5:0, W7;

    WriteLn(F,' 0; WriteLn(F, ");

    FSize: = FSize+7;

    End;

    End;

    Procedure WriteTitleToFflePerehod(Var WFile: FStruct);

    Begin

    With WFile Do Begin

    WriteLn(F,' ♦♦•РАСЧЕТ ПЕРЕХОДНЫХ ПОСАДОК***'); WriteLn(F, ");

    WriteLnCF,' 75

    WriteLn(F, 'Исходные данные:’); WriteLn(F, 4D0«', РЕЮ:5:0, 'мы.7;

    WriteLn(F,' 7; WriteLn(F,

    FSize: «FSize+7;

    End;

    End;

    Procedure OpenWinFile(Var WFile:FStruct);

    Begin

    With WFile Do Begin

    Free: =* False; FSize: =0; Assign(F, FName); Rewrite(F);

    End;

    End;

    413

    Procedure WriteCoUToFile(Var WFile: FStruct);

    Begin

    With WFile Do Begin

    WriteLn(F, 'СИСТЕМА ОТВЕРСТИЯ'); WriteLn(F,");

    FSize: = FSize+2;

    If DoPosible Then

    Write lPosadka(WFile, Otv_Vozmozh_Posadka, 'ВОЗМОЖНЫЕ ПОСАДКИ'); WritelPosadka(WFile, Otv__Recomend_Posadka, 'РЕКОМЕНДУЕМЫЕ ПОСАД- ЮТ);

    Write lPosadka(WFile, Otv_J>redpoch_Posadka, 'ПРЕДПОЧТИТЕЛЬНЫЕ ПО­САДКИ');

    WriteLn(F,'

    WriteLn(F, "); WriteLn(F, "); FSize: = FSize + 3;

    WriteLn(F, 'СИСТЕМА ВАЛА'); WriteLn(F, ");

    FSize: = FSize + 2;

    If DoPossible Then

    Write 1 Posadka(WFile, Val_Vozmozh_JPosadka, 'ВОЗМОЖНЫЕ ПОСАДКИ'); WritelPosadka(WFile, VaL_Recomend_Posadka, 'РЕКОМЕНДУЕМЫЕ ПОСАД- КИ0;

    WritelPosadka(WFile, Val_PredpoclL„Posadka, 'ПРЕДПОЧТИТЕЛЬНЫЕ ПО­САДКИ');

    WriteLn(F, ' 0;

    FSize: = FSize + 2; Close(F);

    End;

    End;

    Pocedure WriteFileToView(Var WFilerFStruct);

    Var wS: String;

    Begin

    With WFile Do

    Begin Assign(F, FName); Reset(F);

    While not EoffF) Do

    Begin ReadLn(F, wS); FileCoir.Insert(New(PStrObject, Init(wS))); End;

    Close(F);

    End;

    End;

    Procedure MakeText(DoOtv: Boolean; Var ws, wsl: String);

    Begin If DoOtv

    Then Begin ws: ='отверстие'; wsl : ='вал7; End Else Begin wsl:*'отверстие'; ws: ='вал'; End;

    End;

    Procedure FindLineNum(DO; Real; Var II, 12: Integer);

    Var I: Integer;

    Begin

    For I: = l To 25 Do If D0< = L[T]

    Then Begin 11: = I; Break; End;

    For I: *1 To 13 Do If D0< =M[1]

    Then Begin 12: =1; Break; End;

    End;

    414

    Procedure Print3(X)0(DoOtv: Boolean; Term, II, 17, ZO, J: Integer; El, E2i Real;

    Vozmozh—Posadka, Recomend Posadka, Predpoch—Posadka:

    PCoUection);

    Var S, SO, SI, S2, ws, wsl: String; wT: Integer;

    Begin

    MakeText(DoOtv, ws, wsl);

    If Term = 1 Then wT: * 6 Else wt: *0;

    Str(17:2, SI); Str(17+Z0:2, S2); S^U'+Sl + '-'+X[J+wT] + S2; Str(El:5:0, SI);

    SO:«'Отклонения: '+ws+'0—'+S1+'; —

    StrfTerm*Bp 1 ,J]:5, SI); StrCTerm*(Bpi,J]+E2):5:0, S2);

    SO: = SO+wsl +S1 +‘-’+S2;

    If (17>8) Or (17<5) or (CP*(17—4)+Z0, J+wT]=0)

    Then

    Begin

    Vozmozh Posadka insert (New(PStrObject, Init(S)));

    Vozmozh PosadkaMn sert(New(PStrObject, Init(S0))); Exit;

    End;

    If q2*(17-4)+Z0, J+wT] = l

    Then

    Begin

    Recomend Posadka\Insert(New(PStrObject, Init(S)));

    Recomend Posadka ".Insert (New(PStrObject, Init(SO))); Exit;

    End;

    PredpodL_PosadkaA.Insert(New(PS^bject, Init(S)));

    Predpoch PosadkaMnsert(New(PStrObject, Inint(SO)));

    End;

    Procedure Print3050(DoOtv: Boolean; Term, II, 17, ZO, J: Integer; El, E2, P7: Real;

    Vozmozh Posadka, Recomend Posadka, Predpoch Posadka:

    PCoUection);

    Var S, SO, SI, S2, ws, wsl: String; wT: Integer;

    Begin

    MakeText(DoOtv, ws, wsl);

    If Term=1

    Then Begin wT:=6, Str(17:2, SI); Str(17+Z0:2, S2); End Else Begin wt:~0; Str(17+Z0:2, SI); Str(17:2, S2); End;

    S:=Y[J+wT] + S2+'—h' + Sl; Str(El:5:0, SI);

    SO: «'Отклонения: '+ws+Sl V-O^';'; Str(Tenn*(-Bpi,J]+P7 + E2):5:0, SI); Str(Term*(—Bpj,J]+P7):5:0, S2); S0: = S0+wsl+S1+'-' + S2;

    If (17>7) Or (17<4) or (F[2*(17—3)-Z0, J+wT]«0)

    Then

    Begin

    Vozmozh Posadka~.Insert(New(PStrObject, Init(S)));

    Vozmozh—PosadkaMnsertfNewfPStrObject, Init(S0))); Exit;

    End;

    If F[2*(l 7 - 3) - ZO, J + wT] = 1

    Then

    Begin

    Recomend PosadkaMnsert(New(PStrObject, Init(S)));

    Recomend PosadkaMnsert(New(PStrObject, Init(SO))); Exit;

    End;

    Predpoch PosadkaMnsert(New(PStrObject, Init(S)));

    Predpoch Posadka ~.Insert(New(PStrObject, Init(SO)));

    End;

    Funkction ChoiceNatiag: Boolean;

    Label 1410, 1505, 1550, 1580, 1615, 1630, 1645, 2680;

    Var Z0, I, II, 12, 17, J: Integer; El, E2, P7, W: Real;

    415

    Begin

    ChoiceNatiag:« False;

    NewCoDections; FindLineNum(NDO, II, 12);

    {— выбор в системе отверстия }

    For 17:** 1 To 17 Do Begin

    El:-Dp2J7]; E2:=E1; ZD:=0;

    1410:

    For J:« 11 To 24 Do

    If (Bpl jl<9990) And (El <Bpi,J]) And (Bpi,J]-El > *NMin*(l-PersentNade±)) Ajad (Bpl,J]+E2< «NMax*(l +PersentNadezh))

    Then Print3000(True, 1, II, 17, Z0, J, El, E2, Otv Vozmozh Posadka, Otv

    Recomend Posadka, Otv Predpoch Posadka);

    If (ZOo-1) And (17o 1)

    Then Begin E2:=Dp2,I7-1]; ZO: = — I; Goto 1410; End;

    End;

    { выбор в системе вала }

    For 17: = 1 То 17 Do Begin

    El: = —Dp2J7]; E2:=E1; Z0:=0;

    1505:

    For J:=*ll To 24 Do Begin

    If Jo 11 Then Goto 1615;

    If (I7+Z0>8) Or (I7+Z0<3) Then Goto 1580;

    If 17=6 Then

    If 12= 11 Then W: = — 9 Else

    If BP1,J]> —9990 Then Continue Else W: = -BP1,J]+PP2,I7+Z0-2J;

    1550:

    If (El >W) And (El ~W> = NMin*(l — PersentNadezh))

    And ( —(W+E2) < =NMax*(l + PersentNadezh))

    Then

    Begin

    P7: = Pp2,I7+Z0-2];

    Print3050(False, 1, II, 17, ZO, El, E2, P7, VaLVozmozh^Posadka, Vai_

    Recomend Posadka, Val Predpoch Posadka);

    End;

    Continue;

    1580:

    If (Bpl,J]<9990) And (El > —Bpl,J])

    And Bpl,J]+El > =NMin*(l — PersentNadezh))

    And (Bpl,J]—E2< =NMax*(l + PersentNadezh))

    Then

    Begin

    P7: = 0; Print3050(False, 1, II, 17, ZO, J, El, E2, P7, VaL_Vozmozh.._Posadka,

    Val Recomend Posadka, Val „Predpoch Posadka);

    End;

    Continue;

    1615:

    If Jo 12 Then Goto 1645;

    If (17-f Z0>8) Or (I7 + Z0<3) Then Goto 1580;

    1630:

    If Bpi,J]> =9990 Then Continue;

    W: = - BP 1 ,J] + Pp2,I7 + ZO - 2];

    416

    Goto 1550;

    1645:

    If (I7+Z0>7) Or (I7+Z0<3) Then Goto 1580;

    Goto 1630;

    End;

    If Z0«1 Then Continue; M7-17 Then Goto 2680;

    E2: ш —Dp2J7 +1]; Z0:«1; Gotol505;

    End;

    2680:

    OpenWinFile(NatiagFile); WriteTitleToFlleNatiag(NatiagFile);

    WriteCoDToFfle(NatiagFile); DisposeCollections;

    NatiagFile.FileColl: — New(PCollection, Imt(50, 20»;

    WriteFileToView(NatiagFile);

    ChdceNatiag: «True;

    End;

    Function ChoiceZazor: Boolean;

    Labd 1410, 1505;

    Var Z0,1, II, 12,17, J: Integer; El, E2, P7, W: Real;

    Begin ChoiceZazor: «False;

    NewCoIlections; FindLineNum(SD0, II, 12);

    { выбор в системе отверстия }

    For 17: *1 То 17 Do Begin

    E1:«D[I247]; E2:»E1; Z0:*0;

    1410:

    For J:«l To 10 Do

    If (Bpl,J]<9990) And (SMin<«Bpi,J]) And (SMax>Bpi,J] + El+E2)

    And ((SMax-SMin)/(El +E2)> -2)

    Then Print3000(True, —1, II, 17, SO, J, El, E2, Otv Vozmozh Posadka, Otv

    Recomend Posadka, Otv Predpoch Posadka);

    If (ZOo-1) And (17о 1)

    Then

    Begin E2:»D[I2,17-1]; Z0: = -1; Goto 1410; End;

    End;

    { выбор в системе вала }

    For 17:«1 То 17 Do

    Begin El:»-D[I247]; E2:«E1; Z0: = 0;

    1505:

    For J:«l To 10 Do

    If (BP1,J]<9990) And (SMin<-Bpi,J]) And (SMax>Bpi,J]-El-E2)

    And ((SMax - SMin)/(-El-E2)>= 2)

    Then Print3050(Falsef -I, II, 17, Z0, J, El, E2, 0, Val_VozmozlL Josadka, Val__

    Recomend Posadka, Val Predpoch—Posadka);

    If (ZOol) And (I7ol7)

    Then Begin E2: = -DP2,I7 + 1]; 230:-1; Goto 1505; End; End;

    OpenWinFile(ZazorFile);

    WriteTitleToFileZazor(ZazorFile); WriteCollToFile(ZazorFile);

    DisposeCollections;

    ZazorFile.FileCoD: = New(PCollection, lnit(50, 20));

    WriteF ileT о Vie w(ZazorF ile);

    ChoiceZazor: =True;

    End

    417

    Procedure Print_Per_Otv(Il, 17, J ch, J, Otkl: Integer; El, E2, Persent: Real;

    Voanozh—Posadka, Recomcnd Posadka, Predpoch Posadka: PCoUection);

    Var S, SO, SI, S2, ws, wsl: String;

    Begin

    MakeTextfTrue, ws, wsl); Str(I7;2, SI); Str(I7-l:2, S2); Str(Persent5:2, SO);

    S: «‘H*+S1 +4-’+X{J_chJ+S2+‘Вероятностный натяг:’+SO+'•/•';

    Str(E 1:5:0, SI); SO:-‘Отклонения: '+ws+'0-'+Sl+';';

    Str(otkl:5, SI); Str(Otkl +£2:5:0, S2); SO:-—SO+wsl +S1 +'-'+S2;

    If С Pttp7—4, J]» 1

    Then

    Begin

    Recomend Posadka~.Insert(New(PStrObject, Init(S)));

    Recomend PosadkaMnsert(New(PStrObject, Init(S0))); Exit;

    End;

    Predpoch PosadkaMnsert(New(PStrObjcct, Init(S)));

    Predpoch PosadkaMnsert(New(PStrObject, Init(SO)));

    End;

    Procedure Print Per__Val(H, 17, J ch, J, Otkl: Integer; El, E2, Persent Real;

    Vozmozh Posadka, Recomend Posadka, Predpoch Posadka: PCoUection);

    Var S, SO, SI, S2, ws, wsl: String;

    Begin

    MakeText(False, ws, wsl); Str(I7:2, SI); .Str(I7+l:2, S2); Str(Persent:5:2, SO); S:*Y[J_jch]+S2+'—h'+Sl +'Вероятностный натяг:'+SO+*%';

    Str(—El:5:0, SI); SO:«'Отклонения: '+ws+Sl +'-0' + ';

    Str(Otkl:5, SI); Str(Otkl +E2:5:0, S2); SO:=SO+wsl + Sl+'-'+S2;

    If С—Perp7—3, J]el

    Then

    Begin

    Recomend PosadkaMnsert(New(PStrObjcct, Init(S)));

    Recomend _PosadkaMnsert(New(PStrObject, Init(SO))); Exit;

    End;

    Predpoch^Posadka“.Insert(New(PStrObject, Init(S)));

    Predpoch PosadkaMnsert(New(PStTObject, Init(SO)));

    End;

    {SF+}

    Funkction Laplas(x: Real): Real;

    Begin Laplas: —exp(—x*x/2)/sqrt(2*Pi); End;

    Funkction Gausslnt l(t0, tK: Real; F: Fund): Real;

    Type Arr8=Array (1...8] of Real;

    Const

    X: Arr8=(—0.96028985649753623168, -0.79666647741362673959,

    -0.52553240991632898582, -0.18343464249S64980494, 0.18343464249564980494,

    0.525532400991632898582, 0.79666647741362673959, 0.96028985649753623168);

    AA: Ait8 «* (0.10122853629037625915, 0.22238103445337447054,

    0.31370664587788728734, 0.36268378337836198297, 0.36268378337836198297,

    1. 31370664587788728734, 0.22238103445337447054, 0.10122853629037625915);

    Var i:Byte; t, Int 1: Double;

    Begin

    Int 1: = 0.0;

    For i: = l To 8 Do

    Begin t:=0.5*((t0+tK)+(tK — t0)*X(i]); Int 1: =lnt 1 +AA[i]*F(t); End;

    Gausslnt 1: = 0.5*(tK - t0)*lnl_J;

    End;

    418

    Function ChoicePerehod: Boolean;

    Var 17, II, 12, J, Otkl, iE2: Integer;

    El, E2, wSMax, wNMax, Sign_0, Sign__V, Sign_Pos, Midi, Persent: Real;

    Funkction CalkPercent: Real;

    Var Int, Z: Real;

    Begin

    Sign—О: = El/6; Sign_V:=E2/6; Sign__Pos:= Sqrt(sqr(Sign_0) + sqr(Si*nV>V

    Midi:»(Otkl+E2/2)—El/2; Z: = Mid 1/Sign Pos; i ign-v;;,

    Int: = GaussInt 1(0, Z, Laplas);

    If Int>0.5 Then Int:=0.5; If Int < -0.5 Then Int: = -0.5;

    CalkPercent: - (0.5 + Int)* 100;

    End;

    Begin

    ChoicePerehod: = False;

    NewCollkections; FindLineNus(PD0, II, 12);

    { выбор в системе отверстия }

    For 17: = 5 То 8 Do Begin

    E1:=D[I2,I7]; E2:=D[I2,I7-1]; iE2: = Round(E2);

    Otkl:=iE2 div 2;

    If iE2 = Otkl*2 Then Otkl:= -Otkl Else Otkl:=-Otkl -1; wSMax: = El—Otkl; wNMax: = Otkl -f E2;

    Persent: = CalkPercent;

    Print_JPer Otv(Il, 17, 12, 1, Otkl, El, E2, Persent, Otv Vozmozh Posadka, Otv__

    Recomend_Posadka, Otv Predpoch Posadka);

    For j:= 1 To 3 Do Begin

    Otkl: = Otkl Perp 1 j]; wSMax: = E1 -Otkl; wNMax: = Otk 1 + E2;

    Persent: = CalkPercent;

    Print Per Otv(Il, 17,15 +J, J-hi, Otkl, El, E2, Persent, Otv__Vozmozh Posadka,

    Otv Recomend _Posadka, Otv^iPredpocL Posadka);

    End;

    End;

    { выбор в системе вала— }

    For 17: =4 То 7 Do Begin

    El: =D[I2,I7]; E2: = D[I2,I7 +1]; iE2: = Round(E2); Otkl: = iE2 div 2;

    If iE2=Otk 1*2Then Otkl: =-Otkl Else Otkl: =-Otkl-1; wSMax: = — Otkl -f E2 — El; wNMax: = — Otkl;

    Persent: = CalkPercent;

    Print^Per-.-ValOl, 17, 12, 1, Otkl, El, E2, Persent, Val Vozmozh—Posadka, Val—

    Recomend „Posadka, VaL__Predpoch Posadka);

    For j: = l To 3 Do Begin

    If (17 + 1=6) and ((11=20) or (П=21))

    Then Otk 1: = -9

    Else Otkl: =-Otkl Per[Il,j]-bRound(P[I2,I7+-1 -2]);

    wSMax: = -Otkl + E2-El; wNMax: =-Otk 1; Percent: = CalkPercent;

    Print Pet Val(11, 17, 15 + J, J+l, Otkl, El, E2, Persent, VaJ Vozmozh Posadka,

    Val ._Recomend—Posadka, Val Predpoch Posadka);

    End;

    End;

    419

    OpenWinFilc(PerehodFile); WriteTitleToFilePerehod(PerehodFile); WritcCoDT oFOe(PerehodFile); DispoeeCollectiona; PcrchodFilc.FileColl: —NewfPCollection, Init(20, 20»; WritcFileToVicw(PerehodFiie); ChoicePerehod: -True;

    End;

    End.

    СПИСОК ЛИТЕРАТУРЫ

    1. Гличев A'B. Основы управления качеством продукции. М.:АМИ’, 1998.

    2. Исаев JJ.K, Маклинский В.Д. Метрология и стандартизация в сертификации М.: ИПК Издательство стандартов. 1996.

    3. Никифоров А.Д. Взаимозаменяемость, стандартизация и технические измерения. М.: Высшая школа, 2000.

    4. Палей М.А., Брагинский В.А. Нормы взаимозаменяемости в машиностроении. М.: Машиностроение, 1997.

    ОГЛАВЛЕНИЕ

    Предисловие 3

    Глава 1. Основы стандартизации 7

    1. Сущность стандартизации 7

  • Нормативные документы по стандартизации и виды стандартов .... 10

  • Стандартизация в различных сферах 12

  • Международная стандартизация 25

  • Организация работ по стандартизации в РФ 29

  • Информационное обеспечение работ по стандартизации 35

  • Совершенствование ГСС и перспективы вступления России в ВТО. . . 38

    Контрольные вопросы 43

    Глава 2. Объекты стандартизации в машиностроении 45

    1. Стандартизация промышленной продукции 45

    2. Стандартизация технических условий 47

    3. Стандартизация и качество продукции 50

    4. Стандартизация моделирования функциональных структур объектов маши­ностроения 68

    5. Стандартизация технологических объектов 89

    Контрольные вопросы 104

    Глава 3. Система стандартизации в машиностроении 105

    1. Государственная система стандартизации (ГСС) и научно-технический про­гресс 105

    2. Системный анализ в решении проблем стандартизации 107

    3. Ряды предпочтительных чисел и параметрические 108

    4. Унификация и агрегатирование 110

    5. Комплексная и опережающая стандартизации 114

    6. Комплексные системы общетехнических стандартов 117

    Контрольные вопросы 120

    Глава 4. Оптимизация требований стандартов 121

    1. Сущность оптимизации требований стандартов 121

    2. Требования к системе оптимизации параметров объектов стандартизации (СОПОС) 127

    3. Теоретическая оптимизация 129

    4. Экспериментальная оптимизация 133

    5. Методы прогнозирования при оптимизации 136

    6. Особенности оптимизации параметров объектов стандартизации (ПОС)

    в технических величинах 140

    1. Оптимизация ПОС на базе математического моделирования 148

    Контрольные вопросы 151

    421


    Глава 5. Стандартизация основных норм взаимозаменяемости 152 Общие понятия основных норм взаимозаменяемости 152

  • Модель стандартизации основных норм взаимозаменяемости 157