ich habe zwei Fragen und würde mich sehr freuen, wenn ihr mir helfen könntet.
1) Gibt es eine Möglichkeit Tangenten von R zeichnen zu lassen, in meinem Fallen zwischen der "roten" und der "blauen" Funktion, oder muss man das per Hand machen, indem man mehrere Funktionen durch copy and paste einfügt?
2) Gibt es ein Möglichkeit, dass R die Tangente berechnet, wenn man R, wie in meinem Fall, zwei Funktionen gibt.
Code: Alles auswählen
Q <- 10
C <- 15
S <- seq(0,12,.1)
A <- function(S) (Q^2)/S
B <- function(S) (C/1)-(2*S)
plot(S, A(S), type="l", col="blue", ylim=c(0,30) ,ylab = "A")
grid()
lines(S, B(S), col="red")
text(3, 5.5, expression(A==frac(C,p[S])-frac(p[A],p[S])%.%S), cex=.9, col = "red")
text(6.5, 18, expression(A==frac(Q^2, S)), col = "blue")