Datei:BodyMassIndex.png

Aus Wikibooks
Zur Navigation springen Zur Suche springen

Originaldatei zum Herunterladen(1.024 × 768 Pixel, Dateigröße: 11 KB, MIME-Typ: image/png)

Commons-logo.svg

Dieses Medium wird direkt von Wikimedia Commons aus eingebunden. Quellenangaben und Lizenzbedingungen befinden sich auf der unten zusätzlich eingeblendeten Commons-Beschreibungsseite.

Gtk-go-forward-ltr.svg Zur Commons-Seite

Beschreibung

graph that illustrates the body mass index and its classes

Datum
Quelle german article, the old image and some of my own thoughts. find the R-source code below
Urheber Thomas Steiner
Genehmigung
(Weiternutzung dieser Datei)

Thomas Steiner put it under the CC-by-SA 2.5.

Andere Versionen

old image: de:Bild:BMI.png

Lizenz

w:de:Creative Commons

Namensnennung Weitergabe unter gleichen Bedingungen

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 lizenzierte Werk bzw. den lizenzierten Inhalt bearbeitest, abwandelst oder in anderer Weise erkennbar als Grundlage für eigenes Schaffen verwendest, darfst du die daraufhin neu entstandenen Werke bzw. Inhalte nur unter Verwendung von Lizenzbedingungen weitergeben, die mit denen dieses Lizenzvertrages identisch, vergleichbar oder kompatibel sind.


R logo.svg
Dieses Chart wurde von Thire mit R erstellt:

R code

class=c(0,18.5,25,30,35,40,100)
cols=c("skyblue4","darkgreen","yellow","orange","red","darkred","black")
gr=seq(1.4,2.2,length=100)
 
bmi.k<-function(groesse,konstant) {
   return(groesse^2*konstant)
}
 
png(filename="BodyMassIndex.png", width=1024, height=768, pointsize=12)
par(bg="whitesmoke")
plot(gr,bmi.k(gr,18),type="n",xlim=c(1.60,1.99),ylim=c(40,125),xaxt="n",yaxt="n",cex.axis=1.4,cex.lab=1.3,cex.main=1.7,xlab="Größe [in m]",ylab="Gewicht [in kg]", main="Body Mass Index")
polygon(c(gr,rev(gr)),c(bmi.k(gr,class[1]),rev(bmi.k(gr,class[2]))),col=cols[1])
polygon(c(gr,rev(gr)),c(bmi.k(gr,class[2]),rev(bmi.k(gr,class[3]))),col=cols[2])
polygon(c(gr,rev(gr)),c(bmi.k(gr,class[3]),rev(bmi.k(gr,class[4]))),col=cols[3])
polygon(c(gr,rev(gr)),c(bmi.k(gr,class[4]),rev(bmi.k(gr,class[5]))),col=cols[4])
polygon(c(gr,rev(gr)),c(bmi.k(gr,class[5]),rev(bmi.k(gr,class[6]))),col=cols[5])
polygon(c(gr,rev(gr)),c(bmi.k(gr,class[6]),rev(bmi.k(gr,class[7]))),col=cols[6])
polygon(c(gr,rev(gr)),c(bmi.k(gr,class[7]),rev(bmi.k(gr,class[8]))),col=cols[7])
 
box()
grid(lty="dotdash",col="darkgrey")
abline(v=seq(1.65,1.95,by=0.1),h=seq(50,110,by=20),lty="dotted",col="grey")

legend(x="bottomright",inset=0.005,legend=c("Untergewicht","Normalgewicht","Präadipositas","Adipositas Grad I","Adipositas Grad II","Adipositas Grad III"),col=cols,lwd=6,bg="skyblue")
axis(1,at=format(seq(1.60,2,by=0.1),nsmall=2),labels=format(seq(1.60,2,by=0.1),nsmall=2),cex.axis=1.5)
axis(1,at=seq(1.65,2,by=0.1),cex.axis=1.2,col.axis="grey")
axis(2,at=seq(40,120,by=10),cex.axis=1.5)
 
dev.off()

Dateiversionen

Klicke auf einen Zeitpunkt, um diese Version zu laden.

Version vomVorschaubildMaßeBenutzerKommentar
aktuell20:19, 6. Jun. 2008Vorschaubild der Version vom 6. Juni 2008, 20:19 Uhr1.024 × 768 (11 KB)אeckige Klammern entfernt
09:18, 14. Nov. 2006Vorschaubild der Version vom 14. November 2006, 09:18 Uhr1.024 × 768 (14 KB)Thire{{Information| |Description = graph that illustrates the body mass index and it's classes |Source = german article, the old image and some of my own thoughts. find the R-source code below |Date = 13 nov. 2006 |Author = [[:de:Benutzer:Thire|Thomas Steiner]

Globale Dateiverwendung