(***********************************************************************

                    Mathematica-Compatible Notebook

This notebook can be used on any computer system with Mathematica 4.0,
MathReader 4.0, or any compatible application. The data for the notebook 
starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do one of 
the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing the 
word CacheID, otherwise Mathematica-compatible applications may try to 
use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
***********************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[     22057,        719]*)
(*NotebookOutlinePosition[     22771,        744]*)
(*  CellTagsIndexPosition[     22727,        740]*)
(*WindowFrame->Normal*)



Notebook[{
Cell["\<\
(* IndianCalendar.nb, example notebook for the IndianCalendar.m package *)

(* :Title: Indian Calendar Computations *)

(* :Author:

Helmer Aslaksen
Department of Mathematics
National University of Singapore
Singapore 117543
Republic of Singapore
<aslaksen@math.nus.eud.sg>
http://www.math.nus.edu.sg/aslaksen/ 

*)

(* :Mathematica Version: 4.0 *)

(* :Package Version: 1.0, Sep. 4, 2000 *)

(* :Requirements:

Calendrica.m, written by Robert C. McNally, available from \
http://emr.cs.uiuc.edu/home/reingold/calendar-book/.

*)

(* :Warnings:

The names of my functions have lower case initials to distinguish them 
from the functions of Robert C. McNally.

*)\
\>", "Input"],

Cell[BoxData[
    \(Get["\<IndianCalendar`\>"]\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(?IndianCalendar\)\)], "Input"],

Cell[BoxData[
    \("IndianCalendar is a package for performing Indian calendrical \
computations. It is written by Helmer Aslaksen, Department of Mathematics, \
National University of Singapore, <aslaksen@math.nus.eud.sg>, \
http://www.math.nus.edu.sg/aslaksen/. It uses the functions written by Nachum \
Dershowitz and Edward M. Reingold for their book Calendrical Calculations, \
published by Cambridge University Press, ISBN 0-521-56474-3. Their Lisp \
functions were translated into the Mathematica package Calendrica by Robert \
C. McNally <ironwolf@dangerousgames.com>, which is available from their web \
site http://emr.cs.uiuc.edu/home/reingold/calendar-book/."\)], "Print"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \( (*\(\(*\)\(The\)\(\ \)\(IST\)\(\ \)\(for\)\(\ \)\(sunrise\)\), 
      sunset\ and\ aparahna\ at\ Ujjain\ required\ by\ \(\(Table3\)\(.\)\)**) \
\[IndentingNewLine]TimeOfDay[
      N[ujjainSunrise[
          HinduDayCount[
            ToFixed[Gregorian[4, 13, 1989]]]]]]\), "\[IndentingNewLine]", 
    \(TimeOfDay[
      N[ujjainSunset[
          HinduDayCount[
            ToFixed[Gregorian[4, 13, 1989]]]]]]\), "\[IndentingNewLine]", 
    \(TimeOfDay[
      N[ujjainAparahna[
          HinduDayCount[ToFixed[Gregorian[4, 13, 1989]]]]]]\)}], "Input"],

Cell[BoxData[
    \(TimeOfDay[5, 41, 48.02435302734375`]\)], "Output"],

Cell[BoxData[
    \(TimeOfDay[18, 19, 55.046966552734375`]\)], "Output"],

Cell[BoxData[
    \(TimeOfDay[13, 16, 40.2379150390625`]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \(TimeOfDay[
      N[ujjainSunrise[
          HinduDayCount[
            ToFixed[Gregorian[4, 14, 1990]]]]]]\), "\[IndentingNewLine]", 
    \(TimeOfDay[
      N[ujjainSunset[
          HinduDayCount[
            ToFixed[Gregorian[4, 14, 1990]]]]]]\), "\[IndentingNewLine]", 
    \(TimeOfDay[
      N[ujjainAparahna[
          HinduDayCount[ToFixed[Gregorian[4, 14, 1990]]]]]]\)}], "Input"],

Cell[BoxData[
    \(TimeOfDay[5, 40, 54.190185546875`]\)], "Output"],

Cell[BoxData[
    \(TimeOfDay[18, 20, 18.315155029296875`]\)], "Output"],

Cell[BoxData[
    \(TimeOfDay[13, 16, 32.6651611328125`]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \(TimeOfDay[
      N[ujjainSunrise[
          HinduDayCount[
            ToFixed[Gregorian[4, 14, 1991]]]]]]\), "\[IndentingNewLine]", 
    \(TimeOfDay[
      N[ujjainSunset[
          HinduDayCount[
            ToFixed[Gregorian[4, 14, 1991]]]]]]\), "\[IndentingNewLine]", 
    \(TimeOfDay[
      N[ujjainAparahna[
          HinduDayCount[ToFixed[Gregorian[4, 14, 1991]]]]]]\)}], "Input"],

Cell[BoxData[
    \(TimeOfDay[5, 40, 54.190185546875`]\)], "Output"],

Cell[BoxData[
    \(TimeOfDay[18, 20, 18.315155029296875`]\)], "Output"],

Cell[BoxData[
    \(TimeOfDay[13, 16, 32.6651611328125`]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \(TimeOfDay[
      N[ujjainSunrise[
          HinduDayCount[
            ToFixed[Gregorian[4, 13, 1992]]]]]]\), "\[IndentingNewLine]", 
    \(TimeOfDay[
      N[ujjainSunset[
          HinduDayCount[
            ToFixed[Gregorian[4, 13, 1992]]]]]]\), "\[IndentingNewLine]", 
    \(TimeOfDay[
      N[ujjainAparahna[
          HinduDayCount[ToFixed[Gregorian[4, 13, 1992]]]]]]\)}], "Input"],

Cell[BoxData[
    \(TimeOfDay[5, 40, 54.190185546875`]\)], "Output"],

Cell[BoxData[
    \(TimeOfDay[18, 20, 18.315155029296875`]\)], "Output"],

Cell[BoxData[
    \(TimeOfDay[13, 16, 32.6651611328125`]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \(TimeOfDay[
      N[ujjainSunrise[
          HinduDayCount[
            ToFixed[Gregorian[4, 13, 1993]]]]]]\), "\[IndentingNewLine]", 
    \(TimeOfDay[
      N[ujjainSunset[
          HinduDayCount[
            ToFixed[Gregorian[4, 13, 1993]]]]]]\), "\[IndentingNewLine]", 
    \(TimeOfDay[
      N[ujjainAparahna[
          HinduDayCount[ToFixed[Gregorian[4, 13, 1993]]]]]]\)}], "Input"],

Cell[BoxData[
    \(TimeOfDay[5, 41, 48.02435302734375`]\)], "Output"],

Cell[BoxData[
    \(TimeOfDay[18, 19, 55.046966552734375`]\)], "Output"],

Cell[BoxData[
    \(TimeOfDay[13, 16, 40.2379150390625`]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \(TimeOfDay[
      N[ujjainSunrise[
          HinduDayCount[
            ToFixed[Gregorian[4, 14, 1994]]]]]]\), "\[IndentingNewLine]", 
    \(TimeOfDay[
      N[ujjainSunset[
          HinduDayCount[
            ToFixed[Gregorian[4, 14, 1994]]]]]]\), "\[IndentingNewLine]", 
    \(TimeOfDay[
      N[ujjainAparahna[
          HinduDayCount[ToFixed[Gregorian[4, 14, 1994]]]]]]\)}], "Input"],

Cell[BoxData[
    \(TimeOfDay[5, 40, 54.190185546875`]\)], "Output"],

Cell[BoxData[
    \(TimeOfDay[18, 20, 18.315155029296875`]\)], "Output"],

Cell[BoxData[
    \(TimeOfDay[13, 16, 32.6651611328125`]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(malayaliMonth[5]\)], "Input"],

Cell[BoxData[
    \(1\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(malayaliYear[1, 1912]\)], "Input"],

Cell[BoxData[
    \(1165\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \( (*\(*\)\(Mesha\)\(\ \)\(samkranti\)\(\ \)\(falls\)\(\ \)\(on\)\(\ \
\)\(Gregorian\)\(\ \)\(day\)\(\ \)\(\(14/4\)/1990\)\(\ \)\(at\)\(\ \)\(3\) \( 
          h57m . \((between\ midnight\ and\ sunrise)\)\)**) orissaHinduSolar[
      ToFixed[Gregorian[4, 13, 1990]]]\), "\[IndentingNewLine]", 
    \(tamilHinduSolar[
      ToFixed[Gregorian[4, 14, 1990]]]\), "\[IndentingNewLine]", 
    \(malayaliHinduSolar[
      ToFixed[Gregorian[4, 14, 1990]]]\), "\[IndentingNewLine]", 
    \(bengalHinduSolar[ToFixed[Gregorian[4, 15, 1990]]]\)}], "Input"],

Cell[BoxData[
    \(orissaHinduSolar[1, 1, 1912]\)], "Output"],

Cell[BoxData[
    \(tamilHinduSolar[1, 1, 1912]\)], "Output"],

Cell[BoxData[
    \(malayaliHinduSolar[9, 1, 1165]\)], "Output"],

Cell[BoxData[
    \(bengalHinduSolar[1, 1, 1912]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \( (*\(*\)\(Mesha\)\(\ \)\(samkranti\)\(\ \)\(falls\)\(\ \)\(on\)\(\ \
\)\(Gregorian\)\(\ \)\(day\)\(\ \)\(\(14/4\)/
          1991\)\(\ \)\(at\)\(\ \)\(10\)  \(h04m\)\(\ \)\(\((between\ sunrise\
\ and\ aparahna)\)\(.\)\)**) orissaHinduSolar[
      ToFixed[Gregorian[4, 14, 1991]]]\), "\[IndentingNewLine]", 
    \(tamilHinduSolar[
      ToFixed[Gregorian[4, 14, 1991]]]\), "\[IndentingNewLine]", 
    \(malayaliHinduSolar[
      ToFixed[Gregorian[4, 14, 1991]]]\), "\[IndentingNewLine]", 
    \(bengalHinduSolar[ToFixed[Gregorian[4, 15, 1991]]]\)}], "Input"],

Cell[BoxData[
    \(orissaHinduSolar[1, 1, 1913]\)], "Output"],

Cell[BoxData[
    \(tamilHinduSolar[1, 1, 1913]\)], "Output"],

Cell[BoxData[
    \(malayaliHinduSolar[9, 1, 1166]\)], "Output"],

Cell[BoxData[
    \(bengalHinduSolar[1, 1, 1913]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \( (*\(*\)\(Mesha\)\(\ \)\(samkranti\)\(\ \)\(falls\)\(\ \)\(on\)\(\ \
\)\(Gregorian\)\(\ \)\(day\)\(\ \)\(\(13/4\)/
          1992\)\(\ \)\(at\)\(\ \)\(16\)  \(h07m\)\(\ \)\(\((between\ \
aparahna\ and\ sunset)\)\(.\)\)**) orissaHinduSolar[
      ToFixed[Gregorian[4, 13, 1992]]]\), "\[IndentingNewLine]", 
    \(tamilHinduSolar[
      ToFixed[Gregorian[4, 13, 1992]]]\), "\[IndentingNewLine]", 
    \(malayaliHinduSolar[
      ToFixed[Gregorian[4, 14, 1992]]]\), "\[IndentingNewLine]", 
    \(bengalHinduSolar[ToFixed[Gregorian[4, 14, 1992]]]\)}], "Input"],

Cell[BoxData[
    \(orissaHinduSolar[1, 1, 1914]\)], "Output"],

Cell[BoxData[
    \(tamilHinduSolar[1, 1, 1914]\)], "Output"],

Cell[BoxData[
    \(malayaliHinduSolar[9, 1, 1167]\)], "Output"],

Cell[BoxData[
    \(bengalHinduSolar[1, 1, 1914]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \( (*\(*\)\(Mesha\)\(\ \)\(samkranti\)\(\ \)\(falls\)\(\ \)\(on\)\(\ \
\)\(Gregorian\)\(\ \)\(day\)\(\ \)\(\(14/4\)/
          1993\)\(\ \)\(at\)\(\ \)\(22\)  \(h25m\)\(\ \)\(\((between\ sunset\ \
and\ midnight)\)\(.\)\)**) orissaHinduSolar[
      ToFixed[Gregorian[4, 13, 1993]]]\), "\[IndentingNewLine]", 
    \(tamilHinduSolar[
      ToFixed[Gregorian[4, 14, 1993]]]\), "\[IndentingNewLine]", 
    \(malayaliHinduSolar[
      ToFixed[Gregorian[4, 14, 1993]]]\), "\[IndentingNewLine]", 
    \(bengalHinduSolar[ToFixed[Gregorian[4, 14, 1993]]]\)}], "Input"],

Cell[BoxData[
    \(orissaHinduSolar[1, 1, 1915]\)], "Output"],

Cell[BoxData[
    \(tamilHinduSolar[1, 1, 1915]\)], "Output"],

Cell[BoxData[
    \(malayaliHinduSolar[9, 1, 1168]\)], "Output"],

Cell[BoxData[
    \(bengalHinduSolar[1, 1, 1915]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\( (*\(\(*\)\(According\)\(\ \)\(to\)\(\ \)\(Condensed\)\(\ \
\)\(Ephemeris\)\(\ \)\(of\)\(\ \)\(Planets'\)\(\ \)\(Positions\)\(\ \
\)\(according\)\(\ \)\(to'\) \(nirayana'\)\(\ \)\(or\)\(\ \)\(sidereal\)\(\ \
\)\(system\)\(\ \)\(from\)\(\ \)\(AD\)\(\ \)\(1971\)\(\ \)\(to\)\(\ \
\)\(1981\)\), 
      some\ of\ the\ IST\ for\ new\ moons\ in\ AD\ 1981\ fall\ on\ \(4/5\)/
          1981\ at\ 9  h49m, 
      on\ \(2/6\)/1981\ at\ 17  
        h2m\ and\ on\ \(2/7\)/
          1981\ at\ 0 \( \
\(h33m\)\(.\)\)**) \)\(\[IndentingNewLine]\)\(Gregorian[
      Floor[IndianNewMoonAtOrBefore[
            ujjainSunrise[HinduDayCount[ToFixed[Gregorian[6, 2, 1981]]]]] + 
          Calendrica`Private`HinduEpoch[]]]\)\)\)], "Input"],

Cell[BoxData[
    \(Gregorian[5, 4, 1981]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(TimeOfDay[
      IndianNewMoonAtOrBefore[
          ujjainSunrise[HinduDayCount[ToFixed[Gregorian[6, 2, 1981]]]]] + 
        Calendrica`Private`HinduEpoch[]]\)], "Input"],

Cell[BoxData[
    \(TimeOfDay[9, 49, 20.59442901611328`]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Gregorian[
      Floor[IndianNewMoonAtOrBefore[
            ujjainSunrise[HinduDayCount[ToFixed[Gregorian[7, 1, 1981]]]]] + 
          Calendrica`Private`HinduEpoch[]]]\)], "Input"],

Cell[BoxData[
    \(Gregorian[6, 2, 1981]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(TimeOfDay[
      IndianNewMoonAtOrBefore[
          ujjainSunrise[HinduDayCount[ToFixed[Gregorian[7, 1, 1981]]]]] + 
        Calendrica`Private`HinduEpoch[]]\)], "Input"],

Cell[BoxData[
    \(TimeOfDay[17, 1, 55.278541564941406`]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Gregorian[
      Floor[IndianNewMoonAtOrBefore[
            ujjainSunrise[HinduDayCount[ToFixed[Gregorian[7, 2, 1981]]]]] + 
          Calendrica`Private`HinduEpoch[]]]\)], "Input"],

Cell[BoxData[
    \(Gregorian[7, 2, 1981]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(TimeOfDay[
      IndianNewMoonAtOrBefore[
          ujjainSunrise[HinduDayCount[ToFixed[Gregorian[7, 2, 1981]]]]] + 
        Calendrica`Private`HinduEpoch[]]\)], "Input"],

Cell[BoxData[
    \(TimeOfDay[0, 33, 16.778480529785156`]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\( (*\(\(*\)\(For\)\(\ \)\(Saka\)\(\ \)\(1904\)\(\ \)\((AD\ 1982 - 
            1983)\)\), 
      the\ kshaya\ month\ is\ lunar\ month\ 11\ because\ there\ is\ no\ new\ \
moon\ falling\ in\ solar\ month\ 10. \ The\ 2  
        nd\ adhika\ month\ is\ lunar\ month\ 12\ that\ corresponds\ to\ solar\
\ month\ 11. **) \)\(checkSkippedRasiForEasternRule[
      HinduDayCount[ToFixed[Gregorian[9, 17, 1982]]]]\)\)\)], "Input"],

Cell[BoxData[
    \({10, 11}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\( (*\(\(*\)\(For\)\(\ \)\(Saka\)\(\ \)\(1904\)\(\ \)\((AD\ 1982 - 
            1983)\)\), 
      the\ kshaya\ month\ is\ lunar\ month\ 11\ because\ there\ is\ no\ new\ \
moon\ falling\ in\ solar\ month\ 10. \ The\ 1  
        st\ adhika\ month\ is\ lunar\ month\ 7\ that\ corresponds\ to\ solar\ \
month\ 6. **) \)\(checkSkippedRasiForNorthWesternRule[
      HinduDayCount[ToFixed[Gregorian[9, 17, 1982]]]]\)\)\)], "Input"],

Cell[BoxData[
    \({10, 6}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \( (*\(\(*\)\(For\)\(\ \)\(Saka\)\(\ \)\(1904\)\(\ \)\((AD\ 1982 - 
            1983)\)\), 
      the\ kshaya\ month\ is\ lunar\ month\ 11. \ The\ 1  
        st\ adhika\ month\ is\ lunar\ month\ 7. \ The\ 2  
        nd\ adhika\ month\ is\ lunar\ month\ 12. **) \[IndentingNewLine] \
(*\(*\)\(This\)\(\ \)\(is\)\(\ \)\(under\)\(\ \)\(the\)\(\ \)\(Southern\)\(\ \
\)\(school\)\(\ \)\(\(rule\)\(.\)\)**) \
\[IndentingNewLine]amantaSouthHinduLunar[
      ToFixed[Gregorian[9, 18, 1982]]]\), "\[IndentingNewLine]", 
    \(amantaSouthHinduLunar[
      ToFixed[Gregorian[10, 17, 1982]]]\), "\[IndentingNewLine]", 
    \(amantaSouthHinduLunar[
      ToFixed[Gregorian[11, 16, 1982]]]\), "\[IndentingNewLine]", 
    \(amantaSouthHinduLunar[
      ToFixed[Gregorian[12, 16, 1982]]]\), "\[IndentingNewLine]", 
    \(amantaSouthHinduLunar[
      ToFixed[Gregorian[1, 15, 1983]]]\), "\[IndentingNewLine]", 
    \(amantaSouthHinduLunar[
      ToFixed[Gregorian[2, 13, 1983]]]\), "\[IndentingNewLine]", 
    \(amantaSouthHinduLunar[
      ToFixed[Gregorian[3, 15, 1983]]]\), "\[IndentingNewLine]", 
    \(amantaSouthHinduLunar[ToFixed[Gregorian[4, 14, 1983]]]\)}], "Input"],

Cell[BoxData[
    \(amantaSouthHinduLunar[7, True, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaSouthHinduLunar[7, False, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaSouthHinduLunar[8, False, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaSouthHinduLunar[9, False, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaSouthHinduLunar[10, False, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaSouthHinduLunar[12, True, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaSouthHinduLunar[12, False, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaSouthHinduLunar[1, False, 1, False, 2040]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \( (*\(*\)\(This\)\(\ \)\(is\)\(\ \)\(under\)\(\ \)\(the\)\(\ \)\(Eastern\
\)\(\ \)\(school\)\(\ \)\(\(rule\)\(.\)\)**) \
\[IndentingNewLine]amantaEastHinduLunar[
      ToFixed[Gregorian[9, 18, 1982]]]\), "\[IndentingNewLine]", 
    \(amantaEastHinduLunar[
      ToFixed[Gregorian[10, 17, 1982]]]\), "\[IndentingNewLine]", 
    \(amantaEastHinduLunar[
      ToFixed[Gregorian[11, 16, 1982]]]\), "\[IndentingNewLine]", 
    \(amantaEastHinduLunar[
      ToFixed[Gregorian[12, 16, 1982]]]\), "\[IndentingNewLine]", 
    \(amantaEastHinduLunar[
      ToFixed[Gregorian[1, 15, 1983]]]\), "\[IndentingNewLine]", 
    \(amantaEastHinduLunar[
      ToFixed[Gregorian[2, 13, 1983]]]\), "\[IndentingNewLine]", 
    \(amantaEastHinduLunar[
      ToFixed[Gregorian[3, 15, 1983]]]\), "\[IndentingNewLine]", 
    \(amantaEastHinduLunar[ToFixed[Gregorian[4, 14, 1983]]]\)}], "Input"],

Cell[BoxData[
    \(amantaEastHinduLunar[7, True, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaEastHinduLunar[7, False, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaEastHinduLunar[8, False, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaEastHinduLunar[9, False, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaEastHinduLunar[10, False, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaEastHinduLunar[11, False, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaEastHinduLunar[12, False, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaEastHinduLunar[1, False, 1, False, 2040]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \( (*\(*\)\(This\)\(\ \)\(is\)\(\ \)\(under\)\(\ \)\(the\)\(\ \)\(North\)\
\(\ \)\(Western\)\(\ \)\(school\)\(\ \)\(\(rule\)\(.\)\)**) \
\[IndentingNewLine]amantaNorthWestHinduLunar[
      ToFixed[Gregorian[9, 18, 1982]]]\), "\[IndentingNewLine]", 
    \(amantaNorthWestHinduLunar[
      ToFixed[Gregorian[10, 17, 1982]]]\), "\[IndentingNewLine]", 
    \(amantaNorthWestHinduLunar[
      ToFixed[Gregorian[11, 16, 1982]]]\), "\[IndentingNewLine]", 
    \(amantaNorthWestHinduLunar[
      ToFixed[Gregorian[12, 16, 1982]]]\), "\[IndentingNewLine]", 
    \(amantaNorthWestHinduLunar[
      ToFixed[Gregorian[1, 15, 1983]]]\), "\[IndentingNewLine]", 
    \(amantaNorthWestHinduLunar[
      ToFixed[Gregorian[2, 13, 1983]]]\), "\[IndentingNewLine]", 
    \(amantaNorthWestHinduLunar[
      ToFixed[Gregorian[3, 15, 1983]]]\), "\[IndentingNewLine]", 
    \(amantaNorthWestHinduLunar[ToFixed[Gregorian[4, 14, 1983]]]\)}], "Input"],

Cell[BoxData[
    \(amantaNorthWestHinduLunar[7, False, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaNorthWestHinduLunar[8, False, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaNorthWestHinduLunar[9, False, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaNorthWestHinduLunar[10, False, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaNorthWestHinduLunar[11, False, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaNorthWestHinduLunar[12, True, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaNorthWestHinduLunar[12, False, 1, False, 2039]\)], "Output"],

Cell[BoxData[
    \(amantaNorthWestHinduLunar[1, False, 1, False, 2040]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(\( (*\(\(*\)\(According\)\(\ \)\(to\)\(\ \)\(Condensed\)\(\ \
\)\(Ephemeris\)\(\ \)\(of\)\(\ \)\(Planets'\)\(\ \)\(Positions\)\(\ \
\)\(according\)\(\ \)\(to'\) \(nirayana'\)\(\ \)\(or\)\(\ \)\(sidereal\)\(\ \
\)\(system\)\(\ \)\(from\)\(\ \)\(1971\)\(\ \)\(to\)\(\ \)\(1981\)\(\ \
\)\(AD\)\), 
      some\ of\ the\ IST\ for\ full\ moons\ in\ 1981\ AD\ fall\ on\ \(14/9\)/
          1981\ at\ 8  h39m, 
      on\ \(13/10\)/1981\ at\ 18  
        h19m\ and\ on\ \(12/11\)/
          1981\ at\ 3 \( \
\(h56m\)\(.\)\)**) \)\(\[IndentingNewLine]\)\(Gregorian[
      Floor[IndianFullMoonAtOrBefore[
            ujjainSunrise[HinduDayCount[ToFixed[Gregorian[10, 13, 1981]]]]] + 
          Calendrica`Private`HinduEpoch[]]]\)\)\)], "Input"],

Cell[BoxData[
    \(Gregorian[9, 14, 1981]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(TimeOfDay[
      IndianFullMoonAtOrBefore[
          ujjainSunrise[HinduDayCount[ToFixed[Gregorian[10, 13, 1981]]]]] + 
        Calendrica`Private`HinduEpoch[]]\)], "Input"],

Cell[BoxData[
    \(TimeOfDay[8, 38, 47.45097351074219`]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Gregorian[
      Floor[IndianFullMoonAtOrBefore[
            ujjainSunrise[HinduDayCount[ToFixed[Gregorian[11, 11, 1981]]]]] + 
          Calendrica`Private`HinduEpoch[]]]\)], "Input"],

Cell[BoxData[
    \(Gregorian[10, 13, 1981]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(TimeOfDay[
      IndianFullMoonAtOrBefore[
          ujjainSunrise[HinduDayCount[ToFixed[Gregorian[11, 11, 1981]]]]] + 
        Calendrica`Private`HinduEpoch[]]\)], "Input"],

Cell[BoxData[
    \(TimeOfDay[18, 19, 42.62648010253906`]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Gregorian[
      Floor[IndianFullMoonAtOrBefore[
            ujjainSunrise[HinduDayCount[ToFixed[Gregorian[11, 12, 1981]]]]] + 
          Calendrica`Private`HinduEpoch[]]]\)], "Input"],

Cell[BoxData[
    \(Gregorian[11, 12, 1981]\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(TimeOfDay[
      IndianFullMoonAtOrBefore[
          ujjainSunrise[HinduDayCount[ToFixed[Gregorian[11, 12, 1981]]]]] + 
        Calendrica`Private`HinduEpoch[]]\)], "Input"],

Cell[BoxData[
    \(TimeOfDay[3, 56, 59.42786407470703`]\)], "Output"]
}, Open  ]]
},
FrontEndVersion->"4.0 for Microsoft Windows",
ScreenRectangle->{{0, 800}, {0, 527}},
WindowSize->{795, 500},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic}
]


(***********************************************************************
Cached data follows.  If you edit this Notebook file directly, not using
Mathematica, you must remove the line containing CacheID at the top of 
the file.  The cache data will then be recreated when you save this file 
from within Mathematica.
***********************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{
Cell[1717, 49, 687, 34, 606, "Input"],
Cell[2407, 85, 59, 1, 30, "Input"],

Cell[CellGroupData[{
Cell[2491, 90, 52, 1, 30, "Input"],
Cell[2546, 93, 684, 9, 139, "Print"]
}, Open  ]],

Cell[CellGroupData[{
Cell[3267, 107, 572, 13, 90, "Input"],
Cell[3842, 122, 70, 1, 29, "Output"],
Cell[3915, 125, 72, 1, 29, "Output"],
Cell[3990, 128, 70, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[4097, 134, 408, 11, 70, "Input"],
Cell[4508, 147, 68, 1, 29, "Output"],
Cell[4579, 150, 72, 1, 29, "Output"],
Cell[4654, 153, 70, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[4761, 159, 408, 11, 70, "Input"],
Cell[5172, 172, 68, 1, 29, "Output"],
Cell[5243, 175, 72, 1, 29, "Output"],
Cell[5318, 178, 70, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[5425, 184, 408, 11, 70, "Input"],
Cell[5836, 197, 68, 1, 29, "Output"],
Cell[5907, 200, 72, 1, 29, "Output"],
Cell[5982, 203, 70, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[6089, 209, 408, 11, 70, "Input"],
Cell[6500, 222, 70, 1, 29, "Output"],
Cell[6573, 225, 72, 1, 29, "Output"],
Cell[6648, 228, 70, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[6755, 234, 408, 11, 70, "Input"],
Cell[7166, 247, 68, 1, 29, "Output"],
Cell[7237, 250, 72, 1, 29, "Output"],
Cell[7312, 253, 70, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7419, 259, 49, 1, 30, "Input"],
Cell[7471, 262, 35, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7543, 268, 54, 1, 30, "Input"],
Cell[7600, 271, 38, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7675, 277, 563, 9, 110, "Input"],
Cell[8241, 288, 62, 1, 29, "Output"],
Cell[8306, 291, 61, 1, 29, "Output"],
Cell[8370, 294, 64, 1, 29, "Output"],
Cell[8437, 297, 62, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[8536, 303, 578, 10, 110, "Input"],
Cell[9117, 315, 62, 1, 29, "Output"],
Cell[9182, 318, 61, 1, 29, "Output"],
Cell[9246, 321, 64, 1, 29, "Output"],
Cell[9313, 324, 62, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[9412, 330, 577, 10, 110, "Input"],
Cell[9992, 342, 62, 1, 29, "Output"],
Cell[10057, 345, 61, 1, 29, "Output"],
Cell[10121, 348, 64, 1, 29, "Output"],
Cell[10188, 351, 62, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[10287, 357, 577, 10, 110, "Input"],
Cell[10867, 369, 62, 1, 29, "Output"],
Cell[10932, 372, 61, 1, 29, "Output"],
Cell[10996, 375, 64, 1, 29, "Output"],
Cell[11063, 378, 62, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[11162, 384, 745, 14, 150, "Input"],
Cell[11910, 400, 55, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[12002, 406, 190, 4, 50, "Input"],
Cell[12195, 412, 70, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[12302, 418, 201, 4, 70, "Input"],
Cell[12506, 424, 55, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[12598, 430, 190, 4, 50, "Input"],
Cell[12791, 436, 71, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[12899, 442, 201, 4, 70, "Input"],
Cell[13103, 448, 55, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[13195, 454, 190, 4, 50, "Input"],
Cell[13388, 460, 71, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[13496, 466, 443, 7, 90, "Input"],
Cell[13942, 475, 42, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[14021, 481, 446, 7, 90, "Input"],
Cell[14470, 490, 41, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[14548, 496, 1179, 22, 250, "Input"],
Cell[15730, 520, 80, 1, 29, "Output"],
Cell[15813, 523, 81, 1, 29, "Output"],
Cell[15897, 526, 81, 1, 29, "Output"],
Cell[15981, 529, 81, 1, 29, "Output"],
Cell[16065, 532, 82, 1, 29, "Output"],
Cell[16150, 535, 81, 1, 29, "Output"],
Cell[16234, 538, 82, 1, 29, "Output"],
Cell[16319, 541, 81, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[16437, 547, 888, 17, 190, "Input"],
Cell[17328, 566, 79, 1, 29, "Output"],
Cell[17410, 569, 80, 1, 29, "Output"],
Cell[17493, 572, 80, 1, 29, "Output"],
Cell[17576, 575, 80, 1, 29, "Output"],
Cell[17659, 578, 81, 1, 29, "Output"],
Cell[17743, 581, 81, 1, 29, "Output"],
Cell[17827, 584, 81, 1, 29, "Output"],
Cell[17911, 587, 80, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[18028, 593, 943, 17, 190, "Input"],
Cell[18974, 612, 85, 1, 29, "Output"],
Cell[19062, 615, 85, 1, 29, "Output"],
Cell[19150, 618, 85, 1, 29, "Output"],
Cell[19238, 621, 86, 1, 29, "Output"],
Cell[19327, 624, 86, 1, 29, "Output"],
Cell[19416, 627, 85, 1, 29, "Output"],
Cell[19504, 630, 86, 1, 29, "Output"],
Cell[19593, 633, 85, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[19715, 639, 755, 14, 150, "Input"],
Cell[20473, 655, 56, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[20566, 661, 193, 4, 50, "Input"],
Cell[20762, 667, 70, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[20869, 673, 204, 4, 70, "Input"],
Cell[21076, 679, 57, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[21170, 685, 193, 4, 50, "Input"],
Cell[21366, 691, 71, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[21474, 697, 204, 4, 70, "Input"],
Cell[21681, 703, 57, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[21775, 709, 193, 4, 50, "Input"],
Cell[21971, 715, 70, 1, 29, "Output"]
}, Open  ]]
}
]
*)




(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)