Download or view ArchimedeanSpiral.frink in plain text format
use Plot2D.frink
/** Program to graph an Archimedan spiral from a single equation
Thanks to Grok!
https://x.com/i/grok/share/pcpdEkE5apACp3RwlnSED4a96
*/
// Simple equation but with lots of divide-by-zeroes
// g = new Plot2D.plot["y/x = tan[sqrt[x^2+y^2]/2]"]
// but a better version without so many divide by zeroes is:
//g = new Plot2D.plot["y cos[sqrt[x^2+y^2]/b] = x sin[sqrt[x^2+y^2]/b"]
b = 1/10
g = new Plot2D.plot["y cos[sqrt[x^2+y^2]/(" + inputForm[b] + ")] = x sin[sqrt[x^2+y^2]/(" + inputForm[b] + ")]"]
g.show[]
Download or view ArchimedeanSpiral.frink in plain text format
This is a program written in the programming language Frink.
For more information, view the Frink
Documentation or see More Sample Frink Programs.
Alan Eliasen, eliasen@mindspring.com