derivate4 D[a Cos[w x],x] -(a*w*Sin[w*x]) ;[o] -(a w Sin[w x])
D[m w^2 r,w] 2*m*r*w ;[o] 2 m r w
s=r Cos[w t] D[s,w] r*Cos[t*w] ;[o] r Cos[t w] -(r*t*Sin[t*w]) ;[o] -(r t Sin[t w])
v=-r w Sin[w t]; D[v,w] -(r*t*w*Cos[t*w]) - r*Sin[t*w] ;[o] -(r t w Cos[t w]) - r Sin[t w]
D[x Log[x],{x,2}] x^(-1) ;[o] 1 - x y=Lox[x]+Sin[x]-Sqrt[x] torna a inizio