function y=f1dim(lambda,param);
[m,n]=size(param);
if n>3;
  pstr=',param(:,4:n-3)';
else;
  pstr='';
end;
s=setstr(param(:,3)');
eval(['y=',s,'(param(:,1)+lambda*param(:,2)',pstr,');'])
