Страница 9: ОСТ 1 00030-87. Контроль автоматизированный. Методика определения требований к точности измерений контролируемых параметров (79322)

ОСТ 1 00030-87

-

C. 41

0 и 1 3 с 0

Ои 1 3 1 0 о 91 з г о

7

I F ( I С . EQ . 1 ) GOTO 33 А =A D

IF См,NE . 0 ) А = АОО

001330

ОУ 1390 0 и 1 3 5 0

0 V 1 3 6 0

3 1 0

1 оз

1 8

XFCM.hQ.OJ a$«AMAI(P1,N,MR,1,A)

1 F < И , N 6,0 ) AS = AMA L ( Р 1 , N ₍MR , М _tА) 00 18 I =1 , N

М S С I ) = о

DO 29 11=1,N

1 = 11

I F СМ.EQ,0) GUTO 37

00 1 370 0013*0 0 и 1 3 9 0 00 1 900 0 У 1 9 1 0 001970 001930

86

87

00 86 U ⁼1 , М

IF(1_т10,(J) ) GOTO 29

CONT INUE

IF С I . EQ . MS( I ) ) GOTO 29

001 9 90 001950 001960

29

A UF A(X)=AS * SORT ( P1 С I ) )

CALL PARC1_fPl,F<C«X,Z,CSlN,CSl,l,MS_fN,ALEA,MR_fM)

CONTINUE

0 U 1 9 7 0

0 0 1 9 Є 0

0 01 9 90

0 у 1 5 0 0

33

305

l)U 1 U 5 V

A = AQ

IHV,Nt,0) A = ADU

A F = ( 1 _f'P>**(1 .’P>**(FLOAT(N*M)/)

-A) ♦ * ( 1 , / ( F p у >]

001510 001520 OU 1 530 001590 Оо 1 550 0О1560 001570

DO 3 5 I = 1 і N

I F ( M . EQ , 0) GOTO a 00 11 J = 1 , M

I F С I . EQ,MH(J)) GOTO 35

CONT INUE

A LFA(I)sAF CONTINUE

1 1 8

35

001580 001590 ЭО1600 301610 301620 ОУ 1630 001690

30

CONTINUE

WRITEC6₍2D2)(ALFA(I1),L1*1,N)

WRITE(6,90)

DO 50 1=1_fN

MS( I)=0 msic і >«o

DO 38 I I al , N

50

N» изм.

Nt изв

OU 1650 091660 001670 001680

I = I I lF<M,fcQ,0) GO TO 39 DO 9Q J«1,M

I F С I ,EQ _tMRCJ)) GOTO 38 CONTINUE

F К 1 » F К С I )

001690 001700

90

39

868

и и 1 ио 0U1720 0U1730 001790 0U1750 ОУ 1780 001790 о и і а с о о о і а 1 о 001620 0 V1 8 3 0

A 1 і Л 1 M

P10=P1(I)

CALL DI СИО(URZ,1 ,E-3,1_t,1.E-6,Z<I)_fL)

IF CMS( I J , EQ , I } GO TO 38

CALL RTMI(ZCJ) , ₽ , URZ _t1 , E-3 , 1 , ,1 .E”6,500,IER)

WR1 і E < 6.90)

CALL PAi<(4₍P1 tFK,X,ALFA,CSIN,CSI,I,MS,N,Z,MR,M>

I F CMS1 ( 1 ) ,EQ. I) GOTO 38

UX ( I ) / SQR 1 (1_t*Z(I)**2>

Ь E t A ( I ) = F 0 < C ) T F С T 1 ( Z ( I ) ) * С C

CALL PARC3,FK'X,Z,CSI,P1,CSIN,I,MS1,N,3ETA,MR,Ml

№ дубликата

Nt подлинника

Оу 1 89 0 00185 0 0у1860 0VI870 0 0 1 8 8 0 Ou 189Q 0 и 1 9 С 0 0УІ910 ОУ1920

38

91

CONTINUE

QR I T E < 6 , 20 2 ) (Z ( L1 > , 11=1 ,N)

WRITE46,2O2)CBETACL1),L1«1,N>

«I R I T £ ( t> , 9 0 )

01 = 1,

QZ= 1 ,

DO 91 I=1_fN

Q1=Q1*(1.-P1(I)-ALFA(I)+0ETA(I))

Q2^SQ2* (1 , "R1 ( I ) *ALF A(I) )

J Инв.

1 Инв.

PAGE 3

OCT 1 00030-87

C. 49

3 0 t> 7 o o : E NU

Э0О710 : FUNCTION ZET<S I GM , X , FКfcs I N_fCS I V , CS I >

OU b 7 го : C = ASS(CSIV-»CSINI

0 U ft 7 3 0 : lK=FK+_f5

Out'Zao : IF<1K,EQ,O) CsABS ( c-CS I )

Ouozsn : 1 ZEr = S 1GM*X*(1 ,+ FK)/С

——.

0pft7ft0 : RETUHN

—

—

Opft 7 70 : ENO

I

♦ *

«

№ f

t

Ї

fl «

>

fl

1

«

*

* «

fl »

t •

<

*

• «

<

•

« •

1

ЗЕ

Л

1

<•>

<*>

X

X

z

ж

I

»

I

Ї

I

00

1

r »

CD

CO

fl II

fl •

• •

a

•

<4

і *

• «

« «

» »

g

X

X

t «

ж

X X

a t

3K

«I

>.

о

■<

c

$

£

a t

a

мі

«

X

X

X X

fl

•

PAGE 11

ЛИСТ РЕГИСТРАЦИИ ИЗМЕНЕНИЙ

в. № дубликата

Инв. № подлинника 868

Номер листа (страницы)

Номер доку­мента

Подпись

Дата внесе­ния изм.

Дата введения изм.

изме­

ненного

заме­

ненного

нового

аннули­рован­ного

Размножено по

з/н №/

Wk«

I. экз.

//г?

Электрография