Warrior’s Helmet
Warrior’s Helmet
Load Eos
Load Eos
In[]:=
Needs["Eos`","EosLoader`"]
Eos3.7.1 (March 5,2023) running under Mathematica 13.2.0 for Mac OS X ARM (64-bit) (November 18, 2022) on Wed 15 Mar 2023 20:56:02.
Warrior’s Helmet
Warrior’s Helmet
In[]:=
EosSession[];
The shape is parametrized with two values t1 and t2. The following case uses:
In[]:=
{t1,t2}={0.7,0.8};
In[]:=
NewOrigami[]
Step 1
Out[]=
In[]:=
HO["A","B"]!
Step 3
Out[]=
In[]:=
HO["C","A",Mark->{{"EF","O"}}]
Step 4
Out[]=
In[]:=
HO["B","C"]
Step 5
Out[]=
In[]:=
HO["D","B"]
Step 6
Out[]=
In[]:=
ShowLayeredFace[]
Step 6
Out[]=
1,{4,13},
,2,{7,11},
,3,{10},
,4,{12},
In[]:=
HO["B","O",Mark->{{"DO","O0"}}]
Step 7
Out[]=
In[]:=
HO["D","O",Mark->{{"DO","O1"}}]
Step 8
Out[]=
In[]:=
ShowLayeredFace[]
Step 8
Out[]=
1,{15,23},
,2,{9,27},
,3,{8,26},
,4,{14,22},
,5,{10},,6,{12},
In[]:=
NewVec["X1"->CurryNewVec[{"G","D"}][t1]];NewVec["X2"CurryNewVec[{"F","D"}][t1]];
In[]:=
ValleyFold[23,"X1O0"]
Step 9
Out[]=
In[]:=
ValleyFold[15,"O0X2"]
Step 10
Out[]=
