Vx := proc (X, Y, Xt, Yt, x, y) options operator, arrow; -Fy(x,y)*((X-x)*Xt+(Y -y)*Yt)/(-Fy(x,y)*(X-x)+(Y-y)*Fx(x,y)) end proc; Vy := proc (X, Y, Xt, Yt, x, y) options operator, arrow; Fx(x,y)*((X-x)*Xt+(Y- y)*Yt)/(-Fy(x,y)*(X-x)+(Y-y)*Fx(x,y)) end proc; Ax := proc (X, Y, Xt, Yt, Xtt, Ytt, x, y, xt, yt) options operator, arrow; -(( X-x)*Xtt*Fy(x,y)+(2*xt*Fxy(x,y)*yt+Ytt*Fy(x,y)+Fxx(x,y)*xt^2+Fyy(x,y)*yt^2)*(Y -y)+((Xt-xt)^2+(Yt-yt)^2)*Fy(x,y))/(-Fy(x,y)*(X-x)+(Y-y)*Fx(x,y)) end proc; Ay := proc (X, Y, Xt, Yt, Xtt, Ytt, x, y, xt, yt) options operator, arrow; ((2 *xt*Fxy(x,y)*yt+Fxx(x,y)*xt^2+Fx(x,y)*Xtt+Fyy(x,y)*yt^2)*(X-x)+Fx(x,y)*(Y-y)* Ytt+((Xt-xt)^2+(Yt-yt)^2)*Fx(x,y))/(-Fy(x,y)*(X-x)+(Y-y)*Fx(x,y)) end proc;