MC simülasyonunu kullanarak aşağıdaki integrali nasıl yaklaştırabilirim?
Teşekkürler!
Düzenleme (Bazı bağlamlar): Simülasyonun integralleri yaklaşık olarak nasıl kullanacağımı öğrenmeye çalışıyorum ve bazı zorluklarla karşılaştığımda bazı alıştırmalar yapıyorum.
Edit 2 + 3 : Bir şekilde kafam karıştı ve integrali ayrı parçalara bölmem gerektiğini düşündüm. Yani, aslında anladım:
n <- 15000
x <- runif(n, min=-1, max=1)
y <- runif(n, min=-1, max=1)
mean(4*abs(x-y))
2
Doğru yoldasın! Verdiğiniz cevap doğru olmaya çok yakın. Küçük bir parçanýz eksik. ( İpucu : rastgele değişkenin pdf dosyası nedir ?
—
kardinal
0.5. Bu yüzden vermek için iki 2 ile çarpmalıyım: 'mean (4 * abs (xy))'. Sonunda anladım mı?
—
Benim Adım
(+1) Evet ! :) Birkaç (8?) Saat beklemek zorunda kalabilirsiniz, ancak geri dönüp düzenlemenizi bir yanıtın içine yerleştirmeyi düşünmelisiniz, böylece diğer kullanıcılar (benim gibi) oyunuzu yükseltebilir. Siteye Hoşgeldiniz! Umarım buraya katılmaya devam edersin. Şerefe. :)
—
kardinal
İlgilenen R için, Karl tarafından yayınlanan maksimum kod kadar zarif olmasa da,
—
NRH
integrate(Vectorize(function(y) integrate(function(x) abs(x-y), -1, 1)$value), -1, 1)
sayısal bir yaklaşım yapılabilir ve elde edilebilir . Kullanılması cubature paketi adaptIntegrate(function(x) abs(x[1] - x[2]), c(-1, -1), c(1, 1))
kullanılabilir. Bu, örneğin bir simülasyonun doğru çalışıp çalışmadığını test ederken, kullanışlı olabilecek integrallerin sayısal değerlendirmesi için birkaç fikir vermek içindir.