gaussian function?
- To: mathgroup at smc.vnet.net
- Subject: [mg33303] gaussian function?
- From: rishi.kulkarni at voxpath.com (rishi)
- Date: Thu, 14 Mar 2002 02:22:07 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
I have a following code below:
makegaussianq[bt_,bitperiod_]:=
(
kg=N[Sqrt[2/Log[2]] Pi];
filterb=bt;
width=-1 ( Ceiling[1/(2 bt)]);
duration=(-2 width)+1;
p[t_]:=( Erf[-1 kgfilterb (t-bitperiod/2)]+
Erf[kg filterb(t+bitperiod/2)])/(bitperiod \ 4);
qfunc=Table[NIntegrate[p[t],{t,width,k}],{k,width,-1 width,.1}];
gaussq=Interpolation[Table[{n/10,qfunc[[n+1]]},{n,0,Length[qfunc]-1}]];
Clear[q];
q[t_]:=0/;t<0;
q[t_]:=gaussq[t]/;0<=t<=(-2 width);
q[t_]:=.5/;t>(-2 width)
)
I have very newbie quesiton ....
how/when is the q[t_] called?
i mean, if i write stg like this
x = makegaussianq[0.38, 10]
what would this fuction return.
would it return q[t] to x ?
basically how do i read the above code?
my background is basically in C and C++ coding and i am finding it
difficult to read the above code.