Файл:2d birthday.png

Материал из энциклопедии Руниверсалис

Исходный файл(915 × 642 пкс, размер файла: 94 КБ, MIME-тип: image/png)

Описание

Описание plot generated using the following maxima commands:

array (check, 99, 99); for m:1 thru 100 do for n:1 thru 100 do check[m-1,n-1] : 0 $

array (result, 99, 99);

for m:1 thru 100 do ( for n:1 thru 100 do ( if (check[m-1,n-1] = 0) then ( tmp : 1-1/365**(m+n)*sum(sum(stirling2(m,i)*stirling2(n,j)*product(365-k,k,0,i+j-1),j,1,n),i,1,m), result[m-1,n-1] : tmp, result[n-1,m-1] : tmp, check[m-1,n-1] : 1, check[n-1,m-1] : 1, if (mod(n, 10) = 0 or mod(m, 10) = 0) then display(n,m) )))$


plot3d (result[floor(x)-1,floor(y)-1], [x,1,100],[y,1,100], [zlabel,""], [mesh_lines_color,false], [elevation,0], [azimuth,0], color_bar, [grid,99,99], [ztics,false], [color_bar_tics,1])$

Источник Own work (personal work)
Время создания 2017-04-09
Автор или правообладатель Sten Kultakangas — Лицензия: Public domain (в общественном достоянии)
Другие версии файла

Источник файла — сайт Wikimedia Commons, куда он был загружен под одной из свободных лицензий ( https://commons.wikimedia.org/wiki/File:2d_birthday.png ). Авторов, работавших над этим файлом см. в истории файла: https://commons.wikimedia.org/w/index.php?title=File:2d_birthday.png&action=history

В общем случае в статьях энциклопедии Руниверсалис файлы используются в соответствии со статьёй 1274 Гражданского кодекса Российской Федерации.

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

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

Дата/времяМиниатюраРазмерыУчастникПримечание
текущий16:40, 9 сентября 2023Миниатюра для версии от 16:40, 9 сентября 2023915 × 642 (94 КБ)Я, робот (обсуждение | вклад)== Описание == {{Изображение | описание = plot generated using the following maxima commands: <p>array (check, 99, 99); for m:1 thru 100 do for n:1 thru 100 do check[m-1,n-1] : 0 $ </p><p>array (result, 99, 99); for m:1 thru 100 do ( for n:1 thru 100 do ( if (check[m-1,n-1] = 0) then ( tmp : 1-1/365**(m+n)*sum(sum(stirling2(m,i)*stirling2(n,j)*product(365-k,k,0,i+j-1),j,1,n),i,1,m), result[m-1,n-1] : tmp, result[n-1,m-1] : tmp, check[m-1,n-1] : 1, check[n-1,m-1] : 1, if (mod(n, 10) = 0 or mo...

Следующий файл является дубликатом этого файла (подробности):

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

Метаданные