function a = sin_exp1 ( m, n )
%% sin_exp1.m
  a = zeros ( m, n );
  for i = 1 : m
    for j = 1 : n
      a(i,j) = sin ( i * pi / m ) * exp ( j * pi / n );
    end
  end
  return
end
