Несколько графиков на одном чертеже (функция GraphicsArray)
Нарисуем, наконец, развернутые циклоиды, которые образуются, когда подвижная окружность содержит внутри себя неподвижную. (Это графики с 18 по 20.)
Block[{n,m=3,omega=1/7}, Show[GraphicsArray[ Table[Table[gg[n=17+(a-1)*m+b],{b,m}],{a,1}]]]]В результате вы увидите вот что.
Теперь нарисуем 2 ряда развернутых циклоид. (Это графики с 20 по 30.)
Block[(n,m=5,omega=1/7), Show[GraphicsArray[ Table[Table[gg[n=20+(a-1)*m+b],{b,m}],{a,2}]]]]Вы увидите следующее.
Вспоминаем, наконец, об оставшихся 10 графиках. В программе достаточно изменить лишь начальный порядковый номер.
Block[{n,m=5,omega=1/7}, Show[GraphicsArray[ Table[Table[gg[n=30+(a-1)*m+b],{b, m}], {a, 2}]] ] ]А вот и сами графики.
