function [kval] = example_Fredholm_kernel(s,t) % Accompanying program for the text % % Classical and Modern Numerical Analysis: % Theory, Methods and Practice % by Azmy S. Ackleh, Edward J. Allen, % R. Baker Kearfott, and Padmanabhan Seshaiyer % % (Taylor and Francis / CRC Press, 2009) % kval = ( exp(s)*exp(t) + s*t ) / 16; return