Datei:EurUsd.png
Aus Kryptowiki - Die freie Enzyklopädie der Kryptowährungen
Zur Navigation springen
Zur Suche springen
Größe dieser Vorschau: 800 × 514 Pixel. Weitere Auflösungen: 320 × 206 Pixel | 640 × 411 Pixel | 1.024 × 658 Pixel | 1.400 × 900 Pixel.
Originaldatei (1.400 × 900 Pixel, Dateigröße: 27 KB, MIME-Typ: image/png)
Diese Datei stammt aus Wikimedia Commons und kann von anderen Projekten verwendet werden. Die Beschreibung von deren Dateibeschreibungsseite wird unten angezeigt.
Beschreibung
| BeschreibungEurUsd.png | EUR - USD FX (foreign exchange rate) since EUROs do exist. ECB fixation |
| Datum | |
| Quelle | data from ECB EURUSD fixing [1], as of 25.10.2020. created with GNU R, see source below; |
| Urheber | origin Thomas Steiner |
| Genehmigung (Weiternutzung dieser Datei) |
Thomas Steiner put it under the CC-by-SA 2.5. |
| Andere Versionen | made to improve de:Bild:ChartUSD_EUR_99_06.JPG |
Diese Datei ist unter der Creative-Commons-Lizenz „Namensnennung – Weitergabe unter gleichen Bedingungen 2.5 generisch“ (US-amerikanisch) lizenziert.
- Dieses Werk darf von dir
- verbreitet werden – vervielfältigt, verbreitet und öffentlich zugänglich gemacht werden
- neu zusammengestellt werden – abgewandelt und bearbeitet werden
- Zu den folgenden Bedingungen:
- Namensnennung – Du musst angemessene Urheber- und Rechteangaben machen, einen Link zur Lizenz beifügen und angeben, ob Änderungen vorgenommen wurden. Diese Angaben dürfen in jeder angemessenen Art und Weise gemacht werden, allerdings nicht so, dass der Eindruck entsteht, der Lizenzgeber unterstütze gerade dich oder deine Nutzung besonders.
- Weitergabe unter gleichen Bedingungen – Wenn du das Material wiedermischst, transformierst oder darauf aufbaust, musst du deine Beiträge unter der gleichen oder einer kompatiblen Lizenz wie das Original verbreiten.
PNG‑Erstellung
InfoField
Quelltext
InfoField
R code
library(rsdmx)
raw = as.data.frame(readSDMX("https://www.ecb.europa.eu/stats/policy_and_exchange_rates/euro_reference_exchange_rates/html/usd.xml"))
greenback=rgb(red=13, green=82, blue=35, alpha=255, maxColorValue = 255)
greyusd=rgb(red=49, green=52, blue=45, alpha=255, maxColorValue = 255)
redusd=rgb(red=178, green=7, blue=25, alpha=255, maxColorValue = 255)
blueeur=rgb(red=0, green=50, blue=153, alpha=255, maxColorValue = 255)
yelloweuro=rgb(red=255, green=243, blue=21, alpha=255, maxColorValue = 255)
fixing=raw[,9]
date=as.Date(raw[,8],format="%Y-%m-%d")
items=seq(1,length(fixing),by=1) # setze "by=3" um weniger punkte zu zeichnen
png(filename="EurUsd.png", width=1400, height=900, pointsize=12)
par(bg=blueeur,mar=c(3,4.5,1.7,1.5)+0.1,font=2)
plot(date[items],fixing[items],type="n",xlim=c(10700,max(date)),xlab="",ylab="Wechselkurs (1 € = … USD)",cex.lab=1.7,col.lab="white",font.lab=2,col.axis="white",axes=FALSE)
usr=par("usr")
rect(xleft=usr[1], ybottom=usr[3], xright=usr[2], ytop=usr[4],col="white",border=NA)
yticks=seq(from=0.85,to=1.6,by=0.15)
axis(side=2,at=yticks,labels=format(yticks,nsmall=2,digits=3),font=2,col.axis="white",col="white",cex.axis=1.5,lwd=3)
yticksInner=seq(from=0.85,to=1.6,by=0.05)
axis(side=2,at=yticksInner,labels=NA,col.axis=NA,col.ticks=blueeur,lwd=0,lwd.ticks=2,tcl=0.5)
axis(side=4,at=yticksInner,labels=NA,col.axis=NA,col.ticks=blueeur,lwd=0,lwd.ticks=2,tcl=0.5)
startEUR=as.Date("1999-01-01")
xticks=as.Date(paste0(seq(1999,2025,by=2),"-1-1"))-startEUR
Sys.setlocale("LC_TIME", "German") #"Jan" und nicht "Jän"
axis(side=1,at=xticks+startEUR,labels=format(xticks+startEUR,"%b %y"),font=2,col.axis="white",col="white",cex.axis=1.5,lwd=3)
xticks2=as.Date(paste0(rep(seq(1999,2025,by=1),each=1),"-1-1"))-startEUR
axis(side=1,at=xticks2+startEUR,labels=NA,col.axis=NA,col.ticks=blueeur,lwd=0,lwd.ticks=2,tcl=0.5)
axis(side=3,at=xticks2+startEUR,labels=NA,col.axis=NA,col.ticks=blueeur,lwd=0,lwd.ticks=2,tcl=0.5)
abline(v=xticks+startEUR,col=greyusd,lwd=1,lty="dotted") #statt grid
abline(h=yticks,col=greyusd,lwd=1,lty="dotted")
lines(date[items],fixing[items],col=greenback,lwd=3)
mini=which.min(fixing)
maxi=which.max(fixing)
lines(date[mini],fixing[mini],col=redusd,type="p",lwd=4,pch=23)
lines(date[maxi],fixing[maxi],col=redusd,type="p",lwd=4,pch=23)
legend(x=15500,y=1.58,"Wechselkurs EUR—USD ",adj=0,cex=2.85,bg=blueeur,text.col="white",border=NA)
dev.off()
The original dataset is available on the talk page.
Kurzbeschreibungen
Ergänze eine einzeilige Erklärung, was diese Datei darstellt.
In dieser Datei abgebildete Objekte
Motiv
22. April 2008
image/png
900 Pixel
1.400 Pixel
27.177 Byte
dab14c2f8844194b98f1810189de6c735395cd06
Dateiversionen
Klicke auf einen Zeitpunkt, um diese Version zu laden.
| Version vom | Vorschaubild | Maße | Benutzer | Kommentar | |
|---|---|---|---|---|---|
| aktuell | 17:55, 28. Okt. 2025 | 1.400 × 900 (27 KB) | wikimediacommons>Thire | data update oct25 |
Dateiverwendung
Die folgende Seite verwendet diese Datei:
Abgerufen von „https://kryptowiki.eu/index.php?title=Datei:EurUsd.png“