Commit d137d3b9 authored by thomas.forbriger's avatar thomas.forbriger
Browse files

src/synt/misc/siggen.f [TASK]: add references

give proper reference to Bruestle and Mueller (1983)
parent 699e129c
......@@ -40,13 +40,14 @@ c 12/06/2014 V2.2 document properties of Mueller-Bruestle
c amplitude spectrum
c 14/04/2015 V2.3 provide square wave
c 21/09/2015 V2.4 provide damped cosine
c 30/11/2021 V2.4a provide reference to Brüstle and Müller (1983)
c
c==============================================================================
c
program siggen
c
character*(*) version
parameter(version='SIGGEN V2.4 SIGnal GENerator')
parameter(version='SIGGEN V2.4a SIGnal GENerator')
c
c parameters
integer nsig,ncyc,s
......@@ -174,7 +175,7 @@ c
print *,'1 sine wave'
print *,' f(t)=a*sin(2*pi*f*t)'
print *,' '
print *,'2 Mueller-Bruestle function'
print *,'2 Mueller-Bruestle function (*)'
print *,' f(t)=0 t <= Ta'
print *,' f(t)=a*(-0.75*cos(pi*(t-Ta)/(Te-Ta))+'
print *,' 0.25*cos(pi*(t-Ta)/(Te-Ta))**3) Ta < t < Te'
......@@ -183,7 +184,7 @@ c
print *,' It is a smooth step starting at Ta at value 0'
print *,' and leading to value a at Te.'
print *,' '
print *,'3 first order derivative of Mueller-Bruestle function'
print *,'3 first order derivative of Mueller-Bruestle function (*)'
print *,' f(t)=0 t <= Ta'
print *,' f(t)=a*(0.75*pi/(Te-Ta)*'
print *,' dsin(pi*(t-Ta)/(Te-Ta))**3) Ta < t < Te'
......@@ -198,7 +199,7 @@ c
print *,' with n being a positive integer. Half-width is'
print *,' approximately at f=1.16/dT.'
print *,' '
print *,'4 second order derivative of Mueller-Bruestle function'
print *,'4 second order derivative of Mueller-Bruestle function (*)'
print *,' f(t)=0 t <= Ta'
print *,' f(t)=a*(9*pi**2/(4*(Te-Ta)**2)*'
print *,' sin(pi*(t-Ta)/(Te-Ta))**2*'
......@@ -307,6 +308,17 @@ c
print *,'18 damped cosine wave'
print *,' f(t)=a*cos(2*pi*f*t)*exp(-t/Td)'
print *,' '
print *,'(*) The Bruestle-Mueller function was proposed by'
print *,' Bruestle and Mueller (1983). The function itself'
print *,' and its first and second derivative are continuous.'
print *,' '
print *,'References'
print *,' '
print *,'Bruestle, W. and Mueller, G., 1983. Moment and duration of'
print *,'shallow earthquakes from Love-wave modelling for regional'
print *,'distances. Phys. Earth Planet. Int., 32(4), 312-324. doi:'
print *,'10.1016/0031-9201(83)90031-6'
print *,' '
call sff_help_formats
stop
endif
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment