2 ряда развернутых циклоид.
Пример 7
Теперь нарисуем 2 ряда развернутых циклоид. (Это графики с 20 по 30.)
Block[(n,m=5,omega=l/7), Show[GraphicsArray[ Table[Table[gg[n=20+(a-1)*m+b],{b,m}],{a,2}]]]]
Вы увидите следующее.
Мультимедиа: геометрия, графика, кино, звук
Пример 7
Теперь нарисуем 2 ряда развернутых циклоид. (Это графики с 20 по 30.)
Block[(n,m=5,omega=l/7), Show[GraphicsArray[ Table[Table[gg[n=20+(a-1)*m+b],{b,m}],{a,2}]]]]
Вы увидите следующее.