ssi: Single slit intensity function

In npetraco/che302r: Handy functions for CHEM 302, Physical Chemistry II

Single slit intensity function

Description

This is a function to evaluate the single slit intensity function

Usage

ssi(theta, a.slit.width, lambda, Imax = 1)

Arguments

theta	direction angle between -pi/2 and pi/2 (-90 deg, 90deg)
a.slit.width	slit width
lambda	wavelength
I.max	largest intensity to use

Details

This is a function to evaluate the single slit intensity function. It isn't really necessary because we can just make the slit separation (d.slit.sep) 0 in dsi() to get ssi(). It's here for convenience.

Value

Single slit intensity.

Examples

library(che302r)

ssi(pi/2, 0.1, 650)

theta <- seq(from=-pi/2, to=pi/2, length.out=1000)
#theta <- seq(from=-pi/4, to=pi/4, length.out=1000)
lam   <- 650
a     <- 3*lam
I     <- ssi(theta, a.slit.width = a, lambda = lam)
plot(theta*180/pi, I, typ="l", xlab="theta (deg)")

npetraco/che302r documentation built on April 17, 2025, 10:34 p.m.