tschager

curl -LH "Accept: application/x-bibtex" http://dx.doi.org/10.1186/s13015-017-0104-1

tschager

for i in *.jpg
do
	if exiftool "$i" | grep -q "Comment.*$1.*"; then
		echo $i
		exiftool "$i" | grep "Comment.*$1.*"
	fi
done

tschager

tarif_old <- function(x) {
  min(x,1000) * 8 + min(max(x-1000,0),9000) * 4 + min(max(x-10000,0),10000) * 2
}
tarif_new <- function(x) {
  min(x,1000) * 12 + min(max(x-1000,0),1000) * 8 +  min(max(x-2000,0),8000) * 3 + min(max(x-10000,0),10000) * 2
}

par(mfrow=c(1,2))
plot(1:11000,sapply(1:11000,tarif_old)/100,type='l',col='blue',ylab='Euro',xlab='km pro Jahr', main='Kostenvergleich Südtirol Pass')
lines(1:11000,sapply(1:11000,tarif_new)/100,col='red')