public static RealNumber GetMaximumError(this IList <ComplexNumber> list1, IList <ComplexNumber> list2)
{
RealNumber maximumErrorSquared = 0;
for (int i = Math.Max(list1.Count, list2.Count); --i >= 0;)
{
maximumErrorSquared = RealNumber.Max(maximumErrorSquared, (list1[i] - list2[i]).Energy);
}
return(maximumErrorSquared.GetSqrt());
}
public void TestAll()
{
for (int digits = 1; digits < 100; digits++)
{
RealNumber b_one = new RealNumber(2L, digits);
RealNumber log1 = RealNumber.Zero, log2 = RealNumber.Zero;
Parallel.Invoke(
() =>
{
log1 = b_one.GetLog();
},
() =>
{
log2 = b_one.GetTaylorLog();
});
string log1String = log1.ToString();
string log2String = log2.ToString();
int diffs = differences(log2String, log1String);
if (diffs > 0)
{
File.WriteAllText("L1MILD.txt", log1String);
File.WriteAllText("L1MILT.txt", log2String);
Assert.IsTrue(false);
}
}
//IntegerNumber zzz = new IntegerNumber(0L);
//string ssttrr = zzz.ToString();
bool ok = true;
//testMultiplicationSpeed();
RealNumber ten = new RealNumber(10, 1000);
RealNumber logTen = ten.GetLog();
RealNumber tenExp1 = logTen.GetExp();
RealNumber tenExp2 = logTen.GetTaylorExp();
IntegerNumber i1 = IntegerNumber.One << 100000;
IntegerNumber ia = i1.Sqrt();
IntegerNumber ib = i1.InverseSqrt();
RealNumber ssqrt10 = ten.GetRealDirectSqrt();
RealNumber sqrt10 = ten.GetSqrt();
RealNumber invSqrt10 = ten.GetInverseSqrt();
RealNumber one1 = sqrt10 * invSqrt10;
ok &= (one1 - 1).IsZero;
IntegerNumber int10 = IntegerNumber.Pow(10, 19 * 5000);
IntegerNumber t1 = int10.Inverse();
IntegerNumber t2 = (IntegerNumber.One << (int10.Digits * 128)) / int10;
ok &= t1 == t2;
IntegerNumber t3 = int10.InverseSqrt();
IntegerNumber t4 = ((IntegerNumber.One << (int10.Digits * 96 * 2)) / int10).Sqrt();
ok &= t3 == t4;
ok &= Fourier235RealUnitTest.FFTUnitTest();
ok &= Fourier235RealUnitTest.DCTUnitTest();
ok &= Fourier235DoubleUnitTest.FFTUnitTest();
ok &= Fourier235DoubleUnitTest.DCTUnitTest();
ok &= Fourier235UnitTest.FFTUnitTest();
ok &= Fourier235UnitTest.DCTUnitTest();
ok &= RealNumbersUnitTest.ComplexArcTanSinCosUnitTest();
ok &= RealNumbersUnitTest.NumericIntegerOperationsUnitTest();
ok &= RealNumbersUnitTest.SqrtUnitTest();
ok &= MemoryUnitTest.UnitTest(1001);
ok &= CarrylessMultiplication.UnitTest(1001);
int decimalDigits = 10100;
int qwords = (int)Math.Ceiling(Math.Log(10, 2) * decimalDigits / 64);
RealNumber pi = RealNumber.Zero;
RealNumber e = RealNumber.Zero;
RealNumber one = new RealNumber(1L, qwords);
var computePITime = AsmX64Operations.MeasureTime(() =>
{
pi = RealNumber.GetPI(qwords);
});
var computeETime = AsmX64Operations.MeasureTime(() =>
{
e = one.GetExp();
});
string pivalue = "";
string evalue = "";
var baseConvertTimePI = AsmX64Operations.MeasureTime(() =>
{
pivalue = pi.ToString();
});
var baseConvertTimeE = AsmX64Operations.MeasureTime(() =>
{
evalue = e.ToString();
});
File.WriteAllText(@"..\pi10k.txt", pivalue);
File.WriteAllText(@"..\e_10k.txt", evalue);
//MessageBox.Show(
// "Compute PI Time: " + computePITime.ToString() + "\r\n" +
// "Compute E Time: " + computeETime.ToString() + "\r\n" +
// "base convert time PI: " + baseConvertTimePI.ToString() + "\r\n" +
// "base convert time E : " + baseConvertTimeE.ToString() + "\r\n",
// "Info", MessageBoxButtons.OK, MessageBoxIcon.Information);
var no0 = new RealNumber(1L << 62, 2048 / 64);
var no1 = no0.GetExp();
var no2 = no1.GetLog();
ok &= (no2 - no0).IsZero;
ulong[] xx = Enumerable.Repeat(ulong.MaxValue, 1024 * 100).ToArray();
ulong[] yy = Enumerable.Repeat(ulong.MaxValue, 1024 * 100).ToArray();
ulong[] zz = Enumerable.Repeat((ulong)0, 1024 * 200).ToArray();
AsmX64Operations.FastestMultiplication(xx, yy, zz, xx.Length);
if (zz[0] != 1 || zz[zz.Length / 2 - 1] != 0 || zz[zz.Length / 2] + 2 != 0 || zz[zz.Length - 1] + 1 != 0)
{
ok = false;
}
ok &= RealNumbersUnitTest.UnitTest(1001);
ok &= FourierReal.UnitTest(10012);
ok &= FourierMultiplication.UnitTest();
ok &= IntegerNumberUnitTest.UnitTest();
ok &= FourierMultiplication.UnitTestBigMul(1001);
ok &= FastIntegerUnitTest.UnitTest();
ok &= FourierMultiplication.UnitTest(1001);
ok &= AsmX64Operations.ECCUnitTest();
ok &= AsmX64Operations.UnitTest();
ok &= HeapUnitTest.UnitTest();
ok &= FourierTransform.FFTUnitTest();
ok &= AccurateSummation.UnitTest();
ok &= BinarySearchUnitTest.UnitTest();
ok &= AVLTree <int> .UnitTest();
ok &= AVLTreeSorted <int> .UnitTest();
Assert.IsTrue(ok);
}