1 files changed, 29 insertions, 0 deletions
diff --git a/programs/calcx.lst b/programs/calcx.lst
new file mode 100644
index 0000000..600f56e
--- /dev/null
+++ b/programs/calcx.lst
@@ -0,0 +1,29 @@
+# calcx: 05 = acos( (sin 02 - sin 01 * sin 04) / (cos 01 * cos 04) )
+# Eingänge: R01–R04 im Format Grad° Minuten.bruchteile"
+# Nutzung: wandelt jede Eingabe mit DMS2HMS, rechnet in DEG, Ausgabe Grad.Minutenbruchteile via HMS2DMS in R05
+
+01 LBL CALCX
+02 RCL 02
+03 HR
+04 SIN                   # sin 02
+05 ENTER↑                # duplizieren
+06 RCL 01
+07 HR
+08 SIN                   # sin 01
+09 RCL 04
+10 HR
+11 SIN                   # sin 04
+12 *
+13 -                     # sin 02 - sin 01*sin 04
+14 RCL 01
+15 HR
+16 COS                   # cos 01
+17 RCL 04
+18 HR
+19 COS                   # cos 04
+20 *
+26 /
+21 ACOS                  # Winkel (DEG)
+22 HMS                   # in HMS-Format wandeln
+23 STO 05
+24 RTN