**TI-84 Plus CE Programs from Casio FX-702P**

**Notes**

Here are several programs from the “Bilbliotheque De
Programmes” for the Casio FX-702P translated for the Texas Instruments TI-84
Plus CE. I understand that there is an
English version of the book, but I have yet to find it online. I am thankful to Google Translate since I am
not fluent in French.

I named each of the programs FX702P##, starting with
02. Of course, use the program name that
fits.

Basic doesn’t translate directly to the TI-84 Plus
programming language. First of all,
there are no line numbers for the TI-84 Plus, separate labels had to be
created. I added more descriptive lines
to prompts and results strings because (1) the TI-84 Plus CE has a lot more
programming space than the 1,680 bytes the Casio FX-702P offered, and (2) it
helped me understand what the programs were.

The reference page ties to the page in the document,

*not*the PDF page.**TI-84 Plus CE Program FX702P02**(ref. page 85)

Geometric Mean: Enter
0 to stop data entry

"GEOMETRIC MEAN
(85)"

"2018-05-20"

1→A:1→B

Lbl 20

Disp
"X-",A

Input X

If X=0:Goto 60

A+1→A:B*X→B

Goto 20

Lbl 60

Disp
"G=",B^(1/(A-1))

**TI-84 Plus CE Program FX702P03**(ref. page 117)

Chemistry: Analysis
of an Acid

"ACID PRGM,
2018-05-20"

"(117)"

For(J,1,10)

Input "T=
(0:END)",T

If T=0:Stop

37-T→T

Input
"P*=",A

Input
"PH=",P

Input
"H=",H

.019T→B:A*10^(B)→A

Disp
"P*=",A

P-.0146T→P:Disp
"PH=",P

.0307A→C:C*10^(P-6.11)→D

Disp
"(HC03)=",D:Pause

D-(9.5+1.63H)(7.4-P)-24→C

(1-.0143H)C→B

Disp
"BE=",B

(1+10^(P-6.11))→I:.0307AI→I

Disp
"I=",I:Pause

End

**TI-84 Plus CE Program FX702P04**(ref. page 131)

Accounting: Calculate
Accounts Receivable on outstanding invoices

"BILL REDUCTION
(131)"

"2018-05-20
EWS"

1→Z:0→E:0→F

Lbl IN

"AMT:
A"+toString(Z)+":"→Str1

Input Str1,A

"PERCENT:
B"+toString(Z)+":"→Str1

Input Str1,B

"DAYS:
C"+toString(Z)+":"→Str1

Input Str1,C

int(A*B/100*C/365+.5)→D

E+A→E:F+D→F

"AMT:
D"+toString(Z)+":"→Str1:Disp Str1,D

Pause

Z+1→Z

Menu("MORE
DATA?","YES",IN,"NO",NO)

Lbl NO

ClrHome

Disp "TOTAL
INVOICES:",E

Disp "TOTAL
INTEREST:",F

Input
"COMMISSION:",X

E-F-X→N

Disp "NET
RECIEVABLE:",N

**TI-84 Plus CE Program FX702P05**(ref. page 73)

Thermal Stress

Disp "THERMAL
STRESS"

"2018-05-22
EWS"

Disp "LINEAR
EXPANSION","COEFFICIENT"

Input
"L1:",L

Input
"L2:",M

Disp
"ELASTIC","COEFFICIENT"

Input
"E1:",E

Input
"E2:",F

Disp "CROSS
SECTION"

Input
"A1:",A

Input
"A2:",B

Input
"T:",T

EF(L-M)T→C

C/(EA+FB)→C

(BC)→R:AC→S

ClrHome

Disp "THERMAL
STRESS","A:","B:"

Output(2,5,R)

Output(3,5,S)

**TI-84 Plus CE Program FX702P06**(ref. page 206)

Construction:
Concentrated Load on a Beam

Disp "BEAM
FIXED AT","BOTH ENDS UNDER","CONCENTRATED LOAD"

"(63)
2018-05-22 EWS"

Degree

Input "YOUNG
MOD (KG/MM^4):",E

Input "INERTIA
(MM^4):",I

Input "LENGTH
(MM):",L

Input
"SUPPORT-LOAD DIST:",A

Input "LOAD
(KG):",P

E*I→B

Input "INTEREST
POINT:",X

If X≤A

Then:A→Y:X→Z

Else:L-A→Y:L-X→Z

End

Z(L+2Y)→C:P(L-Y)^2/L^3→D

D*Z*Z/6/B*(C-3*Y*L)→F

tan^-1(D*Z/2/B*(C-2*Y*L))→S

D*(C-Y*L)→M

D*C/Z→W

ClrHome:Fix 4

Disp "FLEXION
(MM):"," ANGLE:"," TORQUE:","SHELL LOAD:"

Output(1,14,F)

Output(2,14,S)

Output(3,14,M)

Output(4,14,W)

Float

**TI-84 Plus CE Program FX702P07**(ref. page 41)

Electronics: Active
Low-Pass Filter

Disp "ACTIVE
LOW-PASS FILTER"

"(41)
2018-05-22 EWS"

Input "FREQ
(HZ):",F

Input
"AF:",A

Input "C1
(MICRO-F):",C

C/1E6→C

√(2)/(4*A*π*F*C)→R

A*R→S

S/(A+1)→T

2*(A+1)*C*1E6→U

ClrHome

Disp
"R1:","R2:","R3:",C2:"

Output(1,5,R)

Output(2,5,S)

Output(3,5,T)

Output(4,5,U)

Source: Casio.
“Bibliotheque De Programmes FX-702P” (French document) 1985

You can find a PDF of the book in French on this page: http://casio.ledudu.com/pockets.asp?type=53&lg=eng
. Scroll down to the bottom of the
page. Also, shout out to the
casio.ledudu.com page because it is an excellent site!

Eddie

All original
content copyright, © 2011-2018. Edward
Shore. Unauthorized use and/or
unauthorized distribution for commercial purposes without express and written
permission from the author is strictly prohibited. This blog entry may be distributed for
noncommercial purposes, provided that full credit is given to the author. Please contact the author if you have
questions.