Question

我正在做一些极端速度的计算，解决我的系统方程的唯一方法就是以图形方式进行。一旦我绘制了曲线，我想开发一个输入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)))

Answer 1

如果你只想在你的情节中添加线条，您可以使用lines或segments。

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

（但这不会“解决”任何事情：你的Vr_med功能显然做了所有的工作。）

选择曲线的一个点

1 个答案: