Benutzer-Werkzeuge

Webseiten-Werkzeuge


statistik-r:trigonometrie

Trigonometrie, Winkelfunktionen


Wiederholung:
In diesem Beispiel soll für ein rechtwinkeliges Dreieck aus der Länge der Katheten a und b die Länge der Hypotenuse c berechnet werden.

a <- 3Wertzuweisung an Variable
b <- 5Wertzuweisung an Variable
c <- sqrt( a^2 + b^2 )nach Pythagoras
cInhalt der Variablen c ausgeben lassen: 5.830952

PI π

pipi gibt 3.141593 zurück
2 * piSie können ganz normal mit pi rechnen: 6.283185

Übungsaufgabe:
Weisen Sie einer Variablen r einen Wert für den Radius eines Kreises zu.
Berechnen Sie Umfang (2rπ) und Fläche (r²π) eines Kreises mit diesem Radius.


Sinus, Cosinus

Die Winkelfunktionen brauchen Argumente in Bogenmaß (Radiant), Gradangaben müssen erst umgerechnet werden: Multiplizieren Sie Gradangaben mit pi und dividieren Sie durch 180: $$ rad = \frac{grad \times \pi}{180} $$

Übungsaufgabe:

sin(90*pi/180)Sinus von 90° sollte 1 ergeben
cos(180*pi/180)Cosinus von 180° sollte -1 ergeben

In folgendem Beispiel werden mit Hilfe der Funktion seq(…) x-Werte von 0° bis 360° im Abstand von 10° erzeugt.
Dann werden die entsprechenden Sinus-Werte berechnet, und der Variablen y zugewiesen.
Die Funktion plot(x,y) erzeut eine graphische Darstellung.

x <- seq( 0, 360, by=10 )
x
y <- sin( x*pi/180 )
y
plot(x,y)

Die Funktion plot(…) erzeugt ein Grafikausgabefenster. Ein weiterer Aufruf von plot(…) löscht das bestehende Fenster und erzeugt ein neues. Wenn Sie in das bestehende Grafikausgabefenster dazuplotten möchten, benützen Sie die Funktion lines(…).
plot(…) und lines(…) benötigen als Parameter die x-, und y-Werte, als weiterer Parameter ist type möglich, z.B. type="p" für points, type="l" für lines, type="o" für overplotted

grad <- seq( 0, 360, by=10)
plot( grad, sin(grad*pi/180), type="o")
lines( grad, cos(grad*pi/180), type="o")

Wenn Sie sich mehr für die Möglicheiten der Funktion plot interessierten, rufen Sie die Hilfe-Seite mit ?plot auf, und experimentieren Sie.


Beispiel: $$ y=\frac{sin(x)}{x} $$ Wenn die x-Werte gleich in Bogenmaß erzeugt werden, erspart man sich natürlich das Umrechnen.

x <- seq( -6*pi, 6*pi, length=100 )
plot( x, sin(x)/x, type="l")

statistik-r/trigonometrie.txt · Zuletzt geändert: 2016-04-16 17:45 von Robert Wiedermann

Seiten-Werkzeuge

Robert Wiedermann, Institut für Statistik (STAT), Universität für Bodenkultur Wien