Warrior’s Helmet
Warrior’s Helmet
Load Eos
Load Eos
In[]:=
<<EosLoader.wl
Eos3.7.4 (December 12,2023) running under Mathematica 13.3.0 for Mac OS X ARM (64-bit) (June 3, 2023) on Fri 15 Dec 2023 10:05:59.
This version is effective until June 30,2024.
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[]=