(12C) SIN COS TAN

[Gamo]

Program Update from Post #1

This update make it easier to run the SIN COS TAN routine.

Procedure: FIX 4

For first use store ¶ to register R1 and 180 to register R2

355 [ENTER] 113 [÷] [STO] 1

180 [STO] 2
-------------------------------------------------------------
To run [SIN]

Make sure to run from beginning of program line by

Pressing [f] [PRGM]

SIN(x) [R/S] display answer

Continue same problem no need to start from beginning again.
-------------------------------------------------------------
To run [COS]

[GTO] 25 COS(x) [R/S] display answer

Continue same problem no need to use GTO 25 again
-------------------------------------------------------------
To run [TAN]

[GTO] 53 TAN(x) [R/S] display answer

Continue same problem no need to use GTO 53 again
-------------------------------------------------------------
Example:

SIN(15) + SIN(25)

[f] [PRGM]

15 [R/S] display 0.2588
25 [R/S] display 0.4226
[+] display answer 0.6814

COS(40) - TAN(10)

[GTO] 25
40 [R/S] display 0.7660

[GTO] 53
10 [R/S] display 0.1763

[-] display answer 0.5897
-----------------------------------------------------------
Program:

Quote:01 RCL 1
02 x
03 RCL 2
04 ÷
05 STO 0
06 ENTER
07 x
08 2
09 0
10 ÷
11 1
12 +
13 1/x
14 1
15 0
16 x
17 7
18 -
19 RCL 0
20 3
21 ÷
22 x
23 GTO 00 // Finish SIN routine
24 R/S
25 RCL 1
26 x
27 RCL 2
28 ÷
29 STO 0
30 ENTER
31 x
32 3
33 0
34 ÷
35 1
36 +
37 1/x
38 5
39 x
40 3
41 -
42 RCL 0
43 RCL 0
44 x
45 4
46 CHS
47 ÷
48 x
49 1
50 +
51 GTO 24 // Finish COS routine
52 R/S
53 RCL 1
54 x
55 RCL 2
56 ÷
57 STO 0
58 ENTER
59 x
60 . // decimal
61 4
62 CHS
63 x
64 1
65 +
66 1/x
67 5
68 x
69 1
70 +
71 RCL 0
72 6
73 ÷
74 x
75 GTO 52 // Finish TAN routine

Gamo