
- Code: Alles auswählen
Manipulate[
With[{\[Theta] = \[Theta] \[Pi]/4},
Graphics[{Arrow[{{0, -.01}, {0, 1}}], Arrow[{{-.01, 0}, {1, 0}}],
Arrow[{-{Cos[\[Theta]], Sin[\[Theta]]},
Sec[\[Theta]] {Cos[\[Theta]], Sin[\[Theta]]}}],
Arrow[{-{Cos[\[Pi]/2 - \[Theta]], Sin[\[Pi]/2 - \[Theta]]},
Sec[\[Theta]] {Cos[\[Pi]/2 - \[Theta]],
Sin[\[Pi]/2 - \[Theta]]}}], Dashed,
Text[Row[{Style["c", Italic], " ", Subscript[
Row[{Style["t", Italic], "'"}],
Style["D", Italic]]}], {-(( -0.45 + 0.85 Tan[\[Theta]])/(
Cot[\[Theta]] - Tan[\[Theta]])) - .025, -((
Cot[\[Theta]] (-0.45 + 0.85 Tan[\[Theta]]))/(
Cot[\[Theta]] - Tan[\[Theta]]))}],
Text[Row[{Style["c", Italic], " ", Subscript[
Row[{Style["t", Italic], "'"}],
Style["C", Italic]]}], {-((-0.35 + 0.5 Tan[\[Theta]])/(
Cot[\[Theta]] - Tan[\[Theta]])) - .025, -((
Cot[\[Theta]] (-0.35 + 0.5 Tan[\[Theta]]))/(
Cot[\[Theta]] - Tan[\[Theta]]))}],
Text[Row[{Style["c", Italic], " ", Subscript[
Row[{Style["t", Italic], "'"}],
Style["A", Italic]]}], {-(( -0.6 + 0.4 Tan[\[Theta]])/(
Cot[\[Theta]] - Tan[\[Theta]])) - .025, -((
Cot[\[Theta]] (-0.6 + 0.4 Tan[\[Theta]]))/(
Cot[\[Theta]] - Tan[\[Theta]]))}],
Text[Row[{Style["c", Italic], " ", Subscript[
Row[{Style["t", Italic], "'"}],
Style["B", Italic]]}], {-((-0.9 + 0.5 Tan[\[Theta]])/(
Cot[\[Theta]] - Tan[\[Theta]])) - .025, -((
Cot[\[Theta]] (-0.9 + 0.5 Tan[\[Theta]]))/(
Cot[\[Theta]] - Tan[\[Theta]]))}],
Line[{{-(( -0.45 + 0.85 Tan[\[Theta]])/(
Cot[\[Theta]] - Tan[\[Theta]])), -((
Cot[\[Theta]] (-0.45 + 0.85 Tan[\[Theta]]))/(
Cot[\[Theta]] - Tan[\[Theta]]))}, {.85, .45}}],
Line[{{-(( -0.35 + 0.5 Tan[\[Theta]])/(
Cot[\[Theta]] - Tan[\[Theta]])), -((
Cot[\[Theta]] (-0.35 + 0.5 Tan[\[Theta]]))/(
Cot[\[Theta]] - Tan[\[Theta]]))}, {.5, .35}}],
Line[{{-(( -0.6` + 0.4 Tan[\[Theta]])/(
Cot[\[Theta]] - Tan[\[Theta]])), -((
Cot[\[Theta]] (-0.6 + 0.4 Tan[\[Theta]]))/(
Cot[\[Theta]] - Tan[\[Theta]]))}, {.4, .6}}],
Line[{{-((-0.9 + 0.5 Tan[\[Theta]])/(
Cot[\[Theta]] - Tan[\[Theta]])), -((
Cot[\[Theta]] (-0.9 + 0.5 Tan[\[Theta]]))/(
Cot[\[Theta]] - Tan[\[Theta]]))}, {.5, .9}}],
Text[Row[{Style["c", Italic], " ", Subscript[Style["t", Italic],
Style["D", Italic]]}], {-.05, .45}],
Text[Row[{Style["c", Italic], " ", Subscript[Style["t", Italic],
Style["C", Italic]]}], {-.05, .35}],
Text[Row[{Style["c", Italic], " ", Subscript[Style["t", Italic],
Style["A", Italic]]}], {-.05, .6}],
Text[Row[{Style["c", Italic], " ", Subscript[Style["t", Italic],
Style["B", Italic]]}], {-.05, .9}],
Text[Style["C", Italic], {.5 + .025, .35}],
Text[Style["D", Italic], {.85 + .025, .45}],
Text[Style["A", Italic], {.4 + .025, .6}],
Text[Style["B", Italic], {.5 + .025, .9}],
Line[{{0, .45}, {.85, .45}}], Line[{{0, .35}, {.5, .35}}],
Line[{{0, .6}, {.4, .6}}], Line[{{0, .9}, {.5, .9}}],
Point[{{0, .45}, {.85, .45}}], Point[{{0, .35}, {.5, .35}}],
Point[{{0, .6}, {.4, .6}}], Point[{{0, .9}, {.5, .9}}],
Text[Style["x", Italic], {.975, -.05}],
Text[Row[{Style["c", Italic], " ",
Style["t", Italic]}], {.05, .925}],
Text[Row[{Style["c", Italic], " ", Style["t", Italic],
"'"}], {Sec[\[Theta]] Cos[\[Pi]/2 - \[Theta]] + .05,
Sec[\[Theta]] Sin[\[Pi]/2 - \[Theta]] - .05}],
Text[Row[{Style["x", Italic],
"' "}], {Sec[\[Theta]] Cos[\[Theta]],
Sec[\[Theta]] Sin[\[Theta]] - .05}],
Point[{{.5, .35}, {.85, .45}}], Point[{{.4, .6}, {.5, .9}}],
Magenta, Arrow[{{.5, .35}, {.85, .45}}],
Arrow[{{.4, .6}, {.5, .9}}], Dashing[None],
Arrow[{-{1, 1}, {1, 1}}], Opacity[.25],
Polygon[{{-1, 1}, {0, 0}, {1, 1}}]},
Axes -> False, Ticks -> None, AxesOrigin -> {0, 0},
PlotRange -> {{-.1, 1}, {-.1, 1}},
ImageSize -> {500, 400}]], {{\[Theta], .2, Style["v", Italic]},
0.001, .999, Appearance -> "Labeled"}]
(* http://demonstrations.wolfram.com/WhyThingsDontTravelFasterThanLight *)
