Directory of image this file is from
This file as a plain text file

	FUNCTION ABST(Y0,DV,EF,T)
C BERECHNET DEN ABSTAND DER KONTAKTZUNGEN ABST [M] ALS FUNKTION DER
C ZEIT T [S] NACH OEFFNEN DES KONTAKTS AUS DER EIGENRESONANZ-FREQUENZ
C EF [1/S], DEM VERHAELTNIS DV=D(N+1)/D(N) ZWEIER AUFEINANDER FOLGENDER
C AMPLITUDEN-MAXIMA AUF DER SELBEN SEITE UND DEM KONTAKTSPALT Y0 [M]
C IN DER RUHELAGE.
C FORTRAN II
	DPI=6.2831853
	TAU=1./(EF*ALOG(DV))
	ABST=Y0*(1.-EXP(T/TAU)*COS(DPI*EF*T))
	RETURN 
	END