Module:Greek numeral - Revision history

LaundryPizza03: LaundryPizza03 moved page Module:Greek to Module:Greek numeral without leaving a redirect: Per RM, and to match the wrapper template

2022-02-05T14:34:18Z

LaundryPizza03 moved page Module:Greek to Module:Greek numeral without leaving a redirect: Per RM, and to match the wrapper template

← Previous revision	Revision as of 14:34, 5 February 2022
(No difference)

El C: Protected "Module:Greek": High-risk Lua module ([Edit=Require autoconfirmed or confirmed access] (indefinite) [Move=Require autoconfirmed or confirmed access] (indefinite))

2019-05-29T03:52:57Z

Protected "Module:Greek": High-risk Lua module ([Edit=Require autoconfirmed or confirmed access] (indefinite) [Move=Require autoconfirmed or confirmed access] (indefinite))

← Previous revision	Revision as of 03:52, 29 May 2019
(No difference)

Gts-tg at 17:02, 10 September 2017

2017-09-10T17:02:09Z

← Previous revision		Revision as of 17:02, 10 September 2017
Line 83:		Line 83:
	local function thousandth(letter, total)		local function thousandth(letter, total)

	total = total - value(letter) -- remove previous addition as simple number		if letter ~= false then
			total = total - value(letter) -- remove previous addition as simple number
	total = total + ( value(letter) * 1000 )		total = total + ( value(letter) * 1000 )
			end

	return total		return total
Line 202:		Line 204:
	-- return: number		-- return: number
	function p.to_standard(frame)		function p.to_standard(frame)
	local ~~el_number~~ = frame.args[1]		local greek_number = frame.args[1]
	local total = 0		local total = 0
	local thousand_flag = false		local thousand_flag = false
	local prev_letter = false		local prev_letter = false

			greek_number = greek_number:gsub("´", "")
⚫	if type(~~el_number~~) ~= 'string' then

⚫	return 'Error: value ' .. ~~el_number~~ .. ' is a ' .. type(~~el_number~~) .. ' ~~and~~ ~~not~~ a string'
		⚫	if type(greek_number) ~= 'string' then
		⚫	return 'Error: value ' .. greek_number .. ' is ' .. type(greek_number) .. ' instead of expected string'
	end		end

	-- iterate through letters		-- iterate through letters
	for letter in mw.ustring.gmatch(~~el_number~~, ".") do		for letter in mw.ustring.gmatch(greek_number, ".") do

	-- check if thousand marker exists		-- check if thousand marker exists
	if letter == "´" then		if letter == "," then
	thousand_flag = true		thousand_flag = true
	else		else
	if thousand_flag == true then		if thousand_flag == true then
	total = thousandth(~~prev_letter~~, total)		total = thousandth(letter, total)
	thousand_flag = false		thousand_flag = false
	~~else~~		end
	total = total + value(letter)
			total = total + value(letter)
	end

	prev_letter = letter		prev_letter = letter
	end		end

Gts-tg at 15:45, 10 September 2017

2017-09-10T15:45:13Z

← Previous revision		Revision as of 15:45, 10 September 2017
Line 189:		Line 189:
	result = frame:preprocess(result)		result = frame:preprocess(result)
	else		else
		⚫	if tonumber(number) >= 1000 then result = ',' .. result end
	t_marker = ''
		⚫	result = mw.ustring.upper(result) .. "´"
⚫	if tonumber(number) >= 1000 then ~~t_marker~~ = ',' end
⚫	result = ~~t_marker ..~~ mw.ustring.upper(result) .. "´"
	end		end

Gts-tg at 15:28, 10 September 2017

2017-09-10T15:28:19Z

← Previous revision		Revision as of 15:28, 10 September 2017
Line 189:		Line 189:
	result = frame:preprocess(result)		result = frame:preprocess(result)
	else		else
			t_marker = ''
⚫	result = mw.ustring.upper(result) .. "´"
			if tonumber(number) >= 1000 then t_marker = ',' end
		⚫	result = t_marker .. mw.ustring.upper(result) .. "´"
	end		end

Gts-tg at 11:10, 10 September 2017

2017-09-10T11:10:47Z

← Previous revision		Revision as of 11:10, 10 September 2017
Line 118:		Line 118:

	if greek_number ~= '' then -- if not all digits are multiples of myriad		if greek_number ~= '' then -- if not all digits are multiples of myriad
	postfix = "͵" .. greek_number .. "'"		postfix = "͵" .. greek_number .. "´"
	end		end

Line 189:		Line 189:
	result = frame:preprocess(result)		result = frame:preprocess(result)
	else		else
	result = mw.ustring.upper(result) .. "'"		result = mw.ustring.upper(result) .. "´"
	end		end

Gts-tg at 11:09, 10 September 2017

2017-09-10T11:09:05Z

← Previous revision		Revision as of 11:09, 10 September 2017
Line 189:		Line 189:
	result = frame:preprocess(result)		result = frame:preprocess(result)
	else		else
	result = mw.ustring.upper(result)		result = mw.ustring.upper(result) .. "'"
	end		end

Gts-tg at 10:47, 10 September 2017

2017-09-10T10:47:45Z

← Previous revision		Revision as of 10:47, 10 September 2017
Line 106:		Line 106:
	-- special notation for numbers > 9999		-- special notation for numbers > 9999
	local function mu_notation(greek_number, digits)		local function mu_notation(greek_number, digits)
	local result = ''		local result = ''
			local postfix = ''

	-- digits greater than 9999		-- digits greater than 9999
Line 116:		Line 117:
	end		end

			if greek_number ~= '' then -- if not all digits are multiples of myriad
⚫	result = '<math>\\stackrel{' .. result .. '}{\\Mu}</math>' .. ~~'͵' .. greek_number~~
			postfix = "͵" .. greek_number .. "'"
			end

		⚫	result = '<math>\\stackrel{' .. result .. '}{\\Mu}</math>' .. postfix

	return result		return result
Line 132:		Line 137:

	if tonumber(number) > 9999 then		if tonumber(number) > 9999 then
	m_notation = true		m_notation = true
	end		end

Line 187:		Line 192:
	end		end

	return result ~~.. '´'~~		return result

	end		end

Gts-tg: updates, mostly for dealing with mu notation

2017-09-10T10:09:16Z

updates, mostly for dealing with mu notation

← Previous revision		Revision as of 10:09, 10 September 2017
Line 44:		Line 44:
	["Ϛ"] = 'digamma',		["Ϛ"] = 'digamma',
	["ζ"] = 'zeta',		["ζ"] = 'zeta',
	["η"] = '~~heta~~',		["η"] = 'eta',
	["θ"] = 'theta',		["θ"] = 'theta',
	["ι"] = 'iota',		["ι"] = 'iota',
Line 105:		Line 105:

	-- special notation for numbers > 9999		-- special notation for numbers > 9999
	local function mu_notation(greek_number, ~~indexes~~)		local function mu_notation(greek_number, digits)
	local result = ''		local result = ''

	-- digits ~~great~~ than 9999		-- digits greater than 9999
	for index, ~~value~~ in pairs(~~indexes~~) do		for index, digit in pairs(digits) do
	--mw.log(~~index~~)		-- mw.log(digit)
	result = result .. '\\' .. numeral_latin_transliteration[~~value~~]		result = result .. '\\' .. numeral_latin_transliteration[digit]

	greek_number = greek_number:gsub(~~value~~, "")		greek_number = greek_number:gsub(digit, "", 1)
	end		end

	greek_number = greek_number:gsub('nil', "")
	greek_number = greek_number:gsub('͵', "")

	result = '<math>\\stackrel{' .. result .. '}{\\Mu}</math>' .. '͵' .. greek_number		result = '<math>\\stackrel{' .. result .. '}{\\Mu}</math>' .. '͵' .. greek_number
Line 132:		Line 129:
	local result = ''		local result = ''
	local big_values = {}		local big_values = {}
			local m_notation = false

			if tonumber(number) > 9999 then
⚫	tbl = reverse_table(greek_numerals)
			m_notation = true
		⚫	end

		⚫	tbl = reverse_table(greek_numerals) -- reverse to [<number>] = '<letter>'

	if tbl[number] ~= null then		if tbl[number] ~= null then
	result = tbl[number]		result = tbl[number] -- direct hit
	else		else
	local str_number = tostring(number)		local str_number = tostring(number)
Line 143:		Line 145:
	local index = ''		local index = ''

	-- break up number digits		for digit in str_number:gmatch"." do -- break up number digits
			highest_numeric_position = highest_numeric_position - 1
	for char in str_number:gmatch"." do
		⚫
⚫	~~i = i +~~ 1
	index = tonumber(~~char~~ .. mw.ustring.rep('0', highest_numeric_position-i))		if tonumber(digit) > 0 then
			index = tonumber(digit .. mw.ustring.rep('0', highest_numeric_position))
	if ~~index ~= 0 then~~
			if highest_numeric_position >= 3 then
⚫

	-- , notation up to 9.999
	~~if index >~~ ~~900~~ ~~then~~		match = false
	~~result~~ = ~~result ..~~ ~~'͵'~~		while match == false do
	~~index = index / 1000~~
			if index < 1 then index = index * 10 end
	~~if index > 9 then~~
	~~big_values~~[~~highest_numeric_position-i~~] = ~~tbl[index]~~		if tbl[index] == nil then
	~~end~~		index = index / 10000
	~~end~~		else
		⚫	result = result .. tostring(tbl[tonumber(index)])
⚫
			match = true
⚫	result = result .. tostring(tbl[index])
	end		end
	end		end

			if highest_numeric_position > 3 then table.insert(big_values, tbl[tonumber(index)]) end
		⚫
			else
			result = result .. tostring(tbl[tonumber(index)])
			end
			end
			end
			--local d = require "Module:Debugging"
			--mw.log(result)
			--mw.log(d.dump(big_values))
	end		end

⚫
	if ~~tonumber(number)~~ > ~~9999~~ then --special notation		if m_notation == true then --special notation
		⚫
	result = mu_notation(result, big_values)		result = mu_notation(result, big_values)
	local frame = mw.getCurrentFrame()		local frame = mw.getCurrentFrame()

Salix alba: fix two maths characters

2017-09-04T13:15:35Z

fix two maths characters

← Previous revision		Revision as of 13:15, 4 September 2017
Line 48:		Line 48:
	["ι"] = 'iota',		["ι"] = 'iota',
	["κ"] = 'kappa',		["κ"] = 'kappa',
	["λ"] = '~~lamda~~',		["λ"] = 'lambda',
	["μ"] = 'mu',		["μ"] = 'mu',
	["ν"] = 'nu',		["ν"] = 'nu',
Line 58:		Line 58:
	["σ"] = 'sigma',		["σ"] = 'sigma',
	["ς"] = 'sigma', --(final variation)		["ς"] = 'sigma', --(final variation)
	["τ"] = '~~ταυ~~',		["τ"] = 'tau',
	["υ"] = 'upsilon',		["υ"] = 'upsilon',
	["φ"] = 'phi',		["φ"] = 'phi',