You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
469 B
R
17 lines
469 B
R
##################################################
|
|
#################### nm2eV #######################
|
|
##################################################
|
|
source(HomeByHost("/home/taha/chepec/chetex/common/R/sunlight/solarconstants.R"))
|
|
|
|
nm2eV <- function(nm) {
|
|
# Converts wavelength in nm to energy in eV
|
|
#
|
|
sun.constants <- solar.constants()
|
|
|
|
eV <-
|
|
sun.constants["h.eV", "value"] *
|
|
1E9 * sun.constants["c", "value"] / nm
|
|
|
|
return(eV)
|
|
}
|