# Seven Touching Infinite Cylinders

Posted 9 years ago
2702 Views
|
1 Reply
|
5 Total Likes
|
 In the paper Seven mutually touching infinite cylinders (arxiv), two solutions are given. Here they are in Mathematica. Graphics3D[ Tube[#, 1] & /@ {{{-3.30042,0.,-1.},{22.5284,0.,-1.}}, {{0.,-7.96597,1},{0.,1.82741,1.}}, {{-5.2998,-9.79317,-1.46472},{22.5284,-0.500337,0.936405}}, {{-3.30042,-1.72312,-2.01532},{9.77293,-3.90866,1.6938}}, {{-1.35632,0.443258,3.64979},{12.167,-2.59978,-1.45537}}, {{-3.88208,-7.41485,-0.411606},{11.7311,-0.688465,-2.87777}}, {{-5.46343,-8.8495,-3.22048},{-1.62876,1.82741,2.16067}}}, Boxed->False]  Graphics3D[Tube[#,1]&/@{{{-6.49925,0.,-1.},{4.44344,0.,-1.}}, {{0.,-5.56083,1.},{0.,8.75284,1.}}, {{1.28949,13.5583,11.1955},{2.22276,-4.96793,-2.10446}}, {{-4.63263,-0.427663,-4.09331},{1.89964,14.6892,9.66297}}, {{-4.30216,-3.20887,-0.248212},{1.30071,8.30707,4.92139}}, {{0.591434,9.59278,2.94502},{7.87771,-9.28969,-0.806615}}, {{-6.49925,-0.743111,-2.85682},{6.96103,-9.96972,0.83572}}}, Boxed-> False] 
1 Reply
Sort By:
Posted 9 years ago
 This would be nice to 3D print with tubes diameter slightly increased for holding them together Tube[#, 1.1] &.
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments