3729.sagews

a,n=var("a, n")

f=max_symbolic(n/a, n^(1/4), a)

p = plot(64/a, a, 8, 64, thickness=2)
p += plot(max_symbolic(64^(1/4),a), a, 0, 8, thickness=2)
p += plot(64/a, a, 4, 64, color="red")
p += plot(1, a, 64, 70, color="red")
p+=text("?", (3, 8), rgbcolor=(0,0,0), fontsize=20 )
p