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.
install.packages("devtools")
library(devtools)
install_github('gmxavier/pongaR')
to start using the library, simply load it into R environment:
library(pongaR)
plate<-makePlate()
sphere<-makeSphere()
sourceData<-makeSource(sourceModel="hertz",
plate=plate,
sphere=sphere)
mediumData<-makeMedium(plate=plate,
excitabilityData="titaniumEF")
makeDD(phaseData="titanium.txt",
density=4460,longVelocity=6060,tranVelocity=3230)
makeEF(dispersionData="titaniumDD")
makeFR(sensorCalib="r15iuc.csv")
readoutData<-makeReadout(sensorName="r15iuc")
signalData<-makeSignal(sourceData=
sourceData,mediumData=mediumData,readoutData=readoutData)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.