01-10-2021, 04:17 PM

Introduction

The program ESGRAPH plots the parametric equations containing integrals:

x(t) = ∫(cos f(x) dx, x = 0 to t)

y(t) = ∫(sin f(x) dx, x = 0 to t)

The program uses f(x) = a*x^p

When p = 2, the curve is a Euler Spiral (see source).

Casio fx-9750GIII Program: ESGRAPH

Havil, Julian. Curves for the Mathematical Curious: An Anthology of the Unpredictable, Historical, Beautiful, and Romantic Princeton Universal Press. Princeton and Oxford. Princeton, NJ 2019 ISBN 978-0-691-18005-2

For examples and more details, visit my blog at Eddie's Math and Calculator blog: http://edspi31415.blogspot.com/2021/01/c...etric.html

The program ESGRAPH plots the parametric equations containing integrals:

x(t) = ∫(cos f(x) dx, x = 0 to t)

y(t) = ∫(sin f(x) dx, x = 0 to t)

The program uses f(x) = a*x^p

When p = 2, the curve is a Euler Spiral (see source).

Casio fx-9750GIII Program: ESGRAPH

Code:

' 2020-12-22 EWS

Rad

' L1, X L2, Y

"F = A×X^P"

"FACTOR"?→A

"P=2, EULER SPIRAL"

"POWER"?→P

∫(A×cos(X^P),0,-2π)→X

∫(A×sin(X^P),0,-2π)→Y

{X}→List 1

{Y}→List 2

Menu "π÷R?","8",A,"16",B,"32",C

Lbl A: 8 → R: Goto 0

Lbl B: 16 → R: Goto 0

Lbl C: 32 → R : Goto 0

Lbl 0

For -2π+π÷R→T To 2π Step π÷R

∫(A×cos(X^P),0,-2π)→X

∫(A×sin(X^P),0,-2π)→Y

Augment(List 1, {X})→List 1

Augment(List 2, {Y})→List 2

(T+2π)÷(4π)×100→G

RndFix(G,0)→G

Locate 1,7,"PROGRESS: %"

Locate 11,7,G

Next

S-Gph1 DrawOn, xyLine, List 1, List 2, 1, Dot

DrawStat

For examples and more details, visit my blog at Eddie's Math and Calculator blog: http://edspi31415.blogspot.com/2021/01/c...etric.html