test_leval

(tmp_for_tar/misc/test_leval.m)

Function Synopsis

[a,b,c] = f(x,y), a=1; b=x; c=y; end

Help text

 Last modified: April 2001

Cross-Reference Information

leval            tmp_for_tar/misc/leval.m

Listing of function file tmp_for_tar/misc/test_leval.m

## Author:        Etienne Grossmann  <etienne@isr.ist.utl.pt>
## Last modified: April 2001

ok = 1;
if !exist ("verbose"), verbose = 0; end

function [a,b,c] = f(x,y), a=1; b=x; c=y; end

l = list (2,3);

[a,b,c] = leval ("f",l);

if a!=1 || b!=2 || c!=3,
  if verbose, printf ("test_leval : not ok\n"); end
  ok = 0;
else
  if verbose, printf ("test_leval : ok\n"); end
end

[a,b] = leval ("f",l);

if a!=1 || b!=2,
  if verbose, printf ("test_leval : not ok\n"); end
  ok = 0;
else
  if verbose, printf ("test_leval : ok\n"); end
end

a = leval ("f",l);

if a!=1,
  if verbose, printf ("test_leval : not ok\n"); end
  ok = 0;
else
  if verbose, printf ("test_leval : ok\n"); end
end

if ok && verbose,
  ntest = 1000;
  printf ("For %i function calls\n",ntest);

  mytic ();
  for i = 1:ntest, [a,b,c] = f(2,3); end
  t1 = mytic ();

  mytic ();
  for i = 1:ntest, [a,b,c] = leval ("f",l); end
  t2 = mytic ();

  mytic ();
  for i = 1:ntest, [a,b,c] = feval ("f",2,3); end
  t3 = mytic ();

  printf ("time : plain : %8.3g, leval : %8.3g, feval : %8.3g (sec)\n",\
	  t1,t2,t3);
  printf ("overhead for leval : %8.3g seconds per call\n",(t2-t1)/ntest);
  printf ("overhead for feval : %8.3g seconds per call\n",(t3-t1)/ntest);
end