Featured Post

Military Patent Infringement (Pentagon takes your genius crap)

http://www.bloomberg.com/news/articles/2016-06-08/congratulations-your-genius-patent-is-now-a-military-secret

Search This Blog

Sunday, August 10, 2014

[UPDATE and REPOST] Time Sequence Chinese Calander R-code


Update and found new information on wikipedia: http://en.wikipedia.org/wiki/Age_of_Aquarius

wiki excerps that are important to note and program into the R program noted below:
NOTE THAT SUCH EXCERPTS COULD BE CHANGED IN THE FUTURE AND THAT IS WHY I AM COPYING AND PASTING. I REALLY WANT THIS INFO TO BE USED FOR SOUL AND KARMIC MANIPULATION FOR REBIRTH. THIS WILL HELP MERGE THE DARK AND LIGHT BINARY SYSTEMS.      ;)
------


the earth's slow precessional rotation and lasts for 2,160 years, on average (1 degree every 72 years. 360 / 12 zodiac signs = 30. 30 * 72 = 2,160).

------
he approximate 2,150 years for each age corresponds to the average time it takes for the vernal equinox to move from one constellation of the zodiac into the next. This can be computed by dividing the earth's 25,800 year gyroscopic precession period by twelve, the number of Zodiac constellations used by astrologers. According to different astrologers' calculations, approximated dates for entering the Age of Aquarius range from 1447 AD (Terry MacKinnell) to 3597 (John Addey)
------

Roughly every 2,150 years the sun's position at the time of the vernal equinox will have moved into a new zodiacal constellation. However zodiacal constellations are not uniform in size, leading some astrologers to believe that the corresponding ages should also vary in duration. This however is a contentious issue amongst astrologers.
------

In 1929 the International Astronomical Union defined the edges of the 88 official constellations. The edge established between Pisces and Aquarius technically locates the beginning of the Aquarian Age around 2600 AD. Many astrologers dispute this approach because of the varying sizes of the zodiacal constellations and overlap between the zodiacal constellations.
--------
[end of wiki citations/quotation]

there are many different approaches to "cutting the sky" all from Wikipedia

here is David Williams approach:

start  = 1844 age of Aq
three decon subdivision:
Libra decon: 1844 - 3284 ...1440 years or 24 - 60 year cycles
------ Libra marks war and uprisings
Aquarian decon: 3284 - 4004...about 720 years or 12 - 60 year cycles
------ revolution for peace
Gemini decon: 4004 -  not stated but probably around the size of Libra or aquarian age length?

--Main drawaback. The ages are farther apart than 2150 cycle. The Williams approach might be a dud.

There are other approaches but probably worth reading on the wiki posting. No exact dates given except for one with very large amounts related to Uranium decay (kind of useless for this purpose?)

In my opinion the quotations above are more accurate than the other authors or the Williams approach.

This also means that I will need to readjust my excel spreadsheet for the 2150 or 2160 zodiac age calculation date. Although, I will use the 2160 zodiac date as 36 - 60 year Chinese cycles will fit in the system (take 2160/60 = 36) and is 7.2 - 300 year stem branch cycles (2160/300) therefore a new stem branch cycle during crossover will be in... (2160*5)/300 = 36 Chinese macro cycles. (that is 10,800 years or every five astrological ages if each age is 2160 years long....that is a long time for human perspective. However, it is a short time in geological and astrological energy servicing. Therefore these numbers are only, probably true, for this local area in time (for today and a few thousand earth years to go.) Additionally, will this calendar change when the Milky Way and Andromeda merge together, probably?



-------------------------------

[REPOSED]

For fun I ran some R code (a C++ type program found at: http://www.r-project.org/) for a complex cycle related to the Chinese Calendar.

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 yrs60121001000300
multiple259204322160259.225.9286.4
2518408644320518.451.84172.8
37776012966480777.677.76259.2
4103680172886401036.8103.68345.6
51296002160108001296129.6432.0
61555202592129601555.2155.52518.4
71814403024151201814.4181.44604.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:

4812441602073610368012441.61244.164147.2
4912700802116810584012700.81270.084233.6
501296000216001080001296012964320.0
5113219202203211016013219.21321.924406.4
5213478402246411232013478.41347.844492.8
5313737602289611448013737.61373.764579.2
5413996802332811664013996.81399.684665.6
55142560023760118800142561425.64752.0
5614515202419212096014515.21451.524838.4
5714774402462412312014774.41477.444924.8
5815033602505612528015033.61503.365011.2
5915292802548812744015292.81529.285097.6
60155520025920129600155521555.25184.0
6115811202635213176015811.21581.125270.4
6216070402678413392016070.41607.045356.8
6316329602721613608016329.61632.965443.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