R/lorentz.R

`lorentz` <-
function(p,x){
y0<- p[1]
A1<- abs(p[2])
w1<- abs(p[3])
x01<-p[4]
B1<-(2*A1/pi)*(w1/(4*(x-x01)^2+w1^2))
y0+B1
}

Try the constants package in your browser

Any scripts or data that you put into this service are public.

constants documentation built on May 31, 2017, 2:25 a.m.