! @(#)tsa.ctx	17.1.1.1 (ESO-IPG) 01/25/02 17:20:07
!===========================================================================
! Copyright (C) 1995 European Southern Observatory (ESO)
!
! This program is free software; you can redistribute it and/or 
! modify it under the terms of the GNU General Public License as 
! published by the Free Software Foundation; either version 2 of 
! the License, or (at your option) any later version.
!
! This program is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public 
! License along with this program; if not, write to the Free 
! Software Foundation, Inc., 675 Massachusetss Ave, Cambridge, 
! MA 02139, USA.
!
! Corresponding concerning ESO-MIDAS should be addressed as follows:
!	Internet e-mail: midas@eso.org
!	Postal address: European Southern Observatory
!			Data Management Division 
!			Karl-Schwarzschild-Strasse 2
!			D 85748 Garching bei Muenchen 
!			GERMANY
!===========================================================================
!
!  @(#)tsa.ctx	5.1 (ESO-IPG) 4/5/93 15:58:18
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
!.COPYRIGHT (c)  1992     European Southern Observatory and Warsaw Observatory
!.IDENT     tsa.ctx
!.AUTHOR    Alex Schwarzenberg-Czerny, ESO and Warsaw Observatory 
!.KEYWORD   MIDAS, time series, TSA
!.LANGUAGE  MIDAS
!.PURPOSE   Define context TSA 
!.VERSION   1.0               June 1992
! 	    1.1  940712 KB  add entry CLEAR
!.RETURNS   None 
!.ENVIRON   TSA context
!-----------------------------------------------------------------------------
!
!HELP = contrib
!
WRITE/OUT "  "
WRITE/OUT "***  Welcome to the MIDAS Time Series Analysis Package  ***"
WRITE/OUT "  "
!
!   Define set up
!
!
!   Define processing commands
!
WRITE/OUT "******** PERIOD ANALYSIS **********"
CREATE/COMMAND AOV/TSA     @c tsaaov       ! Analysis of Variance periodogramme
WRITE/OUT "AOV/TSA         Analysis of Variance periodogramme"
CREATE/COMMAND ORT/TSA     @c tsaort       ! Multiharmonic Fourier spectrum by orthogonal projections
WRITE/OUT "ORT/TSA         Multiharmonic Fourier spectrum by orthogonal projections"
CREATE/COMMAND POWER/TSA     @c tsapow       ! Power spectrum
WRITE/OUT "POWER/TSA       Power spectrum"
CREATE/COMMAND SCARGLE/TSA   @c tsasca       ! Scargle periodogramme
WRITE/OUT "SCARGLE/TSA    Scargle periodogramme"
!
WRITE/OUT "********  DELAY ANALYSIS **********"
CREATE/COMMAND COVAR/TSA     @c tsacov       ! Compute discrete covariance function
WRITE/OUT "COVAR/TSA      Compute discrete covariance function"
CREATE/COMMAND DELAY/TSA     @c tsadel       ! Compute delay graph of Chi2
WRITE/OUT "DELAY/TSA      Compute delay graph of Chi2"
!CREATE/COMMAND INTERPOL/TSA  @c tsaint       ! Interpolate a series
!WRITE/OUT "INTERPOL/TSA   Interpolate a series"
!
WRITE/OUT "********    UTILITIES    **********"
CREATE/COMMAND SINEFIT/TSA   @c tsasin       ! Fit data with a sine curve
WRITE/OUT "SINEFIT/TSA    Fit data with a sine curve"
CREATE/COMMAND WIDTH/TSA     @c tsawdt       ! Find width of a line
WRITE/OUT "WIDTH/TSA      Find width of a line"
CREATE/COMMAND BAND/TSA      @c tsabnd       ! Evaluate suitable frequency band
WRITE/OUT "BAND/TSA       Evaluate suitable frequency band"
!CREATE/COMMAND TABLE/TSA     @c tsatab       ! Flexible Create/Table
!WRITE/OUT "TABLE/TSA       Flexible Create/Table"
CREATE/COMMAND NORMALIZE/TSA @c tsanor       ! Mean and Variance to 0, 1
WRITE/OUT "NORMALIZE/TSA  Mean and variance to 0, 1"
!
!   Define auxilary commands
!
CREATE/COMMAND INITIALIZE/TSA @c tsainit   ! Initialize global keywords
WRITE/OUT "INITIALIZE/TSA Initialize global keywords"
CREATE/COMMAND SET/TSA        @a keyset    ! Update global keywords
WRITE/OUT "SET/TSA        Update global keywords"
CREATE/COMMAND SHOW/TSA       @c tsashow   ! Show values of global keywords
WRITE/OUT "SHOW/TSA       Show values of global keywords"
!   
!   Initialize global keywords 
!
INIT/TSA
! 
! 
entry clear
!
delete/keyw INROOT1,inroot2,outroot,starttsa,steptsa,nsteps,ordertsa