मैं बस (हक) स्वीकार किए जाते हैं जवाब देने के लिए एक पूरक के रूप में एक वास्तविक अनुकरण बाहर ले जाने के लिए चाहते थे । हालांकि आर में, कोड इतना आसान है (छद्म) - छद्म कोड। स्वीकार किए जाते हैं जवाब और अन्य में Wolfram MathWorld formula के बीच
एक छोटे अंतर, शायद अधिक आम, समीकरणों तथ्य यह है कि बिजली कानून प्रतिपादकn
(जो आमतौर पर अल्फा के रूप में निरूपित किया जाता है) एक स्पष्ट ऋणात्मक चिह्न नहीं होता है। तो चुना गया अल्फा मान नकारात्मक होना चाहिए, और आम तौर पर 2 और 3.
x0
और x1
वितरण की निचली और ऊपरी सीमाओं के लिए खड़ा होना चाहिए।
तो यहाँ यह है:
x1 = 5 # Maximum value
x0 = 0.1 # It can't be zero; otherwise X^0^(neg) is 1/0.
alpha = -2.5 # It has to be negative.
y = runif(1e5) # Number of samples
x = ((x1^(alpha+1) - x0^(alpha+1))*y + x0^(alpha+1))^(1/(alpha+1))
hist(x, prob = T, breaks=40, ylim=c(0,10), xlim=c(0,1.2), border=F,
col="yellowgreen", main="Power law density")
lines(density(x), col="chocolate", lwd=1)
lines(density(x, adjust=2), lty="dotted", col="darkblue", lwd=2)
या लघुगणकीय पैमाने में साजिश रची:
012,351:
h = hist(x, prob=T, breaks=40, plot=F)
plot(h$count, log="xy", type='l', lwd=1, lend=2,
xlab="", ylab="", main="Density in logarithmic scale")
यहां डेटा के सारांश है
> summary(x)
Min. 1st Qu. Median Mean 3rd Qu. Max.
0.1000 0.1208 0.1584 0.2590 0.2511 4.9388
क्या यह कार्य 0 और अनंतता के समय काम करता है? – Peaceful
छोटे अतिरिक्त विवरण: ** वाई ** [0,1] रेंज में एक समान भिन्नता है। –
dmckee का उत्तर गायब संदर्भ प्रदान करता है जो वोल्फ्राम आलेख में व्युत्पन्न को समझने के लिए जरूरी है। – SigmaX