// Returns Exp(-axzta) * d/dz Bi(z) where zta = (2 / 3) * z * Sqrt(z) and axzta = Abs(zta.Real)
public static Complex ScaledCbiryPrime(Complex z)
{
int id = 1;
int kode = 2;
int nz = 0;
int ierr = 0;
double bipr = double.NaN;
double bipi = double.NaN;
AmosHelper.zbiry(z.Real, z.Imaginary, id, kode, ref bipr, ref bipi, ref nz, ref ierr);
return(new Complex(bipr, bipi));
}
// Returns Bi(z)
public static Complex Cbiry(Complex z)
{
int id = 0;
int kode = 1;
int nz = 0;
int ierr = 0;
double bir = double.NaN;
double bii = double.NaN;
AmosHelper.zbiry(z.Real, z.Imaginary, id, kode, ref bir, ref bii, ref nz, ref ierr);
return(new Complex(bir, bii));
}
