Wave Propagation in Linear Media | re-examined

SetAttributes[PhiInc, ReadProtected]
SetAttributes[PhiRef, ReadProtected]
SetAttributes[PhiTo, ReadProtected]
SetAttributes[PhiFro, ReadProtected]
SetAttributes[PhiTun, ReadProtected]
SetAttributes[PhiTrans, ReadProtected]
SetAttributes[Phi, ReadProtected]
(*
Protect[PhiInc, PhiRef, PhiTo, PhiFro]
Protect[PhiTun, PhiTrans, Phi]
*)
EndPackage[]
A.4 Electromagnetic waves
A Mathematica packages
The short package ElMag computes the solutions of the wave equation for a transmission line
lled with a lossless plasma or, alternatively, the propagation of a wave through an unbounded
plasma (section 3.7). The boundary condition is given by a cos-like current being switched
on at t = 0 and switched o at some integral number of periods later.
(* Copyright: Copyright 1996, Institute of Computertechnology, *)
(* Vienna University of Technology *)
(*:Version: Mathematica 2.2.3 *)
(*:Title: ElMag *)
(*:Author: Thilo Sauter *)
(*:Keywords: Eletromagnetic Waves, Plasma Waves, Evanescent Waves *)
(*:Requirements: None. *)
(*:Warnings: None so far *)
(*:Packages: OscInt *)
(*:Summary: This application specific package contains functions for
the calculation of wave propagation in one dimensional
transmission lines filled with a lossless plasma. The model
is that the wave is excited by a sinusoidal current source
switched on at t=0. Voltage and current along the line may
be calculated as a function of time, distance, and the ratio
of the plasma frequency and the signal frequency.
*)
BeginPackage["ElMag`", "OscInt`"]
CurrStat::usage =
"CurrStat[x,t,omega] returns the stationary solution of the wave equation
for the current. See also Curr."
CurrTrans::usage =
"CurrTrans[x,t,omega,(opts)] returns the stationary solution of the wave
equation for the current. The options opts are passed to the quadrature
function OscInt. For further explanations see also Curr."
Curr::usage =
"Curr[x,t,omega,(opts)] gives the complete solution of the wave equation
for the current in a one dimensional, infinitely long transmission line
filled with lossless plasma. Excitation of the wave is accomplished by a
sinusoidal current source at the entrance of the line (x=0) being switched
on at t=0. Evanescence is presumed, so the signal frequency must be lower
than the plasma frequency. The excitation frequency is specified by the
parameter omega which denotes the ratio between signal and plasma frequency,
hence 0