| Last change
 on this file since 2283 was             1337, checked in by ansari, 25 years ago | 
        
          | 
Creation de module d'exemples (code Sophya + exemple pour (s)piapp) 
 
Reza 20/11/2000
 | 
        
          | File size:
            426 bytes | 
      
      
| Rev | Line |  | 
|---|
| [1337] | 1 | TVector<r_8> in(4048); | 
|---|
|  | 2 | TVector<r_8> noise(4048); | 
|---|
|  | 3 | TVector< complex<r_8> > out; | 
|---|
|  | 4 | in = RegularSequence(0., 0.05); | 
|---|
|  | 5 | noise = RandomSequence(RandomSequence::Gaussian, 0., 4.); | 
|---|
|  | 6 | MathArray<r_8> ma; | 
|---|
|  | 7 | ma.ApplyFunctionInPlace(in, myf); | 
|---|
|  | 8 | in += noise; | 
|---|
|  | 9 | FFTPackServer FFTServ; | 
|---|
|  | 10 | cout << " Calling FFT " << endl; | 
|---|
|  | 11 | FFTServ.FFTForward(in, out); | 
|---|
|  | 12 | ExecuteCommand("zone 1 2"); | 
|---|
|  | 13 | KeepObj(in); | 
|---|
|  | 14 | DisplayObj(in, ""); | 
|---|
|  | 15 | // KeepObj(out); | 
|---|
|  | 16 | DisplayObj(out, "red"); | 
|---|
|  | 17 |  | 
|---|
|  | 18 |  | 
|---|
|  | 19 |  | 
|---|
|  | 20 |  | 
|---|
       
      
  Note:
 See   
TracBrowser
 for help on using the repository browser.