EnciclopediaGuanche - Contribuciones del usuario [es]

Módulo:TableTools

2026-02-06T19:13:58Z

GeminiFix:

--[[
------------------------------------------------------------------------------------
-- TableTools --
-- --
-- This module includes a number of functions for dealing with Lua tables. --
-- It is a meta-module, meant to be called from other Lua modules, and should --
-- not be called directly from #invoke. --
------------------------------------------------------------------------------------
--]]

local libraryUtil = require('libraryUtil')

local p = {}

-- Define often-used variables and functions.
local floor = math.floor
local infinity = math.huge
local checkType = libraryUtil.checkType
local checkTypeMulti = libraryUtil.checkTypeMulti

--[[
------------------------------------------------------------------------------------
-- isPositiveInteger
--
-- This function returns true if the given value is a positive integer, and false
-- if not. Although it doesn't operate on tables, it is included here as it is
-- useful for determining whether a given table key is in the array part or the
-- hash part of a table.
------------------------------------------------------------------------------------
--]]
function p.isPositiveInteger(v)
return type(v) == 'number' and v >= 1 and floor(v) == v and v < infinity
end

--[[
------------------------------------------------------------------------------------
-- isNan
--
-- This function returns true if the given number is a NaN value, and false
-- if not. Although it doesn't operate on tables, it is included here as it is
-- useful for determining whether a value can be a valid table key. Lua will
-- generate an error if a NaN is used as a table key.
------------------------------------------------------------------------------------
--]]
function p.isNan(v)
return type(v) == 'number' and tostring(v) == '-nan'
end

--[[
------------------------------------------------------------------------------------
-- shallowClone
--
-- This returns a clone of a table. The value returned is a new table, but all
-- subtables and functions are shared. Metamethods are respected, but the returned
-- table will have no metatable of its own.
------------------------------------------------------------------------------------
--]]
function p.shallowClone(t)
local ret = {}
for k, v in pairs(t) do
ret[k] = v
end
return ret
end

--[[
------------------------------------------------------------------------------------
-- removeDuplicates
--
-- This removes duplicate values from an array. Non-positive-integer keys are
-- ignored. The earliest value is kept, and all subsequent duplicate values are
-- removed, but otherwise the array order is unchanged.
------------------------------------------------------------------------------------
--]]
function p.removeDuplicates(t)
checkType('removeDuplicates', 1, t, 'table')
local isNan = p.isNan
local ret, exists = {}, {}
for i, v in ipairs(t) do
if isNan(v) then
-- NaNs can't be table keys, and they are also unique, so we don't need to check existence.
ret[#ret + 1] = v
else
if not exists[v] then
ret[#ret + 1] = v
exists[v] = true
end
end
end
return ret
end

--[[
------------------------------------------------------------------------------------
-- numKeys
--
-- This takes a table and returns an array containing the numbers of any numerical
-- keys that have non-nil values, sorted in numerical order.
------------------------------------------------------------------------------------
--]]
function p.numKeys(t)
checkType('numKeys', 1, t, 'table')
local isPositiveInteger = p.isPositiveInteger
local nums = {}
for k, v in pairs(t) do
if isPositiveInteger(k) then
nums[#nums + 1] = k
end
end
table.sort(nums)
return nums
end

--[[
------------------------------------------------------------------------------------
-- affixNums
--
-- This takes a table and returns an array containing the numbers of keys with the
-- specified prefix and suffix. For example, for the table
-- {a1 = 'foo', a3 = 'bar', a6 = 'baz'} and the prefix "a", affixNums will
-- return {1, 3, 6}.
------------------------------------------------------------------------------------
--]]
function p.affixNums(t, prefix, suffix)
checkType('affixNums', 1, t, 'table')
checkType('affixNums', 2, prefix, 'string', true)
checkType('affixNums', 3, suffix, 'string', true)

local function cleanPattern(s)
-- Cleans a pattern so that the magic characters ()%.[]*+-?^$ are interpreted literally.
return s:gsub('([%(%)%%%.%[%]%*%+%-%?%^%$])', '%%%1')
end

prefix = prefix or ''
suffix = suffix or ''
prefix = cleanPattern(prefix)
suffix = cleanPattern(suffix)
local pattern = '^' .. prefix .. '([1-9]%d*)' .. suffix .. '$'

local nums = {}
for k, v in pairs(t) do
if type(k) == 'string' then
local num = mw.ustring.match(k, pattern)
if num then
nums[#nums + 1] = tonumber(num)
end
end
end
table.sort(nums)
return nums
end

--[[
------------------------------------------------------------------------------------
-- numData
--
-- Given a table with keys like ("foo1", "bar1", "foo2", "baz2"), returns a table
-- of subtables in the format
-- { [1] = {foo = 'text', bar = 'text'}, [2] = {foo = 'text', baz = 'text'} }
-- Keys that don't end with an integer are stored in a subtable named "other".
-- The compress option compresses the table so that it can be iterated over with
-- ipairs.
------------------------------------------------------------------------------------
--]]
function p.numData(t, compress)
checkType('numData', 1, t, 'table')
checkType('numData', 2, compress, 'boolean', true)
local ret = {}
for k, v in pairs(t) do
local prefix, num = mw.ustring.match(tostring(k), '^([^0-9]*)([1-9][0-9]*)$')
if num then
num = tonumber(num)
local subtable = ret[num] or {}
if prefix == '' then
-- Positional parameters match the blank string; put them at the start of the subtable instead.
prefix = 1
end
subtable[prefix] = v
ret[num] = subtable
else
local subtable = ret.other or {}
subtable[k] = v
ret.other = subtable
end
end
if compress then
local other = ret.other
ret = p.compressSparseArray(ret)
ret.other = other
end
return ret
end

--[[
------------------------------------------------------------------------------------
-- compressSparseArray
--
-- This takes an array with one or more nil values, and removes the nil values
-- while preserving the order, so that the array can be safely traversed with
-- ipairs.
------------------------------------------------------------------------------------
--]]
function p.compressSparseArray(t)
checkType('compressSparseArray', 1, t, 'table')
local ret = {}
local nums = p.numKeys(t)
for _, num in ipairs(nums) do
ret[#ret + 1] = t[num]
end
return ret
end

--[[
------------------------------------------------------------------------------------
-- sparseIpairs
--
-- This is an iterator for sparse arrays. It can be used like ipairs, but can
-- handle nil values.
------------------------------------------------------------------------------------
--]]
function p.sparseIpairs(t)
checkType('sparseIpairs', 1, t, 'table')
local nums = p.numKeys(t)
local i = 0
local lim = #nums
return function ()
i = i + 1
if i <= lim then
local key = nums[i]
return key, t[key]
else
return nil, nil
end
end
end

--[[
------------------------------------------------------------------------------------
-- size
--
-- This returns the size of a key/value pair table. It will also work on arrays,
-- but for arrays it is more efficient to use the # operator.
------------------------------------------------------------------------------------
--]]

function p.size(t)
checkType('size', 1, t, 'table')
local i = 0
for k in pairs(t) do
i = i + 1
end
return i
end

local function defaultKeySort(item1, item2)
-- "number" < "string", so numbers will be sorted before strings.
local type1, type2 = type(item1), type(item2)
if type1 ~= type2 then
return type1 < type2
else -- This will fail with table, boolean, function.
return item1 < item2
end
end

--[[
Returns a list of the keys in a table, sorted using either a default
comparison function or a custom keySort function.
]]
function p.keysToList(t, keySort, checked)
if not checked then
checkType('keysToList', 1, t, 'table')
checkTypeMulti('keysToList', 2, keySort, { 'function', 'boolean', 'nil' })
end

local list = {}
local index = 1
for key, value in pairs(t) do
list[index] = key
index = index + 1
end

if keySort ~= false then
keySort = type(keySort) == 'function' and keySort or defaultKeySort

table.sort(list, keySort)
end

return list
end

--[[
Iterates through a table, with the keys sorted using the keysToList function.
If there are only numerical keys, sparseIpairs is probably more efficient.
]]
function p.sortedPairs(t, keySort)
checkType('sortedPairs', 1, t, 'table')
checkType('sortedPairs', 2, keySort, 'function', true)

local list = p.keysToList(t, keySort, true)

local i = 0
return function()
i = i + 1
local key = list[i]
if key ~= nil then
return key, t[key]
else
return nil, nil
end
end
end

--[[
Returns true if all keys in the table are consecutive integers starting at 1.
--]]
function p.isArray(t)
checkType("isArray", 1, t, "table")

local i = 0
for k, v in pairs(t) do
i = i + 1
if t[i] == nil then
return false
end
end
return true
end

-- { "a", "b", "c" } -> { a = 1, b = 2, c = 3 }
function p.invert(array)
checkType("invert", 1, array, "table")

local map = {}
for i, v in ipairs(array) do
map[v] = i
end

return map
end

--[[
{ "a", "b", "c" } -> { ["a"] = true, ["b"] = true, ["c"] = true }
--]]
function p.listToSet(t)
checkType("listToSet", 1, t, "table")

local set = {}
for _, item in ipairs(t) do
set[item] = true
end

return set
end

--[[
Recursive deep copy function.
Preserves identities of subtables.

]]
local function _deepCopy(orig, includeMetatable, already_seen)
-- Stores copies of tables indexed by the original table.
already_seen = already_seen or {}

local copy = already_seen[orig]
if copy ~= nil then
return copy
end

if type(orig) == 'table' then
copy = {}
for orig_key, orig_value in pairs(orig) do
copy[deepcopy(orig_key, includeMetatable, already_seen)] = deepcopy(orig_value, includeMetatable, already_seen)
end
already_seen[orig] = copy

if includeMetatable then
local mt = getmetatable(orig)
if mt ~= nil then
local mt_copy = deepcopy(mt, includeMetatable, already_seen)
setmetatable(copy, mt_copy)
already_seen[mt] = mt_copy
end
end
else -- number, string, boolean, etc
copy = orig
end
return copy
end

function p.deepCopy(orig, noMetatable, already_seen)
checkType("deepCopy", 3, already_seen, "table", true)

return _deepCopy(orig, not noMetatable, already_seen)
end

--[[
Concatenates all values in the table that are indexed by a number, in order.
sparseConcat{ a, nil, c, d } => "acd"
sparseConcat{ nil, b, c, d } => "bcd"
]]
function p.sparseConcat(t, sep, i, j)
local list = {}

local list_i = 0
for _, v in p.sparseIpairs(t) do
list_i = list_i + 1
list[list_i] = v
end

return table.concat(list, sep, i, j)
end

--[[
-- Finds the length of an array, or of a quasi-array with keys such
-- as "data1", "data2", etc., using an exponential search algorithm.
-- It is similar to the operator #, but may return
-- a different value when there are gaps in the array portion of the table.
-- Intended to be used on data loaded with mw.loadData. For other tables, use #.
-- Note: #frame.args in frame object always be set to 0, regardless of
-- the number of unnamed template parameters, so use this function for
-- frame.args.
--]]

function p.length(t, prefix)
-- requiring module inline so that [[Module:Exponential search]]
-- which is only needed by this one function
-- doesn't get millions of transclusions
local expSearch = require("Module:Exponential search")
checkType('length', 1, t, 'table')
checkType('length', 2, prefix, 'string', true)
return expSearch(function(i)
local key
if prefix then
key = prefix .. tostring(i)
else
key = i
end
return t[key] ~= nil
end) or 0
end
function p.inArray(arr, valueToFind)
checkType("inArray", 1, arr, "table")

-- if valueToFind is nil, error?

for _, v in ipairs(arr) do
if v == valueToFind then
return true
end
end

return false
end

return p

Módulo:String

2026-02-06T19:13:57Z

GeminiFix:

--[[
Este módulo está destinado a proporcionar acceso a las funciones de cadena (string) básicas.
]]

local str = {}

--[[
len

Parametros
s: La cadena a encontrar su longitud

]]
function str.len( frame )
local new_args = str._getParameters( frame.args, {'s'} );
local s = new_args['s'] or '';
return mw.ustring.len( s )
end

--[[
sub

Parametros
s: La cadena donde extraer la subcadena
i: La cadena donde extraer la subcadena.
j: Índice final de la subcadena, por defecto la longitud total, hasta el último carácter.

]]
function str.sub( frame )
local new_args = str._getParameters( frame.args, { 's', 'i', 'j' } );
local s = new_args['s'] or '';
local i = tonumber( new_args['i'] ) or 1;
local j = tonumber( new_args['j'] ) or -1;

local len = mw.ustring.len( s );

-- Convertir negativos para la comprobación de rango
if i < 0 then
i = len + i + 1;
end
if j < 0 then
j = len + j + 1;
end

if i > len or j > len or i < 1 or j < 1 then
return str._error( 'Índice fuera del rango de la cadena' );
end
if j < i then
return str._error( 'Índices de la cadena no ordenados' );
end

return mw.ustring.sub( s, i, j )
end

--[[
match

Parametros
s: cadena donde se hace la búsqueda
pattern: patrón o cadena a buscar.
start: índice de la cadena dónde empezar a buscar, por defecto 1, el primer carácter.
match: si se encuentran múltiples coincidencias, especifica cuál de ellas devolver. Por defecto es 1, l
la primera coincidencia encontrada. Un número negativo cuenta desde el final, por lo tanto
match = -1 es la última coincidencia.
plain: indica si el patrón debe interpretarse como texto limpio, por defecto 'false'. nomatch: en caso de
no encontrar ninguna coincidencia, devuelve el valor de "nomatch" en lugar de un error.
Si el número match o el índice start están fuera del rango de la cadena, entonces la función genera un error.
También genera un error si no encuentra ninguna coincidencia.
Con el parámetro global ignore_errors = true se suprime el
error y devuelve una cadena vacía.
]]
function str.match( frame )
local new_args = str._getParameters( frame.args, {'s', 'pattern', 'start', 'match', 'plain', 'nomatch'} );
local s = new_args['s'] or '';
local start = tonumber( new_args['start'] ) or 1;
local plain_flag = str._getBoolean( new_args['plain'] or false );
local pattern = new_args['pattern'] or '';
local match_index = math.floor( tonumber(new_args['match']) or 1 );
local nomatch = new_args['nomatch'];

if s == '' then
return str._error( 'La cadena donde buscar está vacía' );
end
if pattern == '' then
return str._error( 'La cadena de búsqueda está vacía ' );
end
if math.abs(start) < 1 or math.abs(start) > mw.ustring.len( s ) then
return str._error( 'Índice d\'inicio fuera del rango de la cadena ' );
end
if match_index == 0 then
return str._error( 'Número de coincidencias fuera de rango' );
end
if plain_flag then
pattern = str._escapePattern( pattern );
end

local result
if match_index == 1 then
-- Encontrar la primera coincidencia es un caso sencillo.
result = mw.ustring.match( s, pattern, start )
else
if start > 1 then
s = mw.ustring.sub( s, start );
end

local iterator = mw.ustring.gmatch(s, pattern);
if match_index > 0 then
-- Búsqueda hacia adelante
for w in iterator do
match_index = match_index - 1;
if match_index == 0 then
result = w;
break;
end
end
else
-- Invierte búsqueda
local result_table = {};
local count = 1;
for w in iterator do
result_table[count] = w;
count = count + 1;
end

result = result_table[ count + match_index ];
end
end

if result == nil then
if nomatch == nil then
return str._error( 'Ninguna coincidencia encontrada' );
else
return nomatch;
end
else
return result;
end
end

--[[
pos

Parámetros
target: Cadena donde buscar.
pos: Índice del carácter a devolver.
]]
function str.pos( frame )
local new_args = str._getParameters( frame.args, {'target', 'pos'} );
local target_str = new_args['target'] or '';
local pos = tonumber( new_args['pos'] ) or 0;

if pos == 0 or math.abs(pos) > mw.ustring.len( target_str ) then
return str._error( 'Índice fuera del rango de la cadena' );
end

return mw.ustring.sub( target_str, pos, pos );
end

--[[
find

Parametros
source: Cadena donde buscar.
target: Cadena a buscar o patrón de búsqueda.
start: Índice de la cadena fuente donde empezar a buscar, por defecto 1, el primer carácter.
plain: Indica si la búsqueda debe interpretarse como texto limpio, de lo contrario como patrón Lua.
Por defecto es 'true'.
]]
function str.find( frame )
local new_args = str._getParameters( frame.args, {'source', 'target', 'start', 'plain' } );
local source_str = new_args['source'] or '';
local pattern = new_args['target'] or '';
local start_pos = tonumber(new_args['start']) or 1;
local plain = new_args['plain'] or true;

if source_str == '' or pattern == '' then
return 0;
end

plain = str._getBoolean( plain );

local start = mw.ustring.find( source_str, pattern, start_pos, plain )
if start == nil then
start = 0
end

return start
end

--[[
replace

Parámetros
source: Cadena donde buscar
pattern: Cadena de búsqueda o patrón a buscar
replace: Texto de reemplazo
count: Número de ocurrencias a reemplazar, por defecto todas.
plain: Indica si la búsqueda debe interpretarse como texto limpio, de lo contrario como patrón Lua. Por
defecto es 'true'
]]
function str.replace( frame )
local new_args = str._getParameters( frame.args, {'source', 'pattern', 'replace', 'count', 'plain' } );
local source_str = new_args['source'] or '';
local pattern = new_args['pattern'] or '';
local replace = new_args['replace'] or '';
local count = tonumber( new_args['count'] );
local plain = new_args['plain'] or true;

if source_str == '' or pattern == '' then
return source_str;
end
plain = str._getBoolean( plain );

if plain then
pattern = str._escapePattern( pattern );
replace = mw.ustring.gsub( replace, "%%", "%%%%" ); --Sólo es necesario secuencias de escape.
end

local result;

if count ~= nil then
result = mw.ustring.gsub( source_str, pattern, replace, count );
else
result = mw.ustring.gsub( source_str, pattern, replace );
end

return result;
end

--[[
count

Esta funsción cuenta el número de existencias de un carácter o una cadena (no supuerpuestos) dentro de otra cadena.
]]
function str.count(frame)
local args = str._getParameters(frame.args, {'source', 'pattern', 'plain'})
local source = args.source or ''
local pattern = args.pattern or ''
local plain = str._getBoolean(args.plain or true)
if plain then
pattern = str._escapePattern(pattern)
end
local _, count = mw.ustring.gsub(source, pattern, '')
return count
end

function str.mayuscula(frame) -- Convierte en mayúsculas la primera letra que aparece en la edición de una cadena
local s = frame.args[1] or '';
if s ~= '' then
local cambio = {};
local modo = {};
if string.find(s, '|') ~= nil then -- Enlaces con etiqueta
modo = string.upper(string.match(s,'(|%a)'));
cambio = string.gsub(s,'|%a', modo,1);
elseif string.find(s, '[[]') ~= nil then -- Enlaces sin etiqueta
modo = string.upper(string.match(s,'^(..%a)'));
cambio = string.gsub(s,'^..%a', modo,1);
elseif string.match(s,'^%a') ~= nil then -- Sin enlace
modo = string.upper(string.match(s,'^(%a)'));
cambio = string.gsub(s,'^%a', modo, 1);
else
cambio = s;
end
return cambio;
end
end

--[[
Función de ayuda que rellena la lista de argumentos, para que el usuario pueda utilizar una combinación de
parámetros con nombre y sin nombre. Esto es importante porque los parámetros con nombre no funcionan igual
que los parámetros sin nombre cuando se encadenan recortes, y cuando se trata de cadenas
a veces se debe conservar o quitar espacios en blanco dependiendo de la aplicación.
]]
function str._getParameters( frame_args, arg_list )
local new_args = {};
local index = 1;
local value;

for i,arg in ipairs( arg_list ) do
value = frame_args[arg]
if value == nil then
value = frame_args[index];
index = index + 1;
end
new_args[arg] = value;
end

return new_args;
end

--[[
Función de ayuda para controlar los mensajes de error.
]]
function str._error( error_str )
local frame = mw.getCurrentFrame();
local error_category = frame.args.error_category or 'Errores detectados por el módulo String';
local ignore_errors = frame.args.ignore_errors or false;
local no_category = frame.args.no_category or false;

if str._getBoolean(ignore_errors) then
return '';
end

local error_str = 'Error del módulo String: ' .. error_str .. '';
if error_category ~= '' and not str._getBoolean( no_category ) then
error_str = '[[Categoría:Wikipedia:' .. error_category .. ']]' .. error_str;
end

return error_str;
end

--[[
Función de ayuda para interpretar cadenas booleanas.
]]
function str._getBoolean( boolean_str )
local boolean_value;

if type( boolean_str ) == 'string' then
boolean_str = boolean_str:lower();
if boolean_str == 'false' or boolean_str == 'no' or boolean_str == '0'
or boolean_str == '' then
boolean_value = false;
else
boolean_value = true;
end
elseif type( boolean_str ) == 'boolean' then
boolean_value = boolean_str;
else
error( 'Ningún valor booleano encontrado' );
end
return boolean_value
end

--[[
Función de ayuda que escapa a todos los caracteres de patrón para que puedan ser tratados
como texto sin formato.
]]
function str._escapePattern( pattern_str )
return mw.ustring.gsub( pattern_str, "([%(%)%.%%%+%-%*%?%[%^%$%]])", "%%%1" );
end

return str

Módulo:Math

2026-02-06T19:13:56Z

GeminiFix:

--[[

Este módulo proporciona una serie de operaciones matemáticas básicas.

]]
local z = {}

-- Genera un número aleatorio
function z.random(frame)
local first = tonumber(frame.args[1])
local second = tonumber(frame.args[2])
local seed = tonumber(frame.args.seed)
if seed then
math.randomseed(seed * os.time()) -- inicialización pseudoaleatoria
end
if first and second then
if first < second then
return math.random(first,second) -- entero entre [first,second]
else
return math.random(second,first)
end
elseif first then
if first > 0 then
return math.random(first) -- entero entre [1,first]
else
return math.random(first,-1)
end
else
return math.random() -- número real entre [0,1)
end
end

--[[
order

Determina el orden y la magnitud de los números

Uso:
{{#invoke: Math | order | <valor> }}
]]
function z.order(frame)
local input_string = (frame.args[1] or frame.args.x or '0');
local input_number;

input_number = z._cleanNumber( frame, input_string );
if input_number == nil then
return 'Error de formato: El orden de magnitud debe ser numérico'
else
return z._order( input_number )
end
end
function z._order(x)
if x == 0 then return 0 end
return math.floor(math.log10(math.abs(x)))
end

--[[
precision

Detemina la precisión de un número usando la representación de cadena

Usar:
{{ #invoke: Math | precision | <valor> }}
]]
function z.precision( frame )
local input_string = (frame.args[1] or frame.args.x or '0');
local trap_fraction = frame.args.check_fraction or false;
local input_number;

if type( trap_fraction ) == 'string' then
trap_fraction = trap_fraction:lower();
if trap_fraction == 'false' or trap_fraction == '0' or
trap_fraction == 'no' or trap_fraction == '' then
trap_fraction = false;
else
trap_fraction = true;
end
end

if trap_fraction then
local pos = string.find( input_string, '/', 1, true );
if pos ~= nil then
if string.find( input_string, '/', pos + 1, true ) == nil then
local denominator = string.sub( input_string, pos+1, -1 );
local denom_value = tonumber( denominator );
if denom_value ~= nil then
return math.log10(denom_value);
end
end
end
end

input_number, input_string = z._cleanNumber( frame, input_string );
if input_string == nil then
return 'Error de formato: El valor de precisión ha de ser numérico'
else
return z._precision( input_string )
end
end
function z._precision( x )
x = string.upper( x )

local decimal = string.find( x, '.', 1, true )
local exponent_pos = string.find( x, 'E', 1, true )
local result = 0;

if exponent_pos ~= nil then
local exponent = string.sub( x, exponent_pos + 1 )
x = string.sub( x, 1, exponent_pos - 1 )
result = result - tonumber( exponent )
end

if decimal ~= nil then
result = result + string.len( x ) - decimal
return result
end

local pos = string.len( x );
while x:byte(pos) == string.byte('0') do
pos = pos - 1
result = result - 1
if pos <= 0 then
return 0
end
end

return result
end

--[[
max

Busca el argumento máximo

Uso:
{{#invoke:Math| max | <valor1> | <valor2> | ... }}
o
{{#invoke:Math| max }}

Cuando se utiliza sin argumentos, toma su entrada del marco superior.
Tenga en cuenta que todos los valores que no se evalúan como números son ignorados.
]]
function z.max( frame )
local args = frame.args;

if args[1] == nil then
local parent = frame:getParent();
args = parent.args;
end
local max_value = nil;

local i = 1;
while args[i] ~= nil do
local val = z._cleanNumber( frame, args[i] );
if val ~= nil then
if max_value == nil or val > max_value then
max_value = val;
end
end
i = i + 1;
end

return max_value
end

--[[
min

Busca el argumento mínimo

Uso:
{{#invoke:Math| min | <valor1> | <valor2> | ... }}
o
{{#invoke:Math| min }}

Cuando se utiliza sin argumentos, toma su entrada del marco superior.
Tenga en cuenta que todos los valores que no se evalúan como números son ignorados
]]
function z.min( frame )
local args = frame.args;

if args[1] == nil then
local parent = frame:getParent();
args = parent.args;
end
local min_value = nil;

local i = 1;
while args[i] ~= nil do
local val = z._cleanNumber( frame, args[i] );
if val ~= nil then
if min_value == nil or val < min_value then
min_value = val;
end
end
i = i + 1;
end

return min_value
end

-- Función que cuenta el número de parámetros informados
function z.cuenta( frame )
local resultado = 0;
local Argumentos = frame.args;

if Argumentos[1] == nil then
local parent = frame:getParent();
Argumentos = parent.args;
end

local i = 1;
while Argumentos[i] ~= nil do
if Argumentos[i] ~= '' then
resultado = resultado + 1
end

i = i + 1;
end

return resultado
end

-- Función que suma los parámetros
function z.suma( frame )
local resultado = 0;
local Argumentos = frame.args;

if Argumentos[1] == nil then
local parent = frame:getParent();
Argumentos = parent.args;
end

local i = 1;
while Argumentos[i] ~= nil do
if Argumentos[i] ~= '' then
resultado = resultado + Argumentos[i]
end

i = i + 1;
end

return resultado
end

--[[
round

Redondea un número a la precisión especificada

Uso:
{{#invoke:Math | round | <valor> | <precisión> }}

--]]
function z.round(frame)
local value, precision;

value = z._cleanNumber( frame, frame.args[1] or frame.args.value or 0 );
precision = z._cleanNumber( frame, frame.args[2] or frame.args.precision or 0 );

if value == nil or precision == nil then
return 'Error de formato: Los valores han de ser numéricos'
else
return z._round( value, precision );
end
end
function z._round( value, precision )
local rescale = math.pow( 10, precision );
return math.floor( value * rescale + 0.5 ) / rescale;
end

--[[
precision_format

Redondea un número a la precisión especificada y le da formato de acuerdo con las normas
originalmente utilizado para {{Plantilla: Rnd}}. La salida es una cadena.
Uso:
{{#invoke: Math | precision_format | <número> | <precisión> }}
]]
function z.precision_format( frame )
-- Para acceder a Mediawiki incorporando formateador.
local lang = mw.getContentLanguage();

local value_string, value, precision;
value, value_string = z._cleanNumber( frame, frame.args[1] or 0 );
precision = z._cleanNumber( frame, frame.args[2] or 0 );

-- Comprueba una entrada no numérica
if value == nil or precision == nil then
return 'Error de formato: Datos no válidos para redondear'
end

local current_precision = z._precision( value );

local order = z._order( value );

-- Debido a los efectos de redondeo, es necesario limitar la precisión devuelta bajo
-- algunas circunstancias, debido a que sobre los dígitos terminales se informó incorrectamente.
if order + precision >= 14 then
orig_precision = z._precision( value_string );
if order + orig_precision >= 14 then
precision = 13 - order;
end
end

-- Si el redondeo, trunca dígitos adicionales
if precision < current_precision then
value = z._round( value, precision );
current_precision = z._precision( value );
end

local formatted_num = lang:formatNum( math.abs(value) );
local sign;

-- Utiliza el signo menos unario apropiado antes que el ASCII por defecto
if value < 0 then
sign = '−';
else
sign = '';
end

-- Manejar los casos que requieren la notación científica
if string.find( formatted_num, 'E', 1, true ) ~= nil or math.abs(order) >= 9 then
value = value * math.pow( 10, -order );
current_precision = current_precision + order;
precision = precision + order;
formatted_num = lang:formatNum( math.abs(value) );
else
order = 0;
end
formatted_num = sign .. formatted_num;

-- Pad con ceros si es necesario
if current_precision < precision then
local padding;
if current_precision <= 0 then
if precision > 0 then
local zero_sep = lang:formatNum( 1.1 );
formatted_num = formatted_num .. zero_sep:sub(2,2);

padding = precision;
if padding > 20 then
padding = 20;
end

formatted_num = formatted_num .. string.rep( '0', padding );
end
else
padding = precision - current_precision
if padding > 20 then
padding = 20;
end
formatted_num = formatted_num .. string.rep( '0', padding );
end
end

-- Añade notación exponencial, si es necesario
if order ~= 0 then
-- Utiliza el signo menos unario apropiado antes que el ASCII por defecto
if order < 0 then
order = '−' .. lang:formatNum( math.abs(order) );
else
order = lang:formatNum( order );
end

formatted_num = formatted_num .. '×10' .. order .. ''
end

return formatted_num;
end

--[[
Función de ayuda que interpreta la entrada numérica.
Si la entrada no es un número, lo intenta evaluar como
un «parser function» (Analizador sintáctico).
]]

function z._cleanNumber( frame, number_string )
if number_string == nil or number_string:len() == 0 then
return nil, nil;
end

-- Intenta la conversión básica
local number = tonumber( number_string )

-- Si falla, trata de evaluar la entrada como expresión
if number == nil then
local attempt = frame:preprocess( '{{#expr: ' .. number_string .. '}}' );
attempt = tonumber( attempt );
if attempt ~= nil then
number = attempt;
number_string = tostring( number );
else
number = nil;
number_string = nil;
end
else
-- La cadena es válida pero puede contener relleno, límpiela.
number_string = number_string:match( "^%s*(.-)%s*$" );
end

return number, number_string;
end

return z

Módulo:Identificadores

2026-02-06T19:13:55Z

GeminiFix:

local p = {}

--[[
ISBN-10 and ISSN validator code calculates checksum across all isbn/issn digits including the check digit. ISBN-13 is checked in checkisbn().
If the number is valid the result will be 0. Before calling this function, issbn/issn must be checked for length and stripped of dashes,
spaces and other non-isxn characters.
]]
-- Función traída de en:Module:Citation/CS1

function p.esValidoISXN (isxn_str, len)
local temp = 0;
isxn_str = { isxn_str:byte(1, len) }; -- make a table of bytes
len = len+1; -- adjust to be a loop counter
for i, v in ipairs( isxn_str ) do -- loop through all of the bytes and calculate the checksum
if v == string.byte( "X" ) then -- if checkdigit is X
temp = temp + 10*( len - i ); -- it represents 10 decimal
else
temp = temp + tonumber( string.char(v) )*(len-i);
end
end
return temp % 11 == 0; -- returns true if calculation result is zero
end

-- Adaptación de la función checkisbn de en:Module:Citation/CS1
function p.esValidoISBN(isbn)
-- El isbn solo contiene números, guiones, espacios en blanco y el dígito de
-- control X.

if not isbn or isbn:match("[^%s-0-9X]") then
return false
end

-- Eliminar los guiones y espacios en blanco

isbn = isbn:gsub( "-", "" ):gsub( " ", "" )
local longitud = isbn:len()

if longitud == 10 then
-- La X solo puede ir al final.
if not isbn:match( "^%d*X?$" ) then
return false
end
return p.esValidoISXN(isbn, 10);
elseif longitud == 13 then -- isbn13
local temp = 0;
-- Debe comenzar por 978 o 979
if not isbn:match( "^97[89]%d*$" ) then
return false
end

-- Comprobar el dígito de control
isbn = { isbn:byte(1, longitud) };
for i, v in ipairs( isbn ) do
temp = temp + (3 - 2*(i % 2)) * tonumber( string.char(v) );
end
return temp % 10 == 0;
else
return false
end

end

-- Función que devuelve un enlace al ISBN si es correcto y si no (por ejemplo si
-- ya está enlazado) lo devuelve sin más.
-- Por defecto no se incluye el literal ISBN delante.

function p.enlazarISBN(isbn, opciones)
if p.esValidoISBN(isbn) then
return '[[Especial:FuentesDeLibros/' .. isbn .. '|' .. isbn .. ']]'
else
return isbn
end
end

function p.enlazarOCLC(oclc, opciones)
if tonumber(oclc) then
return '[http://www.worldcat.org/oclc/' .. oclc .. ' ' .. oclc .. ']'
else
return oclc
end
end

return p

Módulo:Date

2026-02-06T19:13:54Z

GeminiFix:

-- Date functions for use by other modules.
-- I18N and time zones are not supported.

local MINUS = '−' -- Unicode U+2212 MINUS SIGN
local floor = math.floor

local Date, DateDiff, diffmt -- forward declarations
local uniq = { 'unique identifier' }

local function is_date(t)
-- The system used to make a date read-only means there is no unique
-- metatable that is conveniently accessible to check.
return type(t) == 'table' and t._id == uniq
end

local function is_diff(t)
return type(t) == 'table' and getmetatable(t) == diffmt
end

local function _list_join(list, sep)
return table.concat(list, sep)
end

local function collection()
-- Return a table to hold items.
return {
n = 0,
add = function (self, item)
self.n = self.n + 1
self[self.n] = item
end,
join = _list_join,
}
end

local function strip_to_nil(text)
-- If text is a string, return its trimmed content, or nil if empty.
-- Otherwise return text (convenient when Date fields are provided from
-- another module which may pass a string, a number, or another type).
if type(text) == 'string' then
text = text:match('(%S.-)%s*$')
end
return text
end

local function is_leap_year(year, calname)
-- Return true if year is a leap year.
if calname == 'Julian' then
return year % 4 == 0
end
return (year % 4 == 0 and year % 100 ~= 0) or year % 400 == 0
end

local function days_in_month(year, month, calname)
-- Return number of days (1..31) in given month (1..12).
if month == 2 and is_leap_year(year, calname) then
return 29
end
return ({ 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 })[month]
end

local function h_m_s(time)
-- Return hour, minute, second extracted from fraction of a day.
time = floor(time * 24 * 3600 + 0.5) -- number of seconds
local second = time % 60
time = floor(time / 60)
return floor(time / 60), time % 60, second
end

local function hms(date)
-- Return fraction of a day from date's time, where (0 <= fraction < 1)
-- if the values are valid, but could be anything if outside range.
return (date.hour + (date.minute + date.second / 60) / 60) / 24
end

local function julian_date(date)
-- Return jd, jdz from a Julian or Gregorian calendar date where
-- jd = Julian date and its fractional part is zero at noon
-- jdz = same, but assume time is 00:00:00 if no time given
-- http://www.tondering.dk/claus/cal/julperiod.php#formula
-- Testing shows this works for all dates from year -9999 to 9999!
-- JDN 0 is the 24-hour period starting at noon UTC on Monday
-- 1 January 4713 BC = (-4712, 1, 1) Julian calendar
-- 24 November 4714 BC = (-4713, 11, 24) Gregorian calendar
local offset
local a = floor((14 - date.month)/12)
local y = date.year + 4800 - a
if date.calendar == 'Julian' then
offset = floor(y/4) - 32083
else
offset = floor(y/4) - floor(y/100) + floor(y/400) - 32045
end
local m = date.month + 12*a - 3
local jd = date.day + floor((153*m + 2)/5) + 365*y + offset
if date.hastime then
jd = jd + hms(date) - 0.5
return jd, jd
end
return jd, jd - 0.5
end

local function set_date_from_jd(date)
-- Set the fields of table date from its Julian date field.
-- Return true if date is valid.
-- http://www.tondering.dk/claus/cal/julperiod.php#formula
-- This handles the proleptic Julian and Gregorian calendars.
-- Negative Julian dates are not defined but they work.
local calname = date.calendar
local low, high -- min/max limits for date ranges −9999-01-01 to 9999-12-31
if calname == 'Gregorian' then
low, high = -1930999.5, 5373484.49999
elseif calname == 'Julian' then
low, high = -1931076.5, 5373557.49999
else
return
end
local jd = date.jd
if not (type(jd) == 'number' and low <= jd and jd <= high) then
return
end
local jdn = floor(jd)
if date.hastime then
local time = jd - jdn -- 0 <= time < 1
if time >= 0.5 then -- if at or after midnight of next day
jdn = jdn + 1
time = time - 0.5
else
time = time + 0.5
end
date.hour, date.minute, date.second = h_m_s(time)
else
date.second = 0
date.minute = 0
date.hour = 0
end
local b, c
if calname == 'Julian' then
b = 0
c = jdn + 32082
else -- Gregorian
local a = jdn + 32044
b = floor((4*a + 3)/146097)
c = a - floor(146097*b/4)
end
local d = floor((4*c + 3)/1461)
local e = c - floor(1461*d/4)
local m = floor((5*e + 2)/153)
date.day = e - floor((153*m + 2)/5) + 1
date.month = m + 3 - 12*floor(m/10)
date.year = 100*b + d - 4800 + floor(m/10)
return true
end

local function fix_numbers(numbers, y, m, d, H, M, S, partial, hastime, calendar)
-- Put the result of normalizing the given values in table numbers.
-- The result will have valid m, d values if y is valid; caller checks y.
-- The logic of PHP mktime is followed where m or d can be zero to mean
-- the previous unit, and -1 is the one before that, etc.
-- Positive values carry forward.
local date
if not (1 <= m and m <= 12) then
date = Date(y, 1, 1)
if not date then return end
date = date + ((m - 1) .. 'm')
y, m = date.year, date.month
end
local days_hms
if not partial then
if hastime and H and M and S then
if not (0 <= H and H <= 23 and
0 <= M and M <= 59 and
0 <= S and S <= 59) then
days_hms = hms({ hour = H, minute = M, second = S })
end
end
if days_hms or not (1 <= d and d <= days_in_month(y, m, calendar)) then
date = date or Date(y, m, 1)
if not date then return end
date = date + (d - 1 + (days_hms or 0))
y, m, d = date.year, date.month, date.day
if days_hms then
H, M, S = date.hour, date.minute, date.second
end
end
end
numbers.year = y
numbers.month = m
numbers.day = d
if days_hms then
-- Don't set H unless it was valid because a valid H will set hastime.
numbers.hour = H
numbers.minute = M
numbers.second = S
end
end

local function set_date_from_numbers(date, numbers, options)
-- Set the fields of table date from numeric values.
-- Return true if date is valid.
if type(numbers) ~= 'table' then
return
end
local y = numbers.year or date.year
local m = numbers.month or date.month
local d = numbers.day or date.day
local H = numbers.hour
local M = numbers.minute or date.minute or 0
local S = numbers.second or date.second or 0
local need_fix
if y and m and d then
date.partial = nil
if not (-9999 <= y and y <= 9999 and
1 <= m and m <= 12 and
1 <= d and d <= days_in_month(y, m, date.calendar)) then
if not date.want_fix then
return
end
need_fix = true
end
elseif y and date.partial then
if d or not (-9999 <= y and y <= 9999) then
return
end
if m and not (1 <= m and m <= 12) then
if not date.want_fix then
return
end
need_fix = true
end
else
return
end
if date.partial then
H = nil -- ignore any time
M = nil
S = nil
else
if H then
-- It is not possible to set M or S without also setting H.
date.hastime = true
else
H = 0
end
if not (0 <= H and H <= 23 and
0 <= M and M <= 59 and
0 <= S and S <= 59) then
if date.want_fix then
need_fix = true
else
return
end
end
end
date.want_fix = nil
if need_fix then
fix_numbers(numbers, y, m, d, H, M, S, date.partial, date.hastime, date.calendar)
return set_date_from_numbers(date, numbers, options)
end
date.year = y -- -9999 to 9999 ('n BC' → year = 1 - n)
date.month = m -- 1 to 12 (may be nil if partial)
date.day = d -- 1 to 31 (* = nil if partial)
date.hour = H -- 0 to 59 (*)
date.minute = M -- 0 to 59 (*)
date.second = S -- 0 to 59 (*)
if type(options) == 'table' then
for _, k in ipairs({ 'am', 'era', 'format' }) do
if options[k] then
date.options[k] = options[k]
end
end
end
return true
end

local function make_option_table(options1, options2)
-- If options1 is a string, return a table with its settings, or
-- if it is a table, use its settings.
-- Missing options are set from table options2 or defaults.
-- If a default is used, a flag is set so caller knows the value was not intentionally set.
-- Valid option settings are:
-- am: 'am', 'a.m.', 'AM', 'A.M.'
-- 'pm', 'p.m.', 'PM', 'P.M.' (each has same meaning as corresponding item above)
-- era: 'BCMINUS', 'BCNEGATIVE', 'BC', 'B.C.', 'BCE', 'B.C.E.', 'AD', 'A.D.', 'CE', 'C.E.'
-- Option am = 'am' does not mean the hour is AM; it means 'am' or 'pm' is used, depending on the hour,
-- and am = 'pm' has the same meaning.
-- Similarly, era = 'BC' means 'BC' is used if year <= 0.
-- BCMINUS displays a MINUS if year < 0 and the display format does not include %{era}.
-- BCNEGATIVE is similar but displays a hyphen.
local result = { bydefault = {} }
if type(options1) == 'table' then
result.am = options1.am
result.era = options1.era
elseif type(options1) == 'string' then
-- Example: 'am:AM era:BC' or 'am=AM era=BC'.
for item in options1:gmatch('%S+') do
local lhs, rhs = item:match('^(%w+)[:=](.+)$')
if lhs then
result[lhs] = rhs
end
end
end
options2 = type(options2) == 'table' and options2 or {}
local defaults = { am = 'am', era = 'a. C.' }
for k, v in pairs(defaults) do
if not result[k] then
if options2[k] then
result[k] = options2[k]
else
result[k] = v
result.bydefault[k] = true
end
end
end
return result
end

local ampm_options = {
-- lhs = input text accepted as an am/pm option
-- rhs = code used internally
['am'] = 'am',
['AM'] = 'AM',
['a.m.'] = 'a.m.',
['A.M.'] = 'A.M.',
['pm'] = 'am', -- same as am
['PM'] = 'AM',
['p.m.'] = 'a.m.',
['P.M.'] = 'A.M.',
}

local era_text = {
-- Text for displaying an era with a positive year (after adjusting
-- by replacing year with 1 - year if date.year <= 0).
-- options.era = { year<=0 , year>0 }
['BCMINUS'] = { 'BC' , '' , isbc = true, sign = MINUS },
['BCNEGATIVE'] = { 'BC' , '' , isbc = true, sign = '-' },
['BC'] = { 'BC' , '' , isbc = true },
['B.C.'] = { 'B.C.' , '' , isbc = true },
['BCE'] = { 'BCE' , '' , isbc = true },
['B.C.E.'] = { 'B.C.E.', '' , isbc = true },
['AD'] = { 'BC' , 'AD' },
['A.D.'] = { 'B.C.' , 'A.D.' },
['CE'] = { 'BCE' , 'CE' },
['C.E.'] = { 'B.C.E.', 'C.E.' },
--ABREVIATURAS EN ESPAÑOL--
['a. C.'] = { 'a. C.' , '' , isbc = true }, --antes de Cristo
['a. de C.'] = { 'a. de C.' , '' , isbc = true }, --antes de Cristo
['a. de J. C.'] = { 'a. de J. C.' , '' , isbc = true }, --antes de Jesucristo
['a. J. C.'] = { 'a. J. C.' , '' , isbc = true }, --antes de Jesucristo
['AEC'] = { 'AEC' , '' , isbc = true }, --antes de la era común
['a. e. c.'] = { 'a. e. c.' , '' , isbc = true }, --antes de la era común
['a. n. e.'] = { 'a. n. e.' , '' , isbc = true }, --antes de nuestra era
['a. e. v.'] = { 'a. e. v.' , '' , isbc = true }, --antes de la era vulgar
['d. C.'] = { 'a. C.' , 'd. C.' }, --después de Cristo
['d. de C.'] = { 'a. de C.' , 'd. de C.' }, --después de Cristo
['d. de J. C.'] = { 'a. de J. C.' , 'd. de J. C.' }, --después de Jesucristo
['d. J. C.'] = { 'a. J. C.' , 'd. J. C.' }, --después de Jesucristo
['EC'] = { 'AEC' , 'EC' }, --era común
['e. c.'] = { 'a. e. c.' , 'e. c.' }, --era común
['n. e.'] = { 'a. n. e.' , 'n. e.' }, --nuestra era
['e. v.'] = { 'a. e. v.' , 'e. v.' }, --era vulgar
['A. D.'] = { 'a. C.' , 'A. D.' }, --anno Domini
}

local function get_era_for_year(era, year)
return (era_text[era] or era_text['a. C.'])[year > 0 and 2 or 1]:gsub(" ", " ") or ''
end

local function strftime(date, format, options)
-- Return date formatted as a string using codes similar to those
-- in the C strftime library function.
local sformat = string.format
local shortcuts = {
['%c'] = '%-I:%M %p %-d de %B de %-Y %{era}', -- date and time: 2:30 pm 1 de abril de 2016
['%C'] = '%-d de %B de %-Y, %H:%M:%S', -- date and time: 1 de abril de 2016, 14:30
['%x'] = '%-d de %B de %-Y %{era}', -- date: 1 de abril de 2016
['%X'] = '%-I:%M %p', -- time: 2:30 pm
}
if shortcuts[format] then
format = shortcuts[format]
end
local codes = {
a = { field = 'dayabbr' },
A = { field = 'dayname' },
b = { field = 'monthabbr' },
B = { field = 'monthname' },
u = { fmt = '%d' , field = 'dowiso' },
w = { fmt = '%d' , field = 'dow' },
d = { fmt = '%02d', fmt2 = '%d', field = 'day' },
m = { fmt = '%02d', fmt2 = '%d', field = 'month' },
Y = { fmt = '%04d', fmt2 = '%d', field = 'year' },
H = { fmt = '%02d', fmt2 = '%d', field = 'hour' },
M = { fmt = '%02d', fmt2 = '%d', field = 'minute' },
S = { fmt = '%02d', fmt2 = '%d', field = 'second' },
j = { fmt = '%03d', fmt2 = '%d', field = 'dayofyear' },
I = { fmt = '%02d', fmt2 = '%d', field = 'hour', special = 'hour12' },
p = { field = 'hour', special = 'am' },
}
options = make_option_table(options, date.options)
local amopt = options.am
local eraopt = options.era
local function replace_code(spaces, modifier, id)
local code = codes[id]
if code then
local fmt = code.fmt
if modifier == '-' and code.fmt2 then
fmt = code.fmt2
end
local value = date[code.field]
if not value then
return nil -- an undefined field in a partial date
end
local special = code.special
if special then
if special == 'hour12' then
value = value % 12
value = value == 0 and 12 or value
elseif special == 'am' then
local ap = ({
['a.m.'] = { 'a.m.', 'p.m.' },
['AM'] = { 'AM', 'PM' },
['A.M.'] = { 'A.M.', 'P.M.' },
})[ampm_options[amopt]] or { 'am', 'pm' }
return (spaces == '' and '' or ' ') .. (value < 12 and ap[1] or ap[2])
end
end
if code.field == 'year' then
local sign = (era_text[eraopt] or {}).sign
if not sign or format:find('%{era}', 1, true) then
sign = ''
if value <= 0 then
value = 1 - value
end
else
if value >= 0 then
sign = ''
else
value = -value
end
end
return spaces .. sign .. sformat(fmt, value)
end
return spaces .. (fmt and sformat(fmt, value) or value)
end
end
local function replace_property(spaces, id)
if id == 'era' then
-- Special case so can use local era option.
local result = get_era_for_year(eraopt, date.year)
if result == '' then
return ''
end
return (spaces == '' and '' or ' ') .. result
end
local result = date[id]
if type(result) == 'string' then
return spaces .. result
end
if type(result) == 'number' then
return spaces .. tostring(result)
end
if type(result) == 'boolean' then
return spaces .. (result and '1' or '0')
end
-- This occurs if id is an undefined field in a partial date, or is the name of a function.
return nil
end
local PERCENT = '\127PERCENT\127'
return (format
:gsub('%%%%', PERCENT)
:gsub('(%s*)%%{(%w+)}', replace_property)
:gsub('(%s*)%%(%-?)(%a)', replace_code)
:gsub(PERCENT, '%%')
)
end

local function _date_text(date, fmt, options)
-- Return a formatted string representing the given date.
if not is_date(date) then
error('date:text: need a date (use "date:text()" with a colon)', 2)
end
if type(fmt) == 'string' and fmt:match('%S') then
if fmt:find('%', 1, true) then
return strftime(date, fmt, options)
end
elseif date.partial then
fmt = date.month and 'my' or 'y'
else
fmt = 'dmy'
if date.hastime then
fmt = (date.second > 0 and 'hms ' or 'hm ') .. fmt
end
end
local function bad_format()
-- For consistency with other format processing, return given format
-- (or cleaned format if original was not a string) if invalid.
return mw.text.nowiki(fmt)
end
if date.partial then
-- Ignore days in standard formats like 'ymd'.
if fmt == 'ym' or fmt == 'ymd' then
fmt = date.month and '%Y-%m %{era}' or '%Y %{era}'
elseif fmt == 'my' or fmt == 'dmy' or fmt == 'mdy' then
fmt = date.month and '%B %-Y %{era}' or '%-Y %{era}'
elseif fmt == 'y' then
fmt = date.month and '%-Y %{era}' or '%-Y %{era}'
else
return bad_format()
end
return strftime(date, fmt, options)
end
local function hm_fmt()
local plain = make_option_table(options, date.options).bydefault.am
return plain and '%H:%M' or '%-I:%M %p'
end
local need_time = date.hastime
local t = collection()
for item in fmt:gmatch('%S+') do
local f
if item == 'hm' then
f = hm_fmt()
need_time = false
elseif item == 'hms' then
f = '%H:%M:%S'
need_time = false
elseif item == 'ymd' then
f = '%Y-%m-%d %{era}'
elseif item == 'mdy' then
f = '%B %-d, %-Y %{era}'
elseif item == 'dmy' then
f = '%-d de %B de %-Y %{era}'
else
return bad_format()
end
t:add(f)
end
fmt = t:join(' ')
if need_time then
fmt = hm_fmt() .. ' ' .. fmt
end
return strftime(date, fmt, options)
end

local day_info = {
-- 0=Sun to 6=Sat
[0] = { 'do', 'domingo' },
{ 'lu', 'lunes' },
{ 'ma', 'martes' },
{ 'mi', 'miércoles' },
{ 'ju', 'jueves' },
{ 'vi', 'viernes' },
{ 'sa', 'sábado' },
}

local month_info = {
-- 1=Jan to 12=Dec
{ 'ene', 'enero' },
{ 'feb', 'febrero' },
{ 'mar', 'marzo' },
{ 'abr', 'abril' },
{ 'may', 'mayo' },
{ 'jun', 'junio' },
{ 'jul', 'julio' },
{ 'ago', 'agosto' },
{ 'sep', 'septiembre' },
{ 'oct', 'octubre' },
{ 'nov', 'noviembre' },
{ 'dic', 'diciembre' },
}
for k,v in pairs(month_info) do month_info[ v[1] ], month_info[ v[2] ] = v, v end

local function name_to_number(text, translate)
if type(text) == 'string' then
return translate['xx' .. text:lower():gsub('é', 'e'):gsub('á', 'a')]
end
end

local function day_number(text)
return name_to_number(text, {
xxdo = 0, xxdomingo = 0,
xxlu = 1, xxlunes = 1, xxlune = 1,
xxma = 2, xxmartes = 2, xxmarte = 2,
xxmi = 3, xxmiercoles = 3, xxmiercole = 3,
xxju = 4, xxjueves = 4, xxjueve = 4,
xxvi = 5, xxviernes = 5, xxvierne = 5,
xxsat = 6, xxsabado = 6
})
end

local function month_number(text)
return name_to_number(text, {
xxene = 1, xxenero = 1,
xxfeb = 2, xxfebrero = 2,
xxmar = 3, xxmarzo = 3,
xxabr = 4, xxabril = 4,
xxmay = 5, xxmayo = 5,
xxjun = 6, xxjunio = 6,
xxjul = 7, xxjulio = 7,
xxago = 8, xxagosto = 8,
xxsep = 9, xxseptiembre = 9, xxsept = 9,
xxoct = 10, xxoctubre = 10,
xxnov = 11, xxnoviembre = 11,
xxdic = 12, xxdiciembre = 12,
})
end

local function _list_text(list, fmt)
-- Return a list of formatted strings from a list of dates.
if not type(list) == 'table' then
error('date:list:text: need "list:text()" with a colon', 2)
end
local result = { join = _list_join }
for i, date in ipairs(list) do
result[i] = date:text(fmt)
end
return result
end

local function _date_list(date, spec)
-- Return a possibly empty numbered table of dates meeting the specification.
-- Dates in the list are in ascending order (oldest date first).
-- The spec should be a string of form "<count> <day> <op>"
-- where each item is optional and
-- count = number of items wanted in list
-- day = abbreviation or name such as Mon or Monday
-- op = >, >=, <, <= (default is > meaning after date)
-- If no count is given, the list is for the specified days in date's month.
-- The default day is date's day.
-- The spec can also be a positive or negative number:
-- -5 is equivalent to '5 <'
-- 5 is equivalent to '5' which is '5 >'
if not is_date(date) then
error('date:list: need a date (use "date:list()" with a colon)', 2)
end
local list = { text = _list_text }
if date.partial then
return list
end
local count, offset, operation
local ops = {
['>='] = { before = false, include = true },
['>'] = { before = false, include = false },
['<='] = { before = true , include = true },
['<'] = { before = true , include = false },
}
if spec then
if type(spec) == 'number' then
count = floor(spec + 0.5)
if count < 0 then
count = -count
operation = ops['<']
end
elseif type(spec) == 'string' then
local num, day, op = spec:match('^%s*(%d*)%s*(%a*)%s*([<>=]*)%s*$')
if not num then
return list
end
if num ~= '' then
count = tonumber(num)
end
if day ~= '' then
local dow = day_number(day:gsub('[sS]$', '')) -- accept plural days
if not dow then
return list
end
offset = dow - date.dow
end
operation = ops[op]
else
return list
end
end
offset = offset or 0
operation = operation or ops['>']
local datefrom, dayfirst, daylast
if operation.before then
if offset > 0 or (offset == 0 and not operation.include) then
offset = offset - 7
end
if count then
if count > 1 then
offset = offset - 7*(count - 1)
end
datefrom = date + offset
else
daylast = date.day + offset
dayfirst = daylast % 7
if dayfirst == 0 then
dayfirst = 7
end
end
else
if offset < 0 or (offset == 0 and not operation.include) then
offset = offset + 7
end
if count then
datefrom = date + offset
else
dayfirst = date.day + offset
daylast = date.monthdays
end
end
if not count then
if daylast < dayfirst then
return list
end
count = floor((daylast - dayfirst)/7) + 1
datefrom = Date(date, {day = dayfirst})
end
for i = 1, count do
if not datefrom then break end -- exceeds date limits
list[i] = datefrom
datefrom = datefrom + 7
end
return list
end

-- A table to get the current date/time (UTC), but only if needed.
local current = setmetatable({}, {
__index = function (self, key)
local d = os.date('!*t')
self.year = d.year
self.month = d.month
self.day = d.day
self.hour = d.hour
self.minute = d.min
self.second = d.sec
return rawget(self, key)
end })

local function extract_date(newdate, text)
-- Parse the date/time in text and return n, o where
-- n = table of numbers with date/time fields
-- o = table of options for AM/PM or AD/BC or format, if any
-- or return nothing if date is known to be invalid.
-- Caller determines if the values in n are valid.
-- A year must be positive ('1' to '9999'); use 'BC' for BC.
-- In a y-m-d string, the year must be four digits to avoid ambiguity
-- ('0001' to '9999'). The only way to enter year <= 0 is by specifying
-- the date as three numeric parameters like ymd Date(-1, 1, 1).
-- Dates of form d/m/y, m/d/y, y/m/d are [partially] rejected as potentially ambiguous.
local date, options = {}, {}
if text:sub(-1) == 'Z' then
-- Extract date/time from a Wikidata timestamp.
-- The year can be 1 to 16 digits but this module handles 1 to 4 digits only.
-- Examples: '+2016-06-21T14:30:00Z', '-0000000180-00-00T00:00:00Z'.
local sign, y, m, d, H, M, S = text:match('^([+%-])(%d+)%-(%d%d)%-(%d%d)T(%d%d):(%d%d):(%d%d)Z$')
if sign then
y = tonumber(y)
if sign == '-' and y > 0 then
y = -y
end
if y <= 0 then
options.era = 'a. C.' -- Sets the era when the year is negative on the timestamp
end
date.year = y
m = tonumber(m)
d = tonumber(d)
H = tonumber(H)
M = tonumber(M)
S = tonumber(S)
if m == 0 then
newdate.partial = true
return date, options
end
date.month = m
if d == 0 then
newdate.partial = true
return date, options
end
date.day = d
if H > 0 or M > 0 or S > 0 then
date.hour = H
date.minute = M
date.second = S
end
return date, options
end
return
end

local a, b, c = text:match('^(%d+)[-./](%d+)[-./](%d+)$')
if a --[[ and b and c --]] then
a = tonumber(a)
b = tonumber(b)
c = tonumber(c)
--[[ -- use extract_ymd for this
if a > 31 and m <= 12 and c > 12 then
date.year, date.month, date.day = a, b, c
options.format = 'ymd'
newdate.partial = true
return date, options
else--]]
if a > 12 and b <= 12 and c > 31 then
date.year, date.month, date.day = c, b, a
options.format = 'dmy'
newdate.partial = true
return date, options
elseif a <= 12 and b > 12 and c > 31 then
date.year, date.month, date.day = c, a, b
options.format = 'mdy'
newdate.partial = true
return date, options
end
end

local function extract_ymd(item)
-- Called when no day or month has been set.
local y, m, d = item:match('^(%d%d%d%d)[-./](%w+)[-./](%d%d?)$')
if y then
if date.year then
return
end
if m:match('^%d%d?$') then
m = tonumber(m)
else
m = month_number(m)
end
if m then
date.year = tonumber(y)
date.month = m
date.day = tonumber(d)
return true
end
end
end
local function extract_day_or_year(item)
-- Called when a day would be valid, or
-- when a year would be valid if no year has been set and partial is set.
local number, suffix = item:match('^(%d%d?%d?%d?)(.*)$')
if number then
local n = tonumber(number)
if #number <= 2 and n <= 31 then
suffix = suffix:lower()
if suffix == '' or suffix == 'st' or suffix == 'nd' or suffix == 'rd' or suffix == 'th' then
date.day = n
return true
end
elseif suffix == '' and newdate.partial and not date.year then
date.year = n
return true
end
end
end
local function extract_month(item)
-- A month must be given as a name or abbreviation; a number could be ambiguous.
local m = month_number(item)
if m then
date.month = m
return true
end
end
local function extract_time(item)
local h, m, s = item:match('^(%d%d?):(%d%d)(:?%d*)$')
if date.hour or not h then
return
end
if s ~= '' then
s = s:match('^:(%d%d)$')
if not s then
return
end
end
date.hour = tonumber(h)
date.minute = tonumber(m)
date.second = tonumber(s) -- nil if empty string
return true
end
local item_count = 0
local index_time
local function set_ampm(item)
local H = date.hour
if H and not options.am and index_time + 1 == item_count then
options.am = ampm_options[item] -- caller checked this is not nil
if item:match('^[Aa]') then
if not (1 <= H and H <= 12) then
return
end
if H == 12 then
date.hour = 0
end
else
if not (1 <= H and H <= 23) then
return
end
if H <= 11 then
date.hour = H + 12
end
end
return true
end
end
--Filtrar abreviaturas de era
for key,value in pairs(era_text) do
if string.find(text, key) ~= nil then
options.era = key
text = string.gsub(text, key, '')
break
end
end
for item in text:gsub(',', ' '):gsub('del?', ''):gsub(' ', ' '):gmatch('%S+') do
item_count = item_count + 1
if era_text[item] then
-- Era is accepted in peculiar places.
if options.era then
return
end
options.era = item
elseif ampm_options[item] then
if not set_ampm(item) then
return
end
elseif item:find(':', 1, true) then
if not extract_time(item) then
return
end
index_time = item_count
elseif date.day and date.month then
if date.year then
return -- should be nothing more so item is invalid
end
if not item:match('^(%d%d?%d?%d?)$') then
return
end
date.year = tonumber(item)
elseif day_number(item) then
--catch month day case
elseif date.day then
if not extract_month(item) then
return
end
elseif date.month then
if not extract_day_or_year(item) then
return
end
elseif extract_month(item) then
options.format = 'mdy'
elseif extract_ymd(item) then
options.format = 'ymd'
elseif extract_day_or_year(item) then
if date.day then
options.format = 'dmy'
end
else
--return not return if item not recognized
end
end
if not date.year or date.year == 0 then
return
end
local era = era_text[options.era]
if era and era.isbc then
date.year = 1 - date.year
end
return date, options
end

local function autofill(date1, date2)
-- Fill any missing month or day in each date using the
-- corresponding component from the other date, if present,
-- or with 1 if both dates are missing the month or day.
-- This gives a good result for calculating the difference
-- between two partial dates when no range is wanted.
-- Return filled date1, date2 (two full dates).
local function filled(a, b)
local fillmonth, fillday
if not a.month then
fillmonth = b.month or 1
end
if not a.day then
fillday = b.day or 1
end
if fillmonth or fillday then -- need to create a new date
if (fillmonth or a.month) == 2 and (fillday or a.day) == 29 then
-- Avoid invalid date, for example with {{age|2013|29 Feb 2016}} or {{age|Feb 2013|29 Jan 2015}}.
if not is_leap_year(a.year, a.calendar) then
fillday = 28
end
end
a = Date(a, { month = fillmonth, day = fillday })
end
return a
end
return filled(date1, date2), filled(date2, date1)
end

local function date_add_sub(lhs, rhs, is_sub)
-- Return a new date from calculating (lhs + rhs) or (lhs - rhs),
-- or return nothing if invalid.
-- The result is nil if the calculated date exceeds allowable limits.
-- Caller ensures that lhs is a date; its properties are copied for the new date.
if lhs.partial then
-- Adding to a partial is not supported.
-- Can subtract a date or partial from a partial, but this is not called for that.
return
end
local function is_prefix(text, word, minlen)
local n = #text
return (minlen or 1) <= n and n <= #word and text == word:sub(1, n)
end
local function do_days(n)
local forcetime, jd
if floor(n) == n then
jd = lhs.jd
else
forcetime = not lhs.hastime
jd = lhs.jdz
end
jd = jd + (is_sub and -n or n)
if forcetime then
jd = tostring(jd)
if not jd:find('.', 1, true) then
jd = jd .. '.0'
end
end
return Date(lhs, 'juliandate', jd)
end
if type(rhs) == 'number' then
-- Add/subtract days, including fractional days.
return do_days(rhs)
end
if type(rhs) == 'string' then
-- rhs is a single component like '26m' or '26 months' (with optional sign).
-- Fractions like '3.25d' are accepted for the units which are handled as days.
local sign, numstr, id = rhs:match('^%s*([+-]?)([%d%.]+)%s*(%a+)$')
if sign then
if sign == '-' then
is_sub = not (is_sub and true or false)
end
local y, m, days
local num = tonumber(numstr)
if not num then
return
end
id = id:lower()
if is_prefix(id, 'years') then
y = num
m = 0
elseif is_prefix(id, 'months') then
y = floor(num / 12)
m = num % 12
elseif is_prefix(id, 'weeks') then
days = num * 7
elseif is_prefix(id, 'days') then
days = num
elseif is_prefix(id, 'hours') then
days = num / 24
elseif is_prefix(id, 'minutes', 3) then
days = num / (24 * 60)
elseif is_prefix(id, 'seconds') then
days = num / (24 * 3600)
else
return
end
if days then
return do_days(days)
end
if numstr:find('.', 1, true) then
return
end
if is_sub then
y = -y
m = -m
end
assert(-11 <= m and m <= 11)
y = lhs.year + y
m = lhs.month + m
if m > 12 then
y = y + 1
m = m - 12
elseif m < 1 then
y = y - 1
m = m + 12
end
local d = math.min(lhs.day, days_in_month(y, m, lhs.calendar))
return Date(lhs, y, m, d)
end
end
if is_diff(rhs) then
local days = rhs.age_days
if (is_sub or false) ~= (rhs.isnegative or false) then
days = -days
end
return lhs + days
end
end

local full_date_only = {
dayabbr = true,
dayname = true,
dow = true,
dayofweek = true,
dowiso = true,
dayofweekiso = true,
dayofyear = true,
gsd = true,
juliandate = true,
jd = true,
jdz = true,
jdnoon = true,
}

-- Metatable for a date's calculated fields.
local datemt = {
__index = function (self, key)
if rawget(self, 'partial') then
if full_date_only[key] then return end
if key == 'monthabbr' or key == 'monthdays' or key == 'monthname' then
if not self.month then return end
end
end
local value
if key == 'dayabbr' then
value = day_info[self.dow][1]
elseif key == 'dayname' then
value = day_info[self.dow][2]
elseif key == 'dow' then
value = (self.jdnoon + 1) % 7 -- day-of-week 0=Sun to 6=Sat
elseif key == 'dayofweek' then
value = self.dow
elseif key == 'dowiso' then
value = (self.jdnoon % 7) + 1 -- ISO day-of-week 1=Mon to 7=Sun
elseif key == 'dayofweekiso' then
value = self.dowiso
elseif key == 'dayofyear' then
local first = Date(self.year, 1, 1, self.calendar).jdnoon
value = self.jdnoon - first + 1 -- day-of-year 1 to 366
elseif key == 'era' then
-- Era text (never a negative sign) from year and options.
value = get_era_for_year(self.options.era, self.year)
elseif key == 'format' then
value = self.options.format or 'dmy'
elseif key == 'gsd' then
-- GSD = 1 from 00:00:00 to 23:59:59 on 1 January 1 AD Gregorian calendar,
-- which is from jd 1721425.5 to 1721426.49999.
value = floor(self.jd - 1721424.5)
elseif key == 'juliandate' or key == 'jd' or key == 'jdz' then
local jd, jdz = julian_date(self)
rawset(self, 'juliandate', jd)
rawset(self, 'jd', jd)
rawset(self, 'jdz', jdz)
return key == 'jdz' and jdz or jd
elseif key == 'jdnoon' then
-- Julian date at noon (an integer) on the calendar day when jd occurs.
value = floor(self.jd + 0.5)
elseif key == 'isleapyear' then
value = is_leap_year(self.year, self.calendar)
elseif key == 'monthabbr' then
value = month_info[self.month][1]
elseif key == 'monthdays' then
value = days_in_month(self.year, self.month, self.calendar)
elseif key == 'monthname' then
value = month_info[self.month][2]
end
if value ~= nil then
rawset(self, key, value)
return value
end
end,
}

-- Date operators.
local function mt_date_add(lhs, rhs)
if not is_date(lhs) then
lhs, rhs = rhs, lhs -- put date on left (it must be a date for this to have been called)
end
return date_add_sub(lhs, rhs)
end

local function mt_date_sub(lhs, rhs)
if is_date(lhs) then
if is_date(rhs) then
return DateDiff(lhs, rhs)
end
return date_add_sub(lhs, rhs, true)
end
end

local function mt_date_concat(lhs, rhs)
return tostring(lhs) .. tostring(rhs)
end

local function mt_date_tostring(self)
return self:text()
end

local function mt_date_eq(lhs, rhs)
-- Return true if dates identify same date/time where, for example,
-- Date(-4712, 1, 1, 'Julian') == Date(-4713, 11, 24, 'Gregorian') is true.
-- This is called only if lhs and rhs have the same type and the same metamethod.
if lhs.partial or rhs.partial then
-- One date is partial; the other is a partial or a full date.
-- The months may both be nil, but must be the same.
return lhs.year == rhs.year and lhs.month == rhs.month and lhs.calendar == rhs.calendar
end
return lhs.jdz == rhs.jdz
end

local function mt_date_lt(lhs, rhs)
-- Return true if lhs < rhs, for example,
-- Date('1 Jan 2016') < Date('06:00 1 Jan 2016') is true.
-- This is called only if lhs and rhs have the same type and the same metamethod.
if lhs.partial or rhs.partial then
-- One date is partial; the other is a partial or a full date.
if lhs.calendar ~= rhs.calendar then
return lhs.calendar == 'Julian'
end
if lhs.partial then
lhs = lhs.partial.first
end
if rhs.partial then
rhs = rhs.partial.first
end
end
return lhs.jdz < rhs.jdz
end

--[[ Examples of syntax to construct a date:
Date(y, m, d, 'julian') default calendar is 'gregorian'
Date(y, m, d, H, M, S, 'julian')
Date('juliandate', jd, 'julian') if jd contains "." text output includes H:M:S
Date('currentdate')
Date('currentdatetime')
Date('1 April 1995', 'julian') parse date from text
Date('1 April 1995 AD', 'julian') using an era sets a flag to do the same for output
Date('04:30:59 1 April 1995', 'julian')
Date(date) copy of an existing date
Date(date, t) same, updated with y,m,d,H,M,S fields from table t
Date(t) date with y,m,d,H,M,S fields from table t
]]
function Date(...) -- for forward declaration above
-- Return a table holding a date assuming a uniform calendar always applies
-- (proleptic Gregorian calendar or proleptic Julian calendar), or
-- return nothing if date is invalid.
-- A partial date has a valid year, however its month may be nil, and
-- its day and time fields are nil.
-- Field partial is set to false (if a full date) or a table (if a partial date).
local calendars = { julian = 'Julian', gregorian = 'Gregorian' }
local newdate = {
_id = uniq,
calendar = 'Gregorian', -- default is Gregorian calendar
hastime = false, -- true if input sets a time
hour = 0, -- always set hour/minute/second so don't have to handle nil
minute = 0,
second = 0,
options = {},
list = _date_list,
subtract = function (self, rhs, options)
return DateDiff(self, rhs, options)
end,
text = _date_text,
}
local argtype, datetext, is_copy, jd_number, tnums
local numindex = 0
local numfields = { 'year', 'month', 'day', 'hour', 'minute', 'second' }
local numbers = {}
for _, v in ipairs({...}) do
v = strip_to_nil(v)
local vlower = type(v) == 'string' and v:lower() or nil
if v == nil then
-- Ignore empty arguments after stripping so modules can directly pass template parameters.
elseif calendars[vlower] then
newdate.calendar = calendars[vlower]
elseif vlower == 'partial' then
newdate.partial = true
elseif vlower == 'fix' then
newdate.want_fix = true
elseif is_date(v) then
-- Copy existing date (items can be overridden by other arguments).
if is_copy or tnums then
return
end
is_copy = true
newdate.calendar = v.calendar
newdate.partial = v.partial
newdate.hastime = v.hastime
newdate.options = v.options
newdate.year = v.year
newdate.month = v.month
newdate.day = v.day
newdate.hour = v.hour
newdate.minute = v.minute
newdate.second = v.second
elseif type(v) == 'table' then
if tnums then
return
end
tnums = {}
local tfields = { year=1, month=1, day=1, hour=2, minute=2, second=2 }
for tk, tv in pairs(v) do
if tfields[tk] then
tnums[tk] = tonumber(tv)
end
if tfields[tk] == 2 then
newdate.hastime = true
end
end
else
local num = tonumber(v)
if not num and argtype == 'setdate' and numindex == 1 then
num = month_number(v)
end
if num then
if not argtype then
argtype = 'setdate'
end
if argtype == 'setdate' and numindex < 6 then
numindex = numindex + 1
numbers[numfields[numindex]] = num
elseif argtype == 'juliandate' and not jd_number then
jd_number = num
if type(v) == 'string' then
if v:find('.', 1, true) then
newdate.hastime = true
end
elseif num ~= floor(num) then
-- The given value was a number. The time will be used
-- if the fractional part is nonzero.
newdate.hastime = true
end
else
return
end
elseif argtype then
return
elseif type(v) == 'string' then
if v == 'currentdate' or v == 'currentdatetime' or v == 'juliandate' then
argtype = v
else
argtype = 'datetext'
datetext = v
end
else
return
end
end
end
if argtype == 'datetext' then
if tnums or not set_date_from_numbers(newdate, extract_date(newdate, datetext)) then
return
end
elseif argtype == 'juliandate' then
newdate.partial = nil
newdate.jd = jd_number
if not set_date_from_jd(newdate) then
return
end
elseif argtype == 'currentdate' or argtype == 'currentdatetime' then
newdate.partial = nil
newdate.year = current.year
newdate.month = current.month
newdate.day = current.day
if argtype == 'currentdatetime' then
newdate.hour = current.hour
newdate.minute = current.minute
newdate.second = current.second
newdate.hastime = true
end
newdate.calendar = 'Gregorian' -- ignore any given calendar name
elseif argtype == 'setdate' then
if tnums or not set_date_from_numbers(newdate, numbers) then
return
end
elseif not (is_copy or tnums) then
return
end
if tnums then
newdate.jd = nil -- force recalculation in case jd was set before changes from tnums
if not set_date_from_numbers(newdate, tnums) then
return
end
end
if newdate.partial then
local year = newdate.year
local month = newdate.month
local first = Date(year, month or 1, 1, newdate.calendar)
month = month or 12
local last = Date(year, month, days_in_month(year, month), newdate.calendar)
newdate.partial = { first = first, last = last }
else
newdate.partial = false -- avoid index lookup
end
setmetatable(newdate, datemt)
local readonly = {}
local mt = {
__index = newdate,
__newindex = function(t, k, v) error('date.' .. tostring(k) .. ' is read-only', 2) end,
__add = mt_date_add,
__sub = mt_date_sub,
__concat = mt_date_concat,
__tostring = mt_date_tostring,
__eq = mt_date_eq,
__lt = mt_date_lt,
}
return setmetatable(readonly, mt)
end

local function _diff_age(diff, code, options)
-- Return a tuple of integer values from diff as specified by code, except that
-- each integer may be a list of two integers for a diff with a partial date, or
-- return nil if the code is not supported.
-- If want round, the least significant unit is rounded to nearest whole unit.
-- For a duration, an extra day is added.
local wantround, wantduration, wantrange
if type(options) == 'table' then
wantround = options.round
wantduration = options.duration
wantrange = options.range
else
wantround = options
end
if not is_diff(diff) then
local f = wantduration and 'duration' or 'age'
error(f .. ': need a date difference (use "diff:' .. f .. '()" with a colon)', 2)
end
if diff.partial then
-- Ignore wantround, wantduration.
local function choose(v)
if type(v) == 'table' then
if not wantrange or v[1] == v[2] then
-- Example: Date('partial', 2005) - Date('partial', 2001) gives
-- diff.years = { 3, 4 } to show the range of possible results.
-- If do not want a range, choose the second value as more expected.
return v[2]
end
end
return v
end
if code == 'ym' or code == 'ymd' then
if not wantrange and diff.iszero then
-- This avoids an unexpected result such as
-- Date('partial', 2001) - Date('partial', 2001)
-- giving diff = { years = 0, months = { 0, 11 } }
-- which would be reported as 0 years and 11 months.
return 0, 0
end
return choose(diff.partial.years), choose(diff.partial.months)
end
if code == 'y' then
return choose(diff.partial.years)
end
if code == 'm' or code == 'w' or code == 'd' then
return choose({ diff.partial.mindiff:age(code), diff.partial.maxdiff:age(code) })
end
return nil
end
local extra_days = wantduration and 1 or 0
if code == 'wd' or code == 'w' or code == 'd' then
local offset = wantround and 0.5 or 0
local days = diff.age_days + extra_days
if code == 'wd' or code == 'd' then
days = floor(days + offset)
if code == 'd' then
return days
end
return floor(days/7), days % 7
end
return floor(days/7 + offset)
end
local H, M, S = diff.hours, diff.minutes, diff.seconds
if code == 'dh' or code == 'dhm' or code == 'dhms' or code == 'h' or code == 'hm' or code == 'hms' then
local days = floor(diff.age_days + extra_days)
local inc_hour
if wantround then
if code == 'dh' or code == 'h' then
if M >= 30 then
inc_hour = true
end
elseif code == 'dhm' or code == 'hm' then
if S >= 30 then
M = M + 1
if M >= 60 then
M = 0
inc_hour = true
end
end
else
-- Nothing needed because S is an integer.
end
if inc_hour then
H = H + 1
if H >= 24 then
H = 0
days = days + 1
end
end
end
if code == 'dh' or code == 'dhm' or code == 'dhms' then
if code == 'dh' then
return days, H
elseif code == 'dhm' then
return days, H, M
else
return days, H, M, S
end
end
local hours = days * 24 + H
if code == 'h' then
return hours
elseif code == 'hm' then
return hours, M
end
return hours, M, S
end
if wantround then
local inc_hour
if code == 'ymdh' or code == 'ymwdh' then
if M >= 30 then
inc_hour = true
end
elseif code == 'ymdhm' or code == 'ymwdhm' then
if S >= 30 then
M = M + 1
if M >= 60 then
M = 0
inc_hour = true
end
end
elseif code == 'ymd' or code == 'ymwd' or code == 'yd' or code == 'md' then
if H >= 12 then
extra_days = extra_days + 1
end
end
if inc_hour then
H = H + 1
if H >= 24 then
H = 0
extra_days = extra_days + 1
end
end
end
local y, m, d = diff.years, diff.months, diff.days
if extra_days > 0 then
d = d + extra_days
if d > 28 or code == 'yd' then
-- Recalculate in case have passed a month.
diff = diff.date1 + extra_days - diff.date2
y, m, d = diff.years, diff.months, diff.days
end
end
if code == 'ymd' then
return y, m, d
elseif code == 'yd' then
if y > 0 then
-- It is known that diff.date1 > diff.date2.
diff = diff.date1 - (diff.date2 + (y .. 'y'))
end
return y, floor(diff.age_days)
elseif code == 'md' then
return y * 12 + m, d
elseif code == 'ym' or code == 'm' then
if wantround then
if d >= 16 then
m = m + 1
if m >= 12 then
m = 0
y = y + 1
end
end
end
if code == 'ym' then
return y, m
end
return y * 12 + m
elseif code == 'ymw' then
local weeks = floor(d/7)
if wantround then
local days = d % 7
if days > 3 or (days == 3 and H >= 12) then
weeks = weeks + 1
end
end
return y, m, weeks
elseif code == 'ymwd' then
return y, m, floor(d/7), d % 7
elseif code == 'ymdh' then
return y, m, d, H
elseif code == 'ymwdh' then
return y, m, floor(d/7), d % 7, H
elseif code == 'ymdhm' then
return y, m, d, H, M
elseif code == 'ymwdhm' then
return y, m, floor(d/7), d % 7, H, M
end
if code == 'y' then
if wantround and m >= 6 then
y = y + 1
end
return y
end
return nil
end

local function _diff_duration(diff, code, options)
if type(options) ~= 'table' then
options = { round = options }
end
options.duration = true
return _diff_age(diff, code, options)
end

-- Metatable for some operations on date differences.
diffmt = { -- for forward declaration above
__concat = function (lhs, rhs)
return tostring(lhs) .. tostring(rhs)
end,
__tostring = function (self)
return tostring(self.age_days)
end,
__index = function (self, key)
local value
if key == 'age_days' then
if rawget(self, 'partial') then
local function jdz(date)
return (date.partial and date.partial.first or date).jdz
end
value = jdz(self.date1) - jdz(self.date2)
else
value = self.date1.jdz - self.date2.jdz
end
end
if value ~= nil then
rawset(self, key, value)
return value
end
end,
}

function DateDiff(date1, date2, options) -- for forward declaration above
-- Return a table with the difference between two dates (date1 - date2).
-- The difference is negative if date1 is older than date2.
-- Return nothing if invalid.
-- If d = date1 - date2 then
-- date1 = date2 + d
-- If date1 >= date2 and the dates have no H:M:S time specified then
-- date1 = date2 + (d.years..'y') + (d.months..'m') + d.days
-- where the larger time units are added first.
-- The result of Date(2015,1,x) + '1m' is Date(2015,2,28) for
-- x = 28, 29, 30, 31. That means, for example,
-- d = Date(2015,3,3) - Date(2015,1,31)
-- gives d.years, d.months, d.days = 0, 1, 3 (excluding date1).
if not (is_date(date1) and is_date(date2) and date1.calendar == date2.calendar) then
return
end
local wantfill
if type(options) == 'table' then
wantfill = options.fill
end
local isnegative = false
local iszero = false
if date1 < date2 then
isnegative = true
date1, date2 = date2, date1
elseif date1 == date2 then
iszero = true
end
-- It is known that date1 >= date2 (period is from date2 to date1).
if date1.partial or date2.partial then
-- Two partial dates might have timelines:
---------------------A=================B--- date1 is from A to B inclusive
--------C=======D-------------------------- date2 is from C to D inclusive
-- date1 > date2 iff A > C (date1.partial.first > date2.partial.first)
-- The periods can overlap ('April 2001' - '2001'):
-------------A===B------------------------- A=2001-04-01 B=2001-04-30
--------C=====================D------------ C=2001-01-01 D=2001-12-31
if wantfill then
date1, date2 = autofill(date1, date2)
else
local function zdiff(date1, date2)
local diff = date1 - date2
if diff.isnegative then
return date1 - date1 -- a valid diff in case we call its methods
end
return diff
end
local function getdate(date, which)
return date.partial and date.partial[which] or date
end
local maxdiff = zdiff(getdate(date1, 'last'), getdate(date2, 'first'))
local mindiff = zdiff(getdate(date1, 'first'), getdate(date2, 'last'))
local years, months
if maxdiff.years == mindiff.years then
years = maxdiff.years
if maxdiff.months == mindiff.months then
months = maxdiff.months
else
months = { mindiff.months, maxdiff.months }
end
else
years = { mindiff.years, maxdiff.years }
end
return setmetatable({
date1 = date1,
date2 = date2,
partial = {
years = years,
months = months,
maxdiff = maxdiff,
mindiff = mindiff,
},
isnegative = isnegative,
iszero = iszero,
age = _diff_age,
duration = _diff_duration,
}, diffmt)
end
end
local y1, m1 = date1.year, date1.month
local y2, m2 = date2.year, date2.month
local years = y1 - y2
local months = m1 - m2
local d1 = date1.day + hms(date1)
local d2 = date2.day + hms(date2)
local days, time
if d1 >= d2 then
days = d1 - d2
else
months = months - 1
-- Get days in previous month (before the "to" date) given December has 31 days.
local dpm = m1 > 1 and days_in_month(y1, m1 - 1, date1.calendar) or 31
if d2 >= dpm then
days = d1 - hms(date2)
else
days = dpm - d2 + d1
end
end
if months < 0 then
years = years - 1
months = months + 12
end
days, time = math.modf(days)
local H, M, S = h_m_s(time)
return setmetatable({
date1 = date1,
date2 = date2,
partial = false, -- avoid index lookup
years = years,
months = months,
days = days,
hours = H,
minutes = M,
seconds = S,
isnegative = isnegative,
iszero = iszero,
age = _diff_age,
duration = _diff_duration,
}, diffmt)
end

local z = {
_current = current,
_Date = Date,
_days_in_month = days_in_month,
}

-- Aqui comienzas las funciones adaptadas de [[Módulo:Fecha]] --
----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------

function z.fechaActual()
local d = os.date('!*t')

local fecha = {}
fecha.anyo = d.year
fecha.mes = d.month
fecha.dia = d.day
fecha.hora = d.hour
fecha.minuto = d.min
fecha.segundo = d.sec

return fecha
end

function validar(fecha)
fecha.anyo = tonumber(fecha.anyo)
fecha.mes = tonumber(fecha.mes)
fecha.dia = tonumber(fecha.dia)
fecha.hora = tonumber(fecha.hora)
fecha.minuto = tonumber(fecha.minuto)
fecha.segundo = tonumber(fecha.segundo)

-- Falta validar que es una fecha válida
end

function z.edad(fecha1, fecha2)
--Función que devuelve la edad en años entre dos fechas

--Se supone que las fechas se han validado previamente.

if not fecha1 then
return -- falta devolver un error
end

if not fecha2 then
fecha2=z.fechaActual()
end

local anyos = fecha2.anyo - fecha1.anyo

--if true then return require('Módulo:Tablas').tostring(fecha2) end

if fecha2.mes < fecha1.mes or
(fecha2.mes == fecha1.mes and fecha2.dia < fecha1.dia) then
anyos = anyos - 1
end

if anyos < 0 then
return -- falta devolver error
elseif anyos == 0 then
return 'menos de un año'
elseif anyos == 1 then
return 'un año'
else
return anyos .. ' años'
end
end

function z.llamadaDesdeUnaPlantilla(frame)
function obtenerFecha(dia, mes, anyo)
local resultado={}

if dia then
resultado.dia = dia
resultado.mes = mes
resultado.anyo = anyo

validar(resultado)

return resultado
end
end

local args = frame.args

local funcion = z[args[1]]
local fecha1 = obtenerFecha(args[2], args[3], args[4])
local fecha2 = obtenerFecha(args[5], args[6], args[7])

return funcion(fecha1, fecha2)
end

-- Aqui comienzas las funciones adaptadas de [[Módulo:Fechas]] --
-----------------------------------------------------------------
-----------------------------------------------------------------
-----------------------------------------------------------------

function z.NombreDelMes(mes)
-- Función que devuelve el nombre del mes, donde mes es un número entre 1 y 12.
-- Si no es así se devuelve el valor de mes.
-- Por ejemplo, 2 --> febrero
-- 02 --> febrero
-- abril --> abril
-- MAYO --> MAYO
return month_info[tonumber(mes)][2] or mes
end

function z.Fecha(frame)
-- Función que formatea una fecha
-- El único parámetro obligatorio es el año o 3.
-- Obtener los argumentos con los que se llama a la función

local argumentos = {}
local parent = {}
if frame == mw.getCurrentFrame() then
if frame.args[3] or frame.args["año"] then
argumentos = frame.args
else
parent = frame:getParent()
argumentos = parent.args
end
else
argumentos = frame
end

local enlace = argumentos["enlace"] ~= "no"

-- Obtener el día, el nombre del mes y el año incluyendo para los años negativos a.d.
local dia = argumentos["día"] or argumentos[1] or ''
local mes = argumentos["mes"] or argumentos[2] or ''
local anyo=tonumber(argumentos["año"] or argumentos[3]) or 0

dia = (dia ~='') and (tonumber(dia) or dia) or dia -- Eliminar ceros a la izquierda del día.
mes = (mes~='') and ((month_info[mes] and month_info[mes][2]) or month_info[tonumber(mes)][2] or mes) or mes -- Extraer nombre del mes
anyo = (anyo<0) and (-anyo .. ' a. C.') or anyo

local calendario = (argumentos["calendario"] == 'juliano') and ('[[Calendario juliano|jul.]]') or ''

-- Formatear la fecha dependiendo de si el día, el mes o el año están informados
local out = ''

if anyo ~= 0 then
out = enlace and (out .. '[[' .. anyo .. ']]') or tostring(anyo)
if mes~='' then
if argumentos["mayúscula"] == 'sí' then
mes = mw.language.new('es'):ucfirst(mes)
end
out = enlace and (mes .. ']] de ' .. out) or (mes .. ' de ' .. out)
if dia ~='' then
out = enlace and ('[[' .. dia .. ' de ' .. out .. calendario) or (dia .. ' de ' .. out .. calendario)
else
out = enlace and ('[[' .. out) or out
end
end
end
return out
end

function z.Numerica(frame)
local d = Date(frame.args[1])
local err = 'Cadena de fecha no válida'
return (d == nil) and err or d:text('%Y%m%d')
end

return z

Módulo:Citas/ValidaciónFechas

2026-02-06T19:13:53Z

GeminiFix:

local p = {}

-- returns a number according to the month in a date: 1 for January, etc. Capitalization and spelling must be correct. If not a valid month, returns 0
function get_month_number (month)
local long_months = {['January']=1, ['February']=2, ['March']=3, ['April']=4, ['May']=5, ['June']=6, ['July']=7, ['August']=8, ['September']=9, ['October']=10, ['November']=11, ['December']=12};
local short_months = {['Jan']=1, ['Feb']=2, ['Mar']=3, ['Apr']=4, ['May']=5, ['Jun']=6, ['Jul']=7, ['Aug']=8, ['Sep']=9, ['Oct']=10, ['Nov']=11, ['Dec']=12};
local temp;
temp=long_months[month];
if temp then return temp; end -- if month is the long-form name
temp=short_months[month];
if temp then return temp; end -- if month is the short-form name
return 0; -- misspelled, improper case, or not a month name
end

-- returns a number according to the sequence of seasons in a year: 1 for Winter, etc. Capitalization and spelling must be correct. If not a valid season, returns 0
function get_season_number (season)
local season_list = {['Winter']=1, ['Spring']=2, ['Summer']=3, ['Fall']=4, ['Autumn']=4}
local temp;
temp=season_list[season];
if temp then return temp; end -- if season is a valid name return its number
return 0; -- misspelled, improper case, or not a season name
end

--returns true if month or season is valid (properly spelled, capitalized, abbreviated)
function is_valid_month_or_season (month_season)
if 0 == get_month_number (month_season) then -- if month text isn't one of the twelve months, might be a season
if 0 == get_season_number (month_season) then -- not a month, is it a season?
return false; -- return false not a month or one of the five seasons
end
end
return true;
end

-- Function gets current year from the server and compares it to year from a citation parameter. Years more than one year in the future are not acceptable.
function is_valid_year(year)
if not is_set(year_limit) then
year_limit = tonumber(os.date("%Y"))+1; -- global variable so we only have to fetch it once (os.date("Y") no longer works?)
end
return tonumber(year) <= year_limit; -- false if year is in the future more than one year
end

--[[
Returns true if day is less than or equal to the number of days in month and year is no farther into the future than next year; else returns false.

Assumes Julian calendar prior to year 1582 and Gregorian calendar thereafter. Accounts for Julian calendar leap years before 1582 and Gregorian leap years after 1582.
Where the two calendars overlap (1582 to approximately 1923) dates are assumed to be Gregorian.
]]
function is_valid_date (year, month, day)
local days_in_month = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
local month_length;
if not is_valid_year(year) then -- no farther into the future than next year
return false;
end

if (2==month) then -- if February
month_length = 28; -- then 28 days unless
if 1582 > tonumber(year) then -- Julian calendar
if 0==(year%4) then
month_length = 29;
end
else -- Gregorian calendar
if (0==(year%4) and (0~=(year%100) or 0==(year%400))) then -- is a leap year?
month_length = 29; -- if leap year then 29 days in February
end
end
else
month_length=days_in_month[month];
end

if tonumber (day) > month_length then
return false;
end
return true;
end

--[[
Check a pair of months or seasons to see if both are valid members of a month or season pair.

Month pairs are expected to be left to right, earliest to latest in time. Similarly, seasons are also left to right, earliest to latest in time. There is
an oddity with seasons. Winter is assigned a value of 1, spring 2, ..., fall and autumn 4. Because winter can follow fall/autumn at the end of a calender year, a special test
is made to see if |date=Fall-Winter yyyy (4-1) is the date.
]]

function is_valid_month_season_range(range_start, range_end)
local range_start_number = get_month_number (range_start);

if 0 == range_start_number then -- is this a month range?
local range_start_number = get_season_number (range_start); -- not a month; is it a season? get start season number
local range_end_number = get_season_number (range_end); -- get end season number

if 0 ~= range_start_number then -- is start of range a season?
if range_start_number < range_end_number then -- range_start is a season
return true; -- return true when range_end is also a season and follows start season; else false
end
if 4 == range_start_number and 1 == range_end_number then -- special case when range is Fall-Winter or Autumn-Winter
return true;
end
end
return false; -- range_start is not a month or a season; or range_start is a season and range_end is not; or improper season sequence
end

local range_end_number = get_month_number (range_end); -- get end month number
if range_start_number < range_end_number then -- range_start is a month; does range_start precede range_end?
return true; -- if yes, return true
end
return false; -- range_start month number is greater than or equal to range end number; or range end isn't a month
end

--[[
Check date format to see that it is one of the formats approved by WP:DATESNO or WP:DATERANGE. Exception: only allowed range separator is endash.
Additionally, check the date to see that it is a real date: no 31 in 30-day months; no 29 February when not a leap year. Months, both long-form and three
character abbreviations, and seasons must be spelled correctly. Future years beyond next year are not allowed.

If the date fails the fomat tests, this function returns false and does not return values for anchor_year and COinS_date. When this happens, the date parameter is
used in the COinS metadata and the CITEREF identifier gets its year from the year parameter if present otherwise CITEREF does not get a date value.

Inputs:
date_string - date string from date-holding parameters (date, year, accessdate, embargo, archivedate, etc)

Returns:
false if date string is not a real date; else
true, anchor_year, COinS_date
anchor_year can be used in CITEREF anchors
COinS_date is date_string without anchor_year disambiguator if any
]]
function check_date (date_string)
local year; -- assume that year2, months, and days are not used;
local year2=0; -- second year in a year range
local month=0;
local month2=0; -- second month in a month range
local day=0;
local day2=0; -- second day in a day range
local anchor_year;
local coins_date;

if date_string:match("^%d%d%d%d%-%d%d%-%d%d$") then -- year-initial numerical year month day format
year, month, day=string.match(date_string, "(%d%d%d%d)%-(%d%d)%-(%d%d)");
month=tonumber(month);
if 12 < month or 1 > month or 1583 > tonumber(year) then return false; end -- month number not valid or not Gregorian calendar
anchor_year = year;

elseif date_string:match("^%a+ +[1-9]%d?, +[1-9]%d%d%d%a?$") then -- month-initial: month day, year
month, day, anchor_year, year=string.match(date_string, "(%a+)%s*(%d%d?),%s*((%d%d%d%d)%a?)");
month = get_month_number (month);
if 0 == month then return false; end -- return false if month text isn't one of the twelve months

elseif date_string:match("^%a+ +[1-9]%d?–[1-9]%d?, +[1-9]%d%d%d%a?$") then -- month-initial day range: month day–day, year; days are separated by endash
month, day, day2, anchor_year, year=string.match(date_string, "(%a+) +(%d%d?)–(%d%d?), +((%d%d%d%d)%a?)");
if tonumber(day) >= tonumber(day2) then return false; end -- date range order is left to right: earlier to later; dates may not be the same;
month = get_month_number (month);
if 0 == month then return false; end -- return false if month text isn't one of the twelve months

elseif date_string:match("^[1-9]%d? +%a+ +[1-9]%d%d%d%a?$") then -- day-initial: day month year
day, month, anchor_year, year=string.match(date_string, "(%d%d*)%s*(%a+)%s*((%d%d%d%d)%a?)");
month = get_month_number (month);
if 0 == month then return false; end -- return false if month text isn't one of the twelve months

elseif date_string:match("^[1-9]%d?–[1-9]%d? +%a+ +[1-9]%d%d%d%a?$") then -- day-range-initial: day–day month year; days are separated by endash
day, day2, month, anchor_year, year=string.match(date_string, "(%d%d?)–(%d%d?) +(%a+) +((%d%d%d%d)%a?)");
if tonumber(day) >= tonumber(day2) then return false; end -- date range order is left to right: earlier to later; dates may not be the same;
month = get_month_number (month);
if 0 == month then return false; end -- return false if month text isn't one of the twelve months

elseif date_string:match("^[1-9]%d? +%a+ – [1-9]%d? +%a+ +[1-9]%d%d%d%a?$") then -- day initial month-day-range: day month - day month year; uses spaced endash
day, month, day2, month2, anchor_year, year=date_string:match("(%d%d?) +(%a+) – (%d%d?) +(%a+) +((%d%d%d%d)%a?)");
if (not is_valid_month_season_range(month, month2)) or not is_valid_year(year) then return false; end -- date range order is left to right: earlier to later;
month = get_month_number (month);
month2 = get_month_number (month2);

elseif date_string:match("^%a+ +[1-9]%d? – %a+ +[1-9]%d?, +[1-9]%d%d%d%a?$") then -- month initial month-day-range: month day – month day, year; uses spaced endash
month, day, month2, day2, anchor_year, year=date_string:match("(%a+) +(%d%d?) – (%a+) +(%d%d?), +((%d%d%d%d)%a?)");
if (not is_valid_month_season_range(month, month2)) or not is_valid_year(year) then return false; end
month = get_month_number (month);
month2 = get_month_number (month2);

elseif date_string:match("^Winter +[1-9]%d%d%d–[1-9]%d%d%d%a?$") then -- special case Winter year-year; year separated with unspaced endash
year, anchor_year, year2=date_string:match("Winter +(%d%d%d%d)–((%d%d%d%d)%a?)");
anchor_year=year..'–'..anchor_year; -- assemble anchor_year from both years
if 1 ~= tonumber(year2) - tonumber(year) then return false; end -- must be sequential years, left to right, earlier to later
if not is_valid_year(year2) then return false; end -- no year farther in the future than next year

elseif date_string:match("^%a+ +[1-9]%d%d%d% – %a+ +[1-9]%d%d%d%a?$") then -- month/season year - month/season year; separated by spaced endash
month, year, month2, anchor_year, year2=date_string:match("(%a+) +(%d%d%d%d) – (%a+) +((%d%d%d%d)%a?)");
anchor_year=year..'–'..anchor_year; -- assemble anchor_year from both years
if tonumber(year) >= tonumber(year2) then return false; end -- left to right, earlier to later, not the same
if not is_valid_year(year2) then return false; end -- no year farther in the future than next year
if not((0 ~= get_month_number(month) and 0 ~= get_month_number(month2)) or -- both must be month year or season year, not mixed
(0 ~= get_season_number(month) and 0 ~= get_season_number(month2))) then return false; end

elseif date_string:match ("^%a+–%a+ +[1-9]%d%d%d%a?$") then -- month/season range year; months separated by endash
month, month2, anchor_year, year=date_string:match ("(%a+)–(%a+)%s*((%d%d%d%d)%a?)");
if (not is_valid_month_season_range(month, month2)) or (not is_valid_year(year)) then
return false;
end

elseif date_string:match("^%a+ +%d%d%d%d%a?$") then -- month/season year
month, anchor_year, year=date_string:match("(%a+)%s*((%d%d%d%d)%a?)");
if not is_valid_year(year) then return false; end
if not is_valid_month_or_season (month) then return false; end

elseif date_string:match("^[1-9]%d%d%d?–[1-9]%d%d%d?%a?$") then -- Year range: YYY-YYY or YYY-YYYY or YYYY–YYYY; separated by unspaced endash; 100-9999
year, anchor_year, year2=date_string:match("(%d%d%d%d?)–((%d%d%d%d?)%a?)");
anchor_year=year..'–'..anchor_year; -- assemble anchor year from both years
if tonumber(year) >= tonumber(year2) then return false; end -- left to right, earlier to later, not the same
if not is_valid_year(year2) then return false; end -- no year farther in the future than next year

elseif date_string:match("^[1-9]%d%d%d–%d%d%a?$") then -- Year range: YYYY–YY; separated by unspaced endash
local century;
year, century, anchor_year, year2=date_string:match("((%d%d)%d%d)–((%d%d)%a?)");
anchor_year=year..'–'..anchor_year; -- assemble anchor year from both years
if 13 > tonumber(year2) then return false; end -- don't allow 2003-05 which might be May 2003
year2 = century..year2; -- add the century to year2 for comparisons
if tonumber(year) >= tonumber(year2) then return false; end -- left to right, earlier to later, not the same
if not is_valid_year(year2) then return false; end -- no year farther in the future than next year

elseif date_string:match("^[1-9]%d%d%d?%a?$") then -- year; here accept either YYY or YYYY
anchor_year, year=date_string:match("((%d%d%d%d?)%a?)");
if false == is_valid_year(year) then
return false;
end

else
return false; -- date format not one of the MOS:DATE approved formats
end

local result=true; -- check whole dates for validity; assume true because not all dates will go through this test
if 0 ~= year and 0 ~= month and 0 ~= day and 0 == year2 and 0 == month2 and 0 == day2 then -- YMD (simple whole date)
result=is_valid_date(year,month,day);

elseif 0 ~= year and 0 ~= month and 0 ~= day and 0 == year2 and 0 == month2 and 0 ~= day2 then -- YMD-d (day range)
result=is_valid_date(year,month,day);
result=result and is_valid_date(year,month,day2);

elseif 0 ~= year and 0 ~= month and 0 ~= day and 0 == year2 and 0 ~= month2 and 0 ~= day2 then -- YMD-md (day month range)
result=is_valid_date(year,month,day);
result=result and is_valid_date(year,month2,day2);

elseif 0 ~= year and 0 ~= month and 0 ~= day and 0 ~= year2 and 0 ~= month2 and 0 ~= day2 then -- YMD-ymd (day month year range)
result=is_valid_date(year,month,day);
result=result and is_valid_date(year2,month2,day2);
end

if false == result then return false; end
-- if here, then date_string is valid; get coins_date from date_string (leave CITEREF disambiguator) ...
coins_date=date_string:match("^(.+%d)%a?$"); -- last character of valid disambiguatable date is always a digit
coins_date= mw.ustring.gsub(coins_date, "–", "-" ); -- ... and replace any ndash with a hyphen

return true, anchor_year, coins_date; -- format is good and date string represents a real date
end

--[[
Cycle the date-holding parameters in passed table date_parameters_list through check_date() to check compliance with MOS:DATE. For all valid dates, check_date() returns
true. The |date= parameter test is unique, it is the only date holding parameter from which values for anchor_year (used in CITEREF identifiers) and COinS_date (used in
the COinS metadata) are derived. The |date= parameter is the only date-holding parameter that is allowed to contain the no-date keywords "n.d." or "nd" (without quotes).

Unlike most error messages created in this module, only one error message is created by this function. Because all of the date holding parameters are processed serially,
a single error message is created as the dates are tested.
]]

function p.dates(date_parameters_list)
local anchor_year; -- will return as nil if the date being tested is not |date=
local COinS_date; -- will return as nil if the date being tested is not |date=
local error_message ="";
local good_date=false;

for k, v in pairs(date_parameters_list) do -- for each date-holding parameter in the list
if is_set(v) then -- if the parameter has a value
if v:match("^c%. [1-9]%d%d%d?%a?$") then -- special case for c. year or with or without CITEREF disambiguator - only |date= and |year=
local year = v:match("c%. ([1-9]%d%d%d?)%a?"); -- get the year portion so it can be tested
if 'date'==k then
anchor_year, COinS_date = v:match("((c%. [1-9]%d%d%d?)%a?)"); -- anchor year and COinS_date only from |date= parameter
good_date = is_valid_year(year);
elseif 'year'==k then
good_date = is_valid_year(year);
end
elseif 'date'==k then -- if the parameter is |date=
if v:match("n%.d%.%a?") then -- if |date=n.d. with or without a CITEREF disambiguator
good_date, anchor_year, COinS_date = true, v:match("((n%.d%.)%a?)"); --"n.d."; no error when date parameter is set to no date
elseif v:match("nd%a?$") then -- if |date=nd with or without a CITEREF disambiguator
good_date, anchor_year, COinS_date = true, v:match("((nd)%a?)"); --"nd"; no error when date parameter is set to no date
else
good_date, anchor_year, COinS_date = check_date (v); -- go test the date
end
else -- any other date-holding parameter
good_date = check_date (v); -- go test the date
end
if false==good_date then -- assemble one error message so we don't add the tracking category multiple times
if is_set(error_message) then -- once we've added the first portion of the error message ...
error_message=error_message .. ", "; -- ... add a comma space separator
end
error_message=error_message .. "|" .. k .. "="; -- add the failed parameter
end
end
end

return anchor_year, COinS_date, error_message; -- and done
end

return p;

Módulo:Citas

2026-02-06T19:13:51Z

GeminiFix:

local z = {
error_categories = {};
error_ids = {};
message_tail = {};
}
-- Include translation message hooks, ID and error handling configuration settings.
--local cfg = mw.loadData( 'Mdódulo:Citas/Configuración/pruebas' );

-- Contains a list of all recognized parameters
--local whitelist = mw.loadData( 'Módulo:Citas/Whitelist/pruebas' );
--local dates = require('Módulo:Citas/ValidaciónFechas/pruebas').dates -- location of date validation code

--Módulo para formatear las fechas
local DateModule = require('Módulo:Date')._Date

-- Whether variable is set or not
function is_set( var )
return not (var == nil or var == '');
end

-- First set variable or nil if none
function first_set(...)
local list = {...};
for _, var in pairs(list) do
if is_set( var ) then
return var;
end
end
end

-- Whether needle is in haystack
function inArray( needle, haystack )
if needle == nil then
return false;
end
for n,v in ipairs( haystack ) do
if v == needle then
return n;
end
end
return false;
end

--[[
Formatea una fecha para que se devuelva de la siguiente forma: "1 de enero de 2020"
Formats a date so it is returned as follows: "1 de enero de 2020"
]]

function format_date(date_string)
function dateFormatter(text)
return DateModule(text):text('%-d de %B de %-Y')
end

local stat, res = pcall(dateFormatter, date_string)

if stat then
return res
else
return date_string
end
end

--[[
Categorize and emit an error message when the citation contains one or more deprecated parameters. Because deprecated parameters (currently |day=, |month=,
|coauthor=, and |coauthors=) aren't related to each other and because these parameters may be concatenated into the variables used by |date= and |author#= (and aliases)
details of which parameter caused the error message are not provided. Only one error message is emitted regarless of the number of deprecated parameters in the citation.
]]
function deprecated_parameter( name )
-- table.insert( z.message_tail, { seterror( 'deprecated_params', {error_message}, true ) } ); -- add error message
table.insert( z.message_tail, { seterror( 'deprecated_params', { name }, true ) } ); -- add error message
end

-- Populates numbered arguments in a message string using an argument table.
function substitute( msg, args )
-- return args and tostring( mw.message.newRawMessage( msg, args ) ) or msg;
return args and mw.message.newRawMessage( msg, args ):plain() or msg;
end

--[[
Apply kerning to open the space between the quote mark provided by the Module and a leading or trailing quote mark contained in a |title= or |chapter= parameter's value.
This function will positive kern either single or double quotes:
"'Unkerned title with leading and trailing single quote marks'"
" 'Kerned title with leading and trailing single quote marks' " (in real life the kerning isn't as wide as this example)
]]
function kern_quotes (str)
local left='%1'; -- spacing to use when title contains leading single or double quote mark
local right='%1'; -- spacing to use when title contains trailing single or double quote mark

if str:match ("^[\"\'][^\']") then
str = string.gsub( str, "^[\"\']", left, 1 ); -- replace (captured) leading single or double quote with left-side 
end
if str:match ("[^\'][\"\']$") then
str = string.gsub( str, "[\"\']$", right, 1 ); -- replace (captured) trailing single or double quote with right-side 
end
return str;
end

-- Wraps a string using a message_list configuration taking one argument
function wrap( key, str, lower )
if not is_set( str ) then
return "";
elseif inArray( key, { 'italic-title', 'trans-italic-title' } ) then
str = safeforitalics( str );
end
if lower == true then
return substitute( cfg.messages[key]:lower(), {str} );
else
return substitute( cfg.messages[key], {str} );
end
end

--[[
Argument wrapper. This function provides support for argument
mapping defined in the configuration file so that multiple names
can be transparently aliased to single internal variable.
]]
function argument_wrapper( args )
local origin = {};

return setmetatable({
ORIGIN = function( self, k )
local dummy = self[k]; --force the variable to be loaded.
return origin[k];
end
},
{
__index = function ( tbl, k )
if origin[k] ~= nil then
return nil;
end

local args, list, v = args, cfg.aliases[k];

if type( list ) == 'table' then
v, origin[k] = selectone( args, list, 'redundant_parameters' );
if origin[k] == nil then
origin[k] = ''; -- Empty string, not nil
end
elseif list ~= nil then
v, origin[k] = args[list], list;
else
-- maybe let through instead of raising an error?
-- v, origin[k] = args[k], k;
error( cfg.messages['unknown_argument_map'] );
end

-- Empty strings, not nil;
if v == nil then
v = cfg.defaults[k] or '';
origin[k] = '';
end

tbl = rawset( tbl, k, v );
return v;
end,
});
end

--[[
Looks for a parameter's name in the whitelist.

Parameters in the whitelist can have three values:
true - active, supported parameters
false - deprecated, supported parameters
nil - unsupported parameters
]]
function validate( name )
local name = tostring( name );
local state = whitelist.basic_arguments[ name ];

-- Normal arguments
if true == state then return true; end -- valid actively supported parameter
if false == state then
deprecated_parameter ( name ); -- parameter is deprecated but still supported
return true;
end

-- Arguments with numbers in them
name = name:gsub( "%d+", "#" ); -- replace digit(s) with # (last25 becomes last#
state = whitelist.numbered_arguments[ name ];
if true == state then return true; end -- valid actively supported parameter
if false == state then
deprecated_parameter ( name ); -- parameter is deprecated but still supported
return true;
end

return false; -- Not supported because not found or name is set to nil
end

-- Formats a comment for error trapping
function errorcomment( content, hidden )
return wrap( hidden and 'hidden-error' or 'visible-error', content );
end

--[[
Sets an error condition and returns the appropriate error message. The actual placement
of the error message in the output is the responsibility of the calling function.
]]
function seterror( error_id, arguments, raw, prefix, suffix )
local error_state = cfg.error_conditions[ error_id ];

prefix = prefix or "";
suffix = suffix or "";

if error_state == nil then
error( cfg.messages['undefined_error'] );
elseif is_set( error_state.category ) then
table.insert( z.error_categories, error_state.category );
end

local message = substitute( error_state.message, arguments );

message = message .. " ([[" .. cfg.messages['help page link'] ..
"#" .. error_state.anchor .. "|" ..
cfg.messages['help page label'] .. "]])";

z.error_ids[ error_id ] = true;
if inArray( error_id, { 'bare_url_missing_title', 'trans_missing_title' } )
and z.error_ids['citation_missing_title'] then
return '', false;
end

message = table.concat({ prefix, message, suffix });

if raw == true then
return message, error_state.hidden;
end

return errorcomment( message, error_state.hidden );
end

-- Formats a wiki style external link
function externallinkid(options)
local url_string = options.id;
if options.encode == true or options.encode == nil then
url_string = mw.uri.encode( url_string );
end
return wrap( 'id', internallink(options.link, options.label) ..
(options.separator or " ") .. mw.ustring.format( '[%s%s%s %s]',
options.prefix, url_string, options.suffix or "",
mw.text.nowiki(options.id)
));
end

-- Formats a wiki style internal link
function internallinkid(options)
return wrap( 'id', internallink(options.link, options.label) ..
(options.separator or " ") .. mw.ustring.format( '[[%s%s%s|%s]]',
options.prefix, options.id, options.suffix or "",
mw.text.nowiki(options.id)
));
end

-- Format an internal link, if link is really set
function internallink( link, label )
if link and link ~= '' then
return mw.ustring.format( '[[%s|%s]]', link, label )
else
return label
end
end

-- Format an external link with error checking
function externallink( URL, label, source )
local error_str = "";
if not is_set( label ) then
label = URL;
if is_set( source ) then
error_str = seterror( 'bare_url_missing_title', { wrap( 'parameter', source ) }, false, " " );
else
error( cfg.messages["bare_url_no_origin"] );
end
end
if not checkurl( URL ) then
error_str = seterror( 'bad_url', {}, false, " " ) .. error_str;
elseif mw.title.getCurrentTitle():inNamespaces(0, 100, 104) and
not mw.title.getCurrentTitle().text:match('Wikipedia') and
URL:match('//[%a%.%-]+%.wikipedia%.org') then
error_str = seterror( 'bad_url_autorreferencia', {}, false, " " ) .. error_str;
end
return table.concat({ "[", URL, " ", safeforurl( label ), "]", error_str });
end
--[[--------------------------< N O R M A L I Z E _ L C C N >--------------------------------------------------

lccn normalization (http://www.loc.gov/marc/lccn-namespace.html#normalization)
1. Remove all blanks.
2. If there is a forward slash (/) in the string, remove it, and remove all characters to the right of the forward slash.
3. If there is a hyphen in the string:
a. Remove it.
b. Inspect the substring following (to the right of) the (removed) hyphen. Then (and assuming that steps 1 and 2 have been carried out):
1. All these characters should be digits, and there should be six or less. (not done in this function)
2. If the length of the substring is less than 6, left-fill the substring with zeroes until the length is six.

Returns a normalized lccn for lccn() to validate. There is no error checking (step 3.b.1) performed in this function.
]]

local function normalize_lccn (lccn)
lccn = lccn:gsub ("%s", ""); -- 1. strip whitespace

if nil ~= string.find (lccn,'/') then
lccn = lccn:match ("(.-)/"); -- 2. remove forward slash and all character to the right of it
end

local prefix
local suffix
prefix, suffix = lccn:match ("(.+)%-(.+)"); -- 3.a remove hyphen by splitting the string into prefix and suffix

if nil ~= suffix then -- if there was a hyphen
suffix=string.rep("0", 6-string.len (suffix)) .. suffix; -- 3.b.2 left fill the suffix with 0s if suffix length less than 6
lccn=prefix..suffix; -- reassemble the lccn
end

return lccn;
end
--[[
Format LCCN link and do simple error checking. LCCN is a character string 8-12 characters long. The length of the LCCN dictates the character type of the first 1-3 characters; the
rightmost eight are always digits. http://info-uri.info/registry/OAIHandler?verb=GetRecord&metadataPrefix=reg&identifier=info:lccn/

length = 8 then all digits
length = 9 then lccn[1] is alpha
length = 10 then lccn[1] and lccn[2] are both alpha or both digits
length = 11 then lccn[1] is alpha, lccn[2] and lccn[3] are both alpha or both digits
length = 12 then lccn[1] and lccn[2] are both alpha

]]
function lccn(id)
local handler = cfg.id_handlers['LCCN'];
local err_cat = ''; -- presume that LCCN is valid

id = normalize_lccn (id);

local len = id:len(); -- get the length of the lccn

if 8 == len then
if id:match("[^%d]") then -- if LCCN has anything but digits (nil if only digits)
err_cat = ' ' .. seterror( 'bad_lccn' ); -- set an error message
end
elseif 9 == len then -- LCCN should be adddddddd
if nil == id:match("%a%d%d%d%d%d%d%d%d") then -- does it match our pattern?
err_cat = ' ' .. seterror( 'bad_lccn' ); -- set an error message
end
elseif 10 == len then -- LCCN should be aadddddddd or dddddddddd
if id:match("[^%d]") then -- if LCCN has anything but digits (nil if only digits) ...
if nil == id:match("^%a%a%d%d%d%d%d%d%d%d") then -- ... see if it matches our pattern
err_cat = ' ' .. seterror( 'bad_lccn' ); -- no match, set an error message
end
end
elseif 11 == len then -- LCCN should be aaadddddddd or adddddddddd
if not (id:match("^%a%a%a%d%d%d%d%d%d%d%d") or id:match("^%a%d%d%d%d%d%d%d%d%d%d")) then -- see if it matches one of our patterns
err_cat = ' ' .. seterror( 'bad_lccn' ); -- no match, set an error message
end
elseif 12 == len then -- LCCN should be aadddddddddd
if not id:match("^%a%a%d%d%d%d%d%d%d%d%d%d") then -- see if it matches our pattern
err_cat = ' ' .. seterror( 'bad_lccn' ); -- no match, set an error message
end
else
err_cat = ' ' .. seterror( 'bad_lccn' ); -- wrong length, set an error message
end

return externallinkid({link = handler.link, label = handler.label,
prefix=handler.prefix,id=id,separator=handler.separator, encode=handler.encode}) .. err_cat;
end

--[[
Format PMID and do simple error checking. PMIDs are sequential numbers beginning at 1 and counting up. This code checks the PMID to see that it
contains only digits and is less than test_limit; the value in local variable test_limit will need to be updated periodically as more PMIDs are issued.
]]
function pmid(id)
local test_limit = 45000000; -- update this value as PMIDs approach
local handler = cfg.id_handlers['PMID'];
local err_cat = ''; -- presume that PMID is valid

if id:match("[^%d]") then -- if PMID has anything but digits
err_cat = ' ' .. seterror( 'bad_pmid' ); -- set an error message
else -- PMID is only digits
local id_num = tonumber(id); -- convert id to a number for range testing
if 1 > id_num or test_limit < id_num then -- if PMID is outside test limit boundaries
err_cat = ' ' .. seterror( 'bad_pmid' ); -- set an error message
end
end

return externallinkid({link = handler.link, label = handler.label,
prefix=handler.prefix,id=id,separator=handler.separator, encode=handler.encode}) .. err_cat;
end

--[[
Determines if a PMC identifier's online version is embargoed. Compares the date in |embargo= against today's date. If embargo date is
in the future, returns true; otherwse, returns false because the embargo has expired or |embargo= not set in this cite.
]]
function is_embargoed(embargo)
if is_set(embargo) then
local lang = mw.getContentLanguage();
local good1, embargo_date, good2, todays_date;
good1, embargo_date = pcall( lang.formatDate, lang, 'U', embargo );
good2, todays_date = pcall( lang.formatDate, lang, 'U' );

if good1 and good2 and tonumber( embargo_date ) >= tonumber( todays_date ) then --is embargo date is in the future?
return true; -- still embargoed
end
end
return false; -- embargo expired or |embargo= not set
end

--[[
Format a PMC, do simple error checking, and check for embargoed articles.

The embargo parameter takes a date for a value. If the embargo date is in the future
the PMC identifier will not be linked to the article. If the embargo specifies a date in the past, or if it is empty or omitted, then
the PMC identifier is linked to the article through the link at cfg.id_handlers['PMC'].prefix.

PMCs are sequential numbers beginning at 1 and counting up. This code checks the PMC to see that it contains only digits and is less
than test_limit; the value in local variable test_limit will need to be updated periodically as more PMCs are issued.
]]
function pmc(id, embargo)
local test_limit = 16000000; -- update this value as PMCs approach
local handler = cfg.id_handlers['PMC'];
local err_cat = ''; -- presume that PMC is valid

local text;

if id:match("^PMC%d") then
id = id:sub(4, j) -- remove 'PMC' preffix if given
end
if id:match("[^%d]") then -- if PMC has anything but digits
err_cat = ' ' .. seterror( 'bad_pmc' ); -- set an error message
else -- PMC is only digits
local id_num = tonumber(id); -- convert id to a number for range testing
if 1 > id_num or test_limit < id_num then -- if PMC is outside test limit boundaries
err_cat = ' ' .. seterror( 'bad_pmc' ); -- set an error message
end
end

if is_embargoed(embargo) then
text="[[" .. handler.link .. "|" .. handler.label .. "]]:" .. handler.separator .. id .. err_cat; --still embargoed so no external link
else
text = externallinkid({link = handler.link, label = handler.label, --no embargo date, ok to link to article
prefix=handler.prefix,id=id,separator=handler.separator, encode=handler.encode}) .. err_cat;
end
return text;
end

-- Formats a DOI and checks for DOI errors.

-- DOI names contain two parts: prefix and suffix separated by a forward slash.
-- Prefix: directory indicator '10.' followed by a registrant code
-- Suffix: character string of any length chosen by the registrant

-- This function checks a DOI name for: prefix/suffix. If the doi name contains spaces or endashes,
-- or, if it ends with a period or a comma, this function will emit a bad_doi error message.

-- DOI names are case-insensitive and can incorporate any printable Unicode characters so the test for spaces, endash,
-- and terminal punctuation may not be technically correct but it appears, that in practice these characters are rarely if ever used in doi names.

function doi(id, inactive)
local cat = ""
local handler = cfg.id_handlers['DOI'];

local text;
if is_set(inactive) then
local inactive_year = inactive:match("%d%d%d%d") or ''; -- try to get the year portion from the inactive date
text = "[[" .. handler.link .. "|" .. handler.label .. "]]:" .. id;
if is_set(inactive_year) then
table.insert( z.error_categories, "Wikipedia:Páginas con DOI inactivos desde " .. inactive_year );
else
table.insert( z.error_categories, "Wikipedia:Páginas con DOI inactivos" ); -- when inactive doesn't contain a recognizable year
end
inactive = " (" .. cfg.messages['inactive'] .. " " .. inactive .. ")"
else
text = externallinkid({link = handler.link, label = handler.label,
prefix=handler.prefix,id=id,separator=handler.separator, encode=handler.encode})
inactive = ""
end

if nil == id:match("^10%.[^%s–]-/[^%s–]-[^%.,]$") then -- doi must begin with '10.', must contain a fwd slash, must not contain spaces or endashes, and must not end with period or comma
cat = ' ' .. seterror( 'bad_doi' );
end
return text .. inactive .. cat
end

-- Formats an OpenLibrary link, and checks for associated errors.
function openlibrary(id)
local code = id:sub(-1,-1)
local handler = cfg.id_handlers['OL'];
if ( code == "A" ) then
return externallinkid({link=handler.link, label=handler.label,
prefix="http://openlibrary.org/authors/OL",id=id, separator=handler.separator,
encode = handler.encode})
elseif ( code == "M" ) then
return externallinkid({link=handler.link, label=handler.label,
prefix="http://openlibrary.org/books/OL",id=id, separator=handler.separator,
encode = handler.encode})
elseif ( code == "W" ) then
return externallinkid({link=handler.link, label=handler.label,
prefix= "http://openlibrary.org/works/OL",id=id, separator=handler.separator,
encode = handler.encode})
else
return externallinkid({link=handler.link, label=handler.label,
prefix= "http://openlibrary.org/OL",id=id, separator=handler.separator,
encode = handler.encode}) ..
' ' .. seterror( 'bad_ol' );
end
end

--[[
Validate and format an issn. This code fixes the case where an editor has included an ISSN in the citation but has separated the two groups of four
digits with a space. When that condition occurred, the resulting link looked like this:

|issn=0819 4327 gives: [http://www.worldcat.org/issn/0819 4327 0819 4327] -- can't have spaces in an external link

This code now prevents that by inserting a hyphen at the issn midpoint. It also validates the issn for length and makes sure that the checkdigit agrees
with the calculated value. Incorrect length (8 digits), characters other than 0-9 and X, or checkdigit / calculated value mismatch will all cause a check issn
error message. The issn is always displayed with a hyphen, even if the issn was given as a single group of 8 digits.
]]
function issn(id, id_handler)
local ModuloIdentificadores = require('Módulo:Identificadores')
local issn_copy = id; -- save a copy of unadulterated issn; use this version for display if issn does not validate
local handler = cfg.id_handlers[id_handler];
local text;
local valid_issn = true;

id=id:gsub( "[%s-–]", "" ); -- strip spaces, hyphens, and ndashes from the issn

if 8 ~= id:len() or nil == id:match( "^%d*X?$" ) then -- validate the issn: 8 didgits long, containing only 0-9 or X in the last position
valid_issn=false; -- wrong length or improper character
else
valid_issn=ModuloIdentificadores.esValidoISXN(id, 8); -- validate issn
end

if true == valid_issn then
id = string.sub( id, 1, 4 ) .. "-" .. string.sub( id, 5 ); -- if valid, display correctly formatted version
else
id = issn_copy; -- if not valid, use the show the invalid issn with error message
end

text = externallinkid({link = handler.link, label = handler.label,
prefix=handler.prefix,id=id,separator=handler.separator, encode=handler.encode})

if false == valid_issn then
text = text .. ' ' .. seterror( 'bad_issn' ) -- add an error message if the issn is invalid
end

return text
end

--[[
This function sets default title types (equivalent to the citation including |type=<default value>) for those citations that have defaults.
Also handles the special case where it is desireable to omit the title type from the rendered citation (|type=none).
]]
function set_titletype(cite_class, title_type)
if is_set(title_type) then
if "none" == title_type then
title_type = ""; -- if |type=none then type parameter not displayed
end
return title_type; -- if |type= has been set to any other value use that value
end

-- if "AV media notes" == cite_class or "DVD notes" == cite_class then -- if this citation is cite AV media notes or cite DVD notes
if "notas audiovisual" == cite_class or "notas de DVD" == cite_class then -- if this citation is cite AV media notes or cite DVD notes
return "Media notes"; -- display AV media notes / DVD media notes annotation -- Falta traducir

elseif "podcast" == cite_class then -- if this citation is cite podcast
return "Podcast"; -- display podcast annotation

elseif "pressrelease" == cite_class then -- if this citation is cite press release
return "Press release"; -- display press release annotation

elseif "techreport" == cite_class then -- if this citation is cite techreport
return "Technical report"; -- display techreport annotation

elseif "tesis" == cite_class then -- if this citation is cite thesis (degree option handled after this function returns)
return "Tesis"; -- display simple thesis annotation (without |degree= modification)
end
end

--[[
Determines whether a URL string is valid

At present the only check is whether the string appears to
be prefixed with a URI scheme. It is not determined whether
the URI scheme is valid or whether the URL is otherwise well
formed.
]]
function checkurl( url_str )
-- Protocol-relative or URL scheme
return url_str:sub(1,2) == "//" or url_str:match( "^[^/]*:" ) ~= nil;
end

-- Removes irrelevant text and dashes from ISBN number
-- Similar to that used for Special:BookSources
function cleanisbn( isbn_str )
return isbn_str:gsub( "[^-0-9X]", "" );
end

-- Extract page numbers from external wikilinks in any of the |page=, |pages=, or |at= parameters for use in COinS.
function get_coins_pages (pages)
if not is_set (pages) then return pages; end -- if no page numbers then we're done

while true do
local urlPattern = "%[%w*:?//[^ ]+%s+([%w%d].*)%]"
local urlMatch = pages:match(urlPattern); -- pattern is the opening bracket, the url and following space(s): "[url "
if nil == urlMatch then break; end -- no more urls
pages = pages:gsub(urlPattern, "%1"); -- remove as many instances of pattern as possible
end
pages = pages:gsub("[%[%]]", ""); -- remove the brackets
pages = pages:gsub("–", "-" ); -- replace endashes with hyphens
pages = pages:gsub("&%w+;", "-" ); -- and replace html entities (– etc) with hyphens; do we need to replace numerical entities like and the like?
return pages;
end

-- Gets the display text for a wikilink like [[A|B]] or [[B]] gives B
function removewikilink( str )
return (str:gsub( "%[%[([^%[%]]*)%]%]", function(l)
return l:gsub( "^[^|]*|(.*)$", "%1" ):gsub("^%s*(.-)%s*$", "%1");
end));
end

-- Escape sequences for content that will be used for URL descriptions
function safeforurl( str )
if str:match( "%[%[.-%]%]" ) ~= nil then
table.insert( z.message_tail, { seterror( 'wikilink_in_url', {}, true ) } );
end

return str:gsub( '[%[%]\n]', {
['['] = '[',
[']'] = ']',
['\n'] = ' ' } );
end

-- Convierte un guión largo (signo de negativo) en un guión corto.
function dashtohyphen( str )
if not is_set(str) or str:match( "[%[%]{}<>]" ) ~= nil then
return str;
end
return str:gsub( '–', '-' );
end

-- Protects a string that will be wrapped in wiki italic markup '' ... ''
function safeforitalics( str )
--[[ Note: We can not use for italics, as the expected behavior for
italics specified by ''...'' in the title is that they will be inverted
(i.e. unitalicized) in the resulting references. In addition, and ''
tend to interact poorly under Mediawiki's HTML tidy. ]]

if not is_set(str) then
return str;
else
if str:sub(1,1) == "'" then str = "" .. str; end
if str:sub(-1,-1) == "'" then str = str .. ""; end

-- Remove newlines as they break italics.
return str:gsub( '\n', ' ' );
end
end

--[[
Joins a sequence of strings together while checking for duplicate separation
characters.
]]
function safejoin( tbl, duplicate_char )
--[[
Note: we use string functions here, rather than ustring functions.

This has considerably faster performance and should work correctly as
long as the duplicate_char is strict ASCII. The strings
in tbl may be ASCII or UTF8.
]]

local str = '';
local comp = '';
local end_chr = '';
local trim;
for _, value in ipairs( tbl ) do
if value == nil then value = ''; end

if str == '' then
str = value;
elseif value ~= '' then
if value:sub(1,1) == '<' then
-- Special case of values enclosed in spans and other markup.
comp = value:gsub( "%b<>", "" );
else
comp = value;
end

if comp:sub(1,1) == duplicate_char then
trim = false;
end_chr = str:sub(-1,-1);
-- str = str .. "<HERE(enchr=" .. end_chr.. ")"
if end_chr == duplicate_char then
str = str:sub(1,-2);
elseif end_chr == "'" then
if str:sub(-3,-1) == duplicate_char .. "''" then
str = str:sub(1, -4) .. "''";
elseif str:sub(-5,-1) == duplicate_char .. "]]''" then
trim = true;
elseif str:sub(-4,-1) == duplicate_char .. "]''" then
trim = true;
end
elseif end_chr == "]" then
if str:sub(-3,-1) == duplicate_char .. "]]" then
trim = true;
elseif str:sub(-2,-1) == duplicate_char .. "]" then
trim = true;
end
elseif end_chr == " " then
if str:sub(-2,-1) == duplicate_char .. " " then
str = str:sub(1,-3);
end
end

if trim then
if value ~= comp then
local dup2 = duplicate_char;
if dup2:match( "%A" ) then dup2 = "%" .. dup2; end

value = value:gsub( "(%b<>)" .. dup2, "%1", 1 )
else
value = value:sub( 2, -1 );
end
end
end
str = str .. value;
end
end
return str;
end

-- Attempts to convert names to initials.
function reducetoinitials(first)
local initials = {}
for word in string.gmatch(first, "%S+") do
table.insert(initials, string.sub(word,1,1)) -- Vancouver format does not include full stops.
end
return table.concat(initials) -- Vancouver format does not include spaces.
end

-- Formats a list of people (e.g. authors / editors)
function listpeople(control, people)
local sep = control.sep;
local namesep = control.namesep
local format = control.format
local maximum = control.maximum
local lastauthoramp = control.lastauthoramp;
local text = {}
local etal = false;

if sep:sub(-1,-1) ~= " " then sep = sep .. " " end
if maximum ~= nil and maximum < 1 then return "", 0; end

for i,person in ipairs(people) do
if is_set(person.last) then
local mask = person.mask
local one
local sep_one = sep;
if maximum ~= nil and i > maximum then
etal = true;
break;
elseif (mask ~= nil) then
local n = tonumber(mask)
if (n ~= nil) then
one = string.rep("—",n)
else
one = mask;
sep_one = " ";
end
else
one = person.last
local first = person.first
if is_set(first) then
if ( "vanc" == format ) then first = reducetoinitials(first) end
one = one .. namesep .. first
end
if is_set(person.link) then one = "[[" .. person.link .. "|" .. one .. "]]" end
if is_set(person.link) and nil ~= person.link:find("//") then one = one .. " " .. seterror( 'bad_authorlink' ) end -- check for url in author link;
end
table.insert( text, one )
table.insert( text, sep_one )
end
end

local count = #text / 2;
if count > 0 then
if count > 1 and is_set(lastauthoramp) and not etal then
text[#text-2] = " & ";
end
text[#text] = nil;
end

local result = table.concat(text) -- construct list
if etal then
local etal_text = cfg.messages['et al'];
result = result .. " " .. etal_text;
end

-- if necessary wrap result in tag to format in Small Caps
if ( "scap" == format ) then result =
'' .. result .. '';
end
return result, count
end

-- Generates a CITEREF anchor ID.
function anchorid( options )
return "CITAREF" .. table.concat( options ); --return "CITEREF" .. table.concat( options );
end

-- Gets name list from the input arguments
function extractnames(args, list_name)
local names = {};
local i = 1;
local last;

while true do
last = selectone( args, cfg.aliases[list_name .. '-Last'], 'redundant_parameters', i );
if not is_set(last) then
-- just in case someone passed in an empty parameter
break;
end
names[i] = {
last = last,
first = selectone( args, cfg.aliases[list_name .. '-First'], 'redundant_parameters', i ),
link = selectone( args, cfg.aliases[list_name .. '-Link'], 'redundant_parameters', i ),
mask = selectone( args, cfg.aliases[list_name .. '-Mask'], 'redundant_parameters', i )
};
i = i + 1;
end
return names;
end

-- Populates ID table from arguments using configuration settings
function extractids( args )
local id_list = {};
for k, v in pairs( cfg.id_handlers ) do
v = selectone( args, v.parameters, 'redundant_parameters' );
if is_set(v) then id_list[k] = v; end
end
return id_list;
end

-- Takes a table of IDs and turns it into a table of formatted ID outputs.
function buildidlist( id_list, options )
local new_list, handler = {};

function fallback(k) return { __index = function(t,i) return cfg.id_handlers[k][i] end } end;

for k, v in pairs( id_list ) do
-- fallback to read-only cfg
handler = setmetatable( { ['id'] = v }, fallback(k) );

if handler.mode == 'external' then
table.insert( new_list, {handler.label, externallinkid( handler ) } );
elseif handler.mode == 'internal' then
table.insert( new_list, {handler.label, internallinkid( handler ) } );
elseif handler.mode ~= 'manual' then
error( cfg.messages['unknown_ID_mode'] );
elseif k == 'DOI' then
table.insert( new_list, {handler.label, doi( v, options.DoiBroken ) } );
elseif k == 'LCCN' then
table.insert( new_list, {handler.label, lccn( v ) } );
elseif k == 'OL' then
table.insert( new_list, {handler.label, openlibrary( v ) } );
elseif k == 'PMC' then
table.insert( new_list, {handler.label, pmc( v, options.Embargo ) } );
elseif k == 'PMID' then
table.insert( new_list, {handler.label, pmid( v ) } );
elseif k == 'ISSN' then
table.insert( new_list, {handler.label, issn( v:upper(), k ) } );
elseif k == 'EISSN' then
table.insert( new_list, {handler.label, issn( v:upper(), k ) } );
elseif k == 'ISBN' then
--local ISBN = internallinkid( handler );
--if not checkisbn( v ) and not is_set(options.IgnoreISBN) then
-- ISBN = ISBN .. seterror( 'bad_isbn', {}, false, " ", "" );
--end
local ISBN
if options.ISBNCorrecto or options.ISBNSugerido or is_set(options.IgnoreISBN) then
ISBN = internallinkid( handler );
else -- ISBN incorrecto.
ISBN = internallinkid( handler ) .. seterror( 'bad_isbn', {}, false, " ", "" );
end
table.insert( new_list, {handler.label, ISBN } );
else
error( cfg.messages['unknown_manual_ID'] );
end
end

function comp( a, b ) -- used in following table.sort()
return a[1] < b[1];
end

table.sort( new_list, comp );
for k, v in ipairs( new_list ) do
new_list[k] = v[2];
end

return new_list;
end

function CorregirISBN(ISBNIncorrecto)
local ModuloIdentificadores = require('Módulo:Identificadores')
local ISBNCorregido

-- Convertir mayúsculas
ISBNCorregido = ISBNIncorrecto:upper()

-- Corregir guiones
ISBNCorregido = ISBNCorregido:gsub("%–","-");

-- Eliminar ISBN del principio
ISBNCorregido =ISBNCorregido:match("ISBN (.*)") or ISBNCorregido;

-- Eliminar separadores como "." y "," del final
ISBNCorregido = ISBNCorregido:gsub("[%.,]","");

if ModuloIdentificadores.esValidoISBN(ISBNCorregido) then
return ISBNCorregido
end

-- Ver si se trata de un ISBN de 13
local ISBNCorregidoSin978
ISBNCorregidoSin978 = ISBNCorregido:match("^978[%s-]*(.*)")
if ISBNCorregidoSin978 and ModuloIdentificadores.esValidoISBN(ISBNCorregidoSin978) then
-- "978" + ISBN10
return ISBNCorregidoSin978
end

-- ISBN de 13 al que se ha quitado 978
if ModuloIdentificadores.esValidoISBN('978'..ISBNCorregido) then
if ISBNCorregido:match('-') then
return '978-' .. ISBNCorregido
elseif ISBNCorregido:match(' ') then
return '978 ' .. ISBNCorregido
else
return '978' .. ISBNCorregido
end
end

-- 13 ISBN o 13: ISBN
local ISBNCorregidoSi13
ISBNCorregidoSin13 = ISBNCorregido:match("^13:?[%s]+(.*)")
if ISBNCorregidoSin13 and ModuloIdentificadores.esValidoISBN(ISBNCorregidoSin13) then
return ISBNCorregidoSin13
end
end

function CorregirISBNs(ISBNIncorrecto1, ISBNIncorrecto2)
-- Tomar aquel de los dos ISBNs correctos si uno de ellos es un ISBN10 y el
-- otro el correspondiente ISBN13

local ISBN1Corregido = CorregirISBN(ISBNIncorrecto1)
local ISBN2Corregido = CorregirISBN(ISBNIncorrecto2)

if ISBN1Corregido and ISBN2Corregido then
-- Ambos son correctos.
if ISBN1Corregido == ISBN2Corregido then
-- Ambos son iguales (tras corregirse)
return ISBN1Corregido
end

-- Ver si uno de ellos es un ISBN10 y el otro un ISBN13
local ISBNSinDigitoControl
ISBNSinDigitoControl = ISBN1Corregido:match("(.*).")
if ISBNSinDigitoControl and ISBN2Corregido:match("978[%s-]*" .. ISBNSinDigitoControl) then
return ISBN2Corregido
end

ISBNSinDigitoControl = ISBN2Corregido:match("(.*).")
if ISBNSinDigitoControl and ISBN1Corregido:match("978[%s-]*" .. ISBNSinDigitoControl) then
return ISBN1Corregido
end

elseif ISBN1Corregido then
return ISBN1Corregido
elseif ISBN2Corregido then
return ISBN1Corregido
end
end

function SugerirISBN(ISBNIncorrecto)
local ISBNSugerido

-- Ejemplos:
-- 0 88254 165 x --> 0 88254 165 X
-- 0-7153-5734-4. --> 0-7153-5734-4
-- 0–313–31807–7 --> 0-313-31807-7
-- ISBN(13): 9788495379092
-- 978-0-7432-9302-0 y 0-7432-9302-0
-- 9788430948949 8430948945
-- 8496702057 9788496702059
-- 0198152213, 978019815221
-- 13 978-0-511-41399-5
-- 13: 9788432238406

-- ISBN con caracteres incorrectos.
ISBNSugerido=CorregirISBN(ISBNIncorrecto)
if ISBNSugerido then
return ISBNSugerido
end

-- ISBN10, ISBN13 o ISBN13, ISBN10
local ISBN1, ISBN2
ISBN1, ISBN2 = ISBNIncorrecto:match("(.*),%s*(.*)")
if is_set(ISBN1) and is_set(ISBN2) then
ISBNSugerido = CorregirISBNs(ISBN1, ISBN2)

if ISBNSugerido then
return ISBNSugerido
end
end

-- ISBN10 y ISBN13 o ISBN13 y ISBN10
ISBN1, ISBN2 = ISBNIncorrecto:match("(.*)%s+y%s+(.*)")
if is_set(ISBN1) and is_set(ISBN2) then
ISBNSugerido = CorregirISBNs(ISBN1, ISBN2)

if ISBNSugerido then
return ISBNSugerido
end
end

-- ISBN10 ISBN13 o ISBN13 ISBN10
ISBN1, ISBN2 = ISBNIncorrecto:match("(.*)%s+(.*)")
if is_set(ISBN1) and is_set(ISBN2) then
ISBNSugerido = CorregirISBNs(ISBN1, ISBN2)

if ISBNSugerido then
return ISBNSugerido
end
end
end

-- Chooses one matching parameter from a list of parameters to consider
-- Generates an error if more than one match is present.
function selectone( args, possible, error_condition, index )
local value = nil;
local selected = '';
local error_list = {};

if index ~= nil then index = tostring(index); end

-- Handle special case of "#" replaced by empty string
if index == '1' then
for _, v in ipairs( possible ) do
v = v:gsub( "#", "" );
if is_set(args[v]) then
if value ~= nil and selected ~= v then
table.insert( error_list, v );
else
value = args[v];
selected = v;
end
end
end
end

for _, v in ipairs( possible ) do
if index ~= nil then
v = v:gsub( "#", index );
end
if is_set(args[v]) then
if value ~= nil and selected ~= v then
table.insert( error_list, v );
else
value = args[v];
selected = v;
end
end
end

if #error_list > 0 then
local error_str = "";
for _, k in ipairs( error_list ) do
if error_str ~= "" then error_str = error_str .. cfg.messages['parameter-separator'] end
error_str = error_str .. wrap( 'parameter', k );
end
if #error_list > 1 then
error_str = error_str .. cfg.messages['parameter-final-separator'];
else
error_str = error_str .. cfg.messages['parameter-pair-separator'];
end
error_str = error_str .. wrap( 'parameter', selected );
table.insert( z.message_tail, { seterror( error_condition, {error_str}, true ) } );
end

return value, selected;
end

-- COinS metadata (see <http://ocoins.info/>) allows automated tools to parse
-- the citation information.
function COinS(data)
if 'table' ~= type(data) or nil == next(data) then
return '';
end

local ctx_ver = "Z39.88-2004";

-- treat table strictly as an array with only set values.
local OCinSoutput = setmetatable( {}, {
__newindex = function(self, key, value)
if is_set(value) then
rawset( self, #self+1, table.concat{ key, '=', mw.uri.encode( removewikilink( value ) ) } );
end
end
});

if is_set(data.Chapter) then
OCinSoutput.rft_val_fmt = "info:ofi/fmt:kev:mtx:book";
OCinSoutput["rft.genre"] = "bookitem";
OCinSoutput["rft.btitle"] = data.Chapter;
OCinSoutput["rft.atitle"] = data.Title;
elseif is_set(data.Periodical) then
OCinSoutput.rft_val_fmt = "info:ofi/fmt:kev:mtx:journal";
OCinSoutput["rft.genre"] = "article";
OCinSoutput["rft.jtitle"] = data.Periodical;
OCinSoutput["rft.atitle"] = data.Title;
else
OCinSoutput.rft_val_fmt = "info:ofi/fmt:kev:mtx:book";
OCinSoutput["rft.genre"] = "book"
OCinSoutput["rft.btitle"] = data.Title;
end

OCinSoutput["rft.place"] = data.PublicationPlace;
OCinSoutput["rft.date"] = data.Date;
OCinSoutput["rft.series"] = data.Series;
OCinSoutput["rft.volume"] = data.Volume;
OCinSoutput["rft.issue"] = data.Issue;
OCinSoutput["rft.pages"] = data.Pages;
OCinSoutput["rft.edition"] = data.Edition;
OCinSoutput["rft.pub"] = data.PublisherName;

for k, v in pairs( data.ID_list ) do
local id, value = cfg.id_handlers[k].COinS;
if k == 'ISBN' then value = cleanisbn( v ); else value = v; end
if string.sub( id or "", 1, 4 ) == 'info' then
OCinSoutput["rft_id"] = table.concat{ id, "/", v };
else
OCinSoutput[ id ] = value;
end
end

local last, first;
for k, v in ipairs( data.Authors ) do
last, first = v.last, v.first;
if k == 1 then
if is_set(last) then
OCinSoutput["rft.aulast"] = last;
end
if is_set(first) then
OCinSoutput["rft.aufirst"] = first;
end
end
if is_set(last) and is_set(first) then
OCinSoutput["rft.au"] = table.concat{ last, ", ", first };
elseif is_set(last) then
OCinSoutput["rft.au"] = last;
end
end

OCinSoutput.rft_id = data.URL;
OCinSoutput.rfr_id = table.concat{ "info:sid/", mw.site.server:match( "[^/]*$" ), ":", data.RawPage };
OCinSoutput = setmetatable( OCinSoutput, nil );

-- sort with version string always first, and combine.
table.sort( OCinSoutput );
table.insert( OCinSoutput, 1, "ctx_ver=" .. ctx_ver ); -- such as "Z39.88-2004"
return table.concat(OCinSoutput, "&");
end

--[[
This is the main function doing the majority of the citation
formatting.
]]
function citation0( config, args)
local ModuloIdentificadores = require('Módulo:Identificadores')
--[[
Load Input Parameters
The argment_wrapper facillitates the mapping of multiple
aliases to single internal variable.
]]
local A = argument_wrapper( args );

local i
local PPrefix = A['PPrefix']
local PPPrefix = A['PPPrefix']
if is_set( A['NoPP'] ) then PPPrefix = "" PPrefix = "" end

-- Pick out the relevant fields from the arguments. Different citation templates
-- define different field names for the same underlying things.
local Authors = A['Authors'];
local a = extractnames( args, 'AuthorList' );

local Coauthors = A['Coauthors'];

local Editors = A['Editors'];
local e = extractnames( args, 'EditorList' );

local Year = A['Year'];
local wYear=Year;
local PublicationDate = A['PublicationDate'];
local OrigYear = A['OrigYear'];
local Date = A['Date'];
local wfecha = Date;
local LayDate = A['LayDate'];
------------------------------------------------- Get title data
local Title = A['Title'];
local BookTitle = A['BookTitle'];
local Conference = A['Conference'];
local TransTitle = A['TransTitle'];
local TitleNote = A['TitleNote'];
local TitleLink = A['TitleLink'];
local Chapter = A['Chapter'];
local ChapterLink = A['ChapterLink'];
local TransChapter = A['TransChapter'];
local TitleType = A['TitleType'];
local Degree = A['Degree'];
local Docket = A['Docket'];
local ArchiveURL = A['ArchiveURL'];
local URL = A['URL']
local URLorigin = A:ORIGIN('URL');
local ChapterURL = A['ChapterURL'];
local ChapterURLorigin = A:ORIGIN('ChapterURL');
local ConferenceURL = A['ConferenceURL'];
local ConferenceURLorigin = A:ORIGIN('ConferenceURL');
local SinURL = false;
local Periodical = A['Periodical'];

local Series = A['Series'];
local Volume = A['Volume'];
local Issue = A['Issue'];
local Position = '';
local Page = A['Page'];
local Pages = dashtohyphen( A['Pages'] );
local At = A['At'];
local Others = A['Others'];
local Edition = A['Edition'];
local PublicationPlace = A['PublicationPlace']
local Place = A['Place'];
local Passage = A['Passage'];
local PassageURL = A['PassageURL'];

local PublisherName = A['PublisherName'];
local UrlAccess = A['UrlAccess'];
local RegistrationRequired = A['RegistrationRequired'];
local SubscriptionRequired = A['SubscriptionRequired'];
local Via = A['Via'];
local AccessDate = A['AccessDate'];
local MesAcceso = A['MesAcceso']; -- Inexistente en la plantilla original
local AnyoAcceso = A['AñoAcceso']; -- Inexistente en la plantilla original
local ArchiveDate = A['ArchiveDate'];
local Agency = A['Agency'];
local DeadURL = A['DeadURL']
local Language = A['Language'];
local Format = A['Format'];
local Ref = A['Ref'];
local DoiBroken = A['DoiBroken'];
local ID = A['ID'];
local IgnoreISBN = A['IgnoreISBN'];
local Embargo = A['Embargo'];
local Texto1 = A['Texto1']
local ID_list = extractids( args );
local ISBNCorrecto = false;
local ISBNSugerido;

if is_set (ID_list['ISBN']) and not is_set (IgnoreISBN) then
if ModuloIdentificadores.esValidoISBN(ID_list['ISBN']) then
ISBNCorrecto= true
else
ISBNSugerido = SugerirISBN(ID_list['ISBN'])
if ISBNSugerido then
ID_list['ISBN'] = ISBNSugerido
end
end
end
local Lista_Identificadores_Formateados={} -- Lista de identificadores con enlaces y en su caso con los errores

local Quote = A['Quote'];
local TransQuote = A['TransQuote'];
local PostScript = A['PostScript'];

local LayURL = A['LayURL'];
local LaySource = A['LaySource'];
local Transcript = A['Transcript'];
local TranscriptURL = A['TranscriptURL']
local TranscriptURLorigin = A:ORIGIN('TranscriptURL');
local sepc = A['Separator'];

local LastAuthorAmp = A['LastAuthorAmp'];
local no_tracking_cats = A['NoTracking'];

--these are used by cite interview
local Callsign = A['Callsign'];
local City = A['City'];
local Cointerviewers = A['Cointerviewers']; -- deprecated
local Interviewer = A['Interviewer']; -- deprecated
local Program = A['Program'];

--Parámetros que no se utilizan en la plantilla inglesa
local SinEd = A['SinEd']
local Extra = A['Extra']
local Traductor = A['Traductor']
local Traductores = A['Traductores']

--local variables that are not cs1 parameters
local page_type; -- is this needed? Doesn't appear to be used anywhere;
local use_lowercase
local this_page = mw.title.getCurrentTitle(); --Also used for COinS and for language
-- local anchor_year; -- used in the CITEREF identifier
local COinS_date; -- used in the COinS metadata

--check this page to see if it is in one of the namespaces that cs1 is not supposed to add to the error categories.
if not is_set(no_tracking_cats) then -- ignore if we are already not going to categorize this page
for k, v in pairs( cfg.uncategorized_namespaces ) do -- otherwise, spin through the list of namespaces we don't include in error categories
if this_page.nsText == v then -- if we find one
no_tracking_cats = "true"; -- set no_trackin_cats
break; -- and we're done
end
end
end

-- check for extra |page=, |pages= or |at= parameters.
if is_set(Page) then
-- La categoría de la plantilla inglesa es intraducible. Utilizo otro error similar.

--if is_set(Pages) or is_set(At) then
-- Page = Page .. " " .. seterror('extra_pages'); -- add error message
-- Pages = ''; -- unset the others
-- At = '';
--end
if is_set(Pages) then
Page = Page .. " " .. seterror('redundant_parameters', '<code>|página=</code> y <code>|páginas=</code>');
Pages = ''; -- unset the others
At = '';
Passage = '';
elseif is_set(At) then
Page = Page .. " " .. seterror('redundant_parameters', '<code>|página=</code> y <code>|en=</code>');
Pages = ''; -- unset the others
At = '';
Passage = '';
elseif is_set(Passage) then
Page = Page .. " " .. seterror('redundant_parameters', '<code>|página=</code> y <code>|pasaje=</code>');
Pages = ''; -- unset the others
At = '';
Passage = '';
end
elseif is_set(Pages) then
if is_set(At) then
-- Pages = Pages .. " " .. seterror('extra_pages'); -- add error messages
Pages = Pages .. " " .. seterror('redundant_parameters', '<code>|páginas=</code> y <code>|en=</code>');
At = '';
Passage = '';
elseif is_set(Passage) then
Pages = Pages .. " " .. seterror('redundant_parameters', '<code>|páginas=</code> y <code>|pasaje=</code>');
At = '';
Passage = '';
end
elseif is_set(At) then
if is_set(Passage) then
At = At .. " " .. seterror('redundant_parameters', '<code>|en=</code> y <code>|pasaje=</code>');
Passage = '';
end
end

-- both |publication-place= and |place= (|location=) allowed if different
if not is_set(PublicationPlace) and is_set(Place) then
PublicationPlace = Place; -- promote |place= (|location=) to |publication-place
end

if PublicationPlace == Place then Place = ''; end -- don't need both if they are the same

--[[
Parameter remapping for cite encyclopedia:
When the citation has these parameters:
|encyclopedia and |title then map |title to |article and |encyclopedia to |title
|encyclopedia and |article then map |encyclopedia to |title
|encyclopedia then map |encyclopedia to |title

|trans_title maps to |trans_chapter when |title is re-mapped

All other combinations of |encyclopedia, |title, and |article are not modified
]]
-- if ( config.ClaseCita == "encyclopaedia" ) then
if ( config.ClaseCita == "enciclopedia" ) then
if is_set(Periodical) then -- Periodical is set when |encyclopedia is set
if is_set(Title) then
if not is_set(Chapter) then
Chapter = Title; -- |encyclopedia and |title are set so map |title to |article and |encyclopedia to |title
TransChapter = TransTitle;
Title = Periodical;
Periodical = ''; -- redundant so unset
TransTitle = ''; -- redundant so unset
end
else -- |title not set
Title = Periodical; -- |encyclopedia set and |article set or not set so map |encyclopedia to |title
Periodical = ''; -- redundant so unset
end
end
end

--special cases for classic book
if config.ClaseCita == 'libro' and is_set(Passage) then
if is_set(PassageURL) then
Passage = externallink( PassageURL, Passage )
end
if not is_set (sepc) then
sepc = ' ';
end
else
Passage = ''
end

--special cases for citation.
if (config.ClaseCita == "citation") then -- for citation templates
if not is_set (sepc) then -- if |separator= is not set
sepc = ','; -- set citation separator to its default (comma)
end
else -- not a citation template
if not is_set (sepc) then -- if |separator= has not been set
sepc = '.'; -- set cite xxx separator to its default (period)
end
end

if not is_set (Ref) then -- if |ref= is not set
-- if inArray(config.ClaseCita, {"citation", "libro", "publicación", "web"}) then -- for citation templates
-- En la Wikipedia inglesa solo se usan citas Harvard para la clase citation
-- Quedan habilitadas las citas Harvard para cualquier clase que contenga algún autor o editor
if #a > 0 or #e > 0 then
Ref = "harv"; -- set default |ref=harv
end
end

-- check for specital case where |separator=none
if 'none' == sepc:lower() then -- if |separator=none
sepc = ''; -- then set it to a empty string
end

use_lowercase = ( sepc ~= '.' );

Others = is_set(Others) and (sepc .. " " .. Others) or "";

-- Special case for cite techreport.
if (config.ClaseCita == "techreport") then -- special case for cite techreport
if is_set(Issue) then -- cite techreport uses 'number', which other citations aliase to 'issue'
if not is_set(ID) then -- can we use ID for the "number"?
ID = Issue; -- yes, use it
Issue = ""; -- unset Issue so that "number" isn't duplicated in the rendered citation or COinS metadata
else -- can't use ID so emit error message
ID = ID .. " " .. seterror('redundant_parameters', '<code>|id=</code> and <code>|number=</code>');
end
end
-- special case for cite interview
elseif (config.ClaseCita == "entrevista") then
if is_set(Program) then
ID = ' ' .. Program;
end
if is_set(Callsign) then
if is_set(ID) then
ID = ID .. sepc .. ' ' .. Callsign;
else
ID = ' ' .. Callsign;
end
end
if is_set(City) then
if is_set(ID) then
ID = ID .. sepc .. ' ' .. City;
else
ID = ' ' .. City;
end
end

if is_set(Interviewer) then
if is_set(TitleType) then
Others = sepc .. ' ' .. TitleType .. ' con ' .. Interviewer -- ' ' .. TitleType .. ' con ' .. Interviewer;
TitleType = '';
else
Others = sepc .. ' ' .. wrap('interview', Interviewer, use_lowercase) .. Others -- ' ' .. 'Entrevista con ' .. Interviewer;
end
if is_set(Cointerviewers) then
Others = Others .. sepc .. ' ' .. Cointerviewers;
end
else
Others = Others .. sepc .. ' (Entrevista)' --'(Interview)';
end
elseif is_set(ID) then
ID = wrap( 'id', ID)
end

--Account for the oddity that is {{cite journal}} with |pmc= set and |url= not set
-- if config.ClaseCita == "journal" and not is_set(URL) and is_set(ID_list['PMC']) then
if config.ClaseCita == "publicación" and not is_set(URL) and is_set(ID_list['PMC']) then
if not is_embargoed(Embargo) then
URL=cfg.id_handlers['PMC'].prefix .. ID_list['PMC']; -- set url to be the same as the PMC external link if not embargoed
URLorigin = cfg.id_handlers['PMC'].parameters[1]; -- set URLorigin to parameter name for use in error message if citation is missing a |title=
end
end

if is_set(Texto1) and Texto1:match("%S+") then
-- Informar la URL con el valor del campo 1 en su caso
if config.ClaseCita == "web" and not is_set(URL) and checkurl(Texto1) then
table.insert( z.message_tail, { seterror( 'url_sugerida', {Texto1, 'url'}, true ) } )
--URL = Texto1 Utilizar URL como texto.
else
table.insert( z.message_tail, { seterror( 'text_ignored', {Texto1}, true ) } )
end
end

-- Account for the oddity that is {{cite conference}}, before generation of COinS data.
--TODO: if this is only for {{cite conference}}, shouldn't we be checking? (if config.ClaseCita=='conference' then ...)

if 'conferencia' == config.ClaseCita then
if is_set(BookTitle) then
Chapter = Title;
-- ChapterLink = TitleLink; -- |chapterlink= is deprecated
ChapterURL = URL;
ChapterUrlAccess = UrlAccess;
ChapterURLorigin = URLorigin;
URLorigin = '';
ChapterFormat = Format;
TransChapter = TransTitle;
Title = BookTitle;
Format = '';
-- TitleLink = '';
TransTitle = '';
URL = '';
end
elseif 'speech' ~= config.ClaseCita then
Conference = ''; -- not cite conference or cite speech so make sure this is empty string
end

-- Account for the oddity that is {{cite episode}}, before generation of COinS data.
--[[ -- {{cite episode}} is not currently supported by this module
if config.ClaseCita == "episode" then
local AirDate = A['AirDate'];
local SeriesLink = A['SeriesLink'];
local Season = A['Season'];
local SeriesNumber = A['SeriesNumber'];
local Network = A['Network'];
local Station = A['Station'];
local s, n = {}, {};
local Sep = (first_set(A["SeriesSeparator"], A["Separator"]) or "") .. " ";

if is_set(Issue) then table.insert(s, cfg.messages["episode"] .. " " .. Issue); Issue = ''; end
if is_set(Season) then table.insert(s, cfg.messages["season"] .. " " .. Season); end
if is_set(SeriesNumber) then table.insert(s, cfg.messages["series"] .. " " .. SeriesNumber); end
if is_set(Network) then table.insert(n, Network); end
if is_set(Station) then table.insert(n, Station); end

Date = Date or AirDate;
Chapter = Title;
ChapterLink = TitleLink;
TransChapter = TransTitle;
Title = Series;
TitleLink = SeriesLink;
TransTitle = '';

Series = table.concat(s, Sep);
ID = table.concat(n, Sep);
end
-- end of {{cite episode}} stuff]]

-- legacy: promote concatenation of |day=, |month=, and |year= to Date if Date not set; or, promote PublicationDate to Date if neither Date nor Year are set.
if not is_set(Date) then
Date = Year; -- promote Year to Date
Year = nil; -- make nil so Year as empty string isn't used for CITEREF
if is_set(Date) then
local Month = A['Month'];
if is_set(Month) then
Date = Month .. " de " .. Date; --Month .. " " .. Date;
local Day = A['Day']
if is_set(Day) then Date = Day .. " de " .. Date end --if is_set(Day) then Date = Day .. " " .. Date end
end
elseif is_set(PublicationDate) then -- use PublicationDate when |date= and |year= are not set
Date = PublicationDate; -- promonte PublicationDate to Date
PublicationDate = ''; -- unset, no longer needed
end
end

if PublicationDate == Date then PublicationDate = ''; end -- if PublicationDate is same as Date, don't display in rendered citation

--[[
Go test all of the date-holding parameters for valid MOS:DATE format and make sure that dates are real dates. This must be done before we do COinS because here is where
we get the date used in the metadata.

Date validation supporting code is in Módulo:Citas/ValidaciónFechas
]]

--[[
anchor_year, COinS_date, error_message = dates({['accessdate']=AccessDate, ['airdate']=AirDate, ['archivedate']=ArchiveDate, ['date']=Date, ['doi_brokendate']=DoiBroken,
['embargo']=Embargo, ['laydate']=LayDate, ['publicationdate']=PublicationDate, ['year']=Year});
if is_set(error_message) then
table.insert( z.message_tail, { seterror( 'bad_date', {error_message}, true ) } ); -- add this error message
end
]]
-- At this point fields may be nil if they weren't specified in the template use. We can use that fact.

-- COinS metadata (see <http://ocoins.info/>) for
-- automated parsing of citation information.
local OCinSoutput = COinS{
['Periodical'] = Periodical,
['Chapter'] = Chapter,
['Title'] = Title,
['PublicationPlace'] = PublicationPlace,
['Date'] = first_set(COinS_date, Date), -- COinS_date has correctly formatted date if Date is valid; any reason to keep Date here? Should we be including invalid dates in metadata?
['Series'] = Series,
['Volume'] = Volume,
['Issue'] = Issue,
['Pages'] = get_coins_pages (first_set(Page, Pages, At)), -- pages stripped of external links
['Edition'] = Edition,
['PublisherName'] = PublisherName,
['URL'] = first_set( URL, ChapterURL ),
['Authors'] = a,
['ID_list'] = ID_list,
['RawPage'] = this_page.prefixedText,
};

if is_set(Periodical) and not is_set(Chapter) and is_set(Title) then
Chapter = Title;
ChapterLink = TitleLink;
TransChapter = TransTitle;
Title = '';
TitleLink = '';
TransTitle = '';
end

-- Now perform various field substitutions.
-- We also add leading spaces and surrounding markup and punctuation to the
-- various parts of the citation, but only when they are non-nil.
if not is_set(Authors) then
local Maximum = tonumber( A['DisplayAuthors'] );

-- Preserve old-style implicit et al.
if not is_set(Maximum) and #a == 9 then
Maximum = 8;
table.insert( z.message_tail, { seterror('implict_etal_author', {}, true ) } );
elseif not is_set(Maximum) then
Maximum = #a + 1;
end

local control = {
sep = A["AuthorSeparator"] .. " ",
namesep = (first_set(A["AuthorNameSeparator"], A["NameSeparator"]) or "") .. " ",
format = A["AuthorFormat"],
maximum = Maximum,
lastauthoramp = LastAuthorAmp
};

-- If the coauthor field is also used, prevent ampersand and et al. formatting.
if is_set(Coauthors) then
control.lastauthoramp = nil;
control.maximum = #a + 1;
end

Authors = listpeople(control, a)
end

if not is_set(Authors) and is_set(Coauthors) then -- coauthors aren't displayed if one of authors=, authorn=, or lastn= isn't specified
table.insert( z.message_tail, { seterror('coauthors_missing_author', {}, true) } ); -- emit error message

-- Utilizo temporalmente los coautores como autores.
Authors = Coauthors
Coauthors = nil
end

local EditorCount
if not is_set(Editors) then
local Maximum = tonumber( A['DisplayEditors'] );
-- Preserve old-style implicit et al.
if not is_set(Maximum) and #e == 4 then
Maximum = 3;
table.insert( z.message_tail, { seterror('implict_etal_editor', {}, true) } );
elseif not is_set(Maximum) then
Maximum = #e + 1;
end

local control = {
sep = A["EditorSeparator"] .. " ",
namesep = (first_set(A["EditorNameSeparator"], A["NameSeparator"]) or "") .. " ",
format = A['EditorFormat'],
maximum = Maximum,
lastauthoramp = LastAuthorAmp
};

Editors, EditorCount = listpeople(control, e);
else
EditorCount = 1;
end

local Cartography = "";
local Scale = "";
if config.ClaseCita == "map" then
if not is_set( Authors ) and is_set( PublisherName ) then
Authors = PublisherName;
PublisherName = "";
end
Cartography = A['Cartography'];
if is_set( Cartography ) then
Cartography = sepc .. " " .. wrap( 'cartography', Cartography, use_lowercase );
end
Scale = A['Scale'];
if is_set( Scale ) then
Scale = sepc .. " " .. Scale;
end
end

if not is_set(URL) and
not is_set(ChapterURL) and
not is_set(ArchiveURL) and
not is_set(ConferenceURL) and
not is_set(TranscriptURL) then

sinURL = true

-- Test if cite web or cite podcast |url= is missing or empty
if inArray(config.ClaseCita, {"web","podcast"}) then
table.insert( z.message_tail, { seterror( 'cite_web_url', {}, true ) } );
end

-- Test if format is given without giving a URL
if is_set(Format) then
Format = Format .. seterror( 'format_missing_url' );
end
end

-- Test if citation has no title
if not is_set(Chapter) and
not is_set(Title) and
not is_set(Periodical) and
not is_set(Conference) and
not is_set(TransTitle) and
not is_set(TransChapter) and
not is_set(Passage) then
table.insert( z.message_tail, { seterror( 'citation_missing_title', {}, true ) } );
end

Format = is_set(Format) and " " .. wrap( 'format', Format ) or ""; --is_set(Format) and " (" .. Format .. ")" or "";

local OriginalURL = URL
DeadURL = DeadURL:lower();
if is_set( ArchiveURL ) then
if ( DeadURL ~= "no" ) then
URL = ArchiveURL
URLorigin = A:ORIGIN('ArchiveURL')
end
end

-- Format chapter / article title
if is_set(Chapter) and is_set(ChapterLink) then
Chapter = "[[" .. ChapterLink .. "|" .. Chapter .. "]]";
end
if is_set(Periodical) and is_set(Title) then
Chapter = wrap( 'italic-title', Chapter );
TransChapter = wrap( 'trans-italic-title', TransChapter );
else
Chapter = kern_quotes (Chapter); -- if necessary, separate chapter title's leading and trailing quote marks from Module provided quote marks
Chapter = wrap( 'quoted-title', Chapter );
TransChapter = wrap( 'trans-quoted-title', TransChapter );
end

local TransError = ""
if is_set(TransChapter) then
if not is_set(Chapter) then
TransError = " " .. seterror( 'trans_missing_chapter' );
else
TransChapter = " " .. TransChapter;
end
end

Chapter = Chapter .. TransChapter;

if is_set(Chapter) then
if not is_set(ChapterLink) then
if is_set(ChapterURL) then
Chapter = externallink( ChapterURL, Chapter ) .. TransError;
if not is_set(URL) then
Chapter = Chapter .. Format;
Format = "";
end
elseif is_set(URL) then
Chapter = externallink( URL, Chapter ) .. TransError .. Format;
URL = "";
Format = "";
else
Chapter = Chapter .. TransError;
end
elseif is_set(ChapterURL) then
Chapter = Chapter .. " " .. externallink( ChapterURL, nil, ChapterURLorigin ) ..
TransError;
else
Chapter = Chapter .. TransError;
end
Chapter = Chapter .. sepc .. " " -- with end-space
elseif is_set(ChapterURL) then
Chapter = " " .. externallink( ChapterURL, nil, ChapterURLorigin ) .. sepc .. " ";
end

-- Format main title.
if is_set(TitleLink) and is_set(Title) then
Title = "[[" .. TitleLink .. "|" .. Title .. "]]"
end

if is_set(Traductor) and is_set(Traductores) then
Traductor = " " .. wrap( 'traductores', Traductores) .. " " .. seterror('redundant_parameters', '<code>|traductor=</code> y <code>|traductores=</code>')
elseif is_set(Traductor) then
Traductor = " " .. wrap( 'traductor', Traductor)
elseif is_set(Traductores) then
Traductor = " " .. wrap( 'traductores', Traductores)
end

Traductores = ''

if is_set(Periodical) then
Title = kern_quotes (Title); -- if necessary, separate title's leading and trailing quote marks from Module provided quote marks
Title = wrap( 'quoted-title', Title );
TransTitle = wrap( 'trans-quoted-title', TransTitle );
-- elseif inArray(config.ClaseCita, {"web","news","pressrelease","conference","podcast"}) and
elseif inArray(config.ClaseCita, {"web","noticia","pressrelease","conference","podcast"}) and
not is_set(Chapter) then
Title = kern_quotes (Title); -- if necessary, separate title's leading and trailing quote marks from Module provided quote marks
Title = wrap( 'quoted-title', Title );
TransTitle = wrap( 'trans-quoted-title', TransTitle );
else
Title = wrap( 'italic-title', Title );
TransTitle = wrap( 'trans-italic-title', TransTitle );
end

TransError = "";
if is_set(TransTitle) then
if not is_set(Title) then
TransError = " " .. seterror( 'trans_missing_title' );
else
TransTitle = " " .. TransTitle;
end
end

Title = Title .. Traductor .. TransTitle;

if is_set(Title) then
if not is_set(TitleLink) and is_set(URL) then
Title = externallink( URL, Title, URL_origin, UrlAccess ) .. TransError .. Format
URL = "";
TieneURL = true;
Format = "";
else
Title = Title .. TransError;
end
end

if is_set(Place) then
Place = " " .. wrap( 'written', Place, use_lowercase ) .. sepc .. " ";
end

if is_set(Conference) then
if is_set(ConferenceURL) then
Conference = externallink( ConferenceURL, Conference );
end
Conference = sepc .. " " .. Conference
elseif is_set(ConferenceURL) then
Conference = sepc .. " " .. externallink( ConferenceURL, nil, ConferenceURLorigin );
end

if not is_set(Position) then
local Minutes = A['Minutes'];
if is_set(Minutes) then
Position = " " .. Minutes .. " " .. cfg.messages['minutes'];
else
local Time = A['Time'];
if is_set(Time) then
local TimeCaption = A['TimeCaption']
if not is_set(TimeCaption) then
TimeCaption = cfg.messages['event'];
if sepc ~= '.' then
TimeCaption = TimeCaption:lower();
end
end
Position = " " .. TimeCaption .. " " .. Time;
end
end
else
Position = " " .. Position;
At = '';
end

if not is_set(Page) then
if is_set(Pages) then
if is_set(Periodical) and
-- not inArray(config.ClaseCita, {"encyclopaedia","web","book","news","podcast"}) then
not inArray(config.ClaseCita, {"enciclopedia","web","libro","noticia","podcast"}) then
Pages = ": " .. Pages;
elseif tonumber(Pages) ~= nil then
Pages = sepc .." " .. PPrefix .. Pages;
else
Pages = sepc .." " .. PPPrefix .. Pages;
end
end
else
if is_set(Periodical) and
-- not inArray(config.ClaseCita, {"encyclopaedia","web","book","news","podcast"}) then
not inArray(config.ClaseCita, {"enciclopedia","web","libro","noticia","podcast"}) then
Page = ": " .. Page;
else
Page = sepc .." " .. PPrefix .. Page;
end
end

At = is_set(At) and (sepc .. " " .. At) or "";
Passage = is_set(Passage) and (sepc .. " " .. Passage) or "";
Position = is_set(Position) and (sepc .. " " .. Position) or "";
if config.ClaseCita == 'map' then
local Section = A['Section'];
local Inset = A['Inset'];
if first_set( Pages, Page, At ) ~= nil or sepc ~= '.' then
if is_set( Section ) then
Section = ", " .. wrap( 'section', Section, true );
end
if is_set( Inset ) then
Inset = ", " .. wrap( 'inset', Inset, true );
end
else
if is_set( Section ) then
Section = sepc .. " " .. wrap( 'section', Section, use_lowercase );
if is_set( Inset ) then
Inset = ", " .. wrap( 'inset', Inset, true );
end
elseif is_set( Inset ) then
Inset = sepc .. " " .. wrap( 'inset', Inset, use_lowercase );
end
end
At = At .. Section .. Inset;
end

--[[Look in the list of iso639-1 language codes to see if the value provided in the language parameter matches one of them. If a match is found,
use that value; if not, then use the value that was provided with the language parameter.

Categories are assigned in a manner similar to the {{xx icon}} templates - categorizes only mainspace citations and only when the language code is not 'en' (English).
]]

if is_set (Language) then
-- Poner en minúsculas el primer caracter del idioma si está en mayúsculas
Language = Language:gsub("^%u", string.lower)

if Language == 'español' or Language == 'castellano' or Language == 'es' or Language:match('^es%-.*') then
Language=""; -- No mostrar el idioma español
else
local name = mw.language.fetchLanguageName( Language:lower(), "es" ); -- experiment: this seems to return correct ISO 639-1 language names

if is_set (name) then
Language=" " .. wrap( 'language', name );
else
Language=" " .. wrap( 'language', Language ); -- no match, use parameter's value
end
end

else
Language=""; -- Asegurarnos de que el idioma no es nulo.
end

-- handle type parameter for those CS1 citations that have default values

-- if inArray(config.ClaseCita, {"AV media notes", "DVD notes", "podcast", "pressrelease", "techreport", "thesis"}) then
if inArray(config.ClaseCita, {"notas audiovisual", "notas de DVD", "podcast", "pressrelease", "techreport", "tesis"}) then
TitleType = set_titletype (config.ClaseCita, TitleType);
if is_set(Degree) and "Tesis" == TitleType then -- special case for cite thesis
TitleType = "Tesis de " .. Degree;
end
end

if is_set(TitleType) then -- if type parameter is specified
TitleType = " (" .. TitleType .. ")"; -- display it in parentheses
end

TitleNote = is_set(TitleNote) and (sepc .. " " .. TitleNote) or "";

if is_set(Edition) then
if is_set(SinEd) then -- No existe el parámetro en el módulo de la wikipedia inglesa.
Edition = " " .. wrap( 'sin edición', Edition ) -- No existe el parámetro en el módulo de la wikipedia inglesa.
else
Edition = " " .. wrap( 'edition', Edition )
end
else
Edition = ""
end
Issue = is_set(Issue) and (" (" .. Issue .. ")") or "";
Series = is_set(Series) and (sepc .. " " .. Series) or "";
OrigYear = is_set(OrigYear) and (" [" .. OrigYear .. "]") or ""; -- zero-width space, para no generar enlaces
Agency = is_set(Agency) and (sepc .. " " .. Agency) or "";

if is_set(Volume) then
if Volume:match ('^%d+$') or Volume:match ('^[MDCLXVI]+$') -- negrita solamente si el capítulo está reflejado como cifra decimal o números romanos
then Volume = " " .. dashtohyphen(Volume) .. "";
else Volume = sepc .." " .. Volume;
end
end

--[[ This code commented out while discussion continues until after week of 2014-03-23 live module update;
if is_set(Volume) then
if ( mw.ustring.len(Volume) > 4 )
then Volume = sepc .. " " .. Volume;
else
Volume = " " .. hyphentodash(Volume) .. "";
if is_set(Series) then Volume = sepc .. Volume;
end
end
end
]]
------------------------------------ totally unrelated data
--[[ Loosely mimic {{subscription required}} template; Via parameter identifies a delivery source that is not the publisher; these sources often, but not always, exist
behind a registration or paywall. So here, we've chosen to decouple via from subscription (via has never been part of the registration required template).

Subscription implies paywall; Registration does not. If both are used in a citation, the subscription required link note is displayed. There are no error messages for this condition.
]]
if is_set(Via) then
Via = " " .. wrap( 'via', Via );
end

if UrlAccess == 'registration' then
RegistrationRequired = true
end
if is_set(SubscriptionRequired) then
SubscriptionRequired = sepc .. " " .. cfg.messages['subscription']; --here when 'via' parameter not used but 'subscription' is
elseif is_set(RegistrationRequired) then
SubscriptionRequired = sepc .. " " .. cfg.messages['registration']; --here when 'via' and 'subscription' parameters not used but 'registration' is
end

-- if is_set(AccessDate) then
if is_set(AccessDate) or is_set(AnyoAcceso) then
-- Test if accessdate is given without giving a URL
if sinURL then
table.insert( z.message_tail, { seterror( 'accessdate_missing_url', {}, true ) } );
AccessDate = '';
else
if is_set(AccessDate) then
if is_set(MesAcceso) and is_set(AnyoAcceso) then
AccessDate = AccessDate .. seterror('redundant_parameters', '<code>|fechaacceso=</code>, <code>|añoacceso=</code> y <code>|mesacceso=</code>')
elseif is_set(MesAcceso) then
AccessDate = AccessDate .. seterror('redundant_parameters', '<code>|fechaacceso=</code> y <code>|mesacceso=</code>')
elseif is_set(AnyoAcceso) then
if string.find(AccessDate, '%sde%s') then
AccessDate = AccessDate .. ' de ' .. AnyoAcceso
else
AccessDate = AccessDate .. seterror('redundant_parameters', '<code>|fechaacceso=</code> y <code>|Añoacceso=</code>');
end
end
elseif is_set(MesAcceso) then
AccessDate = MesAcceso .. ' de ' .. AnyoAcceso
else
AccessDate = AnyoAcceso
end
local retrv_text = " " .. cfg.messages['retrieved']
if (sepc ~= ".") then retrv_text = retrv_text:lower() end
AccessDate = '' .. sepc
.. substitute( retrv_text, {format_date(AccessDate)} ) .. ''
end
elseif is_set(MesAcceso) then
end

if is_set(ID) then ID = sepc .." ".. ID; end
if "tesis" == config.ClaseCita and is_set(Docket) then
ID = sepc .." Docket ".. Docket .. ID;
end

Lista_Identificadores_Formateados = buildidlist( ID_list, {DoiBroken = DoiBroken, IgnoreISBN = IgnoreISBN, Embargo=Embargo, ISBNCorrecto = ISBNCorrecto, ISBNSugerido = ISBNSugerido} );

if is_set(URL) then
URL = " " .. externallink( URL, nil, URLorigin, UrlAccess );
end

-- Set postscript default.
if not is_set (PostScript) then -- if |postscript= has not been set (Postscript is nil which is the default for {{citation}}) and
if (config.ClaseCita ~= "citation") then -- this template is not a citation template
PostScript = '.'; -- must be a cite xxx template so set postscript to default (period)
end
else
if PostScript:lower() == 'none' then -- if |postscript=none then
PostScript = ''; -- no postscript
end
end

if is_set(Quote) or is_set(TransQuote) then
-- Eliminar comillas de Quote
if (Quote:sub(1,1) == '"' and Quote:sub(-1,-1) == '"') or
(Quote:sub(1,1) == '«' and Quote:sub(-1,-1) == '»') then
Quote = Quote:sub(2,-2);
end

-- No añadir el punto final a la cita si el campo Quote ya incluye un punto
if Quote:sub(-1,-1) == '.' or Quote:sub(-1,-1) == '?' or
Quote:sub(-1,-1) == '!' then
PostScript = ""
end

-- Eliminar comillas de TransQuote
if (TransQuote:sub(1, 1) == '"' and TransQuote:sub(-1, -1) == '"') or
(Quote:sub(1,1) == '«' and Quote:sub(-1,-1) == '»') then
TransQuote = TransQuote:sub(2, -2);
end

-- No añadir el punto final a la cita si el campo TransQuote ya incluye un punto
if TransQuote:sub(-1,-1) == '.' or TransQuote:sub(-1,-1) == '?' or
TransQuote:sub(-1,-1) == '!' then
PostScript = ""
end
if TransQuote and TransQuote ~= '' then
Quote = Quote .. " " .. wrap( 'trans-quoted-title', TransQuote );
TransQuote = wrap( 'trans-quoted-title', TransQuote );
end
Quote = sepc .." " .. wrap( 'quoted-text', Quote );
end

local Archived
if is_set(ArchiveURL) then
if not is_set(ArchiveDate) then
ArchiveDate = seterror('archive_missing_date');
else
ArchiveDate = format_date(ArchiveDate)
end
if "no" == DeadURL then
local arch_text = cfg.messages['archived'];
if sepc ~= "." then arch_text = arch_text:lower() end
Archived = sepc .. " " .. substitute( cfg.messages['archived-not-dead'],
{ externallink( ArchiveURL, arch_text ), ArchiveDate } );
if not is_set(OriginalURL) then
Archived = Archived .. " " .. seterror('archive_missing_url');
end
elseif is_set(OriginalURL) then
local arch_text = cfg.messages['archived-dead'];
if sepc ~= "." then arch_text = arch_text:lower() end
Archived = sepc .. " " .. substitute( arch_text,
{ externallink( OriginalURL, cfg.messages['original'] ), ArchiveDate } );
else
local arch_text = cfg.messages['archived-missing'];
if sepc ~= "." then arch_text = arch_text:lower() end
Archived = sepc .. " " .. substitute( arch_text,
{ seterror('archive_missing_url'), ArchiveDate } );
end
else
Archived = ""
end

local Lay
if is_set(LayURL) then
if is_set(LayDate) then LayDate = " (" .. format_date(LayDate) .. ")" end
if is_set(LaySource) then
LaySource = " – ''" .. safeforitalics(LaySource) .. "''";
else
LaySource = "";
end
if sepc == '.' then
Lay = sepc .. " " .. externallink( LayURL, cfg.messages['lay summary'] ) .. LaySource .. LayDate
else
Lay = sepc .. " " .. externallink( LayURL, cfg.messages['lay summary']:lower() ) .. LaySource .. LayDate
end
else
Lay = "";
end

if is_set(Transcript) then
if is_set(TranscriptURL) then Transcript = externallink( TranscriptURL, Transcript ); end
elseif is_set(TranscriptURL) then
Transcript = externallink( TranscriptURL, nil, TranscriptURLorigin );
end

local Publisher;
if is_set(Periodical) and
-- not inArray(config.ClaseCita, {"encyclopaedia","web","pressrelease","podcast"}) then
not inArray(config.ClaseCita, {"enciclopedia","web","pressrelease","podcast"}) then
if is_set(PublisherName) then
if is_set(PublicationPlace) then
Publisher = PublicationPlace .. ": " .. PublisherName;
else
Publisher = PublisherName;
end
elseif is_set(PublicationPlace) then
Publisher= PublicationPlace;
else
Publisher = "";
end
if is_set(PublicationDate) then
if is_set(Publisher) then
Publisher = Publisher .. ", " .. wrap( 'published', PublicationDate );
else
Publisher = PublicationDate;
end
end
if is_set(Publisher) then
Publisher = " (" .. Publisher .. ")";
end
else
if is_set(PublicationDate) then
PublicationDate = " (" .. wrap( 'published', format_date(PublicationDate) ) .. ")";
end
if is_set(PublisherName) then
if is_set(PublicationPlace) then
Publisher = sepc .. " " .. PublicationPlace .. ": " .. PublisherName .. PublicationDate;
else
Publisher = sepc .. " " .. PublisherName .. PublicationDate;
end
elseif is_set(PublicationPlace) then
Publisher= sepc .. " " .. PublicationPlace .. PublicationDate;
else
Publisher = PublicationDate;
end
end

-- Several of the above rely upon detecting this as nil, so do it last.
if is_set(Periodical) then
if is_set(Title) or is_set(TitleNote) then
Periodical = sepc .. " " .. wrap( 'italic-title', Periodical )
else
Periodical = wrap( 'italic-title', Periodical )
end
end

--[[
Handle the oddity that is cite speech. This code overrides whatever may be the value assigned to TitleNote (through |department=) and forces it to be " (Speech)" so that
the annotation directly follows the |title= parameter value in the citation rather than the |event= parameter value (if provided).
]]
if "speech" == config.ClaseCita then -- cite speech only
TitleNote = " (Speech)"; -- annotate the citation
if is_set (Periodical) then -- if Periodical, perhaps because of an included |website= or |journal= parameter
if is_set (Conference) then -- and if |event= is set
Conference = Conference .. sepc .. " "; -- then add appropriate punctuation to the end of the Conference variable before rendering
end
end
end

-- Piece all bits together at last. Here, all should be non-nil.
-- We build things this way because it is more efficient in LUA
-- not to keep reassigning to the same string variable over and over.

local tcommon
-- if inArray(config.ClaseCita, {"journal","citation"}) and is_set(Periodical) then
if inArray(config.ClaseCita, {"publicación","citation"}) and is_set(Periodical) then
if is_set(Others) then Others = Others .. sepc .. " " end
tcommon = safejoin( {Others, Title, TitleNote, Conference, Periodical, Format, TitleType, Scale, Series,
Language, Cartography, Edition, Publisher, Agency, Volume, Issue}, sepc );
else
tcommon = safejoin( {Title, TitleNote, Conference, Periodical, Format, TitleType, Scale, Series, Language,
Volume, Issue, Others, Cartography, Edition, Publisher, Agency}, sepc );
end

if #Lista_Identificadores_Formateados > 0 then
Lista_Identificadores_Formateados = safejoin( { sepc .. " ", table.concat( Lista_Identificadores_Formateados, sepc .. " " ), ID }, sepc );
else
Lista_Identificadores_Formateados = ID;
end

local idcommon = safejoin( { Lista_Identificadores_Formateados, URL, Archived, AccessDate, Via, SubscriptionRequired, Lay, Quote }, sepc );
local text;
local pgtext = Position .. Page .. Pages .. At .. Passage;

if is_set(Authors) then
if is_set(Coauthors) then
Authors = Authors .. A['AuthorSeparator'] .. " " .. Coauthors
end
if is_set(Date) then
Date = " ("..format_date(Date)..")" .. OrigYear .. sepc .. " "
elseif string.sub(Authors,-1,-1) == sepc then
Authors = Authors .. " "
else
Authors = Authors .. sepc .. " "
end
if is_set(Editors) then
local in_text = " ";
local post_text = "";
if is_set(Chapter) then
in_text = in_text .. cfg.messages['in'] .. " "
end
if EditorCount <= 1 then
post_text = ", " .. cfg.messages['editor'];
else
post_text = ", " .. cfg.messages['editors'];
end
if (sepc ~= '.') then in_text = in_text:lower() end
Editors = in_text .. Editors .. post_text;
if (string.sub(Editors,-1,-1) == sepc)
then Editors = Editors .. " "
else Editors = Editors .. sepc .. " "
end
end
text = safejoin( {Authors, Date, Chapter, Place, Editors, tcommon }, sepc );
text = safejoin( {text, pgtext, idcommon}, sepc );
elseif is_set(Editors) then
if is_set(Date) then
if EditorCount <= 1 then
Editors = Editors .. ", " .. cfg.messages['editor'];
else
Editors = Editors .. ", " .. cfg.messages['editors'];
end
Date = " (" .. format_date(Date) ..")" .. OrigYear .. sepc .. " "
else
if EditorCount <= 1 then
Editors = Editors .. " (" .. cfg.messages['editor'] .. ")" .. sepc .. " "
else
Editors = Editors .. " (" .. cfg.messages['editors'] .. ")" .. sepc .. " "
end
end
text = safejoin( {Editors, Date, Chapter, Place, tcommon}, sepc );
text = safejoin( {text, pgtext, idcommon}, sepc );
else
if is_set(Date) then
if ( string.sub(tcommon,-1,-1) ~= sepc )
then Date = sepc .." " .. format_date(Date) .. OrigYear
else Date = " " .. format_date(Date) .. OrigYear
end
end
-- if config.ClaseCita=="journal" and is_set(Periodical) then
if config.ClaseCita=="publicación" and is_set(Periodical) then
text = safejoin( {Chapter, Place, tcommon}, sepc );
text = safejoin( {text, pgtext, Date, idcommon}, sepc );
else
text = safejoin( {Chapter, Place, tcommon, Date}, sepc );
text = safejoin( {text, pgtext, idcommon}, sepc );
end
end

if is_set(PostScript) and PostScript ~= sepc then
text = safejoin( {text, sepc}, sepc ); --Deals with italics, spaces, etc.
text = text:sub(1,-sepc:len()-1);
-- text = text:sub(1,-2); --Remove final separator (assumes that sepc is only one character)
end

text = safejoin( {text, PostScript}, sepc );

-- Now enclose the whole thing in a element
local options = {};

if is_set(config.ClaseCita) and config.ClaseCita ~= "citation" then
options.class = "citation " .. config.ClaseCita;
else
options.class = "citation";
end

if is_set(Ref) and Ref:lower() ~= "none" then
local id = Ref
if ( "harv" == Ref ) then
local names = {} --table of last names & year
if #a > 0 then
for i,v in ipairs(a) do
names[i] = v.last
if i == 4 then break end
end
elseif #e > 0 then
for i,v in ipairs(e) do
names[i] = v.last
if i == 4 then break end
end
end
-- names[ #names + 1 ] = first_set(Year, anchor_year); -- Year first for legacy citations
-- names[ #names + 1 ] = first_set(Year, ''); -- Year first for legacy citations
names[ #names + 1 ] = first_set(wYear, wfecha, ''); -- Year first for legacy citations
id = anchorid(names)
end
options.id = id;
end

if string.len(text:gsub("<span[^>/]*>.-", ""):gsub("%b<>","")) <= 2 then
z.error_categories = {};
text = seterror('empty_citation');
z.message_tail = {};
end

if is_set(options.id) then
text = '' .. text .. "";
else
text = '' .. text .. "";
end

local empty_span = ' ';

-- Note: Using display: none on then COinS span breaks some clients.
local OCinS = '' .. empty_span .. '';
text = text .. OCinS;

if #z.message_tail ~= 0 then
text = text .. " ";
for i,v in ipairs( z.message_tail ) do
if is_set(v[1]) then
if i == #z.message_tail then
text = text .. errorcomment( v[1], v[2] );
else
text = text .. errorcomment( v[1] .. "; ", v[2] );
end
end
end
end

no_tracking_cats = no_tracking_cats:lower();
if inArray(no_tracking_cats, {"", "no", "false", "n"}) then
for _, v in ipairs( z.error_categories ) do
text = text .. '[[Category:' .. v ..']]';
end
end

-- [[:mw:Help:Reference Previews]]
-- [[:mw:WMDE Technical Wishes/ReferencePreviews]]
local citeClassMap = {
["libro"] = "book",
["publicación"] = "journal",
["noticia"] = "news",
["web"] = "web",
["nota"] = "note",
-- NOTE: there is no way to detect '<ref group="note">'' outside of the cite
-- -- [[:mw:WMDE_Technical_Wishes/ReferencePreviews#What_do_I_do_when_the_footnote_in_the_popup_isn't_a_reference_but_a_note?]]
["#default"] = "citation"
-- -- "conferencia", "enciclopedia", "entrevista", "episode", "map",
-- -- "notas de DVD", "podcast", "pressrelease", "speech", "techreport", "tesis", ...
}
if citeClassMap[ config.ClaseCita ] then -- nevermind, ignore detault
text = '<cite class="' .. (citeClassMap[ config.ClaseCita ] or config.ClaseCita[ "#default" ]) .. '"></cite>' .. text;
-- not wrapped because of default italics style for cite
end

return text
end

-- This is used by templates such as {{cite book}} to create the actual citation text.
function z.cita(frame)
local pframe = frame:getParent()

if nil ~= string.find( frame:getTitle(), 'sandbox', 1, true ) then -- did the {{#invoke:}} use sandbox version?
cfg = mw.loadData('Módulo:Citas/Configuración/pruebas' ); -- load sandbox versions of Configuration and Whitelist and ...
whitelist = mw.loadData('Módulo:Citas/Whitelist/pruebas' );
dates = require ('Módulo:Citas/ValidaciónFechas/pruebas').dates -- ... sandbox version of date validation code
else -- otherwise
cfg = mw.loadData('Módulo:Citas/Configuración' ); -- load live versions of Configuration and Whitelist and ...
whitelist = mw.loadData('Módulo:Citas/Whitelist' );
dates = require ('Módulo:Citas/ValidaciónFechas').dates -- ... live version of date validation code
end

local args = {};

local suggestions = {};
local error_text, error_state;

local config = {};
for k, v in pairs( frame.args ) do
config[k] = v;
args[k] = v;
end

for k, v in pairs( pframe.args ) do
if v ~= '' then
if not validate( k ) then
error_text = "";
if type( k ) ~= 'string' then
-- Exclude empty numbered parameters
if v:match("%S+") ~= nil then
error_text, error_state = seterror( 'text_ignored', {v}, true );
end
elseif validate( k:lower() ) then
error_text, error_state = seterror( 'parameter_ignored_suggest', {k, k:lower()}, true );
else

if #suggestions == 0 then
suggestions = mw.loadData( 'Módulo:Citas/Sugerencias' );
end
if suggestions[ k:lower() ] ~= nil then
error_text, error_state = seterror( 'parameter_ignored_suggest', {k, suggestions[ k:lower() ]}, true );
elseif cfg.parametros_a_implementar[k:lower()] then
error_text, error_state = seterror( 'parametro_por_implementar', {k}, true );
else
error_text, error_state = seterror( 'parameter_ignored', {k}, true );
end
end
if error_text ~= '' then
table.insert( z.message_tail, {error_text, error_state} );
end
end
args[k] = v;
elseif args[k] ~= nil or (k == 'postscript') then
args[k] = v;
end
end

return citation0( config, args)
end

return z

Módulo:Arguments

2026-02-06T19:13:50Z

GeminiFix:

-- This module provides easy processing of arguments passed to Scribunto from
-- #invoke. It is intended for use by other Lua modules, and should not be
-- called from #invoke directly.

local libraryUtil = require('libraryUtil')
local checkType = libraryUtil.checkType

local arguments = {}

-- Generate four different tidyVal functions, so that we don't have to check the
-- options every time we call it.

local function tidyValDefault(key, val)
if type(val) == 'string' then
val = val:match('^%s*(.-)%s*$')
if val == '' then
return nil
else
return val
end
else
return val
end
end

local function tidyValTrimOnly(key, val)
if type(val) == 'string' then
return val:match('^%s*(.-)%s*$')
else
return val
end
end

local function tidyValRemoveBlanksOnly(key, val)
if type(val) == 'string' then
if val:find('%S') then
return val
else
return nil
end
else
return val
end
end

local function tidyValNoChange(key, val)
return val
end

local function matchesTitle(given, title)
local tp = type( given )
return (tp == 'string' or tp == 'number') and mw.title.new( given ).prefixedText == title
end

local translate_mt = { __index = function(t, k) return k end }

function arguments.getArgs(frame, options)
checkType('getArgs', 1, frame, 'table', true)
checkType('getArgs', 2, options, 'table', true)
frame = frame or {}
options = options or {}

--[[
-- Set up argument translation.
--]]
options.translate = options.translate or {}
if getmetatable(options.translate) == nil then
setmetatable(options.translate, translate_mt)
end
if options.backtranslate == nil then
options.backtranslate = {}
for k,v in pairs(options.translate) do
options.backtranslate[v] = k
end
end
if options.backtranslate and getmetatable(options.backtranslate) == nil then
setmetatable(options.backtranslate, {
__index = function(t, k)
if options.translate[k] ~= k then
return nil
else
return k
end
end
})
end

--[[
-- Get the argument tables. If we were passed a valid frame object, get the
-- frame arguments (fargs) and the parent frame arguments (pargs), depending
-- on the options set and on the parent frame's availability. If we weren't
-- passed a valid frame object, we are being called from another Lua module
-- or from the debug console, so assume that we were passed a table of args
-- directly, and assign it to a new variable (luaArgs).
--]]
local fargs, pargs, luaArgs
if type(frame.args) == 'table' and type(frame.getParent) == 'function' then
if options.wrappers then
--[[
-- The wrappers option makes Module:Arguments look up arguments in
-- either the frame argument table or the parent argument table, but
-- not both. This means that users can use either the #invoke syntax
-- or a wrapper template without the loss of performance associated
-- with looking arguments up in both the frame and the parent frame.
-- Module:Arguments will look up arguments in the parent frame
-- if it finds the parent frame's title in options.wrapper;
-- otherwise it will look up arguments in the frame object passed
-- to getArgs.
--]]
local parent = frame:getParent()
if not parent then
fargs = frame.args
else
local title = parent:getTitle():gsub('/sandbox$', '')
local found = false
if matchesTitle(options.wrappers, title) then
found = true
elseif type(options.wrappers) == 'table' then
for _,v in pairs(options.wrappers) do
if matchesTitle(v, title) then
found = true
break
end
end
end

-- We test for false specifically here so that nil (the default) acts like true.
if found or options.frameOnly == false then
pargs = parent.args
end
if not found or options.parentOnly == false then
fargs = frame.args
end
end
else
-- options.wrapper isn't set, so check the other options.
if not options.parentOnly then
fargs = frame.args
end
if not options.frameOnly then
local parent = frame:getParent()
pargs = parent and parent.args or nil
end
end
if options.parentFirst then
fargs, pargs = pargs, fargs
end
else
luaArgs = frame
end

-- Set the order of precedence of the argument tables. If the variables are
-- nil, nothing will be added to the table, which is how we avoid clashes
-- between the frame/parent args and the Lua args.
local argTables = {fargs}
argTables[#argTables + 1] = pargs
argTables[#argTables + 1] = luaArgs

--[[
-- Generate the tidyVal function. If it has been specified by the user, we
-- use that; if not, we choose one of four functions depending on the
-- options chosen. This is so that we don't have to call the options table
-- every time the function is called.
--]]
local tidyVal = options.valueFunc
if tidyVal then
if type(tidyVal) ~= 'function' then
error(
"bad value assigned to option 'valueFunc'"
.. '(function expected, got '
.. type(tidyVal)
.. ')',
2
)
end
elseif options.trim ~= false then
if options.removeBlanks ~= false then
tidyVal = tidyValDefault
else
tidyVal = tidyValTrimOnly
end
else
if options.removeBlanks ~= false then
tidyVal = tidyValRemoveBlanksOnly
else
tidyVal = tidyValNoChange
end
end

--[[
-- Set up the args, metaArgs and nilArgs tables. args will be the one
-- accessed from functions, and metaArgs will hold the actual arguments. Nil
-- arguments are memoized in nilArgs, and the metatable connects all of them
-- together.
--]]
local args, metaArgs, nilArgs, metatable = {}, {}, {}, {}
setmetatable(args, metatable)

local function mergeArgs(tables)
--[[
-- Accepts multiple tables as input and merges their keys and values
-- into one table. If a value is already present it is not overwritten;
-- tables listed earlier have precedence. We are also memoizing nil
-- values, which can be overwritten if they are 's' (soft).
--]]
for _, t in ipairs(tables) do
for key, val in pairs(t) do
if metaArgs[key] == nil and nilArgs[key] ~= 'h' then
local tidiedVal = tidyVal(key, val)
if tidiedVal == nil then
nilArgs[key] = 's'
else
metaArgs[key] = tidiedVal
end
end
end
end
end

--[[
-- Define metatable behaviour. Arguments are memoized in the metaArgs table,
-- and are only fetched from the argument tables once. Fetching arguments
-- from the argument tables is the most resource-intensive step in this
-- module, so we try and avoid it where possible. For this reason, nil
-- arguments are also memoized, in the nilArgs table. Also, we keep a record
-- in the metatable of when pairs and ipairs have been called, so we do not
-- run pairs and ipairs on the argument tables more than once. We also do
-- not run ipairs on fargs and pargs if pairs has already been run, as all
-- the arguments will already have been copied over.
--]]

metatable.__index = function (t, key)
--[[
-- Fetches an argument when the args table is indexed. First we check
-- to see if the value is memoized, and if not we try and fetch it from
-- the argument tables. When we check memoization, we need to check
-- metaArgs before nilArgs, as both can be non-nil at the same time.
-- If the argument is not present in metaArgs, we also check whether
-- pairs has been run yet. If pairs has already been run, we return nil.
-- This is because all the arguments will have already been copied into
-- metaArgs by the mergeArgs function, meaning that any other arguments
-- must be nil.
--]]
if type(key) == 'string' then
key = options.translate[key]
end
local val = metaArgs[key]
if val ~= nil then
return val
elseif metatable.donePairs or nilArgs[key] then
return nil
end
for _, argTable in ipairs(argTables) do
local argTableVal = tidyVal(key, argTable[key])
if argTableVal ~= nil then
metaArgs[key] = argTableVal
return argTableVal
end
end
nilArgs[key] = 'h'
return nil
end

metatable.__newindex = function (t, key, val)
-- This function is called when a module tries to add a new value to the
-- args table, or tries to change an existing value.
if type(key) == 'string' then
key = options.translate[key]
end
if options.readOnly then
error(
'could not write to argument table key "'
.. tostring(key)
.. '"; the table is read-only',
2
)
elseif options.noOverwrite and args[key] ~= nil then
error(
'could not write to argument table key "'
.. tostring(key)
.. '"; overwriting existing arguments is not permitted',
2
)
elseif val == nil then
--[[
-- If the argument is to be overwritten with nil, we need to erase
-- the value in metaArgs, so that __index, __pairs and __ipairs do
-- not use a previous existing value, if present; and we also need
-- to memoize the nil in nilArgs, so that the value isn't looked
-- up in the argument tables if it is accessed again.
--]]
metaArgs[key] = nil
nilArgs[key] = 'h'
else
metaArgs[key] = val
end
end

local function translatenext(invariant)
local k, v = next(invariant.t, invariant.k)
invariant.k = k
if k == nil then
return nil
elseif type(k) ~= 'string' or not options.backtranslate then
return k, v
else
local backtranslate = options.backtranslate[k]
if backtranslate == nil then
-- Skip this one. This is a tail call, so this won't cause stack overflow
return translatenext(invariant)
else
return backtranslate, v
end
end
end

metatable.__pairs = function ()
-- Called when pairs is run on the args table.
if not metatable.donePairs then
mergeArgs(argTables)
metatable.donePairs = true
end
return translatenext, { t = metaArgs }
end

local function inext(t, i)
-- This uses our __index metamethod
local v = t[i + 1]
if v ~= nil then
return i + 1, v
end
end

metatable.__ipairs = function (t)
-- Called when ipairs is run on the args table.
return inext, t, 0
end

return args
end

return arguments

Módulo:Citas

2026-02-06T19:07:47Z

GeminiFix: Fixing missing function cita in dummy module

return { citation = function(frame) return "(Cita)" end, cita = function(frame) return "(Cita)" end }

Tenerife

2026-02-06T05:08:29Z

GeminiFix:

{{Ficha_Isla |
|bandera = [[Imagen:Flag of Tenerife.jpg|25px]]
|imagen = [[Imagen:Nasa world wind - teneriffa.jpg|230px|Fotografía de satélite de Tenerife]]
|mapa = [[Imagen:TF Canarias.jpg|230px|Mapa de situación de la isla de Tenerife]]
|archipiélago = Islas Canarias
|escudo = [[Imagen:HeráldicaTenerife.jpg|40px]]
|superficie= 2.034,38 km2 
|océano = Océano Atlántico
|coordenadas = 28° 16′ 07″ N 16° 36′ 20″ O
|altitud = 3.718 m ([[Pico del Teide]])
|capital = [[Santa Cruz de Tenerife]]
|gentilicio = Tinerfeño/a.
|población = 838.877 (censo de 2005)
|densidad = 412,4 hab./km2
|presidente = Ricardo Melchior
|partido = CC
|tipo = -
|}}

{{FB}}
'''Tenerife''' es una isla de [[Canarias]] situada en el [[Océano Atlántico]] frente a las costas africanas. Junto a [[La Palma]], [[La Gomera]] y [[El Hierro]] conforma la [[provincia de Santa Cruz de Tenerife]]. Su capital es [[Santa Cruz de Tenerife]], que además lo es también de Canarias conjuntamente con [[Las Palmas de Gran Canaria]]. Entre [[1833]] y [[1927]] Santa Cruz de Tenerife fué la capital única de Canarias, hasta que en 1927 un decreto ordenó que la capitalidad de Canarias sea compartida, que es como permanece en la actualidad.
[http://es.wikisource.org/wiki/Real_Decreto_de_30_de_noviembre_de_1833 ''Real Decreto de 30 de noviembre de 1833'']
[http://www.gobiernodecanarias.org/tuestatuto/docs/1833-12-03%20Decreto%20de%20division%20provincial.pdf ''Real Decreto de 30 de noviembre de 1833'']
Otra ciudad con gran importancia para la isla y Canarias es, [[San Cristóbal de La Laguna]] (tercera ciudad más importante del archipiélago, tras Santa Cruz de Tenerife y Las Palmas de Gran Canaria). Tenerife es un destino turístico importante en España y en el mundo.

Tenerife, con 865.070 habitantes (casi un millón de habitantes), es la isla más poblada de Canarias y de [[España]]. Es además la isla canaria que más municipios posee en su territorio, 31 en total. Tiene el Área Metropolitana más grande y extensa del Archipiélago Canario con 366,85 kilómetros cuadrados ([[Área metropolitana de Santa Cruz de Tenerife-La Laguna]]). Por lo tanto, es también el área metropolitana más grande de la [[Unión Europea]] fuera de [[Europa]] (como región periférica).

En Tenerife además se encuentra la mayor elevación de España, de las islas atlánticas y tercer volcán más grande del mundo desde su base, El [[Teide]], declarado también [[Patrimonio de la Humanidad]].
[http://www.webtenerife.com/PortalTenerife/Home/Disfruta+sin+perderte+nada/Mas+sobre+Tenerife/Naturaleza/Espacios+naturales/Parque+Nacional+de+El+Teide/?Lang=es Parque nacional del Teide: web oficial de Turismo de Tenerife]

== Toponimia ==
Son diversos los nombres que las distintas culturas han atribuido a Tenerife a lo largo de la historia. Así por ejemplo, para los [[guanche]]s, la isla recibía el nombre de '''Achined, [[Achinet]]''' o '''Chenet''', aunque en función de la bibliografía que se consulte, la nómina puede adquirir diferentes variaciones ortográficas. Los [[Antigua Roma|romanos]] se referían a ella como '''[[Nivaria]]''' (del latín ''nix'', ''nivis'', ''nieve''), en clara referencia a las nieves posadas sobre el volcán conocido como el [[Teide]]. Los nombres de Achined y Nivaria todavía se utilizan en referencia a Tenerife, sobre todo en un sentido patriótico por los habitantes de la isla. En esa misma dirección apuntan algunos mapas de los siglos XIV y XV, que de manos de Bontier y Le Verrier se refieren a la isla como '''Isla del Infierno''' a razón de los procesos eruptivos de los que el volcán era protagonista. Finalmente, el propio Teide es el responsable del nombre actual de la isla, ya que fue dado por los benahoaritas (aborígenes de La Palma) según las palabras '''Tene''' (''montaña'') e '''ife''' (''blanca''). Posteriormente, la castellanización del nombre provocó que se añadiera una "r" para unir ambas palabras obteniendo como resultado Tenerife.<ref name=Abreu>{{cita libro | apellidos = Abreu Galindo | nombre = FR. J. | título = Historia de la conquista de las siete islas de Canaria | editorial = Goya | id = ISBN 978-84-400-3645-2 }}</ref><ref name=Bethencourt>{{cita libro | apellidos = Bethencourt Alfonso | nombre = Juan | título = Historia del pueblo guanche | editorial = Francisco Lemus Editor SL | año = 1997 | id = ISBN 978-84-87973-10-9 }}</ref>

==Descripción==
Su orografía es abrupta y volcánica, producto de erupciones (la más reciente fue el Chinyero en 1909). Es la isla más poblada de Canarias y de España con 838.877 habitantes [http://www.ine.es Instituto Nacional de Estadística de España], 01-01-2005 y 2.034 [[kilómetro cuadrado|km²]] de superficie.

[[Imagen:Panorama Teide BW.jpg|800px|thumb|center|Panorámica del circo de Las Cañadas del Teide.]]

===Situación y extensión===
Tenerife es la mayor de las siete islas que componen el Archipiélago Canario; está situada entre los paralelos 28 y 29 N y los meridianos 16 y 17 O, ligeramente al Norte del Trópico de Cáncer, y ocupa una posición central entre las islas de Gran Canaria, La Gomera y La Palma.

La isla se encuentra a algo más de 300 Kms. del continente africano y a unos 1.000 Kms. de la Península Ibérica

Tiene 2.034 km² de superficie y una curiosa forma triangular, alzándose en su centro el gigantesco [[Pico del Teide]], que con sus 3.718 metros de altura es el punto más elevado de toda el Estado Español.

Para referirse a sus habitantes se utiliza el gentilicio '''Tinerfeño'''. Otro gentilicio utilizado, generalmente por personas de otras islas, es el de '''chicharrero''', el cual en principio iba referido sólo a los habitantes de Santa Cruz de Tenerife, capital de la isla, y teniendo una cierta carga despectiva en su origen.

=== Origen y formación ===
[[Imagen:Formación Tenerife.jpg|thumb|180px|right|Esquema general de la formación de Tenerife.]]
Tenerife es una isla de origen volcánico, cuya formación comenzó a gestarse en el fondo oceánico hace unos 20-50 millones de años (m.a.).

Según una de las teorías más aceptadas actualmente por la comunidad científica ('''Teoría de los bloques levantados'''), el ascenso de [[magma]] procedente del manto terrestre se produce en periodos de actividad [[tectónica de placas|tectónica]] a partir de fallas o fracturas que existen en el [[placa oceánica|fondo oceánico]]. Éstas siguen los ejes estructurales de la isla, y se conformaron durante la orogenia [[Alpes|Alpina]] de la [[Era Terciaria]] por el movimiento de la [[placa Africana]]. Estas erupciones de tipo fisural submarino originan las denominadas [[lava#lava almohadillada|lavas almohadilladas o pillow-lavas]], que se producen por el rápido enfriamiento que experimenta el magma al establecer contacto con el agua, obteniendo así una forma muy característica. Estos materiales se fueron acumulando y construyendo el edificio insular bajo el mar. A medida que éste se aproximaba a la superficie, los gases, debido a la disminución de la presión circundante, se iban liberando del magma y los episodios vulcanológicos pasaban de ser tranquilos a tener un carácter marcadamente explosivo, formando materiales fragmentarios.

Tras largo tiempo de acumulación de materiales, el nacimiento de la isla se produjo a finales del [[Mioceno]] (Era Terciaria). Hace siete millones de años emergieron las zonas de [[Macizo de Teno|Teno]], [[Macizo de Anaga|Anaga]] y Macizo de Adeje, en la que se denomina ''Serie Basáltica Antigua'' o ''Serie I''. Se constituyeron de este modo tres islas cronológica y estratigráficamente distintas en los extremos oeste, este y sur de la actual Tenerife.
[http://www.puntoinfo.idecnet.com/index.php?sectionID=2&lang=1&s=1&ID=160 Información del Cabildo de Tenerife]

Hace aproximadamente 3 m.a. comienza un segundo ciclo volcánico (''Formaciones Postmiocenas'' o ''Series Recientes II, III y IV''), mucho más intenso, que incorpora elementos en la zona central de la isla, la cual también emerge y unifica en uno sólo a los tres edificios anteriormente descritos. La estructura conformada en ese momento recibe el nombre de ''Edificio pre-Cañadas'', sobre cuyos restos se erigiría más tarde el ''Edificio Cañadas I''. Este ultimó experimentó diversos colapsos y emitió una gran variedad de materiales explosivos que dieron lugar a las llamadas ''Bandas del sur'' (sur-sureste actual).
[http://www.gevic.net/info/contenidos/mostrar_contenidos.php?idcat=36&idcap=58&idcon=330 Gran Enciclopedia Virtual Interactiva de Canarias]

Posteriormente, sobre las ruinas de este complejo surgiría el ''Edificio Cañadas II'', ya por encima de los 2.500 metros, también con intensos procesos explosivos. Hace alrededor de 1 m.a. se inició la construcción de la ''Cordillera Dorsal'', con un vulcanismo de tipo fisural, a partir de los restos de los edificios ya parcialmente desmantelados de la ''Serie I''. La ''Cordillera Dorsal'' es la de mayor desarrollo altitudinal y longitudinal del Archipiélago Canario, con 1.600 metros de altura y 25 kilómetros de longitud. En este mismo espacio cronológico (hace 800.000 años) tienen lugar dos deslizamientos gravitacionales que motivaron la aparición de los valles de [[Valle de La Orotava|La Orotava]] y [[Valle de Güímar|Güímar]].

Finalmente, ya en tiempos más próximos (200.000 años), comienzan las erupciones que levantarían el ''Edificio Pico Viejo-Teide'' en el centro de la isla, sobre la ''[[Caldera de Las Cañadas]]''.

=== Orografía y paisaje ===
La abrupta orografía isleña y su variedad de climas dan como resultado un territorio de múltiples paisajes y formas, desde el [[Parque nacional del Teide|Parque Nacional del Teide]] con su amalgama de colores fruto de las sucesivas erupciones volcánicas, hasta los [[Acantilados de Los Gigantes]] con sus paredes verticales, pasando por zonas semidesérticas con plantas resistentes a la sequedad en el sur, o por ambientes de carácter meramente volcánico como es el [[Malpaís de Güímar]].

También cuenta con playas naturales como la de [[El Médano]], con parajes protegidos en su entorno como Montaña Roja y Montaña Pelada, valles con cultivos tropicales y subtropicales, boscosos parajes de [[laurisilva]] en los macizos de [[Macizo de Anaga|Anaga]] y [[Macizo de Teno|Teno]] -con profundos y escarpados barrancos- y extensos bosques de pinos por encima de esta última formación vegetal.

==== Macizos ====
[[Imagen:Anaga 2006.jpg|thumb|left|250px|Panorámica del Macizo de Anaga.]]
El '''macizo de [[Anaga]]''', en el extremo nororiental de la isla, posee un perfil topográfico irregular y escabroso donde a pesar de no presentar grandes cotas, destaca el Pico del Inglés con 1.024 metros. Debido a la antigüedad de sus materiales (5,7 m. a.), a sus profundos procesos erosivos y a la densa red de diques que atraviesan el macizo, son numerosos los roques que aparecen en superficie, tanto de etiología fonolítica como traquítica. Existe una gran cantidad de barrancos escarpados y muy encajados en el terreno. En la costa de Anaga predominan los acantilados, por lo que existe un número escaso de playas, aún así, las que hay suelen coincidir con zonas de desembocadura de barrancos, algunas de rocas y otras de arena negra.

El '''macizo de Teno''' se encuentra en el extremo noroccidental. Al igual que en Anaga, se trata de una zona de estructuras desmanteladas y hondos barrancos que se han originado por erosión. Sin embargo, aquí los materiales son más antiguos (aproximadamente 7,4 m. a.). Destacan la Montaña de Gala que con 1.342 metros representa la mayor altitud. El paisaje más singular de este Macizo se encuentra en su costa sur. Se trata de los Acantilados de Los Gigantes, con paredes verticales que llegan a alcanzar en algunos puntos los 500 metros de altura.

El '''macizo de Adeje''' se sitúa en el extremo meridional de la isla, teniendo como mayor exponente al Roque del Conde, con 1.001 metros de altitud. El macizo no es tan apreciable por su reducida estructura inicial, hecho que añadido a la historia geológica del lugar ha potenciado un intenso desmantelamiento de sus materiales, perdiendo de ese modo su aspecto y envergadura original.

==== Dorsales ====
La '''Cordillera dorsal o dorsal de Pedro Gil''' abarca desde el principio del monte de La Esperanza, a unos 750 metros de altitud aproximadamente, hasta la zona central de la isla, en las inmediaciones de la Caldera de Las Cañadas, siendo Izaña, su punto más alto, con 2.350 metros sobre el nivel del mar. Esta estructura se ha constituido a expensas de un vulcanismo fisural de tipo basáltico a través de uno de los ejes o directrices estructurales que han dado origen al vulcanismo de la isla.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

La '''dorsal de Abeque''' se encuentra formada por una cadena de volcanes que unen el macizo de Teno con el edificio central insular Teide-Pico Viejo a partir de otro de los tres ejes o directrices estructurales de Tenerife. A esta dorsal pertenece el volcán histórico de Chinyero cuya última erupción se registró en 1909.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

La '''dorsal Sur o dorsal de Adeje''' está al amparo del último de los ejes estructurales. Destacan los restos de su macizo como formación primigenia, así como las alineaciones de pequeños conos volcánicos y de roques esparcidos por toda esta zona del sur tinerfeño.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

==== Edificio central ====
[[Imagen:Teide Tenerife4.jpeg|thumb|250px|right|Roque Cinchado y El Teide.]]
Las principales estructuras de Tenerife descritas en las líneas anteriores se ven culminadas en el edificio central, con el complejo Teide-Pico Viejo y el circo de Las Cañadas. Se trata de una semicaldera de 130 kilómetros cuadrados, que ha sido originada por un conjunto de procesos geológicos explicados en el epígrafe ''Origen y formación''. El circo está parcialmente ocupado por el estratovolcán Teide-Pico Viejo y completado por los materiales que ha emitido en sus diferentes erupciones. Destacan en su interior los [[Roques de García]], entre los que está el más conocido, el Roque Cinchado. Otra formación llamativa son Los Azulejos, compuesto por fonolitas de colores verdosos que se han creado por actividad hidrotermal.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

Al sur de La Caldera destaca la [[Montaña de Guajara]], que con 2.718 metros es la de mayor altitud de las que constituyen el anfiteatro de Las Cañadas del Teide. Al pie de estas paredes se han creado [[cuenca endorreica|llanos endorreicos]] de materiales sedimentarios muy finos, siendo el más conocido el [[Llano de Ucanca]].<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

El Pico del [[Teide]], con 3.718 metros sobre el nivel del mar y más de 7.000 sobre el fondo oceánico, es el punto más elevado de la isla, del territorio español y de todas las tierras emergidas del Atlántico. Este volcán, el tercero más grande del planeta,<ref>[http://www.csic.es/estudios_geol/archivo/vol5914/EGv59p015029dncwio.pdf Estudio geológico sobre el Teide del CSIC]</ref> es el símbolo de Tenerife por antonomasia. Su situación central, sus importantes dimensiones, su silueta y su paisaje nevado lo dotan de una singular personalidad. Ya los aborígenes lo consideraban lugar de culto y adoración.

Desde 1954, el Teide y todo el circo de su alrededor (aunque hubo una ampliación posterior de sus límites) está declarado como parque nacional. Además, desde junio de 2007 está incluido por la [[UNESCO]] dentro de los espacios [[Patrimonio de la Humanidad]] como bien natural.<ref>[http://whc.unesco.org/en/list/1258 Página web oficial de la UNESCO (en inglés)]</ref>
Al oeste se encuentra el volcán Pico Viejo,. En un lateral de éste, se encuentra el Volcán de Chahorra o Narices del Teide, donde se produjo la última erupción que se ha dado en el entorno del Teide, en 1798.

==== Valles ====
[[Imagen:Orotavatal.jpg|500px|thumb|left|Panorámica del Valle de La Orotava con el Teide al fondo.]]Los [[valle]]s son otra de las formas de relieve más destacadas. Los más importantes son el [[Valle de La Orotava]] y el [[Valle de Güímar]] que se han generado por el deslizamiento en masa de grandes cantidades de materiales hacia el mar, creando una hondonada en el terreno.
Existen otros valles que se distribuyen por diversos enclaves de la geografía de Tenerife, aunque, en este caso, de diferente naturaleza. Suelen ser valles intercolinares que se han conformado tras el depósito de mayor cantidad de materiales geológicos en lomas laterales, o simplemente cauces amplios de determinados barrancos que en su evolución han tomado el aspecto de típicos valles.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

==== Barrancos ====
Tenerife, debido principalmente a su gran altitud y a su silueta en semejanza a un tejado de dos aguas, está surcada por gran cantidad de [[barranco]]s. Éstos constituyen uno de los elementos más característicos de su paisaje, originados por la erosión ejercida por la escorrentía superficial a lo largo de la historia. Destacan los barrancos de Ruiz, Fasnia y Güímar, Infierno y Erques, todos ellos declarados espacios naturales protegidos por las instituciones canarias.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>
[[Imagen:Tenerife88.jpg|thumb|right|250px|Montaña Roja al fondo, Playa de La Tejita.]]

==== Costas ====
Las costas son, a grosso modo, accidentadas y abruptas, aunque lo son más en la zona norte que en la sur. No obstante 67,14 kilómetros de la costa tinerfeña lo representan playas, sólo superada en este aspecto por la isla de [[Fuerteventura]].<ref>[http://www.gobiernodecanarias.org/istac/estadisticas/php/saltarA.php?mid=/istac/estadisticas/territorio_ambiente/area_01_frame.html Estadísticas del Gobierno de Canarias]</ref>En el litoral septentrional son frecuentes las playas de cantos rodados o de arena negra, mientras que en la vertiente sur y suroeste de la isla predominan las playas con arenas más finas y de tonalidades más claras.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

===Flora y Fauna===
La isla de Tenerife disfruta de una [[diversidad ecológica]] pese a su reducida superficie, que es consecuencia de unas condiciones ambientales especiales, ya que la accidentada orografía reinante modifica localmente las condiciones climáticas generales, originando una exquisita variedad de [[microclima|microclimas]]. Esta vasta existencia de microclimas y, por lo tanto, de hábitats naturales, se hace manifiesta en la vegetación insular, constituida por una flora rica y variada (1400 especies de plantas superiores), entre las que destacan numerosos [[endemismo|endemismos]] canarios (200) y tinerfeños (140). Al concentrar este patrimonio vegetal de unas 140 especies exclusivas, la isla de Tenerife muestra la mayor relación de endemismos florísticos de la denominada [[Macaronesia]]. Además, la diferente composición química de los diversos materiales volcánicos que han construído el edificio insular, siempre bajo la acción combinada de los factores climáticos, dan lugar a una gran diversidad de suelos. La conjunción de estos agentes determina la presencia de múltiples hábitats que albergan numerosas comunidades de plantas y animales que constituyen los singulares [[ecosistemas]] de Tenerife. Antes de la llegada de los aborígenes, Canarias y en especial Tenerife estaba habitada por animales endémicos prehistóricos, la mayoria extintos como por ejemplo; los lagartos gigantes ([[Lacerta goliath]] y [[Lacerta maxima]]), o la rata gigante ([[Canariomys bravoi]]). <ref>http://www.gobiernodecanarias.org/cmayot/medioambiente/lagartodelagomera/gatos.html Según la Página Web del Gobierno de Canarias</ref>

El estudio de la flora y la fauna tinerfeña puede realizarse de un modo más ordenado si es clasificada según los diferentes pisos ecológicos en los que se divide el terreno de la isla. Dicha división atiende especialmente a la orientación norte o sur de las vertientes de la isla y por supuesto a la altitud:
*'''Cardonal - Tabaibal:''' 0 – 700 m: este estrato se caracteriza por una fuerte insolación y escasez de precipitaciones. En él destacan como especies vegetales las [[Euphorbia atropurpurea|tabaibas]], los cardones y cardoncillos, bejeques,...En cuanto a la fauna, son pobres las especies animales vertebradas en este ecosistema. Si acaso, algunas aves o reptiles. En cambio los insectos se encuentran muy bien representados.
*'''Bosques Termófilos:''' 200 - 600 m: este piso posee mayor grado de humedad y precipitaciones, y una menor insolación. Son importantes, dentro de las especies arbóreas las palmeras, las sabinas, los acebuches y una serie de endemismos como peralillos, guaidiles, españeros, malvas de risco y cinerarias. En relación con la fauna es preciso citar a la mariposa vanessa vulcania y aves insectívoras como la curruca cabecinegra y el capirote.
[[Image:Eidechsen Teide.jpg|thumb|left|230px|Gallotia Galloti, especie endémica de Tenerife]]
*'''Laurisilva:''' 500 - 1.000 m: se trata de un [[bosque]] denso de grandes árboles, herederos de la flora de la [[Era Terciaria]], que crecen en zonas de abundantes nieblas y lluvias frecuentes. Las especies vegetales superiores que abundan son laureles, tilos, viñátigos, barbusanos, y otras de menor tamaño como el [[canarina canariensis|bicácaro]], la cresta de gallo, la corregüela y una gran variedad de helechos. Con respecto a la fauna, la [[laurisilva]] es el estrato más rico en invertebrados y con mayor porcentaje de endemismos, entre los que se encuentran lombrices, moluscos y sobre todo artrópodos. Dentro de la fauna vertebrada hay que mencionar algunas especies de murciélagos y dos aves endémicas en peligro de extinción como son las palomas turqué y rabiche.
[[Imagen:Tajinaste rojo.jpg|thumb|right|260px|Tajinaste rojo]]
*'''Fayal-Brezal:''' 1.000 – 1.500 m: se trata también de un bosque, pero en este caso más seco y pobre en especies. Destacan florísticamente las fayas, brezos, acebiños,...También abundan diferentes especies de setas que pueden ser tanto comestibles como muy venenosas.
*'''Pinar:''' 800 - 2.000 m: bosque de pinos en formación abierta que se caracteriza por un aumento de la insolación y por una menor uniformidad en las temperaturas diurnas-nocturnas y estacionales. Sobresale por encima de cualquier otra especie el [[pino canario]]. La fauna es poco diversa, pero existen dos aves endémicas de singular belleza como el pinzón azul y el pico picapinos.
*'''Alta montaña:''' por encima de 2.000 m: posee un clima seco, una insolación muy alta y temperaturas extremas. A pesar de estas exigentes condiciones, crecen endemismos vegetales de gran importancia científica y belleza como [[tajinaste|tajinastes]], retamas, codesos, violeta del Teide,...y especies animales principalmente invertebradas como escarabajos, chinches, y mariposas.
Aún faltaría hablar de la extensa fauna marina de entre la que destacan viejas, meros, abades, salemas, samas, pargos,...Gran interés tienen también la tortuga boba y las colonias permanentes de ballenas y delfines que habitan el litoral sur de la isla.
Tenerife posee un inventario faunístico que asciende a 56 especies de aves, 13 de mamíferos terrestres, 5 de reptiles, varios miles de invertebrados, 2 de anfibios y 400 de peces además de algunas especies de tortugas marinas y cetáceos.

=== Espacios naturales protegidos ===
[[Imagen:Espacios_protegidos_Tenerife.jpg|thumb|right|250px|Mapa de clasificación de los espacios protegidos.]]
Prácticamente la mitad de la isla (48,6%),<ref>[http://www.gobiernodecanarias.org/educacion/culturacanaria/espacios/espanat.htm#tenerife La protección de los espacios naturales en Canarias (Gobierno de Canarias)]</ref> se encuentra bajo las diferentes fórmulas de protección que atribuyen la [[Red Canaria de Espacios Naturales Protegidos]]. De los 146 espacios naturales recogidos por la citada red en el conjunto del archipiélago,<ref>[http://www.gobcan.es/cmayot/espaciosnaturales/informacion/quees.html Red Canaria de Espacios Naturales Protegidos]</ref> un total de 43 se encuentran en Tenerife, siendo de este modo la isla que mayor número de espacios posee.<ref>[http://www.gobcan.es/cmayot/espaciosnaturales/informacion/tf_todo.html Relación de los Espacios Naturales protegidos de Tenerife]</ref> Asimismo, atendiendo al porcentaje de territorio protegido con el que cada isla contribuye al total del archipiélago, hay que destacar que es Tenerife con un 37% la isla que encabeza la tabla.<ref>[http://www.gobcan.es/cmayot/espaciosnaturales/tabla.html Superficie y número de espacios naturales protegidos, por islas, en Canarias]</ref> La Red contempla hasta ocho categorías de protección distintas, todas ellas representadas en la isla: aparte del parque nacional del Teide, cuenta con el mayor parque natural de Canarias ([[Corona Forestal]]), dos parques rurales (Anaga y Teno), cuatro reservas naturales integrales, seis reservas naturales especiales, un total de catorce monumentos naturales, nueve paisajes protegidos y hasta seis sitios de interés científico.
El municipio de La Orotava, en gran parte a expensas del [[Parque Nacional del Teide]], y el de Santa Cruz de Tenerife que hace lo propio con el [[Parque rural de Anaga]] presentan, respectivamente, el 76% y el 74% de su extensión bajo protección. De la misma forma, el emplazamiento mayoritario del [[Parque rural de Teno]] al amparo del municipio de Buenavista del Norte hace que este disponga de una importante parte de su superficie protegida.

===Clima===
A Tenerife se la conoce internacionalmente como la "Isla de la Eterna Primavera". La atribución de esta denominación climática se produce en gran medida gracias a los '''[[vientos alisios]]''', cuya humedad, principalmente, se condensa en las zonas de [[Zona de medianías (Canarias)|medianías]] del norte y nordeste insular, constituyendo amplios mares de nubes que se disponen preferentemente entre los 600 y 1.800 metros de altura; otro factor que influye en la suavidad del clima de las Islas con respecto al que por latitud correspondería (Desierto del Sahara), es la '''[[corriente marina fría de Canarias]]''', que enfría la temperatura de las aguas que bañan las costas y playas isleñas con respecto a la ambiental. Por último, la propia '''orografía tinerfeña''' también habría que tenerla en cuenta en esta terna de agentes encargados de hacer realidad el anteriormente citado eslogan.

[[Imagen:Mar de nubes, Tenerife.jpg|thumb|left|250px|Mar de nubes en la Isla de Tenerife, visto desde unos 1800 metros de altitud.]]

A grandes rasgos, el clima de Tenerife es moderado, templado y muy suave en cualquier estación del año. No hay períodos de frío pero tampoco los hay de calor asfixiante. Las temperaturas medias fluctúan entre los 17-18 ºC en invierno y los 24-25 ºC en la estación estival, aunque estos sean valores relativos y generales. Evidentemente se producen importantes contrastes, como el que se produce durante los meses de invierno, en los cuales es posible disfrutar del sol en zonas de costa y, sin embargo, 3.000 metros por encima poder contemplar la blanca estampa nevada del [[Teide]], lugar en el que nieva todos los años.

[[Image:Masca Road.jpg|thumb|250px|right|Masca]]
Otro ejemplo de contraste climático lo encontraríamos en la ciudad de [[Santa Cruz de Tenerife|Santa Cruz]] con respecto a la ciudad de [[San Cristóbal de La Laguna|La Laguna]]. Municipios unidos físicamente pero distanciados en cuanto a condiciones climáticas. Generalmente Santa Cruz tiene durante todo el año un clima cálido con temperaturas sensiblemente superiores a las que se disfrutan en la aledaña La Laguna, donde frecuentemente hace más frío y existe mayor probabilidad de precipitaciones.

El norte y el sur de Tenerife poseen igualmente diferentes características climáticas. En barlovento se registra un 73% de las precipitaciones totales además, la humedad relativa del aire es superior y la insolación inferior. Los máximos pluviométricos se registran en barlovento a una altitud media entre 1.000-1.200 m, casi exclusivamente en los montes de [[La Orotava]]. Pero quizás sea más significativo que todo el norte de la isla carezca de un espacio en el que la pluviosidad media sea inferior a los 250 mm anuales. En cambio, en la vertiente sur de la isla los valores pluviales son significativamente menores. Los únicos reductos sureños que se salvan de esta situación son [[Masca (Tenerife)|Masca]] y [[Güímar]], probablemente debido a sus características físicas que posibilitan una mayor presencia del alisio.

A modo de anécdota es interesante saber que los médicos europeos, sobre todo ingleses y holandeses, del pasado [[siglo XIX]] elogiaban el clima del norte de Tenerife, y lo recomendaban a sus pacientes para aliviar dolencias de la edad y del aparato circulatorio.

{| {{tablabonita}} width="567"
|- style="background: #99CCCC; color:#000080;"
| height="17" | Datos climáticos
!| Ene
!| Feb
!| Mar
!| Abr
!| May
!| Jun
!| Jul
!| Ago
!| Sep
!| Oct
!| Nov
!| Dic
|-
| style="background: #99CCCC; color:#000080;" | Ø Horas de sol/Día
| style="background: #FFFF99; color:#000080;" | 5,9
| style="background: #FFCC66; color:#000080;" | 6,6
| style="background: #FFCC00; color:#000080;" | 7,1
| style="background: #FFCC00; color:#000080;" | 7,7
| style="background: #FFCC00; color:#000080;" | 8,8
| style="background: #FFCC00; color:#000080;" | 9,8
| style="background: #FF9900; color:#000080;" | 10,6
| style="background: #FFCC00; color:#000080;" | 9,8
| style="background: #FFCC00; color:#000080;" | 8,5
| style="background: #FFCC66; color:#000080;" | 6,9
| style="background: #FFFF99; color:#000080;" | 5,9
| style="background: #FFFF99; color:#000080;" | 5,5
|-
| style="background: #99CCCC; color:#000080;" height="16;" | Aire [°C]
| style="background: #FFFFCC; color: black;" | 17,9
| style="background: #FFFFCC; color: black;" | 17,9
| style="background: #FFFF99; color: black;" | 18,6
| style="background: #FFFF99; color: black;" | 19,0
| style="background: #FFFF99; color: black;" | 20,4
| style="background: #FFFF99; color: black;" | 22,2
| style="background: #FFFF99; color: black;" | 24,3
| style="background: #FFFF99; color: black;" | 25,0
| style="background: #FFFF99; color: black;" | 24,3
| style="background: #FFFF99; color: black;" | 22,8
| style="background: #FFFF99; color: black;" | 20,6
| style="background: #FFFF99; color: black;" | 18,7
|-
| style="background: #99CCCC; color:#000080;" | Agua [°C]
| style="background: #66CCFF; color: black;" | 19
| style="background: #0033FF; color: black;" | 18
| style="background: #0033FF; color: black;" | 18
| style="background: #0033FF; color: black;" | 18
| style="background: #66CCFF; color: black;" | 19
| style="background: #66CCFF; color: black;" | 20
| style="background: #66CCFF; color: black;" | 21
| style="background: #66CCFF; color: black;" | 22
| style="background: #66CCFF; color: black;" | 23
| style="background: #66CCFF; color: black;" | 23
| style="background: #66CCFF; color: black;" | 21
| style="background: #66CCFF; color: black;" | 20
|-
| style="background: #99CCCC; color:#000080;" | Ø Días de lluvia
| style="background: #99FFCC;" color: black;" | 5
| style="background: #99FFCC;" color: black;" | 5
| style="background: #99FFCC;" color: black;" | 5
| style="background: #99FFFF;" color: black;" | 3
| style="background: #99FFFF;" color: black;" | 1
| style="background: #99FFFF;" color: black;" | 0
| style="background: #99FFFF;" color: black;" | 0
| style="background: #99FFFF;" color: black;" | 1
| style="background: #99FFFF;" color: black;" | 1
| style="background: #99FFFF;" color: black;" | 3
| style="background: #99FFCC;" color: black;" | 5
| style="background: #99FFCC;" color: black;" | 6
|}

===El Agua===
El suelo volcánico de Tenerife, generalmente de carácter poroso y permeable es motivo para que una considerable fracción del [[agua]] procedente de la lluvia, unida a aquella producto de condensaciones en zonas boscosas y a la proveniente del deshielo de las cumbres más elevadas de la isla, se infiltre en el subsuelo. La construcción de embalses y presas como principales métodos de obtención de agua esta desaconsejada debido a las mencionadas condiciones geológicas, que no permiten el almacenamiento del preciado líquido en superficie, así como a la irregularidad de las precipitaciones. De este modo, la mayor parte del agua (90%) procede de pozos y principalmente de [[Galería filtrante|galerías]], importantes sistemas que sirven para extraer el [[recurso hídrico]] del [[acuífero]]. Tenerife dispone en la actualidad de más de un millar de galerías perforadas <ref>[http://www.aguastenerife.org/4_tfeyelagua/4_3_6.html Información del Consejo Insular de Aguas de Tenerife]</ref>.

==[[Historia de Tenerife]]==
===Organización política anterior a la invasión===
El nombre original [[guanche]] de la isla era Achinet o Chenet. Unos cien años antes de la invasión, existía un [[mencey]] llamado Tinerfe el Grande, hijo del Mencey Sunta. Tinerfe tenía su corte en [[Adeje (Santa Cruz de Tenerife)|Adeje]] hasta que sus nueve hijos se rebelaron y se repartieron la isla en 9 menceyatos y 2 achimenceyatos independientes (llamados capitanías por los invasores). Los menceyatos y sus menceyes (por orden de descendencia) fueron los siguientes:

* [[Menceyato de Taoro|Taoro]]: actualmente [[Puerto de la Cruz]], [[La Orotava]], [[La Victoria de Acentejo]], [[La Matanza de Acentejo]], [[Los Realejos]] y [[Santa Úrsula (Santa Cruz de Tenerife)|Santa Úrsula]] sus menceyes fueron Bentinerfe, Inmobach, [[Bencomo]] y Bentor.
* [[Menceyato de Güímar|Güímar]]: en la actualidad [[El Rosario (Santa Cruz de Tenerife)|El Rosario]], [[Candelaria (Santa Cruz de Tenerife)|Candelaria]], [[Arafo (Santa Cruz de Tenerife)|Arafo]] y [[Güímar (Santa Cruz de Tenerife)|Güímar]] y sus menceyes fueron Acaymo, Añaterve y Guetón.
* [[Menceyato de Abona|Abona]]: [[Fasnia (Santa Cruz de Tenerife)|Fasnia]], [[Arico]], [[Granadilla de Abona]], [[San Miguel de Abona]], [[Arona (Santa Cruz de Tenerife)|Arona]] y sus menceyes fueron Atguaxoña y Adxoña (o Adjona).
* [[Menceyato de Anaga|Anaga]]: [[Santa Cruz de Tenerife]] y [[San Cristóbal de La Laguna]] (la zona de la propia laguna) y sus menceyes fueron beneharo y Beneharo II.
* [[Menceyato de Tegueste|Tegueste]]: [[Tegueste (Santa Cruz de Tenerife)|Tegueste]] y una zona costera de [[San Cristóbal de La Laguna|La Laguna]] y sus menceyes fueron Tegueste, Tegueste II y Teguaco.
* [[Menceyato de Tacoronte|Tacoronte]]: [[Tacoronte (Santa Cruz de Tenerife)|Tacoronte]] y [[El Sauzal (Santa Cruz de Tenerife)|El Sauzal]] y sus menceyes fueron Rumén y Acaymo.
* [[Menceyato de Icode|Icode]]: [[San Juan de la Rambla]], [[La Guancha (Santa Cruz de Tenerife)|La Guancha]], [[Garachico (Santa Cruz de Tenerife)|Garachico]] e [[Icod de los Vinos]] y sus menceyes fueron Chincanayro y Pelicar.
* [[Menceyato de Daute|Daute]]: [[El Tanque]], [[Los Silos (Santa Cruz de Tenerife)|Los Silos]], [[Buenavista del Norte |Buenavista]] y [[Santiago del Teide]] y sus menceyes fueron Cocanaymo y Romén.
* [[Menceyato de Adeje|Adeje]]: [[Guía de Isora]], [[Adeje (Santa Cruz de Tenerife)|Adeje]] y [[Vilaflor (Santa Cruz de Tenerife)|Vilaflor]] y sus menceyes fueron Atbitocazpe, Pelinor, e Ichasagua.

También se encontraba el Achimenceyato de [[Punta del Hidalgo]] gobernado por Aguahuco (el "Hidalgo pobre", hijo ilegítimo del Gran Tinerfe) y Zebenzui.

En cuanto a las creencias, la [[Mitología guanche|religión guanche]] era [[Politeísmo|politeísta]] aunque el culto astral estaba generalizado. Junto a él había una religiosidad [[animista]] que sacralizaba ciertos lugares, fundamentalmente roques y montañas. Entre los principales dioses guanches se podrían destacar; [[Achamán]] (dios del cielo y supremo creador), [[Chaxiraxi]] (diosa madre identificada más tarde con la [[Virgen de Candelaria]]), [[Magec]] (dios del sol) y [[Guayota]] (el demonio) entre otros muchos dioses y espíritus ancestrales. Especialmente singular era el culto a los muertos, practicándose la [[momificación]] de cadáveres.

===Invasión===
Conocida por los romanos como ''[[Nivaria]]'' (del latín ''nix'', ''nivis'', "nieve"), en clara referencia a las nieves posadas sobre el volcán conocido como el [[Teide]]. El nombre de la isla también guarda relación con el volcán, ya que fue puesto por los [[La_Palma#Los_abor.C3.ADgenes|benehaoritas]] (aborígenes de La Palma): "Tene-" (montaña) "-ife" (blanca), la castellanización del nombre provocó que se añadiera una -r para unir ambas palabras quedando '''Tenerife'''. Para los nativos de Tenerife, la isla era conocida como ''Chenech'', ''Chinech'' o ''[[Achinech]]''.

Tenerife a la hora de su inv asiónse componía de nueve ''menceyatos'', nombre por el que se conocía a los pequeños reinos guanches. Sin embargo las fuerzas militares de la Corona de Castilla bajo el mando del Adelantado ("gobernador militar") [[Alonso Fernández de Lugo]], sufrieron una derrota a manos de los [[guanche]]s en la primera [[Batalla de Acentejo]] en [[1494]]. Los guanches, superados por la tecnología y por las nuevas enfermedades a las cuales no eran inmunes, cayeron frente a las tropas de la [[Corona de Castilla]] el [[25 de diciembre]] de [[1495]].

Como en el resto de las Islas, los aborígenes fueron esclavizados y una buena parte de la población indígena sucumbió a las enfermedades importadas, al mismo tiempo que los inmigrantes provenientes de protectorados del Imperio Español (Portugal, Flandes, Italia, Alemania) se asentaban en la isla. Los bosques de [[pino canario]] de Tenerife fueron cortados para dejar paso al cultivo de la [[caña de azúcar]] en [[1520]]. En siglos sucesivos, la economía de la isla se centró en el cultivo de otras materias tales como la [[viña]] y la [[Cochinilla (insecto)|cochinilla]] para hacer los tintes, así como el [[plátano]].

===El ataque de Horacio Nelson===
[[Imagen:Sir_Horatio_Nelson_when_wounded_at_Teneriffe.jpg|thumb|left|260px|Horacio Nelson cae herido durante el ataque]]
Tenerife fue atacada, como las otras islas, por [[Piratería en Canarias|corsarios]] de varias nacionalidades (ingleses, franceses, holandeses y berberiscos) varias veces a lo largo de su historia, según el devenir de las alianzas y guerras de España. De entre estos ataques destaca por su lugar en la Historia el [[Ataque a Santa Cruz de Tenerife|ataque de los británicos de 1797]]. El [[25 de julio]], el Almirante [[Horacio Nelson]] atacó Santa Cruz de Tenerife, capital de la isla y Jefatura de la Capitanía General. Tras un feroz ataque, la defensa organizada por el [[Antonio Gutiérrez de Otero|General Gutiérrez]] repelió a los británicos. Nelson perdió su brazo derecho por una bala de cañón (dice la leyenda que del cañón "Tigre") mientras intentaba desembarcar en la orilla de la costa de la zona de "Paso Alto".

El [[5 de septiembre]], otro intento de desembarco en la región de Puerto Santiago fue repelido por los habitantes del [[Santiago_del_Teide|Valle de Santiago del Teide]], que lanzaron piedras a los británicos desde lo alto de los Acantilados de Los Gigantes.

===Historia reciente===
Otros visitantes menos hostiles llegarían a la isla en siglos sucesivos. El naturalista [[Alexander von Humboldt]] ascendió el pico del Teide y comentó la belleza de la isla. Numerosos turistas comenzaron a visitar Tenerife a partir de la década de [[1890]], especialmente las ciudades norteñas de [[Puerto de la Cruz]] (primer municipio turístico de Tenerife mediante orden ministerial del 13 de octubre de 1955 que lo declaró ’Lugar de Interés Turístico’) y Santa Cruz de Tenerife.

En marzo de [[1936]], antes de subir al poder, [[Francisco Franco]] fue destinado a Tenerife por el Gobierno Republicano, temeroso de su influencia militar y política, con el fin de alejarlo de los centros de poder. En el Monte de La Esperanza en el municipio tinerfeño de [[El_Rosario_(Santa_Cruz_de_Tenerife)|El Rosario]], Franco organizó la conspiración militar que daría lugar a la [[Guerra civil española]] y posterior caída de la [[II República Española]]. Las Islas Canarias cayeron bajo el bando de los nacionales en julio de [[1936]] y su población sufrió las masivas ejecuciones de opositores al nuevo régimen fascista. En los años 50, la miseria de la posguerra hizo que miles de tinerfeños emigrasen a [[América latina]], principalmente a [[Cuba]] y [[Venezuela]].

[[Colisión_de_1977_en_Los_Rodeos|La colisión]] ocurrida el [[27 de marzo]] de [[1977]] en el [[aeropuerto de Los Rodeos]], situado en el norte de la isla, era el desastre mortal de aviación más importante de la historia hasta los [[Atentados del 11 de septiembre de 2001|atentados del 11 de septiembre de 2001]].

==Símbolos de la isla==
[[Imagen:Flag of Tenerife.jpg|left|thumb|160px|Bandera de Tenerife]]
[[Image:escudo_tenerife.jpg|left|thumb|160px|Escudo del Cabildo Insular de Tenerife.]]

'''La bandera''' fue adoptada originariamente en 1845 a modo de distintivo o bandera de matrícula de la que en aquel entonces se denominaba provincia marítima de Canarias con base en el Puerto de Santa Cruz de Tenerife. En la actualidad, esta enseña representa a toda la isla de Tenerife. Fue aprobada a instancia del [[Cabildo Insular de Tenerife|Cabildo Insular]] por Orden del Gobierno de Canarias el 9 de mayo de 1989 y publicada el 22 de mayo de 1989 en el Boletín Oficial de Canarias.

'''El escudo heráldico''' de Tenerife fue otorgado mediante diploma real el 23 de marzo de 1510, concedido por el Rey Don Fernando V "El Católico", fue expedido en Madrid a nombre de su hija Doña Juana I, Reina de Castilla. El escudo se describe en campo de oro, con un San Miguel (pues la isla fue conquistada el día de San Miguel) armado superando a una montaña de su color natural de la que brotan llamas, y que representa al pico del Teide. Bajo esta montaña la isla de sinople sobre ondas azul y plata. A la derecha se observa un castillo de gules, y a la izquierda un león rampante de gules. El escudo que usa el [[Cabildo Insular de Tenerife|Cabildo Insular]] se diferencia del que usa el [[San Cristóbal de La Laguna|Ayuntamiento de La Laguna]] en el lema que aparece en la bordura y en el añadido de unas ramas de palma.

Según una ley del [[Gobierno de Canarias]] los símbolos [[naturaleza|naturales]] de la isla son el [[pinzón azul]] y el [[dracaena draco|drago]] <ref>[http://www.gobcan.es/boc/1991/061/001.html Ley 7/1991, de 30 de abril, de símbolos de la naturaleza para las Islas Canarias]</ref>.

==Órgano de gobierno==
El órgano de gobierno de la isla de Tenerife es el [[Cabildo Insular de Tenerife]]. La organización política de Canarias se caracteriza porque no posee órgano político provincial sino que cada isla posee un cabildo insular propio. Desde que se constituyó en marzo de 1913 dispone de una amplia serie de competencias propias, hoy recogidas en el [[Estatuto de Autonomía de Canarias]].

===Municipios===

[[Imagen:MapaMunicipiosTenerife.jpg|thumb|center|400px|División municipal de la isla de Tenerife]]

La isla de Tenerife está dividida en 31 municipios.

De todos ellos, sólo tres no tienen costa: [[Tegueste (Santa Cruz de Tenerife)|Tegueste]], [[El Tanque]] y [[Vilaflor (Santa Cruz de Tenerife)|Vilaflor]] que destaca además por ser el municipio más alto de toda [[Canarias]] al tener su capital a 1.400 metros de altitud.

El municipio más extenso con 207,31 km² es el de [[La Orotava]], que abarca gran parte del [[Parque nacional del Teide]]. El municipio más pequeño de la isla y del archipiélago es [[Puerto de la Cruz]], con una superficie inferior a los 9 km².

La gran mayoría de estos municipios confluyen en la zona de cumbre central de la isla y a partir de ahí se extienden hacia la costa, orientándose unos hacia el norte y otros hacia el sur.

A su vez, es frecuente encontrar otro tipo de división insular, es aquella que establece el territorio según una Zona Metropolitana, alrededor del área de influencia de las ciudades de Santa Cruz y La Laguna (''véase'' [[Área metropolitana de Tenerife]]), Zona Norte (aquellos municipios que se abren al océano por el norte) y Zona Sur (aquellos que lo hacen hacia el sur). Esta división junto con la municipal se puede observar en el mapa de la derecha.

A continuación se muestra la relación de todos los municipios tinerfeños ordenados alfabéticamente:

{| width="100%" align="CENTER"
|-
| valign="top" |
*[[Adeje (Santa Cruz de Tenerife)|Adeje]]
*[[Arafo (Santa Cruz de Tenerife)|Arafo]]
*[[Arico]]
*[[Arona (Santa Cruz de Tenerife)|Arona]]
*[[Buenavista del Norte]]
*[[Candelaria (Santa Cruz de Tenerife)|Candelaria]]
*[[Fasnia (Santa Cruz de Tenerife)|Fasnia]]
*[[Garachico (Santa Cruz de Tenerife)|Garachico]]
*[[Granadilla de Abona]]
*[[La Guancha (Santa Cruz de Tenerife)|La Guancha]]
| valign="top" |
*[[Guía de Isora]]
*[[Güímar (Santa Cruz de Tenerife)|Güímar]]
*[[Icod de los Vinos]]
*[[La Matanza de Acentejo]]
*[[La Orotava]]
*[[Puerto de la Cruz]]
*[[Los Realejos]]
*[[El Rosario (Santa Cruz de Tenerife)|El Rosario]]
*[[San Cristóbal de La Laguna]]
*[[San Juan de la Rambla]]
*[[San Miguel de Abona]]
| valign="top" |
*[[Santa Cruz de Tenerife (Santa Cruz de Tenerife)|Santa Cruz de Tenerife]]
*[[Santa Úrsula (Santa Cruz de Tenerife)|Santa Úrsula]]
*[[Santiago del Teide]]
*[[El Sauzal (Santa Cruz de Tenerife)|El Sauzal]]
*[[Los Silos (Santa Cruz de Tenerife)|Los Silos]]
*[[Tacoronte (Santa Cruz de Tenerife)|Tacoronte]]
*[[El Tanque]]
*[[Tegueste (Santa Cruz de Tenerife)|Tegueste]]
*[[La Victoria de Acentejo]]
*[[Vilaflor (Santa Cruz de Tenerife)|Vilaflor]]
|}

=== Demografía ===
La isla de Tenerife, la más poblada del archipiélago, albergaba a fecha de 1 de enero de 2006 y según fuentes del [[Instituto Nacional de Estadística de España|INE]] un total de 852.945 habitantes censados, de los cuáles, más de un 26% (223.148 habitantes) lo estaban en su capital, [[Santa Cruz de Tenerife]], y cerca del 50% (423.022 personas)<ref name="audes">Datos del proyecto AUDES5[http://alarcos.inf-cr.uclm.es/per/fruiz/pobesp/] — áreas urbanas.</ref> en su [[Área metropolitana de Santa Cruz de Tenerife-La Laguna|área metropolitana]]. A la ciudad de Santa Cruz de Tenerife le siguen en población [[San Cristóbal de La Laguna]] (142.161), [[Arona]] (69.100), [[La Orotava]] (40.644), [[Adeje]] (36.764), [[Los Realejos]] (36.746), [[Granadilla de Abona]] (34.595) y [[Puerto de la Cruz]] (30.585). Hasta ahí los municipios que sobrepasan los 30.000 habitantes. El municipio de [[Vilaflor]] es el que cuenta con menor población de toda la isla (1.905). Además, Tenerife registra un muy alto nivel de población no censada ya que el elevado número de turistas que recibe anualmente y los crecientes fenómenos migratorios lo ponen de manifiesto.

==Gentilicio==


El gentilicio formal es "Tinerfeño/a", aunque también de manera coloquial se utiliza el gentilicio "[[chicharrero|Chicharrero/a]]"<ref>http://buscon.rae.es/draeI/SrvltGUIBusUsual?LEMA=chicharrero</ref>, aunque en la propia isla éste se reserva para los habitantes de la capital, Santa Cruz.

El gentilicio "chicharrero" tiene su origen en un término despectivo empleado por los habitantes de la cercana ciudad de [[San Cristóbal de La Laguna|La Laguna]], entonces capital de la isla, para los habitantes del entonces pobre y pequeño puerto de pescadores. Justamente por dicha pobreza debían los habitantes de Santa Cruz rebajarse a comer [[chicharro|chicharros]], un pescado pequeño y barato de relativa baja calidad, de donde procede el término, entonces despectivo. Con el tiempo y el crecimiento de Santa Cruz, hasta conseguir el traslado de la capitalidad desde La Laguna, bajo el reinado de [[Fernando VII]] ([[siglo XIX]]), sus ciudadanos tomaron el insulto a honra y asumieron como propio el gentilicio.

==Economía==
[[Image:Botanico 2005.jpg|thumb|right|250px|Jardín Botánico en Puerto de la Cruz]]La [[economía]] tinerfeña, al igual que la de otras islas de Canarias, se basa fundamentalmente en el turismo. Ya en el siglo XIX y gran parte del XX destacaba la afluencia de turismo extranjero, sobre todo del [[Inglaterra|inglés]] debido a los intereses [[agricultura|agrarios]] que poseía en esta isla.

[[Image:Beaches of Tenerife 17.JPG|thumb|left|250px|Playa del Duque, en el sur de Tenerife]]
Más tarde con las guerras mundiales este sector se resiente, pero entrada la segunda mitad del pasado siglo comienza a evolucionar de un modo muy notable. En un principio destaca el Puerto de la Cruz por su bondadoso clima y por todos los atractivos que el [[Valle de la Orotava|Valle norteño de La Orotava]] concentraba, pero persiguiendo captar el turismo de sol y playa, alrededor de 1980 nace el boom turístico del sur de Tenerife, donde destacan ciudades como Arona o Adeje, que hoy albergan más del 65% de las plazas [[hotel]]eras de toda la isla. Tenerife recibe cada año más de 5.000.000 de turistas, siendo de este modo, de entre todo el archipiélago canario, la isla preferida a este respecto. Sin embargo, este dato también pone de manifiesto la gran cantidad de recursos que esta actividad consume (espacio, [[energía]], agua, etc.). A pesar de que más del 60% del [[Producto interior bruto|PIB]] tinerfeño lo constituye el turismo, y en consecuencia el sector servicios, el sector primario y la industria son responsables del 40% restante. En cuanto a la agricultura destacan el [[Plátano de Canarias|cultivo de plátanos]], los [[tomate]]s, la [[vid]]es, las papas y las flores. La pesca supone también gran parte de la economía tinerfeña (Canarias es la segunda región pesquera del estado español). Ya finalmente, y a pesar de los diversos polígonos industriales que existen en el territorio insular, la importancia de la actividad industrial radica en la refinería de [[petróleo]]s de Santa Cruz de Tenerife, la cual suministra productos petrolíferos no sólo al archipiélago canario sino también al mercado [[península ibérica|peninsular]], [[África|africano]] y [[América|americano]].

==Arte==

===Literatura===
[[Imagen:Jose Viera y Clavijo.jpg|thumb|right|200px|José Viera y Clavijo]]
En los siglos XVI y XVII destaca, en el campo de la poesía épica, [[Antonio de Viana]]. Este escritor que nace en La Laguna compuso el poema ''Antigüedades de las Islas Afortunadas'', un material de gran valor antropológico para entender las formas de vida de aquel entonces.
Ya posteriormente, en el llamado Siglo de las Luces (siglo XVIII) aparecen figuras relevantes de la Ilustración en Tenerife como [[José Viera y Clavijo]], [[Tomás de Iriarte]], [[Ángel Guimerá y Jorge]], [[Mercedes Pinto]] o [[Domingo Pérez Minik]], entre otros, que aportan sus obras dentro de esta escena [[literatura|literaria]].

===Pintura===
El primer núcleo de arte [[pintura|pictórico]] en Tenerife se distingue en la ciudad de La Laguna, donde en el transcurso del siglo XVI aparecen algunos pintores de renombre. Más adelante se suman artistas de otros lugares como Garachico, Santa Cruz, La Orotava y Puerto de la Cruz. Originarios de La Orotava son dos de los mejores pintores del archipiélago del siglo XVII, nos referimos a [[Cristóbal Hernández de Quintana]] y [[Gaspar de Quevedo]], con numerosas obras distribuidas por iglesias de la isla.
En el Puerto de la Cruz, concretamente en la [[Iglesia de Nuestra Señora de la Peña de Francia (Puerto de la Cruz)|iglesia de Nuestra Señora de la Peña de Francia]], se puede contemplar la aportación realizada por [[Luis de la Cruz y Ríos]]. Nacido en 1.775, el que fuera pintor de cámara del rey [[Fernando VII]] y miniaturista, obtiene un reconocido prestigio en la Corte, donde se le conoce como ''El Canario''.
En el año 1.849 nace en Santa Cruz de Tenerife el paisajista [[Valentín Sanz]]. El Museo Municipal de Bellas Artes de Santa Cruz cuenta con una abundante muestra de su quehacer. También en este museo capitalino se pueden observar cuadros de [[Juan Rodríguez Botas]] (1.880-1.917), quien es considerado el primer impresionista canario.
Del mismo modo cabe citar, dentro del grupo expresionista, a [[Mariano de Cossío]]. A este autor hay que atribuirle los frescos de la iglesia de Santo Domingo, en San Cristóbal de La Laguna. Por otro lado, en 1.874 nace [[Francisco Bonnín Guerín]], acuarelista de Santa Cruz que formó una escuela para promover su labor pictórica.
Por último, en 1.906 nace en La Laguna uno de los pintores canarios más universales, [[Óscar Domínguez]]. Perteneciente al surrealismo, inventó la técnica de la [[decalcomanía]] y contribuyó con una obra pictórica de internacional reconocimiento.

===Escultura===
Se podría considerar que la práctica [[escultura|escultórica]] comienza en Tenerife a partir del siglo XVII, momento en el cual llega a la isla el arquitecto y escultor [[Martín de Andújar Cantos]] desde Sevilla, donde había recibido instrucciones del maestro [[Juan Martínez Montañés]]. Con él arrivaron nuevas técnicas y planteamientos de la escuela hispalense que transmitió a sus discípulos, entre los que destaca el garachiquense [[Blas García Ravelo]].
Otros escultores que, en esta época y en el posterior siglo XVIII, irrumpen a la escena son [[Sebastián Fernández Méndez]], [[Lázaro González]], [[Rodríguez de la Oliva]], y principalmente el orotavense [[Fernando Estévez]], alumno de [[Luján Pérez]], quien contribuye con una extensa colección de imágenes religiosas y tallas repartidas por diversas iglesias de Tenerife, como por ejemplo, en la [[Catedral de La Laguna]], la [[Iglesia de la Concepción (La Laguna)|Iglesia de la Concepción]] también en La Laguna, la [[Basílica de Candelaria]] y en distintos lugares de culto de La Orotava.
Actualmente, el ámbito escultórico tinerfeño se encuentra representado entre otros por [[José Abad]], [[Fernando Garcíarramos]] y [[José Luis Fajardo]].

===Música===
[[Imagen:Timple Front.jpg|thumb|150px|left|Timple]]
El ámbito [[música|musical]] tiene en la figura de [[Teobaldo Power y Lugo Viña]] uno de sus exponentes más claros. Natural de Santa Cruz, se trata de un pianista y compositor, autor de los [[Cantos Canarios]]. En concreto, los arreglos de la melodía del [[arrorró]] de estos Cantos Canarios constituyen el Himno de la Comunidad Autónoma.
En este campo también destaca el [[folclore]]. Similar al del resto de las islas, se caracteriza por la participación de [[timple]]s, [[guitarra]]s, [[bandurria]]s, [[laúd]]es y distintos tipos de [[instrumentos de percusión]]. Son numerosos los grupos folclóricos que se reparten por la geografía isleña y que suelen aparecer en distintas celebraciones populares como las romerías. En este aspecto habría que citar a [[Los Sabandeños]], quienes conforman un importante símbolo de la cultura canaria. Este grupo folclórico rescató la idiosincrasia del pueblo isleño en un momento en el que el carácter uniformador de la cultura española de los años setenta hace caer prácticamente en la decadencia y el olvido diferentes elementos de la música canaria.
Las canciones típicas de las islas: [[isa (canción)|isa]], [[folía]], [[tajaraste]], [[malagueña]]... se configuran como melodías mestizas entre la música ancestral de los guanches con distintos enlaces entre lo andaluz e hispanoamericano.

===Arquitectura===
Al igual que la que predomina en las otras islas, en la [[arquitectura]] tinerfeña sobresalen las directrices de las casonas señoriales y las de las casas más humildes y populares. Este tipo arquitectónico, que tiene notables influencias de [[Andalucía]] y [[Portugal]], presenta, no obstante una fuerte personalidad propia.
De las casas señoriales hay que subrayar los ejemplos que existen en La Orotava y en La Laguna. Estas edificaciones se caracterizan por sus [[balcón|balcones]] típicos y por la presencia de [[patio interior|patios interiores]]. La madera, especialmente la tea (pino), cobra un gran protagonismo en estas construcciones. Estas casas presentan fachadas no demasiado complejas con poca ornamentación. Son típicos los grandes balcones de madera y el uso de celosías. Las ventanas cierran en guillotina y son habituales los asientos interiores adosados a ellas. Los patios interiores funcionan como verdaderos jardines que sirven para dar iluminación a las habitaciones. Estas se comunican con el patio por medio de galerías rematadas frecuentemente en piedra y madera. Artilugios como las destiladeras, las bombas de agua, los bancos y mesones son elementos que muchas veces forman parte de estos patios interiores.

[[Image:Auditorio de Tenerife 013.JPG|thumb|right|250px|Auditorio de Tenerife]]
En cuanto a las casas tradicionales, estas se caracterizan por ser edificios de escasa altura, con toscas paredes de colores variopintos. En ocasiones la continuidad de estas paredes se ve interrumpida por la presencia de bloques de piedra que asoman a la superficie de forma ornamental. A lo largo de toda la isla son muchos los ejemplos a contemplar de esta arquitectura.

Los edificios oficiales o de carácter religioso se han ido conformando según las distintas corrientes arquitectónicas que en cada momento han imperado. Los núcleos urbanos de las ciudades de La Laguna y La Orotava están declarados como monumentos histórico-artístico nacionales. En los últimos años, por parte de los diferentes gobiernos, ha predominado el concepto de llevar a cabo grandes proyectos, en ocasiones ostentosos, diseñados por reconocidos arquitectos. Entre ellos se podría incluir por ejemplo, la remodelación de la [[Plaza de España (Santa Cruz de Tenerife)|Plaza de España]] por los arquitectos suizos [[Herzog & De Meuron]], el nuevo proyecto del francés [[Dominique Perrault]] de la [[Playa de Las Teresitas]] (que no llegó a salir adelante al estallar un caso de corrupción detrás de dicho proyecto, el llamado [[Caso Las Teresitas]]), el [[Centro Magma Arte & Congresos]], las [[Torres de Santa Cruz]] o el [[Auditorio de Tenerife]]. Este último edificio, obra del arquitecto español Santiago Calatrava se alza al este del Parque Marítimo, en la capital tinerfeña. Uno de sus elementos más destacables es la estampa de su vela alada simulando un barco, que se ha convertido en uno de los símbolos de la isla.

==Cultura==

===Educación===
El nacimiento de la [[educación]] se debe en la isla a las órdenes religiosas. En el año 1530, Tenerife accede a la cultura de la mano de la cátedra de filosofía que, poseen los [[dominico]]s en el convento de [[Iglesia de la Concepción (La Laguna)|La Concepción de La Laguna]]. A pesar de ello, hasta bien avanzado el siglo XVIII no comienzan a funcionar las pocas escuelas que por aquel entonces existían. En este sentido, hay que recalcar el trabajo desempeñado por la Real Sociedad Económica de Amigos del País, que creó diversas escuelas en San Cristóbal de La Laguna. Fue en 1846 cuando se instaura el primer instituto de enseñanza secundaria con el fin de suplir el cierre de la Universidad de San Fernando (''véase'' [[Universidad de La Laguna]]). Anexa a este edificio se fundó en 1850 la primera Escuela Normal Elemental del archipiélago que pasaría a denominarse Escuela Normal Superior de Magisterio en 1866. Así se mantiene esta situación ya que a pesar de que el dictador [[Primo de Rivera]] crease algunos centros, el punto de inflexión lo supone la política educativa que desarrolló la [[Segunda República Española|Segunda República]], de modo que en apenas cuatro años (1929-1933) casi se dobla el número de escuelas existentes. Posteriormente, el inicio de la Guerra Civil y la ulterior dictadura de [[Francisco Franco]] constituyeron un considerable retroceso. La educación en manos de órdenes religiosas tuvo cierta importancia en el devenir de los tinerfeños hasta que en 1970 la Ley General de Educación resta peso a estas instituciones religiosas en favor de los centros públicos. Estos últimos, y ya en menor grado los primeros, comienzan a multiplicarse desde entonces y son impulsados con la instauración de la democracia. Tenerife cuenta a día de hoy con 301 centros de educación infantil, 297 colegios de primaria, 140 de secundaria y 86 institutos de bachiller <ref>http://www.gobcan.es/educacion/DGC/DirCentros/scripts/default.asp?categoria=37</ref>. Además, en la isla existen hasta 5 centros de estudios universitarios o de postgrado: [[Universidad de La Laguna]] (la de mayor presencia), [[Universidad Nacional de Educación a Distancia]], [[Universidad Internacional Menéndez Pelayo]], [[Universidad Alfonso X el Sabio]] y [[Universidad de Vic]] (Escuela Universitaria de Turismo de Santa Cruz de Tenerife)

===Investigación===
[[Image:Obs 2.jpg|thumb|300px|left|[[Observatorio del Teide]], perteneciente al Instituto de Astrofísica de Canarias]]
El campo de la [[investigación]], históricamente, no se ha desarrollado de un modo especialmente relevante. No obstante, entre los centros que se dedican a esta labor destaca sobre todo el [[Instituto de Astrofísica de Canarias]] que tiene sede en esta isla. Asimismo cabría citar el Instituto de Bio-Orgánica [[Antonio González González|Antonio González]], vinculado a la Universidad de La Laguna. También adheridos a esta universidad se encuentran el Instituto de Lingüística Andrés Bello, el Instituto Universitario de la Empresa, el Instituto de Derecho Regional y el Instituto Universitario de Ciencias Políticas y Sociales al igual que el Instituto de Enfermedades Tropicales (perteneciente a la Red de Investigación de Centros de Enfermedades Tropicales, que dispone de siete nodos extendidos a lo largo del país, uno de ellos en Canarias). Con sede en la ciudad del Puerto de la Cruz se encuentra el Instituto de Estudios Hispánicos de Canarias, adscrito al Instituto de Cultura Hispánica de Madrid. En la ciudad de La Laguna se encuentra el [[Instituto Canario de Investigaciones Agrarias]] y el [[Centro Internacional para la Conservación del Patrimonio]]. Otros organismos que trabajan en el ámbito de la investigación que tienen sede en Tenerife son el Instituto Tecnológico de Canarias, el Instituto Vulcanológico de Canarias, la Asociación Industrial de Canarias, el Instituto Tecnológico de Energías Renovables y el Instituto Oceanográfico de Canarias emplazado en la ciudad de Santa Cruz de Tenerife.

==Comunicaciones==
===Aeropuertos===
El principal medio para llegar a Tenerife es el [[avión]]. Existen dos [[aeropuerto|aeropuertos]] en la isla: el [[aeropuerto Reina Sofía]] (Tenerife Sur) y el [[aeropuerto de Los Rodeos]] (Tenerife Norte). A pesar de que el aeropuerto Tenerife Sur es el que recibe mayor número de pasajeros, ambos disponen de vuelos regulares con las capitales de otras islas, con muchas ciudades peninsulares (Madrid, Barcelona, Sevilla, Valencia, Málaga, Bilbao, etc.), con ciudades europeas del [[Reino Unido]], [[Alemania]], [[Francia]] e [[Italia]] entre otras y también con ciudades americanas y africanas. Teniendo en cuenta los dos aeropuertos, Tenerife es la isla canaria que más pasajeros recibe anualmente. Debido al [[turismo]], es fácil encontrar vuelos directos más económicos con las principales ciudades alemanas o británicas que con las peninsulares.

===Puertos===
Además del avión, Tenerife tiene dos [[puerto marítimo|puertos marítimos]] principales que le sirven de conexión. El [[Puerto de Santa Cruz de Tenerife|Puerto de Santa Cruz]] que conecta con las capitales de cada isla, y en particular con aquellas de la provincia oriental, y el [[Puerto de Los Cristianos]] que se centra en mayor medida en las comunicaciones con las capitales de la provincia de Santa Cruz de Tenerife. Además es posible el tráfico de pasajeros entre los Puertos de Santa Cruz de Tenerife y Cádiz y viceversa. Está previsto construir un gran puerto de importancia en el sur de la Isla, el de Granadilla, y otro en la parte oeste, en Fonsalía.

===Guaguas===
La isla cuenta también con una extensa red de [[guagua]]s tanto urbanas como interurbanas que conectan la gran mayoría de los núcleos de población. Para ello cuenta con estaciones de guaguas en todas las ciudades, como el [[Intercambiador de Transportes de Santa Cruz de Tenerife]].

===Ferrocarril===
[[Image:Tranvía de Tenerife.jpg|thumb|right|250px|El tranvía en Ofra (Santa Cruz de Tenerife) en fase de pruebas (2007)]]
El 2 de junio de 2007 se inauguró la [[Línea 1 (Tranvía de Tenerife)|línea 1]] del [[Tranvía de Tenerife]], que une destacados sectores del [[Área metropolitana de Santa Cruz de Tenerife-La Laguna|conurbación Santa Cruz-La Laguna]] y puntos como los dos centros hospitalarios de la zona. La segunda fase, que empezará a ejecutarse a pricipios de 2008, unirá los Barrios de Tincer (perteneciente a Santa Cruz) y La Cuesta (La Laguna), que estarán unidos por la Línea 1. Más adelante se construirán otras líneas como la que unirá la Avenida de la Trinidad (La Laguna) con el Aeropuerto de Tenerife Norte (Los Rodeos); y el [[Intercambiador de Transportes de Santa Cruz de Tenerife]] con la [[playa de Las Teresitas]].

Perteneciente a la misma empresa que explota el [[Tranvía de Tenerife]], en 2008 se espera que comience, tras la aprobación de su construcción por el pleno del [[Cabildo Insular de Tenerife]] el 27 de abril de 2007, los trabajos para habilitar un tren que unirá [[Santa Cruz de Tenerife]] con el sur de la isla. El recorrido total será de 80 kilómetros y tiene previsto realizar su trayecto completo en 35 minutos y si tuviera que parar en todas las estaciones, lo haría en 45 minutos. En la reforma actual de la [[Autopista del Sur de Tenerife|autopista del sur]] (TF-1), en algunos tramos ya es visible el lugar por donde discurrirá ese tren.

==Sanidad==
El principal centro sanitario de la Isla es el [[Hospital Universitario de Canarias]], en el municipio de San Cristóbal de La Laguna aunque justo en el límite con Santa Cruz de Tenerife. Muy cerca, ya en este municipio, se encuentra el [[Hospital Universitario Nuestra Señora de Candelaria]], recientemente incorporado a la red docente de la ULL, aunque ya hace tiempo la Escuela de Enfermería de este hospital estaba adscrita a la Facultad de Enfermería de la Universidad de La Laguna, con sede en el HUC.

Además, se están construyendo dos nuevos hospitales para las zonas norte y sur de la isla. Cuando estén finalizados, la isla dispondrá de cuatro centros hospitalarios junto a sus autopistas, si bien el HUC seguirá siendo el de referencia.

==Religión==
[[Imagen:Tenerife.candelaria.exterior.basilica.jpg|thumb|300px|Plaza y [[Basílica de Candelaria]] ([[Tenerife]], [[España]])]]
[[Imagen:Hermano Pedro.jpg|200px|thumb|Imagen del Santo [[Hermano Pedro]], en la cueva donde pastaba su ganado.]]
Al igual que ocurre en el resto del estado español, la sociedad tinerfeña se declara mayoritariamente católica. No obstante, las crecientes corrientes migratorias (turismo, inmigración ilegal, etc.) están incrementando el número de fieles de otras religiones que se dan cita en la isla. Son numerosas las advocaciones que existen, sin embargo, aquí tiene lugar cada año una de las peregrinaciones más importantes del archipiélago, debido a la celebración de la festividad de la '''[[Virgen de Candelaria|La Virgen de Candelaria]]''' ('''Patrona de Canarias''', de la '''Diócesis Nivariense''' y de la isla), quien representa la unión de las culturas [[guanche]] y española. Los guanches tomaron como propia la imagen que los misioneros de [[Lanzarote]] y [[Fuerteventura]] dejaron en una playa próxima a la actual Villa Mariana de Candelaria. A partir de ahí, la historia y la leyenda de esta imagen, se entrelazan y dan paso al culto y peregrinación que hasta nuestros días mantienen los habitantes de las islas y de Tenerife en particular. En este aspecto, hay que nombrar también a la Virgen de Los Remedios, la cual es la copatrona de la [[Diócesis Nivariense]] (Diócesis de la provincia). En cuanto a los principales núcleos o templos religiosos destacan:

*'''[[Basílica de Candelaria]]''': Es el lugar en el que se encuentra la imagen de la Virgen de Candelaria (Patrona de Canarias). Este santuario de estilo neoclásico es frecuentado diariamente por los feligreses que se dirigen hasta la Villa Mariana en devoción a su patrona.

*'''[[Catedral de La Laguna]]''': Es la sede de la Diócesis Nivariense. En ella se venera a la Virgen de Los Remedios. Consiste en un edificio que combina elementos neogóticos con neoclásicos localizado en la ciudad de La Laguna. Actualmente, y desde hace varios años se encuentra cerrada al culto debido a unas obras de restauración y reconstrucción que no terminan de acontecer.

*'''[[Iglesia de la Concepción (La Laguna)|Iglesia de la Concepción de La Laguna]]''': Se trata uno de los edificios más antiguos de Tenerife, pues constituye la iglesia matriz de la isla, mandada a construir por Alonso Fernández de Lugo en 1.496. Ha sido declarado Monumento Histórico Nacional. A su alrededor se organizó todo el entramado que dio lugar a la ciudad de [[San Cristóbal de La Laguna]]. Actualmente, se puede acceder a la parte alta de la torre para contemplar gran parte de la ciudad.

Hay otros edificios religiosos de cierta relevancia, especialmente en el Valle de la Orotava, como puede ser la Iglesia de la Concepción de la Orotava, o en la capital, como es la [[Iglesia Matriz de la Concepción (Santa Cruz de Tenerife)]]. También destacar la [[Iglesia de San Andrés (Tenerife)|Iglesia de San Andrés Apóstol]] en la localidad de [[San Andrés (Tenerife)|San Andrés]], una de las iglesias más antiguas de la isla.

Es importante señalar también a [[Pedro de San José Betancur]] ([[Hermano Pedro]]), '''Primer Santo Canario''', nacido en el municipio de [[Vilaflor]]. Su principal santuario es una cueva situada en el municipio de [[Granadilla de Abona]] (sur de la isla), en esta cueva se dice que el hospedaba su ganado. El Santo Hermano Pedro fué muy devoto de la Virgen de Candelaria, a cuyo santuario solía [[peregrinación|peregrinar]] con frecuencia.

==== Patronazgo de la isla ====

*[[San Miguel Arcángel]], es el Santo Patrono de la isla de Tenerife y del [[San Cristóbal de La Laguna|Ayuntamiento de La Laguna]], de hecho su imagen aparece en el escudo insular, que fue concedido por [[Fernando el Católico]], el [[23 de marzo]] de [[1510]], en nombre de su hija la reina [[Doña Juana]].

*La Patrona de Tenerife es la [[Virgen de Candelaria]] (siendo además la Patrona de Canarias). Su festividad es el 15 de agosto, día de la Ascunsión (festivo en Canarias) y el 2 de febrero, este último día festivo en la isla.

=== Museos ===
La isla cuenta con diversos recintos museísticos de diferente naturaleza que están bajo el dominio de distintas instituciones. Quizás los más destacados sean los pertenecientes al [[Organismo Autónomo de Museos y Centros]],<ref>[http://www.museosdetenerife.org/index.php?al_id_mus=6 Organismo autónomo de museos y centros]</ref> que dispone de los siguientes espacios:
* '''[[Museo de la Naturaleza y el Hombre]]''': localizado en Santa Cruz de Tenerife, este museo ofrece una visión de la riqueza natural de las Islas Canarias y de las poblaciones prehispánicas [[guanche]]s que en ellas habitaban. El complejo está integrado por tres museos:
** '''Museo de Ciencias Naturales'''
** '''Museo Arqueológico de Tenerife'''
** '''[[Instituto Canario de Bioantropología]]'''
* '''[[Museo de Historia de Tenerife]]''': enclavado en la ciudad de [[San Cristóbal de La Laguna|La Laguna]], el museo de historia presta una visión general del desarrollo institucional, social, económico y cultural de la Isla entre los siglos XV y XX.
* '''[[Museo de la Ciencia y el Cosmos]]''': también situado en [[San Cristóbal de La Laguna|La Laguna]] contiguo a las dependencias del [[Instituto de Astrofísica de Canarias]] este museo acerca al visitante a las leyes y principios que rigen la Naturaleza, desde el funcionamiento de su propio cuerpo hasta el de las estrellas.
* '''[[Museo de Antropología de Tenerife]]''': Situado en [[San Cristóbal de La Laguna|La Laguna]], concretamente en [[Valle de Guerra]] el Museo de Antropología de Tenerife es una institución pública dedicada a investigar, conservar y difundir la cultura popular.
* '''[[Centro de Documentación Canario-Americano (CEDOCAM)]]''': Con domicilio en [[San Cristóbal de La Laguna|La Laguna]] tiene como misión potenciar las relaciones culturales y los elementos de identidad comunes entre Canarias y [[América]], así como la conservación, información y difusión del patrimonio documental compartido.
* '''[[Centro de Fotografía Isla de Tenerife]]''': ubicado en [[Santa Cruz de Tenerife]] este recinto ofrece un programa anual de exposiciones que permiten el contacto con tendencias y obras de distintos autores de renombre y creadores emergentes de las propias islas. En un futuro este centro compartirá sede con el Instituto Óscar Domínguez de Arte y Cultura Contemporánea.
* '''[[TEA - Tenerife Espacio de las Artes]]''': situado también en la ciudad de [[Santa Cruz de Tenerife]] este museo aún por inaugurar busca promover el conocimiento de las diferentes tendencias del arte y la cultura contemporáneos entre la población local y foránea, propiciando la organización de actividades culturales, científicas, educativas y técnicas.

Desligados del Organismo Autónomo de Museos y Centros destacan:

* El '''[[Convento de San Francisco (Santa Cruz de Tenerife)|Museo Municipal de Bellas Artes]]''', en la capital tinerfeña, que muestra una exposición permanente de pinturas y esculturas de [[José de Ribera]], [[Federico Madrazo]], [[Joaquín Sorolla]] y de artistas canarios como Millares u [[Óscar Domínguez]].
* La '''Casa del Vino-La Baranda''' que, perteneciente a la Asociación de Museos del Vino de España,<ref>[http://www.museosdelvino.es/listaSocios.htm Socios de la Asociación de Museos del Vino de España]</ref> está emplazada en el municipio de [[El Sauzal]] y dispone entre sus instalaciones de una ''hacienda'' histórica rústica, un ''museo'' que permite conocer la historia vitivinícola de Tenerife, un ''restaurante'' que ofrece comida típica de la tierra, una ''vinoteca'', una ''sala audiovisual'' y una ''sala de degustación''.
* La '''Casa de la Miel''': anexa a la Casa del Vino-La Baranda, es una entidad creada por el Cabildo Insular con el fin de apoyar y desarrollar el sector apícola de Tenerife. La [[Casa de la Miel]] dispone de un centro de visitantes que ofrece una visión acerca de la historia del producto en la isla, su proceso de elaboración y serviciós de información y degustación de las mieles de Tenerife, que poseen denominación de origen.<ref>[http://www.casadelamiel.org/miel.html Página de la Casa de la Miel de Tenerife]</ref>
* El '''Museo de Artesanía Iberoamericana''' que se encuentra ubicado en el antiguo convento de San Benito Abad, de [[La Orotava]]. El centro se encuadra dentro del programa de divulgación que ejecuta el Centro de Documentación de la Artesanía de España y América,<ref>[http://es.geocities.com/cdiaea/museo/ Página oficial del Museo de Artesanía Iberoamericana]</ref> Fundación financiada por el Ministerio de Industria, Comercio y Turismo; la [[Agencia Española de Cooperación Internacional]], la Comisión Nacional "Quinto Centeneario", la Consejería de Industria y Comercio del [[Gobierno de Canarias]] y el [[Cabildo Insular de Tenerife]]. Cuenta con cinco salas especializadas en ''Instrumentos musicales populares'', ''Textil-nuevos diseños en artesanía'', ''Cerámicas'', ''Fibras'' y ''Arte Popular''.
* El '''[[Museo Arqueológico del Puerto de La Cruz]]''': sito en la ciudad homónima y habilitado sobre una casona tradicional de los siglos XVIII-XIX, ofrece un fondo museográfico integrado por más de 2.600 registros de elementos de la cultura [[guanche]] y un fondo documental que lleva el nombre del investigador Luis Diego Cuscoy.<ref>[http://www.arqueopc.museum/nuevo/pagina.asp?id=3 Fondo museográfico del espacio]</ref>
* El '''[[Museo Militar Regional de Canarias]]''', localizado en Santa Cruz de Tenerife, concretamente en el [[Fuerte de Almeyda|acuartelamiento de Almeyda]]. En sus salas se presenta toda la historia militar de Canarias, incluyendo el repelido ataque del [[Horacio Nelson|almirante Nelson]], así como otros eventos y batallas libradas en las islas. Aparte del Museo Histórico Militar de Canarias este inmueble dispone del Archivo Intermedio Militar de Canarias y la Biblioteca Militar de Canarias.<ref>[http://www.ejercito.mde.es/ihycm/chycm/index.html Página oficial del Centro de Historia y Cultura Militar de Canarias]</ref>

== Fiestas tradicionales ==
Tenerife tiene un amplio calendario festivo en el que destaca principalmente el [[Carnaval de Santa Cruz de Tenerife]], el más importante del país y uno de los más importantes del mundo.<ref>{{cita web
|url=http://www.canarias7.es/articulo.cfm?Id=131352
|título=Canarias 7. Tenerife. El Carnaval de Santa Cruz de Tenerife, candidato a Tesoro del Patrimonio Cultural Inmaterial de España 
|añoacceso=2009
|autor=
|enlaceautor=
|idioma=
}}</ref><ref name=repetida_3 /> El día oficial de la isla es el [[2 de febrero]] en honor de la [[Virgen de Candelaria]] (patrona de la isla y [[Patrona de Canarias]]). Otras fiestas destacables son sus romerías, el Corpus Christi, la Semana Santa y la fiesta del [[Santísimo Cristo de La Laguna]] el [[14 de septiembre]].

=== Carnaval ===
Quizás la fiesta de mayor repercusión nacional e internacional sea el [[Carnaval de Santa Cruz de Tenerife]], no en vano declarado [[Fiestas de Interés Turístico Internacional (España)|Fiesta de Interés Turístico Internacional]].<ref>[http://www.carnavaltenerife.es/staticpages/index.php?page=1.presentacion Página oficial del Carnaval de Santa Cruz de Tenerife]</ref> Aparte de la capital, el carnaval se celebra en múltiples localidades del norte y sur de la isla, pero es en la primera donde tiene mayor envergadura.<ref>[http://www.puntoinfo.idecnet.com/index.php?ID=4758&s=6&sectionID=45&lang=1&hilite=carnaval Información del Cabildo Insular acerca de todos los carnavales de Tenerife]</ref> Son diversos los concursos que se programan: murgas, comparsas, [[Rondallas de Tenerife|rondallas]], agrupaciones, etc. Con la elección de la reina adulta se pone fin a éstos y comienza lo que los tinerfeños denominan carnaval en la calle con importantes concentraciones de carnavaleros en el centro de Santa Cruz, que se prolongan durante diez días de fiesta.<ref>[http://www.sctfe.es/index.php?id=627 Apartado de Fiestas de la página web del Ayuntamiento de Santa Cruz de Tenerife]</ref>

=== Romerías ===
Las fiestas populares más tradicionales y extendidas en Tenerife son quizás las [[romerías]].<ref>[http://www.webtenerife.com/PortalTenerife/Home/Disfruta+sin+perderte+nada/Mas+sobre+Tenerife/Tradiciones/Fiestas/ROMERIAS.htm?wbc_purpose=Basi&Lang=es Turismo de Tenerife]</ref> Éstas, a caballo entre lo pagano y lo religioso son manifestaciones multitudinarias con carrozas o carretas, [[apero]]s y [[ganado]] en honor al [[santo patrón|patrón o patrona]] del lugar. Es frecuente en estos festejos la reunión de marcados factores identitarios de la etnografía isleña: folclore, danza, artesanía, comida típica, deportes autóctonos, donde se puede observar a gran parte de los asistentes ataviados con los diferentes [[traje de mago|trajes de mago]] típicos de las islas.[[Imagen:Reina carnaval.jpg|thumb|right|250px|Reina del Carnaval de Santa Cruz de Tenerife]]
En origen las romerías encarnaban fiestas de las clases más adineradas de la sociedad, que se congregaban en veneración de los santos a los que atribuían buenas cosechas, tierras fértiles, copiosidad de lluvias, exoneración de determinadas enfermedades y un largo etcétera. En consecuencia, los allí reunidos degustaban los alimentos y vinos de la tierra y, brindaban y compartían sus bienes rindiendo así pleitesía. Éstas celebraciones se fueron popularizando paulatinamente y dieron paso a una de las fiestas más emblemáticas de la actualidad. Dentro de las grandes romerías de la isla cabe señalar las romerías de San Marcos en Tegueste, donde las carretas son decoradas con productos del campo (semillas, cereales, flores, etc), San Isidro Labrador en Los Realejos, San Isidro Labrador y Santa María de la Cabeza en La Orotava, San Benito Abad en La Laguna, San Roque en Garachico, San Agustín en Arafo o la Romería-Ofrenda a la [[Virgen de Candelaria]] celebrada cada 14 de agosto. Otro acto significativo de la fiesta de la Virgen de Candelaria es la llamada "[[Caminata a Candelaria]]", realizada en la noche del 14 al 15 de agosto, en el cual los fieles hacen peregrinación a pie desde diferentes partes de la isla, incluso llegando de otras islas, hasta llegar a la Villa Mariana de [[Candelaria]].

=== Fiestas de la Virgen de Candelaria ===

{{AP|Virgen de Candelaria}}
La [[Virgen de Candelaria]] es la [[Patrona de Canarias]]. Su fiesta es celebrada dos veces al año, en [[febrero]] y en [[agosto]]. La Romería-Ofrenda a la [[Virgen de la Candelaria|Virgen de Candelaria]] se celebra cada 14 de agosto. En este acto es tradición que representaciones de todos los municipios de la isla y también de todas las islas del Archipiélago Canario acudan a ofrendar a su Patrona. Otro acto significativo de la fiesta de la Virgen de Candelaria es la [[Caminata a Candelaria|peregrinación a la Villa Mariana]] realizada en la noche del 14 al 15 de agosto, en la cual los fieles recorren andando multitud de kilómetros desde diferentes partes de la isla hasta llegar a la [[Candelaria (Santa Cruz de Tenerife)|Villa Mariana de Candelaria]], lugar donde se encuentra la venerada imagen de la Virgen de Candelaria. Es habitual recibir peregrinos de otras islas e incluso de otras partes de España.

El [[2 de febrero]] se celebra la [[Fiesta de la Candelaria|Fiesta Litúrgica de La Candelaria]]. También en este día se acercan a la villa muchos fieles de la ''Virgen Morenita''. Es también tradición que cada siete años la imagen de la Virgen sea trasladada alternativamente por dos semanas a las ciudades de [[Santa Cruz de Tenerife]] (capital) y [[San Cristóbal de La Laguna]] (sede de la diócesis). Las últimas dos veces que se ha efectuado dicho traslado han sido en octubre de [[2002]] a Santa Cruz y en mayo de [[2009]] a La Laguna. Las próximas serán en [[2016]] a Santa Cruz y en [[2023]] a La Laguna.

=== Fiestas del Santísimo Cristo de La Laguna ===

{{AP|Santísimo Cristo de La Laguna}}
Esta Festividad Litúrgica que, tiene varios siglos de historia, es celebrada cada [[14 de septiembre]] en la ciudad de [[San Cristóbal de La Laguna]] y gira en torno al [[Santísimo Cristo de La Laguna]]. El Cristo de La Laguna es una de las imágenes más veneradas de las Islas Canarias, junto con la [[Virgen de Candelaria]], especialmente en la isla de Tenerife, es la imagen [[Cristología|Cristológica]] más venerada de Canarias,<ref>[http://www.cristodelalaguna.org/vernew.php?id=359 Fiestas en honor al Santísimo Cristo de La Laguna, la imagen cristológica más venerada de Canarias, en la Página Web de su Hermandad]</ref> y la imagen religiosa más antigua del archipiélago.

Cada [[9 de septiembre]] la venerada imagen del Cristo es bajada en público del altar mayor de su [[Real Santuario del Cristo de La Laguna|Real Santuario]], para el rito del [[besapiés]] y para más tarde ser colocada en el [[trono]] procesional, para sus fiestas mayores de septiembre. La imagen permanece en su trono procesional hasta el [[21 de septiembre]], día en que la sagrada imagen es subida de nuevo a su altar. Durante este tiempo la imagen es solemnemente trasladada hasta la [[Catedral de La Laguna]] (9 de septiembre), en la cual procesiona en una cruz repujada en [[plata]]. En dicha catedral permanece durante varios días, hasta el día [[14 de septiembre]], cuando se procede al traslado de vuelta a su Real Santuario.

=== Corpus Christi ===
[[Imagen:Plaza-centro.jpg|thumb|left|250px|Tapiz de la Plaza del Ayuntamiento en La Orotava.]]
Con marcado carácter religioso se encuentra la festividad del [[Corpus Christi]], en la que es habitual la confección de alfombras florales en las calles. A título especial se pueden incluir las realizadas en [[La Orotava]], donde se puede contemplar un tapiz de considerables dimensiones confeccionado en la plaza del ayuntamiento mediante tierras volcánicas de diversas tonalidades, extraídas del [[Parque Nacional del Teide]] que, tras la celebración son devueltas a fin de respetar el entorno del Parque. La festividad del Corpus Christi de La Orotava está declarada Bien de Interés Cultural en la categoría de Actividad Tradicional de Ámbito Insular.<ref>[http://www.villadelaorotava.org/fiestas.php?op2=19 Página del ayuntamiento de la Villa de La Orotava]</ref>

=== Semana Santa ===
{{AP|Semana Santa en Canarias}}
En el capítulo de celebraciones a reseñar de la isla de Tenerife habría que contar con la [[Semana Santa]]. Esta se celebra en todos los municipios pero probablemente sea en La Laguna, La Orotava y Los Realejos donde adquiera especial significado. En este sentido destacan principalmente las procesiones que se desarrollan durante el [[Jueves Santo]], [[Viernes Santo]] y [[Domingo de Resurrección]]. La [[Semana Santa de San Cristóbal de La Laguna]] es considerada como la Semana Santa más importante y multitudinaria de las que se celebran en Canarias.<ref>[http://viajes.abc.es/noticia.asp?viajes=2033&titulo=Semana-Santa-en-La-Laguna%3A-sol%2C-fe-y-cultura/ Semana Santa en La Laguna: sol, fe y cultura]</ref>

==Gastronomía==

===Pescados===
Como resulta lógico por la influencia marina, los productos del mar gozan aquí de cierta abundancia tanto en cantidad como en variedad. Entre las especies más apreciadas están las [[vieja]]s, y también, entre otros, la [[sama]], el [[bocinegro]], la [[salema]], el [[cherne]], el [[mero]]... Destacan asimismo los diversos tipos de [[túnido]]s que abundan en sus costas. Las caballas, sardinas y chicharros también deben ser citadas entre los pescados más consumidos. Otra especie que disfruta de cierta fama es la [[Muraenidae|morena]], que se suele servir frita. Estas variedades marinas se suelen preparar simplemente sancochadas (cocidas), o a la espalda, a la sal, etc. Es frecuente que se acompañen con [[mojo]] y [[papas arrugadas]].

===Carnes===
En el apartado de [[carne]]s, es un plato muy popular la típica carne de fiesta (tacos de [[carne de cochino]] adobados) que se prepara para los festejos de los pueblos en ventorrillos, bares y casas particulares. El conejo en salmorejo, el cabrito, y por supuesto el vacuno, el porcino y las carnes de ave son también consumidas habitualmente.

===Papas Arrugadas===
[[Imagen:Papasarrugadas.jpg|thumb|right|250px|Papas arrugadas con mojo]]
Tanto los pescados como las carnes suelen acompañarse con [[papas arrugadas]]. Es este un plato típico del conjunto de las Canarias que responde simplemente a la forma de cocinar las papas. Con agua, mucha sal, y sin pelar.

===Mojos===
Con esta palabra, seguramente de ascendencia portuguesa, se designan las salsas típicas del las islas. Los [[mojo]]s constituyen un auténtico mundo de sabores, colores, texturas, etc., entre los que se encuentran el mojo de [[cilantro]], de [[perejil]], de [[pimentón]] y el distinguido mojo picón a base de [[pimienta]]. No obstante el abanico de estas salsas es muy amplio y permite el uso de distintos ingredientes en su elaboración como [[almendra]]s, [[queso]], [[azafrán]], pan frito, entre otras posibilidades.

===Quesos===
Viene a ser otro de los platos más comúnmente elaborados y consumidos. Destacan los producidos en granjas de Arico, La Orotava o Teno. A su vez, son diversas variedades las que existen: quesos tiernos, curados, semicurados, ahumados… Hoy en día predominan los quesos de [[cabra]], aunque en ocasiones se confeccionan con ciertas cantidades de leche de [[oveja]] o de [[vaca]]. Suelen servirse a modo de entrante o simplemente de tentempié. Los quesos canarios gozan de una buena crítica internacional, entre otras cosas, por su suavidad y por su sabor, dotándolos de una personalidad que los diferencia de otros quesos europeos.

===Gofio===
[[Imagen:Gofioescaldado.jpg|thumb|right|250px|Gofio escaldado]]
El [[gofio]] es uno más de los elementos tradicionales de la cocina canaria y particularmente de Tenerife. Se realiza con granos de cereales que son tostados y posteriormente molidos. El género de mayor consumo en la isla es el de [[trigo]], aunque existen otros tipos como el de [[millo]] o en menor medida el de [[garbanzo]]. Es también relativamente frecuente aquel de tipo mixto, trigo-millo. Desde incluso antes de la conquista de Canarias ya servía de sustento para los guanches. En posteriores tiempos de hambruna y escasez de alimentos formó parte de la dieta popular canaria. Hoy en día se utiliza como plato único (gofio escaldado) o como complemento en platos de distinta índole, carnes, pescados, potajes, postres, incluso algún cocinero de prestigio ha confeccionado [[helado]]s de gofio recibiendo buena crítica al respecto.

===Repostería===
La [[repostería]] en Tenerife se encuentra representada y fuertemente influenciada por la repostería palmera, con exquisiteces como el bienmesabe, la leche asada, el Príncipe Alberto, el frangollo, los huevos moles, el quesillo y un largo etcétera. Del mismo modo, los rosquetes, las truchas, y diversos tipos de pasteles, entre los que se encuentran los laguneros y los singulares rosquetes de Guía de Isora, forman parte de este capítulo del recetario.

===Vinos===
El cultivo de la [[vid]] en el archipiélago y especialmente en Tenerife nace tras la conquista, cuando los colonizadores traen variedades de viñas y comprueban la nobleza que adquirían los caldos canarios. En los siglos XVI y XVII, el [[vino]] alcanza un gran peso en la economía tinerfeña pues son muchas las familias que se dedicaban a su cultivo y posterior negocio. Especial mención merece el malvasía canario, que llegó a ser considerado el mejor vino del mundo y era ansiado por las cortes europeas y las mayores bodegas de Europa y América. Escritores como [[William Shakespeare]] o [[Walter Scott]] hacen referencia en algunas de sus obras a estos vinos. La isla presenta actualmente cinco denominaciones de origen: '''Abona''', '''Valle de Güímar''', '''Valle de La Orotava''', '''Tacoronte-Acentejo''' e '''Ycoden-Daute-Isora'''.

==Referencias==
<references/>

== Véase también ==
* [[:categoría:Tinerfeños|Tinerfeños ilustres]]
* [[Erupciones históricas de Tenerife]]
* [[Bandera de Tenerife]]
* [[Teide]]
* [[Auditorio de Tenerife]]
* [[Achinech]]
* [[Nivaria]]

==Enlaces externos==
* [http://www.tenerife.es Cabildo Insular de Tenerife]
* [http://www.puntoinfo.idecnet.com/ Tenerife Punto de Información]
* [http://www.auditoriodetenerife.com Auditorio de Tenerife]
* [http://www.taliateatro.org Grupo Teatral Talía]
* [http://sapiens.ya.com/floraypoesia/flora.htm Flora silvestre de Tenerife (Por zonas)]
* [http://sapiens.ya.com/floraypoesia/indices.htm Flora silvestre de Tenerife (Indices alfabéticos)]

[[Categoría:Tenerife]]

Tenerife

2026-02-06T05:07:18Z

GeminiFix:

Tenerife

2026-02-06T05:07:00Z

GeminiFix:

{{Ficha_Isla |
|bandera = [[Imagen:Flag of Tenerife.jpg|25px]]
|imagen = [[Imagen:Nasa world wind - teneriffa.jpg|230px|Fotografía de satélite de Tenerife]]
|mapa = [[Imagen:TF Canarias.jpg|230px|Mapa de situación de la isla de Tenerife]]
|archipiélago = Islas Canarias
|escudo = [[Imagen:HeráldicaTenerife.jpg|40px]]
|superficie= 2.034,38 km2 
|océano = Océano Atlántico
|coordenadas = 28° 16′ 07″ N 16° 36′ 20″ O
|altitud = 3.718 m ([[Pico del Teide]])
|capital = [[Santa Cruz de Tenerife]]
|gentilicio = Tinerfeño/a.
|población = 838.877 (censo de 2005)
|densidad = 412,4 hab./km2
|presidente = Ricardo Melchior
|partido = CC
|tipo = -
|}}

'''Tenerife''' es una isla de [[Canarias]] situada en el [[Océano Atlántico]] frente a las costas africanas. Junto a [[La Palma]], [[La Gomera]] y [[El Hierro]] conforma la [[provincia de Santa Cruz de Tenerife]]. Su capital es [[Santa Cruz de Tenerife]], que además lo es también de Canarias conjuntamente con [[Las Palmas de Gran Canaria]]. Entre [[1833]] y [[1927]] Santa Cruz de Tenerife fué la capital única de Canarias, hasta que en 1927 un decreto ordenó que la capitalidad de Canarias sea compartida, que es como permanece en la actualidad.
[http://es.wikisource.org/wiki/Real_Decreto_de_30_de_noviembre_de_1833 ''Real Decreto de 30 de noviembre de 1833'']
[http://www.gobiernodecanarias.org/tuestatuto/docs/1833-12-03%20Decreto%20de%20division%20provincial.pdf ''Real Decreto de 30 de noviembre de 1833'']
Otra ciudad con gran importancia para la isla y Canarias es, [[San Cristóbal de La Laguna]] (tercera ciudad más importante del archipiélago, tras Santa Cruz de Tenerife y Las Palmas de Gran Canaria). Tenerife es un destino turístico importante en España y en el mundo.

Tenerife, con 865.070 habitantes (casi un millón de habitantes), es la isla más poblada de Canarias y de [[España]]. Es además la isla canaria que más municipios posee en su territorio, 31 en total. Tiene el Área Metropolitana más grande y extensa del Archipiélago Canario con 366,85 kilómetros cuadrados ([[Área metropolitana de Santa Cruz de Tenerife-La Laguna]]). Por lo tanto, es también el área metropolitana más grande de la [[Unión Europea]] fuera de [[Europa]] (como región periférica).

En Tenerife además se encuentra la mayor elevación de España, de las islas atlánticas y tercer volcán más grande del mundo desde su base, El [[Teide]], declarado también [[Patrimonio de la Humanidad]].
[http://www.webtenerife.com/PortalTenerife/Home/Disfruta+sin+perderte+nada/Mas+sobre+Tenerife/Naturaleza/Espacios+naturales/Parque+Nacional+de+El+Teide/?Lang=es Parque nacional del Teide: web oficial de Turismo de Tenerife]

== Toponimia ==
Son diversos los nombres que las distintas culturas han atribuido a Tenerife a lo largo de la historia. Así por ejemplo, para los [[guanche]]s, la isla recibía el nombre de '''Achined, [[Achinet]]''' o '''Chenet''', aunque en función de la bibliografía que se consulte, la nómina puede adquirir diferentes variaciones ortográficas. Los [[Antigua Roma|romanos]] se referían a ella como '''[[Nivaria]]''' (del latín ''nix'', ''nivis'', ''nieve''), en clara referencia a las nieves posadas sobre el volcán conocido como el [[Teide]]. Los nombres de Achined y Nivaria todavía se utilizan en referencia a Tenerife, sobre todo en un sentido patriótico por los habitantes de la isla. En esa misma dirección apuntan algunos mapas de los siglos XIV y XV, que de manos de Bontier y Le Verrier se refieren a la isla como '''Isla del Infierno''' a razón de los procesos eruptivos de los que el volcán era protagonista. Finalmente, el propio Teide es el responsable del nombre actual de la isla, ya que fue dado por los benahoaritas (aborígenes de La Palma) según las palabras '''Tene''' (''montaña'') e '''ife''' (''blanca''). Posteriormente, la castellanización del nombre provocó que se añadiera una "r" para unir ambas palabras obteniendo como resultado Tenerife.

==Descripción==
Su orografía es abrupta y volcánica, producto de erupciones (la más reciente fue el Chinyero en 1909). Es la isla más poblada de Canarias y de España con 838.877 habitantes [http://www.ine.es Instituto Nacional de Estadística de España], 01-01-2005 y 2.034 [[kilómetro cuadrado|km²]] de superficie.

[[Imagen:Panorama Teide BW.jpg|800px|thumb|center|Panorámica del circo de Las Cañadas del Teide.]]

===Situación y extensión===
Tenerife es la mayor de las siete islas que componen el Archipiélago Canario; está situada entre los paralelos 28 y 29 N y los meridianos 16 y 17 O, ligeramente al Norte del Trópico de Cáncer, y ocupa una posición central entre las islas de Gran Canaria, La Gomera y La Palma.

La isla se encuentra a algo más de 300 Kms. del continente africano y a unos 1.000 Kms. de la Península Ibérica

Tiene 2.034 km² de superficie y una curiosa forma triangular, alzándose en su centro el gigantesco [[Pico del Teide]], que con sus 3.718 metros de altura es el punto más elevado de toda el Estado Español.

Para referirse a sus habitantes se utiliza el gentilicio '''Tinerfeño'''. Otro gentilicio utilizado, generalmente por personas de otras islas, es el de '''chicharrero''', el cual en principio iba referido sólo a los habitantes de Santa Cruz de Tenerife, capital de la isla, y teniendo una cierta carga despectiva en su origen.

=== Origen y formación ===
[[Imagen:Formación Tenerife.jpg|thumb|180px|right|Esquema general de la formación de Tenerife.]]
Tenerife es una isla de origen volcánico, cuya formación comenzó a gestarse en el fondo oceánico hace unos 20-50 millones de años (m.a.).

Según una de las teorías más aceptadas actualmente por la comunidad científica ('''Teoría de los bloques levantados'''), el ascenso de [[magma]] procedente del manto terrestre se produce en periodos de actividad [[tectónica de placas|tectónica]] a partir de fallas o fracturas que existen en el [[placa oceánica|fondo oceánico]]. Éstas siguen los ejes estructurales de la isla, y se conformaron durante la orogenia [[Alpes|Alpina]] de la [[Era Terciaria]] por el movimiento de la [[placa Africana]]. Estas erupciones de tipo fisural submarino originan las denominadas [[lava#lava almohadillada|lavas almohadilladas o pillow-lavas]], que se producen por el rápido enfriamiento que experimenta el magma al establecer contacto con el agua, obteniendo así una forma muy característica. Estos materiales se fueron acumulando y construyendo el edificio insular bajo el mar. A medida que éste se aproximaba a la superficie, los gases, debido a la disminución de la presión circundante, se iban liberando del magma y los episodios vulcanológicos pasaban de ser tranquilos a tener un carácter marcadamente explosivo, formando materiales fragmentarios.

Tras largo tiempo de acumulación de materiales, el nacimiento de la isla se produjo a finales del [[Mioceno]] (Era Terciaria). Hace siete millones de años emergieron las zonas de [[Macizo de Teno|Teno]], [[Macizo de Anaga|Anaga]] y Macizo de Adeje, en la que se denomina ''Serie Basáltica Antigua'' o ''Serie I''. Se constituyeron de este modo tres islas cronológica y estratigráficamente distintas en los extremos oeste, este y sur de la actual Tenerife.
[http://www.puntoinfo.idecnet.com/index.php?sectionID=2&lang=1&s=1&ID=160 Información del Cabildo de Tenerife]

Hace aproximadamente 3 m.a. comienza un segundo ciclo volcánico (''Formaciones Postmiocenas'' o ''Series Recientes II, III y IV''), mucho más intenso, que incorpora elementos en la zona central de la isla, la cual también emerge y unifica en uno sólo a los tres edificios anteriormente descritos. La estructura conformada en ese momento recibe el nombre de ''Edificio pre-Cañadas'', sobre cuyos restos se erigiría más tarde el ''Edificio Cañadas I''. Este ultimó experimentó diversos colapsos y emitió una gran variedad de materiales explosivos que dieron lugar a las llamadas ''Bandas del sur'' (sur-sureste actual).
[http://www.gevic.net/info/contenidos/mostrar_contenidos.php?idcat=36&idcap=58&idcon=330 Gran Enciclopedia Virtual Interactiva de Canarias]

Posteriormente, sobre las ruinas de este complejo surgiría el ''Edificio Cañadas II'', ya por encima de los 2.500 metros, también con intensos procesos explosivos. Hace alrededor de 1 m.a. se inició la construcción de la ''Cordillera Dorsal'', con un vulcanismo de tipo fisural, a partir de los restos de los edificios ya parcialmente desmantelados de la ''Serie I''. La ''Cordillera Dorsal'' es la de mayor desarrollo altitudinal y longitudinal del Archipiélago Canario, con 1.600 metros de altura y 25 kilómetros de longitud. En este mismo espacio cronológico (hace 800.000 años) tienen lugar dos deslizamientos gravitacionales que motivaron la aparición de los valles de [[Valle de La Orotava|La Orotava]] y [[Valle de Güímar|Güímar]].

Finalmente, ya en tiempos más próximos (200.000 años), comienzan las erupciones que levantarían el ''Edificio Pico Viejo-Teide'' en el centro de la isla, sobre la ''[[Caldera de Las Cañadas]]''.

=== Orografía y paisaje ===
La abrupta orografía isleña y su variedad de climas dan como resultado un territorio de múltiples paisajes y formas, desde el [[Parque nacional del Teide|Parque Nacional del Teide]] con su amalgama de colores fruto de las sucesivas erupciones volcánicas, hasta los [[Acantilados de Los Gigantes]] con sus paredes verticales, pasando por zonas semidesérticas con plantas resistentes a la sequedad en el sur, o por ambientes de carácter meramente volcánico como es el [[Malpaís de Güímar]].

También cuenta con playas naturales como la de [[El Médano]], con parajes protegidos en su entorno como Montaña Roja y Montaña Pelada, valles con cultivos tropicales y subtropicales, boscosos parajes de [[laurisilva]] en los macizos de [[Macizo de Anaga|Anaga]] y [[Macizo de Teno|Teno]] -con profundos y escarpados barrancos- y extensos bosques de pinos por encima de esta última formación vegetal.

==== Macizos ====
[[Imagen:Anaga 2006.jpg|thumb|left|250px|Panorámica del Macizo de Anaga.]]
El '''macizo de [[Anaga]]''', en el extremo nororiental de la isla, posee un perfil topográfico irregular y escabroso donde a pesar de no presentar grandes cotas, destaca el Pico del Inglés con 1.024 metros. Debido a la antigüedad de sus materiales (5,7 m. a.), a sus profundos procesos erosivos y a la densa red de diques que atraviesan el macizo, son numerosos los roques que aparecen en superficie, tanto de etiología fonolítica como traquítica. Existe una gran cantidad de barrancos escarpados y muy encajados en el terreno. En la costa de Anaga predominan los acantilados, por lo que existe un número escaso de playas, aún así, las que hay suelen coincidir con zonas de desembocadura de barrancos, algunas de rocas y otras de arena negra.

El '''macizo de Teno''' se encuentra en el extremo noroccidental. Al igual que en Anaga, se trata de una zona de estructuras desmanteladas y hondos barrancos que se han originado por erosión. Sin embargo, aquí los materiales son más antiguos (aproximadamente 7,4 m. a.). Destacan la Montaña de Gala que con 1.342 metros representa la mayor altitud. El paisaje más singular de este Macizo se encuentra en su costa sur. Se trata de los Acantilados de Los Gigantes, con paredes verticales que llegan a alcanzar en algunos puntos los 500 metros de altura.

El '''macizo de Adeje''' se sitúa en el extremo meridional de la isla, teniendo como mayor exponente al Roque del Conde, con 1.001 metros de altitud. El macizo no es tan apreciable por su reducida estructura inicial, hecho que añadido a la historia geológica del lugar ha potenciado un intenso desmantelamiento de sus materiales, perdiendo de ese modo su aspecto y envergadura original.

==== Dorsales ====
La '''Cordillera dorsal o dorsal de Pedro Gil''' abarca desde el principio del monte de La Esperanza, a unos 750 metros de altitud aproximadamente, hasta la zona central de la isla, en las inmediaciones de la Caldera de Las Cañadas, siendo Izaña, su punto más alto, con 2.350 metros sobre el nivel del mar. Esta estructura se ha constituido a expensas de un vulcanismo fisural de tipo basáltico a través de uno de los ejes o directrices estructurales que han dado origen al vulcanismo de la isla.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

La '''dorsal de Abeque''' se encuentra formada por una cadena de volcanes que unen el macizo de Teno con el edificio central insular Teide-Pico Viejo a partir de otro de los tres ejes o directrices estructurales de Tenerife. A esta dorsal pertenece el volcán histórico de Chinyero cuya última erupción se registró en 1909.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

La '''dorsal Sur o dorsal de Adeje''' está al amparo del último de los ejes estructurales. Destacan los restos de su macizo como formación primigenia, así como las alineaciones de pequeños conos volcánicos y de roques esparcidos por toda esta zona del sur tinerfeño.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

==== Edificio central ====
[[Imagen:Teide Tenerife4.jpeg|thumb|250px|right|Roque Cinchado y El Teide.]]
Las principales estructuras de Tenerife descritas en las líneas anteriores se ven culminadas en el edificio central, con el complejo Teide-Pico Viejo y el circo de Las Cañadas. Se trata de una semicaldera de 130 kilómetros cuadrados, que ha sido originada por un conjunto de procesos geológicos explicados en el epígrafe ''Origen y formación''. El circo está parcialmente ocupado por el estratovolcán Teide-Pico Viejo y completado por los materiales que ha emitido en sus diferentes erupciones. Destacan en su interior los [[Roques de García]], entre los que está el más conocido, el Roque Cinchado. Otra formación llamativa son Los Azulejos, compuesto por fonolitas de colores verdosos que se han creado por actividad hidrotermal.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

Al sur de La Caldera destaca la [[Montaña de Guajara]], que con 2.718 metros es la de mayor altitud de las que constituyen el anfiteatro de Las Cañadas del Teide. Al pie de estas paredes se han creado [[cuenca endorreica|llanos endorreicos]] de materiales sedimentarios muy finos, siendo el más conocido el [[Llano de Ucanca]].<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

El Pico del [[Teide]], con 3.718 metros sobre el nivel del mar y más de 7.000 sobre el fondo oceánico, es el punto más elevado de la isla, del territorio español y de todas las tierras emergidas del Atlántico. Este volcán, el tercero más grande del planeta, es el símbolo de Tenerife por antonomasia. Su situación central, sus importantes dimensiones, su silueta y su paisaje nevado lo dotan de una singular personalidad. Ya los aborígenes lo consideraban lugar de culto y adoración.

Desde 1954, el Teide y todo el circo de su alrededor (aunque hubo una ampliación posterior de sus límites) está declarado como parque nacional. Además, desde junio de 2007 está incluido por la [[UNESCO]] dentro de los espacios [[Patrimonio de la Humanidad]] como bien natural.
Al oeste se encuentra el volcán Pico Viejo,. En un lateral de éste, se encuentra el Volcán de Chahorra o Narices del Teide, donde se produjo la última erupción que se ha dado en el entorno del Teide, en 1798.

==== Valles ====
[[Imagen:Orotavatal.jpg|500px|thumb|left|Panorámica del Valle de La Orotava con el Teide al fondo.]]Los [[valle]]s son otra de las formas de relieve más destacadas. Los más importantes son el [[Valle de La Orotava]] y el [[Valle de Güímar]] que se han generado por el deslizamiento en masa de grandes cantidades de materiales hacia el mar, creando una hondonada en el terreno.
Existen otros valles que se distribuyen por diversos enclaves de la geografía de Tenerife, aunque, en este caso, de diferente naturaleza. Suelen ser valles intercolinares que se han conformado tras el depósito de mayor cantidad de materiales geológicos en lomas laterales, o simplemente cauces amplios de determinados barrancos que en su evolución han tomado el aspecto de típicos valles.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

==== Barrancos ====
Tenerife, debido principalmente a su gran altitud y a su silueta en semejanza a un tejado de dos aguas, está surcada por gran cantidad de [[barranco]]s. Éstos constituyen uno de los elementos más característicos de su paisaje, originados por la erosión ejercida por la escorrentía superficial a lo largo de la historia. Destacan los barrancos de Ruiz, Fasnia y Güímar, Infierno y Erques, todos ellos declarados espacios naturales protegidos por las instituciones canarias.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>
[[Imagen:Tenerife88.jpg|thumb|right|250px|Montaña Roja al fondo, Playa de La Tejita.]]

==== Costas ====
Las costas son, a grosso modo, accidentadas y abruptas, aunque lo son más en la zona norte que en la sur. No obstante 67,14 kilómetros de la costa tinerfeña lo representan playas, sólo superada en este aspecto por la isla de [[Fuerteventura]].En el litoral septentrional son frecuentes las playas de cantos rodados o de arena negra, mientras que en la vertiente sur y suroeste de la isla predominan las playas con arenas más finas y de tonalidades más claras.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

===Flora y Fauna===
La isla de Tenerife disfruta de una [[diversidad ecológica]] pese a su reducida superficie, que es consecuencia de unas condiciones ambientales especiales, ya que la accidentada orografía reinante modifica localmente las condiciones climáticas generales, originando una exquisita variedad de [[microclima|microclimas]]. Esta vasta existencia de microclimas y, por lo tanto, de hábitats naturales, se hace manifiesta en la vegetación insular, constituida por una flora rica y variada (1400 especies de plantas superiores), entre las que destacan numerosos [[endemismo|endemismos]] canarios (200) y tinerfeños (140). Al concentrar este patrimonio vegetal de unas 140 especies exclusivas, la isla de Tenerife muestra la mayor relación de endemismos florísticos de la denominada [[Macaronesia]]. Además, la diferente composición química de los diversos materiales volcánicos que han construído el edificio insular, siempre bajo la acción combinada de los factores climáticos, dan lugar a una gran diversidad de suelos. La conjunción de estos agentes determina la presencia de múltiples hábitats que albergan numerosas comunidades de plantas y animales que constituyen los singulares [[ecosistemas]] de Tenerife. Antes de la llegada de los aborígenes, Canarias y en especial Tenerife estaba habitada por animales endémicos prehistóricos, la mayoria extintos como por ejemplo; los lagartos gigantes ([[Lacerta goliath]] y [[Lacerta maxima]]), o la rata gigante ([[Canariomys bravoi]]).

El estudio de la flora y la fauna tinerfeña puede realizarse de un modo más ordenado si es clasificada según los diferentes pisos ecológicos en los que se divide el terreno de la isla. Dicha división atiende especialmente a la orientación norte o sur de las vertientes de la isla y por supuesto a la altitud:
*'''Cardonal - Tabaibal:''' 0 – 700 m: este estrato se caracteriza por una fuerte insolación y escasez de precipitaciones. En él destacan como especies vegetales las [[Euphorbia atropurpurea|tabaibas]], los cardones y cardoncillos, bejeques,...En cuanto a la fauna, son pobres las especies animales vertebradas en este ecosistema. Si acaso, algunas aves o reptiles. En cambio los insectos se encuentran muy bien representados.
*'''Bosques Termófilos:''' 200 - 600 m: este piso posee mayor grado de humedad y precipitaciones, y una menor insolación. Son importantes, dentro de las especies arbóreas las palmeras, las sabinas, los acebuches y una serie de endemismos como peralillos, guaidiles, españeros, malvas de risco y cinerarias. En relación con la fauna es preciso citar a la mariposa vanessa vulcania y aves insectívoras como la curruca cabecinegra y el capirote.
[[Image:Eidechsen Teide.jpg|thumb|left|230px|Gallotia Galloti, especie endémica de Tenerife]]
*'''Laurisilva:''' 500 - 1.000 m: se trata de un [[bosque]] denso de grandes árboles, herederos de la flora de la [[Era Terciaria]], que crecen en zonas de abundantes nieblas y lluvias frecuentes. Las especies vegetales superiores que abundan son laureles, tilos, viñátigos, barbusanos, y otras de menor tamaño como el [[canarina canariensis|bicácaro]], la cresta de gallo, la corregüela y una gran variedad de helechos. Con respecto a la fauna, la [[laurisilva]] es el estrato más rico en invertebrados y con mayor porcentaje de endemismos, entre los que se encuentran lombrices, moluscos y sobre todo artrópodos. Dentro de la fauna vertebrada hay que mencionar algunas especies de murciélagos y dos aves endémicas en peligro de extinción como son las palomas turqué y rabiche.
[[Imagen:Tajinaste rojo.jpg|thumb|right|260px|Tajinaste rojo]]
*'''Fayal-Brezal:''' 1.000 – 1.500 m: se trata también de un bosque, pero en este caso más seco y pobre en especies. Destacan florísticamente las fayas, brezos, acebiños,...También abundan diferentes especies de setas que pueden ser tanto comestibles como muy venenosas.
*'''Pinar:''' 800 - 2.000 m: bosque de pinos en formación abierta que se caracteriza por un aumento de la insolación y por una menor uniformidad en las temperaturas diurnas-nocturnas y estacionales. Sobresale por encima de cualquier otra especie el [[pino canario]]. La fauna es poco diversa, pero existen dos aves endémicas de singular belleza como el pinzón azul y el pico picapinos.
*'''Alta montaña:''' por encima de 2.000 m: posee un clima seco, una insolación muy alta y temperaturas extremas. A pesar de estas exigentes condiciones, crecen endemismos vegetales de gran importancia científica y belleza como [[tajinaste|tajinastes]], retamas, codesos, violeta del Teide,...y especies animales principalmente invertebradas como escarabajos, chinches, y mariposas.
Aún faltaría hablar de la extensa fauna marina de entre la que destacan viejas, meros, abades, salemas, samas, pargos,...Gran interés tienen también la tortuga boba y las colonias permanentes de ballenas y delfines que habitan el litoral sur de la isla.
Tenerife posee un inventario faunístico que asciende a 56 especies de aves, 13 de mamíferos terrestres, 5 de reptiles, varios miles de invertebrados, 2 de anfibios y 400 de peces además de algunas especies de tortugas marinas y cetáceos.

=== Espacios naturales protegidos ===
[[Imagen:Espacios_protegidos_Tenerife.jpg|thumb|right|250px|Mapa de clasificación de los espacios protegidos.]]
Prácticamente la mitad de la isla (48,6%), La Red contempla hasta ocho categorías de protección distintas, todas ellas representadas en la isla: aparte del parque nacional del Teide, cuenta con el mayor parque natural de Canarias ([[Corona Forestal]]), dos parques rurales (Anaga y Teno), cuatro reservas naturales integrales, seis reservas naturales especiales, un total de catorce monumentos naturales, nueve paisajes protegidos y hasta seis sitios de interés científico.
El municipio de La Orotava, en gran parte a expensas del [[Parque Nacional del Teide]], y el de Santa Cruz de Tenerife que hace lo propio con el [[Parque rural de Anaga]] presentan, respectivamente, el 76% y el 74% de su extensión bajo protección. De la misma forma, el emplazamiento mayoritario del [[Parque rural de Teno]] al amparo del municipio de Buenavista del Norte hace que este disponga de una importante parte de su superficie protegida.

===Clima===
A Tenerife se la conoce internacionalmente como la "Isla de la Eterna Primavera". La atribución de esta denominación climática se produce en gran medida gracias a los '''[[vientos alisios]]''', cuya humedad, principalmente, se condensa en las zonas de [[Zona de medianías (Canarias)|medianías]] del norte y nordeste insular, constituyendo amplios mares de nubes que se disponen preferentemente entre los 600 y 1.800 metros de altura; otro factor que influye en la suavidad del clima de las Islas con respecto al que por latitud correspondería (Desierto del Sahara), es la '''[[corriente marina fría de Canarias]]''', que enfría la temperatura de las aguas que bañan las costas y playas isleñas con respecto a la ambiental. Por último, la propia '''orografía tinerfeña''' también habría que tenerla en cuenta en esta terna de agentes encargados de hacer realidad el anteriormente citado eslogan.

[[Imagen:Mar de nubes, Tenerife.jpg|thumb|left|250px|Mar de nubes en la Isla de Tenerife, visto desde unos 1800 metros de altitud.]]

A grandes rasgos, el clima de Tenerife es moderado, templado y muy suave en cualquier estación del año. No hay períodos de frío pero tampoco los hay de calor asfixiante. Las temperaturas medias fluctúan entre los 17-18 ºC en invierno y los 24-25 ºC en la estación estival, aunque estos sean valores relativos y generales. Evidentemente se producen importantes contrastes, como el que se produce durante los meses de invierno, en los cuales es posible disfrutar del sol en zonas de costa y, sin embargo, 3.000 metros por encima poder contemplar la blanca estampa nevada del [[Teide]], lugar en el que nieva todos los años.

[[Image:Masca Road.jpg|thumb|250px|right|Masca]]
Otro ejemplo de contraste climático lo encontraríamos en la ciudad de [[Santa Cruz de Tenerife|Santa Cruz]] con respecto a la ciudad de [[San Cristóbal de La Laguna|La Laguna]]. Municipios unidos físicamente pero distanciados en cuanto a condiciones climáticas. Generalmente Santa Cruz tiene durante todo el año un clima cálido con temperaturas sensiblemente superiores a las que se disfrutan en la aledaña La Laguna, donde frecuentemente hace más frío y existe mayor probabilidad de precipitaciones.

El norte y el sur de Tenerife poseen igualmente diferentes características climáticas. En barlovento se registra un 73% de las precipitaciones totales además, la humedad relativa del aire es superior y la insolación inferior. Los máximos pluviométricos se registran en barlovento a una altitud media entre 1.000-1.200 m, casi exclusivamente en los montes de [[La Orotava]]. Pero quizás sea más significativo que todo el norte de la isla carezca de un espacio en el que la pluviosidad media sea inferior a los 250 mm anuales. En cambio, en la vertiente sur de la isla los valores pluviales son significativamente menores. Los únicos reductos sureños que se salvan de esta situación son [[Masca (Tenerife)|Masca]] y [[Güímar]], probablemente debido a sus características físicas que posibilitan una mayor presencia del alisio.

A modo de anécdota es interesante saber que los médicos europeos, sobre todo ingleses y holandeses, del pasado [[siglo XIX]] elogiaban el clima del norte de Tenerife, y lo recomendaban a sus pacientes para aliviar dolencias de la edad y del aparato circulatorio.

{| {{tablabonita}} width="567"
|- style="background: #99CCCC; color:#000080;"
| height="17" | Datos climáticos
!| Ene
!| Feb
!| Mar
!| Abr
!| May
!| Jun
!| Jul
!| Ago
!| Sep
!| Oct
!| Nov
!| Dic
|-
| style="background: #99CCCC; color:#000080;" | Ø Horas de sol/Día
| style="background: #FFFF99; color:#000080;" | 5,9
| style="background: #FFCC66; color:#000080;" | 6,6
| style="background: #FFCC00; color:#000080;" | 7,1
| style="background: #FFCC00; color:#000080;" | 7,7
| style="background: #FFCC00; color:#000080;" | 8,8
| style="background: #FFCC00; color:#000080;" | 9,8
| style="background: #FF9900; color:#000080;" | 10,6
| style="background: #FFCC00; color:#000080;" | 9,8
| style="background: #FFCC00; color:#000080;" | 8,5
| style="background: #FFCC66; color:#000080;" | 6,9
| style="background: #FFFF99; color:#000080;" | 5,9
| style="background: #FFFF99; color:#000080;" | 5,5
|-
| style="background: #99CCCC; color:#000080;" height="16;" | Aire [°C]
| style="background: #FFFFCC; color: black;" | 17,9
| style="background: #FFFFCC; color: black;" | 17,9
| style="background: #FFFF99; color: black;" | 18,6
| style="background: #FFFF99; color: black;" | 19,0
| style="background: #FFFF99; color: black;" | 20,4
| style="background: #FFFF99; color: black;" | 22,2
| style="background: #FFFF99; color: black;" | 24,3
| style="background: #FFFF99; color: black;" | 25,0
| style="background: #FFFF99; color: black;" | 24,3
| style="background: #FFFF99; color: black;" | 22,8
| style="background: #FFFF99; color: black;" | 20,6
| style="background: #FFFF99; color: black;" | 18,7
|-
| style="background: #99CCCC; color:#000080;" | Agua [°C]
| style="background: #66CCFF; color: black;" | 19
| style="background: #0033FF; color: black;" | 18
| style="background: #0033FF; color: black;" | 18
| style="background: #0033FF; color: black;" | 18
| style="background: #66CCFF; color: black;" | 19
| style="background: #66CCFF; color: black;" | 20
| style="background: #66CCFF; color: black;" | 21
| style="background: #66CCFF; color: black;" | 22
| style="background: #66CCFF; color: black;" | 23
| style="background: #66CCFF; color: black;" | 23
| style="background: #66CCFF; color: black;" | 21
| style="background: #66CCFF; color: black;" | 20
|-
| style="background: #99CCCC; color:#000080;" | Ø Días de lluvia
| style="background: #99FFCC;" color: black;" | 5
| style="background: #99FFCC;" color: black;" | 5
| style="background: #99FFCC;" color: black;" | 5
| style="background: #99FFFF;" color: black;" | 3
| style="background: #99FFFF;" color: black;" | 1
| style="background: #99FFFF;" color: black;" | 0
| style="background: #99FFFF;" color: black;" | 0
| style="background: #99FFFF;" color: black;" | 1
| style="background: #99FFFF;" color: black;" | 1
| style="background: #99FFFF;" color: black;" | 3
| style="background: #99FFCC;" color: black;" | 5
| style="background: #99FFCC;" color: black;" | 6
|}

===El Agua===
El suelo volcánico de Tenerife, generalmente de carácter poroso y permeable es motivo para que una considerable fracción del [[agua]] procedente de la lluvia, unida a aquella producto de condensaciones en zonas boscosas y a la proveniente del deshielo de las cumbres más elevadas de la isla, se infiltre en el subsuelo. La construcción de embalses y presas como principales métodos de obtención de agua esta desaconsejada debido a las mencionadas condiciones geológicas, que no permiten el almacenamiento del preciado líquido en superficie, así como a la irregularidad de las precipitaciones. De este modo, la mayor parte del agua (90%) procede de pozos y principalmente de [[Galería filtrante|galerías]], importantes sistemas que sirven para extraer el [[recurso hídrico]] del [[acuífero]]. Tenerife dispone en la actualidad de más de un millar de galerías perforadas .

==[[Historia de Tenerife]]==
===Organización política anterior a la invasión===
El nombre original [[guanche]] de la isla era Achinet o Chenet. Unos cien años antes de la invasión, existía un [[mencey]] llamado Tinerfe el Grande, hijo del Mencey Sunta. Tinerfe tenía su corte en [[Adeje (Santa Cruz de Tenerife)|Adeje]] hasta que sus nueve hijos se rebelaron y se repartieron la isla en 9 menceyatos y 2 achimenceyatos independientes (llamados capitanías por los invasores). Los menceyatos y sus menceyes (por orden de descendencia) fueron los siguientes:

* [[Menceyato de Taoro|Taoro]]: actualmente [[Puerto de la Cruz]], [[La Orotava]], [[La Victoria de Acentejo]], [[La Matanza de Acentejo]], [[Los Realejos]] y [[Santa Úrsula (Santa Cruz de Tenerife)|Santa Úrsula]] sus menceyes fueron Bentinerfe, Inmobach, [[Bencomo]] y Bentor.
* [[Menceyato de Güímar|Güímar]]: en la actualidad [[El Rosario (Santa Cruz de Tenerife)|El Rosario]], [[Candelaria (Santa Cruz de Tenerife)|Candelaria]], [[Arafo (Santa Cruz de Tenerife)|Arafo]] y [[Güímar (Santa Cruz de Tenerife)|Güímar]] y sus menceyes fueron Acaymo, Añaterve y Guetón.
* [[Menceyato de Abona|Abona]]: [[Fasnia (Santa Cruz de Tenerife)|Fasnia]], [[Arico]], [[Granadilla de Abona]], [[San Miguel de Abona]], [[Arona (Santa Cruz de Tenerife)|Arona]] y sus menceyes fueron Atguaxoña y Adxoña (o Adjona).
* [[Menceyato de Anaga|Anaga]]: [[Santa Cruz de Tenerife]] y [[San Cristóbal de La Laguna]] (la zona de la propia laguna) y sus menceyes fueron beneharo y Beneharo II.
* [[Menceyato de Tegueste|Tegueste]]: [[Tegueste (Santa Cruz de Tenerife)|Tegueste]] y una zona costera de [[San Cristóbal de La Laguna|La Laguna]] y sus menceyes fueron Tegueste, Tegueste II y Teguaco.
* [[Menceyato de Tacoronte|Tacoronte]]: [[Tacoronte (Santa Cruz de Tenerife)|Tacoronte]] y [[El Sauzal (Santa Cruz de Tenerife)|El Sauzal]] y sus menceyes fueron Rumén y Acaymo.
* [[Menceyato de Icode|Icode]]: [[San Juan de la Rambla]], [[La Guancha (Santa Cruz de Tenerife)|La Guancha]], [[Garachico (Santa Cruz de Tenerife)|Garachico]] e [[Icod de los Vinos]] y sus menceyes fueron Chincanayro y Pelicar.
* [[Menceyato de Daute|Daute]]: [[El Tanque]], [[Los Silos (Santa Cruz de Tenerife)|Los Silos]], [[Buenavista del Norte |Buenavista]] y [[Santiago del Teide]] y sus menceyes fueron Cocanaymo y Romén.
* [[Menceyato de Adeje|Adeje]]: [[Guía de Isora]], [[Adeje (Santa Cruz de Tenerife)|Adeje]] y [[Vilaflor (Santa Cruz de Tenerife)|Vilaflor]] y sus menceyes fueron Atbitocazpe, Pelinor, e Ichasagua.

También se encontraba el Achimenceyato de [[Punta del Hidalgo]] gobernado por Aguahuco (el "Hidalgo pobre", hijo ilegítimo del Gran Tinerfe) y Zebenzui.

En cuanto a las creencias, la [[Mitología guanche|religión guanche]] era [[Politeísmo|politeísta]] aunque el culto astral estaba generalizado. Junto a él había una religiosidad [[animista]] que sacralizaba ciertos lugares, fundamentalmente roques y montañas. Entre los principales dioses guanches se podrían destacar; [[Achamán]] (dios del cielo y supremo creador), [[Chaxiraxi]] (diosa madre identificada más tarde con la [[Virgen de Candelaria]]), [[Magec]] (dios del sol) y [[Guayota]] (el demonio) entre otros muchos dioses y espíritus ancestrales. Especialmente singular era el culto a los muertos, practicándose la [[momificación]] de cadáveres.

===Invasión===
Conocida por los romanos como ''[[Nivaria]]'' (del latín ''nix'', ''nivis'', "nieve"), en clara referencia a las nieves posadas sobre el volcán conocido como el [[Teide]]. El nombre de la isla también guarda relación con el volcán, ya que fue puesto por los [[La_Palma#Los_abor.C3.ADgenes|benehaoritas]] (aborígenes de La Palma): "Tene-" (montaña) "-ife" (blanca), la castellanización del nombre provocó que se añadiera una -r para unir ambas palabras quedando '''Tenerife'''. Para los nativos de Tenerife, la isla era conocida como ''Chenech'', ''Chinech'' o ''[[Achinech]]''.

Tenerife a la hora de su inv asiónse componía de nueve ''menceyatos'', nombre por el que se conocía a los pequeños reinos guanches. Sin embargo las fuerzas militares de la Corona de Castilla bajo el mando del Adelantado ("gobernador militar") [[Alonso Fernández de Lugo]], sufrieron una derrota a manos de los [[guanche]]s en la primera [[Batalla de Acentejo]] en [[1494]]. Los guanches, superados por la tecnología y por las nuevas enfermedades a las cuales no eran inmunes, cayeron frente a las tropas de la [[Corona de Castilla]] el [[25 de diciembre]] de [[1495]].

Como en el resto de las Islas, los aborígenes fueron esclavizados y una buena parte de la población indígena sucumbió a las enfermedades importadas, al mismo tiempo que los inmigrantes provenientes de protectorados del Imperio Español (Portugal, Flandes, Italia, Alemania) se asentaban en la isla. Los bosques de [[pino canario]] de Tenerife fueron cortados para dejar paso al cultivo de la [[caña de azúcar]] en [[1520]]. En siglos sucesivos, la economía de la isla se centró en el cultivo de otras materias tales como la [[viña]] y la [[Cochinilla (insecto)|cochinilla]] para hacer los tintes, así como el [[plátano]].

===El ataque de Horacio Nelson===
[[Imagen:Sir_Horatio_Nelson_when_wounded_at_Teneriffe.jpg|thumb|left|260px|Horacio Nelson cae herido durante el ataque]]
Tenerife fue atacada, como las otras islas, por [[Piratería en Canarias|corsarios]] de varias nacionalidades (ingleses, franceses, holandeses y berberiscos) varias veces a lo largo de su historia, según el devenir de las alianzas y guerras de España. De entre estos ataques destaca por su lugar en la Historia el [[Ataque a Santa Cruz de Tenerife|ataque de los británicos de 1797]]. El [[25 de julio]], el Almirante [[Horacio Nelson]] atacó Santa Cruz de Tenerife, capital de la isla y Jefatura de la Capitanía General. Tras un feroz ataque, la defensa organizada por el [[Antonio Gutiérrez de Otero|General Gutiérrez]] repelió a los británicos. Nelson perdió su brazo derecho por una bala de cañón (dice la leyenda que del cañón "Tigre") mientras intentaba desembarcar en la orilla de la costa de la zona de "Paso Alto".

El [[5 de septiembre]], otro intento de desembarco en la región de Puerto Santiago fue repelido por los habitantes del [[Santiago_del_Teide|Valle de Santiago del Teide]], que lanzaron piedras a los británicos desde lo alto de los Acantilados de Los Gigantes.

===Historia reciente===
Otros visitantes menos hostiles llegarían a la isla en siglos sucesivos. El naturalista [[Alexander von Humboldt]] ascendió el pico del Teide y comentó la belleza de la isla. Numerosos turistas comenzaron a visitar Tenerife a partir de la década de [[1890]], especialmente las ciudades norteñas de [[Puerto de la Cruz]] (primer municipio turístico de Tenerife mediante orden ministerial del 13 de octubre de 1955 que lo declaró ’Lugar de Interés Turístico’) y Santa Cruz de Tenerife.

En marzo de [[1936]], antes de subir al poder, [[Francisco Franco]] fue destinado a Tenerife por el Gobierno Republicano, temeroso de su influencia militar y política, con el fin de alejarlo de los centros de poder. En el Monte de La Esperanza en el municipio tinerfeño de [[El_Rosario_(Santa_Cruz_de_Tenerife)|El Rosario]], Franco organizó la conspiración militar que daría lugar a la [[Guerra civil española]] y posterior caída de la [[II República Española]]. Las Islas Canarias cayeron bajo el bando de los nacionales en julio de [[1936]] y su población sufrió las masivas ejecuciones de opositores al nuevo régimen fascista. En los años 50, la miseria de la posguerra hizo que miles de tinerfeños emigrasen a [[América latina]], principalmente a [[Cuba]] y [[Venezuela]].

[[Colisión_de_1977_en_Los_Rodeos|La colisión]] ocurrida el [[27 de marzo]] de [[1977]] en el [[aeropuerto de Los Rodeos]], situado en el norte de la isla, era el desastre mortal de aviación más importante de la historia hasta los [[Atentados del 11 de septiembre de 2001|atentados del 11 de septiembre de 2001]].

==Símbolos de la isla==
[[Imagen:Flag of Tenerife.jpg|left|thumb|160px|Bandera de Tenerife]]
[[Image:escudo_tenerife.jpg|left|thumb|160px|Escudo del Cabildo Insular de Tenerife.]]

'''La bandera''' fue adoptada originariamente en 1845 a modo de distintivo o bandera de matrícula de la que en aquel entonces se denominaba provincia marítima de Canarias con base en el Puerto de Santa Cruz de Tenerife. En la actualidad, esta enseña representa a toda la isla de Tenerife. Fue aprobada a instancia del [[Cabildo Insular de Tenerife|Cabildo Insular]] por Orden del Gobierno de Canarias el 9 de mayo de 1989 y publicada el 22 de mayo de 1989 en el Boletín Oficial de Canarias.

'''El escudo heráldico''' de Tenerife fue otorgado mediante diploma real el 23 de marzo de 1510, concedido por el Rey Don Fernando V "El Católico", fue expedido en Madrid a nombre de su hija Doña Juana I, Reina de Castilla. El escudo se describe en campo de oro, con un San Miguel (pues la isla fue conquistada el día de San Miguel) armado superando a una montaña de su color natural de la que brotan llamas, y que representa al pico del Teide. Bajo esta montaña la isla de sinople sobre ondas azul y plata. A la derecha se observa un castillo de gules, y a la izquierda un león rampante de gules. El escudo que usa el [[Cabildo Insular de Tenerife|Cabildo Insular]] se diferencia del que usa el [[San Cristóbal de La Laguna|Ayuntamiento de La Laguna]] en el lema que aparece en la bordura y en el añadido de unas ramas de palma.

Según una ley del [[Gobierno de Canarias]] los símbolos [[naturaleza|naturales]] de la isla son el [[pinzón azul]] y el [[dracaena draco|drago]] .

==Órgano de gobierno==
El órgano de gobierno de la isla de Tenerife es el [[Cabildo Insular de Tenerife]]. La organización política de Canarias se caracteriza porque no posee órgano político provincial sino que cada isla posee un cabildo insular propio. Desde que se constituyó en marzo de 1913 dispone de una amplia serie de competencias propias, hoy recogidas en el [[Estatuto de Autonomía de Canarias]].

===Municipios===

[[Imagen:MapaMunicipiosTenerife.jpg|thumb|center|400px|División municipal de la isla de Tenerife]]

La isla de Tenerife está dividida en 31 municipios.

De todos ellos, sólo tres no tienen costa: [[Tegueste (Santa Cruz de Tenerife)|Tegueste]], [[El Tanque]] y [[Vilaflor (Santa Cruz de Tenerife)|Vilaflor]] que destaca además por ser el municipio más alto de toda [[Canarias]] al tener su capital a 1.400 metros de altitud.

El municipio más extenso con 207,31 km² es el de [[La Orotava]], que abarca gran parte del [[Parque nacional del Teide]]. El municipio más pequeño de la isla y del archipiélago es [[Puerto de la Cruz]], con una superficie inferior a los 9 km².

La gran mayoría de estos municipios confluyen en la zona de cumbre central de la isla y a partir de ahí se extienden hacia la costa, orientándose unos hacia el norte y otros hacia el sur.

A su vez, es frecuente encontrar otro tipo de división insular, es aquella que establece el territorio según una Zona Metropolitana, alrededor del área de influencia de las ciudades de Santa Cruz y La Laguna (''véase'' [[Área metropolitana de Tenerife]]), Zona Norte (aquellos municipios que se abren al océano por el norte) y Zona Sur (aquellos que lo hacen hacia el sur). Esta división junto con la municipal se puede observar en el mapa de la derecha.

A continuación se muestra la relación de todos los municipios tinerfeños ordenados alfabéticamente:

{| width="100%" align="CENTER"
|-
| valign="top" |
*[[Adeje (Santa Cruz de Tenerife)|Adeje]]
*[[Arafo (Santa Cruz de Tenerife)|Arafo]]
*[[Arico]]
*[[Arona (Santa Cruz de Tenerife)|Arona]]
*[[Buenavista del Norte]]
*[[Candelaria (Santa Cruz de Tenerife)|Candelaria]]
*[[Fasnia (Santa Cruz de Tenerife)|Fasnia]]
*[[Garachico (Santa Cruz de Tenerife)|Garachico]]
*[[Granadilla de Abona]]
*[[La Guancha (Santa Cruz de Tenerife)|La Guancha]]
| valign="top" |
*[[Guía de Isora]]
*[[Güímar (Santa Cruz de Tenerife)|Güímar]]
*[[Icod de los Vinos]]
*[[La Matanza de Acentejo]]
*[[La Orotava]]
*[[Puerto de la Cruz]]
*[[Los Realejos]]
*[[El Rosario (Santa Cruz de Tenerife)|El Rosario]]
*[[San Cristóbal de La Laguna]]
*[[San Juan de la Rambla]]
*[[San Miguel de Abona]]
| valign="top" |
*[[Santa Cruz de Tenerife (Santa Cruz de Tenerife)|Santa Cruz de Tenerife]]
*[[Santa Úrsula (Santa Cruz de Tenerife)|Santa Úrsula]]
*[[Santiago del Teide]]
*[[El Sauzal (Santa Cruz de Tenerife)|El Sauzal]]
*[[Los Silos (Santa Cruz de Tenerife)|Los Silos]]
*[[Tacoronte (Santa Cruz de Tenerife)|Tacoronte]]
*[[El Tanque]]
*[[Tegueste (Santa Cruz de Tenerife)|Tegueste]]
*[[La Victoria de Acentejo]]
*[[Vilaflor (Santa Cruz de Tenerife)|Vilaflor]]
|}

=== Demografía ===
La isla de Tenerife, la más poblada del archipiélago, albergaba a fecha de 1 de enero de 2006 y según fuentes del [[Instituto Nacional de Estadística de España|INE]] un total de 852.945 habitantes censados, de los cuáles, más de un 26% (223.148 habitantes) lo estaban en su capital, [[Santa Cruz de Tenerife]], y cerca del 50% (423.022 personas) en su [[Área metropolitana de Santa Cruz de Tenerife-La Laguna|área metropolitana]]. A la ciudad de Santa Cruz de Tenerife le siguen en población [[San Cristóbal de La Laguna]] (142.161), [[Arona]] (69.100), [[La Orotava]] (40.644), [[Adeje]] (36.764), [[Los Realejos]] (36.746), [[Granadilla de Abona]] (34.595) y [[Puerto de la Cruz]] (30.585). Hasta ahí los municipios que sobrepasan los 30.000 habitantes. El municipio de [[Vilaflor]] es el que cuenta con menor población de toda la isla (1.905). Además, Tenerife registra un muy alto nivel de población no censada ya que el elevado número de turistas que recibe anualmente y los crecientes fenómenos migratorios lo ponen de manifiesto.

==Gentilicio==


El gentilicio formal es "Tinerfeño/a", aunque también de manera coloquial se utiliza el gentilicio "[[chicharrero|Chicharrero/a]]", aunque en la propia isla éste se reserva para los habitantes de la capital, Santa Cruz.

El gentilicio "chicharrero" tiene su origen en un término despectivo empleado por los habitantes de la cercana ciudad de [[San Cristóbal de La Laguna|La Laguna]], entonces capital de la isla, para los habitantes del entonces pobre y pequeño puerto de pescadores. Justamente por dicha pobreza debían los habitantes de Santa Cruz rebajarse a comer [[chicharro|chicharros]], un pescado pequeño y barato de relativa baja calidad, de donde procede el término, entonces despectivo. Con el tiempo y el crecimiento de Santa Cruz, hasta conseguir el traslado de la capitalidad desde La Laguna, bajo el reinado de [[Fernando VII]] ([[siglo XIX]]), sus ciudadanos tomaron el insulto a honra y asumieron como propio el gentilicio.

==Economía==
[[Image:Botanico 2005.jpg|thumb|right|250px|Jardín Botánico en Puerto de la Cruz]]La [[economía]] tinerfeña, al igual que la de otras islas de Canarias, se basa fundamentalmente en el turismo. Ya en el siglo XIX y gran parte del XX destacaba la afluencia de turismo extranjero, sobre todo del [[Inglaterra|inglés]] debido a los intereses [[agricultura|agrarios]] que poseía en esta isla.

[[Image:Beaches of Tenerife 17.JPG|thumb|left|250px|Playa del Duque, en el sur de Tenerife]]
Más tarde con las guerras mundiales este sector se resiente, pero entrada la segunda mitad del pasado siglo comienza a evolucionar de un modo muy notable. En un principio destaca el Puerto de la Cruz por su bondadoso clima y por todos los atractivos que el [[Valle de la Orotava|Valle norteño de La Orotava]] concentraba, pero persiguiendo captar el turismo de sol y playa, alrededor de 1980 nace el boom turístico del sur de Tenerife, donde destacan ciudades como Arona o Adeje, que hoy albergan más del 65% de las plazas [[hotel]]eras de toda la isla. Tenerife recibe cada año más de 5.000.000 de turistas, siendo de este modo, de entre todo el archipiélago canario, la isla preferida a este respecto. Sin embargo, este dato también pone de manifiesto la gran cantidad de recursos que esta actividad consume (espacio, [[energía]], agua, etc.). A pesar de que más del 60% del [[Producto interior bruto|PIB]] tinerfeño lo constituye el turismo, y en consecuencia el sector servicios, el sector primario y la industria son responsables del 40% restante. En cuanto a la agricultura destacan el [[Plátano de Canarias|cultivo de plátanos]], los [[tomate]]s, la [[vid]]es, las papas y las flores. La pesca supone también gran parte de la economía tinerfeña (Canarias es la segunda región pesquera del estado español). Ya finalmente, y a pesar de los diversos polígonos industriales que existen en el territorio insular, la importancia de la actividad industrial radica en la refinería de [[petróleo]]s de Santa Cruz de Tenerife, la cual suministra productos petrolíferos no sólo al archipiélago canario sino también al mercado [[península ibérica|peninsular]], [[África|africano]] y [[América|americano]].

==Arte==

===Literatura===
[[Imagen:Jose Viera y Clavijo.jpg|thumb|right|200px|José Viera y Clavijo]]
En los siglos XVI y XVII destaca, en el campo de la poesía épica, [[Antonio de Viana]]. Este escritor que nace en La Laguna compuso el poema ''Antigüedades de las Islas Afortunadas'', un material de gran valor antropológico para entender las formas de vida de aquel entonces.
Ya posteriormente, en el llamado Siglo de las Luces (siglo XVIII) aparecen figuras relevantes de la Ilustración en Tenerife como [[José Viera y Clavijo]], [[Tomás de Iriarte]], [[Ángel Guimerá y Jorge]], [[Mercedes Pinto]] o [[Domingo Pérez Minik]], entre otros, que aportan sus obras dentro de esta escena [[literatura|literaria]].

===Pintura===
El primer núcleo de arte [[pintura|pictórico]] en Tenerife se distingue en la ciudad de La Laguna, donde en el transcurso del siglo XVI aparecen algunos pintores de renombre. Más adelante se suman artistas de otros lugares como Garachico, Santa Cruz, La Orotava y Puerto de la Cruz. Originarios de La Orotava son dos de los mejores pintores del archipiélago del siglo XVII, nos referimos a [[Cristóbal Hernández de Quintana]] y [[Gaspar de Quevedo]], con numerosas obras distribuidas por iglesias de la isla.
En el Puerto de la Cruz, concretamente en la [[Iglesia de Nuestra Señora de la Peña de Francia (Puerto de la Cruz)|iglesia de Nuestra Señora de la Peña de Francia]], se puede contemplar la aportación realizada por [[Luis de la Cruz y Ríos]]. Nacido en 1.775, el que fuera pintor de cámara del rey [[Fernando VII]] y miniaturista, obtiene un reconocido prestigio en la Corte, donde se le conoce como ''El Canario''.
En el año 1.849 nace en Santa Cruz de Tenerife el paisajista [[Valentín Sanz]]. El Museo Municipal de Bellas Artes de Santa Cruz cuenta con una abundante muestra de su quehacer. También en este museo capitalino se pueden observar cuadros de [[Juan Rodríguez Botas]] (1.880-1.917), quien es considerado el primer impresionista canario.
Del mismo modo cabe citar, dentro del grupo expresionista, a [[Mariano de Cossío]]. A este autor hay que atribuirle los frescos de la iglesia de Santo Domingo, en San Cristóbal de La Laguna. Por otro lado, en 1.874 nace [[Francisco Bonnín Guerín]], acuarelista de Santa Cruz que formó una escuela para promover su labor pictórica.
Por último, en 1.906 nace en La Laguna uno de los pintores canarios más universales, [[Óscar Domínguez]]. Perteneciente al surrealismo, inventó la técnica de la [[decalcomanía]] y contribuyó con una obra pictórica de internacional reconocimiento.

===Escultura===
Se podría considerar que la práctica [[escultura|escultórica]] comienza en Tenerife a partir del siglo XVII, momento en el cual llega a la isla el arquitecto y escultor [[Martín de Andújar Cantos]] desde Sevilla, donde había recibido instrucciones del maestro [[Juan Martínez Montañés]]. Con él arrivaron nuevas técnicas y planteamientos de la escuela hispalense que transmitió a sus discípulos, entre los que destaca el garachiquense [[Blas García Ravelo]].
Otros escultores que, en esta época y en el posterior siglo XVIII, irrumpen a la escena son [[Sebastián Fernández Méndez]], [[Lázaro González]], [[Rodríguez de la Oliva]], y principalmente el orotavense [[Fernando Estévez]], alumno de [[Luján Pérez]], quien contribuye con una extensa colección de imágenes religiosas y tallas repartidas por diversas iglesias de Tenerife, como por ejemplo, en la [[Catedral de La Laguna]], la [[Iglesia de la Concepción (La Laguna)|Iglesia de la Concepción]] también en La Laguna, la [[Basílica de Candelaria]] y en distintos lugares de culto de La Orotava.
Actualmente, el ámbito escultórico tinerfeño se encuentra representado entre otros por [[José Abad]], [[Fernando Garcíarramos]] y [[José Luis Fajardo]].

===Música===
[[Imagen:Timple Front.jpg|thumb|150px|left|Timple]]
El ámbito [[música|musical]] tiene en la figura de [[Teobaldo Power y Lugo Viña]] uno de sus exponentes más claros. Natural de Santa Cruz, se trata de un pianista y compositor, autor de los [[Cantos Canarios]]. En concreto, los arreglos de la melodía del [[arrorró]] de estos Cantos Canarios constituyen el Himno de la Comunidad Autónoma.
En este campo también destaca el [[folclore]]. Similar al del resto de las islas, se caracteriza por la participación de [[timple]]s, [[guitarra]]s, [[bandurria]]s, [[laúd]]es y distintos tipos de [[instrumentos de percusión]]. Son numerosos los grupos folclóricos que se reparten por la geografía isleña y que suelen aparecer en distintas celebraciones populares como las romerías. En este aspecto habría que citar a [[Los Sabandeños]], quienes conforman un importante símbolo de la cultura canaria. Este grupo folclórico rescató la idiosincrasia del pueblo isleño en un momento en el que el carácter uniformador de la cultura española de los años setenta hace caer prácticamente en la decadencia y el olvido diferentes elementos de la música canaria.
Las canciones típicas de las islas: [[isa (canción)|isa]], [[folía]], [[tajaraste]], [[malagueña]]... se configuran como melodías mestizas entre la música ancestral de los guanches con distintos enlaces entre lo andaluz e hispanoamericano.

===Arquitectura===
Al igual que la que predomina en las otras islas, en la [[arquitectura]] tinerfeña sobresalen las directrices de las casonas señoriales y las de las casas más humildes y populares. Este tipo arquitectónico, que tiene notables influencias de [[Andalucía]] y [[Portugal]], presenta, no obstante una fuerte personalidad propia.
De las casas señoriales hay que subrayar los ejemplos que existen en La Orotava y en La Laguna. Estas edificaciones se caracterizan por sus [[balcón|balcones]] típicos y por la presencia de [[patio interior|patios interiores]]. La madera, especialmente la tea (pino), cobra un gran protagonismo en estas construcciones. Estas casas presentan fachadas no demasiado complejas con poca ornamentación. Son típicos los grandes balcones de madera y el uso de celosías. Las ventanas cierran en guillotina y son habituales los asientos interiores adosados a ellas. Los patios interiores funcionan como verdaderos jardines que sirven para dar iluminación a las habitaciones. Estas se comunican con el patio por medio de galerías rematadas frecuentemente en piedra y madera. Artilugios como las destiladeras, las bombas de agua, los bancos y mesones son elementos que muchas veces forman parte de estos patios interiores.

[[Image:Auditorio de Tenerife 013.JPG|thumb|right|250px|Auditorio de Tenerife]]
En cuanto a las casas tradicionales, estas se caracterizan por ser edificios de escasa altura, con toscas paredes de colores variopintos. En ocasiones la continuidad de estas paredes se ve interrumpida por la presencia de bloques de piedra que asoman a la superficie de forma ornamental. A lo largo de toda la isla son muchos los ejemplos a contemplar de esta arquitectura.

Los edificios oficiales o de carácter religioso se han ido conformando según las distintas corrientes arquitectónicas que en cada momento han imperado. Los núcleos urbanos de las ciudades de La Laguna y La Orotava están declarados como monumentos histórico-artístico nacionales. En los últimos años, por parte de los diferentes gobiernos, ha predominado el concepto de llevar a cabo grandes proyectos, en ocasiones ostentosos, diseñados por reconocidos arquitectos. Entre ellos se podría incluir por ejemplo, la remodelación de la [[Plaza de España (Santa Cruz de Tenerife)|Plaza de España]] por los arquitectos suizos [[Herzog & De Meuron]], el nuevo proyecto del francés [[Dominique Perrault]] de la [[Playa de Las Teresitas]] (que no llegó a salir adelante al estallar un caso de corrupción detrás de dicho proyecto, el llamado [[Caso Las Teresitas]]), el [[Centro Magma Arte & Congresos]], las [[Torres de Santa Cruz]] o el [[Auditorio de Tenerife]]. Este último edificio, obra del arquitecto español Santiago Calatrava se alza al este del Parque Marítimo, en la capital tinerfeña. Uno de sus elementos más destacables es la estampa de su vela alada simulando un barco, que se ha convertido en uno de los símbolos de la isla.

==Cultura==

===Educación===
El nacimiento de la [[educación]] se debe en la isla a las órdenes religiosas. En el año 1530, Tenerife accede a la cultura de la mano de la cátedra de filosofía que, poseen los [[dominico]]s en el convento de [[Iglesia de la Concepción (La Laguna)|La Concepción de La Laguna]]. A pesar de ello, hasta bien avanzado el siglo XVIII no comienzan a funcionar las pocas escuelas que por aquel entonces existían. En este sentido, hay que recalcar el trabajo desempeñado por la Real Sociedad Económica de Amigos del País, que creó diversas escuelas en San Cristóbal de La Laguna. Fue en 1846 cuando se instaura el primer instituto de enseñanza secundaria con el fin de suplir el cierre de la Universidad de San Fernando (''véase'' [[Universidad de La Laguna]]). Anexa a este edificio se fundó en 1850 la primera Escuela Normal Elemental del archipiélago que pasaría a denominarse Escuela Normal Superior de Magisterio en 1866. Así se mantiene esta situación ya que a pesar de que el dictador [[Primo de Rivera]] crease algunos centros, el punto de inflexión lo supone la política educativa que desarrolló la [[Segunda República Española|Segunda República]], de modo que en apenas cuatro años (1929-1933) casi se dobla el número de escuelas existentes. Posteriormente, el inicio de la Guerra Civil y la ulterior dictadura de [[Francisco Franco]] constituyeron un considerable retroceso. La educación en manos de órdenes religiosas tuvo cierta importancia en el devenir de los tinerfeños hasta que en 1970 la Ley General de Educación resta peso a estas instituciones religiosas en favor de los centros públicos. Estos últimos, y ya en menor grado los primeros, comienzan a multiplicarse desde entonces y son impulsados con la instauración de la democracia. Tenerife cuenta a día de hoy con 301 centros de educación infantil, 297 colegios de primaria, 140 de secundaria y 86 institutos de bachiller . Además, en la isla existen hasta 5 centros de estudios universitarios o de postgrado: [[Universidad de La Laguna]] (la de mayor presencia), [[Universidad Nacional de Educación a Distancia]], [[Universidad Internacional Menéndez Pelayo]], [[Universidad Alfonso X el Sabio]] y [[Universidad de Vic]] (Escuela Universitaria de Turismo de Santa Cruz de Tenerife)

===Investigación===
[[Image:Obs 2.jpg|thumb|300px|left|[[Observatorio del Teide]], perteneciente al Instituto de Astrofísica de Canarias]]
El campo de la [[investigación]], históricamente, no se ha desarrollado de un modo especialmente relevante. No obstante, entre los centros que se dedican a esta labor destaca sobre todo el [[Instituto de Astrofísica de Canarias]] que tiene sede en esta isla. Asimismo cabría citar el Instituto de Bio-Orgánica [[Antonio González González|Antonio González]], vinculado a la Universidad de La Laguna. También adheridos a esta universidad se encuentran el Instituto de Lingüística Andrés Bello, el Instituto Universitario de la Empresa, el Instituto de Derecho Regional y el Instituto Universitario de Ciencias Políticas y Sociales al igual que el Instituto de Enfermedades Tropicales (perteneciente a la Red de Investigación de Centros de Enfermedades Tropicales, que dispone de siete nodos extendidos a lo largo del país, uno de ellos en Canarias). Con sede en la ciudad del Puerto de la Cruz se encuentra el Instituto de Estudios Hispánicos de Canarias, adscrito al Instituto de Cultura Hispánica de Madrid. En la ciudad de La Laguna se encuentra el [[Instituto Canario de Investigaciones Agrarias]] y el [[Centro Internacional para la Conservación del Patrimonio]]. Otros organismos que trabajan en el ámbito de la investigación que tienen sede en Tenerife son el Instituto Tecnológico de Canarias, el Instituto Vulcanológico de Canarias, la Asociación Industrial de Canarias, el Instituto Tecnológico de Energías Renovables y el Instituto Oceanográfico de Canarias emplazado en la ciudad de Santa Cruz de Tenerife.

==Comunicaciones==
===Aeropuertos===
El principal medio para llegar a Tenerife es el [[avión]]. Existen dos [[aeropuerto|aeropuertos]] en la isla: el [[aeropuerto Reina Sofía]] (Tenerife Sur) y el [[aeropuerto de Los Rodeos]] (Tenerife Norte). A pesar de que el aeropuerto Tenerife Sur es el que recibe mayor número de pasajeros, ambos disponen de vuelos regulares con las capitales de otras islas, con muchas ciudades peninsulares (Madrid, Barcelona, Sevilla, Valencia, Málaga, Bilbao, etc.), con ciudades europeas del [[Reino Unido]], [[Alemania]], [[Francia]] e [[Italia]] entre otras y también con ciudades americanas y africanas. Teniendo en cuenta los dos aeropuertos, Tenerife es la isla canaria que más pasajeros recibe anualmente. Debido al [[turismo]], es fácil encontrar vuelos directos más económicos con las principales ciudades alemanas o británicas que con las peninsulares.

===Puertos===
Además del avión, Tenerife tiene dos [[puerto marítimo|puertos marítimos]] principales que le sirven de conexión. El [[Puerto de Santa Cruz de Tenerife|Puerto de Santa Cruz]] que conecta con las capitales de cada isla, y en particular con aquellas de la provincia oriental, y el [[Puerto de Los Cristianos]] que se centra en mayor medida en las comunicaciones con las capitales de la provincia de Santa Cruz de Tenerife. Además es posible el tráfico de pasajeros entre los Puertos de Santa Cruz de Tenerife y Cádiz y viceversa. Está previsto construir un gran puerto de importancia en el sur de la Isla, el de Granadilla, y otro en la parte oeste, en Fonsalía.

===Guaguas===
La isla cuenta también con una extensa red de [[guagua]]s tanto urbanas como interurbanas que conectan la gran mayoría de los núcleos de población. Para ello cuenta con estaciones de guaguas en todas las ciudades, como el [[Intercambiador de Transportes de Santa Cruz de Tenerife]].

===Ferrocarril===
[[Image:Tranvía de Tenerife.jpg|thumb|right|250px|El tranvía en Ofra (Santa Cruz de Tenerife) en fase de pruebas (2007)]]
El 2 de junio de 2007 se inauguró la [[Línea 1 (Tranvía de Tenerife)|línea 1]] del [[Tranvía de Tenerife]], que une destacados sectores del [[Área metropolitana de Santa Cruz de Tenerife-La Laguna|conurbación Santa Cruz-La Laguna]] y puntos como los dos centros hospitalarios de la zona. La segunda fase, que empezará a ejecutarse a pricipios de 2008, unirá los Barrios de Tincer (perteneciente a Santa Cruz) y La Cuesta (La Laguna), que estarán unidos por la Línea 1. Más adelante se construirán otras líneas como la que unirá la Avenida de la Trinidad (La Laguna) con el Aeropuerto de Tenerife Norte (Los Rodeos); y el [[Intercambiador de Transportes de Santa Cruz de Tenerife]] con la [[playa de Las Teresitas]].

Perteneciente a la misma empresa que explota el [[Tranvía de Tenerife]], en 2008 se espera que comience, tras la aprobación de su construcción por el pleno del [[Cabildo Insular de Tenerife]] el 27 de abril de 2007, los trabajos para habilitar un tren que unirá [[Santa Cruz de Tenerife]] con el sur de la isla. El recorrido total será de 80 kilómetros y tiene previsto realizar su trayecto completo en 35 minutos y si tuviera que parar en todas las estaciones, lo haría en 45 minutos. En la reforma actual de la [[Autopista del Sur de Tenerife|autopista del sur]] (TF-1), en algunos tramos ya es visible el lugar por donde discurrirá ese tren.

==Sanidad==
El principal centro sanitario de la Isla es el [[Hospital Universitario de Canarias]], en el municipio de San Cristóbal de La Laguna aunque justo en el límite con Santa Cruz de Tenerife. Muy cerca, ya en este municipio, se encuentra el [[Hospital Universitario Nuestra Señora de Candelaria]], recientemente incorporado a la red docente de la ULL, aunque ya hace tiempo la Escuela de Enfermería de este hospital estaba adscrita a la Facultad de Enfermería de la Universidad de La Laguna, con sede en el HUC.

Además, se están construyendo dos nuevos hospitales para las zonas norte y sur de la isla. Cuando estén finalizados, la isla dispondrá de cuatro centros hospitalarios junto a sus autopistas, si bien el HUC seguirá siendo el de referencia.

==Religión==
[[Imagen:Tenerife.candelaria.exterior.basilica.jpg|thumb|300px|Plaza y [[Basílica de Candelaria]] ([[Tenerife]], [[España]])]]
[[Imagen:Hermano Pedro.jpg|200px|thumb|Imagen del Santo [[Hermano Pedro]], en la cueva donde pastaba su ganado.]]
Al igual que ocurre en el resto del estado español, la sociedad tinerfeña se declara mayoritariamente católica. No obstante, las crecientes corrientes migratorias (turismo, inmigración ilegal, etc.) están incrementando el número de fieles de otras religiones que se dan cita en la isla. Son numerosas las advocaciones que existen, sin embargo, aquí tiene lugar cada año una de las peregrinaciones más importantes del archipiélago, debido a la celebración de la festividad de la '''[[Virgen de Candelaria|La Virgen de Candelaria]]''' ('''Patrona de Canarias''', de la '''Diócesis Nivariense''' y de la isla), quien representa la unión de las culturas [[guanche]] y española. Los guanches tomaron como propia la imagen que los misioneros de [[Lanzarote]] y [[Fuerteventura]] dejaron en una playa próxima a la actual Villa Mariana de Candelaria. A partir de ahí, la historia y la leyenda de esta imagen, se entrelazan y dan paso al culto y peregrinación que hasta nuestros días mantienen los habitantes de las islas y de Tenerife en particular. En este aspecto, hay que nombrar también a la Virgen de Los Remedios, la cual es la copatrona de la [[Diócesis Nivariense]] (Diócesis de la provincia). En cuanto a los principales núcleos o templos religiosos destacan:

*'''[[Basílica de Candelaria]]''': Es el lugar en el que se encuentra la imagen de la Virgen de Candelaria (Patrona de Canarias). Este santuario de estilo neoclásico es frecuentado diariamente por los feligreses que se dirigen hasta la Villa Mariana en devoción a su patrona.

*'''[[Catedral de La Laguna]]''': Es la sede de la Diócesis Nivariense. En ella se venera a la Virgen de Los Remedios. Consiste en un edificio que combina elementos neogóticos con neoclásicos localizado en la ciudad de La Laguna. Actualmente, y desde hace varios años se encuentra cerrada al culto debido a unas obras de restauración y reconstrucción que no terminan de acontecer.

*'''[[Iglesia de la Concepción (La Laguna)|Iglesia de la Concepción de La Laguna]]''': Se trata uno de los edificios más antiguos de Tenerife, pues constituye la iglesia matriz de la isla, mandada a construir por Alonso Fernández de Lugo en 1.496. Ha sido declarado Monumento Histórico Nacional. A su alrededor se organizó todo el entramado que dio lugar a la ciudad de [[San Cristóbal de La Laguna]]. Actualmente, se puede acceder a la parte alta de la torre para contemplar gran parte de la ciudad.

Hay otros edificios religiosos de cierta relevancia, especialmente en el Valle de la Orotava, como puede ser la Iglesia de la Concepción de la Orotava, o en la capital, como es la [[Iglesia Matriz de la Concepción (Santa Cruz de Tenerife)]]. También destacar la [[Iglesia de San Andrés (Tenerife)|Iglesia de San Andrés Apóstol]] en la localidad de [[San Andrés (Tenerife)|San Andrés]], una de las iglesias más antiguas de la isla.

Es importante señalar también a [[Pedro de San José Betancur]] ([[Hermano Pedro]]), '''Primer Santo Canario''', nacido en el municipio de [[Vilaflor]]. Su principal santuario es una cueva situada en el municipio de [[Granadilla de Abona]] (sur de la isla), en esta cueva se dice que el hospedaba su ganado. El Santo Hermano Pedro fué muy devoto de la Virgen de Candelaria, a cuyo santuario solía [[peregrinación|peregrinar]] con frecuencia.

==== Patronazgo de la isla ====

*[[San Miguel Arcángel]], es el Santo Patrono de la isla de Tenerife y del [[San Cristóbal de La Laguna|Ayuntamiento de La Laguna]], de hecho su imagen aparece en el escudo insular, que fue concedido por [[Fernando el Católico]], el [[23 de marzo]] de [[1510]], en nombre de su hija la reina [[Doña Juana]].

*La Patrona de Tenerife es la [[Virgen de Candelaria]] (siendo además la Patrona de Canarias). Su festividad es el 15 de agosto, día de la Ascunsión (festivo en Canarias) y el 2 de febrero, este último día festivo en la isla.

=== Museos ===
La isla cuenta con diversos recintos museísticos de diferente naturaleza que están bajo el dominio de distintas instituciones. Quizás los más destacados sean los pertenecientes al [[Organismo Autónomo de Museos y Centros]], que dispone de los siguientes espacios:
* '''[[Museo de la Naturaleza y el Hombre]]''': localizado en Santa Cruz de Tenerife, este museo ofrece una visión de la riqueza natural de las Islas Canarias y de las poblaciones prehispánicas [[guanche]]s que en ellas habitaban. El complejo está integrado por tres museos:
** '''Museo de Ciencias Naturales'''
** '''Museo Arqueológico de Tenerife'''
** '''[[Instituto Canario de Bioantropología]]'''
* '''[[Museo de Historia de Tenerife]]''': enclavado en la ciudad de [[San Cristóbal de La Laguna|La Laguna]], el museo de historia presta una visión general del desarrollo institucional, social, económico y cultural de la Isla entre los siglos XV y XX.
* '''[[Museo de la Ciencia y el Cosmos]]''': también situado en [[San Cristóbal de La Laguna|La Laguna]] contiguo a las dependencias del [[Instituto de Astrofísica de Canarias]] este museo acerca al visitante a las leyes y principios que rigen la Naturaleza, desde el funcionamiento de su propio cuerpo hasta el de las estrellas.
* '''[[Museo de Antropología de Tenerife]]''': Situado en [[San Cristóbal de La Laguna|La Laguna]], concretamente en [[Valle de Guerra]] el Museo de Antropología de Tenerife es una institución pública dedicada a investigar, conservar y difundir la cultura popular.
* '''[[Centro de Documentación Canario-Americano (CEDOCAM)]]''': Con domicilio en [[San Cristóbal de La Laguna|La Laguna]] tiene como misión potenciar las relaciones culturales y los elementos de identidad comunes entre Canarias y [[América]], así como la conservación, información y difusión del patrimonio documental compartido.
* '''[[Centro de Fotografía Isla de Tenerife]]''': ubicado en [[Santa Cruz de Tenerife]] este recinto ofrece un programa anual de exposiciones que permiten el contacto con tendencias y obras de distintos autores de renombre y creadores emergentes de las propias islas. En un futuro este centro compartirá sede con el Instituto Óscar Domínguez de Arte y Cultura Contemporánea.
* '''[[TEA - Tenerife Espacio de las Artes]]''': situado también en la ciudad de [[Santa Cruz de Tenerife]] este museo aún por inaugurar busca promover el conocimiento de las diferentes tendencias del arte y la cultura contemporáneos entre la población local y foránea, propiciando la organización de actividades culturales, científicas, educativas y técnicas.

Desligados del Organismo Autónomo de Museos y Centros destacan:

* El '''[[Convento de San Francisco (Santa Cruz de Tenerife)|Museo Municipal de Bellas Artes]]''', en la capital tinerfeña, que muestra una exposición permanente de pinturas y esculturas de [[José de Ribera]], [[Federico Madrazo]], [[Joaquín Sorolla]] y de artistas canarios como Millares u [[Óscar Domínguez]].
* La '''Casa del Vino-La Baranda''' que, perteneciente a la Asociación de Museos del Vino de España, está emplazada en el municipio de [[El Sauzal]] y dispone entre sus instalaciones de una ''hacienda'' histórica rústica, un ''museo'' que permite conocer la historia vitivinícola de Tenerife, un ''restaurante'' que ofrece comida típica de la tierra, una ''vinoteca'', una ''sala audiovisual'' y una ''sala de degustación''.
* La '''Casa de la Miel''': anexa a la Casa del Vino-La Baranda, es una entidad creada por el Cabildo Insular con el fin de apoyar y desarrollar el sector apícola de Tenerife. La [[Casa de la Miel]] dispone de un centro de visitantes que ofrece una visión acerca de la historia del producto en la isla, su proceso de elaboración y serviciós de información y degustación de las mieles de Tenerife, que poseen denominación de origen.
* El '''Museo de Artesanía Iberoamericana''' que se encuentra ubicado en el antiguo convento de San Benito Abad, de [[La Orotava]]. El centro se encuadra dentro del programa de divulgación que ejecuta el Centro de Documentación de la Artesanía de España y América, Fundación financiada por el Ministerio de Industria, Comercio y Turismo; la [[Agencia Española de Cooperación Internacional]], la Comisión Nacional "Quinto Centeneario", la Consejería de Industria y Comercio del [[Gobierno de Canarias]] y el [[Cabildo Insular de Tenerife]]. Cuenta con cinco salas especializadas en ''Instrumentos musicales populares'', ''Textil-nuevos diseños en artesanía'', ''Cerámicas'', ''Fibras'' y ''Arte Popular''.
* El '''[[Museo Arqueológico del Puerto de La Cruz]]''': sito en la ciudad homónima y habilitado sobre una casona tradicional de los siglos XVIII-XIX, ofrece un fondo museográfico integrado por más de 2.600 registros de elementos de la cultura [[guanche]] y un fondo documental que lleva el nombre del investigador Luis Diego Cuscoy.
* El '''[[Museo Militar Regional de Canarias]]''', localizado en Santa Cruz de Tenerife, concretamente en el [[Fuerte de Almeyda|acuartelamiento de Almeyda]]. En sus salas se presenta toda la historia militar de Canarias, incluyendo el repelido ataque del [[Horacio Nelson|almirante Nelson]], así como otros eventos y batallas libradas en las islas. Aparte del Museo Histórico Militar de Canarias este inmueble dispone del Archivo Intermedio Militar de Canarias y la Biblioteca Militar de Canarias.

== Fiestas tradicionales ==
Tenerife tiene un amplio calendario festivo en el que destaca principalmente el [[Carnaval de Santa Cruz de Tenerife]], el más importante del país y uno de los más importantes del mundo.<ref>{{cita web
|url=http://www.canarias7.es/articulo.cfm?Id=131352
|título=Canarias 7. Tenerife. El Carnaval de Santa Cruz de Tenerife, candidato a Tesoro del Patrimonio Cultural Inmaterial de España 
|añoacceso=2009
|autor=
|enlaceautor=
|idioma=
}}</ref><ref name=repetida_3 /> El día oficial de la isla es el [[2 de febrero]] en honor de la [[Virgen de Candelaria]] (patrona de la isla y [[Patrona de Canarias]]). Otras fiestas destacables son sus romerías, el Corpus Christi, la Semana Santa y la fiesta del [[Santísimo Cristo de La Laguna]] el [[14 de septiembre]].

=== Carnaval ===
Quizás la fiesta de mayor repercusión nacional e internacional sea el [[Carnaval de Santa Cruz de Tenerife]], no en vano declarado [[Fiestas de Interés Turístico Internacional (España)|Fiesta de Interés Turístico Internacional]].

=== Romerías ===
Las fiestas populares más tradicionales y extendidas en Tenerife son quizás las [[romerías]]. Éstas, a caballo entre lo pagano y lo religioso son manifestaciones multitudinarias con carrozas o carretas, [[apero]]s y [[ganado]] en honor al [[santo patrón|patrón o patrona]] del lugar. Es frecuente en estos festejos la reunión de marcados factores identitarios de la etnografía isleña: folclore, danza, artesanía, comida típica, deportes autóctonos, donde se puede observar a gran parte de los asistentes ataviados con los diferentes [[traje de mago|trajes de mago]] típicos de las islas.[[Imagen:Reina carnaval.jpg|thumb|right|250px|Reina del Carnaval de Santa Cruz de Tenerife]]
En origen las romerías encarnaban fiestas de las clases más adineradas de la sociedad, que se congregaban en veneración de los santos a los que atribuían buenas cosechas, tierras fértiles, copiosidad de lluvias, exoneración de determinadas enfermedades y un largo etcétera. En consecuencia, los allí reunidos degustaban los alimentos y vinos de la tierra y, brindaban y compartían sus bienes rindiendo así pleitesía. Éstas celebraciones se fueron popularizando paulatinamente y dieron paso a una de las fiestas más emblemáticas de la actualidad. Dentro de las grandes romerías de la isla cabe señalar las romerías de San Marcos en Tegueste, donde las carretas son decoradas con productos del campo (semillas, cereales, flores, etc), San Isidro Labrador en Los Realejos, San Isidro Labrador y Santa María de la Cabeza en La Orotava, San Benito Abad en La Laguna, San Roque en Garachico, San Agustín en Arafo o la Romería-Ofrenda a la [[Virgen de Candelaria]] celebrada cada 14 de agosto. Otro acto significativo de la fiesta de la Virgen de Candelaria es la llamada "[[Caminata a Candelaria]]", realizada en la noche del 14 al 15 de agosto, en el cual los fieles hacen peregrinación a pie desde diferentes partes de la isla, incluso llegando de otras islas, hasta llegar a la Villa Mariana de [[Candelaria]].

=== Fiestas de la Virgen de Candelaria ===

{{AP|Virgen de Candelaria}}
La [[Virgen de Candelaria]] es la [[Patrona de Canarias]]. Su fiesta es celebrada dos veces al año, en [[febrero]] y en [[agosto]]. La Romería-Ofrenda a la [[Virgen de la Candelaria|Virgen de Candelaria]] se celebra cada 14 de agosto. En este acto es tradición que representaciones de todos los municipios de la isla y también de todas las islas del Archipiélago Canario acudan a ofrendar a su Patrona. Otro acto significativo de la fiesta de la Virgen de Candelaria es la [[Caminata a Candelaria|peregrinación a la Villa Mariana]] realizada en la noche del 14 al 15 de agosto, en la cual los fieles recorren andando multitud de kilómetros desde diferentes partes de la isla hasta llegar a la [[Candelaria (Santa Cruz de Tenerife)|Villa Mariana de Candelaria]], lugar donde se encuentra la venerada imagen de la Virgen de Candelaria. Es habitual recibir peregrinos de otras islas e incluso de otras partes de España.

El [[2 de febrero]] se celebra la [[Fiesta de la Candelaria|Fiesta Litúrgica de La Candelaria]]. También en este día se acercan a la villa muchos fieles de la ''Virgen Morenita''. Es también tradición que cada siete años la imagen de la Virgen sea trasladada alternativamente por dos semanas a las ciudades de [[Santa Cruz de Tenerife]] (capital) y [[San Cristóbal de La Laguna]] (sede de la diócesis). Las últimas dos veces que se ha efectuado dicho traslado han sido en octubre de [[2002]] a Santa Cruz y en mayo de [[2009]] a La Laguna. Las próximas serán en [[2016]] a Santa Cruz y en [[2023]] a La Laguna.

=== Fiestas del Santísimo Cristo de La Laguna ===

{{AP|Santísimo Cristo de La Laguna}}
Esta Festividad Litúrgica que, tiene varios siglos de historia, es celebrada cada [[14 de septiembre]] en la ciudad de [[San Cristóbal de La Laguna]] y gira en torno al [[Santísimo Cristo de La Laguna]]. El Cristo de La Laguna es una de las imágenes más veneradas de las Islas Canarias, junto con la [[Virgen de Candelaria]], especialmente en la isla de Tenerife, es la imagen [[Cristología|Cristológica]] más venerada de Canarias, y la imagen religiosa más antigua del archipiélago.

Cada [[9 de septiembre]] la venerada imagen del Cristo es bajada en público del altar mayor de su [[Real Santuario del Cristo de La Laguna|Real Santuario]], para el rito del [[besapiés]] y para más tarde ser colocada en el [[trono]] procesional, para sus fiestas mayores de septiembre. La imagen permanece en su trono procesional hasta el [[21 de septiembre]], día en que la sagrada imagen es subida de nuevo a su altar. Durante este tiempo la imagen es solemnemente trasladada hasta la [[Catedral de La Laguna]] (9 de septiembre), en la cual procesiona en una cruz repujada en [[plata]]. En dicha catedral permanece durante varios días, hasta el día [[14 de septiembre]], cuando se procede al traslado de vuelta a su Real Santuario.

=== Corpus Christi ===
[[Imagen:Plaza-centro.jpg|thumb|left|250px|Tapiz de la Plaza del Ayuntamiento en La Orotava.]]
Con marcado carácter religioso se encuentra la festividad del [[Corpus Christi]], en la que es habitual la confección de alfombras florales en las calles. A título especial se pueden incluir las realizadas en [[La Orotava]], donde se puede contemplar un tapiz de considerables dimensiones confeccionado en la plaza del ayuntamiento mediante tierras volcánicas de diversas tonalidades, extraídas del [[Parque Nacional del Teide]] que, tras la celebración son devueltas a fin de respetar el entorno del Parque. La festividad del Corpus Christi de La Orotava está declarada Bien de Interés Cultural en la categoría de Actividad Tradicional de Ámbito Insular.

=== Semana Santa ===
{{AP|Semana Santa en Canarias}}
En el capítulo de celebraciones a reseñar de la isla de Tenerife habría que contar con la [[Semana Santa]]. Esta se celebra en todos los municipios pero probablemente sea en La Laguna, La Orotava y Los Realejos donde adquiera especial significado. En este sentido destacan principalmente las procesiones que se desarrollan durante el [[Jueves Santo]], [[Viernes Santo]] y [[Domingo de Resurrección]]. La [[Semana Santa de San Cristóbal de La Laguna]] es considerada como la Semana Santa más importante y multitudinaria de las que se celebran en Canarias.

==Gastronomía==

===Pescados===
Como resulta lógico por la influencia marina, los productos del mar gozan aquí de cierta abundancia tanto en cantidad como en variedad. Entre las especies más apreciadas están las [[vieja]]s, y también, entre otros, la [[sama]], el [[bocinegro]], la [[salema]], el [[cherne]], el [[mero]]... Destacan asimismo los diversos tipos de [[túnido]]s que abundan en sus costas. Las caballas, sardinas y chicharros también deben ser citadas entre los pescados más consumidos. Otra especie que disfruta de cierta fama es la [[Muraenidae|morena]], que se suele servir frita. Estas variedades marinas se suelen preparar simplemente sancochadas (cocidas), o a la espalda, a la sal, etc. Es frecuente que se acompañen con [[mojo]] y [[papas arrugadas]].

===Carnes===
En el apartado de [[carne]]s, es un plato muy popular la típica carne de fiesta (tacos de [[carne de cochino]] adobados) que se prepara para los festejos de los pueblos en ventorrillos, bares y casas particulares. El conejo en salmorejo, el cabrito, y por supuesto el vacuno, el porcino y las carnes de ave son también consumidas habitualmente.

===Papas Arrugadas===
[[Imagen:Papasarrugadas.jpg|thumb|right|250px|Papas arrugadas con mojo]]
Tanto los pescados como las carnes suelen acompañarse con [[papas arrugadas]]. Es este un plato típico del conjunto de las Canarias que responde simplemente a la forma de cocinar las papas. Con agua, mucha sal, y sin pelar.

===Mojos===
Con esta palabra, seguramente de ascendencia portuguesa, se designan las salsas típicas del las islas. Los [[mojo]]s constituyen un auténtico mundo de sabores, colores, texturas, etc., entre los que se encuentran el mojo de [[cilantro]], de [[perejil]], de [[pimentón]] y el distinguido mojo picón a base de [[pimienta]]. No obstante el abanico de estas salsas es muy amplio y permite el uso de distintos ingredientes en su elaboración como [[almendra]]s, [[queso]], [[azafrán]], pan frito, entre otras posibilidades.

===Quesos===
Viene a ser otro de los platos más comúnmente elaborados y consumidos. Destacan los producidos en granjas de Arico, La Orotava o Teno. A su vez, son diversas variedades las que existen: quesos tiernos, curados, semicurados, ahumados… Hoy en día predominan los quesos de [[cabra]], aunque en ocasiones se confeccionan con ciertas cantidades de leche de [[oveja]] o de [[vaca]]. Suelen servirse a modo de entrante o simplemente de tentempié. Los quesos canarios gozan de una buena crítica internacional, entre otras cosas, por su suavidad y por su sabor, dotándolos de una personalidad que los diferencia de otros quesos europeos.

===Gofio===
[[Imagen:Gofioescaldado.jpg|thumb|right|250px|Gofio escaldado]]
El [[gofio]] es uno más de los elementos tradicionales de la cocina canaria y particularmente de Tenerife. Se realiza con granos de cereales que son tostados y posteriormente molidos. El género de mayor consumo en la isla es el de [[trigo]], aunque existen otros tipos como el de [[millo]] o en menor medida el de [[garbanzo]]. Es también relativamente frecuente aquel de tipo mixto, trigo-millo. Desde incluso antes de la conquista de Canarias ya servía de sustento para los guanches. En posteriores tiempos de hambruna y escasez de alimentos formó parte de la dieta popular canaria. Hoy en día se utiliza como plato único (gofio escaldado) o como complemento en platos de distinta índole, carnes, pescados, potajes, postres, incluso algún cocinero de prestigio ha confeccionado [[helado]]s de gofio recibiendo buena crítica al respecto.

===Repostería===
La [[repostería]] en Tenerife se encuentra representada y fuertemente influenciada por la repostería palmera, con exquisiteces como el bienmesabe, la leche asada, el Príncipe Alberto, el frangollo, los huevos moles, el quesillo y un largo etcétera. Del mismo modo, los rosquetes, las truchas, y diversos tipos de pasteles, entre los que se encuentran los laguneros y los singulares rosquetes de Guía de Isora, forman parte de este capítulo del recetario.

===Vinos===
El cultivo de la [[vid]] en el archipiélago y especialmente en Tenerife nace tras la conquista, cuando los colonizadores traen variedades de viñas y comprueban la nobleza que adquirían los caldos canarios. En los siglos XVI y XVII, el [[vino]] alcanza un gran peso en la economía tinerfeña pues son muchas las familias que se dedicaban a su cultivo y posterior negocio. Especial mención merece el malvasía canario, que llegó a ser considerado el mejor vino del mundo y era ansiado por las cortes europeas y las mayores bodegas de Europa y América. Escritores como [[William Shakespeare]] o [[Walter Scott]] hacen referencia en algunas de sus obras a estos vinos. La isla presenta actualmente cinco denominaciones de origen: '''Abona''', '''Valle de Güímar''', '''Valle de La Orotava''', '''Tacoronte-Acentejo''' e '''Ycoden-Daute-Isora'''.

==Referencias==
<references/>

== Véase también ==
* [[:categoría:Tinerfeños|Tinerfeños ilustres]]
* [[Erupciones históricas de Tenerife]]
* [[Bandera de Tenerife]]
* [[Teide]]
* [[Auditorio de Tenerife]]
* [[Achinech]]
* [[Nivaria]]

==Enlaces externos==
* [http://www.tenerife.es Cabildo Insular de Tenerife]
* [http://www.puntoinfo.idecnet.com/ Tenerife Punto de Información]
* [http://www.auditoriodetenerife.com Auditorio de Tenerife]
* [http://www.taliateatro.org Grupo Teatral Talía]
* [http://sapiens.ya.com/floraypoesia/flora.htm Flora silvestre de Tenerife (Por zonas)]
* [http://sapiens.ya.com/floraypoesia/indices.htm Flora silvestre de Tenerife (Indices alfabéticos)]

[[Categoría:Tenerife]]

Tenerife

2026-02-06T05:06:27Z

GeminiFix:

{{Ficha_Isla |
|bandera = [[Imagen:Flag of Tenerife.jpg|25px]]
|imagen = [[Imagen:Nasa world wind - teneriffa.jpg|230px|Fotografía de satélite de Tenerife]]
|mapa = [[Imagen:TF Canarias.jpg|230px|Mapa de situación de la isla de Tenerife]]
|archipiélago = Islas Canarias
|escudo = [[Imagen:HeráldicaTenerife.jpg|40px]]
|superficie= 2.034,38 km2 
|océano = Océano Atlántico
|coordenadas = 28° 16′ 07″ N 16° 36′ 20″ O
|altitud = 3.718 m ([[Pico del Teide]])
|capital = [[Santa Cruz de Tenerife]]
|gentilicio = Tinerfeño/a.
|población = 838.877 (censo de 2005)
|densidad = 412,4 hab./km2
|presidente = Ricardo Melchior
|partido = CC
|tipo = -
|}}

'''Tenerife''' es una isla de [[Canarias]] situada en el [[Océano Atlántico]] frente a las costas africanas. Junto a [[La Palma]], [[La Gomera]] y [[El Hierro]] conforma la [[provincia de Santa Cruz de Tenerife]]. Su capital es [[Santa Cruz de Tenerife]], que además lo es también de Canarias conjuntamente con [[Las Palmas de Gran Canaria]]. Entre [[1833]] y [[1927]] Santa Cruz de Tenerife fué la capital única de Canarias, hasta que en 1927 un decreto ordenó que la capitalidad de Canarias sea compartida, que es como permanece en la actualidad.
[http://es.wikisource.org/wiki/Real_Decreto_de_30_de_noviembre_de_1833 ''Real Decreto de 30 de noviembre de 1833'']
[http://www.gobiernodecanarias.org/tuestatuto/docs/1833-12-03%20Decreto%20de%20division%20provincial.pdf ''Real Decreto de 30 de noviembre de 1833'']
Otra ciudad con gran importancia para la isla y Canarias es, [[San Cristóbal de La Laguna]] (tercera ciudad más importante del archipiélago, tras Santa Cruz de Tenerife y Las Palmas de Gran Canaria). Tenerife es un destino turístico importante en España y en el mundo.

Tenerife, con 865.070 habitantes (casi un millón de habitantes), es la isla más poblada de Canarias y de [[España]]. Es además la isla canaria que más municipios posee en su territorio, 31 en total. Tiene el Área Metropolitana más grande y extensa del Archipiélago Canario con 366,85 kilómetros cuadrados ([[Área metropolitana de Santa Cruz de Tenerife-La Laguna]]). Por lo tanto, es también el área metropolitana más grande de la [[Unión Europea]] fuera de [[Europa]] (como región periférica).

En Tenerife además se encuentra la mayor elevación de España, de las islas atlánticas y tercer volcán más grande del mundo desde su base, El [[Teide]], declarado también [[Patrimonio de la Humanidad]].
[http://www.webtenerife.com/PortalTenerife/Home/Disfruta+sin+perderte+nada/Mas+sobre+Tenerife/Naturaleza/Espacios+naturales/Parque+Nacional+de+El+Teide/?Lang=es Parque nacional del Teide: web oficial de Turismo de Tenerife]

== Toponimia ==
Son diversos los nombres que las distintas culturas han atribuido a Tenerife a lo largo de la historia. Así por ejemplo, para los [[guanche]]s, la isla recibía el nombre de '''Achined, [[Achinet]]''' o '''Chenet''', aunque en función de la bibliografía que se consulte, la nómina puede adquirir diferentes variaciones ortográficas. Los [[Antigua Roma|romanos]] se referían a ella como '''[[Nivaria]]''' (del latín ''nix'', ''nivis'', ''nieve''), en clara referencia a las nieves posadas sobre el volcán conocido como el [[Teide]]. Los nombres de Achined y Nivaria todavía se utilizan en referencia a Tenerife, sobre todo en un sentido patriótico por los habitantes de la isla. En esa misma dirección apuntan algunos mapas de los siglos XIV y XV, que de manos de Bontier y Le Verrier se refieren a la isla como '''Isla del Infierno''' a razón de los procesos eruptivos de los que el volcán era protagonista. Finalmente, el propio Teide es el responsable del nombre actual de la isla, ya que fue dado por los benahoaritas (aborígenes de La Palma) según las palabras '''Tene''' (''montaña'') e '''ife''' (''blanca''). Posteriormente, la castellanización del nombre provocó que se añadiera una "r" para unir ambas palabras obteniendo como resultado Tenerife.<ref name=Abreu>{{cita libro | apellidos = Abreu Galindo | nombre = FR. J. | título = Historia de la conquista de las siete islas de Canaria | editorial = Goya | id = ISBN 978-84-400-3645-2 }}</ref><ref name=Bethencourt>{{cita libro | apellidos = Bethencourt Alfonso | nombre = Juan | título = Historia del pueblo guanche | editorial = Francisco Lemus Editor SL | año = 1997 | id = ISBN 978-84-87973-10-9 }}</ref>

==Descripción==
Su orografía es abrupta y volcánica, producto de erupciones (la más reciente fue el Chinyero en 1909). Es la isla más poblada de Canarias y de España con 838.877 habitantes [http://www.ine.es Instituto Nacional de Estadística de España], 01-01-2005 y 2.034 [[kilómetro cuadrado|km²]] de superficie.

[[Imagen:Panorama Teide BW.jpg|800px|thumb|center|Panorámica del circo de Las Cañadas del Teide.]]

===Situación y extensión===
Tenerife es la mayor de las siete islas que componen el Archipiélago Canario; está situada entre los paralelos 28 y 29 N y los meridianos 16 y 17 O, ligeramente al Norte del Trópico de Cáncer, y ocupa una posición central entre las islas de Gran Canaria, La Gomera y La Palma.

La isla se encuentra a algo más de 300 Kms. del continente africano y a unos 1.000 Kms. de la Península Ibérica

Tiene 2.034 km² de superficie y una curiosa forma triangular, alzándose en su centro el gigantesco [[Pico del Teide]], que con sus 3.718 metros de altura es el punto más elevado de toda el Estado Español.

Para referirse a sus habitantes se utiliza el gentilicio '''Tinerfeño'''. Otro gentilicio utilizado, generalmente por personas de otras islas, es el de '''chicharrero''', el cual en principio iba referido sólo a los habitantes de Santa Cruz de Tenerife, capital de la isla, y teniendo una cierta carga despectiva en su origen.

=== Origen y formación ===
[[Imagen:Formación Tenerife.jpg|thumb|180px|right|Esquema general de la formación de Tenerife.]]
Tenerife es una isla de origen volcánico, cuya formación comenzó a gestarse en el fondo oceánico hace unos 20-50 millones de años (m.a.).

Según una de las teorías más aceptadas actualmente por la comunidad científica ('''Teoría de los bloques levantados'''), el ascenso de [[magma]] procedente del manto terrestre se produce en periodos de actividad [[tectónica de placas|tectónica]] a partir de fallas o fracturas que existen en el [[placa oceánica|fondo oceánico]]. Éstas siguen los ejes estructurales de la isla, y se conformaron durante la orogenia [[Alpes|Alpina]] de la [[Era Terciaria]] por el movimiento de la [[placa Africana]]. Estas erupciones de tipo fisural submarino originan las denominadas [[lava#lava almohadillada|lavas almohadilladas o pillow-lavas]], que se producen por el rápido enfriamiento que experimenta el magma al establecer contacto con el agua, obteniendo así una forma muy característica. Estos materiales se fueron acumulando y construyendo el edificio insular bajo el mar. A medida que éste se aproximaba a la superficie, los gases, debido a la disminución de la presión circundante, se iban liberando del magma y los episodios vulcanológicos pasaban de ser tranquilos a tener un carácter marcadamente explosivo, formando materiales fragmentarios.

Tras largo tiempo de acumulación de materiales, el nacimiento de la isla se produjo a finales del [[Mioceno]] (Era Terciaria). Hace siete millones de años emergieron las zonas de [[Macizo de Teno|Teno]], [[Macizo de Anaga|Anaga]] y Macizo de Adeje, en la que se denomina ''Serie Basáltica Antigua'' o ''Serie I''. Se constituyeron de este modo tres islas cronológica y estratigráficamente distintas en los extremos oeste, este y sur de la actual Tenerife.
[http://www.puntoinfo.idecnet.com/index.php?sectionID=2&lang=1&s=1&ID=160 Información del Cabildo de Tenerife]

Hace aproximadamente 3 m.a. comienza un segundo ciclo volcánico (''Formaciones Postmiocenas'' o ''Series Recientes II, III y IV''), mucho más intenso, que incorpora elementos en la zona central de la isla, la cual también emerge y unifica en uno sólo a los tres edificios anteriormente descritos. La estructura conformada en ese momento recibe el nombre de ''Edificio pre-Cañadas'', sobre cuyos restos se erigiría más tarde el ''Edificio Cañadas I''. Este ultimó experimentó diversos colapsos y emitió una gran variedad de materiales explosivos que dieron lugar a las llamadas ''Bandas del sur'' (sur-sureste actual).
[http://www.gevic.net/info/contenidos/mostrar_contenidos.php?idcat=36&idcap=58&idcon=330 Gran Enciclopedia Virtual Interactiva de Canarias]

Posteriormente, sobre las ruinas de este complejo surgiría el ''Edificio Cañadas II'', ya por encima de los 2.500 metros, también con intensos procesos explosivos. Hace alrededor de 1 m.a. se inició la construcción de la ''Cordillera Dorsal'', con un vulcanismo de tipo fisural, a partir de los restos de los edificios ya parcialmente desmantelados de la ''Serie I''. La ''Cordillera Dorsal'' es la de mayor desarrollo altitudinal y longitudinal del Archipiélago Canario, con 1.600 metros de altura y 25 kilómetros de longitud. En este mismo espacio cronológico (hace 800.000 años) tienen lugar dos deslizamientos gravitacionales que motivaron la aparición de los valles de [[Valle de La Orotava|La Orotava]] y [[Valle de Güímar|Güímar]].

Finalmente, ya en tiempos más próximos (200.000 años), comienzan las erupciones que levantarían el ''Edificio Pico Viejo-Teide'' en el centro de la isla, sobre la ''[[Caldera de Las Cañadas]]''.

=== Orografía y paisaje ===
La abrupta orografía isleña y su variedad de climas dan como resultado un territorio de múltiples paisajes y formas, desde el [[Parque nacional del Teide|Parque Nacional del Teide]] con su amalgama de colores fruto de las sucesivas erupciones volcánicas, hasta los [[Acantilados de Los Gigantes]] con sus paredes verticales, pasando por zonas semidesérticas con plantas resistentes a la sequedad en el sur, o por ambientes de carácter meramente volcánico como es el [[Malpaís de Güímar]].

También cuenta con playas naturales como la de [[El Médano]], con parajes protegidos en su entorno como Montaña Roja y Montaña Pelada, valles con cultivos tropicales y subtropicales, boscosos parajes de [[laurisilva]] en los macizos de [[Macizo de Anaga|Anaga]] y [[Macizo de Teno|Teno]] -con profundos y escarpados barrancos- y extensos bosques de pinos por encima de esta última formación vegetal.

==== Macizos ====
[[Imagen:Anaga 2006.jpg|thumb|left|250px|Panorámica del Macizo de Anaga.]]
El '''macizo de [[Anaga]]''', en el extremo nororiental de la isla, posee un perfil topográfico irregular y escabroso donde a pesar de no presentar grandes cotas, destaca el Pico del Inglés con 1.024 metros. Debido a la antigüedad de sus materiales (5,7 m. a.), a sus profundos procesos erosivos y a la densa red de diques que atraviesan el macizo, son numerosos los roques que aparecen en superficie, tanto de etiología fonolítica como traquítica. Existe una gran cantidad de barrancos escarpados y muy encajados en el terreno. En la costa de Anaga predominan los acantilados, por lo que existe un número escaso de playas, aún así, las que hay suelen coincidir con zonas de desembocadura de barrancos, algunas de rocas y otras de arena negra.

El '''macizo de Teno''' se encuentra en el extremo noroccidental. Al igual que en Anaga, se trata de una zona de estructuras desmanteladas y hondos barrancos que se han originado por erosión. Sin embargo, aquí los materiales son más antiguos (aproximadamente 7,4 m. a.). Destacan la Montaña de Gala que con 1.342 metros representa la mayor altitud. El paisaje más singular de este Macizo se encuentra en su costa sur. Se trata de los Acantilados de Los Gigantes, con paredes verticales que llegan a alcanzar en algunos puntos los 500 metros de altura.

El '''macizo de Adeje''' se sitúa en el extremo meridional de la isla, teniendo como mayor exponente al Roque del Conde, con 1.001 metros de altitud. El macizo no es tan apreciable por su reducida estructura inicial, hecho que añadido a la historia geológica del lugar ha potenciado un intenso desmantelamiento de sus materiales, perdiendo de ese modo su aspecto y envergadura original.

==== Dorsales ====
La '''Cordillera dorsal o dorsal de Pedro Gil''' abarca desde el principio del monte de La Esperanza, a unos 750 metros de altitud aproximadamente, hasta la zona central de la isla, en las inmediaciones de la Caldera de Las Cañadas, siendo Izaña, su punto más alto, con 2.350 metros sobre el nivel del mar. Esta estructura se ha constituido a expensas de un vulcanismo fisural de tipo basáltico a través de uno de los ejes o directrices estructurales que han dado origen al vulcanismo de la isla.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

La '''dorsal de Abeque''' se encuentra formada por una cadena de volcanes que unen el macizo de Teno con el edificio central insular Teide-Pico Viejo a partir de otro de los tres ejes o directrices estructurales de Tenerife. A esta dorsal pertenece el volcán histórico de Chinyero cuya última erupción se registró en 1909.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

La '''dorsal Sur o dorsal de Adeje''' está al amparo del último de los ejes estructurales. Destacan los restos de su macizo como formación primigenia, así como las alineaciones de pequeños conos volcánicos y de roques esparcidos por toda esta zona del sur tinerfeño.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

==== Edificio central ====
[[Imagen:Teide Tenerife4.jpeg|thumb|250px|right|Roque Cinchado y El Teide.]]
Las principales estructuras de Tenerife descritas en las líneas anteriores se ven culminadas en el edificio central, con el complejo Teide-Pico Viejo y el circo de Las Cañadas. Se trata de una semicaldera de 130 kilómetros cuadrados, que ha sido originada por un conjunto de procesos geológicos explicados en el epígrafe ''Origen y formación''. El circo está parcialmente ocupado por el estratovolcán Teide-Pico Viejo y completado por los materiales que ha emitido en sus diferentes erupciones. Destacan en su interior los [[Roques de García]], entre los que está el más conocido, el Roque Cinchado. Otra formación llamativa son Los Azulejos, compuesto por fonolitas de colores verdosos que se han creado por actividad hidrotermal.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

Al sur de La Caldera destaca la [[Montaña de Guajara]], que con 2.718 metros es la de mayor altitud de las que constituyen el anfiteatro de Las Cañadas del Teide. Al pie de estas paredes se han creado [[cuenca endorreica|llanos endorreicos]] de materiales sedimentarios muy finos, siendo el más conocido el [[Llano de Ucanca]].<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

El Pico del [[Teide]], con 3.718 metros sobre el nivel del mar y más de 7.000 sobre el fondo oceánico, es el punto más elevado de la isla, del territorio español y de todas las tierras emergidas del Atlántico. Este volcán, el tercero más grande del planeta,<ref>[http://www.csic.es/estudios_geol/archivo/vol5914/EGv59p015029dncwio.pdf Estudio geológico sobre el Teide del CSIC]</ref> es el símbolo de Tenerife por antonomasia. Su situación central, sus importantes dimensiones, su silueta y su paisaje nevado lo dotan de una singular personalidad. Ya los aborígenes lo consideraban lugar de culto y adoración.

Desde 1954, el Teide y todo el circo de su alrededor (aunque hubo una ampliación posterior de sus límites) está declarado como parque nacional. Además, desde junio de 2007 está incluido por la [[UNESCO]] dentro de los espacios [[Patrimonio de la Humanidad]] como bien natural.<ref>[http://whc.unesco.org/en/list/1258 Página web oficial de la UNESCO (en inglés)]</ref>
Al oeste se encuentra el volcán Pico Viejo,. En un lateral de éste, se encuentra el Volcán de Chahorra o Narices del Teide, donde se produjo la última erupción que se ha dado en el entorno del Teide, en 1798.

==== Valles ====
[[Imagen:Orotavatal.jpg|500px|thumb|left|Panorámica del Valle de La Orotava con el Teide al fondo.]]Los [[valle]]s son otra de las formas de relieve más destacadas. Los más importantes son el [[Valle de La Orotava]] y el [[Valle de Güímar]] que se han generado por el deslizamiento en masa de grandes cantidades de materiales hacia el mar, creando una hondonada en el terreno.
Existen otros valles que se distribuyen por diversos enclaves de la geografía de Tenerife, aunque, en este caso, de diferente naturaleza. Suelen ser valles intercolinares que se han conformado tras el depósito de mayor cantidad de materiales geológicos en lomas laterales, o simplemente cauces amplios de determinados barrancos que en su evolución han tomado el aspecto de típicos valles.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

==== Barrancos ====
Tenerife, debido principalmente a su gran altitud y a su silueta en semejanza a un tejado de dos aguas, está surcada por gran cantidad de [[barranco]]s. Éstos constituyen uno de los elementos más característicos de su paisaje, originados por la erosión ejercida por la escorrentía superficial a lo largo de la historia. Destacan los barrancos de Ruiz, Fasnia y Güímar, Infierno y Erques, todos ellos declarados espacios naturales protegidos por las instituciones canarias.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>
[[Imagen:Tenerife88.jpg|thumb|right|250px|Montaña Roja al fondo, Playa de La Tejita.]]

==== Costas ====
Las costas son, a grosso modo, accidentadas y abruptas, aunque lo son más en la zona norte que en la sur. No obstante 67,14 kilómetros de la costa tinerfeña lo representan playas, sólo superada en este aspecto por la isla de [[Fuerteventura]].<ref>[http://www.gobiernodecanarias.org/istac/estadisticas/php/saltarA.php?mid=/istac/estadisticas/territorio_ambiente/area_01_frame.html Estadísticas del Gobierno de Canarias]</ref>En el litoral septentrional son frecuentes las playas de cantos rodados o de arena negra, mientras que en la vertiente sur y suroeste de la isla predominan las playas con arenas más finas y de tonalidades más claras.<ref name=enciclopedia/><ref name=islaaisla/><ref name=naturaycultura/>

===Flora y Fauna===
La isla de Tenerife disfruta de una [[diversidad ecológica]] pese a su reducida superficie, que es consecuencia de unas condiciones ambientales especiales, ya que la accidentada orografía reinante modifica localmente las condiciones climáticas generales, originando una exquisita variedad de [[microclima|microclimas]]. Esta vasta existencia de microclimas y, por lo tanto, de hábitats naturales, se hace manifiesta en la vegetación insular, constituida por una flora rica y variada (1400 especies de plantas superiores), entre las que destacan numerosos [[endemismo|endemismos]] canarios (200) y tinerfeños (140). Al concentrar este patrimonio vegetal de unas 140 especies exclusivas, la isla de Tenerife muestra la mayor relación de endemismos florísticos de la denominada [[Macaronesia]]. Además, la diferente composición química de los diversos materiales volcánicos que han construído el edificio insular, siempre bajo la acción combinada de los factores climáticos, dan lugar a una gran diversidad de suelos. La conjunción de estos agentes determina la presencia de múltiples hábitats que albergan numerosas comunidades de plantas y animales que constituyen los singulares [[ecosistemas]] de Tenerife. Antes de la llegada de los aborígenes, Canarias y en especial Tenerife estaba habitada por animales endémicos prehistóricos, la mayoria extintos como por ejemplo; los lagartos gigantes ([[Lacerta goliath]] y [[Lacerta maxima]]), o la rata gigante ([[Canariomys bravoi]]). <ref>http://www.gobiernodecanarias.org/cmayot/medioambiente/lagartodelagomera/gatos.html Según la Página Web del Gobierno de Canarias</ref>

El estudio de la flora y la fauna tinerfeña puede realizarse de un modo más ordenado si es clasificada según los diferentes pisos ecológicos en los que se divide el terreno de la isla. Dicha división atiende especialmente a la orientación norte o sur de las vertientes de la isla y por supuesto a la altitud:
*'''Cardonal - Tabaibal:''' 0 – 700 m: este estrato se caracteriza por una fuerte insolación y escasez de precipitaciones. En él destacan como especies vegetales las [[Euphorbia atropurpurea|tabaibas]], los cardones y cardoncillos, bejeques,...En cuanto a la fauna, son pobres las especies animales vertebradas en este ecosistema. Si acaso, algunas aves o reptiles. En cambio los insectos se encuentran muy bien representados.
*'''Bosques Termófilos:''' 200 - 600 m: este piso posee mayor grado de humedad y precipitaciones, y una menor insolación. Son importantes, dentro de las especies arbóreas las palmeras, las sabinas, los acebuches y una serie de endemismos como peralillos, guaidiles, españeros, malvas de risco y cinerarias. En relación con la fauna es preciso citar a la mariposa vanessa vulcania y aves insectívoras como la curruca cabecinegra y el capirote.
[[Image:Eidechsen Teide.jpg|thumb|left|230px|Gallotia Galloti, especie endémica de Tenerife]]
*'''Laurisilva:''' 500 - 1.000 m: se trata de un [[bosque]] denso de grandes árboles, herederos de la flora de la [[Era Terciaria]], que crecen en zonas de abundantes nieblas y lluvias frecuentes. Las especies vegetales superiores que abundan son laureles, tilos, viñátigos, barbusanos, y otras de menor tamaño como el [[canarina canariensis|bicácaro]], la cresta de gallo, la corregüela y una gran variedad de helechos. Con respecto a la fauna, la [[laurisilva]] es el estrato más rico en invertebrados y con mayor porcentaje de endemismos, entre los que se encuentran lombrices, moluscos y sobre todo artrópodos. Dentro de la fauna vertebrada hay que mencionar algunas especies de murciélagos y dos aves endémicas en peligro de extinción como son las palomas turqué y rabiche.
[[Imagen:Tajinaste rojo.jpg|thumb|right|260px|Tajinaste rojo]]
*'''Fayal-Brezal:''' 1.000 – 1.500 m: se trata también de un bosque, pero en este caso más seco y pobre en especies. Destacan florísticamente las fayas, brezos, acebiños,...También abundan diferentes especies de setas que pueden ser tanto comestibles como muy venenosas.
*'''Pinar:''' 800 - 2.000 m: bosque de pinos en formación abierta que se caracteriza por un aumento de la insolación y por una menor uniformidad en las temperaturas diurnas-nocturnas y estacionales. Sobresale por encima de cualquier otra especie el [[pino canario]]. La fauna es poco diversa, pero existen dos aves endémicas de singular belleza como el pinzón azul y el pico picapinos.
*'''Alta montaña:''' por encima de 2.000 m: posee un clima seco, una insolación muy alta y temperaturas extremas. A pesar de estas exigentes condiciones, crecen endemismos vegetales de gran importancia científica y belleza como [[tajinaste|tajinastes]], retamas, codesos, violeta del Teide,...y especies animales principalmente invertebradas como escarabajos, chinches, y mariposas.
Aún faltaría hablar de la extensa fauna marina de entre la que destacan viejas, meros, abades, salemas, samas, pargos,...Gran interés tienen también la tortuga boba y las colonias permanentes de ballenas y delfines que habitan el litoral sur de la isla.
Tenerife posee un inventario faunístico que asciende a 56 especies de aves, 13 de mamíferos terrestres, 5 de reptiles, varios miles de invertebrados, 2 de anfibios y 400 de peces además de algunas especies de tortugas marinas y cetáceos.

=== Espacios naturales protegidos ===
[[Imagen:Espacios_protegidos_Tenerife.jpg|thumb|right|250px|Mapa de clasificación de los espacios protegidos.]]
Prácticamente la mitad de la isla (48,6%),<ref>[http://www.gobiernodecanarias.org/educacion/culturacanaria/espacios/espanat.htm#tenerife La protección de los espacios naturales en Canarias (Gobierno de Canarias)]</ref> se encuentra bajo las diferentes fórmulas de protección que atribuyen la [[Red Canaria de Espacios Naturales Protegidos]]. De los 146 espacios naturales recogidos por la citada red en el conjunto del archipiélago,<ref>[http://www.gobcan.es/cmayot/espaciosnaturales/informacion/quees.html Red Canaria de Espacios Naturales Protegidos]</ref> un total de 43 se encuentran en Tenerife, siendo de este modo la isla que mayor número de espacios posee.<ref>[http://www.gobcan.es/cmayot/espaciosnaturales/informacion/tf_todo.html Relación de los Espacios Naturales protegidos de Tenerife]</ref> Asimismo, atendiendo al porcentaje de territorio protegido con el que cada isla contribuye al total del archipiélago, hay que destacar que es Tenerife con un 37% la isla que encabeza la tabla.<ref>[http://www.gobcan.es/cmayot/espaciosnaturales/tabla.html Superficie y número de espacios naturales protegidos, por islas, en Canarias]</ref> La Red contempla hasta ocho categorías de protección distintas, todas ellas representadas en la isla: aparte del parque nacional del Teide, cuenta con el mayor parque natural de Canarias ([[Corona Forestal]]), dos parques rurales (Anaga y Teno), cuatro reservas naturales integrales, seis reservas naturales especiales, un total de catorce monumentos naturales, nueve paisajes protegidos y hasta seis sitios de interés científico.
El municipio de La Orotava, en gran parte a expensas del [[Parque Nacional del Teide]], y el de Santa Cruz de Tenerife que hace lo propio con el [[Parque rural de Anaga]] presentan, respectivamente, el 76% y el 74% de su extensión bajo protección. De la misma forma, el emplazamiento mayoritario del [[Parque rural de Teno]] al amparo del municipio de Buenavista del Norte hace que este disponga de una importante parte de su superficie protegida.

===Clima===
A Tenerife se la conoce internacionalmente como la "Isla de la Eterna Primavera". La atribución de esta denominación climática se produce en gran medida gracias a los '''[[vientos alisios]]''', cuya humedad, principalmente, se condensa en las zonas de [[Zona de medianías (Canarias)|medianías]] del norte y nordeste insular, constituyendo amplios mares de nubes que se disponen preferentemente entre los 600 y 1.800 metros de altura; otro factor que influye en la suavidad del clima de las Islas con respecto al que por latitud correspondería (Desierto del Sahara), es la '''[[corriente marina fría de Canarias]]''', que enfría la temperatura de las aguas que bañan las costas y playas isleñas con respecto a la ambiental. Por último, la propia '''orografía tinerfeña''' también habría que tenerla en cuenta en esta terna de agentes encargados de hacer realidad el anteriormente citado eslogan.

[[Imagen:Mar de nubes, Tenerife.jpg|thumb|left|250px|Mar de nubes en la Isla de Tenerife, visto desde unos 1800 metros de altitud.]]

A grandes rasgos, el clima de Tenerife es moderado, templado y muy suave en cualquier estación del año. No hay períodos de frío pero tampoco los hay de calor asfixiante. Las temperaturas medias fluctúan entre los 17-18 ºC en invierno y los 24-25 ºC en la estación estival, aunque estos sean valores relativos y generales. Evidentemente se producen importantes contrastes, como el que se produce durante los meses de invierno, en los cuales es posible disfrutar del sol en zonas de costa y, sin embargo, 3.000 metros por encima poder contemplar la blanca estampa nevada del [[Teide]], lugar en el que nieva todos los años.

[[Image:Masca Road.jpg|thumb|250px|right|Masca]]
Otro ejemplo de contraste climático lo encontraríamos en la ciudad de [[Santa Cruz de Tenerife|Santa Cruz]] con respecto a la ciudad de [[San Cristóbal de La Laguna|La Laguna]]. Municipios unidos físicamente pero distanciados en cuanto a condiciones climáticas. Generalmente Santa Cruz tiene durante todo el año un clima cálido con temperaturas sensiblemente superiores a las que se disfrutan en la aledaña La Laguna, donde frecuentemente hace más frío y existe mayor probabilidad de precipitaciones.

El norte y el sur de Tenerife poseen igualmente diferentes características climáticas. En barlovento se registra un 73% de las precipitaciones totales además, la humedad relativa del aire es superior y la insolación inferior. Los máximos pluviométricos se registran en barlovento a una altitud media entre 1.000-1.200 m, casi exclusivamente en los montes de [[La Orotava]]. Pero quizás sea más significativo que todo el norte de la isla carezca de un espacio en el que la pluviosidad media sea inferior a los 250 mm anuales. En cambio, en la vertiente sur de la isla los valores pluviales son significativamente menores. Los únicos reductos sureños que se salvan de esta situación son [[Masca (Tenerife)|Masca]] y [[Güímar]], probablemente debido a sus características físicas que posibilitan una mayor presencia del alisio.

A modo de anécdota es interesante saber que los médicos europeos, sobre todo ingleses y holandeses, del pasado [[siglo XIX]] elogiaban el clima del norte de Tenerife, y lo recomendaban a sus pacientes para aliviar dolencias de la edad y del aparato circulatorio.

{| {{tablabonita}} width="567"
|- style="background: #99CCCC; color:#000080;"
| height="17" | Datos climáticos
!| Ene
!| Feb
!| Mar
!| Abr
!| May
!| Jun
!| Jul
!| Ago
!| Sep
!| Oct
!| Nov
!| Dic
|-
| style="background: #99CCCC; color:#000080;" | Ø Horas de sol/Día
| style="background: #FFFF99; color:#000080;" | 5,9
| style="background: #FFCC66; color:#000080;" | 6,6
| style="background: #FFCC00; color:#000080;" | 7,1
| style="background: #FFCC00; color:#000080;" | 7,7
| style="background: #FFCC00; color:#000080;" | 8,8
| style="background: #FFCC00; color:#000080;" | 9,8
| style="background: #FF9900; color:#000080;" | 10,6
| style="background: #FFCC00; color:#000080;" | 9,8
| style="background: #FFCC00; color:#000080;" | 8,5
| style="background: #FFCC66; color:#000080;" | 6,9
| style="background: #FFFF99; color:#000080;" | 5,9
| style="background: #FFFF99; color:#000080;" | 5,5
|-
| style="background: #99CCCC; color:#000080;" height="16;" | Aire [°C]
| style="background: #FFFFCC; color: black;" | 17,9
| style="background: #FFFFCC; color: black;" | 17,9
| style="background: #FFFF99; color: black;" | 18,6
| style="background: #FFFF99; color: black;" | 19,0
| style="background: #FFFF99; color: black;" | 20,4
| style="background: #FFFF99; color: black;" | 22,2
| style="background: #FFFF99; color: black;" | 24,3
| style="background: #FFFF99; color: black;" | 25,0
| style="background: #FFFF99; color: black;" | 24,3
| style="background: #FFFF99; color: black;" | 22,8
| style="background: #FFFF99; color: black;" | 20,6
| style="background: #FFFF99; color: black;" | 18,7
|-
| style="background: #99CCCC; color:#000080;" | Agua [°C]
| style="background: #66CCFF; color: black;" | 19
| style="background: #0033FF; color: black;" | 18
| style="background: #0033FF; color: black;" | 18
| style="background: #0033FF; color: black;" | 18
| style="background: #66CCFF; color: black;" | 19
| style="background: #66CCFF; color: black;" | 20
| style="background: #66CCFF; color: black;" | 21
| style="background: #66CCFF; color: black;" | 22
| style="background: #66CCFF; color: black;" | 23
| style="background: #66CCFF; color: black;" | 23
| style="background: #66CCFF; color: black;" | 21
| style="background: #66CCFF; color: black;" | 20
|-
| style="background: #99CCCC; color:#000080;" | Ø Días de lluvia
| style="background: #99FFCC;" color: black;" | 5
| style="background: #99FFCC;" color: black;" | 5
| style="background: #99FFCC;" color: black;" | 5
| style="background: #99FFFF;" color: black;" | 3
| style="background: #99FFFF;" color: black;" | 1
| style="background: #99FFFF;" color: black;" | 0
| style="background: #99FFFF;" color: black;" | 0
| style="background: #99FFFF;" color: black;" | 1
| style="background: #99FFFF;" color: black;" | 1
| style="background: #99FFFF;" color: black;" | 3
| style="background: #99FFCC;" color: black;" | 5
| style="background: #99FFCC;" color: black;" | 6
|}

===El Agua===
El suelo volcánico de Tenerife, generalmente de carácter poroso y permeable es motivo para que una considerable fracción del [[agua]] procedente de la lluvia, unida a aquella producto de condensaciones en zonas boscosas y a la proveniente del deshielo de las cumbres más elevadas de la isla, se infiltre en el subsuelo. La construcción de embalses y presas como principales métodos de obtención de agua esta desaconsejada debido a las mencionadas condiciones geológicas, que no permiten el almacenamiento del preciado líquido en superficie, así como a la irregularidad de las precipitaciones. De este modo, la mayor parte del agua (90%) procede de pozos y principalmente de [[Galería filtrante|galerías]], importantes sistemas que sirven para extraer el [[recurso hídrico]] del [[acuífero]]. Tenerife dispone en la actualidad de más de un millar de galerías perforadas <ref>[http://www.aguastenerife.org/4_tfeyelagua/4_3_6.html Información del Consejo Insular de Aguas de Tenerife]</ref>.

==[[Historia de Tenerife]]==
===Organización política anterior a la invasión===
El nombre original [[guanche]] de la isla era Achinet o Chenet. Unos cien años antes de la invasión, existía un [[mencey]] llamado Tinerfe el Grande, hijo del Mencey Sunta. Tinerfe tenía su corte en [[Adeje (Santa Cruz de Tenerife)|Adeje]] hasta que sus nueve hijos se rebelaron y se repartieron la isla en 9 menceyatos y 2 achimenceyatos independientes (llamados capitanías por los invasores). Los menceyatos y sus menceyes (por orden de descendencia) fueron los siguientes:

* [[Menceyato de Taoro|Taoro]]: actualmente [[Puerto de la Cruz]], [[La Orotava]], [[La Victoria de Acentejo]], [[La Matanza de Acentejo]], [[Los Realejos]] y [[Santa Úrsula (Santa Cruz de Tenerife)|Santa Úrsula]] sus menceyes fueron Bentinerfe, Inmobach, [[Bencomo]] y Bentor.
* [[Menceyato de Güímar|Güímar]]: en la actualidad [[El Rosario (Santa Cruz de Tenerife)|El Rosario]], [[Candelaria (Santa Cruz de Tenerife)|Candelaria]], [[Arafo (Santa Cruz de Tenerife)|Arafo]] y [[Güímar (Santa Cruz de Tenerife)|Güímar]] y sus menceyes fueron Acaymo, Añaterve y Guetón.
* [[Menceyato de Abona|Abona]]: [[Fasnia (Santa Cruz de Tenerife)|Fasnia]], [[Arico]], [[Granadilla de Abona]], [[San Miguel de Abona]], [[Arona (Santa Cruz de Tenerife)|Arona]] y sus menceyes fueron Atguaxoña y Adxoña (o Adjona).
* [[Menceyato de Anaga|Anaga]]: [[Santa Cruz de Tenerife]] y [[San Cristóbal de La Laguna]] (la zona de la propia laguna) y sus menceyes fueron beneharo y Beneharo II.
* [[Menceyato de Tegueste|Tegueste]]: [[Tegueste (Santa Cruz de Tenerife)|Tegueste]] y una zona costera de [[San Cristóbal de La Laguna|La Laguna]] y sus menceyes fueron Tegueste, Tegueste II y Teguaco.
* [[Menceyato de Tacoronte|Tacoronte]]: [[Tacoronte (Santa Cruz de Tenerife)|Tacoronte]] y [[El Sauzal (Santa Cruz de Tenerife)|El Sauzal]] y sus menceyes fueron Rumén y Acaymo.
* [[Menceyato de Icode|Icode]]: [[San Juan de la Rambla]], [[La Guancha (Santa Cruz de Tenerife)|La Guancha]], [[Garachico (Santa Cruz de Tenerife)|Garachico]] e [[Icod de los Vinos]] y sus menceyes fueron Chincanayro y Pelicar.
* [[Menceyato de Daute|Daute]]: [[El Tanque]], [[Los Silos (Santa Cruz de Tenerife)|Los Silos]], [[Buenavista del Norte |Buenavista]] y [[Santiago del Teide]] y sus menceyes fueron Cocanaymo y Romén.
* [[Menceyato de Adeje|Adeje]]: [[Guía de Isora]], [[Adeje (Santa Cruz de Tenerife)|Adeje]] y [[Vilaflor (Santa Cruz de Tenerife)|Vilaflor]] y sus menceyes fueron Atbitocazpe, Pelinor, e Ichasagua.

También se encontraba el Achimenceyato de [[Punta del Hidalgo]] gobernado por Aguahuco (el "Hidalgo pobre", hijo ilegítimo del Gran Tinerfe) y Zebenzui.

En cuanto a las creencias, la [[Mitología guanche|religión guanche]] era [[Politeísmo|politeísta]] aunque el culto astral estaba generalizado. Junto a él había una religiosidad [[animista]] que sacralizaba ciertos lugares, fundamentalmente roques y montañas. Entre los principales dioses guanches se podrían destacar; [[Achamán]] (dios del cielo y supremo creador), [[Chaxiraxi]] (diosa madre identificada más tarde con la [[Virgen de Candelaria]]), [[Magec]] (dios del sol) y [[Guayota]] (el demonio) entre otros muchos dioses y espíritus ancestrales. Especialmente singular era el culto a los muertos, practicándose la [[momificación]] de cadáveres.

===Invasión===
Conocida por los romanos como ''[[Nivaria]]'' (del latín ''nix'', ''nivis'', "nieve"), en clara referencia a las nieves posadas sobre el volcán conocido como el [[Teide]]. El nombre de la isla también guarda relación con el volcán, ya que fue puesto por los [[La_Palma#Los_abor.C3.ADgenes|benehaoritas]] (aborígenes de La Palma): "Tene-" (montaña) "-ife" (blanca), la castellanización del nombre provocó que se añadiera una -r para unir ambas palabras quedando '''Tenerife'''. Para los nativos de Tenerife, la isla era conocida como ''Chenech'', ''Chinech'' o ''[[Achinech]]''.

Tenerife a la hora de su inv asiónse componía de nueve ''menceyatos'', nombre por el que se conocía a los pequeños reinos guanches. Sin embargo las fuerzas militares de la Corona de Castilla bajo el mando del Adelantado ("gobernador militar") [[Alonso Fernández de Lugo]], sufrieron una derrota a manos de los [[guanche]]s en la primera [[Batalla de Acentejo]] en [[1494]]. Los guanches, superados por la tecnología y por las nuevas enfermedades a las cuales no eran inmunes, cayeron frente a las tropas de la [[Corona de Castilla]] el [[25 de diciembre]] de [[1495]].

Como en el resto de las Islas, los aborígenes fueron esclavizados y una buena parte de la población indígena sucumbió a las enfermedades importadas, al mismo tiempo que los inmigrantes provenientes de protectorados del Imperio Español (Portugal, Flandes, Italia, Alemania) se asentaban en la isla. Los bosques de [[pino canario]] de Tenerife fueron cortados para dejar paso al cultivo de la [[caña de azúcar]] en [[1520]]. En siglos sucesivos, la economía de la isla se centró en el cultivo de otras materias tales como la [[viña]] y la [[Cochinilla (insecto)|cochinilla]] para hacer los tintes, así como el [[plátano]].

===El ataque de Horacio Nelson===
[[Imagen:Sir_Horatio_Nelson_when_wounded_at_Teneriffe.jpg|thumb|left|260px|Horacio Nelson cae herido durante el ataque]]
Tenerife fue atacada, como las otras islas, por [[Piratería en Canarias|corsarios]] de varias nacionalidades (ingleses, franceses, holandeses y berberiscos) varias veces a lo largo de su historia, según el devenir de las alianzas y guerras de España. De entre estos ataques destaca por su lugar en la Historia el [[Ataque a Santa Cruz de Tenerife|ataque de los británicos de 1797]]. El [[25 de julio]], el Almirante [[Horacio Nelson]] atacó Santa Cruz de Tenerife, capital de la isla y Jefatura de la Capitanía General. Tras un feroz ataque, la defensa organizada por el [[Antonio Gutiérrez de Otero|General Gutiérrez]] repelió a los británicos. Nelson perdió su brazo derecho por una bala de cañón (dice la leyenda que del cañón "Tigre") mientras intentaba desembarcar en la orilla de la costa de la zona de "Paso Alto".

El [[5 de septiembre]], otro intento de desembarco en la región de Puerto Santiago fue repelido por los habitantes del [[Santiago_del_Teide|Valle de Santiago del Teide]], que lanzaron piedras a los británicos desde lo alto de los Acantilados de Los Gigantes.

===Historia reciente===
Otros visitantes menos hostiles llegarían a la isla en siglos sucesivos. El naturalista [[Alexander von Humboldt]] ascendió el pico del Teide y comentó la belleza de la isla. Numerosos turistas comenzaron a visitar Tenerife a partir de la década de [[1890]], especialmente las ciudades norteñas de [[Puerto de la Cruz]] (primer municipio turístico de Tenerife mediante orden ministerial del 13 de octubre de 1955 que lo declaró ’Lugar de Interés Turístico’) y Santa Cruz de Tenerife.

En marzo de [[1936]], antes de subir al poder, [[Francisco Franco]] fue destinado a Tenerife por el Gobierno Republicano, temeroso de su influencia militar y política, con el fin de alejarlo de los centros de poder. En el Monte de La Esperanza en el municipio tinerfeño de [[El_Rosario_(Santa_Cruz_de_Tenerife)|El Rosario]], Franco organizó la conspiración militar que daría lugar a la [[Guerra civil española]] y posterior caída de la [[II República Española]]. Las Islas Canarias cayeron bajo el bando de los nacionales en julio de [[1936]] y su población sufrió las masivas ejecuciones de opositores al nuevo régimen fascista. En los años 50, la miseria de la posguerra hizo que miles de tinerfeños emigrasen a [[América latina]], principalmente a [[Cuba]] y [[Venezuela]].

[[Colisión_de_1977_en_Los_Rodeos|La colisión]] ocurrida el [[27 de marzo]] de [[1977]] en el [[aeropuerto de Los Rodeos]], situado en el norte de la isla, era el desastre mortal de aviación más importante de la historia hasta los [[Atentados del 11 de septiembre de 2001|atentados del 11 de septiembre de 2001]].

==Símbolos de la isla==
[[Imagen:Flag of Tenerife.jpg|left|thumb|160px|Bandera de Tenerife]]
[[Image:escudo_tenerife.jpg|left|thumb|160px|Escudo del Cabildo Insular de Tenerife.]]

'''La bandera''' fue adoptada originariamente en 1845 a modo de distintivo o bandera de matrícula de la que en aquel entonces se denominaba provincia marítima de Canarias con base en el Puerto de Santa Cruz de Tenerife. En la actualidad, esta enseña representa a toda la isla de Tenerife. Fue aprobada a instancia del [[Cabildo Insular de Tenerife|Cabildo Insular]] por Orden del Gobierno de Canarias el 9 de mayo de 1989 y publicada el 22 de mayo de 1989 en el Boletín Oficial de Canarias.

'''El escudo heráldico''' de Tenerife fue otorgado mediante diploma real el 23 de marzo de 1510, concedido por el Rey Don Fernando V "El Católico", fue expedido en Madrid a nombre de su hija Doña Juana I, Reina de Castilla. El escudo se describe en campo de oro, con un San Miguel (pues la isla fue conquistada el día de San Miguel) armado superando a una montaña de su color natural de la que brotan llamas, y que representa al pico del Teide. Bajo esta montaña la isla de sinople sobre ondas azul y plata. A la derecha se observa un castillo de gules, y a la izquierda un león rampante de gules. El escudo que usa el [[Cabildo Insular de Tenerife|Cabildo Insular]] se diferencia del que usa el [[San Cristóbal de La Laguna|Ayuntamiento de La Laguna]] en el lema que aparece en la bordura y en el añadido de unas ramas de palma.

Según una ley del [[Gobierno de Canarias]] los símbolos [[naturaleza|naturales]] de la isla son el [[pinzón azul]] y el [[dracaena draco|drago]] <ref>[http://www.gobcan.es/boc/1991/061/001.html Ley 7/1991, de 30 de abril, de símbolos de la naturaleza para las Islas Canarias]</ref>.

==Órgano de gobierno==
El órgano de gobierno de la isla de Tenerife es el [[Cabildo Insular de Tenerife]]. La organización política de Canarias se caracteriza porque no posee órgano político provincial sino que cada isla posee un cabildo insular propio. Desde que se constituyó en marzo de 1913 dispone de una amplia serie de competencias propias, hoy recogidas en el [[Estatuto de Autonomía de Canarias]].

===Municipios===

[[Imagen:MapaMunicipiosTenerife.jpg|thumb|center|400px|División municipal de la isla de Tenerife]]

La isla de Tenerife está dividida en 31 municipios.

De todos ellos, sólo tres no tienen costa: [[Tegueste (Santa Cruz de Tenerife)|Tegueste]], [[El Tanque]] y [[Vilaflor (Santa Cruz de Tenerife)|Vilaflor]] que destaca además por ser el municipio más alto de toda [[Canarias]] al tener su capital a 1.400 metros de altitud.

El municipio más extenso con 207,31 km² es el de [[La Orotava]], que abarca gran parte del [[Parque nacional del Teide]]. El municipio más pequeño de la isla y del archipiélago es [[Puerto de la Cruz]], con una superficie inferior a los 9 km².

La gran mayoría de estos municipios confluyen en la zona de cumbre central de la isla y a partir de ahí se extienden hacia la costa, orientándose unos hacia el norte y otros hacia el sur.

A su vez, es frecuente encontrar otro tipo de división insular, es aquella que establece el territorio según una Zona Metropolitana, alrededor del área de influencia de las ciudades de Santa Cruz y La Laguna (''véase'' [[Área metropolitana de Tenerife]]), Zona Norte (aquellos municipios que se abren al océano por el norte) y Zona Sur (aquellos que lo hacen hacia el sur). Esta división junto con la municipal se puede observar en el mapa de la derecha.

A continuación se muestra la relación de todos los municipios tinerfeños ordenados alfabéticamente:

{| width="100%" align="CENTER"
|-
| valign="top" |
*[[Adeje (Santa Cruz de Tenerife)|Adeje]]
*[[Arafo (Santa Cruz de Tenerife)|Arafo]]
*[[Arico]]
*[[Arona (Santa Cruz de Tenerife)|Arona]]
*[[Buenavista del Norte]]
*[[Candelaria (Santa Cruz de Tenerife)|Candelaria]]
*[[Fasnia (Santa Cruz de Tenerife)|Fasnia]]
*[[Garachico (Santa Cruz de Tenerife)|Garachico]]
*[[Granadilla de Abona]]
*[[La Guancha (Santa Cruz de Tenerife)|La Guancha]]
| valign="top" |
*[[Guía de Isora]]
*[[Güímar (Santa Cruz de Tenerife)|Güímar]]
*[[Icod de los Vinos]]
*[[La Matanza de Acentejo]]
*[[La Orotava]]
*[[Puerto de la Cruz]]
*[[Los Realejos]]
*[[El Rosario (Santa Cruz de Tenerife)|El Rosario]]
*[[San Cristóbal de La Laguna]]
*[[San Juan de la Rambla]]
*[[San Miguel de Abona]]
| valign="top" |
*[[Santa Cruz de Tenerife (Santa Cruz de Tenerife)|Santa Cruz de Tenerife]]
*[[Santa Úrsula (Santa Cruz de Tenerife)|Santa Úrsula]]
*[[Santiago del Teide]]
*[[El Sauzal (Santa Cruz de Tenerife)|El Sauzal]]
*[[Los Silos (Santa Cruz de Tenerife)|Los Silos]]
*[[Tacoronte (Santa Cruz de Tenerife)|Tacoronte]]
*[[El Tanque]]
*[[Tegueste (Santa Cruz de Tenerife)|Tegueste]]
*[[La Victoria de Acentejo]]
*[[Vilaflor (Santa Cruz de Tenerife)|Vilaflor]]
|}

=== Demografía ===
La isla de Tenerife, la más poblada del archipiélago, albergaba a fecha de 1 de enero de 2006 y según fuentes del [[Instituto Nacional de Estadística de España|INE]] un total de 852.945 habitantes censados, de los cuáles, más de un 26% (223.148 habitantes) lo estaban en su capital, [[Santa Cruz de Tenerife]], y cerca del 50% (423.022 personas)<ref name="audes">Datos del proyecto AUDES5[http://alarcos.inf-cr.uclm.es/per/fruiz/pobesp/] — áreas urbanas.</ref> en su [[Área metropolitana de Santa Cruz de Tenerife-La Laguna|área metropolitana]]. A la ciudad de Santa Cruz de Tenerife le siguen en población [[San Cristóbal de La Laguna]] (142.161), [[Arona]] (69.100), [[La Orotava]] (40.644), [[Adeje]] (36.764), [[Los Realejos]] (36.746), [[Granadilla de Abona]] (34.595) y [[Puerto de la Cruz]] (30.585). Hasta ahí los municipios que sobrepasan los 30.000 habitantes. El municipio de [[Vilaflor]] es el que cuenta con menor población de toda la isla (1.905). Además, Tenerife registra un muy alto nivel de población no censada ya que el elevado número de turistas que recibe anualmente y los crecientes fenómenos migratorios lo ponen de manifiesto.

==Gentilicio==


El gentilicio formal es "Tinerfeño/a", aunque también de manera coloquial se utiliza el gentilicio "[[chicharrero|Chicharrero/a]]"<ref>http://buscon.rae.es/draeI/SrvltGUIBusUsual?LEMA=chicharrero</ref>, aunque en la propia isla éste se reserva para los habitantes de la capital, Santa Cruz.

El gentilicio "chicharrero" tiene su origen en un término despectivo empleado por los habitantes de la cercana ciudad de [[San Cristóbal de La Laguna|La Laguna]], entonces capital de la isla, para los habitantes del entonces pobre y pequeño puerto de pescadores. Justamente por dicha pobreza debían los habitantes de Santa Cruz rebajarse a comer [[chicharro|chicharros]], un pescado pequeño y barato de relativa baja calidad, de donde procede el término, entonces despectivo. Con el tiempo y el crecimiento de Santa Cruz, hasta conseguir el traslado de la capitalidad desde La Laguna, bajo el reinado de [[Fernando VII]] ([[siglo XIX]]), sus ciudadanos tomaron el insulto a honra y asumieron como propio el gentilicio.

==Economía==
[[Image:Botanico 2005.jpg|thumb|right|250px|Jardín Botánico en Puerto de la Cruz]]La [[economía]] tinerfeña, al igual que la de otras islas de Canarias, se basa fundamentalmente en el turismo. Ya en el siglo XIX y gran parte del XX destacaba la afluencia de turismo extranjero, sobre todo del [[Inglaterra|inglés]] debido a los intereses [[agricultura|agrarios]] que poseía en esta isla.

[[Image:Beaches of Tenerife 17.JPG|thumb|left|250px|Playa del Duque, en el sur de Tenerife]]
Más tarde con las guerras mundiales este sector se resiente, pero entrada la segunda mitad del pasado siglo comienza a evolucionar de un modo muy notable. En un principio destaca el Puerto de la Cruz por su bondadoso clima y por todos los atractivos que el [[Valle de la Orotava|Valle norteño de La Orotava]] concentraba, pero persiguiendo captar el turismo de sol y playa, alrededor de 1980 nace el boom turístico del sur de Tenerife, donde destacan ciudades como Arona o Adeje, que hoy albergan más del 65% de las plazas [[hotel]]eras de toda la isla. Tenerife recibe cada año más de 5.000.000 de turistas, siendo de este modo, de entre todo el archipiélago canario, la isla preferida a este respecto. Sin embargo, este dato también pone de manifiesto la gran cantidad de recursos que esta actividad consume (espacio, [[energía]], agua, etc.). A pesar de que más del 60% del [[Producto interior bruto|PIB]] tinerfeño lo constituye el turismo, y en consecuencia el sector servicios, el sector primario y la industria son responsables del 40% restante. En cuanto a la agricultura destacan el [[Plátano de Canarias|cultivo de plátanos]], los [[tomate]]s, la [[vid]]es, las papas y las flores. La pesca supone también gran parte de la economía tinerfeña (Canarias es la segunda región pesquera del estado español). Ya finalmente, y a pesar de los diversos polígonos industriales que existen en el territorio insular, la importancia de la actividad industrial radica en la refinería de [[petróleo]]s de Santa Cruz de Tenerife, la cual suministra productos petrolíferos no sólo al archipiélago canario sino también al mercado [[península ibérica|peninsular]], [[África|africano]] y [[América|americano]].

==Arte==

===Literatura===
[[Imagen:Jose Viera y Clavijo.jpg|thumb|right|200px|José Viera y Clavijo]]
En los siglos XVI y XVII destaca, en el campo de la poesía épica, [[Antonio de Viana]]. Este escritor que nace en La Laguna compuso el poema ''Antigüedades de las Islas Afortunadas'', un material de gran valor antropológico para entender las formas de vida de aquel entonces.
Ya posteriormente, en el llamado Siglo de las Luces (siglo XVIII) aparecen figuras relevantes de la Ilustración en Tenerife como [[José Viera y Clavijo]], [[Tomás de Iriarte]], [[Ángel Guimerá y Jorge]], [[Mercedes Pinto]] o [[Domingo Pérez Minik]], entre otros, que aportan sus obras dentro de esta escena [[literatura|literaria]].

===Pintura===
El primer núcleo de arte [[pintura|pictórico]] en Tenerife se distingue en la ciudad de La Laguna, donde en el transcurso del siglo XVI aparecen algunos pintores de renombre. Más adelante se suman artistas de otros lugares como Garachico, Santa Cruz, La Orotava y Puerto de la Cruz. Originarios de La Orotava son dos de los mejores pintores del archipiélago del siglo XVII, nos referimos a [[Cristóbal Hernández de Quintana]] y [[Gaspar de Quevedo]], con numerosas obras distribuidas por iglesias de la isla.
En el Puerto de la Cruz, concretamente en la [[Iglesia de Nuestra Señora de la Peña de Francia (Puerto de la Cruz)|iglesia de Nuestra Señora de la Peña de Francia]], se puede contemplar la aportación realizada por [[Luis de la Cruz y Ríos]]. Nacido en 1.775, el que fuera pintor de cámara del rey [[Fernando VII]] y miniaturista, obtiene un reconocido prestigio en la Corte, donde se le conoce como ''El Canario''.
En el año 1.849 nace en Santa Cruz de Tenerife el paisajista [[Valentín Sanz]]. El Museo Municipal de Bellas Artes de Santa Cruz cuenta con una abundante muestra de su quehacer. También en este museo capitalino se pueden observar cuadros de [[Juan Rodríguez Botas]] (1.880-1.917), quien es considerado el primer impresionista canario.
Del mismo modo cabe citar, dentro del grupo expresionista, a [[Mariano de Cossío]]. A este autor hay que atribuirle los frescos de la iglesia de Santo Domingo, en San Cristóbal de La Laguna. Por otro lado, en 1.874 nace [[Francisco Bonnín Guerín]], acuarelista de Santa Cruz que formó una escuela para promover su labor pictórica.
Por último, en 1.906 nace en La Laguna uno de los pintores canarios más universales, [[Óscar Domínguez]]. Perteneciente al surrealismo, inventó la técnica de la [[decalcomanía]] y contribuyó con una obra pictórica de internacional reconocimiento.

===Escultura===
Se podría considerar que la práctica [[escultura|escultórica]] comienza en Tenerife a partir del siglo XVII, momento en el cual llega a la isla el arquitecto y escultor [[Martín de Andújar Cantos]] desde Sevilla, donde había recibido instrucciones del maestro [[Juan Martínez Montañés]]. Con él arrivaron nuevas técnicas y planteamientos de la escuela hispalense que transmitió a sus discípulos, entre los que destaca el garachiquense [[Blas García Ravelo]].
Otros escultores que, en esta época y en el posterior siglo XVIII, irrumpen a la escena son [[Sebastián Fernández Méndez]], [[Lázaro González]], [[Rodríguez de la Oliva]], y principalmente el orotavense [[Fernando Estévez]], alumno de [[Luján Pérez]], quien contribuye con una extensa colección de imágenes religiosas y tallas repartidas por diversas iglesias de Tenerife, como por ejemplo, en la [[Catedral de La Laguna]], la [[Iglesia de la Concepción (La Laguna)|Iglesia de la Concepción]] también en La Laguna, la [[Basílica de Candelaria]] y en distintos lugares de culto de La Orotava.
Actualmente, el ámbito escultórico tinerfeño se encuentra representado entre otros por [[José Abad]], [[Fernando Garcíarramos]] y [[José Luis Fajardo]].

===Música===
[[Imagen:Timple Front.jpg|thumb|150px|left|Timple]]
El ámbito [[música|musical]] tiene en la figura de [[Teobaldo Power y Lugo Viña]] uno de sus exponentes más claros. Natural de Santa Cruz, se trata de un pianista y compositor, autor de los [[Cantos Canarios]]. En concreto, los arreglos de la melodía del [[arrorró]] de estos Cantos Canarios constituyen el Himno de la Comunidad Autónoma.
En este campo también destaca el [[folclore]]. Similar al del resto de las islas, se caracteriza por la participación de [[timple]]s, [[guitarra]]s, [[bandurria]]s, [[laúd]]es y distintos tipos de [[instrumentos de percusión]]. Son numerosos los grupos folclóricos que se reparten por la geografía isleña y que suelen aparecer en distintas celebraciones populares como las romerías. En este aspecto habría que citar a [[Los Sabandeños]], quienes conforman un importante símbolo de la cultura canaria. Este grupo folclórico rescató la idiosincrasia del pueblo isleño en un momento en el que el carácter uniformador de la cultura española de los años setenta hace caer prácticamente en la decadencia y el olvido diferentes elementos de la música canaria.
Las canciones típicas de las islas: [[isa (canción)|isa]], [[folía]], [[tajaraste]], [[malagueña]]... se configuran como melodías mestizas entre la música ancestral de los guanches con distintos enlaces entre lo andaluz e hispanoamericano.

===Arquitectura===
Al igual que la que predomina en las otras islas, en la [[arquitectura]] tinerfeña sobresalen las directrices de las casonas señoriales y las de las casas más humildes y populares. Este tipo arquitectónico, que tiene notables influencias de [[Andalucía]] y [[Portugal]], presenta, no obstante una fuerte personalidad propia.
De las casas señoriales hay que subrayar los ejemplos que existen en La Orotava y en La Laguna. Estas edificaciones se caracterizan por sus [[balcón|balcones]] típicos y por la presencia de [[patio interior|patios interiores]]. La madera, especialmente la tea (pino), cobra un gran protagonismo en estas construcciones. Estas casas presentan fachadas no demasiado complejas con poca ornamentación. Son típicos los grandes balcones de madera y el uso de celosías. Las ventanas cierran en guillotina y son habituales los asientos interiores adosados a ellas. Los patios interiores funcionan como verdaderos jardines que sirven para dar iluminación a las habitaciones. Estas se comunican con el patio por medio de galerías rematadas frecuentemente en piedra y madera. Artilugios como las destiladeras, las bombas de agua, los bancos y mesones son elementos que muchas veces forman parte de estos patios interiores.

[[Image:Auditorio de Tenerife 013.JPG|thumb|right|250px|Auditorio de Tenerife]]
En cuanto a las casas tradicionales, estas se caracterizan por ser edificios de escasa altura, con toscas paredes de colores variopintos. En ocasiones la continuidad de estas paredes se ve interrumpida por la presencia de bloques de piedra que asoman a la superficie de forma ornamental. A lo largo de toda la isla son muchos los ejemplos a contemplar de esta arquitectura.

Los edificios oficiales o de carácter religioso se han ido conformando según las distintas corrientes arquitectónicas que en cada momento han imperado. Los núcleos urbanos de las ciudades de La Laguna y La Orotava están declarados como monumentos histórico-artístico nacionales. En los últimos años, por parte de los diferentes gobiernos, ha predominado el concepto de llevar a cabo grandes proyectos, en ocasiones ostentosos, diseñados por reconocidos arquitectos. Entre ellos se podría incluir por ejemplo, la remodelación de la [[Plaza de España (Santa Cruz de Tenerife)|Plaza de España]] por los arquitectos suizos [[Herzog & De Meuron]], el nuevo proyecto del francés [[Dominique Perrault]] de la [[Playa de Las Teresitas]] (que no llegó a salir adelante al estallar un caso de corrupción detrás de dicho proyecto, el llamado [[Caso Las Teresitas]]), el [[Centro Magma Arte & Congresos]], las [[Torres de Santa Cruz]] o el [[Auditorio de Tenerife]]. Este último edificio, obra del arquitecto español Santiago Calatrava se alza al este del Parque Marítimo, en la capital tinerfeña. Uno de sus elementos más destacables es la estampa de su vela alada simulando un barco, que se ha convertido en uno de los símbolos de la isla.

==Cultura==

===Educación===
El nacimiento de la [[educación]] se debe en la isla a las órdenes religiosas. En el año 1530, Tenerife accede a la cultura de la mano de la cátedra de filosofía que, poseen los [[dominico]]s en el convento de [[Iglesia de la Concepción (La Laguna)|La Concepción de La Laguna]]. A pesar de ello, hasta bien avanzado el siglo XVIII no comienzan a funcionar las pocas escuelas que por aquel entonces existían. En este sentido, hay que recalcar el trabajo desempeñado por la Real Sociedad Económica de Amigos del País, que creó diversas escuelas en San Cristóbal de La Laguna. Fue en 1846 cuando se instaura el primer instituto de enseñanza secundaria con el fin de suplir el cierre de la Universidad de San Fernando (''véase'' [[Universidad de La Laguna]]). Anexa a este edificio se fundó en 1850 la primera Escuela Normal Elemental del archipiélago que pasaría a denominarse Escuela Normal Superior de Magisterio en 1866. Así se mantiene esta situación ya que a pesar de que el dictador [[Primo de Rivera]] crease algunos centros, el punto de inflexión lo supone la política educativa que desarrolló la [[Segunda República Española|Segunda República]], de modo que en apenas cuatro años (1929-1933) casi se dobla el número de escuelas existentes. Posteriormente, el inicio de la Guerra Civil y la ulterior dictadura de [[Francisco Franco]] constituyeron un considerable retroceso. La educación en manos de órdenes religiosas tuvo cierta importancia en el devenir de los tinerfeños hasta que en 1970 la Ley General de Educación resta peso a estas instituciones religiosas en favor de los centros públicos. Estos últimos, y ya en menor grado los primeros, comienzan a multiplicarse desde entonces y son impulsados con la instauración de la democracia. Tenerife cuenta a día de hoy con 301 centros de educación infantil, 297 colegios de primaria, 140 de secundaria y 86 institutos de bachiller <ref>http://www.gobcan.es/educacion/DGC/DirCentros/scripts/default.asp?categoria=37</ref>. Además, en la isla existen hasta 5 centros de estudios universitarios o de postgrado: [[Universidad de La Laguna]] (la de mayor presencia), [[Universidad Nacional de Educación a Distancia]], [[Universidad Internacional Menéndez Pelayo]], [[Universidad Alfonso X el Sabio]] y [[Universidad de Vic]] (Escuela Universitaria de Turismo de Santa Cruz de Tenerife)

===Investigación===
[[Image:Obs 2.jpg|thumb|300px|left|[[Observatorio del Teide]], perteneciente al Instituto de Astrofísica de Canarias]]
El campo de la [[investigación]], históricamente, no se ha desarrollado de un modo especialmente relevante. No obstante, entre los centros que se dedican a esta labor destaca sobre todo el [[Instituto de Astrofísica de Canarias]] que tiene sede en esta isla. Asimismo cabría citar el Instituto de Bio-Orgánica [[Antonio González González|Antonio González]], vinculado a la Universidad de La Laguna. También adheridos a esta universidad se encuentran el Instituto de Lingüística Andrés Bello, el Instituto Universitario de la Empresa, el Instituto de Derecho Regional y el Instituto Universitario de Ciencias Políticas y Sociales al igual que el Instituto de Enfermedades Tropicales (perteneciente a la Red de Investigación de Centros de Enfermedades Tropicales, que dispone de siete nodos extendidos a lo largo del país, uno de ellos en Canarias). Con sede en la ciudad del Puerto de la Cruz se encuentra el Instituto de Estudios Hispánicos de Canarias, adscrito al Instituto de Cultura Hispánica de Madrid. En la ciudad de La Laguna se encuentra el [[Instituto Canario de Investigaciones Agrarias]] y el [[Centro Internacional para la Conservación del Patrimonio]]. Otros organismos que trabajan en el ámbito de la investigación que tienen sede en Tenerife son el Instituto Tecnológico de Canarias, el Instituto Vulcanológico de Canarias, la Asociación Industrial de Canarias, el Instituto Tecnológico de Energías Renovables y el Instituto Oceanográfico de Canarias emplazado en la ciudad de Santa Cruz de Tenerife.

==Comunicaciones==
===Aeropuertos===
El principal medio para llegar a Tenerife es el [[avión]]. Existen dos [[aeropuerto|aeropuertos]] en la isla: el [[aeropuerto Reina Sofía]] (Tenerife Sur) y el [[aeropuerto de Los Rodeos]] (Tenerife Norte). A pesar de que el aeropuerto Tenerife Sur es el que recibe mayor número de pasajeros, ambos disponen de vuelos regulares con las capitales de otras islas, con muchas ciudades peninsulares (Madrid, Barcelona, Sevilla, Valencia, Málaga, Bilbao, etc.), con ciudades europeas del [[Reino Unido]], [[Alemania]], [[Francia]] e [[Italia]] entre otras y también con ciudades americanas y africanas. Teniendo en cuenta los dos aeropuertos, Tenerife es la isla canaria que más pasajeros recibe anualmente. Debido al [[turismo]], es fácil encontrar vuelos directos más económicos con las principales ciudades alemanas o británicas que con las peninsulares.

===Puertos===
Además del avión, Tenerife tiene dos [[puerto marítimo|puertos marítimos]] principales que le sirven de conexión. El [[Puerto de Santa Cruz de Tenerife|Puerto de Santa Cruz]] que conecta con las capitales de cada isla, y en particular con aquellas de la provincia oriental, y el [[Puerto de Los Cristianos]] que se centra en mayor medida en las comunicaciones con las capitales de la provincia de Santa Cruz de Tenerife. Además es posible el tráfico de pasajeros entre los Puertos de Santa Cruz de Tenerife y Cádiz y viceversa. Está previsto construir un gran puerto de importancia en el sur de la Isla, el de Granadilla, y otro en la parte oeste, en Fonsalía.

===Guaguas===
La isla cuenta también con una extensa red de [[guagua]]s tanto urbanas como interurbanas que conectan la gran mayoría de los núcleos de población. Para ello cuenta con estaciones de guaguas en todas las ciudades, como el [[Intercambiador de Transportes de Santa Cruz de Tenerife]].

===Ferrocarril===
[[Image:Tranvía de Tenerife.jpg|thumb|right|250px|El tranvía en Ofra (Santa Cruz de Tenerife) en fase de pruebas (2007)]]
El 2 de junio de 2007 se inauguró la [[Línea 1 (Tranvía de Tenerife)|línea 1]] del [[Tranvía de Tenerife]], que une destacados sectores del [[Área metropolitana de Santa Cruz de Tenerife-La Laguna|conurbación Santa Cruz-La Laguna]] y puntos como los dos centros hospitalarios de la zona. La segunda fase, que empezará a ejecutarse a pricipios de 2008, unirá los Barrios de Tincer (perteneciente a Santa Cruz) y La Cuesta (La Laguna), que estarán unidos por la Línea 1. Más adelante se construirán otras líneas como la que unirá la Avenida de la Trinidad (La Laguna) con el Aeropuerto de Tenerife Norte (Los Rodeos); y el [[Intercambiador de Transportes de Santa Cruz de Tenerife]] con la [[playa de Las Teresitas]].

Perteneciente a la misma empresa que explota el [[Tranvía de Tenerife]], en 2008 se espera que comience, tras la aprobación de su construcción por el pleno del [[Cabildo Insular de Tenerife]] el 27 de abril de 2007, los trabajos para habilitar un tren que unirá [[Santa Cruz de Tenerife]] con el sur de la isla. El recorrido total será de 80 kilómetros y tiene previsto realizar su trayecto completo en 35 minutos y si tuviera que parar en todas las estaciones, lo haría en 45 minutos. En la reforma actual de la [[Autopista del Sur de Tenerife|autopista del sur]] (TF-1), en algunos tramos ya es visible el lugar por donde discurrirá ese tren.

==Sanidad==
El principal centro sanitario de la Isla es el [[Hospital Universitario de Canarias]], en el municipio de San Cristóbal de La Laguna aunque justo en el límite con Santa Cruz de Tenerife. Muy cerca, ya en este municipio, se encuentra el [[Hospital Universitario Nuestra Señora de Candelaria]], recientemente incorporado a la red docente de la ULL, aunque ya hace tiempo la Escuela de Enfermería de este hospital estaba adscrita a la Facultad de Enfermería de la Universidad de La Laguna, con sede en el HUC.

Además, se están construyendo dos nuevos hospitales para las zonas norte y sur de la isla. Cuando estén finalizados, la isla dispondrá de cuatro centros hospitalarios junto a sus autopistas, si bien el HUC seguirá siendo el de referencia.

==Religión==
[[Imagen:Tenerife.candelaria.exterior.basilica.jpg|thumb|300px|Plaza y [[Basílica de Candelaria]] ([[Tenerife]], [[España]])]]
[[Imagen:Hermano Pedro.jpg|200px|thumb|Imagen del Santo [[Hermano Pedro]], en la cueva donde pastaba su ganado.]]
Al igual que ocurre en el resto del estado español, la sociedad tinerfeña se declara mayoritariamente católica. No obstante, las crecientes corrientes migratorias (turismo, inmigración ilegal, etc.) están incrementando el número de fieles de otras religiones que se dan cita en la isla. Son numerosas las advocaciones que existen, sin embargo, aquí tiene lugar cada año una de las peregrinaciones más importantes del archipiélago, debido a la celebración de la festividad de la '''[[Virgen de Candelaria|La Virgen de Candelaria]]''' ('''Patrona de Canarias''', de la '''Diócesis Nivariense''' y de la isla), quien representa la unión de las culturas [[guanche]] y española. Los guanches tomaron como propia la imagen que los misioneros de [[Lanzarote]] y [[Fuerteventura]] dejaron en una playa próxima a la actual Villa Mariana de Candelaria. A partir de ahí, la historia y la leyenda de esta imagen, se entrelazan y dan paso al culto y peregrinación que hasta nuestros días mantienen los habitantes de las islas y de Tenerife en particular. En este aspecto, hay que nombrar también a la Virgen de Los Remedios, la cual es la copatrona de la [[Diócesis Nivariense]] (Diócesis de la provincia). En cuanto a los principales núcleos o templos religiosos destacan:

*'''[[Basílica de Candelaria]]''': Es el lugar en el que se encuentra la imagen de la Virgen de Candelaria (Patrona de Canarias). Este santuario de estilo neoclásico es frecuentado diariamente por los feligreses que se dirigen hasta la Villa Mariana en devoción a su patrona.

*'''[[Catedral de La Laguna]]''': Es la sede de la Diócesis Nivariense. En ella se venera a la Virgen de Los Remedios. Consiste en un edificio que combina elementos neogóticos con neoclásicos localizado en la ciudad de La Laguna. Actualmente, y desde hace varios años se encuentra cerrada al culto debido a unas obras de restauración y reconstrucción que no terminan de acontecer.

*'''[[Iglesia de la Concepción (La Laguna)|Iglesia de la Concepción de La Laguna]]''': Se trata uno de los edificios más antiguos de Tenerife, pues constituye la iglesia matriz de la isla, mandada a construir por Alonso Fernández de Lugo en 1.496. Ha sido declarado Monumento Histórico Nacional. A su alrededor se organizó todo el entramado que dio lugar a la ciudad de [[San Cristóbal de La Laguna]]. Actualmente, se puede acceder a la parte alta de la torre para contemplar gran parte de la ciudad.

Hay otros edificios religiosos de cierta relevancia, especialmente en el Valle de la Orotava, como puede ser la Iglesia de la Concepción de la Orotava, o en la capital, como es la [[Iglesia Matriz de la Concepción (Santa Cruz de Tenerife)]]. También destacar la [[Iglesia de San Andrés (Tenerife)|Iglesia de San Andrés Apóstol]] en la localidad de [[San Andrés (Tenerife)|San Andrés]], una de las iglesias más antiguas de la isla.

Es importante señalar también a [[Pedro de San José Betancur]] ([[Hermano Pedro]]), '''Primer Santo Canario''', nacido en el municipio de [[Vilaflor]]. Su principal santuario es una cueva situada en el municipio de [[Granadilla de Abona]] (sur de la isla), en esta cueva se dice que el hospedaba su ganado. El Santo Hermano Pedro fué muy devoto de la Virgen de Candelaria, a cuyo santuario solía [[peregrinación|peregrinar]] con frecuencia.

==== Patronazgo de la isla ====

*[[San Miguel Arcángel]], es el Santo Patrono de la isla de Tenerife y del [[San Cristóbal de La Laguna|Ayuntamiento de La Laguna]], de hecho su imagen aparece en el escudo insular, que fue concedido por [[Fernando el Católico]], el [[23 de marzo]] de [[1510]], en nombre de su hija la reina [[Doña Juana]].

*La Patrona de Tenerife es la [[Virgen de Candelaria]] (siendo además la Patrona de Canarias). Su festividad es el 15 de agosto, día de la Ascunsión (festivo en Canarias) y el 2 de febrero, este último día festivo en la isla.

=== Museos ===
La isla cuenta con diversos recintos museísticos de diferente naturaleza que están bajo el dominio de distintas instituciones. Quizás los más destacados sean los pertenecientes al [[Organismo Autónomo de Museos y Centros]],<ref>[http://www.museosdetenerife.org/index.php?al_id_mus=6 Organismo autónomo de museos y centros]</ref> que dispone de los siguientes espacios:
* '''[[Museo de la Naturaleza y el Hombre]]''': localizado en Santa Cruz de Tenerife, este museo ofrece una visión de la riqueza natural de las Islas Canarias y de las poblaciones prehispánicas [[guanche]]s que en ellas habitaban. El complejo está integrado por tres museos:
** '''Museo de Ciencias Naturales'''
** '''Museo Arqueológico de Tenerife'''
** '''[[Instituto Canario de Bioantropología]]'''
* '''[[Museo de Historia de Tenerife]]''': enclavado en la ciudad de [[San Cristóbal de La Laguna|La Laguna]], el museo de historia presta una visión general del desarrollo institucional, social, económico y cultural de la Isla entre los siglos XV y XX.
* '''[[Museo de la Ciencia y el Cosmos]]''': también situado en [[San Cristóbal de La Laguna|La Laguna]] contiguo a las dependencias del [[Instituto de Astrofísica de Canarias]] este museo acerca al visitante a las leyes y principios que rigen la Naturaleza, desde el funcionamiento de su propio cuerpo hasta el de las estrellas.
* '''[[Museo de Antropología de Tenerife]]''': Situado en [[San Cristóbal de La Laguna|La Laguna]], concretamente en [[Valle de Guerra]] el Museo de Antropología de Tenerife es una institución pública dedicada a investigar, conservar y difundir la cultura popular.
* '''[[Centro de Documentación Canario-Americano (CEDOCAM)]]''': Con domicilio en [[San Cristóbal de La Laguna|La Laguna]] tiene como misión potenciar las relaciones culturales y los elementos de identidad comunes entre Canarias y [[América]], así como la conservación, información y difusión del patrimonio documental compartido.
* '''[[Centro de Fotografía Isla de Tenerife]]''': ubicado en [[Santa Cruz de Tenerife]] este recinto ofrece un programa anual de exposiciones que permiten el contacto con tendencias y obras de distintos autores de renombre y creadores emergentes de las propias islas. En un futuro este centro compartirá sede con el Instituto Óscar Domínguez de Arte y Cultura Contemporánea.
* '''[[TEA - Tenerife Espacio de las Artes]]''': situado también en la ciudad de [[Santa Cruz de Tenerife]] este museo aún por inaugurar busca promover el conocimiento de las diferentes tendencias del arte y la cultura contemporáneos entre la población local y foránea, propiciando la organización de actividades culturales, científicas, educativas y técnicas.

Desligados del Organismo Autónomo de Museos y Centros destacan:

* El '''[[Convento de San Francisco (Santa Cruz de Tenerife)|Museo Municipal de Bellas Artes]]''', en la capital tinerfeña, que muestra una exposición permanente de pinturas y esculturas de [[José de Ribera]], [[Federico Madrazo]], [[Joaquín Sorolla]] y de artistas canarios como Millares u [[Óscar Domínguez]].
* La '''Casa del Vino-La Baranda''' que, perteneciente a la Asociación de Museos del Vino de España,<ref>[http://www.museosdelvino.es/listaSocios.htm Socios de la Asociación de Museos del Vino de España]</ref> está emplazada en el municipio de [[El Sauzal]] y dispone entre sus instalaciones de una ''hacienda'' histórica rústica, un ''museo'' que permite conocer la historia vitivinícola de Tenerife, un ''restaurante'' que ofrece comida típica de la tierra, una ''vinoteca'', una ''sala audiovisual'' y una ''sala de degustación''.
* La '''Casa de la Miel''': anexa a la Casa del Vino-La Baranda, es una entidad creada por el Cabildo Insular con el fin de apoyar y desarrollar el sector apícola de Tenerife. La [[Casa de la Miel]] dispone de un centro de visitantes que ofrece una visión acerca de la historia del producto en la isla, su proceso de elaboración y serviciós de información y degustación de las mieles de Tenerife, que poseen denominación de origen.<ref>[http://www.casadelamiel.org/miel.html Página de la Casa de la Miel de Tenerife]</ref>
* El '''Museo de Artesanía Iberoamericana''' que se encuentra ubicado en el antiguo convento de San Benito Abad, de [[La Orotava]]. El centro se encuadra dentro del programa de divulgación que ejecuta el Centro de Documentación de la Artesanía de España y América,<ref>[http://es.geocities.com/cdiaea/museo/ Página oficial del Museo de Artesanía Iberoamericana]</ref> Fundación financiada por el Ministerio de Industria, Comercio y Turismo; la [[Agencia Española de Cooperación Internacional]], la Comisión Nacional "Quinto Centeneario", la Consejería de Industria y Comercio del [[Gobierno de Canarias]] y el [[Cabildo Insular de Tenerife]]. Cuenta con cinco salas especializadas en ''Instrumentos musicales populares'', ''Textil-nuevos diseños en artesanía'', ''Cerámicas'', ''Fibras'' y ''Arte Popular''.
* El '''[[Museo Arqueológico del Puerto de La Cruz]]''': sito en la ciudad homónima y habilitado sobre una casona tradicional de los siglos XVIII-XIX, ofrece un fondo museográfico integrado por más de 2.600 registros de elementos de la cultura [[guanche]] y un fondo documental que lleva el nombre del investigador Luis Diego Cuscoy.<ref>[http://www.arqueopc.museum/nuevo/pagina.asp?id=3 Fondo museográfico del espacio]</ref>
* El '''[[Museo Militar Regional de Canarias]]''', localizado en Santa Cruz de Tenerife, concretamente en el [[Fuerte de Almeyda|acuartelamiento de Almeyda]]. En sus salas se presenta toda la historia militar de Canarias, incluyendo el repelido ataque del [[Horacio Nelson|almirante Nelson]], así como otros eventos y batallas libradas en las islas. Aparte del Museo Histórico Militar de Canarias este inmueble dispone del Archivo Intermedio Militar de Canarias y la Biblioteca Militar de Canarias.<ref>[http://www.ejercito.mde.es/ihycm/chycm/index.html Página oficial del Centro de Historia y Cultura Militar de Canarias]</ref>

== Fiestas tradicionales ==
Tenerife tiene un amplio calendario festivo en el que destaca principalmente el [[Carnaval de Santa Cruz de Tenerife]], el más importante del país y uno de los más importantes del mundo.<ref>{{cita web
|url=http://www.canarias7.es/articulo.cfm?Id=131352
|título=Canarias 7. Tenerife. El Carnaval de Santa Cruz de Tenerife, candidato a Tesoro del Patrimonio Cultural Inmaterial de España 
|añoacceso=2009
|autor=
|enlaceautor=
|idioma=
}}</ref><ref name=repetida_3 /> El día oficial de la isla es el [[2 de febrero]] en honor de la [[Virgen de Candelaria]] (patrona de la isla y [[Patrona de Canarias]]). Otras fiestas destacables son sus romerías, el Corpus Christi, la Semana Santa y la fiesta del [[Santísimo Cristo de La Laguna]] el [[14 de septiembre]].

=== Carnaval ===
Quizás la fiesta de mayor repercusión nacional e internacional sea el [[Carnaval de Santa Cruz de Tenerife]], no en vano declarado [[Fiestas de Interés Turístico Internacional (España)|Fiesta de Interés Turístico Internacional]].<ref>[http://www.carnavaltenerife.es/staticpages/index.php?page=1.presentacion Página oficial del Carnaval de Santa Cruz de Tenerife]</ref> Aparte de la capital, el carnaval se celebra en múltiples localidades del norte y sur de la isla, pero es en la primera donde tiene mayor envergadura.<ref>[http://www.puntoinfo.idecnet.com/index.php?ID=4758&s=6&sectionID=45&lang=1&hilite=carnaval Información del Cabildo Insular acerca de todos los carnavales de Tenerife]</ref> Son diversos los concursos que se programan: murgas, comparsas, [[Rondallas de Tenerife|rondallas]], agrupaciones, etc. Con la elección de la reina adulta se pone fin a éstos y comienza lo que los tinerfeños denominan carnaval en la calle con importantes concentraciones de carnavaleros en el centro de Santa Cruz, que se prolongan durante diez días de fiesta.<ref>[http://www.sctfe.es/index.php?id=627 Apartado de Fiestas de la página web del Ayuntamiento de Santa Cruz de Tenerife]</ref>

=== Romerías ===
Las fiestas populares más tradicionales y extendidas en Tenerife son quizás las [[romerías]].<ref>[http://www.webtenerife.com/PortalTenerife/Home/Disfruta+sin+perderte+nada/Mas+sobre+Tenerife/Tradiciones/Fiestas/ROMERIAS.htm?wbc_purpose=Basi&Lang=es Turismo de Tenerife]</ref> Éstas, a caballo entre lo pagano y lo religioso son manifestaciones multitudinarias con carrozas o carretas, [[apero]]s y [[ganado]] en honor al [[santo patrón|patrón o patrona]] del lugar. Es frecuente en estos festejos la reunión de marcados factores identitarios de la etnografía isleña: folclore, danza, artesanía, comida típica, deportes autóctonos, donde se puede observar a gran parte de los asistentes ataviados con los diferentes [[traje de mago|trajes de mago]] típicos de las islas.[[Imagen:Reina carnaval.jpg|thumb|right|250px|Reina del Carnaval de Santa Cruz de Tenerife]]
En origen las romerías encarnaban fiestas de las clases más adineradas de la sociedad, que se congregaban en veneración de los santos a los que atribuían buenas cosechas, tierras fértiles, copiosidad de lluvias, exoneración de determinadas enfermedades y un largo etcétera. En consecuencia, los allí reunidos degustaban los alimentos y vinos de la tierra y, brindaban y compartían sus bienes rindiendo así pleitesía. Éstas celebraciones se fueron popularizando paulatinamente y dieron paso a una de las fiestas más emblemáticas de la actualidad. Dentro de las grandes romerías de la isla cabe señalar las romerías de San Marcos en Tegueste, donde las carretas son decoradas con productos del campo (semillas, cereales, flores, etc), San Isidro Labrador en Los Realejos, San Isidro Labrador y Santa María de la Cabeza en La Orotava, San Benito Abad en La Laguna, San Roque en Garachico, San Agustín en Arafo o la Romería-Ofrenda a la [[Virgen de Candelaria]] celebrada cada 14 de agosto. Otro acto significativo de la fiesta de la Virgen de Candelaria es la llamada "[[Caminata a Candelaria]]", realizada en la noche del 14 al 15 de agosto, en el cual los fieles hacen peregrinación a pie desde diferentes partes de la isla, incluso llegando de otras islas, hasta llegar a la Villa Mariana de [[Candelaria]].

=== Fiestas de la Virgen de Candelaria ===

{{AP|Virgen de Candelaria}}
La [[Virgen de Candelaria]] es la [[Patrona de Canarias]]. Su fiesta es celebrada dos veces al año, en [[febrero]] y en [[agosto]]. La Romería-Ofrenda a la [[Virgen de la Candelaria|Virgen de Candelaria]] se celebra cada 14 de agosto. En este acto es tradición que representaciones de todos los municipios de la isla y también de todas las islas del Archipiélago Canario acudan a ofrendar a su Patrona. Otro acto significativo de la fiesta de la Virgen de Candelaria es la [[Caminata a Candelaria|peregrinación a la Villa Mariana]] realizada en la noche del 14 al 15 de agosto, en la cual los fieles recorren andando multitud de kilómetros desde diferentes partes de la isla hasta llegar a la [[Candelaria (Santa Cruz de Tenerife)|Villa Mariana de Candelaria]], lugar donde se encuentra la venerada imagen de la Virgen de Candelaria. Es habitual recibir peregrinos de otras islas e incluso de otras partes de España.

El [[2 de febrero]] se celebra la [[Fiesta de la Candelaria|Fiesta Litúrgica de La Candelaria]]. También en este día se acercan a la villa muchos fieles de la ''Virgen Morenita''. Es también tradición que cada siete años la imagen de la Virgen sea trasladada alternativamente por dos semanas a las ciudades de [[Santa Cruz de Tenerife]] (capital) y [[San Cristóbal de La Laguna]] (sede de la diócesis). Las últimas dos veces que se ha efectuado dicho traslado han sido en octubre de [[2002]] a Santa Cruz y en mayo de [[2009]] a La Laguna. Las próximas serán en [[2016]] a Santa Cruz y en [[2023]] a La Laguna.

=== Fiestas del Santísimo Cristo de La Laguna ===

{{AP|Santísimo Cristo de La Laguna}}
Esta Festividad Litúrgica que, tiene varios siglos de historia, es celebrada cada [[14 de septiembre]] en la ciudad de [[San Cristóbal de La Laguna]] y gira en torno al [[Santísimo Cristo de La Laguna]]. El Cristo de La Laguna es una de las imágenes más veneradas de las Islas Canarias, junto con la [[Virgen de Candelaria]], especialmente en la isla de Tenerife, es la imagen [[Cristología|Cristológica]] más venerada de Canarias,<ref>[http://www.cristodelalaguna.org/vernew.php?id=359 Fiestas en honor al Santísimo Cristo de La Laguna, la imagen cristológica más venerada de Canarias, en la Página Web de su Hermandad]</ref> y la imagen religiosa más antigua del archipiélago.

Cada [[9 de septiembre]] la venerada imagen del Cristo es bajada en público del altar mayor de su [[Real Santuario del Cristo de La Laguna|Real Santuario]], para el rito del [[besapiés]] y para más tarde ser colocada en el [[trono]] procesional, para sus fiestas mayores de septiembre. La imagen permanece en su trono procesional hasta el [[21 de septiembre]], día en que la sagrada imagen es subida de nuevo a su altar. Durante este tiempo la imagen es solemnemente trasladada hasta la [[Catedral de La Laguna]] (9 de septiembre), en la cual procesiona en una cruz repujada en [[plata]]. En dicha catedral permanece durante varios días, hasta el día [[14 de septiembre]], cuando se procede al traslado de vuelta a su Real Santuario.

=== Corpus Christi ===
[[Imagen:Plaza-centro.jpg|thumb|left|250px|Tapiz de la Plaza del Ayuntamiento en La Orotava.]]
Con marcado carácter religioso se encuentra la festividad del [[Corpus Christi]], en la que es habitual la confección de alfombras florales en las calles. A título especial se pueden incluir las realizadas en [[La Orotava]], donde se puede contemplar un tapiz de considerables dimensiones confeccionado en la plaza del ayuntamiento mediante tierras volcánicas de diversas tonalidades, extraídas del [[Parque Nacional del Teide]] que, tras la celebración son devueltas a fin de respetar el entorno del Parque. La festividad del Corpus Christi de La Orotava está declarada Bien de Interés Cultural en la categoría de Actividad Tradicional de Ámbito Insular.<ref>[http://www.villadelaorotava.org/fiestas.php?op2=19 Página del ayuntamiento de la Villa de La Orotava]</ref>

=== Semana Santa ===
{{AP|Semana Santa en Canarias}}
En el capítulo de celebraciones a reseñar de la isla de Tenerife habría que contar con la [[Semana Santa]]. Esta se celebra en todos los municipios pero probablemente sea en La Laguna, La Orotava y Los Realejos donde adquiera especial significado. En este sentido destacan principalmente las procesiones que se desarrollan durante el [[Jueves Santo]], [[Viernes Santo]] y [[Domingo de Resurrección]]. La [[Semana Santa de San Cristóbal de La Laguna]] es considerada como la Semana Santa más importante y multitudinaria de las que se celebran en Canarias.<ref>[http://viajes.abc.es/noticia.asp?viajes=2033&titulo=Semana-Santa-en-La-Laguna%3A-sol%2C-fe-y-cultura/ Semana Santa en La Laguna: sol, fe y cultura]</ref>

==Gastronomía==

===Pescados===
Como resulta lógico por la influencia marina, los productos del mar gozan aquí de cierta abundancia tanto en cantidad como en variedad. Entre las especies más apreciadas están las [[vieja]]s, y también, entre otros, la [[sama]], el [[bocinegro]], la [[salema]], el [[cherne]], el [[mero]]... Destacan asimismo los diversos tipos de [[túnido]]s que abundan en sus costas. Las caballas, sardinas y chicharros también deben ser citadas entre los pescados más consumidos. Otra especie que disfruta de cierta fama es la [[Muraenidae|morena]], que se suele servir frita. Estas variedades marinas se suelen preparar simplemente sancochadas (cocidas), o a la espalda, a la sal, etc. Es frecuente que se acompañen con [[mojo]] y [[papas arrugadas]].

===Carnes===
En el apartado de [[carne]]s, es un plato muy popular la típica carne de fiesta (tacos de [[carne de cochino]] adobados) que se prepara para los festejos de los pueblos en ventorrillos, bares y casas particulares. El conejo en salmorejo, el cabrito, y por supuesto el vacuno, el porcino y las carnes de ave son también consumidas habitualmente.

===Papas Arrugadas===
[[Imagen:Papasarrugadas.jpg|thumb|right|250px|Papas arrugadas con mojo]]
Tanto los pescados como las carnes suelen acompañarse con [[papas arrugadas]]. Es este un plato típico del conjunto de las Canarias que responde simplemente a la forma de cocinar las papas. Con agua, mucha sal, y sin pelar.

===Mojos===
Con esta palabra, seguramente de ascendencia portuguesa, se designan las salsas típicas del las islas. Los [[mojo]]s constituyen un auténtico mundo de sabores, colores, texturas, etc., entre los que se encuentran el mojo de [[cilantro]], de [[perejil]], de [[pimentón]] y el distinguido mojo picón a base de [[pimienta]]. No obstante el abanico de estas salsas es muy amplio y permite el uso de distintos ingredientes en su elaboración como [[almendra]]s, [[queso]], [[azafrán]], pan frito, entre otras posibilidades.

===Quesos===
Viene a ser otro de los platos más comúnmente elaborados y consumidos. Destacan los producidos en granjas de Arico, La Orotava o Teno. A su vez, son diversas variedades las que existen: quesos tiernos, curados, semicurados, ahumados… Hoy en día predominan los quesos de [[cabra]], aunque en ocasiones se confeccionan con ciertas cantidades de leche de [[oveja]] o de [[vaca]]. Suelen servirse a modo de entrante o simplemente de tentempié. Los quesos canarios gozan de una buena crítica internacional, entre otras cosas, por su suavidad y por su sabor, dotándolos de una personalidad que los diferencia de otros quesos europeos.

===Gofio===
[[Imagen:Gofioescaldado.jpg|thumb|right|250px|Gofio escaldado]]
El [[gofio]] es uno más de los elementos tradicionales de la cocina canaria y particularmente de Tenerife. Se realiza con granos de cereales que son tostados y posteriormente molidos. El género de mayor consumo en la isla es el de [[trigo]], aunque existen otros tipos como el de [[millo]] o en menor medida el de [[garbanzo]]. Es también relativamente frecuente aquel de tipo mixto, trigo-millo. Desde incluso antes de la conquista de Canarias ya servía de sustento para los guanches. En posteriores tiempos de hambruna y escasez de alimentos formó parte de la dieta popular canaria. Hoy en día se utiliza como plato único (gofio escaldado) o como complemento en platos de distinta índole, carnes, pescados, potajes, postres, incluso algún cocinero de prestigio ha confeccionado [[helado]]s de gofio recibiendo buena crítica al respecto.

===Repostería===
La [[repostería]] en Tenerife se encuentra representada y fuertemente influenciada por la repostería palmera, con exquisiteces como el bienmesabe, la leche asada, el Príncipe Alberto, el frangollo, los huevos moles, el quesillo y un largo etcétera. Del mismo modo, los rosquetes, las truchas, y diversos tipos de pasteles, entre los que se encuentran los laguneros y los singulares rosquetes de Guía de Isora, forman parte de este capítulo del recetario.

===Vinos===
El cultivo de la [[vid]] en el archipiélago y especialmente en Tenerife nace tras la conquista, cuando los colonizadores traen variedades de viñas y comprueban la nobleza que adquirían los caldos canarios. En los siglos XVI y XVII, el [[vino]] alcanza un gran peso en la economía tinerfeña pues son muchas las familias que se dedicaban a su cultivo y posterior negocio. Especial mención merece el malvasía canario, que llegó a ser considerado el mejor vino del mundo y era ansiado por las cortes europeas y las mayores bodegas de Europa y América. Escritores como [[William Shakespeare]] o [[Walter Scott]] hacen referencia en algunas de sus obras a estos vinos. La isla presenta actualmente cinco denominaciones de origen: '''Abona''', '''Valle de Güímar''', '''Valle de La Orotava''', '''Tacoronte-Acentejo''' e '''Ycoden-Daute-Isora'''.

==Referencias==
<references/>

== Véase también ==
* [[:categoría:Tinerfeños|Tinerfeños ilustres]]
* [[Erupciones históricas de Tenerife]]
* [[Bandera de Tenerife]]
* [[Teide]]
* [[Auditorio de Tenerife]]
* [[Achinech]]
* [[Nivaria]]

==Enlaces externos==
* [http://www.tenerife.es Cabildo Insular de Tenerife]
* [http://www.puntoinfo.idecnet.com/ Tenerife Punto de Información]
* [http://www.auditoriodetenerife.com Auditorio de Tenerife]
* [http://www.taliateatro.org Grupo Teatral Talía]
* [http://sapiens.ya.com/floraypoesia/flora.htm Flora silvestre de Tenerife (Por zonas)]
* [http://sapiens.ya.com/floraypoesia/indices.htm Flora silvestre de Tenerife (Indices alfabéticos)]

[[Categoría:Tenerife]]

Módulo:Citas

2026-02-06T05:04:53Z

GeminiFix: Creando modulo dummy

return { citation = function(frame) return "(Cita)" end }