De nauwkeurigheid van de krachtopnemer

(1)

De nauwkeurigheid van de krachtopnemer

Citation for published version (APA):

van Heck, J. G. A. M. (1981). De nauwkeurigheid van de krachtopnemer. (DCT rapporten; Vol. 1981.018). Technische Hogeschool Eindhoven.

Document status and date: Gepubliceerd: 01/01/1981

Document Version:

Uitgevers PDF, ook bekend als Version of Record

Please check the document version of this publication:

• A submitted manuscript is the version of the article upon submission and before peer-review. There can be important differences between the submitted version and the official published version of record. People interested in the research are advised to contact the author for the final version of the publication, or visit the DOI to the publisher's website.

• The final author version and the galley proof are versions of the publication after peer review.

• The final published version features the final layout of the paper including the volume, issue and page numbers.

Link to publication

General rights

Copyright and moral rights for the publications made accessible in the public portal are retained by the authors and/or other copyright owners and it is a condition of accessing publications that users recognise and abide by the legal requirements associated with these rights. • Users may download and print one copy of any publication from the public portal for the purpose of private study or research. • You may not further distribute the material or use it for any profit-making activity or commercial gain

• You may freely distribute the URL identifying the publication in the public portal.

If the publication is distributed under the terms of Article 25fa of the Dutch Copyright Act, indicated by the “Taverne” license above, please follow below link for the End User Agreement:

www.tue.nl/taverne

Take down policy

If you believe that this document breaches copyright please contact us at: openaccess@tue.nl

providing details and we will investigate your claim.

(2)

(3)

5

(4)

(5)

(6)

.

x ed 'h n

s

.

t

-2

(7)

P

(8)

.

s

Q

A

.

..

8 cb

a

2

93 a

(9)

b\

o

3 .

h ? A

.a

-.

1

rx

(10)

(11)

(12)

n

I

(13)

F

e

4

(14)

3

3 4-

a a-

l

ti

(15)

r

e t

BRUGGEVOELIGHEID 5000 .O000 /Mek NULSTAND RF2K ( UREK) - 3 .o000

NULSTAND KRACHT (KN) -0.0060

VOLLE SCHAAL P a K M E T E R 9990 .o000 BRUGVOEDING ( V ) 5 . 0 0 0 0

CAL I BRAT I ON VALU E

1

.o000 GAUGE FACTOR

2

. l o o 0

BRUG FAKTOR 2 .GOO0

(16)

-0.558 -1 .O76 -1.596 -2.613 -3 . l o 0 -3 .GO9 -4.128 -4.633 -5.100 -5 .GOO

-e

.110 -6.660 -7.110 -7 .GOO -7.090 -6.640 -6.100 -5.600 -5 .loo -4.614 -4.121 -3

.coo

-3 .lo5 -2 .e17 -2.118 -1.609 -1 .lo% -0.554 -0.006 -2 e115 -3‘79 -728 -1079 -1422 -1755 -2083 -2409 -2757 -3095 -3410 -3748 -4091 -4429 -4725 -5059 -4718 -4412 -4083 -3744, -3408 -3080 -2747 -2401 -2084 -1756 -1086 -748 -374 -14.20 -3

(17)

.

. .. .. . ... . . .. .. . --.. .- -

1

INUQErz VOOR REBliewrìE KRACHT (KNJ) REK ( U R E K ) - 0 . 5 5 2 -1 .O70 - 1 . 5 9 0 - 2 . 1 0 9 - 2 . 6 0 7 - 3 . 0 9 4 - 3 . 6 0 3 - 4 . 1 2 2 -4.627 - 5 . 0 9 4 - 5 . 5 9 4 - 6 . 1 0 4 - 6 . 6 5 4 -7 . l o 4 - 7 . 5 9 4 - 7 . 0 8 4 - 6 . 6 3 4 - 6 . 0 9 4 -5 * 5 9 4 - 5 . 0 9 4 - 4 . 6 0 8 - 4 . 1 1 5 - 3 . 5 9 4 - 3 . o99 - 2 . 6 1 1 -2.112 - 1 . 6 0 3 - 1 . 1 0 2 - 0 . 5 4 8 -0.000 - _ _ - - _ _ - _ - 6 8 . 9 - 1 3 2 . 9 -197.3 -260.2 - 3 2 1 . 2 - 3 8 1 . 3 - 4 4 1 . 1 - 5 0 4 . 9 - 5 6 6 . 9 - 6 2 4 . 6 - 6 8 6 . 6 - 7 4 9 . 5 - 8 1 1 . 4 -865.7 -926 a 9 - 8 6 4 . 4 - 8 0 8 . 3 - 7 4 8 . 0 - 6 8 5 . 9 - 6 2 4 . 3 - 5 6 4 . 1 - 5 0 3 . 1 - 4 3 9 . 6 - 3 8 1 . 5 - 3 2 1 . 4 - 2 5 9 . 8 -198.6 - 1 3 6 . 6 - 6 8 . 0 0 . 0 -~ ~~ ~-~

(18)

RESULTATEN R E G R E S S I E

Y=A+BX

BRUGGEVOELIGHEID 5000.0000 NULSTAND REK ( UREK) - 3 .o000

NULSTAND KRACHT ( K N ) -0.0060

KANTELPUNT KRACHTNAUW 2 .o000 VOLLE SCHAAL R E K F E T E R 9 9 ~ 0 . 0 0 0 0

BRUGVOEDING ( V ) 5.0000

C A L I B R A T I O N VALUE 1 .o000

GAUGE FACTOR 2 .loo0

BRUG FAKTOR 2 . 6 0 0 0 AF-O . 2 5 5 1 7 E O 1 B== 0 . 1 2 1 û 8 E 0 3 CORR COEF=O .X3998319

VARIANTIE

IN

A= 0.206203 0 2 V A R I A N T I E I N B= 0 . 1 0 5 2 5 E 01

(19)

-~

REAL XICORR,Y ICORR VARX ,VARY, A, 13, XI I Y I, XG ,YG I

"SXIYI I SXI2, SY 12, SXI

,

SY I ,VARXI ,VARY1 , VARXX ,VARYY I

*VARA,VARB,DBDXI,DBDYI,DADXI,DADYIlDFDA,DFDBlDFDY, "DUP.IMY1 ,X,Y *X~,SENS,FULLSC,BRSUPP,CALVALV~,GA~FAC,BDGFAC,CY,CXX,YO, INTEGER I I N INTEGER BUFFER( 4 0 ) LOGICAL RNUM SENS=5000 .O YO==-3.

o

XO=-O .O06 CXX-2 n

o

FULLSC=9990.

o

BRSUPP=5. O CALVAL= 1

.

O GAUFAC= 2

.

1 BDGFAC-2.6 SXIYI=O.O SXI=O

.o

SY I=

o

.

o

CXI2=0.

o

SYI2=0.0 VARAZO. O VARB=O

.

O 10 CONTINUE

CALL PRTR4( 'BRUGGEVOELIGHEID' ,16,SENS)

CALL PRTR4( 'NULSTAND REK (UREK)' ,19,YO)

CALL PRTR4( 'NULSTAND KRACHT (KN) ' ,20,XO)

CALL PRTK4( 'KANTELPUNT N A U W . ',17,CXX)

CALL PRTR4 ( 'VOLLE SCHAAL AANW REKMETER' I 21 I FULLSC)

CALL PRTR4('BRUGVOEDING (V)',15,BRSUPP)

CALL PR'TR4( 'CALIBRATION VALUE' ,17,CALVAL)

CALL PRTR4( 'GAUGE FACTOR', 12,GAUFAC)

CALL P R.T R4 ( ' BRUG FAKTOR'

,

11

,

BDGFAC )

IF (.NOT.YSNO$A('VERANDERINGEN',l3,A$DNO)) GOT0 20

IF (RNUM( ' BRUGGEVOELIGHEID ' '16, D U M 1 ) ) SENS=DUMMYl

IF (RNUM('NULSTAND REK (UREK)',19,DUMMYl)) YO=DUMMYl

IF (RNUM( 'NULSTAND KRACHT (KN) ' ,20,DUMMYl)) XO=DUMMYl

IF ( RNUM ( ' KANTELPUNT N A U W

.

' ,17 I DUMMY1 ) ) CXX=DUMMYl

$INSERT SYSCOM>A$KEYS --- - ~ - ~- ~- ~ ~ ~- -~~ ~~ -~ ~- ~ ~ - -~ -~

(20)

IF ( RNüM( ' VOLLE SCHAAL REKMF'L'ER' ,26, DUMMY1 ) ) FULLSC=DUMMYl

IF (RNUM( ' BRUGVOEDING (V) '

,

15 ,DUMMYl) ) BRSUPP=DUMl

IF (€?NUM( ' CALIBRATION V N X E ' ,17 ,DUMMY11 ) CALVAL=DUMMYl

IF (RNUM( 'GAUGE FACTOR' ,12,DUMMY1) ) GAUFAC=DUMl

IF ( RNUM ( ' BRUGFAKTOR' ,lo, DUMMY1 ) ) BDGFAC=DUMMYl

GO TO 10

20 CONTINUE

VARY I=VARY ( SENS ,, GAUFAC, BDGFAC

VARYY-VARY I

CY=SENS*5 .O*CALVAL*2 .O/ (FULLSC*BRSUPP*GAUFAC*BDGFAC)

CALL OPEN$A(A$WI3ITCA$SAMF, ' CORR' ,4,1)

CALL OPEN$A(A$WRIT+A$SAMF, 'REGR' ,4,2)

CALL OPEN$A(A$WEAD+A$SAMF, 'REGRIN' ,6,4)

WRITE( 6,99997)

WRITE ( 5 , 9 9 9 9 9 ) S E N S , Y O , X O , C X X , F U L L S C , B R S U P P , C A L V ~ , G A U F A C ,

WRITE (6,99999)SENS,YO,XO,CXX,FULLS~,BRSUPP,CALVAL,GAUFA~,

WRITE (5,99998)

CALL OPEN$A(A$WRIT+A$SAMF, 'VARX' ,4,3)

"BDGFAC "BDGFAC

99999 FORMAT(//'BRUGGEVOELIGHEID1,F12.4/'NULSTMD REK(UREK)',F12

"'NULSTAND KRACHT (KN)',F12.4/'KANTELPUNT KRACHTNAUWK',F12.

"'VOLLE SCHAAL REKMETER',F12,4/'BRUGVOEDING (V)',F12.4/

*'CALIBRATION VALUE',F12.4/'GAUGE FACTOR',F12.4/

"'BRUG J?AKTOR',F12.4/) *.4/

*

4/

99998 FORMAT(

/ /

'GEKORRIGEERDE MEETWAARDEN'

/

99997 FORMAT(// 'RESULTATEN REGRESSIE'// 'Y=A+BX'//)

88889 FORMAT (110)

*'KRACHT (KN) REK (IJREK)'//)

READ (8,88889) N DO 3 0 I=l,N FS2AD (8,88888) X,Y 88888 FORMAT ( F6.3, lX., F6. O ) XI=XICORR( X,

1 .

o ,

xo

) YI=YICORR(Y,CY,YO)

sx

I=

sx

I+X I SY I= SY I-I-Y I SXIe=SXI2+XI*X~. SY 12= SY I2 +Y I *Y I _ - ~ _ _ ~- ~ _ __ _ -_ - - __ _ _ - _ - - SXIY - I=SXIY _ _ 1'Xr"YI _

(21)

WRITE (5,99996) X1,YI 99996 FORMAT (F6.3,7X,F7.1) CALL TRNC$A( 1) 30 CONTINUE CALL CLOS$A(~) XG=SXI/FLOAT(N) YG= SY I /FLOAT ( N) B=(SXIYI-FLOAT(N)*Xü*YG)/(SXI2-FLOAT(N)*XG*XG) A=YG-B*XG RO~(SXIYI-FLOAT(N)*XG*YG)/SQRT((SXI2-FLOAT(N)*XG*XG)* *(SYI2-FLOAT(N)*YG*YG)) WRITE(6,99995) A,B,RO WRITE (1,99995) A,B,RO CALL CLOS$A( 4)

CALL OPEN$A(A$READ+A$SAMF, 'CORR' ,4,5)

DO 40 I-1,18

READ ( 9,88887 ) BUFFER

88887 FORMAT(40A2)

40 CONTINUE

99995 FORMAT (//'A=',Ell2.5/'B=',El2.5/'CORR COEF=',F10.8//)

DO 50 I=l,N READ (9,88886) XI,YI 88886 FORMAT ( F6 . 3 , 7X, F7

.

1 ) DBDXI=(YI-YG)/(SXI2-FLOAT(N)*XG*XG)- *(2.0*B*(XI-XG)/(SXI2-FLOAT(N)*XG*XG)) DBDYI=(XI-XG)/(SXI2-FLOAT(N)*XG*XG) D~YI~(l.O/FLOAT(N)-(XI-XG)*XG/(SXI2-FLOAT(N)*XG*XG)) VARXI=VARX(XI,CXX) DADXI=-(XG*DBDXI

+

B/FLOAT(N))

VARA-VARA+ ( DADXI* DADXI ) *VAF!XI+ ( DADY I* DADY 1 ) *VARY 1

VARB-VARBf (DBDXI*DBDXI) *VARXI+(DBDYI*DBDYI) *VARY1

WRITE (6,99994) VARA,VARB

*'VARIANTIE IN B=',E12.5/) 50 CONTINUE

99994 FORMAT(//'VARIANTIE IN A=',E12.5/

(22)

-

/4-

99993 CALL @LOS$A(2) DFDA=-i. O/B DFDB=- ( YG-A)

/

( B *B ) DFDY=L.O/B VARXX=VARA*DFDA*DFDA+VARB*DFDB*DFD~+VARYY*DFDY*DFDY WRI TE ( 7 I 9 9 9 9 3 ) V ARXX WRITE(l,g<ag<a3)VARXX

FORMAT( 'DE VARIANTIE BIJ DE KRACHTMETING IS:',E12.5//)

CALL TIWCSA(3)

CALL CLOS$A( 3)

CALL CLOS$A( 5)

CALL EXIT END

REAL FUNCTION XICORR(XI,C,XO) REAL XI,XO,C

RETURN END

REAL E'UNCTION YICORR(YI,C,YO) M A L YI,C,YO

RETURN END

REAL FUNCTION VARX(X1,C) REAL XI,C REAL VAR VAR=O .O025 IF (X1.LT.C) VAI<=OOOl VARX=VAR RETURN END

REAL FUNCTION VARY ( SENS

,

GAUFAC I BDGFAC )

REAL SENS I GAUFAC, BDGFAC

REAL DVV

,

ACCV, ACXEPS

DVV= SENS* 2

.

O

/

4. O ACCV=0.001*DVV+2.0 ACCEPS=4.0*ACCV/(GAUFAC*BDGFAC) VARY=(ACCEPS/2.0)**2 RETURN END XICORR=C*(XI-XO) YICORR=C* (YI-YO $ ~ _ - -

(23)

LOGICAL FUNCTION RNUM(BUFFER,LEN, R4VAL) INTEGEK"2 LEN

REAL R4VAL

LOGICAL YSNOSA, DUM

DUM=. FALSE. CALL TNOUA(BUFFER,LEN) CALL TNOU(

'

(F10.4) I , 8 ) INTEGER BUFFER( 40) $INSERT SYSCOM>A$KENS READ(

1

I 99999

1

R ~ V A L 99999 FORMAT(F10.4)

IF ( K4VAL .Ea. O. O ) DUM=YSNO$A ( DEFAULT? I , 8 , ASDYES )

RNUM= ( .NOT. DUM)

RETUñN END SUBROUTINE PRTR4(BUFFER,LEN,R4) INTEGER BUFFER( 40) INTEGER"2 LEN REAL R4 CALL TNOUA( I = ,2 ) WRITE (1,99999) R4 99999 FORMAT(G12.4) RETURN END CALL TNOUA(BUFFER,LEN) _ _ _ - - - ___ - - _ _- _ _ _ - - ~ - - - I

(24)

I "G c *. , f

(25)