/** This graphs the Riemann Zeta function along the critical line
    RiemannZeta[1/2 + i s] for real values of s.  This is probably the graph
    you have seen of the Riemann Zeta function.  Compare it to

 https://en.wikipedia.org/wiki/Riemann_zeta_function#/media/File:Zeta_polar.svg
*/
use RiemannZeta.frink
use Grid.frink

p = new polyline

for s = 0 to 384 step .01
{
   z = RiemannZeta[1/2 + i s, 50]
   p.addPoint[Re[z], -Im[z]]
}

g = new graphics
g.add[p]

grid = new Grid
grid.auto[g]
g.add[grid.getGrid[]]

g.show[]
//g.print[]