R package "pongaR", provides an implementation of a framework to simulate the acoustic emission measurement chain for solid particle sizing.

Citing this work:

Xavier, G. M., Seixas, J. M., On the Simulation of the Acoustic Emission Measurement Chain for Solid Particle Sizing, submitted to Applied Mathematical Modelling, August 2021.

0.0 Installation from latest sources

install.packages("devtools")
library(devtools)
install_github('gmxavier/pongaR')

to start using the library, simply load it into R environment:

library(pongaR)

1.0 Defining the source and the propagation medium

plate<-makePlate()
sphere<-makeSphere()
sourceData<-makeSource(sourceModel="hertz", 
                         plate=plate, 
                         sphere=sphere)
mediumData<-makeMedium(plate=plate, 
                         excitabilityData="titaniumEF")

2.0 Obtaining the medium excitability data

makeDD(phaseData="titanium.txt",
density=4460,longVelocity=6060,tranVelocity=3230)
makeEF(dispersionData="titaniumDD")

3.0 Obtaining the sensor frequency response

makeFR(sensorCalib="r15iuc.csv")

4.0 Defining the readout system

readoutData<-makeReadout(sensorName="r15iuc")

5.0 Simulating the AE-signal generated by the impact of the solid particle on the plate

signalData<-makeSignal(sourceData=
sourceData,mediumData=mediumData,readoutData=readoutData)