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[]