<!--
// system.js
varAppVer = parseFloat(navigator.appVersion.substring(0,3));
var AppName = nowAppName();
function nowAppName() {
var ans = 'UNKNOW';
var tmp = navigator.userAgent;
if (tmp.indexOf('Mozilla') >= 0) {ans='NN';}
if (tmp.indexOf('Explorer') >= 0) {ans='IE';}
if (tmp.indexOf('MSIE') >= 0) {ans='IE';}
if (tmp.indexOf('Opera') >= 0) {ans='OP';}
if (tmp.indexOf('Netscape') >= 0) {ans='NN';}
if (tmp.indexOf('Gecko') >= 0) {ans='NN';}
return ans;
}
function getCookie(key) {
var start,end,ans,tmp,tmp1;
tmp = document.cookie + ';';
tmp1 = tmp.indexOf(key,0);
if (tmp1 >= 0) {
tmp = tmp.substring(tmp1,tmp.length);
start = tmp.indexOf("=",0) + 1;
end = tmp.indexOf(";",start);
if (end - start <= 1) return "";
return unescape(tmp.substring(start,end));
}
return "";
}
function getEventX(ev) {
if (ev.x) return ev.x;
else return ev.pageX;
}
function getEventY(ev) {
if (ev.y) return ev.y;
else return ev.pageY;
}
// formhelp.js
function make_selectNumber(tagname,startyy,endyy,stepyy,defaultyy) {
var msg,tsyy,teyy,yy;
var n;
stepyy = (stepyy < 0) ? -stepyy : stepyy;
stepyy = Math.floor(stepyy);
if (stepyy < 1) stepyy = 1;
if (startyy > endyy) {
tsyy = endyy;
teyy = startyy;
stepyy = -stepyy;
} else {
tsyy = startyy;
teyy = endyy;
}
document.writeln('<select name="' + tagname + '">');
for (yy = startyy; (tsyy <= yy) && (yy <= teyy) ; yy += stepyy) {
msg = '<option value="' + yy + '"';
if (yy == defaultyy) {
msg = msg + ' selected';
}
document.writeln(msg + '>' + yy);
}
document.writeln('</select>');
}
function get_selectValue(doc) {
var n;
with (doc) {
n = selectedIndex;
return options[n].value;
}
}
// date.js
var Weekofs = 2;
var WeekDays = new Array("日","月","火","水","木","金","土");
var Mdays = new Array(31,28,31,30,31,30,31,31,30,31,30,31);
var Gm3199 = 552648; 
var Jm3199 = 552622; 
function Y2K(year)
{
if (year < 1600)
{
if (year < 50)
{
year += 100;
}
year += 1900;
}
return year;
}
function GetJisa() {
var now = new Date();
var d,h;
d = now.getDate() - now.getUTCDate();
if (d < -15) d = 1;
else if (d > 15) d = -1;
h = d * 24 + now.getHours() - now.getUTCHours();
return h;
}
function GetMonthDays(yy,mm)
{
if (yy % 4 == 0) {
Mdays[1] = 29;
if (yy > 1582) {
if (yy % 100 == 0) Mdays[1] = 28;
if (yy % 400 == 0) Mdays[1] = 29;
}
} else Mdays[1] = 28;
return Mdays[mm - 1];
}
function GetYearDays(yy,mm,dd)
{
var m,days;
days = dd;
m = GetMonthDays(yy,mm);	
for (m = 0; m < (mm - 1); m++) days += Mdays[m];
return days;
}
function GetDays2MD(year,days)
{
var m,d;
for (m = 12; m >= 1; m--)
{
d = GetYearDays(year,m,1);
if (d <= days) break;
}
d = days - d + 1;
if (m == 0)	m = 1;
return m * 100 + d;
}
function Ymd2Jd(yy,mm,dd) {
var days,tmp,yym1;
yym1 = yy - 1;
days = 1721422;	
Mdays[1] = 28;
if (yy % 4 == 0) {
Mdays[1] = 29;
if (yy > 1582) {
if (yy % 100 == 0) {
Mdays[1] = 28;
if (yy %400 == 0) {
Mdays[1] = 29;
}
}
}
}
days += Math.floor(365.25 * yym1 + 0.1);
for (m = 0; m < (mm - 1) ; m++) {
days += Mdays[m];
}
days += dd;
if (days >= 2299160) days -= 10;	
if (yym1 >= 1600) {
days -= Math.floor((yym1 - 1600 + 0.1) / 100);
days += Math.floor((yym1 - 1600 + 0.1) / 400);
}
return days;
}
function Jd2Ymd(jd) {
if (jd >= 2299160.0) {
return Jd2Gymd(jd);
} else {
return Jd2Jymd(jd);
}
}
function GetJ2000Days(yy,mm,dd)
{
var days;
days = Ymd2Jd(yy,mm,dd);
days -= Ymd2Jd(2000,1,1.5);
return days;
}
function Ym2GsubJ(yy,mm) {
var ans;
if (mm <= 2) yy--;
ans = Math.floor((yy + 0.1) / 100) - 2;
ans = ans - Math.floor((yy + 0.1) / 400);
return ans;
}
function GetWeekDaysJd(jd) {
return (Math.floor(jd) + Weekofs) % 7;
}
function GetWeekDays(yy,mm,dd)
{
return GetWeekDaysJd(Ymd2Jd(yy,mm,dd));
}
function GetWeekDayStrJd(jd)
{
return WeekDays[GetWeekDaysJd(jd)];
}
function GetWeekDayStr(yy,mm,dd)
{
return WeekDays[GetWeekDays(yy,mm,dd)];
}
var Syunbunpar1 = new Array(19.8277,20.8357,20.8431,21.8510);
var Syunbunpar2 = new Array(22.2588,23.2588,23.2488,24.2488);
function Syunbun(year,month)	
{
var ans,p1;
if ((year >= 1851) && (year <= 1899)) p1 = 0;
else if ((year >= 1900) && (year <= 1979)) p1 = 1;
else if ((year >= 1980) && (year <= 2099)) p1 = 2;
else if ((year >= 2100) && (year <= 2150)) p1 = 3;
else return 0;	
if (month == 3) {
ans = Math.floor(Syunbunpar1[p1] + 0.242194 * (year - 1980) - Math.floor((year - 1980 + 0.01)/4));
} else if (month == 9) {
ans = Math.floor(Syunbunpar2[p1] + 0.242194 * (year - 1980) - Math.floor((year - 1980 + 0.01)/4));
} else ans = 0;	
return ans;
}
function deltaT(year)
{
return (58 + 0.44 * (year - 1990));
}
function Sunlongdays(year,kaku)	
{
var t0,t,sl,dsl,bsl,ofs;
t0 = Ymd2Jd(year,1,0) - Ymd2Jd(2000,1,1.5);
bsl = SunLong(t0);
if (kaku < bsl) ofs = -360.0;
else ofs = 0.0;
t = kaku - bsl - ofs;
t = Math.floor(t * 0.9);	
for (;;)
{
sl = SunLong(t + t0);
if (sl < bsl) bsl += ofs;
if ((sl >= kaku) && (bsl < kaku))
{
t += (kaku - sl) / (sl - bsl);
t += (kaku - SunLong(t + t0)) / (sl - bsl);
break;
}
bsl = sl;
t++;
}
return t;
}
function hour2hm(hour)
{
var m,h;
with (Math)
{
h = Math.floor(hour);
m = Math.floor((hour - h) * 60 + 0.5);
if (m >= 60)
{
m -= 60;
h++;
}
if (h < 10) h = ' ' + h;
if (m < 10) m = '0' + m;
h = h + ':' + m;
}
return h;
}
function Jymd2Jd(yy,mm,dd) {
dd = GetYearDays(1995 + UruuCheck(yy,'J'),mm,dd);	
yy += 3199;
dd += yy * 365;
dd += Math.floor((yy + 0.1) / 4.0);
dd += Jm3199;
return dd;
}
function Gymd2Jd(yy,mm,dd) {
dd = GetYearDays(1995 + UruuCheck(yy,'G'),mm,dd); 
yy += 3199;
dd += yy * 365;
dd += Math.floor((yy + 0.1) / 4.0);
dd -= Math.floor((yy + 0.1) / 100.0);
dd += Math.floor((yy + 0.1) / 400.0);
dd += Gm3199;
return dd;
}
function Jd2Jymd(jd) {
var jdi,jdf,yy,tjd,mm;
jdi = Math.floor(jd);
jdf = jd - jdi;
yy = Math.floor((jdi - Jm3199) / 365.25) - 3199;
tjd = Jymd2Jd(yy,1,1);
while (tjd <= jdi) {
yy++;
tjd = Jymd2Jd(yy,1,1);
}
while (jdi < tjd) {
yy--;
tjd = Jymd2Jd(yy,1,1);
}
tjd -= 1;
Mdays[1] = 28 + UruuCheck(yy,'J');
for (mm = 0; mm < 12 ; mm++) {
tjd += Mdays[mm];
if (tjd >= jdi) {
tjd -= Mdays[mm];
break;
}
}
jd = Math.abs(yy) * 10000.0 + (mm + 1) * 100.0 + jdi - tjd + jdf;
if (yy < 0) jd = -jd;
return jd;
}
function Jd2Gymd(jd) {
var jdi,jdf,yy,tjd,mm;
jdi = Math.floor(jd);
jdf = jd - jdi;
yy = Math.floor((jdi - Gm3199) / 365.2425) - 3199;
tjd = Gymd2Jd(yy,1,1);
while (tjd <= jdi) {
yy++;
tjd = Gymd2Jd(yy,1,1);
}
while (jdi < tjd) {
yy--;
tjd = Gymd2Jd(yy,1,1);
}
tjd -= 1;
Mdays[1] = 28 + UruuCheck(yy,"G");
for (mm = 0; mm < 12 ; mm++) {
tjd += Mdays[mm];
if (tjd >= jdi) {
tjd -= Mdays[mm];
break;
}
}
jd = Math.abs(yy) * 10000.0 + (mm + 1) * 100.0 + jdi - tjd + jdf;
if (yy < 0) jd = -jd;
return jd;
}
function UruuCheck(yy,GJflag) {
if ((GJflag == "J") || (GJflag == "j")) {
return (yy % 4 == 0) ? 1 : 0;
} else {
var uf = 0;
uf = (yy % 4 == 0) ? 1 : uf;
uf = (yy % 100 == 0) ? 0 : uf;
uf = (yy % 400 == 0) ? 1 : uf;
return uf;
}
}
// calender.js
var dayend,month,year = -9999;
var gengouY = new Array(1868,1912,1926,1989);
var gengou  = new Array("明治","大正","昭和","平成");
var iwaimend = new Array(-1,-1);
var iwaimends= new Array("","");
var IDD = new Array(368);
var MDD = new Array(0,31,28,31,30,31,30,31,31,30,31,30,31);
var MDDt = new Array(13);
var iwaiday = new Array();
var iwaistr = new Array();
var Iwai = new Array();
Iwai[0] = "101,1949,9000,元日";
Iwai[1] = "115,1949,1999,成人の日";
Iwai[2] = "151,2000,9000,成人の日";
Iwai[3] = "211,1967,9000,建国記念の日";
Iwai[4] = "398,1949,9000,春分の日";
Iwai[5] = "429,1949,1988,天皇誕生日";
Iwai[6] = "429,1989,2006,みどりの日";
Iwai[7] = "429,2007,9000,昭和の日";
Iwai[8] = "503,1949,9000,憲法記念日";
Iwai[9] = "504,2007,9000,みどりの日";
Iwai[10] = "505,1949,9000,こどもの日";
Iwai[11] = "720,1996,2002,海の日";
Iwai[12] = "761,2003,9000,海の日";
Iwai[13] = "915,1966,2002,敬老の日";
Iwai[14] = "961,2003,9000,敬老の日";
Iwai[15] = "999,1948,9000,秋分の日";
Iwai[16] = "1010,1966,1999,体育の日";
Iwai[17] = "1051,2000,9000,体育の日";
Iwai[18] = "1103,1948,9000,文化の日";
Iwai[19] = "1123,1948,9000,勤労感謝の日";
Iwai[20] = "1223,1989,9000,天皇誕生日";
Iwai[21] = "410,1959,1959,明仁親王の結婚の儀";
Iwai[22] = "224,1989,1989,昭和天皇の大喪の礼";
Iwai[23] = "1112,1990,1990,即位礼正殿の儀";
Iwai[24] = "609,1993,1993,徳仁親王の結婚の儀";
iwaistr[30] = "(振替休日)";
iwaistr[31] = "(国民の休日)";
iwaistr[32] = "(※休日※)";
function SetMDD(year) {
var i;
MDD[2] = 28;
if (year % 4 == 0) {MDD[2] = 29;}
if (year % 100 == 0) {MDD[2] = 28;}
if (year % 400 == 0) {MDD[2] = 29;}
MDDt[0] = 0;
for (i = 1; i <= 12; i++) {
MDDt[i] = MDDt[i-1] + MDD[i];
}
}
function ConvMDDays(md) {
var m,d;
d = md % 100;
m = (md - d) / 100;
return MDDt[m-1] + d;
}
function InitIwai(year)
{
var i,d;
var tmp = new Array();
var iwaidayS,iwaidayE;
var baseday;
for (i = 0; i < Iwai.length ; i++) {
tmp = Iwai[i].split(",");
iwaiday[i] = 0;
iwaistr[i] = "";
if ((year >= tmp[1] * 1) && (year <= tmp[2] * 1)) {
iwaiday[i]  = tmp[0] * 1;
iwaistr[i] = tmp[3];
}
}
SetMDD(year);
Initvariable(year);
for (d = 1; d <= MDDt[12]+1 ; d++) {
IDD[d] = -1;
}
for (i = 0; i < iwaiday.length; i++) {
if (iwaiday[i] > 0) {
IDD[ConvMDDays(iwaiday[i])] = i;
}
}
if (year >= 1973) {
baseday = GetWeekDays(year,1,0);
for (d = 1; d <= MDDt[12] ; d++) {
if ((IDD[d] >= 0) && ((d + baseday) % 7 == 0)) {
if (year < 2007) {
if (year == 1973) {
if (d >= 102) {
if (IDD[d + 1] <= 0) {
IDD[d + 1] = 30;
}
}
} else {
if (IDD[d + 1] <= 0) {
IDD[d + 1] = 30;
}
}
} else {
j = 0;
for (j = 1; j < 7; j++) {
if (IDD[d + j] < 0) {
IDD[d + j] = 30;
break;
}
}
}
}
}
}
if (year >= 1986) {
for (d = 1; d <= MDDt[12] - 2 ; d++) {
if ((IDD[d] >= 0) && (IDD[d] < 30)) {
if ((IDD[d + 2] >= 0) && (IDD[d + 2] < 30)) {
if (year < 2007) {
if ((IDD[d + 1] < 0) && ((d + 1 + baseday) % 6 != 0)) {
IDD[d + 1] = 31;
}
} else {
if ((IDD[d + 1] < 0) || (IDD[d + 1] >= 30)) {
if (IDD[d + 1] >= 30) {
IDD[d + 1] = 32;
} else {
IDD[d + 1] = 31;
}
}
}
}
}
}
}
}
function GetGengouY(year)
{
var i,ie,yy;
yy = '';
ie = gengouY.length;
for (i = ie ; i > 0 ; i--)
{
if (year >= gengouY[i])
{
yy = gengou[i] + (year - gengouY[i] + 1).toString(10) + '年';
break;
}
}
return yy;
}
function Initvariable(year)
{
var i,j,day,tmp,mon;
for (i = 0; i < iwaiday.length ; i++) {
tmp = iwaiday[i] % 100;
if (tmp == 98) iwaiday[i] = 300 + Syunbun(year,3);
if (tmp == 99) iwaiday[i] = 900 + Syunbun(year,9);
if ((tmp >31) && (tmp < 90)) {
mon = Math.floor(iwaiday[i] / 100);
day = tmp % 10;
tmp = (Math.floor(tmp / 10) - 4) * 7 + 1;
for (j = tmp; j < (tmp + 7); j++) {
if (GetWeekDays(year,mon,j) == day) {
iwaiday[i] = mon * 100 + j;
break;
}
}
}
}
}
function InitSyunbun(year,month)
{
var i,day,tmp;
i = 0;
day =0;
tmp = -9999;
if (month == 3) tmp = 398;
if (month == 9) tmp = 999;
if (tmp < 0) return;
for(i = 0; day < 5000 ; i++)
{
day = iwaiday[i];
if (day == tmp)
{
iwaiday[i] = Syunbun(year,month) + month * 100;
break;
}
}
}
function calender(wd,year,month,today,exflag,exstr)
{
var i,dflag,day,zeroday;
InitIwai(year);
zeroday = Ymd2Jd(year,month,0) - Ymd2Jd(year,1,0);
dayend = GetMonthDays(year,month);
if (today <= 0) today = -99;
wd.document.writeln('<table border bgcolor="#ffffaa">');
wd.document.writeln('<caption><strong>' + year + '年' + month + '月' + '</strong></caption>');
for (i = 0; i < 7 ; i++)
{
if (i == 0) wd.document.write('<tr><th bgcolor="#ffaaaa">' + WeekDays[i] + '</th>');
else if (i == 6) wd.document.writeln('<th bgcolor="#aaaaff">' + WeekDays[i] + '</sth></tr>');
else wd.document.write('<th>' + WeekDays[i] + '</th>');
}
day = GetWeekDays(year,month,0);
day = -day;
if (day == -6) day = 1;
for (;;)
{
wd.document.write('<tr align="right">');
for (i = 0; i < 7 ; i++)
{
dflag = i;
if ((day >= 1) && (day <= dayend)) {
if (IDD[day + zeroday] >= 0) dflag = 0;
if (day == today) dflag = -1;
}
if (dflag == -1) wd.document.write('<td bgcolor="#aaaaaa">');
else if (dflag == 0) wd.document.write('<td bgcolor="#ffaaaa">');
else if (dflag == 6) wd.document.write('<td bgcolor="#aaaaff">');
else wd.document.write('<td>');
if ((day >= 1) && (day <= dayend))
{
wd.document.write(day);
if (exflag == 1)
{
wd.document.write(exstr);
}
}
else wd.document.write('&nbsp;');
wd.document.writeln('</td>');
day++;
}
wd.document.writeln('</tr>');
if (day > dayend) break;
}
wd.document.writeln('<tr bgcolor="#ffffff"><th align="left" colspan="7">今月の祝日・休日</th></tr>');
dflag = 0;
for (day = 1; day <= dayend ; day++) {
if (IDD[day + zeroday] >= 0) {
wd.document.writeln('<tr bgcolor="#ffffff"><td>' + day + '</td><td colspan="6" align="left">' + iwaistr[IDD[day + zeroday]] + '</td></tr>');
dflag++;
}
}
if (dflag <= 0) {
wd.document.writeln('<tr bgcolor="#ffffff"><td align="left" colspan="7">祝日なし</td></tr>');
}
wd.document.writeln('</table>');
}
function calender2(wd,year,month,today,ofswd,exflag,exstr)
{
var WDF = new Array(' bgcolor="#ffaaaa"','','','','','',' bgcolor="#aaaaff"',' bgcolor="#aaaaaa"');
var i,dflag,day,zeroday;
var exi,day,firstWd,STflag;

InitIwai(year);
zeroday = Ymd2Jd(year,month,0) - Ymd2Jd(year,1,0);
dayend = GetMonthDays(year,month);

if (today <= 0) today = -99;

wd.document.writeln('<table border bgcolor="#ffffaa">');
wd.document.writeln('<caption><strong>' + year + '年' + month + '月' + '</strong></caption>');

wd.document.write('<tr>');
for (i = 0; i < 7 ; i++) {
exi = (ofswd + i) % 7;
wd.document.write('<th' + WDF[exi] + '>' + WeekDays[exi] + '</th>');
}
wd.document.writeln('</tr>');

firstWd = GetWeekDays(year,month,1);
STflag = 0;
day = 0;

while (STflag < 2) {	// 2 なら終了
wd.document.write('<tr align="right">');
for (i = 0; i < 7 ; i++) {
exi = (ofswd + i) % 7;
if ((STflag == 0) && (exi == firstWd)) {
STflag = 1;
day = 1;
}
if (STflag == 1) {
if (IDD[day + zeroday] >= 0) exi = 0;
if (day == today) exi = 7;
wd.document.write('<td' + WDF[exi] + '>');
wd.document.write('' + day);
if (exflag == 1)
{
wd.document.write(exstr);
}
day++;
if (day > dayend) STflag = 2;
} else {
wd.document.write('<td' + WDF[exi] + '>&nbsp;');
}
wd.document.write('</td>');
}
wd.document.writeln('</tr>');
}
wd.document.writeln('<tr bgcolor="#ffffff"><th align="left" colspan="7">今月の祝日・休日</th></tr>');

dflag = 0;	// 祝日・休日の数を数える
for (day = 1; day <= dayend ; day++) {
if (IDD[day + zeroday] >= 0) {
wd.document.writeln('<tr bgcolor="#ffffff"><td>' + day + '</td><td colspan="6" align="left">' + iwaistr[IDD[day + zeroday]] + '</td></tr>');
dflag++;
}
}
if (dflag <= 0) {
wd.document.writeln('<tr bgcolor="#ffffff"><td align="left" colspan="7">祝日なし</td></tr>');
}
wd.document.writeln('</table>');
}
// pos_sun.js
var sla = new Array(36000.7695,280.4659,1.9147,0.0200,-0.0048,0.0020,0.0018,0.0018,0.0015,0.0013,0.0007,0.0007,0.0007,0.0006,0.0005,0.0005,0.0004,0.0004);
var slb = new Array(0,0,35999.05,71998.1,35999,32964,19,445267,45038,22519,65929,3035,9038,33718,155,2281,29930,31557);
var slc = new Array(0,0,267.52,265.1,268,158,159,208,254,352,45,110,64,316,118,221,48,161);
function SunMLong(T)
{
var d2r,kaku,i,ans;
d2r = Math.PI / 180.0;
T /= 36525.0;
ans = 0.0;
for (i = 17; i >= 0 ; i--)
{
kaku = (slb[i] * T + slc[i]) * d2r;
if ((i == 0) || (i == 4)) ans += sla[i] * T * Math.cos(kaku);
else ans += sla[i] * Math.cos(kaku);
}
ans = ans - Math.floor(ans / 360.0) * 360.0;
return ans;
}
function SunLong(T)
{
var d2r,ans,dans;
d2r = Math.PI / 180.0;
dans = -0.0057 + 0.0048 * Math.cos((1934 * T / 36525.0 + 145) * d2r);
ans = SunMLong(T);
ans += dans;
while(ans < 0.0) ans += 360.0;
while(ans >= 360.0) ans -= 360.0;
return ans;
}
// pos_moon.js
var mla = new Array(481267.8809,218.3162,6.2888,1.2740,0.6583,0.2136,0.1851,0.1144,0.0588,0.0571,0.0533,0.0458,0.0409,0.0347,0.0304,0.0154,0.0125,0.0110,0.0107,0.0100,0.0085,0.0079,0.0068,0.0052,0.0050,0.0040,0.0040,0.0040,0.0038,0.0037,0.0028,0.0027,0.0026,0.0024,0.0023,0.0022,0.0021,0.0021,0.0021,0.0018,0.0016,0.0012,0.0011,0.0009,0.0008,0.0007,0.0007,0.0007,0.0007,0.0006,0.0006,0.0005,0.0005,0.0005,0.0004,0.0004,0.0003,0.0003,0.0003,0.0003,0.0003,0.0003,0.0003);
var mlb = new Array(0,0,477198.868,413335.35,890534.22,954397.74,35999.05,966404,63863.5,377336.3,1367733.1,854535.2,441199.8,445267.1,513197.9,75870,1443603,489205,1303870,1431597,826671,449334,926533,31932,481266,1331734,1844932,133,1781068,541062,1934,918399,1379739,99863,922466,818536,990397,71998,341337,401329,1856938,1267871,1920802,858602,1403732,790672,405201,485333,27864,111869,2258267,1908795,1745069,509131,39871,12006,958465,381404,349472,1808933,549197,4067,2322131);
var mlc = new Array(0,0,44.963,10.74,145.7,179.93,87.53,276.5,124.2,13.2,280.7,148.2,47.4,27.9,222.5,41,52,142,246,315,111,188,323,107,205,283,56,29,21,259,145,182,17,122,163,151,357,85,16,274,152,249,186,129,98,114,50,186,127,38,156,90,24,242,223,187,340,354,337,58,220,70,191);
var maa = new Array(5.1281,0.2806,0.2777,0.1733,0.0554,0.0463,0.0326,0.0172,0.0093,0.0088,0.0082,0.0043,0.0042,0.0034,0.0025,0.0022,0.0022,0.0021,0.0019,0.0018,0.0018,0.0018,0.0015,0.0015,0.0015,0.0014,0.0013,0.0013,0.0011,0.0010,0.0009,0.0008,0.0007,0.0006,0.0006,0.0005,0.0005,0.0005,0.0004,0.0004,0.0003,0.0003,0.0003,0.0003,0.0003);
var mab = new Array(483202.019,960400.89,6003.15,407332.2,896537.4,69866.7,1373736.2,1437599.8,884531,471196,371333,547066,1850935,443331,860538,481268,1337737,105866,924402,820668,519201,1449606,42002,928469,996400,29996,447203,37935,1914799,1297866,1787072,972407,1309873,559072,1361730,848352,419339,948395,2328134,1024264,932536,1409735,2264270,1814936,335334);
var mac = new Array(3.273,138.24,48.31,52.43,104,82.5,239,273.2,187,87,55,217,14,230,106,308,241,80,141,153,181,10,46,121,316,129,6,65,48,288,340,235,205,134,322,190,149,222,149,352,282,57,115,16,57);
var mha = new Array(0.950725,0.051820,0.009530,0.007842,0.002824,0.000858,0.000531,0.000400,0.000319,0.000271,0.000263,0.000197,0.000173,0.000167,0.000111,0.000103,0.000084,0.000083,0.000078,0.000073,0.000064,0.000063,0.000041,0.000034,0.000033,0.000031,0.000030,0.000029,0.000026,0.000023,0.000019,0.000013,0.000013,0.000013,0.000012,0.000011,0.000011,0.000010,0.000009,0.000007,0.000007,0.000006,0.000006,0.000005);
var mhb = new Array(0,477198.868,413335.35,890534.22,954397.74,1367733.1,854535.2,377336.3,441199.8,445267,513198,489205,1431597,1303870,35999,826671,63864,926533,1844932,1781068,1331734,449334,481266,918399,541062,922466,75870,990397,818536,553069,1267871,1403732,341337,2258267,2258267,1908795,858602,1745069,790672,2322131,1808933,485333,99863,405201);
var mhc = new Array(0,134.963,100.74,235.7,269.93,10.7,238.2,103.2,137.4,118,312,232,45,336,178,201,214,53,146,111,13,278,295,272,349,253,131,87,241,266,339,188,106,246,246,180,219,114,204,281,148,276,212,140);
d2r = Math.PI / 180.0;
function MoonLong(T)
{
var kaku,i,ans;
T /= 36525.0;
ans = 0.0;
for (i = 62; i >= 1 ; i--)
{
kaku = (mlb[i] * T + mlc[i]) * d2r;
ans += mla[i] * Math.cos(kaku);
}
kaku = (mlb[0] * T + mlc[0] * d2r);
ans += mla[0] * T * Math.cos(kaku);
ans = ans - Math.floor(ans / 360.0) * 360.0;
return ans;
}
function MoonLat(T)
{
var kaku,i,ans;
T /= 36525.0;
ans = 0.0;
for (i = 44; i >= 0 ; i--)
{
kaku = (mab[i] * T + mac[i]) * d2r;
ans += maa[i] * Math.cos(kaku);
}
return ans;
}
function MoonHP(T)
{
var kaku,i,ans;
T /= 36525.0;
ans = 0.0;
for (i = 43; i >= 0 ; i--)
{
kaku = (mhb[i] * T + mhc[i]) * d2r;
ans += mha[i] * Math.cos(kaku);
}
return ans;
}
function GetMoonAge(yy,mm,dd)
{
var T,dm,a0,a1;
T = Ymd2Jd(yy,mm,dd) - Ymd2Jd(2000,1,1.5);
a1 = MoonLong(T) - SunLong(T);
if (a1 < 0.0) a1 += 360.0;
dm = Math.floor(a1 / 13.5) - 1;
a1 = 999;
for (;;)
{
a0 = MoonLong(T - dm) - SunLong(T - dm);
if (a0 < 0.0) a0 += 360.0;
if (a0 > a1) break;
a1 = a0;
dm++;
}
a0 -= 360.0;
dm += a0 / (a1 - a0);
return dm;
}
function GetMoonImg(yy,mm,dd,Flag)
{
var fileName = "";
var T,a1,NowAge;
T = Ymd2Jd(yy,mm,dd) - Ymd2Jd(2000,1,1.5);
a1 = MoonLong(T) - SunLong(T);
if (a1 < 0.0) a1 += 360.0;
NowAge = Math.floor(a1 / 12.0 + 1.0);
if (NowAge > 30) NowAge = 30;
if (Flag == 0) fileName = 'moon';
else fileName = 'bmoon';
fileName = 'img/moonage/' + fileName;
if (NowAge < 10) fileName = fileName + '0';
fileName = fileName + NowAge + '.gif';
return fileName;
}
function GetMoonAgeImg(NowAge,Flag)
{
var fileName = "";
NowAge = (Math.floor(NowAge + 0.5) % 30) + 1;
if (Flag == 0) fileName = 'moon';
else fileName = 'bmoon';
fileName = 'img/moonage/' + fileName;
if (NowAge < 10) fileName = fileName + '0';
fileName = fileName + NowAge + '.gif';
return fileName;
}
// cyouseki.js
var TideName = new Array('大','大','大','中','中','中','中','小','小','小','長','若','中','中','大','大','大','大','中','中','中','中','小','小','小','長','若','中','中','大');
var TideL = new Array(36,72,108,120,132,168,216,252,288,300,312,348,365);
var TideNameL = new Array('大','中','小','長','若','中','大','中','小','長','若','中','大');
function GetTideName(MAge)
{
var ma;
ma = Math.floor(MAge);
ma = ma % 30;
return TideName[ma] + '潮';
}
function NewTideName(pm1,n) {
if (n <= 1) return GetTideName(pm1);
if (n == 2) return GetTideNameL(pm1,0);
if (n == 3) return GetTideNameL(pm1,5);
return 'Error NewTideName(n=' + n + ')';
}
function GetTideNameL(lng,lngofs)
{
var i;
lng = (lng / 360) - Math.floor(lng / 360);
lng *= 360;
for (i = 0; i < TideL.length ; i++) {
if (TideL[i]-lngofs > lng) return TideNameL[i] + '潮';
}
return 'Error TideNameLSB';
}
// kanshi.js
var KSYofs = 56;
var KSMofs = 13;
var KSDofs = 50;
var SukuDofs = 12;
var Kan = new Array("甲","乙","丙","丁","戊","己","庚","辛","壬","癸");
var Shi = new Array("子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥");
var Kan2=new Array("木の兄","木の弟","火の兄","火の弟","土の兄","土の弟","金の兄","金の弟","水の兄","水の弟");
var Rokuyou = new Array("先勝","友引","先負","仏滅","大安","赤口");
var OldMonth = new Array("睦月","如月","弥生","卯月","皐月","水無月","文月","葉月","長月","神無月","霜月","師走");
var Sukuyou = new Array('角','亢','氏','房','心','尾','箕','斗','牛','女','虚','危','室','壁','奎','婁','胃','昴','畢','觜','参','井','鬼','柳','星','張','翼','軫');
var Sukuyou2 = new Array('かく','こう','てい','ぼう','しん','び','き','と','ぎゅう','じょ','きょ','き','しつ','へき','けい','ろう','い','ぼう','ひつ','し','しん','せい','き','りゅう','せい','ちょう','よく','しん');
var Suku27ofs = new Array(11,13,15,17,19,21,24,27,2,4,7,9);
function GetOldMonthName(n)
{
if ((n < 1) || (n > 12)) return "";
else return OldMonth[n - 1];
}
function GetKanY(yy)
{
var k;
k = (yy + KSYofs) % 10;
return Kan[k];
}
function GetKan2Y(yy)
{
var k;
k = (yy + KSYofs) % 10;
return Kan2[k];
}
function GetShiY(yy)
{
var s;
s = (yy + KSYofs) % 12;
return Shi[s];
}
function GetKanM(yy,mm)
{
var k;
k = (yy * 12 + mm + KSMofs) % 10;
return Kan[k];
}
function GetKanM2(yy,mm)
{
var k;
k = (yy * 12 + mm + KSMofs) % 10;
return Kan2[k];
}
function GetShiM(yy,mm)
{
var k;
k = (yy * 12 + mm + KSMofs) % 12;
return Shi[k];
}
function GetKanD(dd)
{
var k;
k = (dd + KSDofs) % 10;
return Kan[k];
}
function GetKan2D(dd)
{
var k;
k = (dd + KSDofs) % 10;
return Kan2[k];
}
function GetShiD(dd)
{
var s;
s = (dd + KSDofs) % 12;
return Shi[s];
}
function GetSukuD(dd)
{
var s;
s = (dd + SukuDofs) % 28;
return Sukuyou[s];
}
function GetSuku2D(dd)
{
var s;
s = (dd + SukuDofs) % 28;
return Sukuyou2[s];
}
function GetSuku27D(om,od)
{
var s;
s = Suku27ofs[om-1];
s = (od - 1 + s) % 27;
if (s >= 8) { s++; }
return Sukuyou[s];
}
function GetSuku272D(om,od)
{
var s;
s = Suku27ofs[om-1];
s = (od - 1 + s) % 27;
if (s >= 8) { s++; }
return Sukuyou2[s];
}
function Get6you(omm,odd)
{
var k;
k = (omm + odd + 4) % 6;
return Rokuyou[k];
}
// hana_all.js
var Himg = new Array(74);
var Hname = new Array(74);
var Hword = new Array(74);
Himg[0] = 'rabender.jpg';
Hname[0] = 'ラベンダー';
Hword[0] = '沈黙・疑惑・私にこたえてください';
Himg[1] = 'fuji.jpg';
Hname[1] = 'ふじ（藤）';
Hword[1] = 'あなたを歓迎します';
Himg[2] = 'himawari.jpg';
Hname[2] = 'ひまわり（向日葵）';
Hword[2] = '愛慕・あなたを見つめる';
Himg[3] = 'suzuran.jpg';
Hname[3] = 'すずらん（鈴蘭）';
Hword[3] = '純愛・純潔・幸せが訪れる';
Himg[4] = 'ajisai.jpg';
Hname[4] = 'あじさい（紫陽花）';
Hword[4] = '移り気・無情・あなたは冷たい';
Himg[5] = 'suiren.jpg';
Hname[5] = 'すいれん（睡蓮）';
Hword[5] = '純真・清浄';
Himg[6] = 'kuchinashi.jpg';
Hname[6] = 'くちなし（山梔子）';
Hword[6] = '私は幸せです';
Himg[7] = 'ayame.jpg';
Hname[7] = 'あやめ';
Hword[7] = '神秘な人・よい便り';
Himg[8] = 'asagao.jpg';
Hname[8] = 'あさがお（朝顔）';
Hword[8] = 'はかない恋・固い約束';
Himg[9] = 'nanohana.jpg';
Hname[9] = 'なのはな（菜の花）';
Hword[9] = '快活';
Himg[10] = 'nazuna.jpg';
Hname[10] = 'なずな（薺）';
Hword[10] = 'すべてをあなたに捧げます';
Himg[11] = 'tanpopo.jpg';
Hname[11] = 'たんぽぽ（蒲公英）';
Hword[11] = '思わせぶり・別離・軽率';
Himg[12] = 'sumire.jpg';
Hname[12] = 'すみれ（菫）';
Hword[12] = '誠実・愛・純潔';
Himg[13] = 'sakura.jpg';
Hname[13] = 'さくら（桜）';
Hword[13] = '優れた美人・精神美';
Himg[14] = 'syunran.jpg';
Hname[14] = 'しゅんらん（春蘭）';
Hword[14] = '飾らない心・素朴';
Himg[15] = 'shirotsumekusa.jpg';
Hname[15] = 'クローバー';
Hword[15] = '約束・私を思ってください・（四葉）幸運';
Himg[16] = 'erika.jpg';
Hname[16] = 'エリカ';
Hword[16] = '孤独・裏切り';
Himg[17] = 'botan.jpg';
Hname[17] = 'ぼたん（牡丹）';
Hword[17] = '恥じらい・富貴';
Himg[18] = 'poinsechia.jpg';
Hname[18] = 'ポインセチア';
Hword[18] = '祝福・私の心は燃えている';
Himg[19] = 'hiiragi.jpg';
Hname[19] = 'ひいらぎ（柊）';
Hword[19] = '先見・用心';
Himg[20] = 'tsubaki.jpg';
Hname[20] = 'つばき（椿）';
Hword[20] = '（赤）慎み深い・（白）すばらしい魅力';
Himg[21] = 'shikuramen.jpg';
Hname[21] = 'シクラメン';
Hword[21] = '嫉妬・内気・はにかみ';
Himg[22] = 'sazanka.jpg';
Hname[22] = 'さざんか（山茶花）';
Hword[22] = '理想の恋';
Himg[23] = 'ume.jpg';
Hname[23] = 'うめ（梅）';
Hword[23] = '高潔・忠実';
Himg[24] = 'rindou.jpg';
Hname[24] = 'りんどう（竜胆）';
Hword[24] = '悲しんでいるときのあなたが好き';
Himg[25] = 'hagi.jpg';
Hname[25] = 'はぎ（萩）';
Hword[25] = '想い・思案・内気';
Himg[26] = 'nadeshiko.jpg';
Hname[26] = 'なでしこ（撫子）';
Hword[26] = '純愛・才能・無邪気';
Himg[27] = 'matsuyoigusa.jpg';
Hname[27] = 'まつよいぐさ（待宵草）';
Hword[27] = '移ろいやすさ・浴後の美人';
Himg[28] = 'kosumosu.jpg';
Hname[28] = 'コスモス';
Hword[28] = '調和・真心・少女の愛情・野生美';
Himg[29] = 'kikyo.jpg';
Hname[29] = 'ききょう（桔梗）';
Hword[29] = '変わらぬ愛・誠実・従順';
Himg[30] = 'maagaretto.jpg';
Hname[30] = 'マーガレット';
Hword[30] = '予言・真実の愛・恋占い';
Himg[31] = 'kaaneesyon.jpg';
Hname[31] = 'カーネーション';
Hword[31] = '（白）私の愛は生きています・（赤）母の愛・（紋）愛の拒絶';
Himg[32] = 'fuyo.jpg';
Hname[32] = 'ふよう（芙蓉）';
Hword[32] = '繊細な美・しとやかな恋人';
Himg[33] = 'higanbana.jpg';
Hname[33] = 'ひがんばな（彼岸花）';
Hword[33] = '悲しい思い出';
Himg[34] = 'kinmokusei.jpg';
Hname[34] = 'きんもくせい（金木犀）';
Hword[34] = 'あなたは高潔です';
Himg[35] = 'tsuwabuki.jpg';
Hname[35] = 'つわぶき（石蕗）';
Hword[35] = '謙譲';
Himg[36] = 'x_rose.jpg';
Hname[36] = 'クリスマスローズ';
Hword[36] = '追憶、私の心を慰めて';
Himg[37] = 'boke.jpg';
Hname[37] = 'ぼけ（木瓜）';
Hword[37] = '平凡、早熟';
Himg[38] = 'mokuren.jpg';
Hname[38] = 'もくれん（木蓮）';
Hword[38] = '自然への愛';
Himg[39] = 'momo.jpg';
Hname[39] = 'もも（桃）';
Hword[39] = 'あなたのとりこ、気だてのよい娘';
Himg[40] = 'kusaichigo.jpg';
Hname[40] = 'いちご（苺）';
Hword[40] = '幸福な家庭・先見・無邪気';
Himg[41] = 'nichinichisou.jpg';
Hname[41] = 'にちにちそう（日日草）';
Hword[41] = '楽しい思い出';
Himg[42] = 'saineria.jpg';
Hname[42] = 'サイネリア（富貴菊）';
Hword[42] = '快活';
Himg[43] = 'katabami.jpg';
Hname[43] = 'かたばみ（酢漿草 [写真はムラサキカタバミ]）';
Hword[43] = '輝くこころ';
Himg[44] = 'kiri.jpg';
Hname[44] = 'きり（桐）';
Hword[44] = '高尚';
Himg[45] = 'tsutsuji.jpg';
Hname[45] = 'つつじ（躑躅）';
Hword[45] = '節制';
Himg[46] = 'kisyoubu.jpg';
Hname[46] = 'きしょうぶ（黄菖蒲）';
Hword[46] = '消息・便り';
Himg[47] = 'hirugao.jpg';
Hname[47] = 'ひるがお（昼顔）';
Hword[47] = '絆・友達のよしみ';
Himg[48] = 'mukuge.jpg';
Hname[48] = 'むくげ（木槿）';
Hword[48] = '繊細な美・信念';
Himg[49] = 'teikakazura.jpg';
Hname[49] = 'ていかかずら（定家葛）';
Hword[49] = '優雅';
Himg[50] = 'ominaeshi.jpg';
Hname[50] = 'おみなえし（女郎花）';
Hword[50] = '親切・美人・はかない恋い';
Himg[51] = 'otokoeshi.jpg';
Hname[51] = 'おとこえし（男郎花）';
Hword[51] = '野性味・生命力';
Himg[52] = 'oniyuri.jpg';
Hname[52] = 'おにゆり（鬼百合）';
Hword[52] = '華麗・陽気・富と誇り';
Himg[53] = 'gurajiorasu.jpg';
Hname[53] = 'グラジオラス';
Hword[53] = '雄弁';
Himg[54] = 'sarusuberi.jpg';
Hname[54] = 'さるすべり（百日紅）';
Hword[54] = '慎重な愛';
Himg[55] = 'yomena.jpg';
Hname[55] = 'よめな（嫁菜）';
Hword[55] = '可憐・隠れた美しさ';
Himg[56] = 'susuki.jpg';
Hname[56] = 'すすき（薄）';
Hword[56] = '勢力・活力';
Himg[57] = 'kuzu.jpg';
Hname[57] = 'くず（葛）';
Hword[57] = '成長・喜び・治療';
Himg[58] = 'tachiaoi.jpg';
Hname[58] = 'たちあおい（立葵）';
Hword[58] = '大望・気高く威厳に満ちた美';
Himg[59] = 'kiku.jpg';
Hname[59] = 'きく（菊）';
Hword[59] = '高貴・高潔・高尚・深い愛';
Himg[60] = 'suisen.jpg';
Hname[60] = 'すいせん（水仙）';
Hword[60] = '自己愛・花は美しい';
Himg[61] = 'biwa.jpg';
Hname[61] = 'びわ（枇杷）';
Hword[61] = '告白';
Himg[62] = 'waremoko.jpg';
Hname[62] = 'われもこう（吾亦紅）';
Hword[62] = '変化';
Himg[63] = 'fujibakama.jpg';
Hname[63] = 'ふじばかま（藤袴）';
Hword[63] = 'ためらい';
Himg[64] = 'cyuurippu.jpg';
Hname[64] = 'チューリップ';
Hword[64] = '恋の告白・真面目な愛';
Himg[65] = 'jincyouge.jpg';
Hname[65] = 'じんちょうげ（沈丁花）';
Hword[65] = '栄光・不滅';
Himg[66] = 'mimoza.jpg';
Hname[66] = 'ミモザアカシア';
Hword[66] = '豊かな感受性・秘密の愛';
Himg[67] = 'rose.jpg';
Hname[67] = 'バラ（薔薇）';
Hword[67] = '（赤）愛情・（白）純潔・（黄）嫉妬・（ピンク）一時の情熱';
Himg[68] = 'agapansasu.jpg';
Hname[68] = 'アガパンサス';
Hword[68] = '恋の訪れ・愛の便り';
Himg[69] = 'akebi.jpg';
Hname[69] = 'あけび（通草）';
Hword[69] = '才能・楽しい発見';
Himg[70] = 'zakuro.jpg';
Hname[70] = 'ざくろ（石榴）';
Hword[70] = '再生・希望・成熟した優美';
Himg[71] = 'rantana.jpg';
Hname[71] = 'ランタナ（七変化草）';
Hword[71] = '厳格';
Himg[72] = 'nanten.jpg';
Hname[72] = 'なんてん（南天）';
Hword[72] = '深すぎる愛';
Himg[73] = 'icyou.jpg';
Hname[73] = 'イチョウ（銀杏・公孫樹）';
Hword[73] = '荘厳・静寂・長寿・鎮魂';
// -->
