Скалярное произведение векторов

Clear["Global`*"]
{a,b,c} . {x,y,z}

Clear["Global`*"]
x={1,2,3};
y={10,-10,10};
x.y

Расстояние между точками (радиус-вектором)

Clear["Global`*"]
EuclideanDistance[{a,b,c},{x,y,z}]

Clear["Global`*"]
x={1,2,3};
y={-1,-2,-1};
EuclideanDistance[x,y]

f=x Log[x];
Limit[f,x->0]
Plot[f,{x,-1,3},PlotRange->{-0.5,1}]