R 选择曲线的一点

我正在用极限速度做一些计算，而解系统方程的唯一方法就是用图解法。一旦我绘制了曲线，我想开发一个输入x值的函数，函数本身绘制一条从x值到曲线对应点的直线，从这一点开始，y值上的另一条直线。这样我就可以得到y值，这就是系统方程的解。 这是我的密码。函数Vr_Vmed是我最终方程的表达式。事实上，n=4，Tr=50，x是变量

par(font=10,font.axis=10,font.lab=10,font.main=11,font.sub=10)
curve(Vr_Vmed(x,n,Tr),xlim=c(1,2.5),ylim=c(1,17),
      xaxs="i",yaxs="i",xaxt="n",yaxt="n",lwd=2,
      xlab="K Weibull",ylab="Vref / Vmed",usr=c(1,2.5,1,17),
      main="Vref Estimation")
axis(1,at=c(seq(1,2.5,0.1)),xaxp=c(1,2.5,1))
axis(2,at=c(seq(1,17,1)))

---

如果只想在绘图中添加线条， 您可以使用

行

或

段

f <- function(x) {
  y <- Vr_Vmed(x,n,Tr)
  lines(c(x,x,0),c(0,y,y))
}
f(2)

---

f另一种表达方式可能是：您的
Vr\u Vmed
函数返回什么？如果Vincent过于乐观，并且它返回的不是期望的最大值，那么我们可以推荐多种峰值查找和“最大值”函数。非常感谢。我知道解决方案是由Vr_Vmed（x，n，tr）提供的，但我的演示需要图形支持！！