EasyManuals Logo
Home>Texas Instruments>Calculator>TI-92+

Texas Instruments TI-92+ User Manual

Texas Instruments TI-92+
507 pages
To Next Page IconTo Next Page
To Next Page IconTo Next Page
To Previous Page IconTo Previous Page
To Previous Page IconTo Previous Page
Page #332 background imageLoading...
Page #332 background image
{}g_ll
0g_d
For k,1,g_dim
mid(g_str,k,1)cc
if cc"A" and cc"Z":char(ord(cc)+32)cc
If vardeb(cc) then
ccss
k+1→k
mid(g_str,k,1)cc
if cc"A" and cc"Z":char(ord(cc)+32)cc
while kg_dim and varin(cc)
ss&ccss
k+1→k
mid(g_str,k,1)cc
if cc"A" and cc"Z":char(ord(cc)+32)cc
Endwhile
If cc"(" and ss"and" and ss"or" and ss"xor" then
For i,1,g_d
if ss=g_ll[i]:exit
Endfor
If i>g_d then
augment(g_ll,{ss})g_ll
g_d+1→g_d
Endif
Endif
Endif
Endfor
g_ll
Endfunc
Note that the expression is passed as a string, and need not be a valid expression. The variable
names are returned as string elements of a list. For example, the call
exprvars("a+b/c+sin(d^e)+22.2=f")
returns
{"a","b","c","d","e","f"}
Timité Hassan's original getvars() function
This is Timité's original getvar() code. I include it here out of courtesy, and so that if I have made in
mistake in my changes, you can use the original code. getvars() calls varin() and vardeb().
getvars():
getvars(g_str)
Func
Local k,i,cc,g_vr,g_d,g_dim,g_ll,ss
dim(g_str)g_dim
{}g_ll
0g_d
For k,1,g_dim
mid(g_str,k,1)cc
if cc"A" and cc"Z"
char(ord(cc)+32)cc
If vardeb(cc) then
ccss
k+1→k
mid(g_str,k,1)cc
if cc"A" and cc"Z"
char(ord(cc)+32)cc
while kg_dim and varin(cc)
7 - 43

Table of Contents

Questions and Answers:

Question and Answer IconNeed help?

Do you have a question about the Texas Instruments TI-92+ and is the answer not in the manual?

Texas Instruments TI-92+ Specifications

General IconGeneral
BrandTexas Instruments
ModelTI-92+
CategoryCalculator
LanguageEnglish

Related product manuals