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 <- 3 | Wertzuweisung an Variable |
b <- 5 | Wertzuweisung an Variable |
c <- sqrt( a^2 + b^2 ) | nach Pythagoras |
c | Inhalt der Variablen c ausgeben lassen: 5.830952 |
pi | pi gibt 3.141593 zurück |
2 * pi | Sie 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.
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")