summaryrefslogtreecommitdiff
path: root/programs/calcd.lst
blob: 6595986eb2d9f979c10b9fef4a1b47839616ec4d (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
# calcd: 04 = asin( sin 01 * sin 02 + cos 01 * cos 02 * cos 03 )
# Eingänge: R01–R03 im Format HMS

01 LBL CALCD
02 RCL 01
03 HR
04 SIN                   # sin 01
05 RCL 02
06 HR
07 SIN                   # sin 02
08 *
09 RCL 01
10 HR
11 COS                   # cos 01
12 RCL 02
13 HR
14 COS                   # cos 02
15 *
16 RCL 03
17 HR
18 COS                   # cos 03
19 *
20 +
21 ASIN                  # Winkel (DEG)
22 HMS                   # in HMS-Format wandeln
23 STO 04
24 RTN