Šíření luteránství na území dnešního Německa v 16. století

Základní údaje

Název simulace: Šíření luteránství na území dnešního Německa v 16. století

Datum zpracování: LS 2017/18

Autor: Vojtěch Hyvnar

Typ modelu: Multiagentní

Modelovací nástroj: NetLogo 6.0.3

Definice problému

Začátkem 16. století došlo ve Svaté říši římské, konkrétně na území dnešního Německa, k reformaci církve, kdy na základě učení Martina Luthera vzniklo nové vyznání - luteránství. Luteránství se z Wittenbergu, kde Martin Luther učil, rozšířilo na velkou část německého území a také do některých ostatních částí Svaté říše římské - například území dnešní Francie, Rakouska, Švýcarska či Belgie. Luteránství se však nerozšířilo na celé území dnešního Německa, část regionů zůstala katolická.

Tento model simuluje šíření luteránství v Německu, z Wittenbergu do ostatních regionů v závislosti na jejich geopolitických vlastnostech. Model je tvořen na mapě sestávající z historických regionů Svaté říše římské, které se nacházely na území dnešního Německa. Mapa pokrývá celé dnešní Německo a historické regiony Svaté říše římské zasahují do částí sousedních zemí, konkrétně do Francie, Polska, Rakouska, Belgie a Švýcarska.

Cíl

Cílem simulace je zjistit, jak geopolitická situace jednotlivých regionů ovlivňuje adaptaci nové víry a co by muselo vést k tomu, aby se celé území dnešního Německa stalo plně luteránské.

Model a jeho parametry jsou samozřejmě velice zjednodušeným odrazem reality, jelikož se jedná o opravdu komplexní problém.

Detailní popis modelu

Pro co nejpřesnější simulaci na už tak ne úplně přesných datech je počátek modelu nastaven na letopočet 1500, i když samotná Lutherova filozofie se začala po Německu šířit až zhruba v roce 1517.

Mapa jako základ modelu

V 16. století obsahovala Svatá říše římská celkem 10 říšských krajů, což byly vyšší územně-správní celky říše. Kromě dnešního Německa tyto kraje pokrývaly část dnešního Polska, Rakousko, Belgii, Nizozemsko a část Francie. Vzhledem k tomu, že záměrem simulace bylo zkoumání luteránství pouze na území Německa, říšské kraje a země, které toto území nepokrývaly (tzn. Rakouský a Burgundský kraj, dále například země Koruny České či Švýcarsko), jsem z mapy vyřadil. Na mapě tedy zbylo těchto 8 krajů pokrývající německé území:

Mapa daných říšských krajů, na které se odehrává simulace.

• Bavorský kraj
• Francký kraj
• Hornorýnský kraj
• Švábský kraj
• Dolnorýnsko-Vestfálský kraj
• Kraj porýnských kurfiřtství
• Hornosaský kraj
• Dolnosaský kraj

(pozn. Kraj porýnských kurfiřtství vznikl po sněmu v roce 1512 a Hornosaský a Dolnosaský kraj vznikly po rozdělení Saského kraje)

Dané říšské kraje jsem poté rozdělil do menších oblastí - dle městských států či jiných historických území.

Každá oblast má na mapě svou specifickou, unikátní barvu korespondující s barevnou paletou NetLoga. Díky této barevné paletě dokážu v simulaci rozlišit obyvatele jednotlivých oblastí a upravit jejich chování a parametry. Tato mapa je pak obklopena černou barvou značící zbytek Evropy a modrou barvou značící moře (no-go zones). Tvorba mapy byla časově dost náročná, ve finále jsem použil celkem 69 barev pro 69 oblastí, kdy na jeden říšský kraj připadá v průměru zhruba 9 oblastí. Jednotlivé říšské kraje jsem od sebe barevně odlišil, ale vzhledem k tomu, že krajní odstíny (tmavé a světlé) jednotlivých barev částečně splývají, na první pohled nemusí být úplně zřejmé zařazení některých oblastí.

Mapa je pak v jednom z prvních kroků importována do modelu. Menší problém je zde ten, že při importu pro NetLogo docela velkého obrázku (zhruba 2000px * 2000px) dojde ke zmenšení (v modelu jsem použil velikost 400px * 400px, a patches o velikosti 1 pixel) obrázku a v místech, kde se dvě barvy potkávají, dojde ke klasickému blendu dvou barev a vzniku pixelů s odstíny jiných barev [nejsem grafický expert, nikdy jsem nezjistil, co se v těchto situacích vlastně děje], což způsobuje možné vytvoření části obyvatelstva jinde, než by měli správně vytvoření být měli. Toto je však opravdu minimální množina vytvořených agentů, a proto se tímto problémem zabývat nemusím. Kde však bylo potřeba tento problém ošetřit byli vytvoření luteráni jelikož jejich výskyt na začátku simulace musí být jen a pouze v oblasti Wittenbergu. Barva jejich území je proto super-unikátní a nemělo by docházet k vytvoření této barvy blendem dvou dalších někde jinde na mapě.

Vstupní data

Vzhledem k tomu, že se jedná o projekt časově velmi vzdálený dnešní době, nebylo úplně nejjednodušší získat potřebná data případně vůbec vymyslet, jaká data použít. Považoval jsem za důležité získat a použít data o počtu obyvatel jednotlivých území, ale jelikož sčítání lidu v době minulé nebylo moc praktikováno, kompletní data o počtech obyvatel kterékoli evropské země de facto neexistují. Známe jen hrubý počet obyvatel v zemi samotné (v Německu v roce 1500 to bylo údajně kolem 12 milionů, v celé Evropě pak necelých 60 milionů obyvatel) a také počty obyvatel zhruba stovky německých měst. Ostatní cifry můžou být jen a pouze spekulativní. Z toho důvodu jsem se rozhodl, že počet obyvatel jednotlivých území v modelu bude reprezentován počtem obyvatel jejich mocenských celků v roce 1500.

Tam, kde to bylo zjistitelné, jsem zároveň využil také údajů o počtech obyvatel v daných regionech a městech v roce 1600, čili o 100 let později. Z těchto dat jsem poté vypočetl koeficient růstu počtu obyvatel v těchto oblastech za 1 týden [základní časová jednotka v modelu]:

   k = [obyvatelstvo(1600)/obyvatelstvo(1500)]^(1/100) / 52

Kde tento údaj (počet obyvatel za 100 let) nebyl dostupný, koeficient se jednoduše rovnal jedné. Ačkoli

Dalším údajem, který vstupoval do modelu, je vzdálenost dané oblasti od Wittenbergu. Ačkoli se může zdát, že je tato problematika už obsažena a řešena v samotném způsobu řešení prostřednictvím mapy, vzhledem k tomu, že rychlost pohybu

Všechna území mají také svůj typ vlády, jak ukazuje následující seznam:

• Abbey - opatství - 1
• Bishopric - diecéze - 1
• County - hrabství - 5
• Duchy - vévodství - 12
• Electorate - kurfiřtství - 1
• Free Imperial City - Svobodné říšské město - 29
• Landgraviate - lankrabství - 1
• Margraviate - markrabství - 3
• Prince-archbishopric - kníže-arcibiskupství - 1
• Prince-bishopric - kníže-biskupství - 12
• Principality - knížectví - 3

Jak lze vidět, nejčastěji se zde vyskytuje svobodné říšské město, následně pak kníže-biskupství a vévodství. 5 typů vlády se zde vyskytuje pouze jedinkrát.

Parametry modelu

...neboli co všechno v modelu nastavuji

Vlastnosti všech lidí [turtles-own]

Vzhledem k tomu, že

• age - věk daného člověka - důležité pro reprodukci, šíření víry, a také umírání
• gender - pohlaví daného člověka - důležité pro reprodukci
• population-growth -
• lutheran? - zda je daný člověk luterán
• catholic? - zda je daný člověk katolík
• atheist? - zda je daný člověk ateista [logicky má daný člověk aktivní vždy jen jednu z těchto tří hodnot]
• converted? - zda byl daný člověk v minulosti konvertován (z katolíka na luterána a vice versa). Předpokládám, že pokud jednou takhle člověk konvertoval, podruhé už ho na druhou stranu nikdo nepřesvědčí a v tomto modelu obsahujícím dvě náboženství už je jediná možnost pouze přechod na ateismus.
• home-color - barva domácího území, na kterém se člověk rodí. Tato barva je použitá při posuzování pohybu přes hranice.
• datum-konverze - kdy (číslo ticku/týdne) došlo ke konverzi (pokud k ni došlo). Tato hodnota je pak použitá při reevaluaci náboženství (člověk přemýšlí o ateismu nejdříve až rok po konverzi)

Parametry UI

• pocet-luteranu - neboli kolik kluků se ve Wittenbergu objeví. Co známe je, že měl Wittenberg v roce 1500 zhruba 2000 obyvatel. Otázkou je, kolik z nich bylo luterány hned ze startu, a tudíž kolik z nich chceme vypustit do světa. 2000 je zde defaultní hodnota a zároveň maximum, minimum je pak 1 (neboli samotný Martin Luther).

• cestovatelske-choutky - jelikož je jasné, že lidé se ze svých bydlišť a sídel moc nehýbali a nestěhovali, je potřeba zamezit, aby nám na mapě vesničané někam neutekli. Tento parametr, procentuálně vyjádřen, říká, jaká je šance, že když se člověk z daného území dostane ke hranicím, že tyto hranice přeleze a vydá se dále. Toto omezení se vztahuje jen na neluterány, jelikož v případě zamezení pohybu osob luteránům, model by nám byl úplně k ničemu. Defaultně je tato hodnota 0, ale v podstatě se dá, myslím si, uvažovat jakákoli hodnota do 5%.

• nadseni-pro-martina - de facto cestovatelské choutky pro luterány. Jedná se opět jenom šanci přechodu přes hranice a víc nic, takže v případě velice entuziastických šiřitelů víry můžeme uvažovat klidně velká procenta.

• rychlost-sireni - trochu v návaznosti na nadšení, tato hodnota říká, jak rychle chceme, aby se luteráni pohybovali a snažili se šířit svou víru. Hranice jsou od 0 do 2.

• reeval-freq - neboli frekvence (v týdnech), jak často má daná osoba rozvažovat (evaluovat), zda opustit své náboženství a stát se ateistou a nebo si žít dále zbožným životem. Defaultní hodnota je zde 52 týdnů, čili jednou za rok, minimum je 4 týdny a maximum pak 10 let (předpokládám, že alespoň dvakrát za život si každý řekl, jestli to má všechno smysl či ne. Na tuto volbu jsou pak navázány dvě další...

• reeval-chance-lutheran - procentuální šance toho, že při jedné evaluaci dojde ke konverzi luterána k ateismu.

• reeval-chance-catholic - dtto

Parametry pevně dané

• age - průměrná délka života byla v 16. století zhruba 35 let, proto všichni lidé dostanou na začátku simulace hodnotu věku odpovídající náhodnému číslu mezi 0 a 35.

 to set-age
   set age random 36 * 52
 end

• min-age - tohle je parametr, nepřekvapivě, minimálního věku. Jedná se o minimální věk, kdy je možné porodit potomka. I když jsem si vědom toho, že v době dávno minulé byl věk prokreace nižší než dnes, mé morální hodnoty mi nedovolí zvolit tuto hodnotu nižší než 14.

• generování pohlaví člověka - zde jsem zvolil staré dobré 50/50 pro rozdělení mužů a žen.

• úmrtnost při překročení očekávané délky žití - jakmile je člověk starší 35 let, je jeho šance na umření 1% každý týden. Věřím, že hodně z nás by se místo pondělního vstávání do práce/školy kolikrát radši ani neprobouzelo, lidé v modelu tuto situaci zažijí na vlastní kůži a hrajou každé pondělí (každý tick) ruskou ruletu se stomístným bubnem a jedním ostrým nábojem. V rámci modelování je to dle mého celkem elegantní řešení, nenapadla mě lepší alternativa.

 if age > 35 * 12 and random-float 100 < 1 [ die ]

• úmrtnost kdykoli a z jakýchkoli příčin - podobně jako výše. Vzhledem k tomu, že ani moderní medicína nezná odpovědi na všechny otázky, nevidím důvod, proč by středověcí doktoři měli být v tomto ohledu lepší. Každý týden mají lidé šanci, že z nějakého důvodu umřou. Může se jednat o běžnou nemoc, úraz, mor, živelnou pohromu, nehodu na dálnici [humor], cokoli.

Globální proměnné a jak jsem k nim přišel

Pomocí globálních proměnných počítám některé základní ukazatele spojené s jednotlivými náboženstvími:

• self-converted-catholics-to-atheism - kolik katolíků samovolně opustilo své náboženství a stalo se ateisty
• self-converted-lutherans-to-atheism - kolik luteránů samovolně opustilo své náboženství a stalo se ateisty
• born-lutheran - počet narozených luteránů za období
• born-catholic - počet narozených katolíků za období
• born-atheist - počet narozených ateistů za období
• persuaded-catholics - kolik katolíků bylo "přesvědčeno" luterány ke konverzi
• persuaded-lutherans - kolik luteránů bylo "přesvědčeno" katolíky ke konverzi
• i-see-dead-people - počet lidí, kteří od začátku simulace zemřeli
• tydny - proměnná, která počítá číslo týdnu v daném roce

 to week-counter
   set tydny tydny + 1
   if tydny = 53 [
     set tydny 1
   ]
 end
   --na začátku nastavím tydny = 0, při každém ticku zvednu týden o 1, pokud by měl tick dostat počet týdnů na 53, counter se resetuje a týdny jsou opět 0

Sledované ukazatele

Kromě výše zmíněných globálních proměnných sleduji také:

• současný rok

 let rok-mod floor ( ticks / 52 )
 report 1500 + rok-mod

• celkovou populaci

 report count turtles

• počet luteránů běhajících po mém světě

 report count turtles with [ lutheran? ]

• počet katolíků běhajících po mém světě

 report count turtles with [ catholic? ]

• počet ateistů běhajících po mém světě

 report count turtles with [ atheist? ]

počet luteránů v regionu Wittenbergu počty katolíků dle jednotlivých území (počty obyvatel - reálná data z 16. stol.) pravděpodobnost konvertování katolíků v závislosti na jejich území:

  - vzdálenost od Wittenbergu
  - ekonomická síla/důležitost daného regionu 
  - náboženská situace v sousedních regionech
  - typ vlády v regionu (svobodné říšské město/knížecí biskupství aj.)

[předpokládaný min. počet území je 13, max. kolem ~30, pokud mi to barevná paleta dovolí] pravděpodobnost konvertování luterána pravděpodobnost, že člověk samovolně opustí své náboženství a stane se ateistou frekvence, jak často budou lidé evaluovat svou náboženskou situaci střední délka života (podloženo reálnými daty)