mk_sunmoon 0.1.1 → 0.1.2

Sign up to get free protection for your applications and to get access to all the features.
checksums.yaml CHANGED
@@ -1,7 +1,7 @@
1
1
  ---
2
2
  SHA1:
3
- metadata.gz: fedaa4c974693e551cd74527c8ec2d30d892d4cc
4
- data.tar.gz: a896f85395d724780530c003619f02eb8c2b50e4
3
+ metadata.gz: 712def1dc7bb74b6e2e4b679726ba56fcffc1d1a
4
+ data.tar.gz: acc68ffa5f24534fd3e6903ca9d3fbbd3794f730
5
5
  SHA512:
6
- metadata.gz: d55dcdfd0450cd2d0acb17a367732323bf1d6f91fa7cd989c719262d23eea8491df71e8605857de36e8691714aa38171a4fb28c6322cbe7d5e5aada50df2b623
7
- data.tar.gz: fad6ad0cea6bf0bd3832cbc005f109052ba688d010aecae8efb6f2ed14e8c698a1e07f2bbbad50e0ce83e5f6b60c1cc8f69ab8dd6d48eb4e37c1b7fc5cc1f534
6
+ metadata.gz: d77610522d299fc58d61ba65a5fc0c33c332b84b3e582267b78977a24ca1a3bbf2f7f6521cb09458cb8120647e33c47d1383f72dd53e32763a03d35943a4debe
7
+ data.tar.gz: e43d9662120d775da3a8af37cf1004c775d40aaa7408c7ec01aa596767de00471c915aba32c7c3948e1ae480b6f29b87530aa27af164c13cea45e351e7839f09
data/LICENSE.txt CHANGED
@@ -1,6 +1,6 @@
1
1
  The MIT License (MIT)
2
2
 
3
- Copyright (c) 2016 Masaru Koizumi
3
+ Copyright (c) 2016 mk-mode.com
4
4
 
5
5
  Permission is hereby granted, free of charge, to any person obtaining a copy
6
6
  of this software and associated documentation files (the "Software"), to deal
@@ -57,13 +57,14 @@ module MkSunmoon
57
57
  # @return: dt
58
58
  #=========================================================================
59
59
  def compute_dt(year, month, day)
60
- ymd = sprintf("%04d-%02d-%02d", year, month, day)
60
+ ym = sprintf("%04d-%02d", year, month)
61
+ y = year + (month - 0.5) / 12
61
62
  case
62
63
  when year < -500
63
- t = (year-1820) / 100.0
64
+ t = (y - 1820) / 100.0
64
65
  dt = -20 + 32 * t ** 2
65
66
  when -500 <= year && year < 500
66
- t = year / 100.0
67
+ t = y / 100.0
67
68
  dt = 10583.6
68
69
  (-1014.41 + \
69
70
  ( 33.78311 + \
@@ -73,7 +74,7 @@ module MkSunmoon
73
74
  ( 0.0090316521) \
74
75
  * t) * t) * t) * t) * t) * t
75
76
  when 500 <= year && year < 1600
76
- t = (year - 1000) / 100.0
77
+ t = (y - 1000) / 100.0
77
78
  dt = 1574.2 + \
78
79
  (-556.01 + \
79
80
  ( 71.23472 + \
@@ -83,14 +84,14 @@ module MkSunmoon
83
84
  ( 0.0083572073) \
84
85
  * t) * t) * t) * t) * t) * t
85
86
  when 1600 <= year && year < 1700
86
- t = year - 1600
87
+ t = y - 1600
87
88
  dt = 120 + \
88
89
  ( -0.9808 + \
89
90
  ( -0.01532 + \
90
91
  ( 1.0 / 7129.0) \
91
92
  * t) * t) * t
92
93
  when 1700 <= year && year < 1800
93
- t = year - 1700
94
+ t = y - 1700
94
95
  dt = 8.83 + \
95
96
  ( 0.1603 + \
96
97
  (-0.0059285 + \
@@ -98,7 +99,7 @@ module MkSunmoon
98
99
  (-1.0 / 1174000.0) \
99
100
  * t) * t) * t) * t
100
101
  when 1800 <= year && year < 1860
101
- t = year - 1800
102
+ t = y - 1800
102
103
  dt = 13.72 + \
103
104
  (-0.332447 + \
104
105
  ( 0.0068612 + \
@@ -109,7 +110,7 @@ module MkSunmoon
109
110
  ( 0.000000000875) \
110
111
  * t) * t) * t) * t) * t) * t) * t
111
112
  when 1860 <= year && year < 1900
112
- t = year - 1860
113
+ t = y - 1860
113
114
  dt = 7.62 + \
114
115
  ( 0.5737 + \
115
116
  (-0.251754 + \
@@ -118,7 +119,7 @@ module MkSunmoon
118
119
  ( 1.0 / 233174.0) \
119
120
  * t) * t) * t) * t) * t
120
121
  when 1900 <= year && year < 1920
121
- t = year - 1900
122
+ t = y - 1900
122
123
  dt = -2.79 + \
123
124
  ( 1.494119 + \
124
125
  (-0.0598939 + \
@@ -126,14 +127,14 @@ module MkSunmoon
126
127
  (-0.000197 ) \
127
128
  * t) * t) * t) * t
128
129
  when 1920 <= year && year < 1941
129
- t = year - 1920
130
+ t = y - 1920
130
131
  dt = 21.20 + \
131
132
  ( 0.84493 + \
132
133
  (-0.076100 + \
133
134
  ( 0.0020936) \
134
135
  * t) * t) * t
135
136
  when 1941 <= year && year < 1961
136
- t = year - 1950
137
+ t = y - 1950
137
138
  dt = 29.07 + \
138
139
  ( 0.407 + \
139
140
  (-1 / 233.0 + \
@@ -141,44 +142,30 @@ module MkSunmoon
141
142
  * t) * t) * t
142
143
  when 1961 <= year && year < 1986
143
144
  case
144
- when ymd < sprintf("%04d-%02d-%02d", 1972, 1, 1)
145
- t = year - 1975
145
+ when ym < sprintf("%04d-%02d", 1972, 1)
146
+ t = y - 1975
146
147
  dt = 45.45 + \
147
148
  ( 1.067 + \
148
149
  (-1 / 260.0 + \
149
150
  (-1 / 718.0) \
150
151
  * t) * t) * t
151
- when ymd < sprintf("%04d-%02d-%02d", 1972, 7, 1)
152
- dt = 32.184 + 10
153
- when ymd < sprintf("%04d-%02d-%02d", 1973, 1, 1)
154
- dt = 32.184 + 11
155
- when ymd < sprintf("%04d-%02d-%02d", 1974, 1, 1)
156
- dt = 32.184 + 12
157
- when ymd < sprintf("%04d-%02d-%02d", 1975, 1, 1)
158
- dt = 32.184 + 13
159
- when ymd < sprintf("%04d-%02d-%02d", 1976, 1, 1)
160
- dt = 32.184 + 14
161
- when ymd < sprintf("%04d-%02d-%02d", 1977, 1, 1)
162
- dt = 32.184 + 15
163
- when ymd < sprintf("%04d-%02d-%02d", 1978, 1, 1)
164
- dt = 32.184 + 16
165
- when ymd < sprintf("%04d-%02d-%02d", 1979, 1, 1)
166
- dt = 32.184 + 17
167
- when ymd < sprintf("%04d-%02d-%02d", 1980, 1, 1)
168
- dt = 32.184 + 18
169
- when ymd < sprintf("%04d-%02d-%02d", 1981, 7, 1)
170
- dt = 32.184 + 19
171
- when ymd < sprintf("%04d-%02d-%02d", 1982, 7, 1)
172
- dt = 32.184 + 20
173
- when ymd < sprintf("%04d-%02d-%02d", 1983, 7, 1)
174
- dt = 32.184 + 21
175
- when ymd < sprintf("%04d-%02d-%02d", 1985, 7, 1)
176
- dt = 32.184 + 22
177
- when ymd < sprintf("%04d-%02d-%02d", 1988, 1, 1)
178
- dt = 32.184 + 23
152
+ when ym < sprintf("%04d-%02d", 1972, 7); dt = Const::TT_TAI + 10
153
+ when ym < sprintf("%04d-%02d", 1973, 1); dt = Const::TT_TAI + 11
154
+ when ym < sprintf("%04d-%02d", 1974, 1); dt = Const::TT_TAI + 12
155
+ when ym < sprintf("%04d-%02d", 1975, 1); dt = Const::TT_TAI + 13
156
+ when ym < sprintf("%04d-%02d", 1976, 1); dt = Const::TT_TAI + 14
157
+ when ym < sprintf("%04d-%02d", 1977, 1); dt = Const::TT_TAI + 15
158
+ when ym < sprintf("%04d-%02d", 1978, 1); dt = Const::TT_TAI + 16
159
+ when ym < sprintf("%04d-%02d", 1979, 1); dt = Const::TT_TAI + 17
160
+ when ym < sprintf("%04d-%02d", 1980, 1); dt = Const::TT_TAI + 18
161
+ when ym < sprintf("%04d-%02d", 1981, 7); dt = Const::TT_TAI + 19
162
+ when ym < sprintf("%04d-%02d", 1982, 7); dt = Const::TT_TAI + 20
163
+ when ym < sprintf("%04d-%02d", 1983, 7); dt = Const::TT_TAI + 21
164
+ when ym < sprintf("%04d-%02d", 1985, 7); dt = Const::TT_TAI + 22
165
+ when ym < sprintf("%04d-%02d", 1988, 1); dt = Const::TT_TAI + 23
179
166
  end
180
167
  when 1986 <= year && year < 2005
181
- # t = year - 2000
168
+ #t = y - 2000
182
169
  #dt = 63.86 + \
183
170
  # ( 0.3345 + \
184
171
  # (-0.060374 + \
@@ -187,41 +174,26 @@ module MkSunmoon
187
174
  # ( 0.00002373599) \
188
175
  # * t) * t) * t) * t) * t
189
176
  case
190
- when ymd < sprintf("%04d-%02d-%02d", 1988, 1, 1)
191
- dt = 32.184 + 23
192
- when ymd < sprintf("%04d-%02d-%02d", 1990, 1, 1)
193
- dt = 32.184 + 24
194
- when ymd < sprintf("%04d-%02d-%02d", 1991, 1, 1)
195
- dt = 32.184 + 25
196
- when ymd < sprintf("%04d-%02d-%02d", 1992, 7, 1)
197
- dt = 32.184 + 26
198
- when ymd < sprintf("%04d-%02d-%02d", 1993, 7, 1)
199
- dt = 32.184 + 27
200
- when ymd < sprintf("%04d-%02d-%02d", 1994, 7, 1)
201
- dt = 32.184 + 28
202
- when ymd < sprintf("%04d-%02d-%02d", 1996, 1, 1)
203
- dt = 32.184 + 29
204
- when ymd < sprintf("%04d-%02d-%02d", 1997, 7, 1)
205
- dt = 32.184 + 30
206
- when ymd < sprintf("%04d-%02d-%02d", 1999, 1, 1)
207
- dt = 32.184 + 31
208
- when ymd < sprintf("%04d-%02d-%02d", 2006, 1, 1)
209
- dt = 32.184 + 32
177
+ when ym < sprintf("%04d-%02d", 1988, 1); dt = Const::TT_TAI + 23
178
+ when ym < sprintf("%04d-%02d", 1990, 1); dt = Const::TT_TAI + 24
179
+ when ym < sprintf("%04d-%02d", 1991, 1); dt = Const::TT_TAI + 25
180
+ when ym < sprintf("%04d-%02d", 1992, 7); dt = Const::TT_TAI + 26
181
+ when ym < sprintf("%04d-%02d", 1993, 7); dt = Const::TT_TAI + 27
182
+ when ym < sprintf("%04d-%02d", 1994, 7); dt = Const::TT_TAI + 28
183
+ when ym < sprintf("%04d-%02d", 1996, 1); dt = Const::TT_TAI + 29
184
+ when ym < sprintf("%04d-%02d", 1997, 7); dt = Const::TT_TAI + 30
185
+ when ym < sprintf("%04d-%02d", 1999, 1); dt = Const::TT_TAI + 31
186
+ when ym < sprintf("%04d-%02d", 2006, 1); dt = Const::TT_TAI + 32
210
187
  end
211
188
  when 2005 <= year && year < 2050
212
189
  case
213
- when ymd < sprintf("%04d-%02d-%02d", 2006, 1, 1)
214
- dt = 32.184 + 32
215
- when ymd < sprintf("%04d-%02d-%02d", 2009, 1, 1)
216
- dt = 32.184 + 33
217
- when ymd < sprintf("%04d-%02d-%02d", 2012, 7, 1)
218
- dt = 32.184 + 34
219
- when ymd < sprintf("%04d-%02d-%02d", 2015, 7, 1)
220
- dt = 32.184 + 35
221
- when ymd < sprintf("%04d-%02d-%02d", 2017, 7, 1) # <= 第27回うるう秒実施までの暫定措置
222
- dt = 32.184 + 36
190
+ when ym < sprintf("%04d-%02d", 2006, 1); dt = Const::TT_TAI + 32
191
+ when ym < sprintf("%04d-%02d", 2009, 1); dt = Const::TT_TAI + 33
192
+ when ym < sprintf("%04d-%02d", 2012, 7); dt = Const::TT_TAI + 34
193
+ when ym < sprintf("%04d-%02d", 2015, 7); dt = Const::TT_TAI + 35
194
+ when ym < sprintf("%04d-%02d", 2018, 1); dt = Const::TT_TAI + 36 # <= 第27回うるう秒実施までの暫定措置
223
195
  else
224
- t = year - 2000
196
+ t = y - 2000
225
197
  dt = 62.92 + \
226
198
  ( 0.32217 + \
227
199
  ( 0.005589) \
@@ -229,10 +201,10 @@ module MkSunmoon
229
201
  end
230
202
  when 2050 <= year && year <= 2150
231
203
  dt = -20 \
232
- + 32 * ((year - 1820) / 100.0) ** 2
233
- - 0.5628 * (2150 - year)
204
+ + 32 * ((y - 1820) / 100.0) ** 2
205
+ - 0.5628 * (2150 - y)
234
206
  when 2150 < year
235
- t = (year - 1820) / 100.0
207
+ t = (y - 1820) / 100.0
236
208
  dt = -20 + 32 * t ** 2
237
209
  end
238
210
  return dt
@@ -15,6 +15,7 @@ module MkSunmoon
15
15
  CONVERGE = 0.00005
16
16
  REFRACTION = 0.585556
17
17
  INCLINATION = 0.0353333
18
+ TT_TAI = 32.184
18
19
  end
19
20
  end
20
21
 
@@ -1,3 +1,3 @@
1
1
  module MkSunmoon
2
- VERSION = "0.1.1"
2
+ VERSION = "0.1.2"
3
3
  end
metadata CHANGED
@@ -1,14 +1,14 @@
1
1
  --- !ruby/object:Gem::Specification
2
2
  name: mk_sunmoon
3
3
  version: !ruby/object:Gem::Version
4
- version: 0.1.1
4
+ version: 0.1.2
5
5
  platform: ruby
6
6
  authors:
7
7
  - komasaru
8
8
  autorequire:
9
9
  bindir: exe
10
10
  cert_chain: []
11
- date: 2016-06-13 00:00:00.000000000 Z
11
+ date: 2016-06-15 00:00:00.000000000 Z
12
12
  dependencies:
13
13
  - !ruby/object:Gem::Dependency
14
14
  name: bundler