gsl (version 1.3-1)

Expint: exponential functions

Description

Expint functions as per the Gnu Scientific Library and A&S

Usage

expint_E1(x,give=FALSE,strict=TRUE)
expint_E2(x,give=FALSE,strict=TRUE)
expint_Ei(x,give=FALSE,strict=TRUE)
Shi(x,give=FALSE,strict=TRUE)
Chi(x,give=FALSE,strict=TRUE)
expint_3(x,give=FALSE,strict=TRUE)
Si(x,give=FALSE,strict=TRUE)
Ci(x,give=FALSE,strict=TRUE)
atanint(x,give=FALSE,strict=TRUE)

Arguments

x
input: real values
give
Boolean, with TRUE meaning to return error info
strict
Boolean

Examples

Run this code
x <- seq(from=0.5, to=1, by=0.01)
cbind(x,Si(x),Ci(x),expint_Ei(x),expint_E1(x))  #table 5.1 of AS, p239

x <- seq(from=0, to=12, len=100)
plot(x,Ci(x),col="black",type="l",xaxt="n",yaxt="n",bty="n",xlab="",ylab="",main="Figure 5.6, p232",xlim=c(0,12),ylim=c(-1,2.0))
lines(x,Si(x))
axis(1,pos=0)
axis(2,pos=0)
 abline(h=pi/2,lty=2)

Run the code above in your browser using DataCamp Workspace