Tut mir leid, wenn ich so blöd frage, aber wie gibt man die x-Koordinaten an? (Habe echt noch sehr wenig Erfahrung mit R, deshalb würde es mich sehr freuen, wenn Du mir das erklären könntest).Du hattest keine x-Koordinaten angegeben
Habe Deinen Code kopiert und 1:1 nun übernommen. Der Schnittpunkt der Gerade müsste bei 7,5 sein auf der x-Achse.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 bzw B")
abline(h = 10, col = "grey", lty=2)
abline(v = 10, col = "grey", lty=2)
lines(S, B(S), col="red")
text(6, 20, expression(A(S)==frac(Q^2, S)), col = "blue")
text(2, 6, expression(B(S)==C-2%.%S), col = "red")
0=C-2*S <=> 2*S=C => für C=15 => 2*S=15 <=> S=7,5.
Irgendetwas stimmt also noch nicht ganz, oder?