Yacht
Yacht
Load Eos
Load Eos
In[]:=
<<EosLoader.wl
Eos3.8.0 (October 13,2024) running under Mathematica 14.1.0 for Mac OS X ARM (64-bit) (July 16, 2024) on Mon 14 Oct 2024 18:18:02.
This version is effective until March 31,2025.
Construction
Construction
In[]:=
SetOptions[ShowOrigami,Gap->0.5];
In[]:=
EosSession["Yacht"];
In[]:=
NewOrigami[4];
In[]:=
HO["D","B"]
Yacht/Origami: Step 2
Out[]=
In[]:=
Unfold[]
Yacht/Origami: Step 3
Out[]=
In[]:=
HO["D","CA","C"]
Yacht/Origami: Step 3
Out[]=
,
In[]:=
HO[FoldLine1]
Yacht/Origami: Step 4
Out[]=
In[]:=
Unfold[]
Yacht/Origami: Step 5
Out[]=
In[]:=
HO["D","CE","C"]
Yacht/Origami: Step 5
Out[]=
,
In[]:=
HO[FoldLine1]
Yacht/Origami: Step 6
Out[]=
In[]:=
HO["CA",Handle"F"]
Yacht/Origami: Step 7
Out[]=
In[]:=
HO["AC","F",Handle"A"]
Yacht/Origami: Step 8
Out[]=
In[]:=
Unfold[]
Yacht/Origami: Step 9
Out[]=
In[]:=
HO["AF","IF"]
Yacht/Origami: Step 9
Out[]=
,
In[]:=
HO["AF","IF",FoldLine2]
Yacht/Origami: Step 10
Out[]=
In[]:=
Unfold[]
Yacht/Origami: Step 11
Out[]=