dsi: Double slit intensity function

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

Double slit intensity function

Description

This is a function to evaluate the double slit intensity function

Usage

dsi(theta, d.slit.sep, a.slit.width, lambda, Imax = 1)

Arguments

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

Details

This is a function to evaluate the double slit intensity function.

Value

Double slit intensity.

Examples

library(che302r)

dsi(pi/2, 10, 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
d <- 6*lam
a <- 2*lam
I <- dsi(theta, d.slit.sep = d, 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.