c%2PROGRAMsystemAPFXNEWS
1,1,"** AP Solver v2.0 **"
7,3,"You know..."
2,5,"[F1] a,d"
2,6,"[F2] 2 terms"
1C500:
:C:C69C79
C=79:" ":1,1,"Tn=a(n1)d":"a="?A:"d="?D:
C=69:" ":1,1,"Known term 1":"n="?E:"Tn="?F
" ":1,6,"Known term 2":"n="?G:"Tn="?H
GEP
P=0
"Impossible"
"[EXE] to restart"
HFQ:QPD:FD(E1)A
29C
C=291
1,1,"**** AP options ****"
1,3,"[F1] Tn [F2] Sn"
1,4,"[F3] Tn= [F4] Sn="
1,5,"[F5] Table [F6] Rule"
12,7,"[EXIT] End"
1C300:
:C:C=0
1
C=79
" ":1,1,"Term n"
" n="?N
4,2,N
1,3,"Tn= "
4,3,AD(N1)
C=69
" ":1,1,"Lto n terms"
" n="?N
4,2,N
1,3,"Sn= "
4,3,N(2A(N1)D)2
C=59
" "
D=0
1,1,"All terms are"
15,1,A
1,1,"Nth term equals"
"Tn="?T
4,2,T
(TA)D1>0
1,3," n= "
4,3,(TA)D1
1,3,"No solution"
C=49
" ":1,1,"Lof first"
" ":1,2,"n terms equals"
"Sn="?S
4,3,S
0U:0V
D=0
0P
A0SAV
(2AD)8DSP
P0(D2AP)(2D)V
P0(D2AP)(2D)U
U>V
VS:UV:SU
P0V>0
1,4," n= "
4,4,V
U>0
" ":1,5," n="
4,5,U
1,4,"No solution"
C=39
" ":1,1,"Table of values"
" ":1,2,"n from 1 to":?
:
"AD(1)"
1
A
AD
""
/
C=29
0C
2,2,"Tn=a(n1)d"
4,3,"=dne"
3,5,"a=":5,5,A
3,6,"d=":5,6,D
3,7,"e=":5,7,AD
1,2,"recursive rule"
1,2,"R"
1,3,"=d"
1,3,"T"
6,3,"T"
3,4,"="
3,4,"T"
6,4,A
4,6,"d="
6,6,D
C47
4" Program finished "
""
6" More like this from"
""
5" www.charliewatson"
5" .com/fxcg/"