SciAstro<\![CDATA[
Žvaigždynas
Rodyti ne 3000, o 9000 žvaigždžių (truks ilgiau) If[ $$s3 === "on", "checked=\"checked\" "]>
Needs["Astronomer`HomeSite`"];
If[$$s3==="on",
Needs["Astronomer`Star9000`"],
Needs["Astronomer`Star3000`"]
];
problemListLot={
Andromedae,Doradus,Arae,Arietis,Columbae,Ceti,Comae Berenices,Velorum,Cephei,
Chamaeleontis,Delphini,Lacertae,Geminorum,Aquilae,Eridani,Phoenicis,Gruis,Serpentis,Ophiuchi,
"Ursae Majoris","Ursae Minoris",Cygni,Herculis,Hydrae,Indi,Bootis,Normae,Cassiopeiae,Centauri,
Carinae,Leporis,Pyxidis,Crucis,Fornacis,Horologii,Puppis,Vulpeculae,Leonis,Leonis Minoris,
Lyrae,Lyncis,Virginis,Microscopii,Muscae,Octantis, Orionis,Capricorni,Pegasi,Persei,
Hydri,Trianguli Australis,Coronae Australis,Piscis Austrini,Pavonis,Apodis,Sextantis,Antliae,Canum Venaticorum,Caeli,
Scuti,Scorpii,Volantis,Circini,Sculptoris,Draconis,Mensae,Sagittae,Librae,Sagittarii,Coronae Borealis,Canis Minoris,
Canis Majoris,Pictoris,Tauri,Crateris,Telescopii,Reticuli,Trianguli,
Tucanae,Aquarii,Corvi,Cancri,Aurigae,Monocerotis,Lupi,Camelopardalis, Equulei,Piscium};
problemListEN = {Andromeda, Dorado, Ara, Aries, Columba, Cetus, ComaBerenices,
Vela, Cepheus, Chamaeleon, Delphinus, Lacerta, Gemini, Aquila,
Eridanus, Phoenix, Grus, Serpens, Ophiuchus, UrsaMajor, UrsaMinor,
Cygnus, Hercules, Hydra, Indus, Bootes, Norma, Cassiopeia, Centaurus,
Carina, Lepus, Pyxis, Crux, Fornax, Horologium, Puppis, Vulpecula, Leo,
Leo Minor, Lyra, Lynx, Virgo, Microscopium, Musca, Octans, Orion,
Capricornus, Pegasus, Perseus, Hydrus, TriangulumAustrale,
CoronaAustralis, PiscisAustrinus, Pavo, Apus, Sextans, Antlia,
CanesVenatici, Caelum, Scutum, Scorpius, Volans, Circinus, Sculptor,
Draco, Mensa, Sagitta, Libra, Sagittarius, CoronaBorealis, CanisMinor,
CanisMajor, Pictor, Taurus, Crater, Telescopium, Reticulum, Triangulum,
Tucana, Aquarius, Corvus, Cancer, Auriga, Monoceros, Lupus,
Camelopardalis, Equuleus, Pisces};
problemListENFormat = {Andromeda, Dorado, Ara, Aries, Columba, Cetus, Coma Berenices,
Vela, Cepheus, Chamaeleon, Delphinus, Lacerta, Gemini, Aquila,
Eridanus, Phoenix, Grus, Serpens, Ophiuchus, "Ursa Major", "Ursa Minor",
Cygnus, Hercules, Hydra, Indus, Bootes, Norma, Cassiopeia, Centaurus,
Carina, Lepus, Pyxis, Crux, Fornax, Horologium, Puppis, Vulpecula, Leo,
Leo Minor, Lyra, Lynx, Virgo, Microscopium, Musca, Octans, Orion,
Capricornus, Pegasus, Perseus, Hydrus, Triangulum Australe,
Corona Australis, Piscis Austrinus, Pavo, Apus, Sextans, Antlia,
Canes Venatici, Caelum, Scutum, Scorpius, Volans, Circinus, Sculptor,
Draco, Mensa, Sagitta, Libra, Sagittarius, Corona Borealis, Canis Minor,
Canis Major, Pictor, Taurus, Crater, Telescopium, Reticulum, Triangulum,
Tucana, Aquarius, Corvus, Cancer, Auriga, Monoceros, Lupus,
Camelopardalis, Equuleus, Pisces};
problemListAbbr = {And, Dor, Ara, Ari, Col, Cet, Com, Vel, Cep, Cha, Del, Lac,
Gem, Aql, Eri, Phe, Gru, Ser, Oph, UMa, UMi, Cyg, Her, Hya, Ind, Boo,
Nor, Cas, Cen, Car, Lep, Pyx, Cru, For, Hor, Pup, Vul, Leo, LMi, Lyr,
Lyn, Vir, Mic, Mus, Oct, Ori, Cap, Peg, Per, Hyi, Tra, CrA, PsA, Pav,
Aps, Sex, Ant, CVn, Cae, Sct, Sco, Vol, Cir, Scl, Dra, Men, Sge, Lib,
Sgr, CrB, CMi, CMa, Pic, Tau, Crt, Tel, Ret, Tri, Tuc, Aqr, Crv, Cnc,
Aur, Mon, Lup, Cam, Equ, Psc};
problemListLT = {"Andromeda","Auksin\:0117 \:017Duvis","Aukuras","Avinas","Balandis","Banginis",
"Berenik\:0117s Garbanos","Bur\:0117s","Cef\:0117jas","Chameleonas","Delfinas","Drie\:017Eas","Dvyniai",
"Erelis","Eridanas","Feniksas","Gerv\:0117 ","Gyvat\:0117 ","Gyvatne\:0161is","Gr\:012F\:017Eulo Ratai","Gr\:012F\:017Eulo Rateliai",
"Gulb\:0117 ","Heraklis","Hidra","Ind\:0117nas","Jau\:010Diaganis","Kampainis","Kasiop\:0117ja","Kentauras","Kilis","Ki\:0161kis",
"Kompasas","Kry\:017Eius","Krosnis","Laikrodis","Laivagalis","Laput\:0117","Li\:016Btas","Li\:016Btukas","Lyra",
"L\:016B\:0161is","Mergel\:0117","Mikroskopas","Mus\:0117","Oktantas","Orionas","O\:017Eiaragis","Pegasas","Pers\:0117jas",
"Pietin\:0117 Hidra","Pietinis Trikampis","Pietinis Vainikas","Pietin\:0117 \:017Duvis","Povas","Rojaus Pauk\:0161tis",
"Sekstantas","Siurblys","Skalikai","Skaptukas","Skydas","Skorpionas","Skraidan\:010Dioji \:017Duvis",
"Skriestuvas","Skulptorius","Slibinas","Stalkalnis","Str\:0117l\:0117","Svarstykl\:0117s","\:0160aulys","\0160iaur\:0117s Vainikas",
"\:0160unelis","\:0160uo","Tapytojas","Tauras","Taur\:0117","Teleskopas","Tinklelis","Trikampis","Tukana",
"Vandenis","Varnas","V\:0117\:017Eys","Ve\:017E\:0117jas","Vienaragis","Vilkas","\:017Dirafa","\:017Dirgelis","\:017Duvys"};
problemListLTUnicode = {Andromeda,Auksinė Žuvis,Aukuras,Avinas,Balandis,Banginis,
Berenikės Garbanos,Burės,Cefėjas,Chameleonas,Delfinas,Driežas,Dvyniai,
Erelis,Eridanas,Feniksas,Gervė,Gyvatė,Gyvatnešis,"Grįžulo Ratai",Grįžulo Rateliai,
Gulbė,Heraklis,Hidra,Indėnas,Jaučiaganis,Kampainis,Kasiopėja,Kentauras,Kilis,Kiškis,
Kompasas,Kryžius,Krosnis,Laikrodis,Laivagalis,Laputė,Liūtas,Liūtukas,Lyra,
Lūšis,Mergelė,Mikroskopas,Musė,Oktantas,Orionas,Ožiaragis,Pegasas,Persėjas,
Pietinė Hidra,Pietinis Trikampis,Pietinis Vainikas,Pietinė Žuvis,Povas,Rojaus Paukštis,
Sekstantas,Siurblys,Skalikai,Skaptukas,Skydas,Skorpionas,Skraidančioji Žuvis,
Skriestuvas,Skulptorius,Slibinas,Stalkalnis,Strėlė,Svarstyklės,Šaulys,Šiaurės Vainikas,
Šunelis,Šuo,Tapytojas,Tauras,Taurė,Teleskopas,Tinklelis,Trikampis,Tukana,
Vandenis,Varnas,Vėžys,Vežėjas,Vienaragis,Vilkas,Žirafa,Žirgelis,Žuvys};
If[MSPValueQ[$$problemSelected],
problemNumber = MSPToExpression[$$problemSelected];
problemLT = Part[problemListLT,problemNumber];
problemLTUnicode = Part[problemListLTUnicode,problemNumber];
problemEN=Part[problemListEN,problemNumber];
problemENFormat=Part[problemListENFormat,problemNumber];
problemAbbr=Part[problemListAbbr,problemNumber];
problemLot = Part[problemListLot,problemNumber];
problem = Part[problemListLT,problemNumber],
problemNumber=20;
problemLT = Part[problemListLT,problemNumber];
problemLTUnicode = Part[problemListLTUnicode,problemNumber];
problemEN=Part[problemListEN,problemNumber];
problemENFormat=Part[problemListENFormat,problemNumber];
problemAbbr=Part[problemListAbbr,problemNumber];
problemLot = Part[problemListLot,problemNumber];
problem = Part[problemListLT,problemNumber]
];
HTMLSelect[problemListLT, problemSelected, SelectedOptions -> problemLT]
MSPFormat[StyleForm[ToString[problemLTUnicode], FontSize -> 14,
FontWeight -> "Bold",CharacterEncoding->"UTF8"],OutputForm]
Lotyniškas pavadinimas:
ToString[problemLot]
Santrumpa:
ToString[problemAbbr]
Vaizdavimo parinktys 1, ImageSize -> 360}"]" >
MSPBlock[ {$$pagalbinesParinktys},
pic=StarChart[problemEN,MilkyWay->True,StarColors->True,ConstellationLabels -> True,Epilog->{RGBColor[1,1,1],StarNames[problemEN]},
Sequence@@Flatten[{$$pagalbinesParinktys}],DisplayFunction->Identity];
MSPShow[Show[pic,DisplayFunction->$DisplayFunction]]]
]]>
kon7 submitas Vykdyti
