M1T

Display

Overview
The M1T program can multiply 1st order polynomial terms, e.g.:

(x+2)(x+3) which is    x2 + 5x + 6.

(The mathematical calculations center, Quick Math, of Ben Langton can help to solve expressions.)

Examples
Please note that my default FIX 5 setting which can be replaced by your preferred number of decimals.


Keystrokes: Display: Comments:
[XEQ][ALPHA] M1T [ALPHA] 1:a,b=? - Enter first term: (ax+b), e.g. x+5
1 [ENTER] 5
[R/S] 2:a,b=? - Enter second term, e.g. x+6
1 [ENTER] 6
[R/S] 3:a,b=? - Press R/S to complete data entry
for 2nd orderpolynomial:
f(x) = a2x2 + a1x + a0

[R/S] a2=1,00000 - Coefficients
[R/S] a1=11,00000
[R/S] a0=30,00000


[R/S] - try this one: (x-4)(2x-3)(3x+6)(4x-7)
[R/S] 1:a,b=? - Enter first term (x-4)
1 [ENTER] 4
[R/S] 2:a,b=? - Enter second term (2x-3)
2 [ENTER] -3
[R/S] 3:a,b=? - Enter second term (3x+6)
3 [ENTER] 6
[R/S] 4:a,b=? - Enter second term (4x-7)
4 [ENTER] -7
[R/S] 5:a,b=? - Press R/S to complete data entry
[R/S] a4=24,00000 - Coefficients
[R/S] a3=-126,00000

[R/S] a2=27,00000
[R/S] a1=498,00000
[R/S] a0=-504,00000

Program Listing


01 LBL'M1T' 21 DSE L 41 LBL 03
02 CLRG 22 LBL 00 42 FIX 0
03 CLST 23 DSE Z 43 'a'
04 '0' 24 GTO 04 44 ARCL X
05 1 25 ST* 00 45 '»='
06 STO 00 26 SIZE? 46 FIX 3
07 + 27 2 47 ARCL IND X
08 CF 29 28 ANUM 48 PROMPT
09 FIX 0 29 + 49 DSE X
10 LBL 04 30 X>Y? 50 X<0?
11 RCL IND L 31 PSIZE 51 X=0?
12 X<> Z 32 DSE X 52 GTO 03
13 ST* Z 33 CLA 53 FIX 5
14 X<> Z 34 ARCL X 54 SF 29
15 X<> IND T 35 '»:a,b=?' 55 END
16 X<>Y 36 CF 22
17 ST* Y 37 PROMPT
18 X<>Y 38 FS? 22
19 ST+ IND T 39 GTO 04
20 RDN 40 LASTX (103 bytes)

Registers
R00-Rxx Coefficients a0 through axx

Flags
22 Check keyboard input

© 1999 by Auke Hoekstra

Leave a Reply