summaryrefslogtreecommitdiff
path: root/programs/calcx.lst
blob: 600f56e902de3cc7c0b4e38de03a8e5ed930bea7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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