Как вычислить даты «подходящих ночей просмотра», когда «достаточно темно» для астрономии, используя Wolfram-Language? - PullRequest
Новая
       51

Как вычислить даты «подходящих ночей просмотра», когда «достаточно темно» для астрономии, используя Wolfram-Language?

1 голос
/ 23 мая 2019

Я пытаюсь обернуть голову вокруг языка Wolfram Language (у меня нет опыта работы с Mathematica).

Я отмечаю, что «у него есть» знания об «астрономии». Поэтому мне интересно, смогу ли я вычислить следующее: 

tell me the dates and start/finish times of 'dark, socially friendly viewing opportunities during school holidays' where
* 'socially friendly' means between after 10am and before 10:30pm in local time at my vantage point
* it is 'dark' for at least an hour
* where 'dark' means:
  * it's between astronomical sunset and astronomical dawn
  * the moon is either not risen, or less than 15% of its face is lit
* 'school holidays' means school holidays in NSW, Australia, in 2019 (which Wolfram Alpha doesn't 'implicitly know')

put such dates and times as events into my Google Calendar somehow :-)

Решение этой проблемы с игрушкой помогло бы мне оценить «подход» к решению проблем на этой платформе, и, похоже, он учитывает сильные стороны системы Wolfram. Плюс, это сэкономило бы мне час или два каждый год на поиск вещей: -)

Как бы я подошел к этому в «программе» на языке Wolfram Language (уравнение?)? Могу ли я сделать это в Wolfram-Alpha или мне нужно получить Engine?

1 Ответ

0 голосов
/ 14 июля 2019

Не полный ответ на ваш вопрос. Просто отправная точка. 

tz = Entity["TimeZone", "Australia/Sydney"];
date = DateObject[{2019, 07, 14}, TimeZone -> tz];

Sunrise[Entity["City", {"Sydney", "NewSouthWales", "Australia"}], date, TimeZone -> tz]

enter image description here

Аналогично для Sunset. 

sunset = Sunset[
  Entity["City", {"Sydney", "NewSouthWales", "Australia"}], 
  DateObject[{2019, 07, 14}, TimeZone -> tz], TimeZone -> tz]

Вы можете прибавить / вычесть 2 или 3 часа из результата, чтобы получить «астрономическое» значение.

Фаза луны 

MoonPhase[date]
(* 0.8913 *)

MoonPhase[date, "Name"]["Name"]
(* waxing gibbous moon *)

Положение Луны на закате 

MoonPosition[Entity["City", {"Sydney", "NewSouthWales", "Australia"}], sunset]
(* {98.67\[Degree],25.03\[Degree]} *)

Взгляните на это видео для обзора астрономических и космических данных об объектах в WL.

...