Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (*program start*)
- Clear[x, y, n, a, xmin, xmax, ymin, ymax, c]
- xmin = -1*Pi;
- xmax = +3*Pi;
- x = N[Range[xmin, xmax, 1/(50*Pi)], 90];
- y1 = Sin[x];
- y2 = Sin[y1];
- y3 = Sin[y1 + y2];
- y4 = Sin[y1 + y2 + y3];
- y5 = Sin[y1 + y2 + y3 + y4];
- y6 = Sin[y1 + y2 + y3 + y4 + y5];
- y7 = Sin[y1 + y2 + y3 + y4 + y5 + y6];
- y8 = Sin[y1 + y2 + y3 + y4 + y5 + y6 + y7];
- y9 = Sin[y1 + y2 + y3 + y4 + y5 + y6 + y7 + y8];
- y10 = Sin[y1 + y2 + y3 + y4 + y5 + y6 + y7 + y8 + y9];
- y11 = Sin[y1 + y2 + y3 + y4 + y5 + y6 + y7 + y8 + y9 + y10];
- y12 = Sin[y1 + y2 + y3 + y4 + y5 + y6 + y7 + y8 + y9 + y10 + y11];
- y = y1 + y2 + y3 + y4 + y5 + y6 + y7 + y8 + y9 + y10 + y11 + y12;
- Max[y]
- a = Table[{x[[n]], y[[n]]}, {n, 1, Length[x]}];
- a1 = Table[{x[[n]], y1[[n]]}, {n, 1, Length[x]}];
- a2 = Table[{x[[n]], y2[[n]] + y1[[n]]}, {n, 1, Length[x]}];
- a3 = Table[{x[[n]], y3[[n]] + y2[[n]] + y1[[n]]}, {n, 1, Length[x]}];
- a4 = Table[{x[[n]], y4[[n]] + y3[[n]] + y2[[n]] + y1[[n]]}, {n, 1,
- Length[x]}];
- a5 = Table[{x[[n]],
- y5[[n]] + y4[[n]] + y3[[n]] + y2[[n]] + y1[[n]]}, {n, 1,
- Length[x]}];
- a6 = Table[{x[[n]],
- y6[[n]] + y5[[n]] + y4[[n]] + y3[[n]] + y2[[n]] + y1[[n]]}, {n, 1,
- Length[x]}];
- a7 = Table[{x[[n]],
- y7[[n]] + y6[[n]] + y5[[n]] + y4[[n]] + y3[[n]] + y2[[n]] +
- y1[[n]]}, {n, 1, Length[x]}];
- a8 = Table[{x[[n]],
- y8[[n]] + y7[[n]] + y6[[n]] + y5[[n]] + y4[[n]] + y3[[n]] +
- y2[[n]] + y1[[n]]}, {n, 1, Length[x]}];
- a9 = Table[{x[[n]],
- y9[[n]] + y8[[n]] + y7[[n]] + y6[[n]] + y5[[n]] + y4[[n]] +
- y3[[n]] + y2[[n]] + y1[[n]]}, {n, 1, Length[x]}];
- a10 = Table[{x[[n]],
- y10[[n]] + y9[[n]] + y8[[n]] + y7[[n]] + y6[[n]] + y5[[n]] +
- y4[[n]] + y3[[n]] + y2[[n]] + y1[[n]]}, {n, 1, Length[x]}];
- a11 = Table[{x[[n]],
- y11[[n]] + y10[[n]] + y9[[n]] + y8[[n]] + y7[[n]] + y6[[n]] +
- y5[[n]] + y4[[n]] + y3[[n]] + y2[[n]] + y1[[n]]}, {n, 1,
- Length[x]}];
- a12 = Table[{x[[n]],
- y12[[n]] + y11[[n]] + y10[[n]] + y9[[n]] + y8[[n]] + y7[[n]] +
- y6[[n]] + y5[[n]] + y4[[n]] + y3[[n]] + y2[[n]] + y1[[n]]}, {n,
- 1, Length[x]}];
- ymin = Min[y]/Pi;
- ymax = Max[y]/Pi;
- ymin = -10/2*Pi;
- ymax = 10/2*Pi;
- g = ListLinePlot[a,
- Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
- Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
- ImageSize -> Full, PlotRange -> {-Pi - 1/2, Pi + 1/2},
- PlotStyle -> RGBColor[1, 0, 1]];
- g1 = ListLinePlot[a1,
- Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
- Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
- ImageSize -> Full, PlotRange -> {-Pi - 1/2, Pi + 1/2}];
- g2 = ListLinePlot[a2,
- Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
- Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
- ImageSize -> Full, PlotRange -> {-Pi - 1/2, Pi + 1/2}];
- g3 = ListLinePlot[a3,
- Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
- Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
- ImageSize -> Full, PlotRange -> {-Pi - 1/2, Pi + 1/2}];
- g4 = ListLinePlot[a4,
- Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
- Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
- ImageSize -> Full, PlotRange -> {-Pi - 1/2, Pi + 1/2}];
- g5 = ListLinePlot[a5,
- Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
- Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
- ImageSize -> Full, PlotRange -> {-Pi - 1/2, Pi + 1/2}];
- g6 = ListLinePlot[a6,
- Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
- Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
- ImageSize -> Full, PlotRange -> {-Pi - 1/2, Pi + 1/2}];
- g7 = ListLinePlot[a7,
- Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
- Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
- ImageSize -> Full, PlotRange -> {-Pi - 1/2, Pi + 1/2}];
- g8 = ListLinePlot[a8,
- Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
- Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
- ImageSize -> Full, PlotRange -> {-Pi - 1/2, Pi + 1/2}];
- g9 = ListLinePlot[a9,
- Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
- Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
- ImageSize -> Full, PlotRange -> {-Pi - 1/2, Pi + 1/2}];
- g10 = ListLinePlot[a10,
- Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
- Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
- ImageSize -> Full, PlotRange -> {-Pi - 1/2, Pi + 1/2}];
- g11 = ListLinePlot[a11,
- Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
- Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
- ImageSize -> Full, PlotRange -> {-Pi - 1/2, Pi + 1/2}];
- g12 = ListLinePlot[a12,
- Ticks -> {Flatten[{xmin, xmax, Table[n, {n, xmin, xmax, Pi}]}],
- Flatten[{ymin, ymax, Table[k, {k, ymin, ymax, Pi}]}]},
- ImageSize -> Full, PlotRange -> {-Pi - 1/2, Pi + 1/2}];
- Show[g, g1, g2, g3, g4, g5, g6, g7, g8, g9, g10, g11, g12]
- Show[g5]
- (*program end*)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement