RubyGems - when_exe - Versions diffs - 0.4.2 → 0.4.3 - Mend

when_exe 0.4.2 → 0.4.3

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (54) hide show

checksums.yaml +4 -4
data/README.md +24 -23
data/lib/when_exe/ephemeris/moon.rb +333 -333
data/lib/when_exe/linkeddata.rb +0 -1
data/lib/when_exe/locales/encoding_conversion.rb +134 -134
data/lib/when_exe/locales/iast.rb +90 -90
data/lib/when_exe/locales/transliteration_table.rb +62 -62
data/lib/when_exe/parts/method_cash.rb +224 -224
data/lib/when_exe/region/chinese/calendars.rb +1016 -1016
data/lib/when_exe/region/geologicalage.rb +1 -1
data/lib/when_exe/region/japanese/calendars.rb +397 -397
data/lib/when_exe/region/japanese/eclipses.rb +1194 -1194
data/lib/when_exe/region/japanese/nihon_shoki.rb +70 -70
data/lib/when_exe/region/korean.rb +384 -384
data/lib/when_exe/region/ryukyu.rb +101 -101
data/lib/when_exe/tmposition.rb +2 -2
data/lib/when_exe/tmreference.rb +3 -3
data/lib/when_exe/version.rb +1 -1
data/test/scripts/geometric_complex.rb +41 -41
data/test/scripts/korea.rb +59 -59
data/test/scripts/thai.rb +36 -36
data/test/test/basictypes.rb +431 -431
data/test/test/calendarnote.rb +86 -86
data/test/test/calendartypes.rb +97 -97
data/test/test/coordinates.rb +397 -397
data/test/test/ephemeris.rb +115 -115
data/test/test/ephemeris/moon.rb +14 -14
data/test/test/ephemeris/planets.rb +14 -14
data/test/test/ephemeris/sun.rb +14 -14
data/test/test/inspect.rb +153 -153
data/test/test/parts.rb +488 -488
data/test/test/region/armenian.rb +20 -20
data/test/test/region/bahai.rb +58 -58
data/test/test/region/balinese.rb +34 -34
data/test/test/region/chinese.rb +229 -229
data/test/test/region/christian.rb +226 -226
data/test/test/region/coptic.rb +27 -27
data/test/test/region/discordian.rb +20 -20
data/test/test/region/french.rb +33 -33
data/test/test/region/geologicalage.rb +17 -17
data/test/test/region/iran.rb +54 -54
data/test/test/region/islamic.rb +54 -54
data/test/test/region/japanese.rb +261 -261
data/test/test/region/jewish.rb +63 -63
data/test/test/region/shire.rb +58 -58
data/test/test/region/swedish.rb +45 -45
data/test/test/region/thai.rb +116 -116
data/test/test/region/tibetan.rb +30 -30
data/test/test/region/vietnamese.rb +102 -102
data/test/test/region/zoroastrian.rb +58 -58
data/test/test/timestandard.rb +81 -81
data/test/test/tmobjects.rb +402 -402
data/test/test/tmreference.rb +157 -157
metadata +4 -88

checksums.yaml CHANGED Viewed

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: b40bf07a801ef6ae19fa3821c5768cda89f95e7e
-  data.tar.gz: acafb3787334e8a37dca4d7429489b6d390ed17a
+  metadata.gz: 998dcc3b7edcecbaf257f25edffa72dd804c81d2
+  data.tar.gz: d1ef9fc9d2e5cfa7028686bcf95b1858d0b22377
 SHA512:
-  metadata.gz: c4be4641f8831f194acab492a26170ebe4f54fb00f5c98dd1dfc5982f88ea3bea077a6ce5778f5691f02a3b8d95e9538826191ebcd88235490d967a3a6efda44
-  data.tar.gz: e4d27604acb85c99db321ec99bfc04b456f99656439aecfcd9534e54ae6fb1e6ab844673a2b10d8369a3b0f18968bb9ffc6faa9be1136ffa202d360b559c462f
+  metadata.gz: d3edceec6df251506db82ff2369ecf1f2d906a757de0620e9b9f94ae649dfee4fd4fddfee4bc92ffbb7f6078ccea0e894bfe76e18d9cd9c9a7a685324e67b064
+  data.tar.gz: f3b89b561f445a9e35789840aed52acf217a78412fded5022dbb6df8687df963df721e60e72c301d210fcfd2f8de155e6db26c20b404cb33b85818750ffd3adb

data/README.md CHANGED Viewed

@@ -224,23 +224,24 @@ Example Usage
        # @prefix xsd: <http://www.w3.org/2001/XMLSchema> .
        #
        # <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge> a <http://hosi.org/ts/When/TM/OrdinalReferenceSystem>;
-       #    rdfs:member <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::冥王代>,
-       #      <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::始生代>,
-       #      <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::原生代>,
-       #      <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::顕生代> .
+       #    rdfs:member <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::Hadean>,
+       #      <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::Archean>,
+       #      <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::Proterozoic>,
+       #      <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::Phanerozoic> .
        #
-       # <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::冥王代> a <http://hosi.org/ts/When/TM/OrdinalEra>;
-       #    ts:begin "-4600000000";
-       #    ts:end "-4000000000";
-       #    ts:label <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::冥王代::冥王代> .
+       # <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::Archean> a <http://hosi.org/ts/When/TM/OrdinalEra>;
+       #    ts:begin "-4000000000";
+       #    ts:end "-2500000000";
+       #    ts:label <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::Archean::Archean>;
+       #    rdfs:member <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::Archean::Eoarchean>,
+       #      <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::Archean::Paleoarchean>,
+       #      <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::Archean::Mesoarchean>,
+       #      <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::Archean::Neoarchean> .
        #
-       # <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::原生代> a <http://hosi.org/ts/When/TM/OrdinalEra>;
-       #    ts:begin "-2500000000";
-       #    ts:end "-542000000";
-       #    ts:label <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::原生代::原生代>;
-       #    rdfs:member <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::原生代::前期>,
-       #      <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::原生代::中期>,
-       #      <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::原生代::後期> .
+       # <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::Archean::Eoarchean> a <http://hosi.org/ts/When/TM/OrdinalEra>;
+       #    ts:begin "-4000000000";
+       #    ts:end "-3600000000";
+       #    ts:label <http://hosi.org/When/TM/OrdinalReferenceSystem/GeologicalAge::Archean::Eoarchean::Eoarchean> .
        # <..snip..>
     end
@@ -249,7 +250,7 @@ Example Usage
     #  https://rubygems.org/gems/sparql is required for this section's operations.
     #  Please install sparql before operation.
-    require 'sparql'
+    require 'sparql/client'
     PREFIXES = When::Parts::Resource.namespace_prefixes(
       '_co:Common', '_co:Common?V=0618', '_m:Calendar', '_m:Japanese', '_n:Japanese/Notes')
@@ -301,15 +302,15 @@ Example Usage
     #  Please install google-api-client and add authorization file 'google-api.yaml' before operation.
     require 'google/api_client'
-    require "yaml"
+    require 'yaml'
     oauth_yaml = YAML.load_file('google-api.yaml')
-    client = Google::APIClient.new(:application_name => "when_exe",
+    client = Google::APIClient.new(:application_name => 'when_exe',
                                    :application_version => When::VERSION)
-    client.authorization.client_id = oauth_yaml["client_id"]
-    client.authorization.client_secret = oauth_yaml["client_secret"]
-    client.authorization.scope = oauth_yaml["scope"]
-    client.authorization.refresh_token = oauth_yaml["refresh_token"]
-    client.authorization.access_token = oauth_yaml["access_token"]
+    client.authorization.client_id = oauth_yaml['client_id']
+    client.authorization.client_secret = oauth_yaml['client_secret']
+    client.authorization.scope = oauth_yaml['scope']
+    client.authorization.refresh_token = oauth_yaml['refresh_token']
+    client.authorization.access_token = oauth_yaml['access_token']
     service = client.discovered_api('calendar', 'v3')
     calendar = When::GoogleAPI::Calendar.list(client, service,
                      'en.japanese#holiday@group.v.calendar.google.com')

data/lib/when_exe/ephemeris/moon.rb CHANGED Viewed

@@ -1,333 +1,333 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 2011-2014 Takashi SUGA
-  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
-=end
-require 'when_exe/ephemeris/sun'
-module When
-  module Ephemeris
-    #------------------------------------------
-    #     月と地球の本影 計算用データ
-    #------------------------------------------
-    # 月の地心黄経
-    # @private
-    P0dL =
-      [[SIN   ,   93.8       ,      -1.33     ,  0.0040   ],
-       [SIN   ,  248.6       ,     -19.34     ,  0.0020   ],
-       [SIN   ,   66.0       ,       0.2      ,  0.0006   ],
-       [SIN   ,  249.0       ,     -19.3      ,  0.0006   ]]
-    # @private
-    P0L =
-      [[LIN   ,  124.8757417 ,  4812.6788201  , -1.330000E-7],
-       [SINL  ,  338.9158263 ,  4771.9886313  ,  6.2887   ,+8.99400E-7], # 中心差
-       [SIN   ,  107.236832  ,   -4133.3536154,  1.2740   ,+1.22612E-6], # 出差
-       [SIN   ,   51.678963  ,    8905.3422467,  0.6583   ,-0.32672E-6], # 二均差
-       [SIN   ,  317.831653  ,    9543.9772627,  0.2136   ,+1.7988E-6 ], # 中心差 x 2
-       [SIN   ,  176.528826  ,     359.990504 ,  0.1856   ,-1.561E-8  ], # 年差
-       [SIN   ,  292.463     ,    9664.0403505,  0.1143   ,-0.6812E-6 ],
-       [SIN   ,   86.16      ,     638.63475182, 0.0588   ,+2.1256E-6 ],
-       [SIN   ,  103.78      ,   -3773.36305278, 0.0572   ,-1.22769E-6],
-       [SIN   ,   30.58      ,   13677.331    ,  0.0533   ],
-       [SIN   ,  124.86      ,   -8545.352    ,  0.0459   ],
-       [SIN   ,  342.38      ,    4411.998    ,  0.0410   ],
-       [SIN   ,   25.83      ,    4452.671    ,  0.0348   ], # 月角差( 二均差 / 2)
-       [SIN   ,  155.45      ,    5131.979    ,  0.0305   ],
-       [SIN   ,  240.79      ,     758.698    ,  0.0153   ],
-       [SIN   ,  271.38      ,   14436.029    ,  0.0125   ],
-       [SIN   ,  226.45      ,   -4892.052    ,  0.0110   ],
-       [SIN   ,   55.58      ,  -13038.696    ,  0.0107   ],
-       [SIN   ,  296.75      ,   14315.966    ,  0.0100   ],
-       [SIN   ,   34.5       ,   -8266.71     ,  0.0085   ],
-       [SIN   ,  290.7       ,   -4493.34     ,  0.0079   ],
-       [SIN   ,  228.2       ,    9265.33     ,  0.0068   ],
-       [SIN   ,  133.1       ,     319.32     ,  0.0052   ],
-       [SIN   ,  202.4       ,    4812.66     ,  0.0050   ],
-       [SIN   ,   68.6       ,     -19.34     ,  0.0048   ],
-       [SIN   ,   34.1       ,   13317.34     ,  0.0040   ],
-       [SIN   ,    9.5       ,   18449.32     ,  0.0040   ],
-       [SIN   ,   93.8       ,      -1.33     ,  0.0040   ],
-       [SIN   ,  103.3       ,   17810.68     ,  0.0039   ],
-       [SIN   ,   65.1       ,    5410.62     ,  0.0037   ],
-       [SIN   ,  321.3       ,    9183.99     ,  0.0027   ],
-       [SIN   ,  174.8       ,  -13797.39     ,  0.0026   ],
-       [SIN   ,   82.7       ,     998.63     ,  0.0024   ],
-       [SIN   ,    4.7       ,    9224.66     ,  0.0024   ],
-       [SIN   ,  121.4       ,   -8185.36     ,  0.0022   ],
-       [SIN   ,  134.4       ,    9903.97     ,  0.0021   ],
-       [SIN   ,  173.1       ,     719.98     ,  0.0021   ],
-       [SIN   ,  100.3       ,   -3413.37     ,  0.0021   ],
-       [SIN   ,  248.6       ,     -19.34     ,  0.0020   ],
-       [SIN   ,   98.1       ,    4013.29     ,  0.0018   ],
-       [SIN   ,  344.1       ,   18569.38     ,  0.0016   ],
-       [SIN   ,   52.1       ,  -12678.71     ,  0.0012   ],
-       [SIN   ,  250.3       ,   19208.02     ,  0.0011   ],
-       [SIN   ,   81.0       ,   -8586.0      ,  0.0009   ],
-       [SIN   ,  207.0       ,   14037.3      ,  0.0008   ],
-       [SIN   ,   31.0       ,   -7906.7      ,  0.0008   ],
-       [SIN   ,  346.0       ,    4052.0      ,  0.0007   ],
-       [SIN   ,  294.0       ,   -4853.3      ,  0.0007   ],
-       [SIN   ,   90.0       ,     278.6      ,  0.0007   ],
-       [SIN   ,  237.0       ,    1118.7      ,  0.0006   ],
-       [SIN   ,   82.0       ,   22582.7      ,  0.0005   ],
-       [SIN   ,  276.0       ,   19088.0      ,  0.0005   ],
-       [SIN   ,   73.0       ,  -17450.7      ,  0.0005   ],
-       [SIN   ,  112.0       ,    5091.3      ,  0.0005   ],
-       [SIN   ,  116.0       ,    -398.7      ,  0.0004   ],
-       [SIN   ,   25.0       ,    -120.1      ,  0.0004   ],
-       [SIN   ,  181.0       ,    9584.7      ,  0.0004   ],
-       [SIN   ,   18.0       ,     720.0      ,  0.0004   ],
-       [SIN   ,   60.0       ,   -3814.0      ,  0.0003   ],
-       [SIN   ,   13.0       ,   -3494.7      ,  0.0003   ],
-       [SIN   ,   13.0       ,   18089.3      ,  0.0003   ],
-       [SIN   ,  152.0       ,    5492.0      ,  0.0003   ],
-       [SIN   ,  317.0       ,     -40.7      ,  0.0003   ],
-       [SIN   ,  348.0       ,   23221.3      ,  0.0003   ]]
-    # 月の地心黄緯
-    # @private
-    P0dB =
-      [[SIN   ,   68.64      ,     -19.341    ,  0.0267   ],
-       [SIN   ,  342.0       ,     -19.36     ,  0.0043   ],
-       [SIN   ,   93.8       ,      -1.33     ,  0.0040   ],
-       [SIN   ,  248.6       ,     -19.34     ,  0.0020   ],
-       [SIN   ,  358.0       ,     -19.4      ,  0.0005   ]]
-    # @private
-    P0B =
-      [[SINL  ,  236.231     ,    4832.0201248,  5.1281218,-0.3406E-6 ],
-       [SIN   ,  215.147     ,    9604.0088   ,  0.2806   ],
-       [SIN   ,   77.316     ,      60.0316   ,  0.2777   ],
-       [SIN   ,    4.563     ,   -4073.3220   ,  0.1732   ],
-       [SIN   ,  308.98      ,    8965.374    ,  0.0554   ],
-       [SIN   ,  343.48      ,     698.667    ,  0.0463   ],
-       [SIN   ,  287.90      ,   13737.362    ,  0.0326   ],
-       [SIN   ,  194.06      ,   14375.997    ,  0.0172   ],
-       [SIN   ,   25.6       ,   -8845.31     ,  0.0093   ],
-       [SIN   ,   98.4       ,   -4711.96     ,  0.0088   ],
-       [SIN   ,    1.1       ,   -3713.33     ,  0.0082   ],
-       [SIN   ,  322.4       ,    5470.66     ,  0.0043   ],
-       [SIN   ,  266.8       ,   18509.35     ,  0.0042   ],
-       [SIN   ,  188.0       ,   -4433.31     ,  0.0034   ],
-       [SIN   ,  312.5       ,    8605.38     ,  0.0025   ],
-       [SIN   ,  291.4       ,   13377.37     ,  0.0022   ],
-       [SIN   ,  340.0       ,    1058.66     ,  0.0021   ],
-       [SIN   ,  218.6       ,    9244.02     ,  0.0019   ],
-       [SIN   ,  291.8       ,   -8206.68     ,  0.0018   ],
-       [SIN   ,   52.8       ,    5192.01     ,  0.0018   ],
-       [SIN   ,  168.7       ,   14496.06     ,  0.0017   ],
-       [SIN   ,   73.8       ,     420.02     ,  0.0016   ],
-       [SIN   ,  262.1       ,    9284.69     ,  0.0015   ],
-       [SIN   ,   31.7       ,    9964.00     ,  0.0015   ],
-       [SIN   ,  260.8       ,    -299.96     ,  0.0014   ],
-       [SIN   ,  239.7       ,    4472.03     ,  0.0013   ],
-       [SIN   ,   30.4       ,     379.35     ,  0.0013   ],
-       [SIN   ,  304.9       ,    4812.68     ,  0.0012   ],
-       [SIN   ,   12.4       ,   -4851.36     ,  0.0012   ],
-       [SIN   ,  173.0       ,   19147.99     ,  0.0011   ],
-       [SIN   ,  312.9       ,  -12978.66     ,  0.0010   ],
-       [SIN   ,    1.0       ,   17870.7      ,  0.0008   ],
-       [SIN   ,  190.0       ,    9724.1      ,  0.0008   ],
-       [SIN   ,   22.0       ,   13098.7      ,  0.0007   ],
-       [SIN   ,  117.0       ,    5590.7      ,  0.0006   ],
-       [SIN   ,   47.0       ,  -13617.3      ,  0.0006   ],
-       [SIN   ,   22.0       ,   -8485.3      ,  0.0005   ],
-       [SIN   ,  150.0       ,    4193.4      ,  0.0005   ],
-       [SIN   ,  119.0       ,   -9483.9      ,  0.0004   ],
-       [SIN   ,  246.0       ,   23281.3      ,  0.0004   ],
-       [SIN   ,  301.0       ,   10242.6      ,  0.0004   ],
-       [SIN   ,  126.0       ,    9325.4      ,  0.0004   ],
-       [SIN   ,  104.0       ,   14097.4      ,  0.0004   ],
-       [SIN   ,  340.0       ,   22642.7      ,  0.0003   ],
-       [SIN   ,  270.0       ,   18149.4      ,  0.0003   ],
-       [SIN   ,  358.0       ,   -3353.3      ,  0.0003   ],
-       [SIN   ,  148.0       ,   19268.0      ,  0.0003   ]]
-    # 月の視差
-    # @private
-    P0P =
-      [[COS   ,  338.92      ,    4771.98849108, 0.0518   ,+9.19178E-7],
-       [COS   ,  287.2       ,   -4133.35355678, 0.0095   ,+1.2262E-6 ],
-       [COS   ,   51.7       ,    8905.34223034, 0.0078   ,-0.3268E-6 ],
-       [COS   ,  317.8       ,    9543.97698216, 0.0028   ,+1.7988E-6 ],
-       [COS   ,   31.0       ,   13677.3      ,  0.0009   ],
-       [COS   ,  305.0       ,   -8545.4      ,  0.0005   ],
-       [COS   ,  284.0       ,   -3773.4      ,  0.0004   ],
-       [COS   ,  342.0       ,    4412.0      ,  0.0003   ]]
-    #
-    # The Moon
-    #
-    class Moon < Datum
-      class << self
-        include Ephemeris
-        # 月の真黄経 / CIRCLE
-        #
-        # @param [Numeric] t ユリウス日(Terrestrial Time)
-        # @param [When::TM::TemporalPosition] t
-        #
-        # @return [Numeric]
-        #
-        def true_longitude(t)
-          y = julian_year_from_1975(+t)
-          return trigonometric(y, P0L, sind(trigonometric(y, P0dL))) / 360.0 + 38770.0
-        end
-        # 月の真黄緯/ CIRCLE
-        #
-        # @param [Numeric] t ユリウス日(Terrestrial Time)
-        # @param [When::TM::TemporalPosition] t
-        #
-        # @return [Numeric]
-        #
-        def latitude(t)
-          y = julian_year_from_1975(+t)
-          return trigonometric(y, P0B, trigonometric(y, P0dB)) / 360.0
-        end
-        # 月の距離 / km
-        #
-        # @param [Numeric] t ユリウス日(Terrestrial Time)
-        # @param [When::TM::TemporalPosition] t
-        #
-        # @return [Numeric]
-        #
-        def pi(t)
-          return 6378.14 / ((trigonometric(julian_year_from_1975(+t), P0P) + 0.9507)*DEG)
-        end
-        # 月の平均黄経 / CIRCLE
-        #
-        # @param [Numeric] t ユリウス日(Terrestrial Time)
-        # @param [When::TM::TemporalPosition] t
-        #
-        # @return [Numeric]
-        #
-        def mean_longitude(t)
-          return trigonometric(julian_year_from_1975(+t), P0L, 0.0, 1) / 360.0 + 38770.0
-        end
-      end
-      # 月の位置 (黄道座標)
-      #
-      # @param [Numeric] t ユリウス日(Terrestrial Time)
-      # @param [When::TM::TemporalPosition] t
-      #
-      # @return [When::Ephemeris::Coords]
-      #
-      def _coords(t)
-        t  = +t
-        Coords.polar(Moon.true_longitude(t),
-                     Moon.latitude(t),
-                     Moon.pi(t)/AU,
-                     Moon.mean_longitude(t)) +
-        When.Resource('_ep:Earth')._coords(t)
-      end
-      # 真黄経 / CIRCLE
-      #
-      # @param [Numeric] t ユリウス日(Terrestrial Time)
-      # @param [When::TM::TemporalPosition] t
-      #
-      # @return [Numeric]
-      #
-      def true_longitude(t)
-        Moon.true_longitude(t)
-      end
-      # 平均黄経 / CIRCLE
-      #
-      # @param [Numeric] t ユリウス日(Terrestrial Time)
-      # @param [When::TM::TemporalPosition] t
-      #
-      # @return [Numeric]
-      #
-      def mean_longitude(t)
-        Moon.mean_longitude(t)
-      end
-      # 平均運動 / (DEG/YEAR)
-      #
-      # @return [Numeric]
-      #
-      def mean_motion
-        P0L[0][2]
-      end
-      #
-      # オブジェクトの生成
-      # @private
-      def initialize(*args)
-        options = [args.pop] if args[-1].kind_of?(Hash)
-        surface_radius, aberration, luminosity, *rest = args
-        surface_radius ||= 1738.1
-        aberration     ||=    0.00020
-        luminosity     ||=    0.40
-        args  = [surface_radius, aberration, luminosity] + rest
-        args += options if options
-        super(*args)
-      end
-    end
-    #
-    # The Shadow of the Earth
-    #
-    class Shadow < Earth
-      # 地球の影の位置 (黄道座標)
-      #
-      # @param [Numeric] t ユリウス日(Terrestrial Time)
-      # @param [When::TM::TemporalPosition] t
-      #
-      # @return [When::Ephemeris::Coords]
-      #
-      def _coords(t)
-        t  = +t
-        radius = Sun.pi(t) + Moon.pi(t)/AU
-        dl = 0.5 + @aberration / radius / 360 # 略算式に含まれる光行差をキャンセルする
-        Coords.polar(Sun.true_longitude(t)+dl, 0, radius, Sun.mean_longitude(t)+dl)
-      end
-      # 地球の影の視半径 / CIRCLE
-      #
-      # @param [Numeric] t ユリウス日(Terrestrial Time)
-      # @param [When::TM::TemporalPosition] t
-      # @param [When::Coordinates::Spatial] base 観測地
-      #
-      # @return [Numeric]
-      #
-      def apparent_radius(t, base=nil)
-        t  = +t
-        radius = Sun.pi(t) * AU
-        (asin(surface_radius/Moon.pi(t)) -
-         asin(Ephemeris::Sun::Radius/radius) +
-         asin(surface_radius/radius)) * 1.02 / CIRCLE
-      end
-    end
-  end
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2014 Takashi SUGA
+  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
+=end
+require 'when_exe/ephemeris/sun'
+module When
+  module Ephemeris
+    #------------------------------------------
+    #     月と地球の本影 計算用データ
+    #------------------------------------------
+    # 月の地心黄経
+    # @private
+    P0dL =
+      [[SIN   ,   93.8       ,      -1.33     ,  0.0040   ],
+       [SIN   ,  248.6       ,     -19.34     ,  0.0020   ],
+       [SIN   ,   66.0       ,       0.2      ,  0.0006   ],
+       [SIN   ,  249.0       ,     -19.3      ,  0.0006   ]]
+    # @private
+    P0L =
+      [[LIN   ,  124.8757417 ,  4812.6788201  , -1.330000E-7],
+       [SINL  ,  338.9158263 ,  4771.9886313  ,  6.2887   ,+8.99400E-7], # 中心差
+       [SIN   ,  107.236832  ,   -4133.3536154,  1.2740   ,+1.22612E-6], # 出差
+       [SIN   ,   51.678963  ,    8905.3422467,  0.6583   ,-0.32672E-6], # 二均差
+       [SIN   ,  317.831653  ,    9543.9772627,  0.2136   ,+1.7988E-6 ], # 中心差 x 2
+       [SIN   ,  176.528826  ,     359.990504 ,  0.1856   ,-1.561E-8  ], # 年差
+       [SIN   ,  292.463     ,    9664.0403505,  0.1143   ,-0.6812E-6 ],
+       [SIN   ,   86.16      ,     638.63475182, 0.0588   ,+2.1256E-6 ],
+       [SIN   ,  103.78      ,   -3773.36305278, 0.0572   ,-1.22769E-6],
+       [SIN   ,   30.58      ,   13677.331    ,  0.0533   ],
+       [SIN   ,  124.86      ,   -8545.352    ,  0.0459   ],
+       [SIN   ,  342.38      ,    4411.998    ,  0.0410   ],
+       [SIN   ,   25.83      ,    4452.671    ,  0.0348   ], # 月角差( 二均差 / 2)
+       [SIN   ,  155.45      ,    5131.979    ,  0.0305   ],
+       [SIN   ,  240.79      ,     758.698    ,  0.0153   ],
+       [SIN   ,  271.38      ,   14436.029    ,  0.0125   ],
+       [SIN   ,  226.45      ,   -4892.052    ,  0.0110   ],
+       [SIN   ,   55.58      ,  -13038.696    ,  0.0107   ],
+       [SIN   ,  296.75      ,   14315.966    ,  0.0100   ],
+       [SIN   ,   34.5       ,   -8266.71     ,  0.0085   ],
+       [SIN   ,  290.7       ,   -4493.34     ,  0.0079   ],
+       [SIN   ,  228.2       ,    9265.33     ,  0.0068   ],
+       [SIN   ,  133.1       ,     319.32     ,  0.0052   ],
+       [SIN   ,  202.4       ,    4812.66     ,  0.0050   ],
+       [SIN   ,   68.6       ,     -19.34     ,  0.0048   ],
+       [SIN   ,   34.1       ,   13317.34     ,  0.0040   ],
+       [SIN   ,    9.5       ,   18449.32     ,  0.0040   ],
+       [SIN   ,   93.8       ,      -1.33     ,  0.0040   ],
+       [SIN   ,  103.3       ,   17810.68     ,  0.0039   ],
+       [SIN   ,   65.1       ,    5410.62     ,  0.0037   ],
+       [SIN   ,  321.3       ,    9183.99     ,  0.0027   ],
+       [SIN   ,  174.8       ,  -13797.39     ,  0.0026   ],
+       [SIN   ,   82.7       ,     998.63     ,  0.0024   ],
+       [SIN   ,    4.7       ,    9224.66     ,  0.0024   ],
+       [SIN   ,  121.4       ,   -8185.36     ,  0.0022   ],
+       [SIN   ,  134.4       ,    9903.97     ,  0.0021   ],
+       [SIN   ,  173.1       ,     719.98     ,  0.0021   ],
+       [SIN   ,  100.3       ,   -3413.37     ,  0.0021   ],
+       [SIN   ,  248.6       ,     -19.34     ,  0.0020   ],
+       [SIN   ,   98.1       ,    4013.29     ,  0.0018   ],
+       [SIN   ,  344.1       ,   18569.38     ,  0.0016   ],
+       [SIN   ,   52.1       ,  -12678.71     ,  0.0012   ],
+       [SIN   ,  250.3       ,   19208.02     ,  0.0011   ],
+       [SIN   ,   81.0       ,   -8586.0      ,  0.0009   ],
+       [SIN   ,  207.0       ,   14037.3      ,  0.0008   ],
+       [SIN   ,   31.0       ,   -7906.7      ,  0.0008   ],
+       [SIN   ,  346.0       ,    4052.0      ,  0.0007   ],
+       [SIN   ,  294.0       ,   -4853.3      ,  0.0007   ],
+       [SIN   ,   90.0       ,     278.6      ,  0.0007   ],
+       [SIN   ,  237.0       ,    1118.7      ,  0.0006   ],
+       [SIN   ,   82.0       ,   22582.7      ,  0.0005   ],
+       [SIN   ,  276.0       ,   19088.0      ,  0.0005   ],
+       [SIN   ,   73.0       ,  -17450.7      ,  0.0005   ],
+       [SIN   ,  112.0       ,    5091.3      ,  0.0005   ],
+       [SIN   ,  116.0       ,    -398.7      ,  0.0004   ],
+       [SIN   ,   25.0       ,    -120.1      ,  0.0004   ],
+       [SIN   ,  181.0       ,    9584.7      ,  0.0004   ],
+       [SIN   ,   18.0       ,     720.0      ,  0.0004   ],
+       [SIN   ,   60.0       ,   -3814.0      ,  0.0003   ],
+       [SIN   ,   13.0       ,   -3494.7      ,  0.0003   ],
+       [SIN   ,   13.0       ,   18089.3      ,  0.0003   ],
+       [SIN   ,  152.0       ,    5492.0      ,  0.0003   ],
+       [SIN   ,  317.0       ,     -40.7      ,  0.0003   ],
+       [SIN   ,  348.0       ,   23221.3      ,  0.0003   ]]
+    # 月の地心黄緯
+    # @private
+    P0dB =
+      [[SIN   ,   68.64      ,     -19.341    ,  0.0267   ],
+       [SIN   ,  342.0       ,     -19.36     ,  0.0043   ],
+       [SIN   ,   93.8       ,      -1.33     ,  0.0040   ],
+       [SIN   ,  248.6       ,     -19.34     ,  0.0020   ],
+       [SIN   ,  358.0       ,     -19.4      ,  0.0005   ]]
+    # @private
+    P0B =
+      [[SINL  ,  236.231     ,    4832.0201248,  5.1281218,-0.3406E-6 ],
+       [SIN   ,  215.147     ,    9604.0088   ,  0.2806   ],
+       [SIN   ,   77.316     ,      60.0316   ,  0.2777   ],
+       [SIN   ,    4.563     ,   -4073.3220   ,  0.1732   ],
+       [SIN   ,  308.98      ,    8965.374    ,  0.0554   ],
+       [SIN   ,  343.48      ,     698.667    ,  0.0463   ],
+       [SIN   ,  287.90      ,   13737.362    ,  0.0326   ],
+       [SIN   ,  194.06      ,   14375.997    ,  0.0172   ],
+       [SIN   ,   25.6       ,   -8845.31     ,  0.0093   ],
+       [SIN   ,   98.4       ,   -4711.96     ,  0.0088   ],
+       [SIN   ,    1.1       ,   -3713.33     ,  0.0082   ],
+       [SIN   ,  322.4       ,    5470.66     ,  0.0043   ],
+       [SIN   ,  266.8       ,   18509.35     ,  0.0042   ],
+       [SIN   ,  188.0       ,   -4433.31     ,  0.0034   ],
+       [SIN   ,  312.5       ,    8605.38     ,  0.0025   ],
+       [SIN   ,  291.4       ,   13377.37     ,  0.0022   ],
+       [SIN   ,  340.0       ,    1058.66     ,  0.0021   ],
+       [SIN   ,  218.6       ,    9244.02     ,  0.0019   ],
+       [SIN   ,  291.8       ,   -8206.68     ,  0.0018   ],
+       [SIN   ,   52.8       ,    5192.01     ,  0.0018   ],
+       [SIN   ,  168.7       ,   14496.06     ,  0.0017   ],
+       [SIN   ,   73.8       ,     420.02     ,  0.0016   ],
+       [SIN   ,  262.1       ,    9284.69     ,  0.0015   ],
+       [SIN   ,   31.7       ,    9964.00     ,  0.0015   ],
+       [SIN   ,  260.8       ,    -299.96     ,  0.0014   ],
+       [SIN   ,  239.7       ,    4472.03     ,  0.0013   ],
+       [SIN   ,   30.4       ,     379.35     ,  0.0013   ],
+       [SIN   ,  304.9       ,    4812.68     ,  0.0012   ],
+       [SIN   ,   12.4       ,   -4851.36     ,  0.0012   ],
+       [SIN   ,  173.0       ,   19147.99     ,  0.0011   ],
+       [SIN   ,  312.9       ,  -12978.66     ,  0.0010   ],
+       [SIN   ,    1.0       ,   17870.7      ,  0.0008   ],
+       [SIN   ,  190.0       ,    9724.1      ,  0.0008   ],
+       [SIN   ,   22.0       ,   13098.7      ,  0.0007   ],
+       [SIN   ,  117.0       ,    5590.7      ,  0.0006   ],
+       [SIN   ,   47.0       ,  -13617.3      ,  0.0006   ],
+       [SIN   ,   22.0       ,   -8485.3      ,  0.0005   ],
+       [SIN   ,  150.0       ,    4193.4      ,  0.0005   ],
+       [SIN   ,  119.0       ,   -9483.9      ,  0.0004   ],
+       [SIN   ,  246.0       ,   23281.3      ,  0.0004   ],
+       [SIN   ,  301.0       ,   10242.6      ,  0.0004   ],
+       [SIN   ,  126.0       ,    9325.4      ,  0.0004   ],
+       [SIN   ,  104.0       ,   14097.4      ,  0.0004   ],
+       [SIN   ,  340.0       ,   22642.7      ,  0.0003   ],
+       [SIN   ,  270.0       ,   18149.4      ,  0.0003   ],
+       [SIN   ,  358.0       ,   -3353.3      ,  0.0003   ],
+       [SIN   ,  148.0       ,   19268.0      ,  0.0003   ]]
+    # 月の視差
+    # @private
+    P0P =
+      [[COS   ,  338.92      ,    4771.98849108, 0.0518   ,+9.19178E-7],
+       [COS   ,  287.2       ,   -4133.35355678, 0.0095   ,+1.2262E-6 ],
+       [COS   ,   51.7       ,    8905.34223034, 0.0078   ,-0.3268E-6 ],
+       [COS   ,  317.8       ,    9543.97698216, 0.0028   ,+1.7988E-6 ],
+       [COS   ,   31.0       ,   13677.3      ,  0.0009   ],
+       [COS   ,  305.0       ,   -8545.4      ,  0.0005   ],
+       [COS   ,  284.0       ,   -3773.4      ,  0.0004   ],
+       [COS   ,  342.0       ,    4412.0      ,  0.0003   ]]
+    #
+    # The Moon
+    #
+    class Moon < Datum
+      class << self
+        include Ephemeris
+        # 月の真黄経 / CIRCLE
+        #
+        # @param [Numeric] t ユリウス日(Terrestrial Time)
+        # @param [When::TM::TemporalPosition] t
+        #
+        # @return [Numeric]
+        #
+        def true_longitude(t)
+          y = julian_year_from_1975(+t)
+          return trigonometric(y, P0L, sind(trigonometric(y, P0dL))) / 360.0 + 38770.0
+        end
+        # 月の真黄緯/ CIRCLE
+        #
+        # @param [Numeric] t ユリウス日(Terrestrial Time)
+        # @param [When::TM::TemporalPosition] t
+        #
+        # @return [Numeric]
+        #
+        def latitude(t)
+          y = julian_year_from_1975(+t)
+          return trigonometric(y, P0B, trigonometric(y, P0dB)) / 360.0
+        end
+        # 月の距離 / km
+        #
+        # @param [Numeric] t ユリウス日(Terrestrial Time)
+        # @param [When::TM::TemporalPosition] t
+        #
+        # @return [Numeric]
+        #
+        def pi(t)
+          return 6378.14 / ((trigonometric(julian_year_from_1975(+t), P0P) + 0.9507)*DEG)
+        end
+        # 月の平均黄経 / CIRCLE
+        #
+        # @param [Numeric] t ユリウス日(Terrestrial Time)
+        # @param [When::TM::TemporalPosition] t
+        #
+        # @return [Numeric]
+        #
+        def mean_longitude(t)
+          return trigonometric(julian_year_from_1975(+t), P0L, 0.0, 1) / 360.0 + 38770.0
+        end
+      end
+      # 月の位置 (黄道座標)
+      #
+      # @param [Numeric] t ユリウス日(Terrestrial Time)
+      # @param [When::TM::TemporalPosition] t
+      #
+      # @return [When::Ephemeris::Coords]
+      #
+      def _coords(t)
+        t  = +t
+        Coords.polar(Moon.true_longitude(t),
+                     Moon.latitude(t),
+                     Moon.pi(t)/AU,
+                     Moon.mean_longitude(t)) +
+        When.Resource('_ep:Earth')._coords(t)
+      end
+      # 真黄経 / CIRCLE
+      #
+      # @param [Numeric] t ユリウス日(Terrestrial Time)
+      # @param [When::TM::TemporalPosition] t
+      #
+      # @return [Numeric]
+      #
+      def true_longitude(t)
+        Moon.true_longitude(t)
+      end
+      # 平均黄経 / CIRCLE
+      #
+      # @param [Numeric] t ユリウス日(Terrestrial Time)
+      # @param [When::TM::TemporalPosition] t
+      #
+      # @return [Numeric]
+      #
+      def mean_longitude(t)
+        Moon.mean_longitude(t)
+      end
+      # 平均運動 / (DEG/YEAR)
+      #
+      # @return [Numeric]
+      #
+      def mean_motion
+        P0L[0][2]
+      end
+      #
+      # オブジェクトの生成
+      # @private
+      def initialize(*args)
+        options = [args.pop] if args[-1].kind_of?(Hash)
+        surface_radius, aberration, luminosity, *rest = args
+        surface_radius ||= 1738.1
+        aberration     ||=    0.00020
+        luminosity     ||=    0.40
+        args  = [surface_radius, aberration, luminosity] + rest
+        args += options if options
+        super(*args)
+      end
+    end
+    #
+    # The Shadow of the Earth
+    #
+    class Shadow < Earth
+      # 地球の影の位置 (黄道座標)
+      #
+      # @param [Numeric] t ユリウス日(Terrestrial Time)
+      # @param [When::TM::TemporalPosition] t
+      #
+      # @return [When::Ephemeris::Coords]
+      #
+      def _coords(t)
+        t  = +t
+        radius = Sun.pi(t) + Moon.pi(t)/AU
+        dl = 0.5 + @aberration / radius / 360 # 略算式に含まれる光行差をキャンセルする
+        Coords.polar(Sun.true_longitude(t)+dl, 0, radius, Sun.mean_longitude(t)+dl)
+      end
+      # 地球の影の視半径 / CIRCLE
+      #
+      # @param [Numeric] t ユリウス日(Terrestrial Time)
+      # @param [When::TM::TemporalPosition] t
+      # @param [When::Coordinates::Spatial] base 観測地
+      #
+      # @return [Numeric]
+      #
+      def apparent_radius(t, base=nil)
+        t  = +t
+        radius = Sun.pi(t) * AU
+        (asin(surface_radius/Moon.pi(t)) -
+         asin(Ephemeris::Sun::Radius/radius) +
+         asin(surface_radius/radius)) * 1.02 / CIRCLE
+      end
+    end
+  end
+end