tag:blogger.com,1999:blog-1727708543342864768.post3259972440856354334..comments2023-04-16T07:18:17.042-03:00Comments on Anotações R Statistical Computing: Cálculo das fases da lua no RAntonio Olinto Ávila da Silvahttp://www.blogger.com/profile/03690817283316459794noreply@blogger.comBlogger1125tag:blogger.com,1999:blog-1727708543342864768.post-3312281286622668282014-01-04T18:47:06.250-02:002014-01-04T18:47:06.250-02:00Montei esse algoritmo no JavaScript
ano = ;
mes = ...Montei esse algoritmo no JavaScript<br />ano = ;<br />mes = ;<br />dia = ;<br />a = 2*3.14159;<br />b = ano-((12-mes)/10-((12-mes)/10)%1);<br />c = (mes+8)%12+1;<br />d = 365.25*(b+4712)-(365.25*(b+4712))%1;<br />e = (30.6*c+0.5)-(30.6*c+0.5)%1;<br />f = (b/100)+49-((b/100)+49)%1;<br />g = f*0.75-(f*0.75)%1;<br />h = g-38-(g-38)%1;<br />if (d+e+dia+59 > 2299160) {<br /> i = d+e+dia+59-h;<br />} else {<br /> i = d+e+dia+59;<br />}<br />j = (i-2451550.1)/29.530588853;<br />if (j-(j-j%1) < 0) {<br /> k = j-(j-j%1)+1;<br />} else {<br /> k = j-(j-j%1);<br />}<br />idadelua = k*29.530588853-(k*29.530588853)%1;<br />if (idadelua == 0 || idadelua == 29) {<br /> faselua = "Nova";<br />}<br />else if (idadelua >= 0 && idadelua <= 6) {<br /> faselua = "Crescente Concava";<br />}<br />else if (idadelua == 7) {<br /> faselua = "4° Crescente";<br />}<br />else if (idadelua >= 8 && idadelua <= 13) {<br /> faselua = "Crescente Convexa";<br />}<br />else if (idadelua == 14) {<br /> faselua = "Cheia";<br />}<br />else if (idadelua >= 15 && idadelua <= 21) {<br /> faselua = "Minguante Convexa";<br />}<br />else if (idadelua == 22) {<br /> faselua = "4° Minguante";<br />}<br />else {<br /> faselua = "Minguante Concava";<br />}<br />Emersonhttps://www.blogger.com/profile/02560147931426890715noreply@blogger.com