The Chinese calendar contains two different codes. The original 60-year cycle with 12-year animal cycle by 5X2 element calendar, resulting in five 12 calendar cycles. The second cycle is a stem-branch model that I found on wikipedia; alas it is lost due to...well it is wikipedia and edited out at some point in the past. The start of these two cycles happened to restart on 1984; kind of creepy as that is also the title of George Orwell's book "1984." Was he trying to pass a message on, actively or passively? In any case, the stem-branch cycle is 10x10 cycle (100 years total) and when corresponded with the 60-year calendar, lasts 300 years to cycle. The stem-branch cycle also restarted in 1984 and will not restart again until 2284. If I reincarnate, I wish to reincarnate in 2286 as a fire-tiger first branch third stem so that I have all the chances to become a winning person and owner of all of mankind....well that is kind of creepy...
Here is the code...an explianation is below the code
[start of code]
code for R
Sequesnces and repatations for Chinese Calander
########code start
# code for vectors then tie into dataframe Animal, element, branch, stem,
#find lingth of code and tie into current paradigm of moon/sun cycles
#
#years in cycle- used to find out how many years to cyle to find calander
cycle <- 1500 # number of years the program will cycle (loop) from start to end
yr <- 1984 #this year must be the 1st animal (rat), 1st element (wood) and 1,1 in branch stem cycle (1984 gegorian calander)
cycleplus <- yr + ceiling(cycle*1.05) #need extra loop cycle for truncation
yrs <- yr:cycleplus
now <- 2013 #the year you are in relative to yr context
nows <- yrs-now
##Animal cycle
aseq <- 1:12
a <- rep(aseq,times=(ceiling((cycle/12)*2)),length.out=length(yrs)) #dummy hi
#a <- t(a)
length(a)
length(yrs)
##element cycle
# rps twice per two years, five elements
elmseq <- rep(1:5,each=2)
elms <- rep(elmseq,times=(ceiling(cycle/10))*2,length.out=length(yrs))
length(elms)
#elms <- t(elms)
#basic dataframe
chinese <- as.data.frame(yrs)
chinesenn <- as.data.frame(nows)
chinese22 <- cbind(chinese,chinesenn)
chinese <- as.data.frame(a)
chinese22 <- cbind(chinese22,chinese)
chinese22 <- cbind(chinese22,elms)
#Branch stem cycle is a 100 year cycle; is macrofractal
#Branch cycle
branchseq <- 1:10
branch <- rep(branchseq,each=10)
length(branch)
dd <- max(length(a)/length(branch),length(a))
branchset <- rep(branch,length.out=dd)
#Stem cycle same as branchseq but as long as branch
stemcycle <- rep(branchseq,times=(length(branch)/length(branchseq)))
dd <- max(length(a)/length(stemcycle),length(a))
stemcycleset <- rep(stemcycle,length.out=dd)
length(stemcycleset)
rack <- as.data.frame(branchset)
racks <- as.data.frame(stemcycleset)
rack <- cbind(rack,racks)
chinese22 <- cbind(chinese22,rack)
#research found that the cycle is 300 years long and repeats every 300 years
#see if this fits with any current western astology function
###publish work via .csv
#fact check
print(chinese22)
write.table(chinese22, file = "ChineseCalanderTbl.csv", append = FALSE, quote = FALSE, sep = ",", eol = "\n", na = "NA", dec = ".", row.names = TRUE, col.names = TRUE, qmethod = c("double"),fileEncoding = "")
write.csv(chinese22,file="ChineseCalanderTbl.csv",row.names=TRUE,col.names="TRUE")
getwd() #find working directory to find and exp files
#publish only
[end of code]
Any part of the code after a hash tag (#) will only produce a note in the program and not run as R code.
A result is the following for 300 years and some extra years so you can see that the code is cycling.
[start of cycle]
"","yrs","nows","a","elms","branchset","stemcycleset"
"1",1984,-29,1,1,1,1
"2",1985,-28,2,1,1,2
"3",1986,-27,3,2,1,3
"4",1987,-26,4,2,1,4
"5",1988,-25,5,3,1,5
"6",1989,-24,6,3,1,6
"7",1990,-23,7,4,1,7
"8",1991,-22,8,4,1,8
"9",1992,-21,9,5,1,9
"10",1993,-20,10,5,1,10
"11",1994,-19,11,1,2,1
"12",1995,-18,12,1,2,2
"13",1996,-17,1,2,2,3
"14",1997,-16,2,2,2,4
"15",1998,-15,3,3,2,5
"16",1999,-14,4,3,2,6
"17",2000,-13,5,4,2,7
"18",2001,-12,6,4,2,8
"19",2002,-11,7,5,2,9
"20",2003,-10,8,5,2,10
"21",2004,-9,9,1,3,1
"22",2005,-8,10,1,3,2
"23",2006,-7,11,2,3,3
"24",2007,-6,12,2,3,4
"25",2008,-5,1,3,3,5
"26",2009,-4,2,3,3,6
"27",2010,-3,3,4,3,7
"28",2011,-2,4,4,3,8
"29",2012,-1,5,5,3,9
"30",2013,0,6,5,3,10
"31",2014,1,7,1,4,1
"32",2015,2,8,1,4,2
"33",2016,3,9,2,4,3
"34",2017,4,10,2,4,4
"35",2018,5,11,3,4,5
"36",2019,6,12,3,4,6
"37",2020,7,1,4,4,7
"38",2021,8,2,4,4,8
"39",2022,9,3,5,4,9
"40",2023,10,4,5,4,10
"41",2024,11,5,1,5,1
"42",2025,12,6,1,5,2
"43",2026,13,7,2,5,3
"44",2027,14,8,2,5,4
"45",2028,15,9,3,5,5
"46",2029,16,10,3,5,6
"47",2030,17,11,4,5,7
"48",2031,18,12,4,5,8
"49",2032,19,1,5,5,9
"50",2033,20,2,5,5,10
"51",2034,21,3,1,6,1
"52",2035,22,4,1,6,2
"53",2036,23,5,2,6,3
"54",2037,24,6,2,6,4
"55",2038,25,7,3,6,5
"56",2039,26,8,3,6,6
"57",2040,27,9,4,6,7
"58",2041,28,10,4,6,8
"59",2042,29,11,5,6,9
"60",2043,30,12,5,6,10
"61",2044,31,1,1,7,1
"62",2045,32,2,1,7,2
"63",2046,33,3,2,7,3
"64",2047,34,4,2,7,4
"65",2048,35,5,3,7,5
"66",2049,36,6,3,7,6
"67",2050,37,7,4,7,7
"68",2051,38,8,4,7,8
"69",2052,39,9,5,7,9
"70",2053,40,10,5,7,10
"71",2054,41,11,1,8,1
"72",2055,42,12,1,8,2
"73",2056,43,1,2,8,3
"74",2057,44,2,2,8,4
"75",2058,45,3,3,8,5
"76",2059,46,4,3,8,6
"77",2060,47,5,4,8,7
"78",2061,48,6,4,8,8
"79",2062,49,7,5,8,9
"80",2063,50,8,5,8,10
"81",2064,51,9,1,9,1
"82",2065,52,10,1,9,2
"83",2066,53,11,2,9,3
"84",2067,54,12,2,9,4
"85",2068,55,1,3,9,5
"86",2069,56,2,3,9,6
"87",2070,57,3,4,9,7
"88",2071,58,4,4,9,8
"89",2072,59,5,5,9,9
"90",2073,60,6,5,9,10
"91",2074,61,7,1,10,1
"92",2075,62,8,1,10,2
"93",2076,63,9,2,10,3
"94",2077,64,10,2,10,4
"95",2078,65,11,3,10,5
"96",2079,66,12,3,10,6
"97",2080,67,1,4,10,7
"98",2081,68,2,4,10,8
"99",2082,69,3,5,10,9
"100",2083,70,4,5,10,10
"101",2084,71,5,1,1,1
"102",2085,72,6,1,1,2
"103",2086,73,7,2,1,3
"104",2087,74,8,2,1,4
"105",2088,75,9,3,1,5
"106",2089,76,10,3,1,6
"107",2090,77,11,4,1,7
"108",2091,78,12,4,1,8
"109",2092,79,1,5,1,9
"110",2093,80,2,5,1,10
"111",2094,81,3,1,2,1
"112",2095,82,4,1,2,2
"113",2096,83,5,2,2,3
"114",2097,84,6,2,2,4
"115",2098,85,7,3,2,5
"116",2099,86,8,3,2,6
"117",2100,87,9,4,2,7
"118",2101,88,10,4,2,8
"119",2102,89,11,5,2,9
"120",2103,90,12,5,2,10
"121",2104,91,1,1,3,1
"122",2105,92,2,1,3,2
"123",2106,93,3,2,3,3
"124",2107,94,4,2,3,4
"125",2108,95,5,3,3,5
"126",2109,96,6,3,3,6
"127",2110,97,7,4,3,7
"128",2111,98,8,4,3,8
"129",2112,99,9,5,3,9
"130",2113,100,10,5,3,10
"131",2114,101,11,1,4,1
"132",2115,102,12,1,4,2
"133",2116,103,1,2,4,3
"134",2117,104,2,2,4,4
"135",2118,105,3,3,4,5
"136",2119,106,4,3,4,6
"137",2120,107,5,4,4,7
"138",2121,108,6,4,4,8
"139",2122,109,7,5,4,9
"140",2123,110,8,5,4,10
"141",2124,111,9,1,5,1
"142",2125,112,10,1,5,2
"143",2126,113,11,2,5,3
"144",2127,114,12,2,5,4
"145",2128,115,1,3,5,5
"146",2129,116,2,3,5,6
"147",2130,117,3,4,5,7
"148",2131,118,4,4,5,8
"149",2132,119,5,5,5,9
"150",2133,120,6,5,5,10
"151",2134,121,7,1,6,1
"152",2135,122,8,1,6,2
"153",2136,123,9,2,6,3
"154",2137,124,10,2,6,4
"155",2138,125,11,3,6,5
"156",2139,126,12,3,6,6
"157",2140,127,1,4,6,7
"158",2141,128,2,4,6,8
"159",2142,129,3,5,6,9
"160",2143,130,4,5,6,10
"161",2144,131,5,1,7,1
"162",2145,132,6,1,7,2
"163",2146,133,7,2,7,3
"164",2147,134,8,2,7,4
"165",2148,135,9,3,7,5
"166",2149,136,10,3,7,6
"167",2150,137,11,4,7,7
"168",2151,138,12,4,7,8
"169",2152,139,1,5,7,9
"170",2153,140,2,5,7,10
"171",2154,141,3,1,8,1
"172",2155,142,4,1,8,2
"173",2156,143,5,2,8,3
"174",2157,144,6,2,8,4
"175",2158,145,7,3,8,5
"176",2159,146,8,3,8,6
"177",2160,147,9,4,8,7
"178",2161,148,10,4,8,8
"179",2162,149,11,5,8,9
"180",2163,150,12,5,8,10
"181",2164,151,1,1,9,1
"182",2165,152,2,1,9,2
"183",2166,153,3,2,9,3
"184",2167,154,4,2,9,4
"185",2168,155,5,3,9,5
"186",2169,156,6,3,9,6
"187",2170,157,7,4,9,7
"188",2171,158,8,4,9,8
"189",2172,159,9,5,9,9
"190",2173,160,10,5,9,10
"191",2174,161,11,1,10,1
"192",2175,162,12,1,10,2
"193",2176,163,1,2,10,3
"194",2177,164,2,2,10,4
"195",2178,165,3,3,10,5
"196",2179,166,4,3,10,6
"197",2180,167,5,4,10,7
"198",2181,168,6,4,10,8
"199",2182,169,7,5,10,9
"200",2183,170,8,5,10,10
"201",2184,171,9,1,1,1
"202",2185,172,10,1,1,2
"203",2186,173,11,2,1,3
"204",2187,174,12,2,1,4
"205",2188,175,1,3,1,5
"206",2189,176,2,3,1,6
"207",2190,177,3,4,1,7
"208",2191,178,4,4,1,8
"209",2192,179,5,5,1,9
"210",2193,180,6,5,1,10
"211",2194,181,7,1,2,1
"212",2195,182,8,1,2,2
"213",2196,183,9,2,2,3
"214",2197,184,10,2,2,4
"215",2198,185,11,3,2,5
"216",2199,186,12,3,2,6
"217",2200,187,1,4,2,7
"218",2201,188,2,4,2,8
"219",2202,189,3,5,2,9
"220",2203,190,4,5,2,10
"221",2204,191,5,1,3,1
"222",2205,192,6,1,3,2
"223",2206,193,7,2,3,3
"224",2207,194,8,2,3,4
"225",2208,195,9,3,3,5
"226",2209,196,10,3,3,6
"227",2210,197,11,4,3,7
"228",2211,198,12,4,3,8
"229",2212,199,1,5,3,9
"230",2213,200,2,5,3,10
"231",2214,201,3,1,4,1
"232",2215,202,4,1,4,2
"233",2216,203,5,2,4,3
"234",2217,204,6,2,4,4
"235",2218,205,7,3,4,5
"236",2219,206,8,3,4,6
"237",2220,207,9,4,4,7
"238",2221,208,10,4,4,8
"239",2222,209,11,5,4,9
"240",2223,210,12,5,4,10
"241",2224,211,1,1,5,1
"242",2225,212,2,1,5,2
"243",2226,213,3,2,5,3
"244",2227,214,4,2,5,4
"245",2228,215,5,3,5,5
"246",2229,216,6,3,5,6
"247",2230,217,7,4,5,7
"248",2231,218,8,4,5,8
"249",2232,219,9,5,5,9
"250",2233,220,10,5,5,10
"251",2234,221,11,1,6,1
"252",2235,222,12,1,6,2
"253",2236,223,1,2,6,3
"254",2237,224,2,2,6,4
"255",2238,225,3,3,6,5
"256",2239,226,4,3,6,6
"257",2240,227,5,4,6,7
"258",2241,228,6,4,6,8
"259",2242,229,7,5,6,9
"260",2243,230,8,5,6,10
"261",2244,231,9,1,7,1
"262",2245,232,10,1,7,2
"263",2246,233,11,2,7,3
"264",2247,234,12,2,7,4
"265",2248,235,1,3,7,5
"266",2249,236,2,3,7,6
"267",2250,237,3,4,7,7
"268",2251,238,4,4,7,8
"269",2252,239,5,5,7,9
"270",2253,240,6,5,7,10
"271",2254,241,7,1,8,1
"272",2255,242,8,1,8,2
"273",2256,243,9,2,8,3
"274",2257,244,10,2,8,4
"275",2258,245,11,3,8,5
"276",2259,246,12,3,8,6
"277",2260,247,1,4,8,7
"278",2261,248,2,4,8,8
"279",2262,249,3,5,8,9
"280",2263,250,4,5,8,10
"281",2264,251,5,1,9,1
"282",2265,252,6,1,9,2
"283",2266,253,7,2,9,3
"284",2267,254,8,2,9,4
"285",2268,255,9,3,9,5
"286",2269,256,10,3,9,6
"287",2270,257,11,4,9,7
"288",2271,258,12,4,9,8
"289",2272,259,1,5,9,9
"290",2273,260,2,5,9,10
"291",2274,261,3,1,10,1
"292",2275,262,4,1,10,2
"293",2276,263,5,2,10,3
"294",2277,264,6,2,10,4
"295",2278,265,7,3,10,5
"296",2279,266,8,3,10,6
"297",2280,267,9,4,10,7
"298",2281,268,10,4,10,8
"299",2282,269,11,5,10,9
"300",2283,270,12,5,10,10
"301",2284,271,1,1,1,1
"302",2285,272,2,1,1,2
"303",2286,273,3,2,1,3
"304",2287,274,4,2,1,4
"305",2288,275,5,3,1,5
"306",2289,276,6,3,1,6
"307",2290,277,7,4,1,7
"308",2291,278,8,4,1,8
"309",2292,279,9,5,1,9
"310",2293,280,10,5,1,10
"311",2294,281,11,1,2,1
"312",2295,282,12,1,2,2
"313",2296,283,1,2,2,3
"314",2297,284,2,2,2,4
"315",2298,285,3,3,2,5
"316",2299,286,4,3,2,6
[end of cycle]
The code was ran in 2013 so the third column is zero indicating that that year is the water-snake.
First column is a counter
Second column is the Gregorian calendar year
Third column is years since start date of 2013
Fourth column is animal sign by number (numbers are best for code);
1= year of the rat
2=ox
3=tiger
4=hare
5=dragon
6=snake
7=horse
8=sheep
9=monkey
10=rooster
11=dog
12=pig
Fifth column is element sign by number; is doubled as this reflects the yin-yang nature of the element and animal partnership
1=wood
2=fire
3=earth
4=metal
5=water
Sixth column is the branch cycle by number of number
Seventh column is the stem cycle by number of number
the closer to one branch, one stem the closer one is to heaven
There have been some calculations based in the Mayan calendar/earth rotation in comparison with the Gregorian calendar and this seems to be cycling every 129600 earth years of each 25920 earth cycle relative to the current western astrological (north pole) based calendar. If things are static today.
here is a sample calculation:
| earth yrs | 60 | 12 | 100 | 1000 | 300 | |||
| multiple | 25920 | 432 | 2160 | 259.2 | 25.92 | 86.4 | ||
| 2 | 51840 | 864 | 4320 | 518.4 | 51.84 | 172.8 | ||
| 3 | 77760 | 1296 | 6480 | 777.6 | 77.76 | 259.2 | ||
| 4 | 103680 | 1728 | 8640 | 1036.8 | 103.68 | 345.6 | ||
| 5 | 129600 | 2160 | 10800 | 1296 | 129.6 | 432.0 | ||
| 6 | 155520 | 2592 | 12960 | 1555.2 | 155.52 | 518.4 | ||
| 7 | 181440 | 3024 | 15120 | 1814.4 | 181.44 | 604.8 |
As you can see the 300 year cycle repeats every five ages and when we pass from Aquarius age to Capricorn age in 25920 (approximately) then we will be off by 120 years or 300 times 0.4 from the 86.4 300 cycles. And five great cycles of 129600 earth years for 432-300 Chinese cycle would have passed. Granted This does not encounter a full 1000 earth year cycle equalization; therefore, the great 1000 year cycle and 300 year cycle line up again in multiple or great cycle 50 as you can see below:
| 48 | 1244160 | 20736 | 103680 | 12441.6 | 1244.16 | 4147.2 | |||
| 49 | 1270080 | 21168 | 105840 | 12700.8 | 1270.08 | 4233.6 | |||
| 50 | 1296000 | 21600 | 108000 | 12960 | 1296 | 4320.0 | |||
| 51 | 1321920 | 22032 | 110160 | 13219.2 | 1321.92 | 4406.4 | |||
| 52 | 1347840 | 22464 | 112320 | 13478.4 | 1347.84 | 4492.8 | |||
| 53 | 1373760 | 22896 | 114480 | 13737.6 | 1373.76 | 4579.2 | |||
| 54 | 1399680 | 23328 | 116640 | 13996.8 | 1399.68 | 4665.6 | |||
| 55 | 1425600 | 23760 | 118800 | 14256 | 1425.6 | 4752.0 | |||
| 56 | 1451520 | 24192 | 120960 | 14515.2 | 1451.52 | 4838.4 | |||
| 57 | 1477440 | 24624 | 123120 | 14774.4 | 1477.44 | 4924.8 | |||
| 58 | 1503360 | 25056 | 125280 | 15033.6 | 1503.36 | 5011.2 | |||
| 59 | 1529280 | 25488 | 127440 | 15292.8 | 1529.28 | 5097.6 | |||
| 60 | 1555200 | 25920 | 129600 | 15552 | 1555.2 | 5184.0 | |||
| 61 | 1581120 | 26352 | 131760 | 15811.2 | 1581.12 | 5270.4 | |||
| 62 | 1607040 | 26784 | 133920 | 16070.4 | 1607.04 | 5356.8 | |||
| 63 | 1632960 | 27216 | 136080 | 16329.6 | 1632.96 | 5443.2 |
I have also highlighted great cycle 50 and great cycle 60 to show a difference in the process of the stars in relation to earth's understanding of things. great cycle 50 in the Gregorian year of (1984+1296000 =) 1,297,984 so that would mean that the greater cycle would restart every 50 great earth cycles.
Another observation is that the great-greater cycle is 60 great cycles out and would be off by .2 in the 1000 year cycle calendar system; or 200 years forward of 1,555 one thousand earth year calendar cycles.
One million earth years is a long time and can be come quite burdensome is one is to be a "time traveler" or pyramid builder trying to get back to "heaven." Alas the next best break point is that far away!!!
Plenty of evolution can happen in the meantime and who knows what kind of information this blog might be kept with and for whom; even if it is not swept with the dust of time and space.
Again, my goal is to be born in the same kind of times; so maybe fire-tiger year of first branch, third stem in the Gregorian earth year (with the same kind of family structure (god willing)) 1,297,986 as a sun conjunct Neptune in Capricorn would be nice again! (If this is my obituary before ascension or international earth based calamity; please God hear my cry for the same and disclosure with fiat currency and accurate institutional structures (or maybe I am crazy or whatever.)
This code was interesting in creating as it does have some flaws; it is linear and compared with the Gregorian calendar does not compensate with star movements relative to earth's sun's position in the milky way. Hence, the stars will be different and requires more research and adjustment for the energies. Nevertheless, it was fun seeing this in action in a computer, in a linear sort of way.
No comments:
Post a Comment