по Вайнштейну / Курсовая_Поверочные плиты / МИ 2007-89 Рекомендация. ГСИ. Плиты поверочные и разметочные. Методика поверки

20 и 21, при втором - на черт. 22. Определение отклонений от прилегающей плоскости проводилось для результатов, приведенных на черт. 17 приложения 5.

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

После построения проекций профилей продольных сечений через две наиболее удаленные и наиболее низкие точки поверхности проводят прямую линию. Выбирают такие точки, чтобы ни одна из точек поверхности не оказалась ниже прямой, соединяющей их (прямая M′1N′1 на черт. 20). Затем находят на графике точку, расстояние которой от прямой M′1N′1, отсчитанное вдоль оси ординат, является наибольшим, и проводят прямую М1N1, параллельную прямой M′1N′1. Прямая М1N1 является следом пересечения прилегающей плоскости с плоскостью чертежа и дает ее наклон в продольном направлении.

Черт. 20

Черт. 21

Документ скачан с портала нормативных документов www.OpenGost.ru 31

Черт. 22

От прямой М1N1 отсчитывают отклонения точек вдоль оси ординат и строят по ним проекции профилей поперечных сечений на плоскость, перпендикулярную к поверхности плиты и проходящую параллельно поперечным сечениям. Принимаем, что эта плоскость совпадает с плоскостью черт. 21, а прямая M1N1 совпадает с осью абсцисс. Тогда для построения проекций профилей на оси абсцисс наносят отметки, соответствующие положению точек в поперечных сечениях, а вдоль оси ординат откладывают отклонения от прямой M1N1 (черт. 21). Затем через самую высокую точку Е3 проводят прямую MN таким образом, чтобы ее расстояние до наиболее удаленных точек поверхности было наименьшим. При этом ни одна из точек поверхности не должна оказаться выше прямой MN. Прямая MN является следом пересечения прилегающей плоскости с плоскостью чертежа и дает наклон в поперечном направлении. Наибольшее расстояние от этой прямой является отклонением от плоскостности. На черт. 21 самыми низкими точками являются точки С3, С4 и Ео, имеющие одинаковые отклонения от оси абсцисс. Прилегающая прямая имеет наклон в сторону точек С3 и С4, поэтому самой удаленной точкой поверхности является точка Ео. В данном случае самая низкая точка Ео оказалась в одном сечении с самой высокой точкой и после построения прилегающей прямой расстояние до нее не уменьшилось. Определение наклона в поперечном направлении не имело смысла. Отклонение точки Ео от прилегающей плоскости равно 30 мкм.

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

На листе миллиметровой бумаги чертят план поверяемой поверхности с указанием на нем отклонений точек от вспомогательной плоскости (черт. 22). При этом соотношение длин продольных и поперечных сечений должно соответствовать соотношению их действительных размеров. Две наиболее низкие и наиболее удаленные друг от друга точки С4 и Ео соединяют на плане линией Е6С4. Если из плана неясно, какие точки следует выбрать, сначала строят проекции профилей продольных сечений, а затем, как в предыдущем случае (черт. 20), определяют, через какие точки должна пройти прямая, чтобы ни одна точка поверхности не оказалась ниже ее.

Из всех точек, обозначенных на плане, проводят линии, перпендикулярные к линии ЕоС4, а затем на некотором расстоянии от плана проводят перпендикулярно им линию Е′оС′4. От линии Е′оС′4, пользуясь масштабной линейкой, откладывают на перпендикулярных к ней линиях отклонения от вспомогательной плоскости, приведенные на плане. Две наиболее низкие и наиболее удаленные точки на графике соединяют линией ab, находят точку, имеющую наибольшее расстояние от прямой ab (точка А1), и проводят через нее прямую а1b1, параллельную прямой ab. Затем, пользуясь угольником, из всех точек проводят линии, параллельные линии ЕоС4 на плане, и проводят

Документ скачан с портала нормативных документов www.OpenGost.ru 32

перпендикулярно им линию а2b2. Отсчитывают по масштабной линейке отклонения всех точек от прямой а1b1. Полученные значения откладывают от линии а2b2 вдоль перпендикулярных к ней линий. Самой высокой точкой является точка А1, а самыми низкими точки - Ео, С3 и С4. Через самую высокую точку проводят прямую таким образом, чтобы расстояние до наиболее удаленных точек было наименьшим и при этом ни одна точка не оказалась выше этой прямой. На черт. 22 такой прямой является прямая MN. Прямая MN представляет собой след прилегающей плоскости. Наибольшее расстояние от нее имеют точки С3 и С4. Оно равно 29 мкм и является отклонением от прилегающей плоскости. Отклонение точки Ео, которая оказалась самой низкой при первом способе построения (черт. 21), в данном случае равно 28 мкм.

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

П р и м е ч а н и е . Программа для вычисления отклонений от прилегающей плоскости на ЭВМ имеется в ВНИИМСО.

ПРИЛОЖЕНИЕ 8

ПРОГРАММА ОБРАБОТКИ РЕЗУЛЬТАТОВ ИЗМЕРЕНИЙ ОТКЛОНЕНИЙ ОТ ПЛОСКОСТНОСТИ

3С KOD = l АВТОКОЛЛИМАТОР

4С KOD = 2 ЭЛЕКТРОННЫЙ УРОВЕНЬ

5С KOD = 3 ПУЗЫРЬКОВЫЙ УРОВЕНЬ, МИКРОНИВЕЛИР

6С KOD = 4 ПОВЕРОЧНАЯ ЛИНЕЙКА БЕЗ ПОПРАВОК

7С KOD = 5 ПОВЕРОЧНАЯ ЛИНЕЙКА С ПОПРАВКАМИ

8С KOD = 6 ОПТИЧЕСКАЯ ЛИНЕЙКА БЕЗ ПОПРАВОК

9С KOD = 7 ОПТИЧЕСКАЯ ЛИНЕЙКА С ПОПРАВКАМИ

10С KEY = 1 ПРОВЕРЯЮТСЯ БОЛЕЕ, ЧЕМ ДВА ПОПЕРЕЧНЫХ

ССЕЧЕНИЯ

11С KEY = 2 ПРОВЕРЯЮТСЯ ТОЛЬКО ДВА КРАЙНИХ ПОПЕРЕЧНЫХ

ССЕЧЕНИЯ

13IMPLICIT REAL*8(B-H, О-Z)

14INTEGER*2 AL

15DIMENSION ZG(20,20), ZM(20,20), D1(30), D2(30), PV(20,20),

16* QV(20,20), P(20,20), Q(20,20), ZR(20,20), Z1(20,20), Z2(20,20),

*ZO (20,20)

17DIMENSION PY1 (40,40), QY1 (40,40), DY1(60), DY2(60),

18* IP(20,20), IQ(20,20)

19COMMON /BG/BG1, BG2, BG3

20READ 10, KOD, KEY

2110 FORMAT (213)

22READ 12, AL, NA

2312 FORMAT (A2, I5)

24READ 11, LI, L2

2511 FORMAT (215)

26PRINT 66

2766 FORMAT (//)

28PRINT 21, AL, NA, LI, L2

2921 FORMAT (′′, 22X, ′ПОВЕРОЧНАЯ ПЛИТА N′, A1, I5, ′РАЗ′,

30* ′MEPOM′, 15, 1X, 1HX, I5, 1X, 2HMM)

31READ 15, ND, NX, NY

Документ скачан с портала нормативных документов www.OpenGost.ru 33

3215 FORMAT (3(I3))

33READ 16, HD, HY, HX

3416 FORMAT (3(F5.1))

35IF(HD.GT.0..OR.KOD.LE.3) PRINT 31, HD, HY, HX

3631 FORMAT (′′, 6X, ′ШАГ ИЗМЕРЕНИЙ В ДИАГОНАЛЬНЫХ′,

37* ′СЕЧЕНИЯХ, F6.1, ′ММ, ′, ′В ПРОДОЛЬНЫХ СЕЧЕНИЯХ′,

38* F6.1, ′ММ′, ′В ПОПЕРЕЧНЫХ СЕЧЕНИЯХ′, F6.1, ′ММ′)

39READ 17, DO

4017 FORMAT (F5.1)

41BG1 = .0048481*HX

42BG2 = .0048481*HY

43BG3 = .0048481*HD

44IF(KOD. EQ.1) CALL SDG1(KOD, KEY, NY, NX, ND, IP, PV,

*P, IQ, QV, Q, D1, D2)

45IF(KOD. EQ.2) CALL SDG2(KOD, KEY, NY, NX, ND, PV, QV,

*P, Q, D1, D2)

46IF(KOD. EQ.3) CALL SDG3(KOD, KEY, NY, NX, ND, PV, QV,

*P, Q, D1, D2)

47IF(KOD. EQ.4) CALL SDG4(KOD, KEY, NY, NX, ND, P, Q, D1,

*D2)

48IF(KOD. EQ.5) CALL SDG5(KOD, KEY, NY, NX, ND, PV, QV,

*P, Q, D1, D2)

49IF(KOD. EQ.6) CALL SDG4(KОD, KEY, NY, NX, ND, P, Q, D1,

*D2)

50IF(KOD. EQ.7) CALL SDG5(KOD, KEY, NY, NX, ND, PV, QV,

*P, Q, D1, D2)

51CALL RYX(KEY, NY, NX, ND, DO, ZG, P, Q, D1, D2, ZR, Z1,

*Z2, ZO)

52STOP

53END

*** * * * * * * * * * * * * * * * * * * * * * * * * * * *

1SUBROUTINE PRDG(KOD, KEY, NY, NX, ND, NY1, NX1, ND1,

*DY1, DY2, PY1, QY1)

2IMPLICIT REAL*8(B-H, O-Z)

3INTEGER*2 AT(21)

4DIMENSION PY1(NY, NX1), QY1(NY1, NX), NО(21)

5DIMENSION DY1(60) DY2(60)

6COMMON /P/PD(60), PP(60), PQ(60)

7DATA AT/′A′, ′B′, ′C′, ′D′, ′E′, ′F′, ′G′, ′H′, ′I′

8* ′J′, ′K′, ′L′, ′M′, ′N′, ′O′, ′P′, ′Q′, ′R′, ′S′,

*′Т′, ′U′/

9IF(KEY.EQ.1) NXS = 1

10IF(KEY.EQ.2) NXS = NX - 1

11DO 50 I = 1,21

1250 NО(I) = I - 1

13PRINT 20

1420 FORMAT (30X, ′ИСХОДНЫЕ ДАННЫЕ′)

15PRINT 30

1630 FORMAT (127 (1H-))

17NX2 = MAXО(NY, NX, ND)

18С РАСПЕЧАТКА ДАННЫХ ЭЛЕКТРОННОГО УРОВНЯ

19IF(KOD.NE.2) GOTO 26

20PRINT 41

2141 FORMAT (′′, 1HI, ′СЕЧЕНИЕ′, 1HI, 4X, ′ОТСЧЕТЫ ПО ШКА′,

22*′ ЛЕ УРОВНЯ, ′, ′СЕК, В ТОЧКАХ′)

Документ скачан с портала нормативных документов www.OpenGost.ru 34

23PRINT 61, (NО(I), I = 2, NX2)

2461 FORMAT (′′, 1HI, 11Х, 1HI, 10(14, 5Х)/1Х, 1HI, 11Х, 1HI,

*10(14, 5Х))

25PRINT 30

26PRINT 71, АТ(1), NО(1), AT(NY), NO(NX), (DYI(I), I = 2, ND)

27PRINT 71, AT(NY), NО(1), AT(1), NO(NX), (DY2(I), I = 2, ND)

2871 FORMAT (′′, 1HI, 2X, A1, I2, 1H-, A1, I2, 2X, 1HI, 1X,

29* 10(F6.1, 2H", 1X)/1X, 1HI, 11X, 1HI, 10(F6.1, 2H", 1X))

30DO 81 I = 1, NY

31PRINT 71, AT(I), NО(1), AT(I), NO(NX), (PY1(I, J), J = 2,

*NX)

3281 CONTINUE

33 DO 90 J = l, NX, NXS

3490 PRINT 71, AT(1), NO (J), AT(NY), NO(J), (QY1(I, J), I = 2, NY)

35С РАСПЕЧАТКА ДАННЫХ ОПТИЧЕСКОЙ ЛИНЕЙКИ БЕЗ

СПОПРАВОК

3626 IF(KOD.NE.4.AND.KOD.NE.6) GOTO 36

37IF(KOD.EQ.4) PRINT 42

3842 FORMAT (′′, 1HI, ′СЕЧЕНИЕ′, 1HI, 4X, ′ОТСЧЕТЫ ПО′,

39*′ ШКАЛЕ ИЗМЕРИТЕЛЬНОЙ ГОЛОВКИ, МКМ, В ТОЧКАХ′)

40IF(KOD.EQ.6) PRINT 402

41402 FORMAT (′′, 1HI, ′СЕЧЕНИЕ′, 1HI, 4X, ′ОТСЧЕТЫ ПО БА′,

42*′ РАБАНУ ОПТИЧЕСКОЙ ЛИНЕЙКИ, МКМ, В ТОЧКАХ′)

43PRINT 62, (NО(I), I = 1, NX2)

4462 FORMAT(′′, 1HI, 11X, 1HI, 3Х, 10(I3,4X) / 1X, 1HI, 11Х, 1НI,

3X, 10(I3,4X))

45PRINT 30

46PRINT 72, АТ(1), NО(1), AT(NY), NO (NX), (DY1(I), I = 1, ND)

47PRINT 72, AT(NY), NO(1), AT(I), NO(NX), (DY2(I), I = 1, ND)

48DO 82 I = 1, NY

49PRINT 72, AT(I), NO(1), AT(I), NO(NX), (PY1(I, J), J = I, NX)

5082 CONTINUE

5172 FORMAT (′′, 1HI, 2X, A1, I2, 1Н-, A1, I2, 2X, 1HI, 1X,

52* 10(F6.1, 1X)/1X, 1HI, 11X, 1HI, 10(F6.1, 1X))

53DO 92 J = 1, NX, NXS

54PRINT 72, AT(1), NO(J), AT(NY), NO(J), (QY1 (I, J), I = 1, NY)

5592 CONTINUE

56С РАСПЕЧАТКА ДАННЫХ ОПТИЧЕСКОЙ ЛИНЕЙКИ С

СПОПРАВКАМИ

5736 IF(KOD.NE.5.AND.KOD.NE.7) GOTO 99

58IF(KOD.EQ.5) PRINT 43

5943 FORMAT (′′, 1HI, ′′СЕЧЕНИЕ′, 1HI, 4X, ОТСЧЕТЫ ПО

60* ШКАЛЕ ИЗМЕРИТЕЛЬНОЙ ГОЛОВКИ И ПОПРАВКИ НА

61* ПОВЕРОЧНУЮ ЛИНЕЙКУ, МКМ, В ТОЧКАХ′)

62IF (KOD.EQ.7) PRINT 403

63403 FORMAT (′′, 1HI, ′СЕЧЕНИЕ′, 1HI, 4X, ОТСЧЕТЫ ПО БА′,

64*′ РАБАНУ ОПТИЧЕСКОЙ ЛИНЕЙКИ И ПОПРАВКИ НА ОТК′,

65*′ ЛОНЕНИЯ ФОРМЫ ИСХОДНОЙ ПРЯМОЙ, ′МКМ В ТОЧ′,

*′ КАХ′)

66PRINT 62, (NО(I), I = 1, NX2)

67PRINT 30

68PRINT 72, АТ(1), NО(1), AT(NY), NO(NX), (DY1(I), I = 1, ND)

69PRINT 72, AT(NY), NО(1), AT(1), NO(NX), (DY2(I), I = 1, ND)

70PRINT 101, (PD(I), I = 1, ND)

Документ скачан с портала нормативных документов www.OpenGost.ru 35

71101 FORMAT (′′, 1HI, ′ПОПРАВКИ′, 1HI, 1X, 10(F6.1, 1X)/1X,

72* 1HI, 11X, 1HI, 1X, 10(F6.1, 1X))

73DO 83 I = 1, NY

74PRINT 72, AT(I), NO(1), AT(I), NO(NX), (PY1 (I, J), J = 1, NX)

7583 CONTINUE

76PRINT 101, (PP(I), I = 1, NX)

77DO 93 J = l, NX, NXS

78PRINT 72, AT(1), NO(J), AT(NY), NO(J), (QY1(I, J), I = 1, NY)

7993 CONTINUE

80PRINT 101, (PQ(I), J = 1, NY)

8199 CONTINUE

82PRINT 30

83RETURN

84END

2IMPLICIT REAL*8(B-H, O-Z)

3INTEGER*2 AD1(1), AD2(1), AD(1), C(2), D(2), VD(2)

4DIMENSION P(NY, NX), Q(NY, NX), ZG(NY, NX)

5DIMENSION ZR(NY, NX), Z1(NY, NX), Z2(NY, NX), ZO(NY,

*NX)

6DIMENSION D1(60), D2(60), H1 (60), H2(60), RM1(60),

*RM2(60)

7DATA AD1/′HE′/, AD2/′′/, C(1) ′/1/′/, C(2)/′3′/, D(1)/ ′1/′/,

8* D(2)/ ′5′/

9CALL DIHI(ND, D1, H1)

10CALL DIHI(ND, D2, H2)

11DO 20 I = 1, NY

1220 RM1(I) = Q(I, 1)

13CALL XIYI(NY, H1(1), H2(1), RM1, RM2)

14DO 30 I = 1, NY

1530 ZG(I, 1) = RM2(I)

16DO 40 I = 1, NY

1740 RM1(I) = Q(I, NX)

18CALL XIYI(NY, H2(ND), H1 (ND), RM1, RM2)

19DO 50 I = 1, NY

2050 ZG(I, NX) = RM2(I)

21DO 60 I = 1, NY

22DO 70 J = 1, NX

2370 RM1(J) = P(I, J)

24CALL XIYI(NX, ZG(I, 1), ZG(I, NX), RM1, RM2)

25DO 80 J = l, NX

2680 Z1(I, J) = RM2(J)

2760 CONTINUE

28IF(KEY.EQ.2) CALL PRREZ(2, NY, NX, Z1)

29IF(KEY.EQ.2) CALL MAXZR(NY, NX, Z1, DO, ZRM, К3)

30IF(KEY.EQ.2) GOTO 772

31DO 90 J = 1, NX

32DO 100 Ш = 1, NY

33100 RM1(I) = Q(I, J)

34CALL XIYI(NY, Z1(1, J), Z1(NY, J), RM1, RM2)

35DO 110 I = 1, NY

36110 Z2(I, J) = RM2(I)

3790 CONTINUE

Документ скачан с портала нормативных документов www.OpenGost.ru 36

38DO 120 I = 1, NY

39DO 120 J = 1, NX

40ZO(I, J) = Z1(I, J) - Z2(I, J)

41120 ZR(I, J) = (Z1(I, J) + Z2(I, J))/2.

42CALL MAXZO (NY, NX, ZO, DO, ZOM, K2)

43IF(K2.EQ.1) CALL MAXZR(NY, NX, ZR, DO, ZRM, К3)

44IF(K2.EQ.1) CALL PRREZ(2, NY, NX, ZR)

45IF(K2.EQ.2) CALL PRREZ(3, NY, NX, Z1)

46IF(K2.EQ.2) CALL PRREZ(4, NY, NX, Z2)

47IF(K2.EQ.2) CALL PRREZ(1, NY, NX, ZO)

48772 PRINT 500, DO

49500 FORMAT (′′, 11Х, ′ДОПУСК ПЛОСКОСТНОСТИ′, F9.1,

*′MKM′)

50IF(DO.LT.30.) GOTO 864

51DO 757 M = 1, 2

52757 VD(M) = D(M)

53GOTO 975

54864 DO 753 M = 1, 2

55753 VD(M) = C(M)

56975 IF(K2.EQ.2) PRINT 502, ZOM, (VD(I), I = 1, 2)

57502 FORMAT (′′, ′НАИБОЛЬШАЯ РАЗНОСТЬ РЕЗУЛЬТАТОВ′,

58*′ ИЗМЕРЕНИЙ В ПРОДОЛЬНЫХ И ПОПЕРЕЧНЫХ СЕЧЕНИ′,

59* ′ЯХ′, F9.1, 4Н МКМ, ′ПРЕВЫШАЕТ′, 2А2, ′ДОПУСКА′)

60IF(K2.EQ.2) PRINT 503

61503 FORMAT (′′, ′ПЛОСКОСТНОСТИ. ИЗМЕРЕНИЯ СЛЕДУЕТ′,

*′ ПОВТОРИТЬ.′)

62IF(K3.EQ.1) AD(1) = AD1(1)

63IF(K3.EQ.2) AD(1) = AD2(1)

64IF(K2.EQ.1.ОR.KEY.EQ.2) PRINT 501, ZRM, AD(1)

65501 FORMAT (′′, ′НАИБОЛЬШАЯ РАЗНОСТЬ ОТКЛОНЕНИЙ′,

66*′ ОТ ВСПОМОГАТЕЛЬНОЙ′, ′ПЛОСКОСТИ′, F9.1, 4Н МКМ,

67* 1X, А-2 ′ПРЕВЫШАЕТ′, ′ДОПУСК ПЛОСКОСТНОСТИ′)

68RETURN

69END

*** * * * * * * * * * * * * * * * * * * * * * * * * * * *

1SUBROUTINE PRREZ(K1, NY, NX, ZR)

2IMPLICIT REAL*8(B-H, O-Z)

3INTEGER*2 AT (20)

4DIMENSION ZR(NY, NX), NO(20)

5DATA AT/′A′, ′B′, ′C′, ′D′, ′E′, ′F′, ′G′, ′H′,

6* ′I′, ′J′, ′K′, ′L′, ′M′, ′N′, ′O′, ′P′, ′Q′, ′R′, ′S′, ′T′/

7PRINT 21

821 FORMAT (/)

9IF(K1.EQ.2) PRINT 20

1020 FORMAT (30Х, ′ТАБЛИЦА РЕЗУЛЬТАТОВ′)

11PRINT 30

1230 FORMAT (127(1H-))

13IF(K1.EQ.1) PRINT 40

1440 FORMAT (′′, 1HI, ′СЕЧЕНИЕ′, 1HI, 4X, ′РАЗНОСТИ МЕЖ′,

15* ′ДУ РЕЗУЛЬТАТАМИ ИЗМЕРЕНИЙ В ПРОДОЛЬНЫХ И ПО′,

16* ′ПЕРЕЧНЫХ СЕЧЕНИЯХ, МКМ′, /,′′, 1HI, 11Х, 1HI, 5Х,

*′В ТОЧКАХ′)

17IF(K1.EQ.2) PRINT 45

1845 FORMAT (′′, 1HI, ′СЕЧЕНИЕ′, 1НI, 4Х, ′ОТКЛОНЕНИЯ ОТ′,

Документ скачан с портала нормативных документов www.OpenGost.ru 37

19* ′ВСПОМОГАТЕЛЬНОЙ ПЛОСКОСТИ, МКМ, В ТОЧКАХ′)

20IF(K1.EQ.3) PRINT 46

2146 FORMAT (′′, 1HI, ′СЕЧЕНИЕ′, 1HI, 4Х, ОТКЛОНЕНИЯ ОТ′,

22* ′ВСПОМОГАТЕЛЬНОЙ ПЛОСКОСТИ, МКМ, ПО РЕЗУЛЬТА′,

23* ′ТАМ ИЗМЕРЕНИЙ В ПРОДОЛЬНЫХ СЕЧЕНИЯХ′, /,

24* ′′, 1HI, 11Х, 1HI, 5Х, ′В ТОЧКАХ′)

25IF(K1.EQ.4) PRINT 47

2647 FORMAT (′′, 1HI, ′СЕЧЕНИЕ′, 1НI, 4Х, ′ОТКЛОНЕНИЯ ОТ′,

27* ′ВСПОМОГАТЕЛЬНОЙ ПЛОСКОСТИ, МКМ, ПО РЕЗУЛЬТА′,

28* ′ТАМ ИЗМЕРЕНИЙ ДЛЯ ПОПЕРЕЧНЫХ СЕЧЕНИЙ′, /,

29* ′′, 1HI, 11Х, 1HI, 5Х, ′В ТОЧКАХ′)

30DO 50 I = 1, 20

3150 NО(I) = I - 1

32PRINT 60, (NO(I), I = 1, NX)

3360 FORMAT (′′, 1HI, 11Х, 1HI, 16(1Х, I6)/1X, 1HI, 11Х, 1НI,

*4(1X, I6))

34PRINT 30

35DO 80 I = 1, NY

36K = NY - I + 1

37PRINT 70, AT(K), NO(1), AT(K), NO(NX), (ZR(K, J), J = 1, NX)

3870 FORMAT (′′, 1HI, 2X, A1, I2, 1H-, A1, I2, 2X, 1HI, 1X, 16(1X,

39* F6.1)/1X, 1HI, 11X, 1HI, 1X, 4(1X, F6.1))

4080 CONTINUE

41PRINT 30

42RETURN

43END

*** * * * * * * * * * * * * * * * * * * * * * * * * * * *

1SUBROUTINE MAXZO(NY, NX, ZO, DO, Q, K2)

2IMPLICIT REAL*8 (A-H, O-Z)

3DIMENSION ZO (NY, NX)

4Q = DABS(ZO(1, 1))

5DO 10 I = 1, NY

6DO 10 J = 1, NX

7B = DABS(ZO(I, J))

8IF(B.GT.Q) Q = B

910 CONTINUE

10IF(DO.LT.30.) DO 1 = DO/3.

11IF(DO.GE.30.) DO 1 = DO/5.

12IF(Q.LE.DO1) K2 = 1

13IF(Q.GT.DO1) K2 = 2

14RETURN

15END

*** * * * * * * * * * * * * * * * * * * * * * * * * * * *

1SUBROUTINE MAXZR(NY, NX, ZR, DO, ZRM, К3)

2IMPLICIT REAL*8(A-H, O-Z)

3DIMENSION ZR(NY, NX)

4Q1 = ZR(1, 1)

5Q2 = ZR(1, 1)

6DO 10 I = 1, NY

7DO 10 J = l, NX

8B = ZR(I, J)

9IF(B.LE.Q1) Q1 = B

10IF(B.GT.Q2) Q2 = B

1110 CONTINUE

12ZRM = DABS(Q2 - Q1)

Документ скачан с портала нормативных документов www.OpenGost.ru 38

1SUBROUTINE DIHI(N, D, H)

2IMPLICIT REAL*8(A-H, O-Z)

3DIMENSION D(N), H(N)

4FN1 = N/2.

5FN2 = N/2

6IF(FN1 - FN2.GT..3) GOTO 10

7DM = (D(N/2) + D(N/2 + 1))/2.

8GOTO 20

910 DM = D((N + 1)/2)

1020 F1 = (D(1) - D(N))/(N - 1.)

11DO 30 I = 1, N

1230 H(I) = D(I) - DM + F1*(I - (N + 1.)/2.)

13RETURN

14END

*** * * * * * * * * * * * * * * * * * * * * * * * * * * *

1SUBROUTINE XIYI (N, A, B, X, Y)

2IMPLICIT REAL*8(A-H, O-Z)

3DIMENSION X(N), Y(N)

4F1 = (B-A-X(N) + X(1))/(N - 1.)

5DO 10 I = 1, N

610 Y(I) = X(I) + F1*(I - 1) + A - X(1)

7RETURN

8END

2С ВВОД ДАННЫХ, ПОЛУЧЕННЫХ АВТОКОЛЛИМАТОРОМ

3IMPLICIT REAL*8(B-Н, О-Z)

4INTEGER*2 AT (21)

5DIMENSION I1 (30), I2(30), NO(21)

6DIMENSION DM1 (30), DM2(30), D1(30), D2(30)

7DIMENSION IP(NY, NX), P1 (NY, NX), P(NY, NX)

8DIMENSION IQ(NY, NX), Q1(NY, NX), Q(NY, NX)

9COMMON /BG/BG1, BG2, BG3

10DATA AT/′A′, ′B′, ′C′, ′D′, ′E′, ′F′, ′G′, ′H′, ′I′,

11* ′J′, ′K′, ′L′, ′M′, ′N′, ′O′, ′P′, ′Q′, ′R′, ′S′, ′T′, ′U′/

12IF(KEY.EQ.1) NXS = 1

13IF(KEY.EQ.2) NXS = NX - 1

14ND1 = ND - 1

15NY1 = NY - 1

16NX1 = NX - 1

17READ 624, (I1 (I), DM1 (I), I = 2, ND)

18READ 624, (I2(I), DM2(I), I = 2, ND)

19DO 769 I = 1, NY

20769 READ 624, (IP(I, J), P1 (I, J), J = 2, NX)

21624 FORMAT (8(I2, 1X, F4, 1, 2X))

22DO 569 J = 1, NX, NXS

23569 READ 624, (IQ(I, J), Q1(I, J), I = 2, NY)

24DO 50 I = 1, 21

2550 NO(I) =I - 1

Документ скачан с портала нормативных документов www.OpenGost.ru 39

26PRINT 20

2720 FORMAT (30X, ′ИСХОДНЫЕ ДАННЫЕ′)

28PRINT 30

2930 FORMAT (127 (1H-))

30NX2 = MAX0(NY, NX, ND)

31С РАСПЕЧАТКА ДАННЫХ АВТОКОЛЛИМАТОРА

32PRINT 40

3340 FORMAT (′′ 1HI, ′СЕЧЕНИЕ′, 1HI, 4X, ′ОТСЧЕТЫ ПО АВ′

34* ′TOКОЛЛИМАТОРУ В ТОЧКАХ′)

35PRINT 60, (NO(I), I = 2, NX2)

3660 FORMAT (′′, 1HI, 11X, 1HI, 1X, 10(I5, 6X)/1X, 1HI, 11Х, 1Н1,

*1X, 10(I5, 6X))

37PRINT 30

38PRINT 70, AT(1), NO(1), AT(NY), NO(NX), (I1(I), DM1(I),

*I = 2, ND)

39PRINT 70, AT(NY), NO(1), AT(1), NO(NX), (I2(I), DM2(I),

*I = 2, ND)

40DO 80 I = 1, NY

41PRINT 70, AT(I), NO(1), AT(I), NO(NX), (IP(I, J), P1(I, J),

*J = 2, NX)

4270 FORMAT (′′, 1HI, 2X, A1, I2, 1H-, A1, I2, 2X, 1HI, 1X, 10(13,

43* 1H′, F4.1, 2H′′, 1X)/1X, 1HI, 11Х, 1HI, 10(F3.0, 1H′, F4.1, 2H′′,

*1X))

4480 CONTINUE

45DO 91 J = 1, NX, NXS

46PRINT 70, AT(1), NO(J), AT(NY), NO(J), (IQ(I, J), Q1(I, J),

*I = 2, NY)

4791 CONTINUE

48PRINT 30

49DO 90 I = 1, NY

5090 Q(I, 1) = 0.

51DO 110 I = 1, NY

52DO 110 J = 2, NX

53110 Q(I, J) = IP(I, J)*60 + P1(I, J)

54DO 120 I = 1, NY

55DO 120 K = 2, NX

56P(I, K) = 0.

57DO 120 J = 2, К

58120 P(I, K) = P(I, K) + (Q(I, J) - Q(I, 2))*BG1

59DO 125 I = 1, NY

60125 P(I, 1) = 0.

61DO 99 I = 1, NX, NXS

6299 P1 (1, I) = 0.

63DO 710 I = 1, NX, NXS

64DO710 J = 2, NY

65710 P1(J, I) = IQ(J, 1)*60 + Q1(J, I)

66DO 620 I = 1, NX, NXS

67DO 620 К = 2, NY

68Q(K, I) = 0.

69DO 620 J = 2, К

70620 Q(K, I) = Q(K, I) + (P1(J, I) - P1(2, I))*BG2

71DO 175 I = 1, NX, NXS

72175 Q(1, I) = 0.

73D1(1) = 0.

74DO 810 J = 2, ND

Документ скачан с портала нормативных документов www.OpenGost.ru 40