Description Usage Arguments Value Author(s) Examples
This function create a new Material.
1 | create_Material(name, description.TL, description.OSL, TL, OSL)
|
name |
character: Name of the material. |
description.TL |
character: description of the material TL properties. |
description.OSL |
character: description of the material OSL properties. |
TL |
numeric: TL response of the Material [a.u.]. |
OSL |
numeric: TL of the Material [a.u.]. |
This function return a new Material.
David Strebler, University of Cologne (Germany).
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | #Data
name <- "example"
# TL
description.TL <- "example"
TL.wavelength <- seq(200,1000,10)
TL.temperatures <- seq(0,800,10)
# TL peak
TL.peak.x <- dnorm(TL.wavelength,400,50)
TL.peak.x <- rep(TL.peak.x,each=length(TL.temperatures))
TL.peak.x <- TL.peak.x/max(TL.peak.x)
TL.peak.y <- dnorm(TL.temperatures,400,25)
TL.peak.y <- rep(TL.peak.y,times=length(TL.wavelength))
TL.peak.y <- TL.peak.y/max(TL.peak.y)
TL.signal <- TL.peak.x*TL.peak.y
TL <- matrix(data=c(rep(TL.wavelength,
each=length(TL.temperatures)),
rep(TL.temperatures,
times=length(TL.wavelength)),
TL.signal),
nrow = length(TL.signal),
ncol = 3,
byrow = FALSE)
# OSL
description.OSL <- "example"
OSL.wavelength <- seq(200,1000,10)
OSL.color <- seq(200,1000,10)
OSL.peak.x <- dnorm(OSL.wavelength,300,100)
OSL.peak.x <- rep(OSL.peak.x,each=length(OSL.color))
OSL.peak.x <- OSL.peak.x/max(OSL.peak.x)
OSL.peak.y <- dnorm(OSL.color,500,50)
OSL.peak.y <- rep(OSL.peak.y,times=length(OSL.wavelength))
OSL.peak.y <- OSL.peak.y/max(OSL.peak.y)
OSL.signal <- OSL.peak.x*OSL.peak.y
OSL <- matrix(data=c(rep(OSL.wavelength,
each=length(OSL.color)),
rep(OSL.color,
times=length(OSL.wavelength)),
OSL.signal),
nrow = length(OSL.signal),
ncol = 3,
byrow = FALSE)
# Material
material <- create_Material(name = name,
description.TL = description.TL,
TL = TL,
description.OSL = description.OSL,
OSL = OSL)
plot_Material(material)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.