График в графике

Написать эту заметку в альманахе побудил в который раз заданный вопрос о том, как же все–таки рисовать график в графике, «так что бы график синус, а в стороне как бы ево кусок синуса».

Очевидно, что изображение составлено из двух графиков функций. Давайте их нарисуем:

gr1 = Plot[Sin[x]Sin[5x]/x, {x, -14, 14}, PlotRange -> All];




gr2 = Plot[Sin[x]Sin[5x]/x, {x, 10, 14}, PlotRange -> All];

Для наложения изображений используем графический примитив Rectangle. Основная его функция — рисовать прямоугольники, заданные координатами левой нижней и правой верхней вершин. Но если задать дополнительным (третим) аргументом графический объект, то получится прямоугольник, этим объектом «залитый».

Остаётся всё правильно оформить и добавить приятные мелочи, вроде желаемого размера рисунка.

Show[Graphics[{

Rectangle[{0, 0}, {1.02, 1.02}, gr1],

Rectangle[{0.6, 0.7}, {1, 1}, gr2]}

],

PlotRange -> All, ImageSize -> {500, 400}

];

Результат — в начале заметки.