Post Reply 
WP 34S Partition of Integers Programme & a Possible OS Bug
05-18-2014, 04:33 PM
Post: #7
RE: WP 34S Partition of Integers Programme & a Possible OS Bug
I have now realized my error & withdraw the aspersions I cast on the OS. Here is the programme using only BACKs & SKIPs & no LBLs or GTOs:

1 LBL 'PRT'
2 CF 01
3 SKIP 002
4 LBL 'QRT'
5 SF 01
6 DECM
7 DBLON
8 RAD
9 STO 09
10 # 024
11 1/X
12 FC? 01
13 +/-
14 +
15 STO 06
16 FS? 01
17 SKIP 011
18 √
19 1
20 .
21 5
22 1/X
23 √
24 STO 08
25 *
26 # π
27 *
28 STO 07
29 CLx
30 STO 10
31 1
32 STO 02
33 FIX 00
34 RCL 02
35 STO 03
36 CLx
37 STO 04
38 RCL 02
39 RCL 03
40 GCD
41 x≠1?
42 SKIP 031
43 RCL 02
44 DEC X
45 x=0?
46 SKIP 015
47 STO 05
48 0
49 RCL 03
50 RCL* 05
51 RCL/ 02
52 FP
53 RCL 05
54 RCL/ 02
55 # 1/2
56 STO- Z
57 -
58 *
59 +
60 DSE 05
61 BACK 012
62 4
63 1/X
64 +
65 RCL 09
66 STO+ X
67 RCL* 03
68 RCL/ 02
69 -
70 # π
71 *
72 COS
73 STO+ 04
74 DSE 03
75 BACK 037
76 FS? 01
77 SKIP 030
78 RCL 07
79 RCL/ 02
80 e^x
81 ENTER
82 ENTER
83 1/X
84 STO- Z
85 +
86 RCL* 08
87 RCL 06
88 STO/ Z
89 /
90 # π
91 *
92 RCL/ 02
93 x<>Y
94 RCL 06
95 √
96 /
97 -
98 RCL 02
99 √
100 *
101 # π
102 4
103 *
104 /
105 ENTER
106 INC 02
107 SKIP 035
108 RCL 06
109 # π
110 RCL/ 02
111 x^2
112 *
113 # 012
114 /
115 STO 03
116 CLx
117 1
118 ENTER
119 STO 05
120 ENTER
121 x<>Z
122 RCL* 03
123 RCL 05
124 STO/ Y
125 1
126 +
127 STO 05
128 /
129 STO+ Y
130 x<>Z
131 x≠? Y
132 BACK 011
133 # π
134 RCL/ 02
135 x^2
136 *
137 2
138 STO+ 02
139 6
140 *
141 /
142 STO Y
143 RCL* 04
144 RCL+ 10
145 STO 10
146 STO+ Y
147 ROUND
148 x<>Y
149 ROUND
150 x≠? Y
151 BACK 117
152 ALL 00
153 END

A very nice calculator for programming. Bravo!
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: WP 34S Partition of Integers Programme & a Possible OS Bug - Gerald H - 05-18-2014 04:33 PM



User(s) browsing this thread: 1 Guest(s)