Wave Propagation in Linear Media | re-examined

];
AccuracyGoal->ag,
MaxIterations->ma],
{k,irel,irel+n-1}]]
],
True,
Message[PartitionTable::badparam,ft]]
OscIntControlled[f_, fzero_, a_, opts___Rule] :=
Module[{seqtab,parttab,iterations=1,offs,firstval,intlim,
wp = WorkingPrecision/.{opts}/.Options[OscInt],
ag = AccuracyGoal/. {opts}/.Options[OscInt],
pg = PrecisionGoal/. {opts}/.Options[OscInt],
mi = MinRecursion/. {opts}/.Options[OscInt],
ma = MaxRecursion/. {opts}/.Options[OscInt],
nt = NSumTerms/. {opts}/.Options[OscInt],
ne = NSumExtraTerms/. {opts}/.Options[OscInt],
wd = WynnDegree/. {opts}/.Options[OscInt],
it = MaxIterations/. {opts}/.Options[OscInt],
ac = AccuracyControl/. {opts}/.Options[OscInt],
il = IterationLength/. {opts}/.Options[OscInt]},
offs = PartitionOffs[zerof,a,opts];
parttab = PartitionPoints[fzero,a,ne+nt+1,offs,0,opts];
If[N[parttab[[1]]] < a,
parttab = Select[parttab,(N[#] >= a)&];
Message[OscInt::lowfirst,Length[parttab]]];
firstval = If[N[parttab[[1]]] == N[a], 0,
NIntegrate[f[x],{x,a,parttab[[1]]},
Method->DoubleExponential,
WorkingPrecision->wp,
AccuracyGoal->ag,
PrecisionGoal->pg,
MinRecursion->mi,
MaxRecursion->ma]];
If[N[parttab[[1]]] =!= Infinity,
seqtab = Table[NIntegrate[f[x],{x,parttab[[i]],parttab[[i+1]]},
Method->GaussKronrod,
WorkingPrecision->wp,
AccuracyGoal->ag,
PrecisionGoal->pg,
MinRecursion->mi,
MaxRecursion->ma],
{i,1,Length[parttab]-1}]];
Which[N[parttab[[1]]] == Infinity,
firstval,
ac === False,
SequenceLimit[Take[FoldList[Plus,firstval,seqtab],
{nt+1,nt+ne}],WynnDegree->wd],
IntegerQ[ac],
intlim = SequenceLimit[Take[FoldList[Plus,firstval,seqtab],
{nt+1,nt+ne}],WynnDegree->wd];
While[iterations < it && Accuracy[intlim] < ac,
parttab = Join[{Last[parttab]},
PartitionPoints[fzero,a,il,offs,ne+nt+1,opts]];
seqtab = Join[seqtab,
Table[NIntegrate[f[x],{x,parttab[[i]],parttab[[i+1]]},
Method->GaussKronrod,
WorkingPrecision->wp,
AccuracyGoal->ag,
PrecisionGoal->pg,
MinRecursion->mi,
MaxRecursion->ma],
{i,1,Length[parttab]-1}]];
ne = ne + il;
iterations++;
intlim = SequenceLimit[Take[FoldList[Plus,firstval,seqtab],
{nt+1,nt+ne}],WynnDegree->wd]
];
If[Accuracy[intlim] < ac, Message[OscInt::accfail,iterations]];
intlim,
True,
Message[OscInt::badparam,ac]]
];
OscInt[fint_, fzero_, {a_, a0_}, opts___Rule] :=
Module[{parttab,lowlim,
wp = WorkingPrecision/.{opts}/.Options[OscInt],
nt = NSumTerms/. {opts}/.Options[OscInt],
ne = NSumExtraTerms/. {opts}/.Options[OscInt]},
lowlim = If[a == a0, a, N[Max[a,a0],2 wp]];
parttab = PartitionTable[fzero,lowlim,ne+nt+1,opts];
PartInt[fint,parttab,a,opts]
];
220
A Mathematica packages