Mathematica "склеить" графики

[Nastya.N]

Добрый день. Подскажите, пожалуйста, с помощью какой функции "склеить" графики? Например, есть три функции: f(x), g(x), h(x). Как сделать, чтобы на интервале [0,0.3] была построена f(x), на [0.3,0.6] была построена g(x) и на [0.6,1] построена h(x). В идеале они должны "склеиться" и получится одна кривая на отрезке [0,1].

[Vince Diesel]

Тут стоит склеить функции командой Piecewise. А потом график.

[Nastya.N]

Спасибо! Получилось))

[Toucan]

Nastya.N, замечание за неиспользование $\TeX$ при наборе формул.

[Nastya.N]

А теперь не работает......
Не подскажите, что не так в коде?

Plot[Piecewise[{{k[x] /. sist1, 
    0.924 <= x < 1}, {k[x] /. sist2, 
    0.622 <= x < 0.924}, {k[x] /. sist3, 
    0 <= x < 0.622}}], {x, 0, 1}, 
 PlotRange -> {-10, 20}]

Строит только график из sist3 на отрезке [0,1].

[Mysterious Light]

Возможно, следует окружить Piecewise[...] в Evaluate:

Plot[Evaluate[Piecewise[...]], {x, 0 ,1}]

Есть ещё один метод, который Вам стоит знать. Он заключается в построении нескольких графиков и объединении их на графическом уровне.

Show[
  Plot[f[x], {x, 0, 0.6}, PlotRange -> {{0, 1}, Automatic}],
  Plot[g[x], {x, 0.6, 1}]
]

Учтите, что PlotRange -> {<здесь полный диапазон значений x>, <диапазон по y как обычно или Authomatic>} в первом Plot обязателен.

[Vince Diesel]

Еще вариант — сначала определить функцию:

f[x_]=Piecewise[{{k[x] /. sist1, 
    0.924 <= x < 1}, {k[x] /. sist2, 
    0.622 <= x < 0.924}, {k[x] /. sist3, 
    0 <= x < 0.622}}];
Plot[f[x], {x, 0, 1},  PlotRange -> {-10, 20}]

[Nastya.N]

Всем спасибо за помощь!)))