Mine sisu juurde

Modul':DemographyStatistical

Мегавики-späi

--- модуль генерации текста для раздела Демографии населенных пунктов

local p = {}

function p.getAgeDistributionText(frame) 

   local entityId = mw.wikibase.getEntityIdForCurrentPage() or frame.args[1] -- Идентификатор элемента Wikidata
   local headers = {
       ['P42'] = 'eläjad noremba 5 vot', 
       ['P43'] = '5 da 9 voziden keskes', 
       ['P44'] = '10 da 14 voziden keskes', 
       ['P45'] = '15 da 19 voziden keskes',
       ['P46'] = '20 da 24 voziden keskes', 
       ['P48'] = '25 da 29 voziden keskes', 
       ['P49'] = '30 vodespäi 34 vodhesai', 
       ['P52'] = '35 vodespäi 39 vodhesai',
       ['P55'] = '40 vodespäi 44 vodhesai', 
       ['P56'] = '45 vodespäi 49 vodhesai', 
       ['P60'] = '50 vodespäi 54 vodhesai', 
       ['P62'] = '55 vodespäi 59 vodhesai',
       ['P63'] = '60 vodespäi 64 vodhesai', 
       ['P64'] = '65 vodespäi 69 vodhesai', 
       ['P67'] = '70 и 74 voziden keskes', 
       ['P68'] = '75 и 79 voziden keskes',
       ['P70'] = ' 80 и 84 voziden keskes'
   }
   local data = {}
   local populationText = ""

   -- Получение утверждений по свойству P1082 (население по возрастным группам)
   local statements1082 = mw.wikibase.getBestStatements(entityId, 'P1082')

   -- Если данных о населении по возрастным группам нет или они отсутствуют, вернуть сообщение об ошибке
   if not statements1082 or not next(statements1082) then
       return "" -- возрат пустой строки, если нет данных
   end

   -- Получение последнего доступного года с данными
   local latestYearWithData = p.getLatestYear(statements1082)

   -- Если год с данными найден
   if latestYearWithData > 0 then
       -- Получение данных о населении по возрастным группам для последнего года
       local yearData = {}
       for _, statement in ipairs(statements1082) do
           if statement.qualifiers and statement.qualifiers.P585 then
               local timeValue = statement.qualifiers.P585[1].datavalue.value
               if timeValue.time then
                   local year = tonumber(string.match(timeValue.time, '^%+(%d%d%d%d)'))
                   if year == latestYearWithData then
                       for propId, header in pairs(headers) do
                           local percent = 0
                           if statement.qualifiers[propId] then
                               percent = tonumber(statement.qualifiers[propId][1].datavalue.value.amount) or 0
                           end
                           table.insert(yearData, {header, percent})
                       end
                   end
               end
           end
       end
       data[latestYearWithData] = yearData
   end

-- Формирование текста о распределении населения по возрастным группам if latestYearWithData > 0 then populationText = "Eläjiden igä kirjutamižen tedoiden mödhe vodel " .. latestYearWithData .. " om: " local ageRanges = {} for _, entry in ipairs(data[latestYearWithData]) do -- Проверка, является ли второй элемент числом if tonumber(entry[2]) then -- Преобразование второго элемента в число local percentage = tonumber(entry[2]) if percentage > 0 then -- Форматирование процентов с заменой точки на запятую и добавлением знака процента local formattedPercentage = string.format("%.1f%%", percentage):gsub("%.", ",") table.insert(ageRanges, entry[1] .. " — " .. formattedPercentage) end end end -- Используем запятую с пробелом в качестве разделителя populationText = populationText .. table.concat(ageRanges, ", ") .. "." end 

   -- Получение среднего возраста для последнего года с данными

local averageAge = nil for _, statement in ipairs(statements1082) do if statement.qualifiers and statement.qualifiers.P585 then local timeValue = statement.qualifiers.P585[1].datavalue.value if timeValue.time then local year = tonumber(string.match(timeValue.time, '^%+(%d%d%d%d)')) if year == latestYearWithData and statement.qualifiers.P4442 then averageAge = tonumber(statement.qualifiers.P4442[1].datavalue.value.amount) break end end end end 


   -- Добавление информации о среднем возрасте, если он доступен
   if averageAge then
   --populationText = populationText .. "\nEläjiden keskmäine igä om " .. string.format("%.1f%%", averageAge):gsub("%.", ",") .. " " .. p.getAgeWord(averageAge) .. "."
   populationText = populationText .. "\nEläjiden keskmäine igä om " .. averageAge .. " " .. p.getAgeWord(averageAge) .. "."

end 

   return populationText

end

-- Получение последнего доступного года с данными function p.getLatestYear(statements1082) 

   local latestYearWithData = 0
   for _, statement in ipairs(statements1082) do
       if statement.qualifiers and statement.qualifiers.P585 then
           local timeValue = statement.qualifiers.P585[1].datavalue.value
           if timeValue.time then
               local year = tonumber(string.match(timeValue.time, '^%+(%d%d%d%d)'))
               latestYearWithData = math.max(latestYearWithData, year)
           end
       end
   end
   
   return latestYearWithData

end

-- текст дохода function p.getIncomeStatistics(frame) 

   local entityId = mw.wikibase.getEntityIdForCurrentPage() or frame.args[1] -- Идентификатор элемента Wikidata

   -- Получение утверждений по свойству P1082 (доходы)
   local statements1082 = mw.wikibase.getBestStatements(entityId, 'P1082')

   -- Формирование строки с данными о доходах
   local incomeStatistics = "" -- возрат пустой строки, если нет данных

   if not statements1082 or not next(statements1082) then
       return ""
   end

   local avgHouseholdIncome = p.getPropertyValue(statements1082, 'P120', p.getLatestYear(statements1082))
   local avgFamilyIncome = p.getPropertyValue(statements1082, 'P99', p.getLatestYear(statements1082))
   local avgMaleIncome = p.getPropertyValue(statements1082, 'P100', p.getLatestYear(statements1082))
   local avgFemaleIncome = p.getPropertyValue(statements1082, 'P104', p.getLatestYear(statements1082))
   local avgIncomePerCapita = p.getPropertyValue(statements1082, 'P10622', p.getLatestYear(statements1082))
   local povertyIndex = p.getPropertyValue(statements1082, 'P107', p.getLatestYear(statements1082))

   if avgHouseholdIncome and avgFamilyIncome and avgMaleIncome and avgFemaleIncome and avgIncomePerCapita and povertyIndex then
       incomeStatistics = incomeStatistics ..
                           "Keskmäine rahatulo ühtele kodielomištole om " .. mw.language.new('ru'):formatNum(avgHouseholdIncome) .. " " .. frame:preprocess("amerikan dollarad,") .. " " ..
                           " a keskmäine rahatulo ühtele kanzale — " .. mw.language.new('ru'):formatNum(avgFamilyIncome) .. " " .. p.getDollarsWord(avgFemaleIncome) ..". " ..
                           "Mužikoil oli keskmäine rahatulo " .. mw.language.new('ru'):formatNum(avgMaleIncome) .. " " .. p.getDollarsWord(avgMaleIncome) .. " vasthapäi " .. mw.language.new('ru'):formatNum(avgFemaleIncome) .. " ".. p.getDollarsWord(avgFemaleIncome) .. " akoiden vodenkeskmäšt rahatulod. " ..
                           frame:preprocess("Rahatulo ühtele ristitule") .. " om " .. mw.language.new('ru'):formatNum(avgIncomePerCapita) .. " ".. p.getDollarsWord(avgIncomePerCapita) .. " vodes. " ..
                           "Kaikil kanzoil eländtahos oli rahatulo, mitte ülitab golliden korktud. " .. mw.language.new('ru'):formatNum(povertyIndex) .. "% kaikiš eläjišpäi oli rahvahan kirjutamižen aigan golliden pirdan taga. "
   end



   return incomeStatistics ~= "" and incomeStatistics or "" -- возрат пустой строки, если нет данных

end

-- текст процентности населения function p.getPopulationText(frame) 

   local entityId = mw.wikibase.getEntityIdForCurrentPage() or frame.args[1] -- Идентификатор элемента Wikidata
  
   -- Получение последнего доступного года с данными

local latestYearWithData = 0 local population = 0 local sourceUrl = nil local statements1082 = mw.wikibase.getBestStatements(entityId, 'P1082') for _, statement in ipairs(statements1082) do if statement.qualifiers and statement.qualifiers.P585 then local timeValue = statement.qualifiers.P585[1].datavalue.value if timeValue.time then local year = tonumber(string.match(timeValue.time, '^%+(%d%d%d%d)')) if year > latestYearWithData then latestYearWithData = year population = tonumber(statement.mainsnak.datavalue.value.amount) local sources = statement.references if sources then for _, source in ipairs(sources) do local sourceData = source.snaks.P854 if sourceData and sourceData[1] and sourceData[1].datavalue.value then sourceUrl = mw.text.decode(sourceData[1].datavalue.value) break end end end end end end end 

   -- Если год с данными найден
   if latestYearWithData > 0 then
       -- Создаем текст для вывода
       -- если есть источник, добавляем cite web через ref тэг
       local reference = ""

if sourceUrl then reference = 'Skriptitõrge: Moodulit "CiteWeb" pole.Skriptitõrge: Moodulit "check for unknown parameters" pole.' end local populationText = "Rahvahan kirjutamižen tedoiden mödhe vodel " .. latestYearWithData .. "" .. frame:extensionTag('ref', reference) .. " eländtahos eli " 

       -- Выводим данные о населении
       if population then
           populationText = populationText .. p.formatNumber(population) .. " " .. p.getPeopleWord(population) .. ", "
       end

       -- Получаем данные о количестве семей
       local families = p.getPropertyValue(statements1082, 'P3', latestYearWithData)
       if families then
           populationText = populationText .. p.formatNumber(families) .. " "..p.getFamilyWord(families) .. ", "
       end

       -- Получаем данные о количестве домашних хозяйств
       local households = p.getPropertyValue(statements1082, 'P1538', latestYearWithData)
       if households then
           populationText = populationText .. " oli ".. p.formatNumber(households) .. " " .. p.getHouseholdsWord(households) .. " da "
       end

       -- Получаем данные о количестве жилых домов
       local residentialBuildings = p.getPropertyValue(statements1082, 'P10814', latestYearWithData)
       if residentialBuildings then
           populationText = populationText .. p.formatNumber(residentialBuildings) .. " eletadud ".. p.getResidentialBuildingsWord(residentialBuildings) .. ". "
       end

       -- Получаем данные о расовом составе населения
       populationText = populationText .. "Eläjiden rahvahuz' eländtahos kirjutamižen tedoiden mödhe: "
       populationText = populationText .. p.getRaceComposition(entityId, latestYearWithData, frame)

       return populationText
   else
       return "" -- возрат пустой строки, если нет данных
   end

end

-- получение данных с утверждения по году function p.getPropertyValue(statements, propertyId, year) 

   for _, statement in ipairs(statements) do
       if statement.qualifiers and statement.qualifiers.P585 then
           local timeValue = statement.qualifiers.P585[1].datavalue.value.time
           local statementYear = tonumber(string.match(timeValue, '^%+(%d%d%d%d)'))
           if statementYear == year then
               if statement.qualifiers[propertyId] then
                   return tonumber(statement.qualifiers[propertyId][1].datavalue.value.amount)
               end
           end
       end
   end
   return nil

end


-- обязательно передать год function p.getRaceComposition(entityId, year, frame) 

   local raceComposition = ""

   -- белые
   local whitePercentage = p.getPropertyValue(mw.wikibase.getBestStatements(entityId, 'P1082'), "P24", year)
   if whitePercentage then
       raceComposition = raceComposition .. " " .. string.format("%.1f%%", whitePercentage):gsub("%.", ",") .. " " .. frame:preprocess(" vauktad") .. ","
   else
       raceComposition = raceComposition .. "."
   end
   
   -- коренные
   local rootPercentage = p.getPropertyValue(mw.wikibase.getBestStatements(entityId, 'P1082'), "P28", year)
   if rootPercentage then
       raceComposition = raceComposition .. " " .. string.format("%.1f%%", rootPercentage):gsub("%.", ",") .. " " .. frame:preprocess(" igähišt amerikalašt") .. ","
   else
       raceComposition = raceComposition .. "."
   end
   
   -- другие
   local otherPercentage = p.getPropertyValue(mw.wikibase.getBestStatements(entityId, 'P1082'), "P33", year)
   if otherPercentage then
       raceComposition = raceComposition .. " " .. string.format("%.1f%%", otherPercentage):gsub("%.", ",") .. " tošt rahvast."
   else
       raceComposition = raceComposition .. "."
   end
   
   -- процент испаноговорящих
   local spanishSpeakingPercentage = p.getPropertyValue(mw.wikibase.getBestStatements(entityId, 'P1082'), "P12", year)
   if spanishSpeakingPercentage then
       raceComposition = raceComposition .. " Ispaniankeližid om " .. string.format("%.1f%%", spanishSpeakingPercentage):gsub("%.", ",") .. " kaikiš eläišpäi statistikan mödhe erigoittud eländtahos."
   else
       raceComposition = raceComposition .. "."
   end

   return raceComposition

end

-- function p.formatNumber(number) -- return tostring(math.floor(number)):reverse():gsub("%d%d%d", "%1,"):reverse():gsub("^,", "") -- end function p.formatNumber(number) 

   return tostring(math.floor(number)):reverse():gsub("%d%d%d", "%1 "):reverse():gsub("^%s+", "")

end


-- СКЛОНЕНИЯ START function p.getFamilyWord(number) 

   local lastTwoDigits = number % 100
   local lastDigit = number % 10

   if lastTwoDigits >= 11 and lastTwoDigits <= 14 then
       return 'kanzad'
   elseif lastDigit == 1 then
       return 'kanzad'
   elseif lastDigit >= 2 and lastDigit <= 4 then
       return 'kanzad'
   else
       return 'kanzad'
   end

end

function p.getHouseholdsWord(number) 

   local lastTwoDigits = number % 100
   local lastDigit = number % 10

   if lastTwoDigits >= 11 and lastTwoDigits <= 14 then
       return 'kodielomištod'
   elseif lastDigit == 1 then
       return 'kodielomištod'
   elseif lastDigit >= 2 and lastDigit <= 4 then
       return 'kodielomištod'
   else
       return 'kodielomištod'
   end

end

function p.getPeopleWord(number) 

   local lastTwoDigits = number % 100
   local lastDigit = number % 10

   if lastTwoDigits >= 11 and lastTwoDigits <= 14 then
       return 'ristitud'
   elseif lastDigit == 1 then
       return 'ristitud'
   elseif lastDigit >= 2 and lastDigit <= 4 then
       return 'ristitud'
   else
       return 'ristitud'
   end

end

function p.getResidentialBuildingsWord(number) 

   local lastTwoDigits = number % 100
   local lastDigit = number % 10

   if lastTwoDigits >= 11 and lastTwoDigits <= 14 then
       return 'pertid'
   elseif lastDigit == 1 then
       return 'pertid'
   elseif lastDigit >= 2 and lastDigit <= 4 then
       return 'pertid'
   else
       return 'pertid'
   end

end

function p.getAgeWord(number) 

   local lastTwoDigits = number % 100
   local lastDigit = number % 10

   if lastTwoDigits >= 11 and lastTwoDigits <= 14 then
       return 'vot'
   elseif lastDigit == 1 then
       return 'vot'
   elseif lastDigit >= 2 and lastDigit <= 4 then
       return 'vot'
   else
       return 'vot'
   end

end

function p.getDollarsWord(number) 

   local lastTwoDigits = number % 100
   local lastDigit = number % 10

   if lastTwoDigits >= 11 and lastTwoDigits <= 14 then
       return 'dollarad'
   elseif lastDigit == 1 then
       return 'dollarad'
   elseif lastDigit >= 2 and lastDigit <= 4 then
       return 'dollarad'
   else
       return 'dollarad'
   end

end

-- СКЛОНЕНИЯ END

return p

Om sadud "https://vep.megawiki.ru/w/index.php?title=Modul%27:DemographyStatistical&oldid=28694"