BenfordBroad.png (500 × 165 像素,檔案大小:3 KB,MIME 類型:image/png


摘要

描述
English: A broad probability distribution on a log scale, with bars colored in to show why Benford's law holds
來源 自己的作品
作者 Sbyrnes321
本圖片是以PNG、GIF或JPEG格式上傳。然而,其中包含的資料或訊息,應該重新建立成可縮放向量圖形SVG)檔案,以更有效率或更準確的方式儲存。如有可能,請上傳本圖片的SVG格式版本。在上傳之後,請修改維基各姊妹計畫中所有使用舊版圖片的條目(列在圖像連結章節中),替換為新版圖片,並在舊圖片的描述頁中加入{{Vector version available|新圖片名稱.svg}}模板,同時移除本模板。

授權條款

Public domain 我,此作品的版權所有人,釋出此作品至公共領域。此授權條款在全世界均適用。
這可能在某些國家不合法,如果是的話:
我授予任何人有權利使用此作品於任何用途,除受法律約束外,不受任何限制。
(* Source code written in Mathematica 6.0, by Steve Byrnes, 2008. I release this code into the public domain. *)

LabelsList = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 30, 40, 50, 70, 100, 200, 300, 500, 1000, 2000, 5000, 10000};
LineList = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 200, 300, 400, 500, 600,
   700, 800, 900, 1000, 2000, 3000, 4000, 5000, 6000, 7000, 8000, 9000, 10000};

ff[x_] := 
  x Exp[-.1 x] .1 + x Exp[-.03 x] .03 +  x Exp[-.01 x] .01 + 
   x Exp[-.003 x] .003 + x Exp[-.001 x] .001 + x Exp[-.0003 x] .0003;

firstdig1[xx_] :=
  (1 < xx && xx < 2) || (10 < xx && xx < 20) || (100 < xx && xx < 200) || (1000 < xx && xx < 2000);
firstdig8[xx_] :=
  (8 < xx && xx < 9) || (80 < xx && xx < 90) || (800 < xx && xx < 900) || (8000 < xx && xx < 9000);

plotA = LogLinearPlot[{ff[x], If[firstdig1[x], ff[x], 0], If[firstdig8[x], ff[x], 0]}, {x, .99, 10100}, 
  Ticks -> {LabelsList, {}}, PlotRange -> {0, 1}, TicksStyle -> Directive[Black, 10],
  GridLines -> {LineList, {}}, ImageSize -> 401, AspectRatio -> .3,
  Filling -> {2 -> Bottom, 3 -> Bottom}, PlotPoints -> 1000, PlotStyle -> {Black, Red, Blue}, 
  FillingStyle -> {2 -> Red, 3 -> Blue}]

Export["plotA.gif", plotA, ImageSize -> 500]

原始上傳日誌

日期/時間 尺寸 使用者 備⁠註
2008年10月9日, 04:44:33 500 × 165 (18087 bytes) Sbyrnes321 (留言 · 貢獻) {{Information |Description={{en|1=A broad probability distribution on a log scale, with bars colored in to show why Benford's law holds}} |Source=Own work by uploader |Author=[[User:Sbyrnes321|Sbyrnes321]] |Date= |Permission= |other_versions= }} <!--{{Im

說明

添加單行說明來描述出檔案所代表的內容

在此檔案描寫的項目

描繪內容

檔案來源 Chinese (Taiwan) (已轉換拼寫)

30739a93beb8f8604bc0fa8e983084f58967ec48

斷定方法:​SHA-1 中文 (已轉換拼寫)

3,471 位元組

165 像素

500 像素

檔案歷史

點選日期/時間以檢視該時間的檔案版本。

日期/時間縮⁠圖尺寸使用者備⁠註
目前2014年8月24日 (日) 02:10於 2014年8月24日 (日) 02:10 版本的縮圖500 × 165(3 KB)GifTaggerBot: Converting file to superior PNG file. (Source: BenfordBroad.gif). This GIF was problematic due to non-greyscale color table.

下列頁面有用到此檔案:

全域檔案使用狀況

以下其他 wiki 使用了這個檔案: