Volume of a bead with square hole- Program approach?

[DM48]

(06-10-2020 02:06 PM)grsbanks Wrote:  

(06-10-2020 01:59 PM)DM48 Wrote:  Thank you. I have to stop over thinking these things...

Especially as the 48S/SX/G/GX has the same ability

The flags are, however, useful for determining programatically which mode is currently active.

So true. My minor tweak to Werner's program doing the calc in RAD and then switching back to degrees.

Code:

00 { 186-Byte Prgm }
01▸LBL "RBV"
02 MVAR "R"
03 MVAR "X"
04 MVAR "Y"
05▸LBL 10
06 VARMENU "RBV"
07 DEG
08 RTN
09 XEQ 14
10 RCL "X"
11 RCL "Y"
12 COMPLEX
13 ABS
14 2
15 ÷
16 RCL+ "R"
17 RCL "R"
18 LASTX
19 -
20 ×
21 SQRT
22 LSTO "b"
23 RCL "X"
24 XEQ 11
25 RCL "Y"
26 XEQ 11
27 +
28 PI
29 ×
30 RCL "b"
31 RCL× "X"
32 RCL× "Y"
33 -
34 RCL "X"
35 RCL÷ "Y"
36 XEQ 12
37 RCL "Y"
38 RCL÷ "X"
39 XEQ 12
40 +
41 RCL "R"
42 3
43 Y↑X
44 ×
45 4
46 ×
47 -
48 3
49 ÷
50 RCL "X"
51 RCL "Y"
52 XEQ 13
53 RCL "Y"
54 RCL "X"
55 XEQ 13
56 STO+ ST X
57 GTO 10
58▸LBL 11
59 2
60 ÷
61 RCL "R"
62 STO+ ST X
63 X<>Y
64 +
65 RCL "R"
66 LASTX
67 -
68 X↑2
69 ×
70 RTN
71▸LBL 12
72 RCL× "b"
73 RCL÷ "R"
74 ATAN
75 RTN
76▸LBL 13
77 RCL "b"
78 STO+ ST X
79 X<>Y
80 ÷
81 ATAN
82 X<>Y
83 STO× ST Y
84 X↑2
85 12
86 ÷
87 RCL "R"
88 X↑2
89 -
90 ×
91 -
92▸LBL 14
93 RAD
94 END