R/internal.3.r

Defines functions internal.3

internal.3 <- function(amp1,amp2,lag.radians) {
 b.x <- amp1
 b.y <- amp2*cos(lag.radians)
 retention <- amp2*sin(lag.radians)
 return(c(b.x,b.y,retention))
}

Try the hysteresis package in your browser

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

hysteresis documentation built on May 15, 2021, 1:09 a.m.