graph_with_maximum.sagews

w = var('w')
A(w) = w*(70-w)
F(w) = 825
p1 = plot(F,w,0,70,color='red')
p2 = plot(A,w,0,70,)
p3 = point((35,A(35)),color='black')
p4 = text('(35,1225)',(35,1160),color='black')


L = p1+p2+p3+p4
show(L)
L.save('graph_with_maximum.pdf')