//# VelocityMachine.h: Converts between velocities and frequencies
//# Copyright (C) 1998,1999,2000
//# Associated Universities, Inc. Washington DC, USA.
//#
//# This library is free software; you can redistribute it and/or modify it
//# under the terms of the GNU Library General Public License as published by
//# the Free Software Foundation; either version 2 of the License, or (at your
//# option) any later version.
//#
//# This library 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 Library General Public
//# License for more details.
//#
//# You should have received a copy of the GNU Library General Public License
//# along with this library; if not, write to the Free Software Foundation,
//# Inc., 675 Massachusetts Ave, Cambridge, MA 02139, USA.
//#
//# Correspondence concerning AIPS++ should be addressed as follows:
//#        Internet email: casa-feedback@nrao.edu.
//#        Postal address: AIPS++ Project Office
//#                        National Radio Astronomy Observatory
//#                        520 Edgemont Road
//#                        Charlottesville, VA 22903-2475 USA

#ifndef MEASURES_VELOCITYMACHINE_H
#define MEASURES_VELOCITYMACHINE_H

//# Includes
#include <casacore/casa/aips.h>
#include <casacore/casa/Quanta/Unit.h>
#include <casacore/casa/Quanta/Quantum.h>
#include <casacore/measures/Measures/MCFrequency.h>
#include <casacore/measures/Measures/MCDoppler.h>
#include <casacore/measures/Measures/MeasConvert.h>
#include <casacore/casa/Arrays/ArrayFwd.h>

namespace casacore { //# NAMESPACE CASACORE - BEGIN

//# Forward Declarations
class MeasFrame;

// <summary> Converts between velocities and frequencies </summary>

// <use visibility=export>

// <reviewed reviewer="UNKNOWN" date="before2004/08/25" tests="tVelocityMachine.cc" demos="">
// </reviewed>

// <prerequisite>
//   <li> <linkto module=Measures>Measures</linkto> module
//   <li> <linkto class=MFrequency>MFrequency</linkto> class
//   <li> <linkto class=MDoppler>MDoppler</linkto> class
// </prerequisite>
//
// <etymology>
// From Velocity and machinery
// </etymology>
//
// <synopsis>
// The construction of a VelocityMachine class object creates a machine that
// can calculate the velocity from a frequency, or vice versa, a frequency
// from a velocity.
//
// To be able to do the conversions, the machine (or rather its constructors)
// needs to know the following information:
// <ul>
//   <li> Reference for frequencies. It should contain at least the reference
//	code, to specify what type of frequency we are talking about
//	(e.g. MFrequency::LSRK). The reference could also contain an offset.
//      In that case all
//	input frequencies are considered to be relative to this offset; all
//	output frequencies will have this offset removed.<br>
//	The reference can optionally contain a MeasFrame (which
//	specifies where, when and in which direction you are
//	observing). This frame is necessary if, in addition to
//	converting between velocity and frequency, you also want to
//	convert between different types (e.g. given an 'LSRK' velocity,
//	you want to know the 'TOPO' frequency), and if the offset is
//	in a different reference type. However, the MeasFrame
//	can also be given explicitly in the machine constructor as an
//	optional argument.
//   <li> Preferred 'frequency' units (e.g. GHz, or cm). These units are used
//	to output a frequency, or if an input frequency is given as a
//	simple double, these units will be implicitly assumed.
//   <li> Reference for velocity. It should contain at least the reference
//	code, to specify what type of velocity we are talking about
//	(e.g. MDoppler::OPTICAL, note
// 	that MDoppler::BETA is the 'true' velocity).
//	The reference could also contain an offset. In that case all
//	input velocities are considered to be relative to this offset; all
//	output velocities will have this offset removed.
//   <li> Preferred velocity units (e.g. AU/a). These units are used
//	to output a velocity, or if an input velocity is given as a
//	simple double, these units will be implicitly assumed.
//   <li> The rest frequency to be used for converting between frequency and
//	velocity. It is given as an MVFrequency.
// </ul>
// To be able to convert between different types (say a velocity
// referenced with respect to the 'LSRK', and a frequency referenced
// with respect to 'TOPO', the following additional, optional
// information can be included explicitly in the constructors:
// <ul>
//   <li> A reference code for the velocity (given as a frequency reference
// 	code (e.g. MFrequency::TOPO)). If given, all input frequencies
//	will be converted to the frequency belonging to this reference
//	code; all output frequencies will be converted from this
//	assumed reference to the specified Frequency reference. The
//	net effect is that all velocities will be assumed to refer to
//	this reference code. Note that in most cases the conversion
//	will have to know the 'when, where, which direction'
//	environment (the 'frame' -- a MeasFrame). This can be given
//	either implicitly in the 'reference for the frequency', or
//	explicitly (see next dot point).
//   <li> A frame (MeasFrame). This frame will be used in any conversion
//	between reference frames. If not given explicitly here, it will
//	tacitly be assumed that if a frame is necessary, it has been specified
//	in the frequency reference.
// </ul>
// Once the machine has been set up, operator() can be used to convert
// between velocities and frequencies if the input argument type (e.g. an
// MVFrequency) can be deduced. In other cases makeFrequency() or
// makeVelocity() should be used (e.g. if the argument type is a
// simple Double).
// </synopsis>
//
// <example>
// <srcblock>
//	// Define a time/position frame
//	MEpoch epo(MVEpoch(MVTime(98,5,16,0.5).day()));
//	MPosition pos;
//	MeasTable::Observatory(pos, "ATCA");
//	MeasFrame frame(epo, pos);
//	//
//	// Note that e.g. the time in the frame can be changed later
//	// Specify the frequency reference
//	MFrequency::Ref fr(MFrequency::LSRK);
//	//
//	// Specify the velocity reference
//	MDoppler::Ref vr(MDoppler::OPT);
//	//
//	// Specify the default units
//	Unit fu("eV");
//	Unit vu("AU/a");
//	//
//	// Get the rest frequency
//	MVFrequency rfrq(QC::HI);
//	//
//	// Set up a machine (no conversion of reference frame)
//	VelocityMachine exec(fr, fu, rfrq, vr, vu, frame);
//	//
//	// or as (with conversion of reference frame it could have been)
//	// VelocityMachine exec(fr, fu, rfrq, vr, vu, MFrequency::TOPO, frame);
//	// Given a current observational frequency of 5.87432837e-06 eV
//	// its velocity will be (in AU/yr)
//	cout << "Velocity: " << exec.makeVelocity(5.87432837e-06) << endl;
//	//
//	// Introducing an offset
//	MFrequency foff(MVFrequency(Quantity(5.87432837e-06, "eV")),
//		        MFrequency::LSRK);
//	//
//	// and setting it in the reference, and regenerating machine:
//	fr.set(foff);
//	exec.set(fr);
//	//
//	// the following will give the same result:
//	cout << "Velocity: " << exec.makeVelocity(0.0) << endl;
//	
// </srcblock>
// See the test program for more examples
// </example>
//
// <motivation>
// To aid in converting series of frequencies and velocities
// </motivation>
//
// <todo asof="1998/06/02">
//   <li> Nothing I know of
// </todo>

class VelocityMachine {
public:
  //# Constructors
  // Construct a machine from the input values (no frame conversion, implicit
  // frame if necessary)
  VelocityMachine(const MFrequency::Ref &freqRef, const Unit &freqUnits,
		  const MVFrequency &restFreq,
		  const MDoppler::Ref &velRef, const Unit &velUnits);

  // Construct a machine from the input values (no frame conversion, explicit
  // frame will be added to freqRef)
  VelocityMachine(const MFrequency::Ref &freqRef, const Unit &freqUnits,
		  const MVFrequency &restFreq,
		  const MDoppler::Ref &velRef, const Unit &velUnits,
		  const MeasFrame &frame);

  // Construct a machine from the input values (frame conversion, implicit
  // frame assumed if necessary) with explicit velocity reference frame
  // specified.
  VelocityMachine(const MFrequency::Ref &freqRef, const Unit &freqUnits,
		  const MVFrequency &restFreq,
		  const MFrequency::Types &convertRef,
		  const MDoppler::Ref &velRef, const Unit &velUnits);

  // Construct a machine from the input values (frame conversion, explicit
  // frame) with explicit velocity reference frame
  // specified, and added to freqref.
  VelocityMachine(const MFrequency::Ref &freqref, const Unit &freqUnits,
		  const MVFrequency &restFreq,
		  const MFrequency::Types &convertRef,
		  const MDoppler::Ref &velRef, const Unit &velUnits,
		  const MeasFrame &frame);

  // Copy constructor (copy semantics)
  VelocityMachine(const VelocityMachine &other);

  // Copy assignment (copy semantics)
  VelocityMachine &operator=(const VelocityMachine &other);

  //# Destructor
  ~VelocityMachine();

  //# Operators
  // Return velocity if frequency given, or a frequency if a velocity is given
  // <group>
  const Quantum<Double> &operator()(const MVFrequency &in);
  const Quantum<Double> &operator()(const MVDoppler &in);
  const Quantum<Double> &operator()(const Quantum<Double> &in);
  const Quantum<Double> &makeVelocity(Double in);
  const Quantum<Double> &makeFrequency(Double in);
  const Quantum<Vector<Double> > &makeVelocity(const Vector<Double> &in);
  const Quantum<Vector<Double> > &makeFrequency(const Vector<Double> &in);
  // </group>

  //# Member functions
  // Set or reset the specified part of the machine. The machinery will be
  // reset to reflect the changes made.
  // <group>
  // Sets a new frequency reference. Note that if an explicit frame has been
  // used in earlier constructors, the frame should again be set explicitly
  // with set(MeasFrame).
  void set(const MFrequency::Ref &in);
  void set(const Unit &in);
  // Sets the rest frequency
  void set(const MVFrequency &in);
  void set(const MFrequency::Types &in);
  void set(const MDoppler::Ref &in);
  // Sets the MeasFrame to be used in conversions.
  void set(const MeasFrame &in);
  // </group>

  // Get the general information used in the machine (shadows the sets above
  // and the constructor arguments. The MeasFrame should be explicitly
  // asked for from the frequency reference by the user
  // <group>
  const MFrequency::Ref &getFrequencyReference() const;
  const Unit &getFrequencyUnits() const;
  const MDoppler::Ref &getDopplerReference() const;
  const Unit &getDopplerUnits() const;
  const MVFrequency &getRestFrequency() const;
  const MFrequency::Types &getConversionReference() const;
  // </group>
  // Recalculate the machinery from the original inputs. Note that in all
  // normal circumstances this function does not have to be used (the set()
  // methods will do it automatically). At the moment I cannot think of
  // any circumstance it should be used explicitly.
  void reCalculate();

private:

  //# Constructors
  // Construct an empty machine (not implemented)
  VelocityMachine();

  //# Data
  // Frequency reference
  MFrequency::Ref fref_p;
  // Frequency units
  // <group>
  Unit fun_p;
  // </group>
  // Rest frequency
  MVFrequency rest_p;
  // Velocity frame
  MFrequency::Types vfm_p;
  // Velocity reference
  MDoppler::Ref vref_p;
  // Velocity units
  // <group>
  Unit vun_p;
  Double vfac_p;
  // </group>
  // Frequency conversion forward
  MFrequency::Convert cvfv_p;
  // Frequency conversion backward
  MFrequency::Convert cvvf_p;
  // Velocity conversion forward
  MDoppler::Convert cvvo_p;
  // Velocity conversion backward
  MDoppler::Convert cvov_p;
  // Result
  // <group>
  Quantum<Double> resv_p;
  Quantum<Double> resf_p;
  Quantum<Vector<Double> > vresv_p;
  Quantum<Vector<Double> > vresf_p;
  // </group>

  //# Private Member Functions
  // Initialise machinery
  void init();
  // Copy data members
  void copy(const VelocityMachine &other);
};


} //# NAMESPACE CASACORE - END

#endif
