Zobrazení zdroje stránky Modul:Validuj souřadnice

Z následujících důvodů nemáte oprávnění upravit tuto stránku:

Tato stránka byla zamčena, aby se předešlo jejímu editování.
Vaše IP adresa je v rozsahu, který byl zablokován na všech projektech nadace Wikimedia Foundation. Blokování bylo provedeno uživatelem ‪Jon Kolbert‬. Uvedený důvod je Open proxy/Webhost: See the help page if you are affected .
- Začátek blokování: 12. 11. 2023, 20:26
- Blokování vyprší: 12. 11. 2028, 20:26
Vaše současná IP adresa je 18.209.29.186 a blokovaný rozsah je 18.209.0.0/16. Prosím, uvádějte tyto údaje ve všech dotazech. Pokud se domníváte, že jste byli zablokováni omylem, můžete najít další informace a instrukce v globálním pravidle Žádné open proxy. Nebo pokud chcete blok prodiskutovat, vložte žádost o revizi na Meta-Wiki nebo pošlete e-mail do VRT fronty stevardům na adrese stewards@wikimedia.org. Výše uvedené údaje uvádějte ve všech dotazech.

Můžete si zobrazit a zkopírovat zdrojový kód této stránky:

require 'Modul:No globals'

local p = {}

local getArgs = require( 'Modul:Arguments' ).getArgs

local function makeCategory( category )
	if mw.title.getCurrentTitle().namespace == 0 then
		local Kategorie = require 'Modul:Kategorie'
		return Kategorie.makeCategory(
			category,
			mw.title.getCurrentTitle().namespace,
			mw.title.getCurrentTitle().text
		)
	else
		return ''
	end
end

-- @author [[Wikipedista:Oashi]]
local function makeDiffCategory( range )
	local unit = 'm'
	if range >= 1000 then
		unit = 'km'
		range = math.floor( range / 1000 )
	end
	local category_pattern = 'Údržba:Souřadnice z Wikidat se liší o více než %d %s'
	return makeCategory( mw.ustring.format( category_pattern, range, unit ) )
end

-- @author [[Wikipedista:Oashi]]
local function validateRange( range )
	if range < 0 then
		return false, '' --TODO: chyba
	end
	if range < 0.1 then
		return true, ''
	end
	local metre = math.min( range, 999 ) * 1000
	local magn, fract = math.modf( math.log10( metre ) )
	for _, num in ipairs{ 5, 2 } do
		if 10 ^ fract > num then
			return false, makeDiffCategory( num * ( 10 ^ magn ) )
		end
	end
	return false, makeDiffCategory( 10 ^ magn )
end

local function getFirstKey( args, ... )
	for _, key in ipairs{ ... } do
		if args[key] then
			return tonumber( args[key] )
		end
	end
	return nil
end

function p.main( frame )
	local args = getArgs( frame, {
		parentOnly = true,
		readOnly = true,
		removeBlanks = true,
	} )
	local lat = getFirstKey( args, 'zeměpisná šířka', 'šířka', 'latitude', 'lat', 1 )
	local long = getFirstKey( args, 'zeměpisná délka', 'délka', 'longitude', 'long', 'lon', 2 )
	local Wikidata = require 'Modul:Wikidata'
	local WD_coord = Wikidata.getRawValueFromLua{ property = 'P625', id = args.id, of = args.of }
	local _, category = p.validate( lat, long, WD_coord, args.kategorie )
	return category
end

function p.validate( lat, long, WD_coord, missing_cat )
	if not (lat or long) then
		if not WD_coord then
			return false, makeCategory( missing_cat or 'Údržba:Články objektů bez souřadnic' )
		else
			return true, ''
		end
	end
	if not (lat and long) then
		return false, makeCategory( 'Údržba:Články s chybným vložením souřadnic' )
	end
	if not WD_coord then
		return false, makeCategory( 'Údržba:Bez souřadnic na Wikidatech' )
	end
	local bool, category = validateRange( p.range( lat, long, WD_coord.latitude, WD_coord.longitude ) )
	return bool, category .. makeCategory( 'Monitoring:Články s výpočty' )
end

-- @see [[Ortodroma#Délky ortodromy]]
function p.range( lat1, long1, lat2, long2 )
	local radius = 6372.795
	local cosValue = math.sin( math.rad( lat1 ) ) * math.sin( math.rad( lat2 ) )
		+ math.cos( math.rad( lat1 ) ) * math.cos( math.rad( lat2 ) ) * math.cos( math.rad( long2 - long1 ) )
	if cosValue > 1 then return 0 end
	if cosValue < -1 then return radius * math.pi end
	return radius * math.acos( cosValue )
end

return p

Šablony použité na této stránce:

Šablona:Cedule (ukázat zdroj) (rozšířeně polozamčeno)
Šablona:Cedule/komentář (ukázat zdroj) (rozšířeně polozamčeno)
Šablona:Clear (ukázat zdroj) (rozšířeně polozamčeno)
Šablona:Dokumentace (ukázat zdroj) (polozamčena)
Šablona:Dokumentace/styles.css (ukázat zdroj) (polozamčena)
Šablona:Editlink (ukázat zdroj) (rozšířeně polozamčeno)
Šablona:Historylink (ukázat zdroj) (polozamčena)
Šablona:Purge (ukázat zdroj) (rozšířeně polozamčeno)
Šablona:Rozšířeně polozamčeno (ukázat zdroj) (rozšířeně polozamčeno)
Šablona:Upravit dokumentaci (editovat)
Modul:Validuj souřadnice/Dokumentace (editovat)

Návrat na stránku „Modul:Validuj souřadnice“.

Citováno z „https://cs.wikipedia.org/wiki/Modul:Validuj_souřadnice“