Description Usage Arguments Value Author(s) Examples
This function create a new filter.
1 2 | create_Filter(name, description, reference.thickness, thickness = NULL,
reflexion, transmission)
|
name |
character: Name of the filter. |
description |
character: Description of the filter. |
reference.thickness |
numeric: Reference thickness of the filter. |
thickness |
numeric: Thickness of the filter (by default thickness = reference.thickness). |
reflexion |
numeric: Reflexion of the filter (1-P). |
transmission |
numeric: Transmission of the filter (T). |
This function return a new filter.
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 | #Data
wavelength <- seq(200,1000,10)
values <- dnorm(x = wavelength,mean = 400,sd = 50)*dnorm(x = wavelength,mean = 200,sd = 50)
values <- values/max(values)
name <- "example"
description <- "non realistic filter"
reference.thickness <- 1
reflexion <- 1
transmission <- matrix(data=c(wavelength,
values),
nrow = 81,
ncol = 2,
byrow = FALSE)
#Filter
filter <- create_Filter(name = name,
description = description,
reference.thickness = reference.thickness,
reflexion = reflexion,
transmission = transmission)
plot_Filter(filter)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.