用mathematica计算点到线的距离
问题描述：
用mathematica计算点到线的距离
求点(1,1,4)到直线l:(x-3)/-1 =y/0=(z+1)/2的距离.麻烦给个完整代码,
答
f[t_] := (-t + 3 - 1)^2 + 1 + (2 t - 1 - 1)^2
Sqrt[f[t]/.Solve[f'[t]==0,t][[1]]