| 
            Last change
 on this file since 1581 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
           | 
        
      
      
| Line |   | 
|---|
| 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.