2025.05.27.1242.58 Begin. Sn3D.exe 2025.05.24 vsn 1.0 Subroutine S12AppF2 calling DodecModel16() @L103: Dodecahedron model initialization: SA2-hVecMath16Mod.f95 @L181+ /////////////////////////////////////////////////////////////////////////////// Begin DodecModel16 printout @L374+ real(16) precision = 31 significant digits & tentatively: printouts truncate at 34 places max. ru = 1.40125853844407354467667793532201 rm = 1.30901699437494742410229341718280 ri = 1.11351636441160673519437503948687 P1 = 0.85065080835203993218154049706302 sinV1Ang = -0.18759247408507989986013934690765 -theoretical V#1 pitch Ang= -10.81231696357170629128494477447412 -best-fit value used cosV16Ang = 0.60706199820668622309539158142001 -theoretical V#16 Pitch Ang= -52.62263185935030435714286150500861 -best-fit value used Vertices: 1 =(/ 0.9822469463768460228156702752352, 0.0000000000000000000000000000000, 0.1875924740850798998601393469076/) 16 =(/ 0.6070619982066862230953915814199, 0.0000000000000000000000000000000, 0.7946544722917661229555309283276/) 1 =(/ 0.9822469463768460228156702752352, 0.0000000000000000000000000000000, 0.1875924740850798998601393469076/) 2 =(/ 0.3035309991033431115476957907087, 0.9341723589627156964511186235485, 0.1875924740850798998601393469076/) 3 =(/ -0.7946544722917661229555309283272, 0.5773502691896257645091487805025, 0.1875924740850798998601393469076/) 4 =(/ -0.7946544722917661229555309283272, -0.5773502691896257645091487805025, 0.1875924740850798998601393469076/) 5 =(/ 0.3035309991033431115476957907087, -0.9341723589627156964511186235485, 0.1875924740850798998601393469076/) 6 =(/ 0.7946544722917661229555309283272, 0.5773502691896257645091487805025, -0.1875924740850798998601393469076/) 7 =(/ -0.3035309991033431115476957907087, 0.9341723589627156964511186235485, -0.1875924740850798998601393469076/) 8 =(/ -0.9822469463768460251018613414723, -0.0000000000000000003343645932864, -0.1875924740850798998601393469076/) 9 =(/ -0.3035309991033431115476957907087, -0.9341723589627156964511186235485, -0.1875924740850798998601393469076/) 10 =(/ 0.7946544722917661229555309283272, -0.5773502691896257645091487805025, -0.1875924740850798998601393469076/) 11 =(/ 0.4911234731884230114078351376173, 0.3568220897730899319419698430464, -0.7946544722917661229555309283276/) 12 =(/ -0.1875924740850798998601393469068, 0.5773502691896257645091487805022, -0.7946544722917661229555309283276/) 13 =(/ -0.6070619982066862245083353651308, -0.0000000000000000002066486832856, -0.7946544722917661229555309283276/) 14 =(/ -0.1875924740850798998601393469068, -0.5773502691896257645091487805022, -0.7946544722917661229555309283276/) 15 =(/ 0.4911234731884230114078351376173, -0.3568220897730899319419698430464, -0.7946544722917661229555309283276/) 16 =(/ 0.6070619982066862230953915814199, 0.0000000000000000000000000000000, 0.7946544722917661229555309283276/) 17 =(/ 0.1875924740850798998601393469068, 0.5773502691896257645091487805022, 0.7946544722917661229555309283276/) 18 =(/ -0.4911234731884230114078351376173, 0.3568220897730899319419698430464, 0.7946544722917661229555309283276/) 19 =(/ -0.4911234731884230114078351376173, -0.3568220897730899319419698430464, 0.7946544722917661229555309283276/) 20 =(/ 0.1875924740850798998601393469068, -0.5773502691896257645091487805022, 0.7946544722917661229555309283276/) Face normals: 1 =(/ 0.7107605674674448583084804814248, 0.0000000000000000000000000000000, -0.3553802837337224291542402407126/) 2 =(/ 0.2196370942790218469006453438075, 0.6759734692155545707725009302296, -0.3553802837337224291542402407126/) 3 =(/ -0.5750173780127442767947125545092, 0.4177745794683934449856805815962, -0.3553802837337224291542402407126/) 4 =(/ -0.5750173780127442767947125545092, -0.4177745794683934452020858922250, -0.3553802837337224291542402407126/) 5 =(/ 0.2196370942790218469006453438075, -0.6759734692155545707725009302296, -0.3553802837337224291542402407126/) 6 =(/ 0.5750173780127442760548855845196, 0.4177745794683934450938832369106, 0.3553802837337224291542402407126/) 7 =(/ -0.2196370942790218469006453438075, 0.6759734692155545707725009302296, 0.3553802837337224291542402407126/) 8 =(/ -0.7107605674674448587657186946723, -0.0000000000000000000668729186573, 0.3553802837337224291542402407126/) 9 =(/ -0.2196370942790218469006453438075, -0.6759734692155545707725009302296, 0.3553802837337224291542402407126/) 10 =(/ 0.5750173780127442760548855845196, -0.4177745794683934450938832369106, 0.3553802837337224291542402407126/) 11 =(/ -0.0000000000000000002825887567420, -0.0000000000000000000413297366571, -0.7946544722917661229555309283276/) 12 =(/ -0.0000000000000000000000000000002, 0.0000000000000000000000000000000, 0.7946544722917661229555309283276/) CCW looking out CCW looking out Face: VertexIndex Vertex: FaceIndex Edge: vNIndex VertexIndex & ComputedEdgeLength # 1=( 1, 6,11,15,10/) # 1=( 1,10, 6/) # 1 =( 1, 6/) =( 1, 6/) : 0.71364417954617986388393968609272 # 2=( 2, 7,12,11, 6/) # 2=( 2, 6, 7/) # 2 =( 1, 2/) =( 6,11/) : 0.71364417954617986388393968609220 # 3=( 3, 8,13,12, 7/) # 3=( 3, 7, 8/) # 3 =( 1,11/) =( 11,15/) : 0.71364417954617986388393968609277 # 4=( 4, 9,14,13, 8/) # 4=( 4, 8, 9/) # 4 =( 2, 6/) =( 6, 2/) : 0.71364417954617986388393968609272 # 5=( 5,10,15,14, 9/) # 5=( 5, 9,10/) # 5 =( 6, 7/) =( 2,17/) : 0.71364417954617986388393968609220 # 6=( 6, 1,16,17, 2/) # 6=( 6, 2, 1/) # 6 =( 6,12/) =( 17,16/) : 0.71364417954617986388393968609281 # 7=( 7, 2,17,18, 3/) # 7=( 7, 3, 2/) # 7 =( 2, 7/) =( 2, 7/) : 0.71364417954617986388393968609000 # 8=( 8, 3,18,19, 4/) # 8=( 8, 4, 3/) # 8 =( 2, 3/) =( 7,12/) : 0.71364417954617986388393968609220 # 9=( 9, 4,19,20, 5/) # 9=( 9, 5, 4/) # 9 =( 2,11/) =( 12,11/) : 0.71364417954617986388393968609114 #10=( 10, 5,20,16, 1/) #10=( 10, 1, 5/) #10 =( 3, 7/) =( 7, 3/) : 0.71364417954617986388393968609272 #11=( 13,14,15,11,12/) #11=( 1, 2,11/) #11 =( 7, 8/) =( 3,18/) : 0.71364417954617986388393968609220 #12=( 19,18,17,16,20/) #12=( 2, 3,11/) #12 =( 7,12/) =( 18,17/) : 0.71364417954617986388393968609114 #13=( 3, 4,11/) #13 =( 3, 8/) =( 3, 8/) : 0.71364417954617986475540721026355 #14=( 4, 5,11/) #14 =( 3, 4/) =( 8,13/) : 0.71364417954617986434303295108969 #15=( 5, 1,11/) #15 =( 3,11/) =( 13,12/) : 0.71364417954617986488162950111961 #16=( 6,10,12/) #16 =( 4, 8/) =( 8, 4/) : 0.71364417954617986421439393369155 #17=( 7, 6,12/) #17 =( 8, 9/) =( 4,19/) : 0.71364417954617986388393968609220 #18=( 8, 7,12/) #18 =( 8,12/) =( 19,18/) : 0.71364417954617986388393968609277 #19=( 9, 8,12/) #19 =( 4, 9/) =( 4, 9/) : 0.71364417954617986388393968609272 #20=( 10, 9,12/) #20 =( 4, 5/) =( 9,14/) : 0.71364417954617986388393968609220 #21 =( 4,11/) =( 14,13/) : 0.71364417954617986454726490783317 #22 =( 5, 9/) =( 9, 5/) : 0.71364417954617986388393968609000 #23 =( 9,10/) =( 5,20/) : 0.71364417954617986388393968609220 #24 =( 9,12/) =( 20,19/) : 0.71364417954617986388393968609114 #25 =( 5,10/) =( 5,10/) : 0.71364417954617986388393968609272 #26 =( 5, 1/) =( 10,15/) : 0.71364417954617986388393968609220 #27 =( 5,11/) =( 15,14/) : 0.71364417954617986388393968609114 #28 =( 1,10/) =( 10, 1/) : 0.71364417954617986388393968609272 #29 =( 10, 6/) =( 1,16/) : 0.71364417954617986388393968609220 #30 =( 10,12/) =( 16,20/) : 0.71364417954617986388393968609281 Theoretical Edge Length= 0.7136441795461798638839396860921250 1 2 3 12345678901234567890123456789012 RMS Error= 0.289529E-18 : ^ Wikipedia Model: Phi = 1.6180339887498948482045868343655920000 dPhi = 0.6180339887498948482045868343656613000 ...vertex algebraic summary: W#: S#: Numeric values: 1 = 14 =(/-1 ,-1 ,-1 /) 2 = 4 =(/-1 ,-1 , 1 /) 3 = 12 =(/-1 , 1 ,-1 /) 4 = 3 =(/-1 , 1 , 1 /) 5 = 10 =(/ 1 ,-1 ,-1 /) 6 = 20 =(/ 1 ,-1 , 1 /) 7 = 6 =(/ 1 , 1 ,-1 /) 8 = 17 =(/ 1 , 1 , 1 /) 9 = 15 =(/ 0 ,-1*dPhi,-1*phi /) 10 = 19 =(/ 0 ,-1*dPhi, 1*phi /) 11 = 11 =(/ 0 , 1*dPhi,-1*phi /) 12 = 18 =(/ 0 , 1*dPhi, 1*phi /) 13 = 9 =(/-1*dPhi,-1*Phi , 0 /) 14 = 7 =(/-1*dPhi, 1*Phi , 0 /) 15 = 5 =(/ 1*dPhi,-1*Phi , 0 /) 16 = 2 =(/ 1*dPhi, 1*Phi , 0 /) 17 = 13 =(/-1*Phi , 0 ,-1*dPhi/) 18 = 8 =(/-1*Phi , 0 , 1*dPhi/) 19 = 1 =(/ 1*Phi , 0 ,-1*dPhi/) 20 = 16 =(/ 1*Phi , 0 , 1*dPhi/) ...scale and rotate the model: Divide by sqrj(3)= 1.73205080756887729352744634150584 and pitch down by -31.71747441146100532421390313976660 degrees. ... resulting Wicki-Vertices in Setterholm Model order: W#: 19 =(/ 0.9822469463768460228156702752351, 0.0000000000000000000000000000000, 0.1875924740850798998601393469081/) 16 =(/ 0.3035309991033431115476957907099, 0.9341723589627156964511186235480, 0.1875924740850798998601393469078/) 4 =(/ -0.7946544722917661229555309283277, 0.5773502691896257645091487805020, 0.1875924740850798998601393469072/) 2 =(/ -0.7946544722917661229555309283277, -0.5773502691896257645091487805020, 0.1875924740850798998601393469072/) 15 =(/ 0.3035309991033431115476957907099, -0.9341723589627156964511186235480, 0.1875924740850798998601393469078/) 7 =(/ 0.7946544722917661229555309283277, 0.5773502691896257645091487805020, -0.1875924740850798998601393469072/) 14 =(/ -0.3035309991033431115476957907099, 0.9341723589627156964511186235480, -0.1875924740850798998601393469078/) 18 =(/ -0.9822469463768460228156702752351, 0.0000000000000000000000000000000, -0.1875924740850798998601393469081/) 13 =(/ -0.3035309991033431115476957907099, -0.9341723589627156964511186235480, -0.1875924740850798998601393469078/) 5 =(/ 0.7946544722917661229555309283277, -0.5773502691896257645091487805020, -0.1875924740850798998601393469072/) 11 =(/ 0.4911234731884230114078351376180, 0.3568220897730899319419698430461, -0.7946544722917661229555309283274/) 3 =(/ -0.1875924740850798998601393469072, 0.5773502691896257645091487805020, -0.7946544722917661229555309283277/) 17 =(/ -0.6070619982066862230953915814196, 0.0000000000000000000000000000000, -0.7946544722917661229555309283279/) 1 =(/ -0.1875924740850798998601393469072, -0.5773502691896257645091487805020, -0.7946544722917661229555309283277/) 9 =(/ 0.4911234731884230114078351376180, -0.3568220897730899319419698430461, -0.7946544722917661229555309283274/) 20 =(/ 0.6070619982066862230953915814196, 0.0000000000000000000000000000000, 0.7946544722917661229555309283279/) 8 =(/ 0.1875924740850798998601393469072, 0.5773502691896257645091487805020, 0.7946544722917661229555309283277/) 12 =(/ -0.4911234731884230114078351376180, 0.3568220897730899319419698430461, 0.7946544722917661229555309283274/) 10 =(/ -0.4911234731884230114078351376180, -0.3568220897730899319419698430461, 0.7946544722917661229555309283274/) 6 =(/ 0.1875924740850798998601393469072, -0.5773502691896257645091487805020, 0.7946544722917661229555309283277/) Edge# W1 W2 Length Length error # 1=(/19, 7/)= 0.7136441795461798638839396860921494 0.2773D-31 # 2=(/ 7,11/)= 0.7136441795461798638839396860921494 0.2773D-31 # 3=(/11, 9/)= 0.7136441795461798638839396860921990 0.7396D-31 # 4=(/ 7,16/)= 0.7136441795461798638839396860921494 0.2773D-31 # 5=(/16, 8/)= 0.7136441795461798638839396860921494 0.2773D-31 # 6=(/ 8,20/)= 0.7136441795461798638839396860921494 0.2773D-31 # 7=(/16,14/)= 0.7136441795461798638839396860921990 0.7396D-31 # 8=(/14, 3/)= 0.7136441795461798638839396860921494 0.2773D-31 # 9=(/ 3,11/)= 0.7136441795461798638839396860921494 0.2773D-31 #10=(/14, 4/)= 0.7136441795461798638839396860921494 0.2773D-31 #11=(/ 4,12/)= 0.7136441795461798638839396860921494 0.2773D-31 #12=(/12, 8/)= 0.7136441795461798638839396860921494 0.2773D-31 #13=(/ 4,18/)= 0.7136441795461798638839396860921494 0.2773D-31 #14=(/18,17/)= 0.7136441795461798638839396860921990 0.7396D-31 #15=(/17, 3/)= 0.7136441795461798638839396860921494 0.2773D-31 #16=(/18, 2/)= 0.7136441795461798638839396860921494 0.2773D-31 #17=(/ 2,10/)= 0.7136441795461798638839396860921494 0.2773D-31 #18=(/10,12/)= 0.7136441795461798638839396860921990 0.7396D-31 #19=(/ 2,13/)= 0.7136441795461798638839396860921494 0.2773D-31 #20=(/13, 1/)= 0.7136441795461798638839396860921494 0.2773D-31 #21=(/ 1,17/)= 0.7136441795461798638839396860921494 0.2773D-31 #22=(/13,15/)= 0.7136441795461798638839396860921990 0.7396D-31 #23=(/15, 6/)= 0.7136441795461798638839396860921494 0.2773D-31 #24=(/ 6,10/)= 0.7136441795461798638839396860921494 0.2773D-31 #25=(/15, 5/)= 0.7136441795461798638839396860921494 0.2773D-31 #26=(/ 5, 9/)= 0.7136441795461798638839396860921494 0.2773D-31 #27=(/ 9, 1/)= 0.7136441795461798638839396860921494 0.2773D-31 #28=(/ 5,19/)= 0.7136441795461798638839396860921494 0.2773D-31 #29=(/19,20/)= 0.7136441795461798638839396860921990 0.7396D-31 #30=(/20, 6/)= 0.7136441795461798638839396860921494 0.2773D-31 Theoretical Edge Length= 0.7136441795461798638839396860921250 1 2 3 1234567890123456789012345678901234 RMS Error= 0.413425E-31 : ^ Graphics drawing flags: 1 111111111111 : iFaceSee 0 11111111111111111111 :iVertexSee 0 111111111111111111111111111111 : iEdgeSee ^ 1 2 3 0|123456789012345678901234567890 End of DodecModel16 printout. @L479 /////////////////////////////////////////////////////////////////////////////// 2025.05.27.1244.04 Quit(Q/q) 858 cbUserView iterations ...done.