Message Boards Message Boards

Creating Declination and Right ascendance for my earth model

Posted 10 years ago

Hi everybody, I need help to create a Celestial sphere around my earth model. Or least to make that mathematica would understand the longitude and altitude and mark the object on my earth. I have created my earth model using RevolutionPlot3D by using wikicode earth package:

First@RevolutionPlot3D[{Sin@t, Cos@t}, {t, 0, Pi}, 
  PlotStyle -> {Texture@
     Import["earthpicture"]}, 
  TextureCoordinateFunction -> ({#5, 1 - #4} &), Mesh -> None, 
  PlotPoints -> 50]

Suggestions, hints and codes are welcome. Thank you very much.

POSTED BY: Marijus Kunickas

Conversion between celestial and horizontal coordinates is discussed in http://www.bogan.ca/astro/telescopes/coodcvtn.html

POSTED BY: S M Blinder
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract