- On Friday in class I showed how to make tori from the regular \(n\)-gons we introduced earlier. An interesting next goal is to create a twisted \(n\)-gon torus, in particular a twisted triangular torus (a toroid).
- Below I present two animations which show two ways to construct the one-third-twisted triangular toroid.
-
In this item, the one-third-twisted triangular toroid is constructed by a rotating equilateral triangle. The triangle is rotated by the full circle, that is the angle $2\pi$.
Place the cursor over the image to start the animation.
The code that is used for the above picture (not the animation) is below:
Show[ParametricPlot3D[ 3 {Cos[s], Sin[s], 0} + NgonCos[t, 3] (Cos[s/3] {Cos[s], Sin[s], 0} + Sin[s/3] {0, 0, 1}) + NgonSin[t,3] (-Sin[s/3] {Cos[s], Sin[s], 0} + Cos[s/3] {0, 0, 1}), {t, 0, 3}, {s, 0, 2 Pi}, PlotPoints -> {51, 201}, PlotStyle -> {Opacity[0.9]}, Mesh -> False, Exclusions -> None, PlotRange -> {{-4, 4}, {-4, 4}, {-1.1, 1.1}}], ParametricPlot3D[ 3 {Cos[s], Sin[s], 0} + NgonCos[0, 3] (Cos[s/3] {Cos[s], Sin[s], 0} + Sin[s/3] {0, 0, 1}) + NgonSin[0, 3] (-Sin[s/3] {Cos[s], Sin[s], 0} + Cos[s/3] {0, 0, 1}), {s, 0, 2 Pi}, PlotPoints -> {201}, PlotStyle -> {RGBColor[0, 0, 0.75], Thickness[0.006]}, Exclusions -> None], ParametricPlot3D[ 3 {Cos[s], Sin[s], 0} + NgonCos[1, 3] (Cos[s/3] {Cos[s], Sin[s], 0} + Sin[s/3] {0, 0, 1}) + NgonSin[1, 3] (-Sin[s/3] {Cos[s], Sin[s], 0} + Cos[s/3] {0, 0, 1}), {s, 0, 2 Pi}, PlotPoints -> {201}, PlotStyle -> {RGBColor[0.95, 0, 0], Thickness[0.006]}, Exclusions -> None], ParametricPlot3D[ 3 {Cos[s], Sin[s], 0} + NgonCos[2, 3] (Cos[s/3] {Cos[s], Sin[s], 0} + Sin[s/3] {0, 0, 1}) + NgonSin[2, 3] (-Sin[s/3] {Cos[s], Sin[s], 0} + Cos[s/3] {0, 0, 1}), {s, 0, 2 Pi}, PlotPoints -> {201}, PlotStyle -> {RGBColor[0, 0.85, 0], Thickness[0.006]}, Exclusions -> None], ImagePadding -> {{0, 0}, {0, 0}}, Boxed -> True, BoxStyle -> {Opacity[0]}, Axes -> False, ImageSize -> 1000, PlotRange -> {{-4, 4}, {-4, 4}, {-1.1, 1.1}}]The above code uses the functions that we defined earlier:
Clear[NgonCos, NgonSin]; NgonCos[t_, nn_] := (1 - (t - Floor[t])) Cos[(2/nn) \[Pi] Floor[t]] + (t - Floor[t]) Cos[(2/nn) \[Pi] (1 + Floor[t])]; NgonSin[t_, nn_] := (1 - (t - Floor[t])) Sin[(2/nn) \[Pi] Floor[t]] + (t - Floor[t]) Sin[(2/nn) \[Pi] (1 + Floor[t])]; -
In this item, the one-third-twisted triangular toroid is constructed by a rotating line segment. The line segment is rotated by the three full circles, that is by the angle $6\pi$.
Place the cursor over the image to start the animation.
The code that is used for the above picture (not the animation) is below:
Show[ParametricPlot3D[ 3 {Cos[s], Sin[s], 0} + NgonCos[t, 3] (Cos[s/3] {Cos[s], Sin[s], 0} + Sin[s/3] {0, 0, 1}) + NgonSin[t, 3] (-Sin[s/3] {Cos[s], Sin[s], 0} + Cos[s/3] {0, 0, 1}), {t, 0, 1}, {s, 0, 6 Pi}, PlotPoints -> {51, 201}, PlotStyle -> {Opacity[0.9]}, Mesh -> False, Exclusions -> None, PlotRange -> {{-4, 4}, {-4, 4}, {-1.1, 1.1}}], ParametricPlot3D[ 3 {Cos[s], Sin[s], 0} + NgonCos[0, 3] (Cos[s/3] {Cos[s], Sin[s], 0} + Sin[s/3] {0, 0, 1}) + NgonSin[0, 3] (-Sin[s/3] {Cos[s], Sin[s], 0} + Cos[s/3] {0, 0, 1}), {s, 0, 6 Pi}, PlotPoints -> {201}, PlotStyle -> {RGBColor[0, 0, 0.75], Thickness[0.006]}, Exclusions -> None], ImagePadding -> {{0, 0}, {0, 0}}, Boxed -> True, BoxStyle -> {Opacity[0]}, Axes -> False, ImageSize -> 1000, PlotRange -> {{-4, 4}, {-4, 4}, {-1.1, 1.1}}]The above code uses the functions that we defined earlier:
Clear[NgonCos, NgonSin]; NgonCos[t_, nn_] := (1 - (t - Floor[t])) Cos[(2/nn) \[Pi] Floor[t]] + (t - Floor[t]) Cos[(2/nn) \[Pi] (1 + Floor[t])]; NgonSin[t_, nn_] := (1 - (t - Floor[t])) Sin[(2/nn) \[Pi] Floor[t]] + (t - Floor[t]) Sin[(2/nn) \[Pi] (1 + Floor[t])];
- It is important in life to orient oneself in the world of COLORS. To help with that, I wrote a webpage: Color Cube. And all illustrations on the Color Cube page are created in Mathematica.
- Being able to navigate the world of C O L O R S is important. To help with this, I created a page: Color Cube. All illustrations on the Color Cube page were generated using Mathematica.
-
One of the remarkable applications of trigonometric functions Cos[t] and Sin[x] is that they describe small oscillations of a stretched string. In the animation below you can see the function \[ \cos(t) \sin(x) \qquad \text{with} \qquad x \in [0,\pi] \quad \text{and} \quad t \in [0,2\pi] \] As \(t\) takes values from \(0\) to \(2\pi\), the function \(\sin(x)\) is scaled with a different number \(\cos(t)\) between \(1\) and \(-1\). In the animation below I take 241 values of \(t\) between, and including, \(0\) to \(2\pi\), create 241 images and use Mathematica to export those 241 images as an animated gif file.
Hover over the image to start the animation.
-
This is the Mathematica code used to create the above animation and export it as an animated gif file.
(* create a list of 240 images of an oscillating sine function, call \ this list SinxCost *) SinxCost = Table[Plot[Evaluate[Sin[x] Cos[t]], {x, 0, Pi}, PlotStyle -> {{Thickness[0.01], RGBColor[1, 0, 0]}}, Epilog -> { {PointSize[0.012], White, Point[#] & /@ {{0, 0}, {Pi, 0}}}, {Text["t =", {Pi/2 - 0.1, 1.26}, BaseStyle -> {FontWeight -> "Normal", FontColor -> RGBColor[1, 1, 1]}], Text[NumberForm[N[t], {3, 2}], {Pi/2, 1.26}, BaseStyle -> {FontWeight -> "Normal", FontColor -> RGBColor[1, 1, 1]}]} }, PlotRange -> {{-0.1, Pi + 0.1}, {-1.4, 1.4}}, AspectRatio -> 1/5, Frame -> True, FrameTicks -> {{{}, {}}, {Range[0, Pi, Pi/4], {}}}, Axes -> False, ImageSize -> 800, Background -> Black], {t, 0, 2 Pi, 2 Pi/240.}]; (* decide which duration you want for each frame, here 0.1 and create \ a table of these durations, call it dds *) dds = 0.1 & /@ Range[Length[SinxCost]]; (* Set the directory where you want the movie to be exported. *) SetDirectory["C:\\Dropbox\\Work\\myweb\\Courses\\Math_pages\\Math_307\ \\Pictures"] (* Export the list of 240 images as an animated gif file *) Export["SinxCostAni.gif", SinxCost, "AnimationRepetitions" -> Infinity, "ImageSize" -> 800, "DisplayDurations" -> dds] (* Export the first image as a gif file *) Export["SinxCostS1.gif", SinxCost[[1]], "ImageSize" -> 800] -
Since we worked so much with the cosine and sine function, I started playing with the graph of the sine function. I moved it around, placed it climbing along the \(y\)-axis. Then, I decided to animate each of the graphs and this turns into art.
Hover over the image to start the animation.
Hover over the image to start the animation.
Hover over the image to start the animation.
- Assignment 1 has been posted in our shared OneDrive directory \Math307\Assignments.
-
To appreciate the Beauty of Trigonometry, it is essential to understand the key feature of the trigonometric functions Cos[t] and Sin[t]:
-
The trigonometric functions Cos[t] and Sin[t] provide a parametrization of the unit circle. But that is just the beginning—most importantly, a deep understanding of the sphere and torus is impossible without Cos[t] and Sin[t].
-
-
The animation below is my attempt to illustrate how the parametrization of the unit circle works.
-
The main components of the animation are as follows:
- The black circle is the unit circle.
- The values of t $\in [0,2\pi]$ are represented by orange lengths. In each scene there are three orange lengths: the horizontal length, the vertical length and the arc length on the unit circle.
- The values of Cos[t] are green horizontal line segments.
- The values of Sin[t] are blue vertical line segments.
- The principle above is the general principle of parametric equations of curves in the plane. Given two functions (one green and one blue) of the same independent variable t, if these functions define the coordinates of a moving point, then as the independent variable t varies, the point traces a curve in the plane.
- I decided to test the general principle of parametric equations of curves in the plane on the example of regular \(n\)-gons inscribed in the unit circle: the equilateral triangle, square, regular pentagon, regular hexagon, regular heptagon, regular octagon, regular nonagon, regular decagon, regular hendecagon (or undecagon), regular dodecagon, and so on.
-
In the PNG picture below I explain the geometry that is behind the definition of
NgonCos[] and NgonSin[]
which I defined yesterday in class. In the PNG picture below I used the function
Mod[t,1]. It is just the function t - Floor[t].
-
The formulas derived in the preceding item, implemented in Mathematica are as follows:
Clear[NgonCos, NgonSin, t, nn]; NgonCos[t_, nn_] := (1 - (t - Floor[t])) Cos[(2/nn) \[Pi] Floor[t]] + (t - Floor[t]) Cos[(2/nn) \[Pi] (1 + Floor[t])]; NgonSin[t_, nn_] := (1 - (t - Floor[t])) Sin[(2/nn) \[Pi] Floor[t]] + (t - Floor[t]) Sin[(2/nn) \[Pi] (1 + Floor[t])]; - The final product of this work are the graphs of the first nine regular $n$-gons inscribed in the unit circel: the equilateral triangle, the square, and the pentagon, the hexagon, the heptagon, the octagon, the nonagon, the decagon, the hendecagon, the dodecagon, see the Regular Polygon webpage at Wolfram MathWorld.
Hover over the image to start the animation.
- The information sheet (updated)
- We will use
- To get started with Mathematica see my Mathematica page. Please watch the videos that are on my Mathematica. Watching the movies is essential for being able to organize your homework notebooks well! I will not discuss the basics of notebook structuring in class.
- In the study of the computational software system Wolfram Mathematica, we will focus on symbolic and numerical calculations, visualization, and programming in Mathematica. But Mathematica is much more than that. To read more about Mathematica see An Elementary Introduction to the Wolfram Language.
-
As we begin the Mathematica portion of this class, a natural question arises: Why learn Mathematica? This is not an easy question to answer, but below are some key aspects that make Mathematica worth your attention.
- Mathematica is a powerful computational tool that can handle a wide range of mathematical problems, from basic algebra to advanced calculus and beyond.
- Unlike many other mathematical software systems, Mathematica excels in symbolic computation, allowing you to manipulate mathematical expressions and equations symbolically, closely resembling abstract mathematical thinking and structures.
- Mathematica offers powerful visualization tools, allowing you to create compelling graphics that enhance the understanding of mathematical concepts and effectively illustrate abstract mathematical results, fostering a varied and engaging mathematical learning experience.
- Mathematica is a high-level programming language that offers an extensive array of predefined functions, designed to simplify and streamline tasks that are commonly encountered in mathematical and technical computing. My impression is that this makes it more accessible and user-friendly compared to other mathematical software, enabling users to achieve complex objectives with greater ease.
- A lot of help is available on-line, for example Mathematica Stack Exchange, Wolfram Community and ChatGPT is quite good at offering help with Mathematica questions.
- Mathematica makes solving mathematical problems more efficient. How? For problems involving symbolic manipulation, we can perform symbolic manipulations in Mathematica exactly. For problems in which symbolic manipulations are inefficient, numerical approximations can be performed. Additionally, powerful graphical visualizations help guide the problem-solving process, offering deeper insights.
-
I have enjoyed the interaction between my mind and computers since I first started using them in the early 1990s. Recently, I came across a powerful metaphor for this relationship, expressed by Steve Jobs. In an old interview, he illustrated the usefulness of computers with a compelling analogy: "For me, a computer has always been a bicycle for the mind." That perfectly describes Mathematica and other modern tools like ChatGPT. Isn't that wonderful?
See the Bicycle for the Mind video. Or, a longer
version.
- I am convinced that your mathematical learning experience will be enriched if you engage in mathematical explorations using technology.
-
I recently encountered a fascinating geometric fact online: Imagine two squares where a vertex of the larger square is positioned at the center of the smaller square. Regardless of how these two squares are positioned, the area of their intersection remains constant. My description might not fully capture the beauty of this fact — indeed, an animation is worth a thousand words. How am I to make an animation? I must use technology. Here is an animation created in Mathematica.
Hover over the image to start the animation.
-
I should have left it as an exercise for you to figure out why what I claim in the preceding item is true. But, the solution supported by a Mathematica animation might indicate why using technology can be powerful tool in communicating Mathematics.
Hover over the image to start the animation.
