Чулоацамага гӀó

Модуль:DemographyStatistical

Мегавики материал

Для документации этого модуля может быть создана страница Модуль:DemographyStatistical/doc 

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

local p = {}

function p.getAgeDistributionText(frame)
    local entityId = mw.wikibase.getEntityIdForCurrentPage() or frame.args[1] -- Идентификатор элемента Wikidata
    local headers = {
        ['P42'] = '5 шерал зӀамагӀа бола бахархой', 
        ['P43'] = '5 шераи 9 шераи юкъера ха яьннараш', 
        ['P44'] = '10 шераи 14 шераи юкъера ха яьннараш', 
        ['P45'] = '15 шераи 19 шераи юкъера ха яьннараш',
        ['P46'] = '20 шераи 24 шераи юкъера ха яьннараш', 
        ['P48'] = '25 шераи 29 шераи юкъера ха яьннараш', 
        ['P49'] = '30 шерагара 34 шерага кхаччалца ха яьннараш', 
        ['P52'] = '35 шерагара 39 шерага кхаччалца ха яьннараш',
        ['P55'] = '40 шерагара 44 шерага кхаччалца ха яьннараш', 
        ['P56'] = '45 шерагара 49 шерага кхаччалца ха яьннараш', 
        ['P60'] = '50 шерагара 54 шерага кхаччалца ха яьннараш', 
        ['P62'] = '55 шерагара 59 шерага кхаччалца ха яьннараш',
        ['P63'] = '60 шерагара 64 шерага кхаччалца ха яьннараш', 
        ['P64'] = '65 шерагара 69 шерага кхаччалца ха яьннараш', 
        ['P67'] = '70 шераи 74 шераи юкъера ха яьннараш', 
        ['P68'] = '75 шераи 79 шераи юкъера ха яьннараш',
        ['P70'] = '80 шераи 84 шераи юкъера ха яьннараш'
    }
    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 = "Сага яьннача ханах йолча диапазонага гӀолла тахкача, " .. latestYearWithData .. " шера хьисап деш нах дӀаязбаро оттадаьчох хьал иштта да укх моттиге: "
	    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 .. "\nБахача наьха юккъера йола яьнна ха я — " .. string.format("%.1f%%", averageAge):gsub("%.", ",") .. " " .. p.getAgeWord(averageAge) .. "."
    populationText = populationText .. "\nБахача наьха юккъера йола яьнна ха я — " .. 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 ..
                            "Цхьан боахамá хьатӀабоагӀа юккъера хьалаьцача бола пайда " .. mw.language.new('ru'):formatNum(avgHouseholdIncome) .. " " .. frame:preprocess("[[доллар]] да,") .. " " ..
                            " хӀаьта, цхьан дезалá/фусамá хьатӀабоагӀа юккъера бола пайда — " .. mw.language.new('ru'):formatNum(avgFamilyIncome) .. " " .. p.getDollarsWord(avgFemaleIncome) .." да. " ..
                            "МаӀача нáхá боагӀа юккъера пайда " .. mw.language.new('ru'):formatNum(avgMaleIncome) .. " " .. p.getDollarsWord(avgMaleIncome) .. " боараме бар цхьан шера, хӀаьта " .. mw.language.new('ru'):formatNum(avgFemaleIncome) .. " ".. p.getDollarsWord(avgFemaleIncome) .. " боараме ба — кхалнаха цхьан шера хьатӀабоагӀаш хинна юккъера бола пайда. " ..
                            frame:preprocess("Шерá [[Доход на душу населения|цхьан сагá хьатӀабоагӀаш болча пайдан]]") .. " боарам хилар " .. mw.language.new('ru'):formatNum(avgIncomePerCapita) .. " ".. p.getDollarsWord(avgIncomePerCapita) .. ". " ..
                            "Цу моттиге мел бахача дезалий хьатӀабоагӀаш бола пайда, къела боарамал лакхагӀа бар. Хьисап деш нах дӀаязбеча юкъá берригача охлой дукхалах " .. mw.language.new('ru'):formatNum(povertyIndex) .. "% къела боарамал лохагӀа бар. "
    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 = '{{cite web |url='..sourceUrl..' |title='..sourceUrl..' |website= |access-date= | lang=}}'
		end
		local populationText = "Лакхе белгалъяьккха цӀи а йолаш нах бахача моттиге " .. latestYearWithData .. " шера [[хьисап деш нах дӀаязбар]]о оттадаьд:" .. frame:extensionTag('ref', reference) .. " цига вахаш "

        -- Выводим данные о населении
        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 .. " иштта дагардаьд ".. p.formatNumber(households) .. " ков \\ " .. p.getHouseholdsWord(households) .. " а, "
        end

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

        -- Получаем данные о расовом составе населения
        populationText = populationText .. "ХӀаьта, малагӀча расах ба а цу моттигера охлой белгалдаьд хьисап деш нах дӀаязбаро, цу хьакъехьа хоам ишта ба: "
        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("[[Хеттача Америкерча Штатий расацара лоаттам|кӀайбараш]]") .. ","
    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("[[Хьалха денз даьха къамаш|хьалха денз баьха америкахой]]") .. ","
    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("%.", ",") .. " кхыдолча къамах."
    else
        raceComposition = raceComposition .. "."
    end
    
    -- процент испаноговорящих
    local spanishSpeakingPercentage = p.getPropertyValue(mw.wikibase.getBestStatements(entityId, 'P1082'), "P12", year)
    if spanishSpeakingPercentage then
        raceComposition = raceComposition .. " ХӀиспаний мотт бувцачарех лоархӀараш " .. string.format("%.1f%%", spanishSpeakingPercentage):gsub("%.", ",") .. " ба цу моттига берригача охлошта юкъе."
    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 'дезал'
    elseif lastDigit == 1 then
        return 'дезал'
    elseif lastDigit >= 2 and lastDigit <= 4 then
        return 'дезал'
    else
        return 'дезал'
    end
end

function p.getHouseholdsWord(number)
    local lastTwoDigits = number % 100
    local lastDigit = number % 10

    if lastTwoDigits >= 11 and lastTwoDigits <= 14 then
        return 'боахам'
    elseif lastDigit == 1 then
        return 'боахам'
    elseif lastDigit >= 2 and lastDigit <= 4 then
        return 'боахам'
    else
        return 'боахам'
    end
end

function p.getPeopleWord(number)
    local lastTwoDigits = number % 100
    local lastDigit = number % 10

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

function p.getResidentialBuildingsWord(number)
    local lastTwoDigits = number % 100
    local lastDigit = number % 10

    if lastTwoDigits >= 11 and lastTwoDigits <= 14 then
        return 'фусам'
    elseif lastDigit == 1 then
        return 'фусам'
    elseif lastDigit >= 2 and lastDigit <= 4 then
        return 'фусам'
    else
        return 'фусам'
    end
end

function p.getAgeWord(number)
    local lastTwoDigits = number % 100
    local lastDigit = number % 10

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

function p.getDollarsWord(number)
    local lastTwoDigits = number % 100
    local lastDigit = number % 10

    if lastTwoDigits >= 11 and lastTwoDigits <= 14 then
        return 'доллар'
    elseif lastDigit == 1 then
        return 'доллар'
    elseif lastDigit >= 2 and lastDigit <= 4 then
        return 'доллар'
    else
        return 'доллар'
    end
end

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

return p
Хьаст — «https://inh.megawiki.ru/w/index.php?title=Модуль:DemographyStatistical&oldid=34538»