
hat geschrieben:
Gerne, aber vorher solltest du noch die Koordinaten einstellen welche die 8.333s belegen - wenn du kannst! Herzlichen Dank vorab!
Eigentlich hätten schon die

hat geschrieben:
:lol: :lol: :lol: :lol: :lol:
gereicht, denn wie jeder weiß habe ich die bereits auf
Seite 15 eingestellt:

Code:
(*SYSTEM BEOBACHTER*)
L = {Line[{{-3, 0}, {3, 0}}]};
R = {PointSize[Large], Red, Point[{{0, 0}}]};
B = {PointSize[Large], Blue, Point[{{-2, 0}, {2, 0}}]};
o = {PointSize[Large], Orange, Point[{{0, 0}}]};
tmin = -7; tmax = 15; v = 0.8 c; c = 1; \[Gamma] = 1/Sqrt[1 - v^2];
plotB = Manipulate[
Graphics[ {Piecewise[{
{{L, R, B,
{PointSize[Large], Brown, Point[{{-v t + 2, 0}}]}},
t < 0},
{{L, R, B,
{PointSize[Large], Green, Point[{{-v t + 2, 0}}]},
{PointSize[Large], Yellow, Point[{{-c t + 2, 0}}]}},
t <= 2 && t >= 0},
{{L, o, B,
{PointSize[Large], Green, Point[{{-v t + 2, 0}}]}},
t > 2 && t < 5},
{{L, o, B,
{PointSize[Large], Yellow, Point[{{+c t - 7, 0}}]},
{PointSize[Large], Brown, Point[{{-v t + 2, 0}}]}},
t >= 5 && t <= 25/4},
{{L, o, B,
{PointSize[Large], Yellow, Point[{{+c t - 7, 0}}]}},
t > 25/4 && t <= 7},
{{L, R, B},
t > 7}}]},
PlotRange -> {{-3, 3}, {-1, 1}}, ImageSize -> 500, Frame -> True,
FrameTicks -> {{None, None}, {All, None}}],
{{t, tmin \[Gamma], "t"}, tmin \[Gamma], tmax \[Gamma]}]
(*SYSTEM LAMPE*)
plotL = Manipulate[
Show[Graphics[{Piecewise[{
{{
{Line[{{-5, 0}, {7, 0}}]},
{PointSize[Large], Red, Point[{{-6/5 + v t, 0}}]},
{PointSize[Large], Blue, Point[{{-12/5 + v t, 0},
{0 + v t, 0}}]}, {PointSize[Large], Brown, Point[{{0, 0}}]}},
t < 0},
{{
{Line[{{-5, 0}, {7, 0}}]},
{PointSize[Large], Red, Point[{{-6/5 + v t, 0}}]},
{PointSize[Large], Blue, Point[{{-12/5 + v t, 0}, {0 + v t, 0}}]},
{PointSize[Large],Green, Point[{{0, 0}}]},
{PointSize[Large], Yellow, Point[{{-c t, 0}}]}},
t >= 0 && t <= 2/3},
{{
{Line[{{-5, 0}, {7, 0}}]},
{PointSize[Large], Orange, Point[{{-6/5 + v t, 0}}]},
{PointSize[Large], Blue, Point[{{-12/5 + v t, 0}, {0 + v t, 0}}]},
{PointSize[Large], Green, Point[{{0, 0}}]}},
t > 2/3 && t <= 3},
{{
{Line[{{-5, 0}, {7, 0}}]},
{PointSize[Large], Orange, Point[{{-6/5 + v t, 0}}]},
{PointSize[Large], Blue, Point[{{-12/5 + v t, 0}, {0 + v t, 0}}]},
{PointSize[Large], Brown, Point[{{0, 0}}]},
{PointSize[Large], Yellow, Point[{{c t - 3, 0}}]}},
t > 3 && t <= 9},
{{
{Line[{{-5, 0}, {7, 0}}]},
{PointSize[Large], Red, Point[{{-6/5 + v t, 0}}]},
{PointSize[Large], Blue, Point[{{-12/5 + v t, 0}, {0 + v t, 0}}]},
{PointSize[Large], Brown, Point[{{0, 0}}]}},
t > 9}}]},
PlotRange -> {{-3, 7}, {-5/3, 5/3}}, ImageSize -> 500,
Frame -> True, FrameTicks -> {{None, None}, {All, None}}]],
{{t, tmin, "\[Tau]"}, tmin, tmax}]
(*SLIDE*)
tB = Manipulate[Evaluate[N[t]], {{t, tmin \[Gamma], "t"}, tmin \[Gamma], tmax \[Gamma]}];
tL = Manipulate[Evaluate[N[t]], {{t, tmin, "\[Tau]"}, tmin, tmax}];
(*YUKTEREZ*)
9-2/3=25/3=8.'3... Beweis genug?


,
