利用fsolve函数求解直线上到某点的距离为L的点的坐标

%% 利用fsolve函数求解直线上到某点的距离为L的点的坐标
clc; clear all;close all;
warning off
P0=[4 5 6];%定义点
v1=[1 2 3];%定义直线向量
L=-10;%定义到固定点P的距离，负号表示方向
fun=@(t)((v1(1)^2+v1(2)^2+v1(3)^2)*t^2-100); %定义匿名函数
t0=-15;%定义初值
t = fsolve(fun,t0)%利用fsolve函数求解t值
x=P0(1)+v1(1)*t;%直线的参数方程，将t代入，可得点的坐标，下同
y=P0(2)+v1(2)*t;
z=P0(3)+v1(3)*t;
P1=[x y z]

计算结果如下：

t =

   -2.6726

P1 =

    1.3274   -0.3452   -2.0178