static string Test_DLL_Home()
{
double d0 = MyF.MyCos(A, e) + MyF.MyCos(B, e);
double d1 = 2 * MyF.MyCos((A + B) / 2, e) * MyF.MyCos((A - B) / 2, e);
double error = Math.Abs(d0 - d1);
return($" MAC Ф1 = {d0,19:F15} MAC Ф2 = {d1,19:F15} error = {error,10:E2}");
}
static string Test_DLL()
{
double d0 = MyF.MySin(A + B + C, e);
double d1 = MyF.MySin(A, e) * MyF.MyCos(B, e) * MyF.MyCos(C, e);
double d2 = MyF.MyCos(A, e) * MyF.MySin(B, e) * MyF.MyCos(C, e);
double d3 = MyF.MyCos(A, e) * MyF.MyCos(B, e) * MyF.MySin(C, e);
double d4 = MyF.MySin(A, e) * MyF.MySin(B, e) * MyF.MySin(C, e);
double error = Math.Abs(d0 - (d1 + d2 + d3 - d4));
return($" MAC = {d0,19:F16} error = {error,10:E2}");
}
static string TestMySinCos()
{
string txt = " Test of MySinCos() \r\n";
double unit, error, e = 1.0E-20;
for (double x = 1.0; x <= 40; x += 1.0)
{
unit = MyF.MyCos(x, e) * MyF.MyCos(x, e) + MyF.MySin(x, e) * MyF.MySin(x, e);
error = (1.0 - unit);
txt += $"{x,7:F1}{unit,20:F16}{error,20:F16}\r\n";
}
return(txt);
}