home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Archive Magazine 1995
/
ARCHIVE95.iso
/
discs
/
pipeline
/
6_11
/
Easter
/
c_Easter2
next >
Wrap
Text File
|
1992-08-04
|
2KB
|
78 lines
%OP%VS4.13 (28-Apr-92), Gerald L Fitton, R4000 5966 9904 9938
%OP%TNN
%OP%WRN
%OP%DP0
%OP%IRN
%OP%PL0
%OP%HM0
%OP%FM0
%OP%BM0
%OP%LM4
%OP%PT1
%OP%PDPipeLine
%OP%WC2,226,200,404,0,1,0,2
%OP%NDgolden,B7
%OP%NDcentury,B8
%OP%NDnon_leap_cent_correction,B9
%OP%NDmoon_correction,B10
%OP%NDfind_sunday,B12
%OP%NDepact,B13
%OP%NDfull_moon,B14
%OP%NDeaster_day,B15
%OP%NDjulian_to_gregorian,B11
%OP%FR0,2
%CO:A,46,72%Comments and Commands
%V%%L%function("easter","year")
%V%%L%set_name("golden",B7)
%V%%L%set_name("century",B8)
%V%%L%set_name("non_leap_cent_correction",B9)
%V%%L%set_name("moon_correction",B10)
%V%%L%set_name("julian_to_gregorian",B11)
%V%%L%set_name("find_sunday",B12)
%V%%L%set_name("epact",B13)
%V%%L%set_name("full_moon",B14)
%V%%L%set_name("easter_day",B15)
%V%%L%set_value(julian_to_gregorian,1752)
%V%%L%set_value(golden,1+mod(@year,19))
%V%%L%set_value(century,int(1+@year/100))
%V%%L%set_value(non_leap_cent_correction,int(0.75*century-12))
%V%%L%set_value(moon_correction,int((8*century+5)/25-5))
%V%%L%set_value(find_sunday,int(1.25*@year))
%V%%L%if(@year>julian_to_gregorian,set_value(find_sunday,int(find_sunday-non_leap_cent_correction-10)),)
%V%%L%set_value(epact,mod(11*golden+20+moon_correction-non_leap_cent_correction,30))
%V%%L%if(epact=24&golden>11,set_value(epact,epact+1),)
%V%%L%if(epact=24,set_value(epact,epact+1),)
%V%%L%if(@year>julian_to_gregorian,,set_value(epact,1+mod(11*golden-4,30)))
%V%%L%set_value(full_moon,44-epact)
%V%%L%if(full_moon<21,set_value(full_moon,full_moon+30),)
%V%%L%set_value(easter_day,full_moon+7-mod(find_sunday+full_moon,7))
%V%%L%if(easter_day>31,set_value(easter_day,easter_day-31+0.4),set_value(easter_day,easter_day+0.3))
%V%%L%set_value(easter_day,join(string(easter_day,1),".",(string(@year,0))))
%V%%L%result(easter_day)
------------------------------------------------------------------------
%CO:B,10,0%Value
%V%%R%17
%V%%R%20
%V%%R%3
%V%%R%1
%V%%R%1752
%V%%R%2477
%V%%R%25
%V%%R%49
%V%%R%%D1%"19.4.1992"
%CO:C,15,0%