Not logged in : Login
(Sponging disallowed)

About: Comment on Visualizing Our Place in the Milky Way Galaxy with Mathematica by M. Lades     Goto   Sponge   NotDistinct   Permalink

An Entity of Type : sioc:Item, within Data Space : www.openlinksw.com associated with source document(s)
QRcode icon
http://www.openlinksw.com/describe/?url=http%3A%2F%2Fwww.openlinksw.com%2Fabout%2Fid%2Fentity%2Fhttp%2Fblog.wolfram.com%2F2013%2F08%2F21%2Fvisualizing-our-place-in-the-milky-way-galaxy-with-mathematica%2Fcomment-page-1%2F%23comment-29829

AttributesValues
content
has container
Creator
described by
link
content
  • Interesting article, especially as the Subaru telescope just delivered unmatched new pictures of Andromeda (http://www.subarutelescope.org).

    There is of course an example for a 3D field of galaxies in the examples for AstronomicalData:
    equatorialToCartesian[{ra_, dec_,
    dist_}] := {dist Cos[15 ra Degree] Sin[dec Degree + Pi/2],
    dist Sin[15 ra Degree] Sin[dec Degree + Pi/2],
    dist Cos[dec Degree + Pi/2]}
    galaxies = {AstronomicalData[#, "Name"],
    AstronomicalData[#, "RightAscension"],
    AstronomicalData[#, "Declination"],
    AstronomicalData[#, "DistanceLightYears"]} & /@
    AstronomicalData["LocalGroup"];
    Graphics3D[
    Cases[galaxies, {nam_, ra_?NumberQ, dec_?NumberQ, dist_?NumberQ} :>
    Tooltip[Sphere[equatorialToCartesian[{ra, dec, dist}],
    Scaled[0.009]], nam]]]

    It is very straightforward to use similar code for the surroundings of our Solar System. Question: Is this the most efficient code to query the curated data or do you have any suggestions to optimize it, e.g., for 1000 stars to show, possible in the correct color?

Description
  • Interesting article, especially as the Subaru telescope just delivered unmatched new pictures of Andromeda (http://www.subarutelescope.org). There is of course an example for a 3D field of galaxies in the examples for AstronomicalData: equatorialToCartesian[{ra_, dec_, dist_}] := {dist Cos[15 ra Degree] Sin[dec Degree + Pi/2], dist Sin[15 ra Degree] Sin[dec Degree + Pi/2], dist Cos[dec Degree + Pi/2]} galaxies = {AstronomicalData[#, "Name"], AstronomicalData[#, "RightAscension"], AstronomicalData[#, "Declination"], AstronomicalData[#, "DistanceLightYears"]} & /@ AstronomicalData["LocalGroup"]; Graphics3D[ Cases[galaxies, {nam_, ra_?NumberQ, dec_?NumberQ, dist_?NumberQ} :> Tooltip[Sphere[equatorialToCartesian[{ra, dec, dist}], Scaled[0.009]], nam]]] It is very straightforward to use similar code for the surroundings of our Solar System. Question: Is this the most efficient code to query the curated data or do you have any suggestions to optimize it, e.g., for 1000 stars to show, possible in the correct color?
Title
  • Comment on Visualizing Our Place in the Milky Way Galaxy with Mathematica by M. Lades
Link
Title
  • Comment on Visualizing Our Place in the Milky Way Galaxy with Mathematica by M. Lades
links to
type
is topic of
is made of
is container of of
Faceted Search & Find service v1.17_git122 as of Jan 03 2023


Alternative Linked Data Documents: iSPARQL | ODE     Content Formats:   [cxml] [csv]     RDF   [text] [turtle] [ld+json] [rdf+json] [rdf+xml]     ODATA   [atom+xml] [odata+json]     Microdata   [microdata+json] [html]    About   
This material is Open Knowledge   W3C Semantic Web Technology [RDF Data] Valid XHTML + RDFa
OpenLink Virtuoso version 08.03.3330 as of Apr 5 2024, on Linux (x86_64-generic-linux-glibc25), Single-Server Edition (30 GB total memory, 26 GB memory in use)
Data on this page belongs to its respective rights holders.
Virtuoso Faceted Browser Copyright © 2009-2024 OpenLink Software