@EX(Julian Day)
@EX(EXʓ)Ƃ͋IO4713N11̘Aʂԍ̓ BȂ݂ɁA2000N11́AN_̓2,451,545ڂɓ ܂B
@ʏ̗ɂ͕sAȕ̂ŁAEX̂悤ɘAۂΓI ȓtƕ֗łB
@mɂƁAEX̋NZJn͋IO4713N11łANZJn̎ 0łȂ12Ȃ̂łBŋNZJn̋IO4713N11߂ EX0.0ɂȂ܂B̖12(24)̓EX0.5łB̐߂ EX1.0łB
@2000N110̓EX2451544.5ŁA̐߂EX2451545 łB
@ɐmɂƁAgpĂ鎞EgĂ܂B {W͐E9Ԑił̂œ{ɍl2000N1121 EX2,451,545ɂȂ܂B @ȂAEXĂꂽ1638N̐߂̒`݂͌̐(E)̒`ƈ ܂B
@ŏɋC̕sA͋IO̔NƋI̔NłBIO4713N-4713N ɂȂ܂B @IO(BC)4713ŃA()Z-4712NɂȂ܂B (AD)l냈[bpɂ̓[̊TOłB
....,3BC,2BC,1BC,1AD,2AD,3AD,.....̂悤ɕsAɂȂĂ܂B
@IO(BC)̔NԐF̐ŎAI(AD)F̐ŎƎ̂悤 Ȃ܂B
BC AD .... 4713 ..... 3 2 1 1 2 3 ....... 2000 .... .... -4712 ..... -2 -1 0 1 2 3 ....... 2000 ....
ŁAL̐̊W AD = 1 - BC AD = 1 - 4713 = -4712 ƂȂ킯łB
@̕sÁAEX(EXƂ͊WȂ)OSI ύXƂ̌ǂłBǂ̂悤ɕύXƂ 1582N104̗5łȂ15ɂ̂łB 1582N10̓t̏Ԃ 1, 2, 3, 4, 15, 16, 17, .....̂悤ɕsA ̂ɂ̂łBAj͘AĂ܂B
@EXΉÂA̕sA͉܂B1582N104̃EX 2299160łB1582N1015̃EX2299161łB
@[}EJgbNñC^AAtXACXpjAiXyCjA|gKA |[h̍X1582NɃOSI̗p܂B܂Ȃ̃[}EJgbN n̍XNxō̗p܂B
@ȂAɃveX^gnт̑̍Xł́AOSIւ̕ύX 啪x܂BCMX1752NA1912NA\A(VAj1918NA gR1927NłB
UNIX(Linux)ȂǂŃJ_[̃ICE}jAQ(man cal) ƁuOSIւ̐ւ1752N93ɍsꂽvƂĂ܂B
あなたがmiscarrigeとき何が起こる
@ŁAcal 9 1752 s @@@@September 1752 S M Tu W Th F S 1 2 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 ̂悤1752N9̃J_[\܂B
@lɂ̂悤ȍ̗EXɑΉÂA̕sA͉܂B
1752N914̃EX2361222Ȃ̂ŁA1752N92̃EX 2361221ɂȂ܂B
@݂ł̓EX(Julian Day; JD)̐l傫̂ŁA EX2400000Ɣ(12)(C)E X(Modified Julian Day; MJD)Ƃ܂B
@EX(MJD)ƃEX(JD)̊Ŵ͎悤ɂȂ܂B
@MJD JD | 2400000.5
@EX0.0́A1858N11170ɂȂ܂B ܂AEX̋NZJn1858N1117ŁANZJn͂̓ 0(E)łB
@2000N110̓EX2451544.5Ȃ̂ŁAEX51544 ɂȂ܂B
@(yNmdj珀EX(MJD)ɕϊ鎮̓t[Q̌g ̂悤ɂȂ܂B(}CRFuj
@@ y ͔NAm ͌Ad ͓łB @@12͑O̔NɌvZ邽߁A @@m = m + 12Ay = y - 1 Ƃ܂B @@܂Aint[ ]͐l̐łȂA ߂邱ƂӖĂ܂B @@ƂAint[1.3] 1 ɂȂ܂B ܂Aint[-1.3] -1 ɂȂ܂B @ MJD = int[365.25 * y] + int[y / 400] - int[y / 100] @ + int[30.59 * (m - 2)] + d - 678912
@̕ϊ2000N11߂̏EXvZĂ݂܂B
@ 2000N11߂́Ay = 2000 - 1A m = 1 + 12Ad = 1 ߂܂ł 12ԂɂȂ܂B
Ԃׂ͂ d ɂ܂B12Ԃ͔Ȃ킿0.5łB
ŁAy, m, d ƁAy = 1999, m = 13, d = 1.5 ̂悤ɂȂ܂B
ϊɑ܂B
MJD = int[365.25 * 1999] + int[1999 / 400] - int[1999 / 100] + int[30.59 * (13 - 2)] + 1.5 - 678912 = int[730134.75] + [4.9975] - int[19.99] + int[336.49] - 678910.5 = 730134 + 4 - 19 + 336 - 678910.5 = 51544.5
@㎮A2000N11߂̏EX 51544.5Ƃċ܂܂B EXɂꍇ́A2400000.5 𑫂悢̂ŁA2451545ɂȂ܂B
あなたが妊娠している脂性肌?
@OSI̗pȑÕEX̔NEXɕϊ̂͊ȒPłA ꂢBCAD̕sÂߎ̂悤ȓʂɂȂ܂B
@IO(BCG y 0ĵƂ @MJD = int[365.25 * y] + int[30.59 * (m - 2)] + d - 678914
@ǂ́AEX̊Jn̋IO4713N(-4712N)11߂ EXvZĂ݂܂B
@y = -4712 - 1, m = 1 + 12, d = 1 + 0.5 y = -4713, m = 13, d = 1.5 ɑ MJD = int[365.25 * -4713] + int[30.59 * (13 - 2)] + 1.5 - 678915 = int[-1721423.25] + int[336.49] - 678913.5 @ = -1721423 + 336 - 678913.5 = -2400000.5 @
@IO4713N11߂̏EX-2400000.5Ƃċ܂܂B EXɂɂ2400000.5𑫂悢̂ŁA0.0ƂȂ܂B EX-2400000.5Ƃ́A1858N11170̓ttɂǂ 24012ԑO̓ɂɂȂ܂B
E
@E(Universal Time; UTj͒n̎](23564b)ƂɌvZ łBE͓o0xɂ̂œo135xɂ{W(Japanese Standard Time; JST)9Ԑił܂B
"正の場合は、妊娠テストが間違っている可能性があります。"
UT = JST - 9 @ȂȂA 360x / 24 15x / 1ԁG@135/15 9@@ȂAV̗ł͐v⌴qv̎gpɂĒn̎]xłȂƂ ẮAnz̎]vZ鎞g悤ɂȂ܂B ͒n̎]An̑zɑ]̕ϒl̂ق肵Ă邩 łB̎n͗\(Ephemeris Time; ET)Ƃ1960Ng悤ɂȂ܂B
@ȂA1984N琢E̓V̗͗\Ȃ͊w(Dynamical Time; TD)g 悤ɂȂĂ܂B
@@@@ET = UT + T @@@@T́AV̊ϑŋ߂܂B@݂̓̎͋萢E(Coordinated Universal Time; UTC)gĂ܂B ͌qvŌv鎞łB萢E1b͌q1błn]̍P vZŌ܂鐢EƂ̍0.9bȓɂ܂悤Ɂu邤bvĂ܂B
@ŁA݂̓{WƋ萢Ê悤ȊWĂ܂B
JST = UTC + 9@ NbN֖߂
̕ύX
@[}cWAXEV[U[(Julius Caesar; EXEJGT)̐肵 EX͑zN(1AN)365.25ƂāAɊÂĕN365Ƃ܂B ĖN0.25Ȃ킿1/4܂̂ŁA4Nڂ1₵āu邤Nv Ƃ܂B
@ۂ̑zN(PAN)͖365.2422ł̂ŁAEX͖N0.25Ɩ0.2422 ł0.0078]ɗ^ĂƂɂȂ܂B͎ԂɊZ 1115błÂł͖N1115bt߂邱ƂɂȂ܂B ꂪςς16ȈIɂ͖10ɂȂ܂B̖P0ɂ 邽߂Ƀ[}@OSIP31582N104EXŏIƂāA ̗15ɂ邱Ƃz܂B1582N1015OSI Ȃ̂łBȂA̕z͋̂1582N224ɔ\ꂽƂ łB
@ۂ̃[}@OSIP3̕ẑ͎悤Ȃ̂łB
iPj32Pt̓Ƃ邽߂ɁA1582NP04̎̓P015ƂB
iQjzNƗ̂PN萳mɈv悤ɐN4ŊN[(邤) ƂBA100Ŋ400ŊȂN͕NƂB(ȔN\ǖ{j
@źiPjŏt̓ɂĂ̂́AC[X^[iہj̓߂ ߂łBC[X^[͏t̓ȌɁAŏɖɂȂȌ̍ŏ̓j ƌ߂Ă܂BāAt̓Ƃ325NɃjPA(jJCA)ŊJꂽ@c ŋ̂R2Pł̂AL̗RłR11ɂȂĂ܂Ƃ ̂łBȂAƂ̓EXƃ_(Az)̂ Ă܂B
@źiQj͕ɂ̂ŁÂ悤Ɏl̏ɕĂ݂܂B
@A. 4ŊȂN͂邤NłȂB B. 4ŊN͂邤NłB C. 100ŊN͂邤NłȂB D. 400ŊN͂邤NłB@A, B, C, D̏́Ȃgݍ킹邱Ƃ܂B @2000NC̏100Ŋ̂ł邤NłȂ悤łA D̏Ȃ400Ŋ̂ł邤N̂悤łB
@D, C, B, A ̏ɏKpĂ̂łBZĊ Ƃ͗]肪[ƂƂłBfƂvOŕziQj \Ǝ̂悤ɂȂ܂BȂAvOɂ͗]߂鉉Zq ƂāAmod Ƃ % ܂B
Lisp ŕ\Ǝ̂悤ɂȂ܂B @@ @(cond (((zerop (mod year 400)) '邤Nł) ((zerop (mod year 100)) '邤NłȂ) ((zerop (mod year 4)) '邤Nł) (t '邤NłȂ))) C, Perl, Javaňŕ\Ǝ̂悤ɂȂ܂B @if ($year % 400 == 0) { print("邤Nł"); } elseif ($year % 100 == 0) { print("邤NłȂ"); @} elseif ($year % 4 == 0) { print("邤Nł"); } else { print("邤NłȂ"); }@ AƏB̓EXō̗pĂ܂BȂ炱ł͐ݓI ɂ𑝂₵Ă̂ŏCŖ100NɂP炷킯łB̏ ł͏ɂ炵X̂ŏD400NɂP₷悤ɂ Ă̂łB̏ł悻ON͗LȗɂȂ悤łB NbN֖߂
int[-1.3] -1
@vO~Oɂint[ ]̂܂gƁA int[-1.3]͐Ӗ̂ -2 ɂȂ܂܂B()
| | | @ŁAMJD ̕ϊvOƂ́Aint[-1.3] Ȃǂ -int[1.3]̂悤ɂĂvZKv܂B@Common LispȂǂłtruncateĝōŏ̕Ԃl̗p悢ƂɂȂ܂B
(truncate 1.3) ==> 1
NbN֖߂
(truncate -1.3) ==> -1
萯p̖ڎ֖߂
0 件のコメント:
コメントを投稿