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

I) 2) 3) ' A OCT 92-4279-80 , ■? I. I) 2) 3) 4) 1.2. rocT2.<Q5-s8'~~g-,.afc

1.3. 1.4. 1.5.

' 1.6.
OCT 92-4279-80 1.7.

2. •? 2.1. F
' h II OCT 92-4279-80 ' X-ZB k 9
2.2.

. , 2.3.

OCT 92-4279-80 I) 2) ‘ 2.4.

2.6. y = Z7 x >/-fl' / X ~ _ j~* j=< i s t J
U i~ mXX;-(XX|]
2.7. 3. 3.1. 3.1,1. - A ftg - ^ 3.1.2. 3.1.3. I) 2) 3.1.4. I) 2)'

OCT 92-4279-80

( 3.2.2. 3.2.3.

I / / V V/// ' L V ~

■?

OCT 92-4279-80.

3.2.5.
( -

-

.4. ' ' 4.1. ( 4.2.
r0CT2?fO6 -68

I
X
+ %? ~ Xj = X2 = X/tjqx
> 5 Xj “ / ^6'?
>
*<•! t
$ tl ' SO 0
I2.
Xj^Xmin
Xj Xz ; “Xpjax
X$~Xm#x
4.3, (14)
4.4, . (15)
4,5.

n
2- (
1- 4.6. .0=>
£? - £? 4,7. 8 0 - (19) 4.8. ■? (20)

3x2
S " 4 I 4x3
6x4
%.

%
? Ms
Vs
? 5s*s 2 6x5

shapeType32lineWidth12700

shapeType32lineWidth12700

OCT 92-4279-80 . 5^ < : ‘ 5.1. ■?“7 ' (21)
5.2. ■? ■? . # '■? 5.3. = '■? DOi) - ——.. -^^1 -

OCT 92-4279-80 • I, 2. N - X - ■? . t/, Y. - * U 3. D - 5 - $ -

iso <
45

shapeType32lineWidth12700

shapeType32lineWidth12700

~ . ’ OCT 92-4279-80 . 5. D - <• *

6. & - 7 . ma* - mtn •“•

OCT 92-4279-80 -

OCT 92-4279-80

* J'-FL 0 iy.E.-ib LC ; *XP( 1 2 ,4 ) , XS< 12,1 ) , Xjj ( 4,12 ) , XC( 4,4 ) ,
*hPT (4,1 ) , A3 (4,1 )
ReAL*6 :V/( 12 J,AM, SD, COy-iOL /RAZS/.C<,KD,LC,LC,?iP
C -• M J 224 fOKZAT(212,Il)
22B p v ft ;>i aT t REaD 2k!4,XC,LC # Np
ReAD 22 ;/ CALL VVI(X,Y Q
’ J *At’F , A3 , SSG , CALL VV ELU
C ***♦? 0 COMMO h/HAZM/Kf'i .KD^iC.LCjHP

222 FORMAT (IH,'

201 FORMAT ( 223 FURMATdgFb.O)
204 FURMT1 2 U , Il )
226 FORMAT t F6 r 0)

226 FORMATS 3 11)

209 F0ftMAT(4E12 t 5>

REAO 220

READ 221

PHUT 201

PMhT 206

READ E03,X

DU 1 J=1,LC

1 READ 203,(Y(1,J),1=1, READ 203,RM

READ 206,SSG

READ 203,RD

pKU'f PMNT10126 PH I N PKINT11204.NO PMNT 2'0 3
•PRINT 20 1 PM NT 224' Ph U fl 12 94,SSG FORMAT! ' *,4E12 t 6)
REpOHii
**** . EXTHY pHIliT
PM NT PMhT

WR( X , YJ , 300 • .

30 3
602
pKj PHUT 302
PHUT 30.5,X( 1 ) ,X( NO phUT 306

PHIXT 307

00 602 I“1,MK
pHUT 601 ,A( CUnriKUE
pH I NT
N"4
310
314
316,N

tj
□?
< *
5 Q ' If- ( SP,EQ t 1 ) GOTO 325 •’ - ' " '' ' . ’

PM NT 316,GAMMAO

GOTO 327 525 FKI NT 331 ,G3D ■? ' " PRINT 533, P*W 318.GA ... ' 327 PRINT 31.9,N

PRINT 302 '

PRINT 320 ' P H I *S T PRINT 302 . 1 300 FORMAT!’ '.' *FU,4,'-',F11.4) ■? 326' FOR4AT4' ',7 ERD
f.
J-
t I fi i] $ J

E9 -9O* grPOJ

(pv’wy‘sfA‘ m‘ ( ( ( ( ‘ 01 0109 ( (91 W3!OW 41 ( qf ); 01 ‘ 2--9 ( I ‘ f ).
A Yl^'UHO 1+70=^ 1+ >/ 91 ( 1' 9 0X09 ( 1 ‘ . HW*W’ <4 117' X7W* ( ’ (> * ( I ‘ ON )SC X * ( O v 1 ( 7-0 ' ( 75 * ISO ’ 074 w ?0osq ’ ^ ‘ **** frS’If W-643W6 100
J

OCT 92-4279-80 DO 32 J*1,RC

pft=xcJ) 00 30 K=!,MR 30 PSA№?PSAX+A3(K,1 )*XF( J ( K) SAXU)=PSAX DO 31 1 = 1 Zf-i-l LC*NC-M**1 *HM1
HYV=0 DO 41 J=1,NC 40 P*=Y J( j ) .••-.•

DO 40 1-1,LC

RYYJ=aYYJ+( ( YU, I ~Ptf)**2) ■? 41 continue IE (ZN.GT,0,) GOTO 43 f P GOtiTUb'E A GA=KAX/AM1*100, GOTO 301 . ' ’ "4
C* . V
05 UAX=0.
Lu t> * ZN =K c 4 301 IP (ERR F EQ,0 ) ■? RETURN

IF EEK; IF (ERR, CS 61

82 FORMAT! r FORMAT!’’ - 4 t
•z •■?
Q < ....'■? J
G &4t# SUBROUTINE KoEr(X I,XU,XG,YJ t APT,VOUT)
, ; DOUBLE i-'Et.3Ir. 1 j:; XI , XB ,X0 , DOUBLE •COmmUA ZRAZM/NM , KD, №? ,LC , NP
CCMMCL/US/L.0,4 t e % H ( X
*XU(MR t ;<h), - ' ’ ' .
. *YHKC ,1 ) , Lh-1
.. GALL THANSrUI ,X3 ,.<G , CALL KULTIIXS.XI ,XC,HK CALL IRVERSIXC,MR)
CALL MULT I ( Xb , YI ,,A PT , P R, fiC t LR) ’ .
CALL MULT I ( XC , APT r VOUT, k-kj rifc^LR ) . ■? lad . • C GO SUBROUTINE THAXSPC A , DOUBLE PRECISION A t B
D IM L H SIG DO 11 I~1, DU. •! J-l ,y ; h

B< J, I)~A(I,J)

11 <5 BED
SUBROUTIXL MULT I(A, b, C,LR, *4 7 DOUBLE PRECISION A,B t C,SUM
DIMENSION A’( A i< , M R ), DO DU 1 1 -'J-l , KH

SU/.=B,Z ' '.

DO 13 K=1 t MH
13 SUM=SUM+A(t ( K

C(1,0)=SUM

IICORTIXUe l .
ReTUHL . I ‘
< END •s'-.' f
. •*
— (

shapeType32lineWidth12700

shapeType32lineWidth12700
OCT 92-4279-30 uO SUBROUTINE I AVE RS(A t MR)
uUUBEE PRECISION A, INTEGER P,R f Z
DIMENSION A(MR ( NR),Zl12) f B(12),0112)
DET=1,0
00 11 j-l,fiR

ZIJ)=J

DO 12 1=1,NR

Y-AI I t I
R=I-1
IE (p,G'IKR) GO To 13

90 13 J=P,NR

- IE (DAoS(W ),GT.DaBS( Y)) GO TO 32
00 TO 10 32

DtT=Y*DbT

EHSIL - IE ( D ■?3

4 4>
J
0 ro
16
15
17
1 12
FORMAT tlh , ' Y=1,/Y ‘
DO 17 0=1, Mt

DCJ)=A(J,K)

AlJ, Al 0,I)-~C(0)*Y
Al I ,J)~A( I,J)*Y

BW J=A( 1 , J)

J=Z(I)

Z<J)=Z(K)

Z(K)=J
DO 16 E = 1 , f. IF (K,Ek,I) GO TO 16
D <j 16 v — 1 ,

OCT 92-4279-80 1
2
3
4
S
6
7
a
21
22
*****’* r **********JK**#*****>x* + * IMPLICIT K D l.Mt AS J OX KS1 (6 ),YC CMMf./U/HI ,MXFV, JT, JPR, IU t IV.ZIV
I-TtGbR ZIV,MU(6 ),MV(6)

DATA Y DATA MIV/1,2,3,3,4,5/

FORMAT!' ",/////)

fb
CO
<>
rGrtXATI'
FOiUuiTHIl ) F0 Rv.AT (6F6 , FURMATi' ',3Ab ) FORMAT(11,F6 * 1) FORMAT!' ' t Il PM XT 2

READ 2

PMXT 2

MAD 3, NFV, JT, JPRJIP

at S1’ E >* O-es- <n
t-Q
Q ’
31

PHIAT 4 ( XFV,JT,JPR.NP

l'r UFbT,l,0R. IU=4IU(AFV)
READ 7,rV-
PKINT b,FV
MM 5,KSl

HW 6,(KSI(I),I=1,IU) MAD 5, ( Y( I , JI J ( 1=1 , IU)

PAINT 5,(Y(1, PKIRT o ( (YU(1 , J ) , 1 = 1,2) <s>
1 fc=DAbS(YNt2,1)-YN(1,1)1'
GOTO 24 •o [r (JPR,X DU 32 J=1,JT

shapeType32lineWidth12700

shapeType32lineWidth12700
21
22
31
23
DV 23 1=1 t iiH K=Z ( I )
DO 22 0-1 , ft OCT 92-4279-80 3 < -“ G rO C2
Q
*5 ftoi

33
V
23 '
23
24
34
•f
READ b. f ( Yi( I ,1 ) , 1-1,2) ' • ■? •*■?
PKIUT. ;> , ( Yi.U , 1 ) . i-1 ,2 )
IE(nfv A~jr.3so::t i ( i)) .2. '
DO 23 i-2,3T • ♦? • •
YM 1 > 1 - MMIMt L - ■? REaD 5,hSlii '
PMM b,KM:. ••.<••

IE (KSIU.EQ.0,) K5IU READ 21 ,ZIV,HI

PRINT 22.ZJV.riI ■? '

DO 34 1-І?,ID . '

KM.! 1 CALL FVGSTC Ka sstsss D&iBO Ji 500
417
403
404
405
406 •
407
406
409
333
■? 41
51
61 ■?
71
61 DATA FORJ-AT(' f . 2 OX . f FORMATC './ FORMAT ( ' r ,4X , ' BjU'GUAa FOR’iATC* ' ,4X , ' F0RMAT(Z ' ,4X FORMA'IM*' FORhATO * ,4 FORMATl” ' . FORMATf' ',4X ( ' PRINT 500 •••••’ .

PRINT 400 ’ ;

PRINT 003

PRINT 417.FV

PRINT 423

PRINT 404.KSI1,KSIIU

PRINT 400 .. .

FORMAT! ' ' ,45X , 'Q0' )

FORMAT! ' ' ,.45 FORMAT!' ',45X, '40+Q1E+Q2b**2') •

FORMAT!' ' ,>45X ,'Q0+Q1 E+Q2EX' ) -

FORMAT!' ',45X,' ■? FO tiMAT! ' ' ,45X , 'Q0 + QlE + O.2t/**2*X+C3t;X + O4*E**2*X' ) GOTO(3b,36.37,36,39,40) ,7!FV ,

PRINT 333

>';

GOTO 42.

PRINT 41 ■?

GOTO 42 1 - 8 36 X

>
' .■? . , ..Avi.. - . x

37 PRINT 51

GOTO -42

38 PRINT 61

GOTO 42 39 PRINT '71 GOTO 42

r . 40 PRINT 61 42 CONTINUE DO 90 1-1,IV
90 PRINT 407,8(I ) ,TETA<I f IF!JPK.EQ.l ) GOTO 530 <
PRINT 40tt FRItiT 409,GND F IHNF.EQ.3) GOTO '&30 PRINT 500
410 FORMAT!* * , 13X, '’ 413 FORMAT!* * ,4X, ' 414 415 FORMAT!* * t 4X , ' 416 FORMAT!' ',4 .. 505 FORMAT! * * PHIMT 410 ’

PRINT 500 PRINT 413

• PRINT 414,GG < fl
tj
c: PRINT 416 ,G0

PRINT 505 .

PRINT 512

512 FORMAT!* *,4X ^' 513 FORMAT!' ',4X, ' PRUT 513,G

PRINT 500 '

GOTO 555

530 PRINT 500

. 556 PRINT 557

* 557 FORMAT!' 555 CONTINUE

STOP

- - END <3
M5
c
C5 <5 <

C****** S "(5
<Tj < c<mok / D 1 Eftfc Iu. Y ( 6,4 ) , *b ( 6 , lE’UFV* GT,3, )G0 TO 2
DO 1 1-І?,JU r (
1 X(1 )=£? 2 [E( E I,EQ,0 , ) n I?1 ,96
4 D 0 b J1 = 1 , J T , ' v
DO 5 i=l , IU,2 . , . ' ■?'
DCI ( I t Ji UY( I , JI J—YN( 1 t JI ) : >
5 Du I ( ( 10 DO 12 1-1, iu

DOU J-0, •:-

DO 11 JI=1,Jf '
1 1 DC( 12 DO 14 1-і? ,10
. - DU )-T ,
DU 13 D'C 1 )-DU >UDCIU, Jl )*DCU ) ) IU JT.iU.t ) GO TO. 14 T
Dt'J)=L-(i )/( JT-1 ) ■? ; J ' .

■? ; 14 ' ' COATI-AUE ' . -

IU jiFV,XKU jGO TO 23
WP-UG(l)
DO 2Z I-2 t iU
20 If( nP,LT,DC( I)) A’?"DC(I) '

TU'A (1,1 ) = ■? DO 21 1 = 1,10 •’•''•• • ’

' 21 . ft'M I UDABSIDGC I WPJ + l ,96*DSQRT( D( I ) ' ' ,

A P— DC 22 1=2,10

IE ( 22 G GC = liJ^.*TETA( 1 ,1 )/fi
■? GO = GMj

G—G0"^GG ,

GU 1,0 6icsS
' 23 DU 24 1=1;10

24 MDC I ,1 )=C0(1 ) ,

C A t L Q* = UTA( 1 ( 1 ) . • ■?

QI=T&1A(2,1 ) .

Q2=TtTA(3, Q3 = tet^(4,1 )
Q-i = TETAlb,l ) > ' 05
' X:
□?
£?
< < £?
,
- <5 1

51
52
: = s s= = DO 50 1=1, JU

1 )=.‘,P + Q1 *KS I ( I )

IF (kFV.EG.S) GOTO 40
NFVl=KFV-2

GOTO (51,33,35,37),NFV1

DO 52 1=1,ID

GOTO 42

DO 54 J=l,JU
55
56
05 do 1-1, IU
37
56
40
41

H( I = G 0 DC 56 1=1 I )+Q2*KSH I )*KS I ( I )*Q3*KSI( I )*X( , ID

DO 42 1=2,10
IF (AP,LT,WM( I ) ) & f P=AM(I)
42 GM'= c = = =====:= M5 = (KSI( IU)4-KSI(1 ))/2,
kOX=(X(ID)+X(1))/2, Gv-C C + 01 -*.40
IF (aFV, NFV1=KFV"2
GOTO (&0,Ol,&2 > 55),hFVl

50 GO — GO +Q2 * ‘‘O^HO

GOTO 62

bl GC=GC+Q2*,40*h0X

GOTO 60

52 uC = GC+(i2 . GOTO 60

53 GC=GC+G2*M0*M0+Q3*M0*MDX+Q4*;40*M0*MDX

60 GC=100.*GC/fc J; T) '□? 4
CO
Y - *X V;
□?
'O W /' > 1

C x = = =;=-- = =:" GOTO ( 61 GOTO 7 2

62 GOTO 54 ‘ ■?' .••>:':•

63 > GOTO 72 . . '■?

64 rtPs*,l +2*' WM(1>-t*?*Q3*X(1))**2
w’-l( 3 ) —( a P+yd*'iOX 1*^2

GOTO 6P

65 Wr=Ql +2 : 69 ? DlS - .' ' ' ' GOTO 73 ' '.' 71 D 1£? (KbU IO)-KSI (1 ) )^*2J/12. t -
■? ErS I L-2,’■? :■?
IE(IH1-І?,96).bE.EPS IF( 73 DC GU=DSQHT TiP*DD?+Gf41J*GfcD)
G-Gv*G0
IF G^DABSiG) co □? <4 4 <
p . C' DEBUG IKI? -$ wa Gg <a
t tO Mb

REALES X(6),rlSI(6),E(6 t 6) ( HI,N

■? ’ ' COMMON/U/HI JPR, IUJ.V

DO 1 1=1,IU

E<1 1 1 )=1.
1 E( I t 2)=KSH I)
HVFikrfv-2

GOTOU,4,6,6),NVF1

3 DO 31 1-1,IU

31 El I ,3)=KSI(I)*KSI( I )

RETURN

4 DO <1 1 = 1,IU

41 E( I ,3 )=KSI ( I RETURN

5 DO'51 1=1,IU

Ell ,3)=KSI( I)*KSI(D

51 E< I ,4)’=KSI( I )*X( I )

RETURN .

6 DO 61 I-1,IU

.. El I-,4)=KSH I )*X( I )

•61 E< I ,5 )=E( I .3 HXH )

RETURN ■? c debug init
END
SUoRCUTlftc * I CALL TUKSH CALL MULTI ( Em2,DG,TETA, IV,10,1) RETO Rp
a SUB ri OUT 1 KE Tri fia A L * du 11 1-1, op
0 0 1 1 j ~ J ( ;.; X rtETU fir.
L ft D
SUB KUUT liE VOGT I ( RthL^ti A(6,6),ii[o,6),CU,6)
PC 11 1= DO 11 j -1, SU;4~ Du io 10 S U M=S U +A <I, G(I, 11 RbTUTu<
E AD
c SVBhOUTINa 1 kV E RS ( A , I ft D E T = I , it
CD It J~l,r;r<
" 11 ZQ)=J

DO 12 1-І?,UR

K=I
Y S A 1,1)
R^I-l
P-I-H
St- ( P , GT , DO 13 Jsp,riR
.v-A I , J )
IE ( DASSi 7> ) , GT , DAaSi Y ) 1 GO ?U 02

GO TO 10

Y “*
10 *b

~ rocfljo?768"

shapeType32lineWidth12700

shapeType32lineWidth12700
DtT=YM‘DET

EPSIL=0..10-06

1>‘ ( DABbW.LT.EPSIL) GO GO ■? 70R4AT . ■? ■? Y=l,/Y
DO <X> 17 COtITIhUE 4Q K=Z(I) * <* A(K t J)=