Mathematicka - kilka odcinków na jednym wykresie

[boski_login]

Hej,

Jak w temacie chciałabym umieścić na jednym wykresie kilka funkcji:

Kod: Zaznacz cały

f[x_] := x - 1
g[x_] := x/2
h[x_] := x
j[x_] := x/2 - 1

s1 = Plot [f[x], {x, -1, 2},  AxesLabel -> {"x", "y"}]
s2 = Plot[g[x], {x, -1, 2}, AxesLabel -> {"x", "y"}]
s3 = Plot[h[x], {x, 2, 4}, AxesLabel -> {"x", "y"}]
s4 = Plot[j[x], {x, 2, 4}, AxesLabel -> {"x", "y"}]

s5 = ListPlot[{{2, 1}, {2, 2}}]

Niestety jak robię:

Kod: Zaznacz cały

Show[s1, s2, s3, s4, s5]

to pojawia się jeden wykres, jednak z zakresem na osi X-ów od -1 do 2 i na tym koniec. S3 i S4 w ogóle nie pojawia się na wykresie
Pomocy.

[squared]

Wystarczy na końcu napisać

Kod: Zaznacz cały

Show[s1, s2, s3, s4, s5, PlotRange -> All]

[boski_login]

Dziękuję, teraz już działa.
Czy wiesz również jak można zaznaczyć na wykresie jakiś zbiór?

Np.: wszystkie takie pary (x,y) dla których zachodzi:\(\displaystyle{ x>y}\) lub cokolwiek innego.

[squared]

Polecenie rysujące obszar, przy zadanej nierówności.

Kod: Zaznacz cały

RegionPlot[nierówność,{x,xmin,xmax},{y,ymin,ymax}]