Let us assume that table OBSERVP.tbl contains observations of a periodic phenomenon. The observations are stored in the DOUBLE PRECISION columns :TIME and :VALUE.
CREATE/GRAPHICS ! Create graphics window SET/CONTEXT TSA ! Enable TSA package NORMALIZE/TSA OBSERVP :VALUE ! Subtract mean BAND/TSA OBSERVP ! Find suitable frequency band SHOW/TSA ! Inspect corresponding settings POWER/TSA OBSERVP POWERSPEC ! Compute power spectrum and ! spectral window PLOT/ROW POWERSPEC ! Display power spectrum PLOT/ROW POWERSPEC 2 ! Display spectral window ORT/TSA ? AOVSPEC ? ? ? ! Compute multiharmonic spectrum PLOT/ROW AOVSPEC ! Inspect results POWER/TSA ? LINESPEC 20 .01 501 ! Compute detail of power spec. PLOT/ROW LINESPEC ! Plot it WIDTH/TSA LINESPEC ! Find parameters of ! the oscillation SINEFIT/TSA OBSERVP CLNOBS 23 1 ! Remove one particular ! Fourier component POWER/TSA CLNOBS POWCLN ! Inspect periodogram of data ! after removal of 1 oscillation