Deutsches R-Forum

Hallo zusammen,

ich habe folgende Funktionen, die ich so in Mathematica eingebe:


P[t_]:= P(t) = P(t-1) + a * ED(t-1);
ED[t_] := ED(t) = DF(t) + DC(t);
DF[t_] := DF(t) = b*(F-P(t));
DC[t_] := DC(t) = c*(P(t)-F);

Die Parameter lauten:

a=1;
c=0.2;
b = 0.75;
F=100;

In Mathematica verwende ...

Genau! Perfekt! Du bist ja echt der allerbeste! Vielen Dank!

Hallo Bernhard,

tut mir leid, ich habe mich ungenau ausgedrückt. Was ich sagen wollte war, ob es möglich ist eine "Geradenschaar" zeichnen zu lassen. Ansonsten müsste ich die Funktion ersten Grade ständig kopieren, deren Werte ändern, einfügen usw., um mehrere Gerade zwischen der "roten und "blauen ...

Hallo zusammen,

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 ...

Super! Vielen, vielen Dank! Habe echt eine Menge gelernt. Vielen Dank!

Du hattest keine x-Koordinaten angegeben

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).


Q <- 10
C <- 15
S <- seq(0,12,.1)
A <- function(S) (Q^2)/S
B ...

Super! Ich habe es gefunden!

Nun habe ich noch eine letzte Frage, dann bin ich zufrieden und ich habe heute eine Menge gelernt.

Kann es sein, dass ich einen Fehler gemacht habe, was das Plotten der Funktionen angeht?

Wenn ich für S einen Wert auswähle, z.B. 10, dann muss A=10 sein (die blaue ...

Hallo Bernhard,

ich habe es fast geschafft, dass es "perfekt" für mich ausschaut, vor allem mit Deiner Hilfe! Vielen Dank dafür.


text(70, 20, "red", col = "blue")
text(95, 20, expression(A==frac(Q^2, S)), col = "blue")
text(16, 16, "red", col = "red")
text(55, 10, expression(A==frac(C,pS)-frac ...

Das ist schon mal sehr gut aus. Genau so etwas stellte ich mir vor. Allerdings ist die Schrift sehr groß. Dachte, man könnte es so machen, dass die Schrift entlang (auf) der linearen Funktion liegt. Man müsste den Text ein wenig drehen und ihn kleiner machen.

Vielleicht reicht dir schon ?lines um die zweite Funktion als Linie in einen existierenden Plot zu zeichnen...


Danke für den Hinweis! Hatte hier mehrere Möglichkeiten entdeckt:
https://stackoverflow.com/questions/2564258/plot-two-graphs-in-same-plot-in-r


Q=10
C=15

fun1 <- function(S) A=(Q^2 ...