[shhmn]

Кратко скажу для чего это было нужно. Есть модуль с полезной функцией C0...

Код:

type
  TMatrix = array of array of Extended;          // матрица
  TFurie = function(n1,n2:integer):Extended;      // двумерные Фурье коэффициенты

function C0(mu, ro: TFurie; N;integer): TMatrix;  // возвращает NxN матрицу, которая
                                                  // соответствует
                                                  // волновому уравнению -\ro^{-1}\nabla\mu\nabla u
                                                  // у неё мы будем считать собственные   
                                                  // числа

//////////////////////////////////////////////

function mu(m0,m1,f:Extended):TFurie;            // вот их хотелось бы реализовать!!!
function ro(r0,r1,f:Extended):TFurie;            // они возвращают функции,
                                                  // соответствующие коэффициентам Фурье
                                                  // для области: маленький квадрат
                                                  // площади f и значениями m1,r1
                                                  // симметрично расположенном
                                                  // в большом квадрате площади 1 и
                                                  // значениями в прослойке m0,r0