exp_fnct.m
Upload User: loeagle
Upload Date: 2013-03-02
Package Size: 1236k
Code Size: 0k
Development Platform:

Matlab

  1. function y=exp_fnct(x,funfcn,k,T,p1,p2,p3)
  2. % y=exp_fnct(x,funfcn,k,T,p1,p2,p3)
  3. %  Returns the function funfcn(x) times
  4. %  the exponential factor exp(-j*2*pi*k/T*x)
  5. j=sqrt(-1) ;
  6. args=[];
  7. for nn=1:nargin-4
  8.   args=[args,',p',int2str(nn)];
  9. end
  10. args=[args,')'] ;
  11. y=eval([funfcn,'(x',args,'.*exp(-j*2*pi*x*k/T)']);