Ядерные реакторы в современном мире
NuclearReactorData предоставляет данные об известных ядерных реакторах по всему миру. Некоторые из них, например Чернобыль, уже закрыты. Выберем реакторы, функционирующие в настоящее время, для анализа ядерных энергетических ресурсов.
![Click for copyable input](assets.ru/world-nuclear-reactors/In_74.png)
reactors = NuclearReactorData[];
![Click for copyable input](assets.ru/world-nuclear-reactors/In_75.png)
active = Keys@
Select[EntityValue["NuclearReactor", "Status",
"EntityAssociation"], # === "operational" &];
Извлечем информацию о годовом объеме производства энергии для отдельных стран.
![Click for copyable input](assets.ru/world-nuclear-reactors/In_76.png)
annualproduction =
NuclearReactorData[active, "AnnualEnergyProduction"];
countries = Map[First, NuclearReactorData[active, "Countries"]];
Создадим базу данных и удалим пропущенные значения. В современном мире свыше 400 работающих ядерных реакторов.
![Click for copyable input](assets.ru/world-nuclear-reactors/In_77.png)
data = Transpose[{active, countries, annualproduction}];
data = DeleteMissing[data, 1, 2];
![Click for copyable input](assets.ru/world-nuclear-reactors/In_78.png)
data // Dimensions
![](assets.ru/world-nuclear-reactors/O_56.png)
Рассчитаем количество ядерных реакторов на страну.
![Click for copyable input](assets.ru/world-nuclear-reactors/In_79.png)
percountry = GroupBy[data, #1[[2]] &];
![Click for copyable input](assets.ru/world-nuclear-reactors/In_80.png)
numberpercountry = Map[Length, percountry];
![Click for copyable input](assets.ru/world-nuclear-reactors/In_81.png)
BarChart[Sort[numberpercountry], ChartLabels -> Automatic,
ChartStyle -> "DarkRainbow", BarOrigin -> Left, BarSpacing -> 1,
LabelingFunction -> (Placed[#1, After] &), ImageSize -> Large]
![](assets.ru/world-nuclear-reactors/O_57.png)
Число реакторов соответствует общему объёму ядерной энергии, производимой в данной стране.
![Click for copyable input](assets.ru/world-nuclear-reactors/In_82.png)
energytotals = Map[Total[#[[All, 3]]] &, percountry];
![Click for copyable input](assets.ru/world-nuclear-reactors/In_83.png)
stats = {Min, Max, Mean, Median, Total};
TableForm[#[energytotals] & /@ stats, TableHeadings -> {stats}]
![](assets.ru/world-nuclear-reactors/O_58.png)
Крупнейшими производителями атомной энергии являются Соединенные Штаты и Франция.
![Click for copyable input](assets.ru/world-nuclear-reactors/In_84.png)
TakeLargest[energytotals, 2]
![](assets.ru/world-nuclear-reactors/O_59.png)
![](assets.ru/world-nuclear-reactors/O_60.png)
Ситуация меняется, если учесть общий объем производства энергии на душу населения. Функция CountryData сообщает размер населения для каждой страны в списке.
![Click for copyable input](assets.ru/world-nuclear-reactors/In_86.png)
populations =
AssociationThread[Keys[energytotals],
CountryData[#, "Population"] & /@ Keys[energytotals]];
Рассчитаем потребление ядерной энергии на душу населения.
![Click for copyable input](assets.ru/world-nuclear-reactors/In_87.png)
energypercapita = energytotals/populations;
![Click for copyable input](assets.ru/world-nuclear-reactors/In_88.png)
TableForm[#[energypercapita] & /@ stats, TableHeadings -> {stats}]
![](assets.ru/world-nuclear-reactors/O_61.png)
Полученная карта показывает, что даже при том, что США имеет самое крупное производство ядерной энергии в мире, Франция и Швеция лидируют по потреблению ядерной энергии на душу населения.
![Click for copyable input](assets.ru/world-nuclear-reactors/In_89.png)
TakeLargest[energypercapita, 2]
![](assets.ru/world-nuclear-reactors/O_62.png)
![](assets.ru/world-nuclear-reactors/O_63.png)