Выберите точку кривой

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 функция по-видимому, делает всю работу.)