Ладно, вот код, может, кому из начинающих пригодится. Копи-паст в пустой файл Математики-v6-7, внутри этого кода нажать Shift+Enter. Рисунок ниже.
Код:
Begin["ZadMetSn04a`"]; (* График cоединения двух парабол через отрезок *)
Subscript[k, 1]=5.; Subscript[k, 2]=2.; Subscript[t, p]=0.3; (* Инициализация значений *)
podjiom=Plot[
Subscript[k, 1]x-Subscript[k, 2] x^2,
{x,0,Subscript[k, 1]/(2 Subscript[k, 2])},
PlotStyle->{Hue[.7]}
]; (* Подъем до максимального значения первой параболы *)
stay= Plot[
(Subscript[k, 1])^2/(4 Subscript[k, 2]),
{x,Subscript[k, 1]/(2 Subscript[k, 2]),Subscript[k, 1]/(2 Subscript[k, 2])+Subscript[t, p]},
PlotStyle->{Hue[.35]}
]; (* отрезок *)
podjiom2=Plot[
Subscript[k, 2] (Subscript[k, 1]/(2 Subscript[k, 2])+Subscript[t, p]-x)^2+(Subscript[k, 1])^2/(4 Subscript[k, 2]),
{x,Subscript[k, 1]/(2 Subscript[k, 2])+Subscript[t, p],(Sqrt[2] Subscript[k, 1])/ Subscript[k, 2]+3},
PlotStyle->{Hue[.07]}
];(* продолжение второй параболы *)
Show[{podjiom,spusk,podjiom2}, PlotRange->Automatic, AspectRatio->1, AxesLabel->{"X","Y"}]
End[];
Теперь код надо в человекочитаемый вид перевести и причесать покрасивее, учитывая все замеченные и незамеченные описки :)
где
,
— экстремум (максимум) первой параболы;
— минимум для второй параболы
— правая граница аргумента для второй параболы,
— длительность горизонтальной ступеньки,
и
.
Еще интереснее его привести в более симметричный вид, посносив все страшноты в правую часть к условиям:
при
.
Ну вот, теперь всё вроде правильно :)
Интересно теперь заметить, что первые два уравнения без третьего дадут склееную функцию из первой(синей) параболы, и отрезка (зеленого). И производная будет в точке склейки существовать только при условии
.