print("Aufgabe 1")
x <- 8
y <- 3

if (x==3)
{
  print("x ist 3")
}  else {
  print("x ist nicht 3")
}

if (y==3)
{
  print("y ist 3")
} else {
  print("y ist nicht 3")
}
print("---------------------------------------------------------------------------------------------")
print("Aufgabe 2 und Aufgabe 3")
Studienzahl <- c(0,1,4,8,0,0,8,3)
GebDat <- c(1,6,1,1,8,8)

print("Meine Studiennummer lautet:" )
print (Studienzahl)

print("Das Maximum ist: ")
print(max(Studienzahl))

print("Das Minimum ist: ")
print(min(Studienzahl))

print("Die Spannweite ist: ")
print(range(Studienzahl))


print("Das arithmetische Mittel ist: ")
print(mean(Studienzahl))

print("Der Median ist: ")
print(median(Studienzahl))

print("Der Modus ist:")
getmode <- function(Studienzahl) {
  uniqv <- unique(Studienzahl)
  uniqv[which.max(tabulate(match(Studienzahl, uniqv)))]
}
result <- getmode(Studienzahl)
print(result)

print(GebDat + Studienzahl)
# In R kann man nur mit 2 gleichgroßen Vektoren rechnen - Da Studienzahl mehr Zeichen enthält als
# das GebDat funktioniert das nicht richtig. Wenn die Zahlen von GebDat durchgelaufen sind beginnt
# es wieder von vorne die Zahlen zu nehmen und zu addieren.
print("---------------------------------------------------------------------------------------------")
print("Aufgabe 4")
mymat <- matrix(0:0, nrow=5, ncol=5)

for(row in 1:nrow(mymat)) {
  for(col in 1:ncol(mymat)) {
    mymat[row, col] = (row+2) * (col+2)
  }
}
print("Ausgangsmatrix - Berechnet")
print(mymat)

mymat2 <- t(mymat)
print("Matrix - Transponiert")
print(mymat2)
print("Determinante - Ausgangsmatrix")
print(det(mymat))
print("Determinante - Transponierte Matrix")
print(det(mymat2))
# Es fällt auf, dass die transponierte Matrix genau gleich ist, wie die ursprüngliche Matrix.
# Deshalb sind natürlich auch die jeweiligen Determinanten gleich.
print("---------------------------------------------------------------------------------------------")
print("Aufgabe 5")
v <- seq(1, 10, by=0.1)
print(v)

v1 <- sin(v)
print(v1)

plot(v, v1, main="Die Sinusfunktion", ylab="sin(x)", xlab="x", col="green", type="l")