利用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