Страница 4: ОСТ 92-4279-80. Отраслевая система метрологического обеспечения качества. Преобразователи измерительные. Методика определения метрологических характеристик (79865)

OCT 92-4279-80 Л,25

0 иХ£*Х

:= РАСЧЕТ ОСНОВНОЙ ПОГРЕШНОСТИ ===s==s==x=xsss^^₃₌₅;k==x=_s======₃s:

RYAX=0_t ■ ' -

DO 32 J*1,RC

Р5АХ=Й„

pft=xcJ)

00 30 K=!,MR

30

PSA№PSAX+A3(K,1 )*XF( J₍K) SAXU)=PSAX

DO 31 1 = 1 ДС

31

RYAX^KYAX-HYU, I )-PSAX)**2

32

CONTINUE

Zf-i-l LC*NC-M**1 *HM1

П (2H,GT,0,1 GOTO 33 £KR = l GOTO 301

33

GAMMAC=100_t*KD*DSQHT( RYAX/ZK*SSG)

C =-=

x ЕСЛИ КР^п-0 .РАССЧИТАТЬ СЛУЧАЙНУЮ СОСТАВЛЯВШУЮ GSl==™=™=~=

C — SS

x И ПОГРЕШНОСТЬ АППРОКСИМАЦИЯ -===s=====^_=:=-==-.=-==^z=z--

If (NP,EQ,0) GOTO 301

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

§

ZA-WMl#ftMl#NC*(ЬС-1)

IE (ZN.GT,0,) GOTO 43

f

£ER=2 GOTO 301'

KJ

43

GStxiJSij^KDfcDSQHTtRYYJ/ZN+SSGJ

*3

.. C ==z

= . РАСЧЕТ ПОГРЕШНОСТИ АППРОКСИМАЦИИ ИАИ СРЕДНЕКВАДР,ЗНАЧЕНИЯ ==»

TO Cl

IE (КОМ,EQ,1) GOTO 55

MAXMJAoS(YJ( 1 )-SAX( 1 ) )

DU 50 3=2,NC

P«=DABS1YJU)-SAXU) )

50

IE (PE,GT,MAX) HAXSPW

GOtiTUb'E

A

GA=KAX/AM1*100,

GOTO 301 . ' ’

"4}

C* .

V

05

UAX=0.

Lu t> *ї і ‘іC

£*>» tj

66

HYXa = £'i*X-HY JU)-SAXU) )**2 .

ZN =KИ1 * E .41 * ( AC — M—l 1

<=Q

If (2N»GT»D,I GOTO 5B

Cj

o,.

ERrt=3

&

GOTO 301

<□

.56

GA=DSQRT(RYAX/2N )

'TQ .D

c

4

301

IP (ERR_FEQ,0 ) ■ RETURN

IF {EEK;£q»lJ PRINT 60

IF (ERR,£Q_B2) PRINT 81

'•' ІЇ

IF (EFA,£Q,3) PRINT 62

60

FOHMATt'. В РАСЧЕТЕ GAMMAO ЗНАМЕНАТЕЛЬ »0^Г)

2s

&

CS

61

82

FORMAT!^r В РАСЧЕТЕ СЛУЧАЙНОЙ СОСТ.ЗНАМЕНЛТЕЛЬкЭ*)

FORMAT!’’ В РАСЧЕТЕ GAMMA АППРОКСИМАЦИИ ЗН АМЕН АТЕЛ Ь=0 ” )

T

r

EKD

*3>

■o

• .... •:

ЇЗО

41

ГОСТ $. (05-68 фовмал H

-

І OCT 92-4279-60 Л.26

⁴ t

•z •■

Q < ....'■ J

G &4t# ПОДПРОІ PAM/A РАСЧЕТА КОЭФФИЦИЕНТОВ МАТРИЦЫ **************л###;

SUBROUTINE KoEr(X I,XU,XG,YJ_tAPT,VOUT)

,_; DOUBLE i-'Et.3Ir. 1 j:; XI , XB ,X0 , У I , APT , VOUT

DOUBLE ЫіЕС IS І UN- KM_₽Kb _s ■'

•COmmUA ZRAZM/NM , KD, № ,LC , NP

CCMMCL/US/L.0,4 _{t e} % H

( X

и*

DIMENSION X И <C ,MR) , XB( <*R₍ N0 ) _t.

*XU(MR_t;<h), - ' ’ ' .

. *YHKC ,1 ) ,АРТОіІЇ,1 )', VOUmK, 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 ) .

уа< Псд/шев 'ч Зст?О| j „ 1

RETURN '

■ lad . • »

C GO ЦЙ PG Г P A ММ А ТРАНСПОНИРОВАНИЯ МАТРИЦЬ! f****4>*^*****^****^$<t>|c*i

SUBROUTINE THAXSPC A , В , JiR, MR) . ' ■ ■

DOUBLE PRECISION A_tB

D IM L H SIG к A ( X ft ₍i-l R ) _f В ( M R, N R )

DO 11 I~1,«ri ' ,

DU. •! J-l ,y_;h

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

11 СО.ХТІЛОЕ

RETURN &

■ЧЭІ г

<5

BED

SUBROUTIXL MULT I(A,b,C,LR,«R,RR) C ПОДПРОГРАММА > ХИОлс rl И Я МАТРИЦ

4Q

*4 » д йк 0 <й~ гО «)

О

В- 3

7

DOUBLE PRECISION A,B_tC,SUM

DIMENSION A’( A i< , M R ), В ( MR, К R } ₍0 ( A R _t К R )

DO И L'-l ,ЛД .-

DU 1 1 -'J-l , KH

SU/.=B,Z ' '.

DO 13 K=1_tMH

13 SUM=SUM+A(t₍K

C(1,0)=SUM

IICORTIXUe ^l.

ReTUHL . I ‘

< END _л " ■

•s'-.' f

. •*

о-Л

*

Q

Р «X тГ і

r

OCT 92-4279-80 Л,29

1

2

3

4

S

6

7

a

21

22

*****’*^r**********JK**#*****>x* + »**x^t***********^4c^*ifc#**^_;****^4sj(_[*j|_C4

РАСЧеіГ К-ТОВ ФУНКЦИИ ВЯИйНгіЯ и ДОП _f ПОГРЕІїНООТИ .

*і^|*'Ж**¹і'***'’^ж*чсН^**ї*сі*.*->и₃іКХ«******-****>к5фгчс*ч«^-^И4**і*і*ЧЧг*-#*>к**4«4с**4*4»>К*^*^

IMPLICIT K£At*6(A«H,U-Z)

D l.Mt AS J OX KS1 (6 ),YC б , 4 ) , X І б ) , Yh ( 2,4),ТЄТА ( 6,6 ), В ( б ), FVU ) MAL*fe KSI , KSI ii, КЗ II , K51 IU , il, HI

CMMf./U/HI ,MXFV, JT, JPR, IU_t IV.ZIV

I-TtGbR ZIV,MU(6 ),MV(6)

DATA Y Ю/З ,3,3,4.6,6/

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

FORMAT!' ",/////)

fb

£f rj J

CO

<>

rGrtXATI'

FOiUuiTHIl ) РОЙУ.АТІ ^r ',411)

F0 Rv.AT (6F6 , Г) FORMAT!' '.6F8.3) FJRMAT(3A6)

FURMATi' ',3Ab ) FORMAT(11,F6 * 1) FORMAT!' '_tIl»F6_t3) pRIhT 1 read г

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 UF\bT,l,0R.£iFV,GT,6) GOTO 5Ь6 . lV=y.IV(NFV}

IU=4IU(AFV)

READ 7,rV-

PKINT b,FV

MM 5,KSl

HW 6,(KSI(I),I=1,IU) дЬП sKSI ( 1 ) KbI IU-КЫ ( ГО ) J? ( 0FV,LE3) GOTO 30 HtAO b,(X(I ),1 = 1,IU > hint a, (x (і), i=i, IU > DO 31 01=1,JT

MAD 5, ( Y( I , JI J ₍ 1=1 , IU)

PAINT 5,(Y(1,Л ),1=1,IU)

32

MAD 5, ( Ш I , M , 1=1,2)

PKIRT o₍(YU(1 , J ) , 1 = 1,2)

<s>

1

fc=DAbS(YNt2,1)-YN(1,1)1'

GOTO 24

•o

м3 £3r>

33

V

23 '

23

24

34

С- s=x

ОСТ 92-4279-60 Л. 30

•f

READ b._f ( Yi( I ,1 ) , 1-1,2) ' • ■ •*■

PKIUT. ;> , ( Yi.U , 1 ) . i-1 ,2 )

КЧ)*86(П(г,1)-и(1*1))‘ - ■

IE(nfv»gt_s3) goto йЬ

A~jr.3so::t i ₍i)) .2. '

ЇМ 2,1 )~YM1 ,1 ) _f /

DO 23 i-2,3T • ♦ • •

YM 1 > 1 }-¥&<! ,1 )

У ii ( 2 , I )~YH2,1 )

MMIMt ^L - ■ Л

REaD 5,hSlii '

PMM b,KM:. ••.<••

IE (KSIU.EQ.0,) K5IU»20, _t

READ 21 ,ZIV,HI

PRINT 22.ZJV.riI ■ '

DO 34 1-І,ID . '

KM.! 1 і I )-KSIN

CALL FVGSTC Ka£ _tX ,¥,Y;i ,TETA_tGiiD,GG )GO,G)

sstsss D&iBO Ji РЕЗ.У llbT ATOB ssss - = “s“ = ::;r=:==2'xzs“ss*=x“--

400

500

417

403

404

405

406 •

407

406

409

333

■ 41

51

61 ■

71

61

DATA В/'Ц0','Nil ' ,'м2','CO','Q4'/ -

FORJ-AT(' ^f . 2 OX . ^f ФУ ri KU HR В Jr И Я ri И a * ) ■

FORMATC './Ж )) ■ - ' ,

FORMAT ( ' ^r ,4X , ' BjU'GUAa В ЕЛ И 40 A ^f ,2 іX , 3 A Q ), ^ji*

FOR’iATC* ' ,4X , 'Л2А0АЗОН И 3 4 E К О H BOOOO)

F0RMAT(Z ' ,4X ЛвЕЛйЧПОі’’ , 31X.F10.5 , ^r .’ * _t E10»b)

FORMA'IM*' ФУНКЦИИ ЙЛИЯНИМ*’ ) •

FORhATO * ,4л,'’КОЭФФИЦИЕНТЫ ФУНКЦИИ ОИОИЯ')

FORMATl” '.ЗоХ,A2,5X,К14*5) _; >

FORMATf' ',4X₍'ПРЕДЕЛЬНОЕ ЗНАЧЕНИЕ Н£ИСКДЮЧЕННОЙ')

ОRMAT(',4Х , 'ДОПОЛНИТЕЛЬНОЙ ПОГРйЬНОСТИЛ'.1ЗХ,F6,3)

PRINT 500 •••••’ .

PRINT 400 ’ ;

PRINT 003

PRINT 417.FV

PRINT 423

PRINT 404.KSI1,KSIIU

PRINT 400 .. .

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

FORMAT! ' ' ,.45Л ,'Ў0+Ц1Е' )

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

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

FORMAT!' ',45X,'ЦЯ+Ц1E+Q2E**2*X+t3EX')

■ 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 ¹ -

8ъам_иньл) Псдлиса и 5^/па

і я-м

! /Ыгт и дата 1

'Чл'

35

36

X

от

>

ед

>