大家好，问题更新了一下：
请教一下，求多个等式的解
P3=2783;
P10=3002;
P25=3216;
P50=3455;
P75=3702;
P90=3941;
P97=4203;

0=P3-P50*((1+L*S*(quantile('T',0.03,1379)))**(1/L)) ;
0=P10-P50*((1+L*S*(quantile('T',0.1,1379)))**(1/L)) ;
0=P25-P50*((1+L*S*(quantile('T',0.25,1379)))**(1/L)) ;
0=P50-P50*((1+L*S*(quantile('T',50,1379)))**(1/L)) ;
0=P75-P50*((1+L*S*(quantile('T',0.75,1379)))**(1/L)) ;
0=P90-P50*((1+L*S*(quantile('T',0.9,1379)))**(1/L)) ;
0=P97-P50*((1+L*S*(quantile('T',0.97,1379)))**(1/L)) ;

目标是求解L, S

原问题如下：
cube003_01Fun <- function(x) {
  ((2783/3455)**x-1)/qt(0.03,1377)-((3002/3455)**x-1)/qt(0.1,1377)
}

方程 ((2783/3455)**x-1)/qt(0.03,1377)-((3002/3455)**x-1)/qt(0.1,1377)=0的 解， qt是自由度为1377的t分布的t值，求解x，谢谢