折れ線グラフや関数のグラフを重ねる

例を示します。あとは類推してください。

list1:makelist([i,float(length(divisors(i))/i)],i,1,500);
plot2d([log(x)/x,[discrete,list1]],[x,1,500]);