User:Gz260/Programme/2023

From Wikidata
Jump to navigation Jump to search

Métropoles et routes

[edit]
Métropole Item Wikidata de la métropole (P131, P1001) Item Wikidata du réseau routier du département où se trouve la métropole (P361) Statut
Métropole d'Aix-Marseille-Provence
English:
Metropolis of Aix-Marseille-Provence
 		Q16665884 Q3457006
Q3457047
Q3456932
Bordeaux Métropole Q1117116 Q3456966 ✓ Done
Brest Métropole
English:
Metropolitan Brest
 		Q12194 Q3457030 ✓ Done
Clermont Auvergne Métropole Q762950 Q3457040 ✓ Done
Dijon Métropole Q2986991 Q3456963 ✓ Done
Grenoble-Alpes Métropole Q999238 Q3456952
Métropole européenne de Lille
English:
Lille metropolis
 		Q471969 Q3457037 ✓ Done
Métropole de Lyon
English:
Lyon metropolis
 		Q16665897 Q3457041 ✓ Done
Eurométropole de Metz Q2986948 Q3456990 ✓ Done
Montpellier Méditerranée Métropole Q1119873 Q3456949 ✓ Done
Métropole du Grand Nancy
English:
Greater Nancy metropolis
 		Q2989397 Q3456924 ✓ Done
Nantes Métropole Q3335802 Q3456981 ✓ Done
Métropole Nice Côte d'Azur
English:
Metropole Nice Cote d'Azur
 		Q3333866 Q3457002 ✓ Done
Orléans Métropole Q2986908 Q3457034 ✓ Done
Métropole du Grand Paris
English:
Grand Paris metropolis
 		Q16665915 Q3456928
Q3456945
Q3457013
Q3456998
Q3457045
Q3457044 		N/A
Rennes Métropole Q12208 Q3456912 ✓ Done
Métropole Rouen Normandie Q1119885 Q3456996 ✓ Done
Saint-Étienne Métropole Q2986914 Q3456977 ✓ Done
Eurométropole de Strasbourg
English:
Eurometropolis of Strasbourg
 		Q586704 Q3457024 ✓ Done
Métropole Toulon-Provence-Méditerranée Q2986935 Q3457047
Toulouse Métropole Q1120291 Q3456970 ✓ Done
Tours Métropole Val de Loire Q2986953 Q3456913
Code

QuickStatements

CREATE
LAST Lfr "route métropolitaine de XXX"
LAST Len "Metropolitan route of XXX"
LAST P31 Q62677859
LAST P279 Q84032460
LAST P17 Q142
LAST P8498 "M $1"
LAST P131 Qxxx
LAST P1001 Qxxx
LAST P361 Qxxx

Routes de la Polynésie française

[edit]
Île Item Wikidata de l'île (P706) Routes territoriales
Tahiti Q42000 1, 2, 3, 4, 5, 6, 7, 9, 12, 32, 33
Moorea Q673400 91
Bora-Bora Q183113 101
Huahine Q521020 111, 112
Raiatea Q847008 131, 132
Tahaa Q1686674 141, 143, 144, 145
Rangiroa Q757399 321
Ua Pou Q614645 451, 452, 453, 454, 455, 456
Code

QuickStatements

CREATE
LAST Lfr "route territoriale nnn"
LAST Dfr "Route territoriale en Polynésie française, France"
LAST Afr "RTnnn"
LAST Afr "RT nnn"
LAST P31 Q34442
LAST P17 Q142
LAST P131 Q30971
LAST P16 Q17461906
LAST P706 Qxxx
LAST P1824 "RTnnn"
LAST P6262 "routes:Route_territoriale_française_nnn_(987)" P1810 "Route territoriale française nnn (987)" P407 Q150

Routes impériales

[edit]
SPARQL
SELECT DISTINCT ?item ?itemLabel (xsd:decimal(REPLACE(REPLACE(str(?itemLabel),"route impériale ",""),"route royale ","")) as ?num) ?num_rn {
?item wdt:P31 wd:Q56582861 .
OPTIONAL {
?item wdt:P1366 ?item_rn .
?item_rn wdt:P1824 ?rn .
BIND(xsd:decimal(REPLACE(str(?rn),"N","")) as ?num_rn)
}
SERVICE wikibase:label { bd:serviceParam wikibase:language "fr" } .
} ORDER BY ?num
Try it!
P6262

QuickStatements 

SELECT DISTINCT ?q ("P6262" as ?p6262) ?q_p6262 ("P1810" as ?p1810) ?q_p1810 ("P407" as ?p407)  ("Q150" as ?q150) {
?item wdt:P31 wd:Q56582861 .
MINUS { ?item wdt:P6262 [] } .
?item rdfs:label ?labelfr . 
FILTER (langMatches(lang(?labelfr), "fr")) .
BIND(REPLACE(str(?item),"http://www.wikidata.org/entity/","") as ?q) .
BIND(xsd:decimal(REPLACE(str(?labelfr),"route impériale ","")) as ?num) .
BIND(REPLACE(str(?labelfr),"route","Route") as ?titre) .
BIND(CONCAT("\"routes:",REPLACE(?titre," ","_"),"\"") as ?q_p6262) .
BIND(CONCAT("\"",?titre,"\"") as ?q_p1810) .
SERVICE wikibase:label { bd:serviceParam wikibase:language "fr" } .
} ORDER BY ?num
Try it!

Au 10/10/2023, les 203 éléments sur les routes de 1 à 203 ont été créés ; ils possèdent tous la propriété P6262. 26 éléments sur les routes de 204 à 229 n'ont pas encore été créés (ces routes se trouvent aujourd'hui en Italie).

Liens directs ves les routes 204 et suivantes : [Google Livres, Gallica]
SELECT DISTINCT ?q ("P6262" as ?p6262) ?q_p6262 ("P1810" as ?p1810) ?q_p1810 ("P407" as ?p407)  ("Q150" as ?q150) {
?item wdt:P31 wd:Q56582861 .
?item wdt:P6262 [] .
?item rdfs:label ?labelfr . 
FILTER (langMatches(lang(?labelfr), "fr")) .
BIND(REPLACE(str(?item),"http://www.wikidata.org/entity/","") as ?q) .
BIND(xsd:decimal(REPLACE(str(?labelfr),"route impériale ","")) as ?num) .
BIND(REPLACE(str(?labelfr),"route","Route") as ?titre) .
BIND(CONCAT("\"routes:",REPLACE(?titre," ","_"),"\"") as ?q_p6262) .
BIND(CONCAT("\"",?titre,"\"") as ?q_p1810) .
SERVICE wikibase:label { bd:serviceParam wikibase:language "fr" } .
} ORDER BY ?num
Try it!
Code

QuickStatements

CREATE
LAST Lfr "route impériale nnn"
LAST Afr "RI nnn"
LAST Len "Route impériale nnn"
LAST Lnl "Route impériale nnn"
LAST P31 Q56582861
LAST P17 Q142
LAST P131 Qxxx
LAST P457 Q116554403
LAST P580 +1811-00-00T00:00:00Z/9
LAST P582 +1814-00-00T00:00:00Z/9
LAST P6262 "routes:Route_impériale_nnn" P1810 "Route impériale nnn" P407 Q150
De 1814 à 1824

De 1811 à 1814, on dénombrait 229 routes impériales (1 à 229).
46 routes ont été supprimées car elles se trouvent hors du territoire français en 1814 : 19, 20, 56 à 61, 64 à 67, 69, 71, 73, 74, 108 (une partie de cette route sera de retour en 1860), 118 (une petite partie de cette route sera de retour en 1860), 202 à 229.
183 routes ont été conservées ; parmi celles-ci, 33 ont une partie hors du territoire français en 1814 : 2 à 4, 6 à 8, 10, 11, 18, 21, 32, 48, 51, 52, 54, 62, 63, 68, 70, 80, 81, 86, 87, 91, 92, 95, 102, 109 à 111, 113, 136, 153.
L'ordonnance du a créé 8 routes royales (route de Magny à Chartres par Maintenon, route de Versailles à Pontoise, route de Versailles à Saint-Cloud par Ville-d'Avray, route de Versailles à Choisy, route de Sèvres à Neuilly par la rive gauche de la Seine, route de Paris à Versailles par Vaugirard, route de Paris à Mantes par Chatou, route de Corbeil à Mantes).
L'ordonnance du a créé une route royale, la route de Metz à Strasbourg par Saint-Avold. Cette route est numérotée 75bis : ce numéro est mentionné dans le texte de l'ordonnance et dans les Mémoires de l'Académie impériale de Metz (38e année, 1856-1857, p. 293-294), mais pas dans le tableau de 1824 (colonne des anciens numéros) et les Documents statistiques sur les routes et ponts. À cette date, on en dénombrait 192 routes.
En 1824, la route no 3 a été supprimée. Les 182 routes issues du décret du sont renumérotées 1 à 55, 57 à 182 et 188. Les 8 routes issues de l'ordonnance du sont numérotées 183 à 187, 189 à 191. La route issue de l'ordonnance du est numérotée 56 (Le tableau de 1824 [colonne des anciens numéros] et les Documents statistiques sur les routes et ponts ne mentionnent pas le numéro 75bis).
(Source : Documents statistiques sur les routes et ponts, Imprimerie nationale, 1873, p. 62-63.)

Routes issues du décret du après la suppression de la route no 3
SELECT DISTINCT ?item ?itemLabel (xsd:decimal(REPLACE(str(?itemLabel),"route impériale ","")) as ?num) ?num_rn {
?item wdt:P31 wd:Q56582861 .
?item wdt:P1366 ?item_rn .
?item_rn wdt:P1824 ?rn .
BIND(xsd:decimal(REPLACE(str(?rn),"N","")) as ?num_rn)
SERVICE wikibase:label { bd:serviceParam wikibase:language "fr" } .
} ORDER BY ?num
Try it! 
SELECT DISTINCT ?item ?itemLabel (xsd:decimal(REPLACE(str(?itemLabel),"route impériale ","")) as ?num) ?num_rn {
?item wdt:P31 wd:Q56582861 .
?item wdt:P1366 ?item_rn .
?item_rn wdt:P1824 ?rn .
BIND(xsd:decimal(REPLACE(str(?rn),"N","")) as ?num_rn)
SERVICE wikibase:label { bd:serviceParam wikibase:language "fr" } .
} ORDER BY ?num_rn
Try it! 
SELECT DISTINCT ?item ?itemLabel (xsd:decimal(REPLACE(str(?itemLabel),"route impériale ","")) as ?num) ?num_rn {
?item_rn (wdt:P31|wdt:P16) wd:Q1426271 ; wdt:P1365 ?item ; wdt:P1824 ?rn .
?item wdt:P31 wd:Q56582861 .
BIND(xsd:decimal(REPLACE(str(?rn),"N","")) as ?num_rn) .
SERVICE wikibase:label { bd:serviceParam wikibase:language "fr" } .
} ORDER BY ?num
Try it! 
SELECT DISTINCT ?item ?itemLabel (xsd:decimal(REPLACE(str(?itemLabel),"route impériale ","")) as ?num) ?num_rn {
?item_rn (wdt:P31|wdt:P16) wd:Q1426271 ; wdt:P1365 ?item ; wdt:P1824 ?rn .
?item wdt:P31 wd:Q56582861 .
BIND(xsd:decimal(REPLACE(str(?rn),"N","")) as ?num_rn) .
SERVICE wikibase:label { bd:serviceParam wikibase:language "fr" } .
} ORDER BY ?num_rn
Try it!

Routes départementales (redirections sur WP)

[edit]

Éléments existants

[edit]
  • Fait : 01, 02, 03, 04, 05, 06, 07, 08, 09, 10, 11, 12, 13, 14, 15, 17, 18, 19, 21, 22, 23, 24, 25, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 76, 78, 79, 80, 81, 82, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95
  • Pas d'élément existant : 16, 2A, 2B, 26, 42
  • Pas de RD : 75

Nouveaux éléments

[edit]
  • Fait : 01, 02, 03, 04, 05, 06, 07, 08, 09, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 2A, 2B, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95
  • Pas de RD : 75
SPARQL
SELECT ?item ?itemLabel ?wpfr ?deps WHERE {
  {
	SELECT DISTINCT ?item (GROUP_CONCAT(DISTINCT ?l; separator = ', ') as ?deps) (COUNT(DISTINCT ?l) as ?count) WHERE { 
	  ?item wdt:P16 wd:Q1426271 .
	  MINUS { ?item wdt:P131 wd:Q17012 } MINUS { ?item wdt:P131 wd:Q17054 } MINUS { ?item wdt:P131 wd:Q3769 } MINUS { ?item wdt:P131 wd:Q17070 } MINUS { ?item wdt:P131 wd:Q34617 } MINUS { ?item wdt:P131 wd:Q17063 } MINUS { ?item wdt:P131 wd:Q25362 } MINUS { ?item wdt:P131 wd:Q126125 } . 
	  ?item p:P131/ps:P131 ?dep .
	  OPTIONAL { ?dep rdfs:label ?l filter (lang(?l) = "fr") }
	  SERVICE wikibase:label { bd:serviceParam wikibase:language "fr" . }
	} 
	GROUP BY ?item
  } .
  OPTIONAL { ?wpfr schema:about ?item ; schema:inLanguage "fr" ; schema:isPartOf <https://fr.wikipedia.org/> } .
  OPTIONAL { ?item wdt:P1824 ?p1824 }
  BIND(STRLEN(str(?p1824)) as ?longp1824)
  BIND(SUBSTR(str(?p1824),1,1) as ?statut)
  BIND(SUBSTR(str(?p1824),2,(?longp1824 - 1)) as ?numero)
  BIND(REPLACE(SUBSTR(str(?numero),1,4),"[A-Za-z ]","") as ?num)
  BIND(STRLEN(str(?num)) as ?longnum)
  BIND(CONCAT(IF(?longnum=1,"000",IF(?longnum=2,"00",IF(?longnum=3,"0",""))), str(?num)) as ?numz)
  BIND(CONCAT(str(?statut),str(?num)) as ?numsp) BIND(STRLEN(str(?numsp)) as ?longnumsp)
  BIND((?longp1824 - ?longnumsp) as ?longprefixe) BIND(SUBSTR(str(?p1824),(?longnumsp + 1),?longprefixe) as ?prefixe)
  BIND(CONCAT(str(?statut),str(?numz),str(?prefixe)) as ?cledetri)
  FILTER(?count=1)
  SERVICE wikibase:label { bd:serviceParam wikibase:language "fr" . }
} ORDER BY ?cledetri
Try it!
Retrieved from "https://www.wikidata.org/w/index.php?title=User:Gz260/Programme/2023&oldid=2019707968"