Wolfram Summer Camp 2018: Implementing a Simple One Vertex Demonstration into Mathematica
Author
Anugrah Chemparathy
Title
Wolfram Summer Camp 2018: Implementing a Simple One Vertex Demonstration into Mathematica
Description
Wolfram Summer Camp 2018: Implementing a Simple One Vertex Demonstration into Mathematica
Category
Essays, Posts & Presentations
Keywords
Wolfram Summer Camp 2018
URL
http://www.notebookarchive.org/2018-12-53xcnz9/
DOI
https://notebookarchive.org/2018-12-53xcnz9
Date Added
2018-12-11
Date Last Modified
2018-12-11
File Size
1.61 megabytes
Supplements
Rights
Redistribution rights reserved
Download
Open in Wolfram Cloud
WOLFRAM SUMMER CAMP 2018
Last modified on: Monday, July 9, 2018 at 15:03
Author Info
Name:
Anugrah Chemparathy
Mentor:
Michael Kaminsky
End of Camp Presentation Content
Title of project:
Implementing a Simple One Vertex Demonstration into Mathematica
Goal of the project:
Take a single point in the interior of a square and fold a simple crease pattern involving the point
Add the most representative image of your project here. (We recommend just 1 image, if you add more, we will make a collage of the images.)
Image:
|  | ||||||||||||||||||||||||
| |||||||||||||||||||||||||
Summary of Results:
I successfully implemented the demonstration and was able to add color editors and opacity filters. The new functions work well and are suitable for dynamic calculation.
Future work:
•Develop an algorithm that allows the computer to start at one polygon somewhere in the pattern and find a path through the pattern that reaches every single other polygon exactly once. This would be the first step towards implementing a comprehensive origami folding program.
•Create some more complex/intensive single vertex demonstrations in the Wolfram Language.
•Create some more complex/intensive single vertex demonstrations in the Wolfram Language.
Additional Code Content
Following is a plot of all the important code putting together the various functions in order to create the final folded form.
Manipulate[Row[{Graphics[{Style[RegularPolygon[Sqrt[2],4],EdgeForm[Thick],White],Blue,Dashed,Line[{{-1,-1},p}],Line[{{-1,1},p}],Line[{{1,1},p}],Red,Dashing[None],Line[{p,findSquareEdgeIntersect[findDirectionAngle[p][[1]],p]}]},PlotRange1,PlotLabelp,PlotRangePaddingNone,ImageSize{290,290}],FoldedShape[p,Color1,Color2,Opacity1,Opacity2,ImageSize{290,290}]}],{{p,{0,0}},{-.99,-.99},{.99,.99},Locator},{Color1,{Red,Blue,Black,Green,Yellow}},{Color2,{Red,Blue,Black,Green,Yellow}},{{Opacity1,0.3},0,1},{{Opacity2,0.3},0,1}]
| | ||||||||||||||||||||||||
| |||||||||||||||||||||||||
Note: Everything above this bar is in your 2 minute presentation. Make sure it fits on 2 slides.
Preview Presentation
Detailed Project Notes
Main Results in Detail
Main Results in Detail
The demonstration was implemented.
Code
Code
In[]:=
Additional Text Content
Additional Text Content
Kawasaki’s Theorem states that the sum of every odd angle is 180 degrees. The same holds for even angles. Using this, the fourth line was generated, and the polygons that they split the square into were reflected until the shape they formed represented the final folded shape of the origami.
Conclusions in Detail
Conclusions in Detail
The methodology works well and the individual functions could be put together efficiently to make other similar demonstrations.
All Visualizations
All Visualizations
| | ||||||||||||||||||||||||
| |||||||||||||||||||||||||
Data Sources Links/References
Data Sources Links/References
N/A
Background Info Links/References
Background Info Links/References
Keywords
Keywords
Provide keywords as items
◼
Origami
◼
Geometry
Other information
Other information
The original demonstration is here:
https://rabbitear.org/
https://rabbitear.org/
Cite this as: Anugrah Chemparathy, "Wolfram Summer Camp 2018: Implementing a Simple One Vertex Demonstration into Mathematica" from the Notebook Archive (2018), https://notebookarchive.org/2018-12-53xcnz9
Download
