Casio fx-7400g Plus: Program Library

Casio fx-7400g Plus: Program Library

Contents:

* Polar Graphing (POLAR)

* Summation and Integration (FX, SUMFX, INTFX)

* Binomial Expansion (BINOMEXP)

* Forward Triangle Intersection (FORDINT)

* Coordinates of a Traverse (TRAVEZ)

* Quadratic Equation (QUAD)

The classic fx-7400g (we’re talking about the early 2000s) lacked numerical integration, summation, and polar graphing.  Let’s remedy that through programming.

Fortunately any of the programs created on the fx-7400g Plus can be translated literally to later Casio graphing calculators. 

Casio fx-7400g Plus Program POLAR

  

Program POLAR

ClrGraph

Rad

“THETA MIN”? → A

“THETA MAX”? → B

“THETA STEP”? → S

For A → I To B Step S

sin (2I) →  R       (see note below)

PlotOn R cos I, R sin I

Next

DrawGraph

Notes:

*  This is best used when the function list is clear.

*  Set up graph screen parameters (Xmin, Xmax, Ymin, Ymax) before hand.

*  Insert polar functions by editing the 7^thline (in italics), using I for θ.  The result must be stored to R  (by → R).

Casio fx-7400g Plus Programs FX, SUMFX, INTFX

The programs SUMFX and INTFX will require the subroutine program FX.  FX is where you insert the function f(x).   The result is stored to Y. 

Program FX

X^2+1 → Y

Return

Program SUMFX

“LOWER”? → L

“UPPER”? → U

0 → T

For L → X To U

Prog “FX”

T + Y → T

Next

“SUM=” ◢

T

Example:  FX contains X^2 +1, with L = 1, U = 15.  Result:  1255

Program INTFX

“LOWER”? → L

“UPPER”? → U

“NO. PARTS”? → N

Rad

L → X

Prog “FX”

Y → T

U → X

Prog “FX”

T + Y → T

(U – L) ÷ N → H

For 1 → I To N-1

L + I * H → X

Prog “FX”

If I Rmdr 2 = 0

Then T + 2*Y → T

Else T + 4*Y → T

IfEnd

Next

T * H ÷ 3 → T

“INTEGRAL=” ◢

T

Example:  FX contains X^2 +1, with L = 1, U = 15, N = 24.  Result:  1138.666667

Casio fx-7400g Plus Program BINOMEXP

The program BINOMEXP shows the coefficients of the binomial expansion (Ax + B)^N.

Program BINOMEXP

“(AX+B)^N”

“A”? → A

“B”? → B

“N”? → N

For 0 → I To N

N nCr I * A^(N-I) * B^I → T

“{COEF, POWER}” ◢

{T, N-I} ◢

Next

Example:  (2x – 3)^2

Results:  {4, 2}, {-12, 1}, {9, 0}   (4x^2 – 12x + 9)

 Casio fx-7400g Plus Program FORDINT

The program FORDINT calculates the third point on a triangle where the coordinates of points A  (xa, xb) and B (xb, yb) are known.  Also, a line towards P point is aimed from point A at angle α° and from point B at angle β°. 

Variable	Casio fx-7400g Plus	Variable	Casio fx-7400g Plus	Variable	Casio fx-7400g Plus
xa	N	ya	S	α	A
xb	O	yb	T	β	B
xp	P	yc	U	γ	C

Source: Casio.   Casio fx-FD10 Pro User’s Guide Tokyo. 2014

Program FORDINT

Deg

“XA”? → N

“YA”? → S

“ANGLE A”? → A

“XB”? → O

“YB”? → T

“ANGLE B”? → B

1 ÷ tan A + 1 ÷ tan B → C

(N ÷ tan B + O ÷ tan A + (T – S)) → P

(S ÷ tan B + T ÷ tan A + (N – O)) → U

180 – A – B → C

“{XP, YP, C}” ◢

P ◢

U ◢

C

Example:

Point A:  (1000, 950), angle towards point P:  30°

Point B:  (1012, 997), angle towards point P:  44°

Result:

Point P:  (approximately) (1024.49237, 975.078358)

Angle γ: 106°

Casio fx-7400g Plus Program TRAVEZ

TRAVEZ calculates the new point knowing the original coordinates, direction, and angle of travel.  The angle 0° comes from due east and rotates counterclockwise.

Program TRAVEZ

Deg

“1ST EAST”? → E

“1ST NORTH”? → N

0 → D

Lbl 1

“DISTANCE”? → I

“ANGLE”? → A

I * cos A + E → E

I * sin A + N → N

D + I → D

“POINT” ◢

{E, N} ◢

“DONE? Y=1” ◢

? → Y

Y ≠ 1 ⇒ Goto 1

“DISTANCE =” ◢

D

Example:  Initial point (1000,1000)

Distance: 750, Angle:  276; Point {1078.396347, 254.1085785}

Distance: 600, Angle:  35; Point {1569.887574, 598.2544403}

Distance: 700, Angle:  118; Point {1241.25748, 1216.317755}

Total Distance:  2050

Casio fx-7400g Plus Program QUAD

The program QUAD is the quadratic equation which finds the roots of

Ax^2 + Bx + C = 0

Yes, I just can’t resist.

Program QUAD

“A”? → A

“B”? → B

“C”? → C

B^2 – 4AC → D

If D≥0

Then “REAL ROOTS”◢

(-B + √D) ÷ (2A) → S

(-B - √D) ÷ (2A) → T

Else “ROOTS S+TI” ◢

-B ÷ (2A) → S

√(Abs D) ÷ (2A) → T

IfEnd

{S, T}

Example:

A = 2.5, B = -3, C = -1.1

Roots:  “REAL ROOTS”, 1.494427191, -0.294427191

A = 2.5, B = -3, C = -1.1

Roots:  “ROOTS S+TI”,  -0.375 ± .3665719575i   (T:  -3.665719575)

Happy Thanksgiving!  Eddie

This blog is property of Edward Shore, 2016.