(* ChineseLeapMonths.nb, example notebook for the ChineseLeapMonths.m package *)

(* :Title: Chinese leap months and the date of Chinese New Year *)

(* :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: 3.0 *)

(* :Package Version: 1.03, June 11, 1999 *)

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

Get["ChineseLeapMonths`"]

?ChineseLeapMonths

?nthNewMoonOnOrAfterNewYear

Gregorian[nthNewMoonOnOrAfterNewYear[1998, 6]]

?nthChineseMonth

nthChineseMonth[1998, 6]

?chineseNewMoonsInYear

chineseNewMoonsInYear[1998]

chineseNewMoonsInYear[1999]

?majorSolarTermsInYear

majorSolarTermsInYear[1999]

?chineseLeapYearQ

chineseLeapYearQ[1998]

chineseLeapYearQ[1999]

chineseLeapYearQ[2033]

chineseLeapYearQ[2262]

chineseLeapYearQ[3358]

?chineseLeapSolsticeYearQ

chineseLeapSolsticeYearQ[1998]

chineseLeapSolsticeYearQ[1999]

chineseLeapSolsticeYearQ[2033]

chineseLeapSolsticeYearQ[2034]

chineseLeapSolsticeYearQ[2262]

chineseLeapSolsticeYearQ[2263]

chineseLeapSolsticeYearQ[3358]

chineseLeapSolsticeYearQ[3359]

?chineseLeapMonth

chineseLeapMonth[1998]

chineseLeapMonth[2033]

chineseLeapMonth[3358]

chineseLeapMonth[2262]

?chineseLeapMonthQ

chineseLeapMonthQ[1998, 5]

chineseLeapMonthQ[1998, 7]

chineseLeapMonthQ[2033, 7]

chineseLeapMonthQ[2033, 11]

chineseLeapMonthQ[3358, 12]

chineseLeapMonthQ[2262, 1]

?winterSolstice

winterSolstice[1999]

?z12

z12[1999]

?liChuen

liChuen[2000]

?z1

z1[2000]

?z2

z2[2000]

?chineseNewYearData

chineseNewYearData[2000]

?mChineseNewYear

mChineseNewYear[1999]

?tChineseNewYear

tChineseNewYear[1999]

?mChineseNewMoonOnOrAfter

mChineseNewMoonOnOrAfter[ToFixed[Gregorian[June[], 11, 1999]]]

?tChineseNewMoonOnOrAfter

tChineseNewMoonOnOrAfter[ToFixed[Gregorian[June[], 11, 1999]]]

?mChineseDateNextSolarLongitude

mChineseDateNextSolarLongitude[ToFixed[Gregorian[June[], 11, 1999]],  
      15]

?tChineseDateNextSolarLongitude

tChineseDateNextSolarLongitude[ToFixed[Gregorian[June[], 11, 1999]],  
      15]

?mMajorSolarTermOnOrAfter

mMajorSolarTermOnOrAfter[ToFixed[Gregorian[June[], 11, 1999]]]

?tMajorSolarTermOnOrAfter

tMajorSolarTermOnOrAfter[ToFixed[Gregorian[June[], 11, 1999]]]

?mMinorSolarTermOnOrAfter

mMinorSolarTermOnOrAfter[ToFixed[Gregorian[June[], 11, 1999]]]

?tMinorSolarTermOnOrAfter

tMinorSolarTermOnOrAfter[ToFixed[Gregorian[June[], 11, 1999]]]

?daysToLiChuen

daysToLiChuen[1985]

?timeToLiChuen

timeToLiChuen[1985]

?chineseLeapYearsBetween

chineseLeapYearsBetween[1990, 1993]

?chineseLeapMonthsBetween

chineseLeapMonthsBetween[1990,  1993]

?nthChineseLeapMonthsBetween

nthChineseLeapMonthsBetween[1990,  1998, 5]

nthChineseLeapMonthsBetween[2030,  2034, 7]

nthChineseLeapMonthsBetween[2030,  2034, 11]

?chineseNewYearsBetween

chineseNewYearsBetween[1998, 1999]