Golf Fungsi Gamma

17

Diberikan bilangan real tdalam (-10^9,13)(tidak termasuk -10^9atau 13) sebagai input, output Γ(t), juga dikenal sebagai fungsi Gamma , yang didefinisikan sebagai berikut:

definisi fungsi gamma

Anda tidak boleh menggunakan fungsi Gamma bawaan untuk menyelesaikan tugas ini, Anda juga tidak dapat menggunakan fungsi integrasi numerik atau simbolik bawaan. Output Anda harus akurat hingga 6 angka signifikan atau di dalam 10^-6nilai aktual, mana yang kurang membatasi untuk nilai yang diberikan. Fungsi Gamma bawaan Python akan digunakan untuk menentukan nilai aktual. Anda dapat mengasumsikan Γ(t)didefinisikan - yaitu, tbilangan real positif atau bilangan real negatif non-integer - dan itu |Γ(t)| ≤ 10^9. Berikut adalah program referensi yang dapat Anda gunakan untuk mendapatkan nilai aktual, menggunakan fungsi Gamma bawaan Python.

Contohnya

1 -> 1.000000
-2.5 -> -0.945309
3.14159265 -> 2.288038
-2.71828182846 -> -0.952682
12 -> 39916800.000000
0.5 -> 1.772454
8.675309 -> 20248.386956
-10.1 -> -0.000002

Aturan

  • Ini adalah , jadi jawaban tersingkat (dalam byte) menang.
  • Celah standar dilarang.
  • Input dan output dapat dilakukan dengan cara apa pun yang dianggap standar untuk bahasa Anda.
  • Anda dapat menulis program lengkap, fungsi, atau apa pun yang biasanya dianggap sebagai jawaban yang valid untuk bahasa Anda

Papan peringkat

Cuplikan Stack di bagian bawah posting ini menghasilkan leaderboard dari jawaban a) sebagai daftar solusi terpendek per bahasa dan b) sebagai leaderboard keseluruhan.

Untuk memastikan bahwa jawaban Anda muncul, silakan mulai jawaban Anda dengan tajuk utama, menggunakan templat Penurunan harga berikut:

## Language Name, N bytes

di mana Nukuran kiriman Anda. Jika Anda meningkatkan skor Anda, Anda dapat menyimpan skor lama di headline, dengan mencoretnya. Contohnya:

## Ruby, <s>104</s> <s>101</s> 96 bytes

Jika Anda ingin memasukkan beberapa angka dalam tajuk Anda (mis. Karena skor Anda adalah jumlah dari dua file atau Anda ingin membuat daftar hukuman penterjemah secara terpisah), pastikan bahwa skor sebenarnya adalah angka terakhir di tajuk:

## Perl, 43 + 2 (-p flag) = 45 bytes

Anda juga dapat membuat nama bahasa menjadi tautan yang kemudian akan muncul di cuplikan:

## [><>](http://esolangs.org/wiki/Fish), 121 bytes

Mego
sumber
1
Harap berikan batasan eksplisit untuk t sehingga | gamma (t) | <10 ^ 9
flawr
Tautan ini bukan implementasi referensi, ...
sergiol
@sergiol Memesan ulang itu
Mego

Jawaban:

2

Pyth, 21 byte

Seperti dengan jawaban TI-BASIC saya, saya belum dapat menguji ini dengan iterasi 8 ^ 10 penuh, tetapi semuanya tampak baik dengan kasus yang lebih kecil.

cu*Gc^hc1HQhcQHS^8T1Q

Penjelasan:

                            [implicit: Q=input]
                ^8T         8**10
               S^8T         [1,2,3,...,8**10]
  *Gc^hc1HQhcQH             lambda G,H:G*(1+1/H)**Q/(1+Q/H)
                   1        Base case
 u*Gc^hc1HQhcQHS^8T1        Reduce with base case 1
c                   Q       Divide by Q

Coba di sini dengan 2000 iterasi bukan 8 ^ 10.

lirtosiast
sumber
10

C ++ 14, 86 85 81 byte

[](auto t){auto v=1.;for(int x=1;x<1e9;++x)v*=pow(1+1./x,t)/(1+t/x);return v/t;};

Saya tidak menghabiskan banyak waktu untuk yang satu ini. Saya hanya melihat perkiraan yang tampaknya paling mudah untuk diterapkan (dalam cara byte). Diperlukan waktu untuk menghitung nilai (karena loop adalah semua bilangan bulat positif), tetapi batasan waktu tidak ditentukan dalam tantangan. Ini adalah fungsi anonim (lambda), yang mengambil argumen apa pun (dapat dikonversi ke Tmana pow(double, T)dan operator/(T,int)dapat dipanggil) dan kembali double.

Tidak digabungkan dengan penggunaan

#include <iostream>
int main()
{
    auto r = [](auto t)
    {
        auto v = 1.;
        for (int x = 1; x < 1e9; ++x)
            v *= pow(1 + 1. / x, t) / (1 + t / x);
        return v / t;
    };
    std::cout << r(-2.71828182846); // outputs -0.952682
}
Zereges
sumber
@Mego Tentu saja! Terima kasih.
Zereges
Jadi berapa nilai yang Anda dapatkan untuk -10 ^ 9 dan untuk 10 ^ 9? Pertama-tama saya ingin tahu seberapa baik barang-barang Anda bekerja sebelum Anda mendapat dukungan saya.
flawr
@Mego Microsoft compiler tidak memerlukan keduanya termasuk.
Zereges
@MegoMicrosoft (R) C/C++ Optimizing Compiler Version 19.00.23026 for x86
Zereges
@ flawr, program Mine menghasilkan 0 untuk gamma(-10e9)tetapi OP menyatakan, bahwa hanya parameter, yang fungsi gamma-nya didefinisikan, dapat dipertimbangkan. gamma(10e9)kembali inf, sementara fungsi GammaOverflowError: math range error
bawaan
7

Minkolang 0,12 , 35 34 25 byte

n$zl8;dz;z$:r[i1+dz+$:*]N

Ini berhenti dengan kesalahan (saat mencoba untuk membagi dengan 0), tetapi itu diperbolehkan sesuai dengan konsensus Meta . Tambahkan a .di akhir untuk program yang berhenti secara normal. Coba semua test case sekaligus. (Loop hanya mengulang 1e4 kali sehingga akan selesai lebih cepat daripada nanti.)

Penjelasan

Zereges menggunakan salah satu alternatif, definisi produk tanpa batas . Ternyata, yang lain jauh lebih setuju untuk diterapkan di Minkolang.

Formulasi alternatif Euler tentang fungsi gamma

Ini adalah batas nsampai tak terhingga, yang berarti bahwa saya dapat menghitung keduanya n!dan (t+n)saat saya pergi. Jadi saya mengambil 1/t(karena 0!=1) dan n^tkarena itu seseorang tidak dapat dihitung secara berurutan tanpa mengetahui nilai akhir dari n. Seperti yang terjadi, karena nbatasnya, saya bisa menggunakannya dua kali. Sekali sebagai faktor dalam perhitungan dan sekali sebagai jumlah kali menjalankan loop.

Produk tak berurutan berurutan harus dimulai dengan sesuatu, biasanya 1. Dalam hal ini, itu n^t/t. Dalam tubuh loop, saya menghitung k/(t+k)dan melipatgandakannya dengan produk sejauh ini. Pada akhirnya, seluruh produk telah dihitung dan diproduksi. Ini pada dasarnya adalah apa yang program saya lakukan, dengan njawaban yang cukup tinggi cukup tepat.

versi meledak dari produk tak terbatas

n                            Take number from input
 $z                          Store it in the register (this is t; retrieved with z)
   l8;                       10^8 (this is n, the limit)
      d                      n,n
       z;                    n,n^t
         z$:                 n,n^t/t
            r                Reverse stack -> n^t/t,n
             [               For loop that runs n times
              i1+            k
                 d           k,k
                  z+         k,t+k
                    $:       k/(t+k)
                      *      Multiply
                       ]N    Close for loop and output as integer

Karena tidak ada ., ia membungkus dan memulai kembali. Namun, nsekarang menghasilkan -1karena input kosong, yang pada akhirnya mengarah pada upaya untuk membagi dengan 0, yang menghentikan program.

El'endia Starman
sumber
5

Julia, 141 byte

z->(z-=1;a=90;c(k)=(k=big(k);(-1)^(k-1)/factorial(k-1)*(a-k)^(k-.5)*exp(a-k));(z+a)^(z+.5)*exp(-z-a)*(√(2π)+sum([c(k)/(z+k)for k=1:a-1])))

Ini menciptakan fungsi lambda tanpa nama yang menerima bilangan real dan mengembalikan bilangan real. Ia menggunakan perkiraan Spounge untuk menghitung Gamma.

Tidak Disatukan:

function Γ(z::Real)
    # Spounge's approxmation is for Γ(z+1), so subtract 1
    z -= 1

    # Choose a number for the constant a, which determines the
    # bound on the error
    a = 90

    # Define a function for the sequence c_k
    function c(k::Integer)
        # Convert k to a BigInt
        k = big(k)
        return (-1)^(k-1) / factorial(k-1) * (a-k)^(k-1/2) * exp(a-k)
    end

    # Compute the approximation
    return (z+a)^(z+1/2) * exp(-z-a) * (√(2π) + sum([c(k)/(z+k) for k=1:a-1]))
end
Alex A.
sumber
Golf sangat, sangat terlambat, tetapi z->(z-=1;a=90;c(k)=(k=big(k);(-1)^~-k/factorial(k-1)*(a-k)^(k-.5)*exp(a-k));(z+a)^(z+.5)*exp(-z-a)*(√(2π)+sum(c(k)/(z+k)for k=1:a-1)))harus bekerja untuk 137 byte (setidaknya dalam Julia 0,6)
Tn. Xcoder
3

Japt, 45 byte

Japt adalah versi singkat dari Ja vaScri pt . Penerjemah

$for(V=X=1;X<1e9;)$V*=(1+1/X pU /(1+U/X++;V/U

Tentu saja, 1e9 = 1.000.000.000 iterasi berlangsung selamanya, jadi untuk pengujian, coba ganti 9dengan a 6. (1e6 akurat hingga ~ 5 angka signifikan. Menggunakan 1e8 pada input 12sudah cukup untuk mendapatkan enam angka pertama.)

Hasil uji kasus: (menggunakan presisi 1e7)

       1:  1
    -2.5: -0.9453083...
      pi:  2.2880370...
      -e: -0.9526812...
      12:  39916536.5...
     0.5:  1.7724538...
8.675309:  20248.319...
   -10.1: -0.0000022...

Bagaimana itu bekerja

         // Implicit: U = input number
$for(    // Ordinary for loop.
V=X=1;   //  Set V and X to 1.
X<1e9;)$ //  Repeat while X is less than 1e9.
V*=      // Multiply V by:
(1+1/X   //  1 plus (1 over X),
pU /     //  to the power of U, divided by
(1+U/X++ //  1 plus (U over X). Increment X by 1.
;V/U     // Output the result of (V over U).
Produksi ETH
sumber
3

TI-BASIC, 35 byte

Input Z
1
For(I,1,ᴇ9
Ans(1+I⁻¹)^Z/(1+Z/I
End
Ans/Z

Ini menggunakan algoritma yang sama dengan Zereges.

Peringatan: Saya belum benar-benar menguji ini dengan iterasi 1e9 penuh; berdasarkan waktu yang diambil untuk nilai yang lebih kecil, saya berharap runtime berada di urutan bulan . Namun, tampaknya konvergen, dan seharusnya tidak ada masalah dengan kesalahan pembulatan. TI menyimpan angka sebagai mengambang desimal dengan 14 digit presisi.

lirtosiast
sumber
Anda tidak mengujinya ?!
TanMath
1
@TanMath saya mau, tapi saya perlu kalkulator saya untuk ujian akhir bulan depan.
lirtosiast
3

Python 3, 74 68 78 73 byte

Terima kasih @Mego dan @xnor

Ini adalah terjemahan dari jawaban C ++ oleh Zereges. Pada dasarnya, ini adalah definisi alternatif dari fungsi gamma, karenanya lebih akurat (dan yang hebat adalah yang menggunakan lebih sedikit byte!)

Saya minta maaf atas semua kesalahan!

def g(z,v=1):
 for i in range(1,10**9):v*=(1+1/i)**z/(1+z/i)
 return v/z
TanMath
sumber
1
Angka +1di kisaran tidak masalah ketika Anda berurusan dengan miliaran. Juga, Anda harus menentukan bahwa ini adalah Python 3 - Anda akan perlu from __future__ import divisionuntuk divisi float dan beberapa terabyte RAM untuk berurusan dengan fakta yang rangemengembalikan daftar dalam Python 2. Plus, Anda dapat mengganti 1.0s dengan 1s dan mencukur 4 byte.
Mego
2
@ TanMath: ^apakah xor, bukankah maksud Anda **tentang eksponensial?
jermenkoo
3
int(1e9)hanya 10**9, dan Anda tidak perlu orangtua di sekitar (1+1/i)**z.
xnor
3

Python, 348 448 407 390 389 byte

Terima kasih khusus kepada @Mego!

448 dicoret adalah (hampir) masih 448! : p

Ini didasarkan pada perkiraan Lanzcos. Golf dari sini

from cmath import*
C=[0.9999999999998099,676.5203681218851,-1259.1392167224028,771.3234287776531,-17‌6.6150291621406,12.507343278686905,-0.13857109526572012,9.984369578019572e-6,1.5‌​056327351493116e-7]
def g(z):
 z-=1;if z.real<0.5:return pi/(sin(pi*z)*gamma(1-z))
 else:
  x=C[0]
  for i in range(1,9):x+=C[i]/(z+i)
  t=z+7.5;return sqrt(2*pi)*t**(z+0.5)*exp(-t)*x
TanMath
sumber
1
Harap kirimkan kiriman Anda dengan, paling tidak, menghapus spasi putih (spasi sebelum dan sesudah - = dan import *sebagai contoh) dan menggunakan nama fungsi satu karakter. Perhatikan juga bahwa Anda hanya perlu mendukung input nyata.
lirtosiast
@ ThomasKwa saya sudah mengeditnya. Versi asli saya tidak berfungsi, ini versi yang lebih baru.
TanMath
@Mego diedit ...
TanMath
Ini menyebabkan kesalahan rekursi - hapus z-=1;di baris pertama gammauntuk memperbaikinya. Anda juga harus mengganti nama gammamenjadig untuk byte bytes dan untuk menghindari penamaan konflik dengan cmath.gamma. Juga jatuhkan nol terkemuka di luar.
Mego
1

Julia, 41 byte

x->prod([(1+1/i)^x/(1+x/i)for i=1:1E7])/x

Ini adalah terjemahan dari jawaban C ++ Zereges. Sementara jawaban Julia saya yang lain selesai secara instan, ini agak lambat. Itu menghitung kasus uji dalam beberapa detik masing-masing di komputer saya.

Tidak Disatukan:

function f(x::Real)
    prod([(1 + 1/i)^x / (1 + x/i) for i = 1:1E7]) / x
end
Alex A.
sumber
1

Prolog, 114 byte

Ini adalah terjemahan dari jawaban C ++ Zereges.

q(F,F,V,Z):-X is V/Z,write(X).
q(F,T,V,Z):-W is(1+1/F)**Z/(1+Z/F)*V,I is F+1,q(I,T,W,Z).
p(N):-q(1.0,1e9,1,N),!.

Cobalah online di sini
Jalankan dengan kueri formulir:

p(12).

Menjalankannya dengan rekursi 1e9 membutuhkan waktu sekitar 15 menit.
Jika Anda menguranginya menjadi 1e6 dibutuhkan sekitar 1 detik yang membuat lebih mudah (tetapi kurang akurat) pengujian.
Menjalankannya dalam juru bahasa di komputer / laptop Anda kemungkinan besar lebih cepat bagi kebanyakan orang juga.

Emigna
sumber
0

Mathematica, 40 byte

NProduct[(1+1/n)^#/(1+#/n),{n,1,∞}]/#&
alephalpha
sumber