From 1c4d015147c4d42ed657f6af4ca36cc7157b8391 Mon Sep 17 00:00:00 2001
From: Jim Martens <jim1@live.de>
Date: Thu, 24 Oct 2013 12:56:43 +0200
Subject: [PATCH] SE3-1: Aufgabe 1 geloest.

---
 se3/blatt1.rkt | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/se3/blatt1.rkt b/se3/blatt1.rkt
index 6f1f7b4..faab8b5 100644
--- a/se3/blatt1.rkt
+++ b/se3/blatt1.rkt
@@ -1 +1,34 @@
 #lang racket
+
+#|
+SE 3 Funktional Blatt 1
+Abgebende: Jim 2martens, 2noack, 0giebel
+|#
+
+; 1.1
+
+(define (degreeToRadian degrees)
+  (/ (* degrees pi) 180)
+  )
+
+(define (radianToDegree radians)
+  (/ (* radians 180) pi)
+  )
+
+; 1.2
+(define (my-acos cosinus)
+  ; berechnen von alpha
+  (atan 
+   ; berechnen des tangens
+   (/
+    ; berechnen des Sinus
+    (sqrt (- 1 (sqr cosinus)))
+    cosinus
+    )
+   )
+  )
+
+; 1.3
+(define (nmToKM nauticMiles)
+  (* nauticMiles 1.852)
+  )
\ No newline at end of file