InsideCrimpPleatFold: examples
InsideCrimpPleatFold: examples
Load Eos
Load Eos
In[]:=
<<EosLoader.m
Eos3.7.3 (October 1,2023) running under Mathematica 13.3.0 for Mac OS X ARM (64-bit) (June 3, 2023) on Mon 2 Oct 2023 09:31:47.
This version is effective until March 31,2024.
EosNotations
EosNotations
Extra
Extra
InsideCrimpPleatFold - left-side
InsideCrimpPleatFold - left-side
InsideCrimpPleat Fold
Example1
Example1
Preparation
Preparation
In[]:=
EosSession["Pleat Fold"];
In[]:=
NewOrigami[10];
In[]:=
HO["C","A"]
Pleat Fold/Origami: Step 2
Out[]=
In[]:=
NewPoints[{"E"{0,6.0},"F"{0,4.5},"G"{6,4}}]
Pleat Fold/Origami: Step 2
Out[]=
Function call
Function call
In[]:=
Block[{$probeFold=False},InsideCrimpPleatFold[{4,6},"GD",{"E","F"}]]
Pleat Fold/Origami: Step 14
Out[]=
In[]:=
EndSession[];
Example2
Example2
Preparation
Preparation
In[]:=
EosSession["Pleat Fold"];
In[]:=
NewOrigami[10];
In[]:=
HO["C","A"]
Pleat Fold/Origami: Step 2
Out[]=
In[]:=
NewPoints[{"E"{0,6.0},"F"{0,4.5},"G"{6,4}}]
Pleat Fold/Origami: Step 2
Out[]=
Function call 2
Function call 2
In[]:=
Block[{$probeFold=True},InsideCrimpPleatFold[{4,6},"GD",{"E","F"}]]
DuplicatePoints[{Ee2$,Ff2$}]
〈e2$,f2$〉
HO[G-E]
Unfold[]
HO[G-F]
Unfold[]
FO[-π][{6,14,15},D-G]
CutEdges[{{4,6}}]
FO[-π][10,G-f2$]
InsideCrimpPleatFold - right-side
InsideCrimpPleatFold - right-side
InsideCrimpPleat Fold
Example1
Example1
Preparation
Preparation
Function call
Function call
Example3
Example3
Function call 3
Function call 3