소개

tl; dr

지구에서 태양까지의 현재 거리를 지속적으로 출력합니다.

간단히 말해, 태양 주위의 지구 궤도는 타원입니다. 따라서 둘 사이의 실제 거리는 지속적으로 변합니다. 이 거리는 다음 공식을 사용하여 주어진 날짜에 대해 계산할 수 있습니다 .

방정식은 다음의 부분으로 분할 될 수있다 ² :

• 11AU (천문 단위)를 나타내며149,597,870.691 km
• 0.01672지구와 태양 사이 의 궤도 편심
• cos물론 코사인 함수 이지만 라디안 대신 각도로 인수를 사용합니다.
• 0.9856인 360 ° / 365.256363 일 , 일년에 전체 회전, 365.256363평균 태양 일 항성 년의 길이,
• day 올해의 날이다 [1-365]
• 4perihelion 의 오프셋을 나타냅니다. 1 월 4 일에서 6 일 사이입니다.

공식은 하루 종일 걸리지 만이 도전의 목적을 위해 – 지속적인 결과물 –보다 정확해야합니다. 아니면 다음날까지 아무 일도 일어나지 않을 것입니다. 현재 시간에 과거 시간의 백분율을 ¹ 과 같이 간단히 추가하십시오 .

day + (h * 3600 + m * 60 + s) / 864 / 100

몇 가지 예 :

• 1 월 1 일 23:59:59 1.99998842592593
• 1 월 1 일 18:00:00 1.75
• 1 월 1 일 12:00:00 1.50
• 1 월 1 일 06:00:00 1.25

입력

이 도전에는 아무런 입력이 없습니다.

언어가 현재 시간을 얻지 못하면 프로그램의 입력으로 얻을 수 있습니다. 유효한 입력은 언어에 가장 적합한 타임 스탬프 또는 완전한 날짜-시간 문자열 입니다. 현재 날짜 만 전달 ( 51 월 5 일 또는5.25 같은 날 6시) 전달하는 것은 허용되지 않습니다.

산출

지구에서 태양까지의 현재 거리를 출력합니다.

• 의 값을 출력하십시오 km.
• 최소한 1 초마다 값 을 업데이트하십시오 .

출력 예 :

152098342

바이트 수가 증가하지 않으면 결과를 예쁘게 인쇄 할 수도 있습니다.

152,098,342
152,098,342 km

요구 사항

• 프로그램이나 함수를 작성할 수 있습니다. 익명 함수 인 경우 호출 방법의 예를 포함하십시오.
• 이것은 코드 골프 이므로 바이트 단위의 최단 답변이 승리합니다.
• 표준 허점은 허용되지 않습니다.

구현 예

JavaScript로 구현 예제를 준비했습니다. 경쟁력도없고 골프도 아닙니다.

// dayOfYear from http://stackoverflow.com/a/8620357/1456376
Date.prototype.dayOfYear = function() {
    var j1= new Date(this);
    j1.setMonth(0, 0);
    return Math.round((this-j1)/8.64e7);
}

// vars
var e = document.getElementById('view'),
    au = 149597870.691,
    deg2rad = Math.PI/180,
    date = now = value = null;

// actual logic
function calculate() {
    date = new Date();
    now = date.dayOfYear() + (date.getHours() * 3600 + date.getMinutes() * 60 + date.getSeconds()) / 864 / 100;
    value = 1 - 0.01672 * Math.cos(deg2rad * 0.9856 * (now - 4));
    // supported in Firefox and Chrome, unfortunately not in Safari
    e.innerHTML = Math.round(value * au).toLocaleString('en-US') + ' km';

    setTimeout(calculate, 1000);
}

// let's do this
calculate();

<div id="view"></div>

_{¹ 불합리하게 복잡성을 증가시키지 않기 위해 현지 시간을 UTC로 변환하지 않아도됩니다. UTC를 사용하는 경우 답변에 메모를 추가하십시오.}

_{² 자세한 내용은 물리 에서 " 일년의 지구-태양 거리 "를 참조하십시오.}

TI-BASIC, 38 바이트

Disp 25018086(59.8086-cos(5022635.4⁻¹checkTmr(83761
prgmA

TI-84 + 시리즈 계산기 용. 이 이름을 지정하십시오 prgmA. 이것은 수천 번의 반복 후에 스택을 오버플로합니다. While 1:...:End이것이 2 바이트의 여분의 문제인 경우 대신 사용하십시오 .

이것은 1997 년 1 월 1 일 23시 16 분 UTC에 perihelion을 사용하며 향후 몇 년 동안 수십 킬로미터 (정확도 약 7 자리) 이내로 정확합니다.

자바- -185180 바이트

static void d(){while(true){System.err.println(149597870.691*(1-.01672*Math.cos(Math.toRadians(.9856*(Calendar.getInstance().get(6)+LocalTime.now().toSecondOfDay()/8.64e4-4)))));}}

이것은 하루에 86,400 초가 있으며 GMT가 아닌 현지 시간을 사용한다는 사실을 사용합니다. 초당 1 회 이상 출력됩니다. import 문이 바이트 수에 포함되어야하는지 확실하지 않습니다.

1 초 지연을 포함하려면 약 26 바이트가 추가됩니다.

static void d(){try{while(true){System.err.println(149597870.691*((1-.01672*Math.cos(Math.toRadians(.9856*(Calendar.getInstance().get(6)+LocalTime.now().toSecondOfDay()/8.64e4-4)))));Thread.sleep(1000L);}}catch(Exception e){}}

자바는 가장 골프 가능한 언어가 아닙니다. :)

@insertusername으로 인해 몇 바이트가 제거되었습니다.

파이썬, 101 바이트

import time,math
a=149597870.691
while 1:print(a-a*.01672*math.cos((time.time()-345600)/5022635.53))

345600 = 4 * 24 * 3600 (4 일)

5022635.53 ≌ (365.256363 * 24 * 3600) / (2π) (초 / 2π)

Bash / coreutils / bc, 101 바이트

#!/bin/bash
bc -l <<<"149597870.691*(1-.01672*c((`date +%s`-`date -d 4-Jan +%s`)/5022635.5296))"
sleep .5
exec $0

1 월 4 일부터의 오프셋을 초 단위로 계산하므로 해당 상수를 사용하여 라디안으로 변환합니다. 반년은 대략 pi로 변환됩니다.

$ bc -l <<<"(365.256363/2*86400)/5022635.5296"
3.14159265361957033371

나머지 계산은 문제와 직결됩니다.

F #, 178 바이트

open System
Seq.initInfinite(fun _->
let n=DateTime.Now
(1.-0.01672*Math.Cos(0.0172*((n-DateTime.Today).TotalDays+float(n.DayOfYear-4))))*149597870.691)|>Seq.iter(printfn"%f")

이것은 F # Interactive에서 잘 실행되는 F # 스크립트입니다. 간단히하기 위해 "연속 출력"요구 사항은 리터럴 수준으로 설정되었지만, 매번 반복 할 때마다 출력을 새 줄에 인쇄하여 너무 나쁘지 않도록 바이트를 잃어 버렸습니다 . = P

언 골프하고 설명 :

Seq.initInfinite (fun _ ->            // Create an infinite sequence, with each element being defined by the following function
    let n = DateTime.Now
    let dayOffset = n.DayOfYear - 4   // Day of year returns the day as a number between 1 and 366
    let today = n - DateTime.Today    // Extract the current day, so the hours, minutes and all
    let partialDay = today.TotalDays  // Get the value of 'today' as a floating point number of days
                                      // so between 0 and 1 in this case - exactly what I needed
    // And now, the formula - note that 0.9856 has been combined with the conversion from degrees to radians, giving 0.0172
    (1. - 0.01672 * Math.Cos (0.0172 * (partialDay + float dayOffset))) * 149597870.691
)
|> Seq.iter (fun i -> printfn "%f" i) // For each of the (infinity of) numbers, print it

수학, 97 바이트

Dynamic[1496*^5-2501*^3Cos[.9856#&@@Now~DateDifference~{DateValue@"Year",1,4}],UpdateInterval->1]

설명

{DateValue@"Year",1,5}올해 1 월 5 일을 나타내고 ...~DateDifference~...시간적 거리를 제공합니다.

Dynamic[...,UpdateInterval->1] 초당 한 번 식을 업데이트하십시오.

Pyth, 51 바이트

#*149597870.691-1*.01672.t*c-.dZ86400 31558149*2.nZ1

대체 공식

d / AU = 1-0.01672 cos (2π [perihelion 이후의 시간] / [궤도 기간])
이 공식은 기준일로 모든 perihelion을 사용할 수 있도록 일반화되는 것을 제외하고는 OP의 공식과 본질적으로 동일합니다.

OP의 공식은 [perihelion 이후의 시간]을 (day-4)로, (2π rad / [orbital period])를 0.9856deg / day로 미리 계산했습니다.

내 솔루션에서 나는 유닉스 시대, 2에 가장 가까운 근일점 사용하고 ^ND 년 1 월 1970.

코드

파이썬 의사 코드로 수동 컴파일 :

#                        while 1:
  *149597870.691             print( 149597870.691 * (                 # implicit print
    -1                           1 - (
      *.01672                        0.1672 * (
        .t                               trigo(
          *                                  multiply(
            c                                    divide(
              -.dZ86400                              unixTime-86400,
              31558149                               31558149
                                                 ),
            *2.nZ                                2*pi
                                             ),
          1                                  1                        # 1 means cos
                             )))))

이것은 본질적으로 다음 공식을 코드로 바꾸는 것입니다.
d = (1-0.01672 cos (2π (t-86400) / 31558149)) * 149597870.691
여기서 t는 유닉스 시간입니다.

파이썬 2.4-158 바이트

import time,math
while 1:t=time.localtime();print(int(149597870.691*(1-.01672*math.cos(math.radians(.9856*(t[7]+(t[3]*3600+t[4]*60+t[5])/864.0/100.0-4))))))

현지 시간을 가지고 거리를 내뿜습니다. time.localtime ()은 튜플을 반환하며 여기에서 참조 할 수 있습니다 .

C, 338

#include <stdio.h>
#include <time.h>
#include <math.h>
int main ()
{
  time_t rt;
  struct tm * ti;
  while(1) {
  time(&rt);
  ti = localtime(&rt);
  double d = 1.0 - .01672*cos(0.0174533 * .9856*((ti->tm_yday + (ti->tm_hour * 3600.0 + ti->tm_mday * 60.0 + ti->tm_sec) / 86400.0) - 4));
  printf ("%f\n", d * 149598000.0);}
}