Texas Instruments TI86 User Manual - Page 262

Program: Taylor Series

Page 262 highlights

250 Chapter 19: Applications The higher-order derivative values necessary for this program are calculated numerically based on the methods in "Numerical Differentiation of Analytic Functions," J. N. Lyness and C. B. Moler, SIAM Journal of Numerical Analysis 4 (1967): 202-210. Program: Taylor Series When you run this program, you can enter a function and specify the order and center point. Then the program calculates the Taylor Series approximation for the function and plots the function you entered. This example shows how to call a program from another program as a subroutine. ᕡ Before you enter the program TAYLOR, select EDIT from the PRGM menu, enter MOBIUS at the Name= prompt, and then enter this brief program to store the Mobius Series. The program TAYLOR calls this program and runs it as a subroutine. PROGRAM:MOBIUS :{1,L1,L1,0,L1,1,L1,0,0,1,L1,0,L1,1,1,0,L1,0,L1,0}¶MSERIES :Return ᕢ Select EDIT from the PRGM menu, enter TAYLOR at the Name= prompt, and then enter this program to calculate the Taylor Series. H is on the CHAR GREEK menu User enters equation function User enters order User enters center PROGRAM:TAYLOR :Func:FnOff :y14=pEval(TPOLY,xNcenter) :GrStl(14,2) :1EL9¶H:.1¶rr :ClLCD :InpSt "FUNCTION: ",EQ :St8Eq(EQ,y13) :Input "ORDER: ",order :order+1¶dimL TPOLY :Fill(0,TPOLY) :Input "CENTER: ",center :evalF(y13,x,center)¶f0 :f0¶TPOLY(order+1)

  • 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
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
  • 89
  • 90
  • 91
  • 92
  • 93
  • 94
  • 95
  • 96
  • 97
  • 98
  • 99
  • 100
  • 101
  • 102
  • 103
  • 104
  • 105
  • 106
  • 107
  • 108
  • 109
  • 110
  • 111
  • 112
  • 113
  • 114
  • 115
  • 116
  • 117
  • 118
  • 119
  • 120
  • 121
  • 122
  • 123
  • 124
  • 125
  • 126
  • 127
  • 128
  • 129
  • 130
  • 131
  • 132
  • 133
  • 134
  • 135
  • 136
  • 137
  • 138
  • 139
  • 140
  • 141
  • 142
  • 143
  • 144
  • 145
  • 146
  • 147
  • 148
  • 149
  • 150
  • 151
  • 152
  • 153
  • 154
  • 155
  • 156
  • 157
  • 158
  • 159
  • 160
  • 161
  • 162
  • 163
  • 164
  • 165
  • 166
  • 167
  • 168
  • 169
  • 170
  • 171
  • 172
  • 173
  • 174
  • 175
  • 176
  • 177
  • 178
  • 179
  • 180
  • 181
  • 182
  • 183
  • 184
  • 185
  • 186
  • 187
  • 188
  • 189
  • 190
  • 191
  • 192
  • 193
  • 194
  • 195
  • 196
  • 197
  • 198
  • 199
  • 200
  • 201
  • 202
  • 203
  • 204
  • 205
  • 206
  • 207
  • 208
  • 209
  • 210
  • 211
  • 212
  • 213
  • 214
  • 215
  • 216
  • 217
  • 218
  • 219
  • 220
  • 221
  • 222
  • 223
  • 224
  • 225
  • 226
  • 227
  • 228
  • 229
  • 230
  • 231
  • 232
  • 233
  • 234
  • 235
  • 236
  • 237
  • 238
  • 239
  • 240
  • 241
  • 242
  • 243
  • 244
  • 245
  • 246
  • 247
  • 248
  • 249
  • 250
  • 251
  • 252
  • 253
  • 254
  • 255
  • 256
  • 257
  • 258
  • 259
  • 260
  • 261
  • 262
  • 263
  • 264
  • 265
  • 266
  • 267
  • 268
  • 269
  • 270
  • 271
  • 272
  • 273
  • 274
  • 275
  • 276
  • 277
  • 278
  • 279
  • 280
  • 281
  • 282
  • 283
  • 284
  • 285
  • 286
  • 287
  • 288
  • 289
  • 290
  • 291
  • 292
  • 293
  • 294
  • 295
  • 296
  • 297
  • 298
  • 299
  • 300
  • 301
  • 302
  • 303
  • 304
  • 305
  • 306
  • 307
  • 308
  • 309
  • 310
  • 311
  • 312
  • 313
  • 314
  • 315
  • 316
  • 317
  • 318
  • 319
  • 320
  • 321
  • 322
  • 323
  • 324
  • 325
  • 326
  • 327
  • 328
  • 329
  • 330
  • 331
  • 332
  • 333
  • 334
  • 335
  • 336
  • 337
  • 338
  • 339
  • 340
  • 341
  • 342
  • 343
  • 344
  • 345
  • 346
  • 347
  • 348
  • 349
  • 350
  • 351
  • 352
  • 353
  • 354
  • 355
  • 356
  • 357
  • 358
  • 359
  • 360
  • 361
  • 362
  • 363
  • 364
  • 365
  • 366
  • 367
  • 368
  • 369
  • 370
  • 371
  • 372
  • 373
  • 374
  • 375
  • 376
  • 377
  • 378
  • 379
  • 380
  • 381
  • 382
  • 383
  • 384
  • 385
  • 386
  • 387
  • 388
  • 389
  • 390
  • 391
  • 392
  • 393
  • 394
  • 395
  • 396
  • 397
  • 398
  • 399
  • 400
  • 401
  • 402
  • 403
  • 404
  • 405
  • 406
  • 407
  • 408
  • 409
  • 410
  • 411
  • 412
  • 413
  • 414
  • 415
  • 416
  • 417
  • 418
  • 419
  • 420
  • 421
  • 422
  • 423
  • 424
  • 425
  • 426
  • 427
  • 428
  • 429
  • 430
  • 431

250
Chapter 19: Applications
Program: Taylor Series
When you run this program, you can enter a function and specify the order and center
point. Then the program calculates the Taylor Series approximation for the function and
plots the function you entered. This example shows how to call a program from another
program as a subroutine.
1
Before you enter the program
TAYLOR
, select
EDIT
from the
PRGM
menu, enter
MOBIUS
at the
Name=
prompt, and then enter this brief program to store the Mobius Series. The program
TAYLOR
calls this program and runs it as a subroutine.
PROGRAM:MOBIUS
:{1,
L
1,
L
1,0,
L
1,1,
L
1,0,0,1,
L
1,0,
L
1,1,1,0,
L
1,0,
L
1,0}
MSERIES
:Return
2
Select
EDIT
from the
PRGM
menu, enter
TAYLOR
at the
Name=
prompt, and then enter this
program to calculate the Taylor Series.
PROGRAM:TAYLOR
:Func:FnOff
:y14=pEval(TPOLY,x
N
center)
:GrStl(14,2)
H
is on the
CHAR GREEK
menu
:1
E
L
9
H
:.1
rr
:ClLCD
User enters equation function
:InpSt "FUNCTION: ",EQ
:St
8
Eq(EQ,y13)
User enters order
:Input "ORDER: ",order
:order+1
dimL TPOLY
:Fill(0,TPOLY)
User enters center
:Input "CENTER: ",center
:evalF(y13,x,center)
f0
:f0
TPOLY(order+1)
The higher-order derivative
values necessary for this
program are calculated
numerically based on the
methods in “Numerical
Differentiation of Analytic
Functions,” J. N. Lyness and
C. B. Moler, SIAM Journal of
Numerical Analysis 4 (1967):
202-210.