The algorithm of approximate calculation of potential-type singular integrals and their applications