Перейти на страницу файла на Викискладе

Файл:Binomial distribution cdf.svg

Материал из Википедии — свободной энциклопедии
Перейти к навигации Перейти к поиску

Исходный файл(SVG-файл, номинально 640 × 480 пкс, размер файла: 64 КБ)

Краткое описание

Описание Binomial distribution cumulative distribution function
Дата
Источник Собственная работа
Автор Tayste
SVG‑разработка
InfoField
 
Исходный код этого SVG-файла некорректен из-за 42 ошибок.
 
Это chart было создано с помощью R
 
 Этот файл использует встроенный текст, который можно легко перевести через текстовый редактор.
Исходный код
InfoField

R code

# R source code for Wikipedia SVG plot of Binomial CDF
# by de:User:Sigbert, Feb 2010
 
require("RSvgDevice")

create.binomial.cdf <- function(N, p, colour="black", pch=16) {
 n <- max(length(N),length(p),length(colour),length(pch))
 N <- rep(N,length=n); p <- rep(p,length=n)
 colour <- rep(colour,length=n); pch <- rep(pch,length=n) 

 add.one.series <- function(N, p, colour, pch, maxN) {
   cdf <- pbinom(0:N, N, p)
#   lines(0:N, cdf, type="s", col=colour)
   for (i in 1:N) lines (c(i-1,i), c(cdf[i], cdf[i]), type="s", col=colour)
   lines(c(N,maxN), c(1, 1), type="s", col=colour)
   points(0:N, cdf, col=colour, pch=pch)
 }
 
 par(lwd=1.5, cex=1, mar=c(3.1,2.5,0.5,0.5))
 plot(1, xlim=c(0,max(N)), ylim=c(0,1), type="n", xlab="", ylab="")
 for (i in 1:n)
   add.one.series(N[i],p[i],colour[i],pch[i], max(N))
   
 text = paste("p=",rev(p)," and N=",rev(N),sep="")
 legend(max(N), 0, legend=text, xjust=1, yjust=0,
   pch=rev(pch), lwd=rep(par("lwd"),3), col=rev(colour), y.intersp=1.5, bty="n")
}

devSVG("Binomial_distribution_cdf.svg",width=4,height=3)
create.binomial.cdf(c(40,20,20), c(0.5,0.7,0.5), c("red","green","blue"), c(20,15,18))
dev.off()

Лицензирование

Public domain Я, владелец авторских прав на это произведение, передаю его в общественное достояние. Это разрешение действует по всему миру.
В некоторых странах это не может быть возможно юридически, в таком случае:
Я даю право кому угодно использовать данное произведение в любых целях без каких-либо условий, за исключением таких условий, которые требуются по закону.

Краткие подписи

Добавьте однострочное описание того, что собой представляет этот файл

Элементы, изображённые на этом файле

изображённый объект

image/svg+xml

480 пиксель

640 пиксель

История файла

Нажмите на дату/время, чтобы посмотреть файл, который был загружен в тот момент.

Дата/времяМиниатюраРазмерыУчастникПримечание
текущий13:11, 13 мая 2010Миниатюра для версии от 13:11, 13 мая 2010640 × 480 (64 КБ)Meisterkochfinal fix
13:02, 13 мая 2010Миниатюра для версии от 13:02, 13 мая 2010289 × 217 (62 КБ)Meisterkochfix colours
12:48, 13 мая 2010Миниатюра для версии от 12:48, 13 мая 2010289 × 217 (40 КБ)Meisterkochchange colour coding
18:07, 12 февраля 2010Миниатюра для версии от 18:07, 12 февраля 20101052 × 744 (56 КБ)Meisterkochformat
18:04, 12 февраля 2010Миниатюра для версии от 18:04, 12 февраля 2010744 × 1052 (55 КБ)Meisterkochstep function, updated R-code
20:09, 1 марта 2008Миниатюра для версии от 20:09, 1 марта 2008434 × 289 (20 КБ)Tayste{{Information |Description=Binomial distribution cdf |Source=self-made |Date=2 Mar 2008 |Author= Tayste |Permission= |other_versions= }}

Следующая страница использует этот файл:

Глобальное использование файла

Данный файл используется в следующих вики: