Advanced Search
All Posts : Applications, Examples and Libraries

Star database

Christopher2222 5805 Maple
December 27 2015
3

Just a simple little proc that grabs and displays some simple data for general stars (I've only listed a couple for starters).  It wasn't till later that I realized it's not an up to date database as it doesn't contain more recent interesting stars like Kepler 452.  One would have to go to the SIMBAD astronomical database for which I have not yet devoted any time for .. at least not yet. 

StarData := proc (a::string) local b, c, d, e1, e2, e3; b := StringTools:-DeleteSpace(StringTools:-Substitute(a, " ", "+")); c := HTTP:-Get(cat("http://www.stellar-database.com/Scripts/search_star.exe?Name=", b)); d := convert(c[2], string); e1 := d[StringTools:-Search("<H1>", d)+4 .. StringTools:-Search("</H1>", d)-1]; e2 := d[StringTools:-Search("Right", d) .. StringTools:-Search("Standard error in distance", d)-8]; e3 := StringTools:-SubstituteAll(StringTools:-SubstituteAll(StringTools:-SubstituteAll(e2, "<BR>", ""), "<B>", ""), "</B>", ""); print(e1); print(e3) end proc:

StarData("Sun")

"Right Ascension and Declination: 0h0m0s, +0&deg;0'0" (epoch 2000.0) Distance from Sol: 0 light-years (0 parsecs) "

 (1)

StarData("Wolf 1061")

"Right Ascension and Declination: 16h30m18.097s, -12&deg;39'45.17" (epoch 2000.0) Distance from Sol: 13.91 light-years (4.264 parsecs) "

 (2)

StarData("Alpha Centauri")

"Right Ascension and Declination: 14h39m35.88s, -60&deg;50'7.4" (epoch 2000.0) Distance from Sol: 4.395 light-years (1.347 parsecs) "

 (3)

StarData("Sirius")

"Right Ascension and Declination: 6h45m8.871s, -16&deg;42'57.99" (epoch 2000.0) Distance from Sol: 8.601 light-years (2.637 parsecs) "

 (4)

````


Download StarData3.mw

 

 

 

 
proc star

Please Wait...