| Прогноз на ";
document.display.notes.value += sss;
document.display.notes.value += " |
| ";
document.display.notes.value += "Солнце на момент прогноза расположено: "+lon3dmsz(lsuntran)+". ";
document.display.notes.value += "Луна на момент прогноза расположена: "+lon3dmsz(ltran)+". ";
document.display.notes.value += "В области звезды: "+naks[nkp]+" ("+naksw[nkp]+"). ";
document.display.notes.value += stw[wis[nkp]];
document.display.notes.value += " |
| ";
document.display.notes.value += (ba+mdaya+bb);
document.display.notes.value += "В момент прогноза идет "+mday+"-й лунный день. "+bri+"половина месяца. ";
document.display.notes.value += "Прошло "+(mdaya/5)+"% лунного дня (бар выше). Луна в "+mquart+"-й четверти. ";
document.display.notes.value += "Титхи: "+(mtithi+1)+stit[mtithi];
document.display.notes.value += " |
| ";
document.display.notes.value += (ba+nkpa+bb);
document.display.notes.value += "Луна в момент рождения расположена: "+lon3dmsz(l)+". ";
document.display.notes.value += "В области звезды: "+naks[nk]+" ("+naksw[nk]+"). ";
document.display.notes.value += "Текущая группа звезд "+(nkg+1)+"-я означает: "+tbl[nkg];
document.display.notes.value += " Прошло "+(nkpa/5)+"% области текущей звезды (бар выше).";
document.display.notes.value += " |
| ";
document.display.notes.value += (ba+mspa+bb);
document.display.notes.value += "Текущий транзит Луны через "+(mh+1)+"-й дом "+moh[mh];
document.display.notes.value += " Прошло "+(mspa/5)+"% дома (бар выше).";
document.display.notes.value += " |
| ";
document.display.notes.value += (ba+sspa+bb);
document.display.notes.value += "Текущий транзит Солнца через "+(sh+1)+"-й дом "+suh[sh];
document.display.notes.value += " Прошло "+(sspa/5)+"% дома (бар выше).";
document.display.notes.value += " |
| ";
document.display.notes.value += "Текущий прогноз++ © Шаунака ";
document.display.notes.value += "108.OM |
"
wi= open("", "displayWindow",
"width=1024,height=768,status=no,toolbar=no,menubar=no");
wi.document.open();
wi.document.write("| Прогноз на ");
wi.document.write(sss);
wi.document.write(" |
| ");
wi.document.write("Солнце на момент прогноза расположено: "+lon3dmsz(lsuntran)+susdt[ssp]+". ");
wi.document.write("Луна на момент прогноза расположена: "+lon3dmsz(ltran)+". ");
wi.document.write("В области звезды: "+naks[nkp]+" ("+naksw[nkp]+"). ");
wi.document.write(stw[wis[nkp]]);
wi.document.write(" |
| ");
wi.document.write(ba+mdaya+bb);
wi.document.write("В момент прогноза идет "+mday+"-й лунный день. "+bri+"половина месяца. ");
wi.document.write("Прошло "+(mdaya/5)+"% лунного дня (бар выше). Луна в "+mquart+"-й четверти. ");
wi.document.write("Титхи: "+(mtithi+1)+stit[mtithi]);
wi.document.write(" |
| ");
wi.document.write(ba+nkpa+bb);
wi.document.write("Луна в момент рождения расположена: "+lon3dmsz(l)+". ");
wi.document.write("В области звезды: "+naks[nk]+" ("+naksw[nk]+"). ");
wi.document.write("Текущая группа звезд "+(nkg+1)+"-я означает: "+tbl[nkg]);
wi.document.write(" Прошло "+(nkpa/5)+"% области текущей звезды (бар выше).");
wi.document.write(" |
| ");
wi.document.write(ba+mspa+bb);
wi.document.write("Текущий транзит Луны через "+(mh+1)+"-й дом "+moh[mh]);
wi.document.write(" Прошло "+(mspa/5)+"% дома (бар выше).");
wi.document.write(" |
| ");
wi.document.write(ba+sspa+bb);
wi.document.write("Текущий транзит Солнца через "+(sh+1)+"-й дом "+suh[sh]);
wi.document.write(" Прошло "+(sspa/5)+"% дома (бар выше).");
wi.document.write(" |
| ");
wi.document.write("Текущий прогноз++ © Шаунака ");
wi.document.write("108.OM |
");
wi.document.close();
}
function gett()
{
with(Math){
mon = floor(document.LunarCalc.Month.value);
day = floor(document.LunarCalc.Day.value);
year= floor(document.LunarCalc.Year.value);
hor= floor(document.LunarCalc.Hour.value);
minu= floor(document.LunarCalc.Min.value);
tz= floor(document.LunarCalc.ZHour.value);
tz += floor(document.LunarCalc.ZMin.value)/60;
var hr = hor + minu/60.;
}
// checks for checked DST, East, South
var dst = document.LunarCalc.DST;
var eln = document.LunarCalc.West;
if(dst.checked){
if(eln.checked) tz--;
else tz++;
}
jd = mdy2julian(mon,day,year);
if(eln.checked) f = hr + tz;
else f = hr - tz;
t = ((jd - 2451545) + f/24 - 0.5)/36525;
return t;
}
function sunlaya(t)
{
ay = calcayan(t);
m = (357.5277233 + 35999.0503400 * t - 0.00016028 * t*t);
w = (282.9383461 + 1.719457222 * t + 0.00046278 * t*t);
e = 0.016708617 - 0.00004204 * t;
//m = m % 360;
//if (m<0) m += 360;
m *= d2r; w *= d2r;
Ea = m; v = 0.; xa =0.; ya = 0.;
with(Math){
Ea += (e * sin(m) * (1 + e * cos(m)));
xa = cos(Ea) - e;
ya = sin(Ea) * sqrt(1-e*e);
v = atan2(ya, xa);
}
l = v + w;
l *= r2d;
l = l % 360;
if (l<0) l += 360.0;
l += ay;
if(l < 0.0) l += 360.0;
if(l > 360.0) l -= 360.0;
return l;
}
function moonlaya(t)
{
ay = calcayan(t);
ob = 23.452294 - 0.0130125 * t; // Obliquity of Ecliptic
// Calculate Moon longitude, latitude, and distance using truncated Chapront algorithm
// Moon mean longitude
l = (218.3164591 + 481267.88134236 * t);
// Moon mean elongation
d = (297.8502042 + 445267.1115168 * t);
// Sun's mean anomaly
m = (357.5291092 + 35999.0502909 * t);
// Moon's mean anomaly
mm = (134.9634114 + 477198.8676313 * t);
// Moon's argument of latitude
f = (93.2720993 + 483202.0175273 * t);
d *= d2r; m *= d2r; mm *= d2r; f *= d2r;
e = 1 - 0.002516 * t - 0.0000074 * t * t;
with(Math){
p = 6.288774 * sin(mm)
+ 1.274027 * sin(d*2-mm)
+ 0.658314 * sin(d*2)
+ 0.213618 * sin(2*mm)
- 0.185116 * e * sin(m)
- 0.114332 * sin(f*2);
p += 0.058793 * sin(d*2 - mm * 2)
+ 0.057066 * e * sin(d*2 - m - mm)
+ 0.053322 * sin(d*2 + mm)
+ 0.045758 * e * sin(d*2 - m)
- 0.040923 * e * sin(m - mm)
- 0.034720 * sin(d)
- 0.030383 * e * sin(m + mm);
p += 0.015327 * sin(d*2 - f*2)
- 0.012528 * sin(mm + f*2)
+ 0.010980 * sin(mm - f*2)
+ 0.010675 * sin(d * 4 - mm)
+ 0.010034 * sin(3 * mm);
p += 0.008548 * sin(d * 4 - mm * 2)
- 0.007888 * e * sin(d * 2 + m - mm)
- 0.006766 * e * sin(d * 2 + m)
- 0.005163 * sin(d - mm)
+ 0.004987 * e * sin(d + m)
+ 0.004036 * e * sin(d*2 - m + mm)
+ 0.003994 * sin(d * 2 + mm * 2);
}
l += p;
while(l < 0.0) l += 360.0;
while(l > 360.0) l -= 360.0;
l += ay;
if(l < 0.0) l += 360.0;
if(l > 360.0) l -= 360.0;
return l;
}
// Calculate Ayanamsa using J2000 Epoch
function calcayan(t)
{
with(Math){
ln = 125.0445550 - 1934.1361849 * t + 0.0020762 * t * t; // Mean lunar node
off = 280.466449 + 36000.7698231 * t + 0.00031060 * t * t; // Mean Sun
off = 17.23*sin(d2r * ln)+1.27*sin(d2r * off)-(5025.64+1.11*t)*t;
off = (off- 85886.27)/3600.0;
}
return off;
}
// build string with degrees, minutes, seconds and zodiac sign from longitude
function lon2dmsz(x)
{
with(Math){
var d,m,s;
x = abs(x);
d = floor(x);
m = (x - d);
s = m * 60;
m = floor(s);
s = s - m;
z = floor(d/30);
d %= 30;
str = d + "° " + m + "' " + floor(s * 60) + "\" " + zn.substr(z*3,3);
}
return str;
}
function lon3dmsz(x)
{
with(Math){
var d,m,s;
x = abs(x);
d = floor(x);
m = (x - d);
s = m * 60;
m = floor(s);
s = s - m;
z = floor(d/30);
d %= 30;
str = d + "°" + m + "'" + floor(s * 60) + "\" " + znak[z];
}
return str;
}
// calculate Julian Day from Month, Day and Year
function mdy2julian(m,d,y)
{
with(Math){
im = 12 * (y + 4800) + m - 3;
j = (2 * (im - floor(im/12) * 12) + 7 + 365 * im)/12;
j = floor(j) + d + floor(im/48) - 32083;
if(j > 2299171)j += floor(im/4800) - floor(im/1200) + 38;
return j;
}
}