I have a variable in my program with 180 possibilities. I am using the "If" command. I have used this program on my TI-86 for almost 20 yrs but cannot get it to run on my new TI-89T. I have tried using several command options to replace it and nothing has worked. I am new to the TI-89 and could use a little help with this one. This is the current state of my code.
()
Prgm
Input "Radius=",R
Input "Thickness=",T
Input "Angle=",A
If A=1:Then
K=.00873
EndIf
If A=2:Then
K=.001745
EndIf
If A=3:Then
K=.02618
EndIf
If A=4:Then
K=.03492
EndIf
If A=5:Then
K=.04366
EndIf
If A=6:Then
K=.05241
EndIf
If A=7:Then
K=.06116
EndIf
If A=8:Then
K=.06993
EndIf
If A=9:Then
K=.07870
EndIf
If A=10:Then
K=.08749
EndIf
If A=11:Then
K=.09629
EndIf
If A=12:Then
K=.10510
EndIf
If A=13:Then
K=.11393
EndIf
If A=14:Then
K=.12278
EndIf
If A=15:Then
K=.13165
EndIf
If A=16:Then
K=.14054
EndIf
If A=17:Then
K=.14945
EndIf
If A=18:Then
K=.15838
EndIf
If A=19:Then
K=.16734
EndIf
If A=20:Then
K=.17633
EndIf
If A=21:Then
K=.18534
EndIf
If A=22:Then
K=.19438
EndIf
If A=23:Then
K=.20345
EndIf
If A=24:Then
K=.21256
EndIf
If A=25:Then
K=.22169
EndIf
If A=26:Then
K=.23087
EndIf
If A=27:Then
K=.24008
EndIf
If A=28:Then
K=.24933
EndIf
If A=29:Then
K=.25862
EndIf
If A=30:Then
K=.26795
EndIf
If A=31:Then
K=.27732
EndIf
If A=32:Then
K=.28674
EndIf
If A=33:Then
K=.29621
EndIf
If A=34:Then
K=.30573
EndIf
If A=35:Then
K=.31530
EndIf
If A=36:Then
K=.32492
EndIf
If A=37:Then
K=.33459
EndIf
If A=38:Then
K=.34433
EndIf
If A=39:Then
K=.35412
EndIf
If A=40:Then
K=.36397
EndIf
If A=41:Then
K=.37388
EndIf
If A=42:Then
K=.38386
EndIf
If A=43:Then
K=.39391
EndIf
If A=44:Then
K=.40403
EndIf
If A=45:Then
K=.41421
EndIf
If A=46:Then
K=.42447
EndIf
If A=47:Then
K=.43481
EndIf
If A=48:Then
K=.44523
EndIf
If A=49:Then
K=.45573
EndIf
If A=50:Then
K=.46631
EndIf
If A=51:Then
K=.47697
EndIf
If A=52:Then
K=.48773
EndIf
If A=53:Then
K=.49858
EndIf
If A=54:Then
K=.50952
EndIf
If A=55:Then
K=.52057
EndIf
If A=56:Then
K=.53171
EndIf
If A=57:Then
K=.54295
EndIf
If A=58:Then
K=.55431
EndIf
If A=59:Then
K=.56577
EndIf
If A=60:Then
K=.57735
EndIf
If A=61:Then
K=.58904
EndIf
If A=62:Then
K=.60086
EndIf
If A=63:Then
K=.61280
EndIf
If A=64:Then
K=.62487
EndIf
If A=65:Then
K=.63707
EndIf
If A=66:Then
K=.64941
EndIf
If A=67:Then
K=.66188
EndIf
If A=68:Then
K=.67451
EndIf
If A=69:Then
K=.68728
EndIf
If A=70:Then
K=.70021
EndIf
If A=71:Then
K=.71329
EndIf
If A=72:Then
K=.72654
EndIf
If A=73:Then
K=.73996
EndIf
If A=74:Then
K=.75355
EndIf
If A=75:Then
K=.76733
EndIf
If A=76:Then
K=.78128
EndIf
If A=77:Then
K=.79543
EndIf
If A=78:Then
K=.80978
EndIf
If A=79:Then
K=.82434
EndIf
If A=80:Then
K=.83910
EndIf
If A=81:Then
K=.85408
EndIf
If A=82:Then
K=.86929
EndIf
If A=83:Then
K=.88472
EndIf
If A=84:Then
K=.90040
EndIf
If A=85:Then
K=.91633
EndIf
If A=86:Then
K=.93251
EndIf
If A=87:Then
K=.94890
EndIf
If A=88:Then
K=.96569
EndIf
If A=89:Then
K=.98270
EndIf
If A=90:Then
K=1.0000
EndIf
If A=91:Then
K=1.0176
EndIf
If A=92:Then
K=1.0355
EndIf
If A=93:Then
K=1.0538
EndIf
If A=94:Then
K=1.0724
EndIf
If A=95:Then
K=1.0913
EndIf
If A=96:Then
K=1.1106
EndIf
If A=97:Then
K=1.1303
EndIf
If A=98:Then
K=1.1504
EndIf
If A=99:Then
K=1.1708
EndIf
If A=100:Then
K=1.1917
EndIf
If A=101:Then
K=1.2131
EndIf
If A=102:Then
K=1.2349
EndIf
If A=103:Then
K=1.2572
EndIf
If A=104:Then
K=1.2799
EndIf
If A=105:Then
K=1.3032
EndIf
If A=106:Then
K=1.3270
EndIf
If A=107:Then
K=1.3514
EndIf
If A=108:Then
K=1.3764
EndIf
If A=109:Then
K=1.4019
EndIf
If A=110:Then
K=1.4281
EndIf
If A=111:Then
K=1.4550
EndIf
If A=112:Then
K=1.4826
EndIf
If A=113:Then
K=1.5108
EndIf
If A=114:Then
K=1.5399
EndIf
If A=115:Then
K=1.5697
EndIf
If A=116:Then
K=1.6003
EndIf
If A=117:Then
K=1.6318
EndIf
If A=118:Then
K=1.6643
EndIf
If A=119:Then
K=1.6977
EndIf
If A=120:Then
K=1.7320
EndIf
If A=121:Then
K=1.7675
EndIf
If A=122:Then
K=1.8040
EndIf
If A=123:Then
K=1.8418
EndIf
If A=124:Then
K=1.8807
EndIf
If A=125:Then
K=1.9210
EndIf
If A=126:Then
K=1.9626
EndIf
If A=127:Then
K=2.0057
EndIf
If A=128:Then
K=2.0503
EndIf
If A=129:Then
K=2.0965
EndIf
If A=130:Then
K=2.1445
EndIf
If A=131:Then
K=2.1943
EndIf
If A=132:Then
K=2.2460
EndIf
If A=133:Then
K=2.2998
EndIf
If A=134:Then
K=2.3558
EndIf
If A=135:Then
K=2.4142
EndIf
If A=136:Then
K=2.4715
EndIf
If A=137:Then
K=2.5386
EndIf
If A=138:Then
K=2.6051
EndIf
If A=139:Then
K=2.6746
EndIf
If A=140:Then
K=2.7475
EndIf
If A=141:Then
K=2.8239
EndIf
If A=142:Then
K=2.9042
EndIf
If A=143:Then
K=2.9887
EndIf
If A=144:Then
K=3.0777
EndIf
If A=145:Then
K=3.1716
EndIf
If A=146:Then
K=3.2708
EndIf
If A=147:Then
K=3.3759
EndIf
If A=148:Then
K=3.4874
EndIf
If A=149:Then
K=3.6059
EndIf
If A=150:Then
K=3.7320
EndIf
If A=151:Then
K=3.8667
EndIf
If A=152:Then
K=4.0108
EndIf
If A=153:Then
K=4.1653
EndIf
If A=154:Then
K=4.3315
EndIf
If A=155:Then
K=4.5107
EndIf
If A=156:Then
K=4.7406
EndIf
If A=157:Then
K=4.9151
EndIf
If A=158:Then
K=5.1455
EndIf
If A=159:Then
K=5.3995
EndIf
If A=160:Then
K=5.6713
EndIf
If A=161:Then
K=5.9758
EndIf
If A=162:Then
K=6.3137
EndIf
If A=163:Then
K=6.6911
EndIf
If A=164:Then
K=7.1154
EndIf
If A=165:Then
K=7.5957
EndIf
If A=166:Then
K=8.1443
EndIf
If A=167:Then
K=8.7769
EndIf
If A=168:Then
K=9.5144
EndIf
If A=169:Then
K=10.385
EndIf
If A=170:Then
K=11.430
EndIf
If A=171:Then
K=12.706
EndIf
If A=172:Then
K=14.301
EndIf
If A=173:Then
K=16.350
EndIf
If A=174:Then
K=19.081
EndIf
If A=175:Then
K=22.904
EndIf
If A=176:Then
K=26.636
EndIf
If A=177:Then
K=38.188
EndIf
If A=178:Then
K=57.290
EndIf
If A=179:Then
K=114.590
EndIf
If A=180:Then
K=0
K*(R+T)O
K*RI
Disp "Outside="
Disp O
Disp "Inside="
Disp I
EndPrgm