Nothing
`constel` <-
function (x)
{
`constel.bound` <-
structure(list(ra.l = c(0, 8, 21, 18, 0, 9.1667, 0, 10.6667,
17.5, 20.1667, 0, 11.5, 16.5333, 20.1667, 7.9667, 9.1667, 13,
3.1, 20.4167, 11.3333, 0, 14, 23.5833, 12, 13.5, 23.1667, 6.1,
20, 20.5367, 7, 7.9667, 19.7667, 20, 22.8667, 0, 19.4167, 1.7,
2.4333, 3.1, 22.3167, 5, 14.0333, 14.4167, 3.1667, 22.1333, 20.6,
0, 6.1, 12.0833, 15.25, 21.9667, 3.3333, 22.8667, 15.75, 2.0417,
17, 0, 1.3667, 6.5, 23.3333, 13.5, 0, 23.5833, 18.175, 18.2333,
19.0833, 1.6667, 8.4167, 0.1667, 12, 6.8, 21.9083, 21.875, 19.1667,
9.1667, 10.1667, 15.4333, 15.75, 9.25, 0, 2.5167, 19.3583, 4.5,
21.7333, 21.875, 6.5333, 7.3667, 0, 22, 22.8167, 22.8667, 2.5667,
10.7833, 12, 7.75, 9.25, 0.7167, 15.1833, 23.5, 12.3333, 23.75,
13.9583, 2.4167, 2.7167, 4.5, 18.175, 11, 19.6667, 4.75, 9.8833,
13.25, 0, 1.4083, 5.8833, 7.8833, 20.9167, 19.2583, 1.9167, 16.1667,
15.0833, 15.1833, 18.3667, 10.75, 18.8667, 1.6667, 0.7167, 10.5,
21.25, 5.7, 0.0667, 15.9167, 5.8833, 19.8333, 18.8667, 0.1417,
20.25, 7.8083, 20.5667, 19.25, 3.2833, 18.8667, 5.7, 6.2167,
19, 4.9667, 15.9167, 19.8333, 4.6167, 5.3333, 12.8333, 17.25,
11.8667, 7.5, 16.75, 0, 5.6, 7, 21.1167, 6.3083, 18.25, 20.875,
21.05, 11.5167, 6.2417, 6.9333, 7.8083, 23.8333, 1.6667, 20.1417,
13.5, 22.75, 7.925, 9.25, 18.25, 18.6622, 20.8333, 7, 18.25,
16.0833, 18.25, 21.4667, 0, 18.5833, 20.3, 20.8333, 21.3333,
22, 21.6667, 7.0167, 3.5833, 4.6167, 7.2, 14.6667, 17.8333, 2.65,
3.2833, 15.0833, 4.6667, 5.8333, 17.8333, 18.25, 18.5833, 22.75,
10.75, 11.5167, 0, 23.8333, 14.25, 15.9167, 20, 21.3333, 17.1667,
5.8333, 4.9167, 5.0833, 8.0833, 9.5833, 11.8333, 17.5833, 18.8667,
4.8333, 20.5333, 17.1667, 18.25, 8.3667, 16.2667, 8.5833, 10.75,
16.2667, 15.6667, 12.5833, 12.8333, 9.0833, 1.6667, 2.65, 10.8333,
11.8333, 14.25, 16.2667, 0, 21.3333, 21.8667, 23.8333, 9.75,
4.7, 4.8333, 20, 10.25, 12.5833, 14.9167, 15.6667, 4.5833, 16.75,
17.6, 10.5833, 6.1167, 12.25, 10.8333, 3.5, 8.3667, 4.2667, 17.8333,
21.3333, 23, 3, 9.3667, 0, 1.6667, 3.8667, 23.3333, 14.1667,
15.6667, 16, 4.8333, 5, 8, 3.4167, 16.4208, 17.8333, 19.1667,
20.3333, 3, 4.5, 15.3333, 0, 2.6667, 4.0833, 4.2667, 21.3333,
6, 8, 2.4167, 3.8333, 0, 6, 8.1667, 3.5, 3.8333, 0, 2.1667, 4.5,
15.05, 8.45, 6.1667, 11.8333, 14.1667, 15.05, 4, 8.8333, 11,
17.5, 18, 22, 3.2, 5, 6.5, 0, 1.3333, 23.3333, 4.3333, 15.3333,
20.3333, 5.5, 15.1667, 16.4208, 14.9167, 16.5833, 6, 6.8333,
11.25, 11.8333, 12.8333, 13.5, 16.75, 2.1667, 3.2, 14.75, 16.8333,
17.5, 22, 4.5833, 13.6667, 14.75, 0, 3.5, 6.5833, 9.0333, 11.25,
18, 21.3333, 23.3333, 0.75, 0, 7.6667, 13.6667, 3.5, 0), ra.u = c(24,
14.5, 23, 21, 8, 10.6667, 5, 14.5, 18, 21, 3.5083, 13.5833, 17.5,
20.6667, 9.1667, 11.3333, 16.5333, 3.4167, 20.6667, 12, 0.3333,
15.6667, 24, 13.5, 14.4167, 23.5833, 7, 20.4167, 20.6, 7.9667,
8.4167, 20, 20.5367, 23.1667, 2.4333, 19.7667, 1.9083, 3.1, 3.1667,
22.8667, 6.1, 14.4167, 19.4167, 3.3333, 22.3167, 21.9667, 1.7,
6.5, 13.5, 15.75, 22.1333, 5, 23.3333, 17, 2.5167, 18.2333, 1.3667,
1.6667, 6.8, 24, 14.0333, 1.1167, 24, 18.2333, 19.0833, 19.1667,
2.0417, 9.1667, 0.8667, 12.0833, 7.3667, 21.9667, 21.9083, 19.4,
10.1667, 10.7833, 15.75, 16.3333, 9.5833, 2.5167, 2.5667, 19.4,
4.6917, 21.875, 22, 7.3667, 7.75, 2, 22.8167, 22.8667, 23.5,
2.7167, 11, 12.3333, 9.25, 9.8833, 1.4083, 15.4333, 23.75, 13.25,
24, 14.0333, 2.7167, 4.5, 4.75, 19.3583, 12, 20.9167, 5.8833,
10.5, 13.9583, 0.0667, 1.6667, 6.5333, 8, 21.7333, 19.6667, 2.4167,
16.3333, 15.1833, 16.1667, 18.8667, 11, 19.2583, 1.9167, 0.85,
10.75, 21.4167, 5.8833, 0.1417, 16.0333, 6.2167, 20.25, 19.25,
0.85, 20.5667, 7.8833, 21.25, 19.8333, 3.3667, 19, 5.7667, 6.3083,
19.8333, 5.3333, 16.0833, 20.25, 4.9667, 5.6, 13.5, 18.25, 12.8333,
7.8083, 17.25, 0.1417, 5.7667, 7.5, 21.3333, 6.9333, 18.8667,
21.05, 21.1167, 11.8667, 6.3083, 7, 7.925, 24, 3.2833, 20.3,
15.0833, 23.8333, 9.25, 10.75, 18.6622, 18.8667, 20.875, 7.0167,
18.425, 16.75, 18.425, 21.6667, 2, 18.8667, 20.8333, 21.3333,
21.4667, 22.75, 22, 7.2, 4.6167, 4.6667, 8.0833, 15.0833, 18.25,
3.2833, 3.5833, 16.2667, 5.0833, 6.2417, 17.9667, 18.5833, 18.8667,
23.8333, 11.5167, 11.8333, 0.3333, 24, 14.6667, 16.2667, 20.5333,
21.8667, 17.9667, 8.0833, 5.0833, 5.8333, 8.3667, 10.75, 12.8333,
17.6667, 20, 4.9167, 21.3333, 18.25, 18.8667, 8.5833, 16.375,
9.0833, 10.8333, 16.375, 15.9167, 12.8333, 14.25, 9.75, 2.65,
3.75, 11.8333, 12.5833, 14.9167, 16.75, 1.6667, 21.8667, 23.8333,
24, 10.25, 4.8333, 6.1167, 21.3333, 10.5833, 14.9167, 15.6667,
16, 4.7, 17.6, 17.8333, 10.8333, 7.3667, 12.5833, 12.25, 3.75,
9.3667, 4.5833, 19.1667, 23, 23.3333, 3.5, 11, 1.6667, 3, 4.2667,
24, 14.9167, 16, 16.4208, 5, 6.5833, 8.3667, 3.8667, 17.8333,
19.1667, 20.3333, 21.3333, 3.4167, 4.8333, 15.6667, 2.3333, 3,
4.2667, 4.5, 22, 8, 8.1667, 2.6667, 4.0833, 1.8333, 6.1667, 8.45,
3.8333, 4, 1.5833, 2.4167, 5, 15.3333, 8.8333, 6.5, 12.8333,
15.05, 15.3333, 4.3333, 11, 11.25, 18, 20.3333, 23.3333, 3.5,
5.5, 6.8333, 1.3333, 2.1667, 24, 4.5833, 16.4208, 21.3333, 6,
15.3333, 16.5833, 15.1667, 16.75, 6.8333, 9.0333, 11.8333, 12.8333,
14.5333, 13.6667, 16.8333, 3.2, 4.5833, 14.9167, 17.5, 18, 23.3333,
6.5833, 14.75, 17, 1.3333, 4.5833, 9.0333, 11.25, 13.6667, 21.3333,
23.3333, 24, 1.3333, 3.5, 13.6667, 18, 7.6667, 24), d = c(88,
86.5, 86.1667, 86, 85, 82, 80, 80, 80, 80, 77, 77, 75, 75, 73.5,
73.5, 70, 68, 67, 66.5, 66, 66, 66, 64, 63, 63, 62, 61.5, 60.9167,
60, 60, 59.5, 59.5, 59.0833, 58.5, 58, 57.5, 57, 57, 56.25, 56,
55.5, 55.5, 55, 55, 54.8333, 54, 54, 53, 53, 52.75, 52.5, 52.5,
51.5, 50.5, 50.5, 50, 50, 50, 50, 48.5, 48, 48, 47.5, 47.5, 47.5,
47, 47, 46, 45, 44.5, 44, 43.75, 43.5, 42, 40, 40, 40, 39.75,
36.75, 36.75, 36.5, 36, 36, 36, 35.5, 35.5, 35, 35, 34.5, 34.5,
34, 34, 34, 33.5, 33.5, 33, 33, 32.0833, 32, 31.3333, 30.75,
30.6667, 30.6667, 30, 30, 29, 29, 28.5, 28.5, 28.5, 28, 28, 28,
28, 28, 27.5, 27.25, 27, 26, 26, 26, 25.5, 25.5, 25, 23.75, 23.5,
23.5, 22.8333, 22, 22, 21.5, 21.25, 21.0833, 21, 20.5, 20, 19.5,
19.1667, 19, 18.5, 18, 17.5, 16.1667, 16, 16, 15.75, 15.5, 15.5,
15, 14.3333, 14, 13.5, 12.8333, 12.5, 12.5, 12.5, 12.5, 12, 12,
11.8333, 11.8333, 11, 10, 10, 10, 10, 9.9167, 8.5, 8, 7.5, 7,
7, 6.25, 6.25, 6, 5.5, 4.5, 4, 3, 2.75, 2, 2, 2, 2, 2, 2, 1.75,
1.5, 0, 0, 0, 0, 0, -1.75, -1.75, -3.25, -4, -4, -4, -4, -4,
-4, -6, -6, -7, -7, -8, -8, -9, -9, -10, -11, -11, -11, -11,
-11, -11, -11.6667, -12.0333, -14.5, -15, -16, -16, -17, -18.25,
-19, -19, -19.25, -20, -22, -22, -24, -24.3833, -24.3833, -24.5,
-24.5, -24.5, -24.5833, -25.5, -25.5, -25.5, -25.5, -26.5, -27.25,
-27.25, -28, -29.1667, -29.5, -29.5, -29.5, -30, -30, -30, -31.1667,
-33, -33, -35, -36, -36.75, -37, -37, -37, -37, -39.5833, -39.75,
-40, -40, -40, -40, -42, -42, -42, -43, -43, -43, -44, -45.5,
-45.5, -45.5, -45.5, -46, -46.5, -48, -48.1667, -49, -49, -49,
-50, -50.75, -50.75, -51, -51, -51.5, -52.5, -53, -53.1667, -53.1667,
-53.5, -54, -54, -54, -54.5, -55, -55, -55, -55, -56.5, -56.5,
-56.5, -57, -57, -57, -57.5, -57.5, -58, -58.5, -58.5, -58.5,
-59, -60, -60, -61, -61, -61, -63.5833, -63.5833, -64, -64, -64,
-64, -64, -65, -65, -67.5, -67.5, -67.5, -67.5, -67.5, -67.5,
-70, -70, -70, -75, -75, -75, -75, -75, -75, -75, -75, -76, -82.5,
-82.5, -82.5, -85, -90), name = c("UMi", "UMi", "UMi", "UMi",
"Cep", "Cam", "Cep", "Cam", "UMi", "Dra", "Cep", "Cam", "UMi",
"Cep", "Cam", "Dra", "UMi", "Cas", "Dra", "Dra", "Cep", "UMi",
"Cep", "Dra", "Dra", "Cep", "Cam", "Dra", "Cep", "Cam", "UMa",
"Dra", "Cep", "Cep", "Cas", "Dra", "Cas", "Cas", "Cam", "Cep",
"Cam", "UMa", "Dra", "Cam", "Cep", "Cep", "Cas", "Lyn", "UMa",
"Dra", "Cep", "Cam", "Cas", "Dra", "Per", "Dra", "Cas", "Per",
"Lyn", "Cas", "UMa", "Cas", "Cas", "Her", "Dra", "Cyg", "Per",
"UMa", "Cas", "UMa", "Lyn", "Cyg", "Cyg", "Cyg", "UMa", "UMa",
"Boo", "Her", "Lyn", "And", "Per", "Lyr", "Per", "Cyg", "Lac",
"Aur", "Lyn", "And", "Lac", "Lac", "And", "Per", "UMa", "CVn",
"Lyn", "LMi", "And", "Boo", "And", "CVn", "And", "CVn", "Tri",
"Per", "Aur", "Lyr", "UMa", "Cyg", "Aur", "LMi", "CVn", "And",
"Tri", "Aur", "Gem", "Cyg", "Cyg", "Tri", "CrB", "Boo", "CrB",
"Lyr", "LMi", "Lyr", "Tri", "Psc", "LMi", "Vul", "Tau", "And",
"Ser", "Gem", "Vul", "Vul", "And", "Vul", "Gem", "Vul", "Vul",
"Ari", "Sge", "Ori", "Gem", "Sge", "Tau", "Her", "Sge", "Tau",
"Tau", "Com", "Her", "Com", "Gem", "Her", "Peg", "Tau", "Gem",
"Peg", "Gem", "Her", "Del", "Peg", "Leo", "Ori", "Gem", "Cnc",
"Peg", "Ari", "Del", "Boo", "Peg", "Cnc", "Leo", "Oph", "Aql",
"Del", "CMi", "Ser", "Her", "Oph", "Peg", "Psc", "Ser", "Del",
"Equ", "Peg", "Peg", "Peg", "CMi", "Tau", "Ori", "CMi", "Vir",
"Oph", "Cet", "Tau", "Ser", "Ori", "Ori", "Ser", "Ser", "Aql",
"Psc", "Leo", "Vir", "Psc", "Psc", "Vir", "Oph", "Aql", "Aqr",
"Oph", "Mon", "Eri", "Ori", "Hya", "Sex", "Vir", "Oph", "Aql",
"Eri", "Aqr", "Ser", "Sct", "Hya", "Oph", "Hya", "Crt", "Sco",
"Lib", "Crv", "Vir", "Hya", "Cet", "Eri", "Crt", "Crv", "Lib",
"Oph", "Cet", "Cap", "Aqr", "Cet", "Hya", "Eri", "Lep", "Cap",
"Hya", "Hya", "Lib", "Sco", "Eri", "Oph", "Sgr", "Hya", "CMa",
"Hya", "Hya", "For", "Pyx", "Eri", "Sgr", "PsA", "Scl", "For",
"Ant", "Scl", "For", "Eri", "Scl", "Cen", "Lup", "Sco", "Cae",
"Col", "Pup", "Eri", "Sco", "CrA", "Sgr", "Mic", "Eri", "Cae",
"Lup", "Phe", "Eri", "Hor", "Cae", "Gru", "Pup", "Vel", "Eri",
"Hor", "Phe", "Car", "Vel", "Hor", "Dor", "Phe", "Eri", "Pic",
"Lup", "Vel", "Car", "Cen", "Lup", "Nor", "Dor", "Vel", "Cen",
"Ara", "Tel", "Gru", "Hor", "Pic", "Car", "Phe", "Eri", "Phe",
"Dor", "Nor", "Ind", "Pic", "Cir", "Ara", "Cir", "Ara", "Pic",
"Car", "Cen", "Cru", "Cen", "Cir", "Ara", "Hor", "Ret", "Cir",
"Ara", "Pav", "Tuc", "Dor", "Cir", "TrA", "Tuc", "Hyi", "Vol",
"Car", "Mus", "Pav", "Ind", "Tuc", "Tuc", "Hyi", "Cha", "Aps",
"Men", "Oct")), .Names = c("ra.l", "ra.u", "d", "name"), class = "data.frame", row.names = c(NA,
-357L))
res=c();
for (i in 1:nrow(x)) {
dec = constel.bound$d < x[i,2];
low = constel.bound$ra.l < x[i,1];
hig = constel.bound$ra.u > x[i,1];
where = min(which(dec & low & hig));
res = c(res,where);
}
constel.bound$name[res];
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.