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