Документ взят из кэша поисковой машины. Адрес оригинального документа : http://xmm.vilspa.esa.es/sas/7.0.0/doc/ssclib/node118.html
Дата изменения: Wed Jun 28 23:12:28 2006
Дата индексирования: Sat Dec 22 09:33:12 2007
Кодировка:
Поисковые слова: http www.astronomy.ru forum index.php topic 4644.0.html

XMM-Newton Science Analysis System


ssclib (ssclib-3.29) [xmmsas_20060628_1801-7.0.0]

Meta Index / Home Page / Routines which deal with

Is a given point inside a given ellipse?

Two routines are given for the two ellipse formats described above:

  function pointInEllipseWithPhase(x, y, xAmp, yAmp, phase)
    real(single), intent(in) :: x, y, xAmp, yAmp, phase
    integer :: pointInEllipseWithPhase
  end function pointInEllipseWithPhase

  function pointInEllipseWithAngle(x, y, xSemiAxis, ySemiAxis, rotatedAngle)
    real(single), intent(in) :: x, y, xSemiAxis, ySemiAxis, rotatedAngle
    integer :: pointInEllipseWithAngle
  end function pointInEllipseWithAngle

These functions return -1 if the point (x, y) lies fully within the ellipse; 0 if it is on the border; and 1 if it is fully outside the ellipse.