{VERSION 4 0 "IBM INTEL NT" "4.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Ou tput" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4785 "restart: with(plot s): with(plottools):\n C:= array(0..47,[\n [ -13.0 00 , 6.000 , 1.000 ] , # 0.\n [ -13.000 , 6 .000 , 6.000 ] , # 1.\n [ 13.000 , 6.000 , \+ 6.000 ] , # 2.\n [ 13.000 , 6.000 , -13.000 ] \+ , # 3.\n [ 8.000 , 6.000 , -13.000 ] , # 4. \n [ 8.000 , 6.000 , 1.000 ] , # 5.\n \+ [ -8.000 , 1.000 , 1.000 ] , # 6.\n [ \+ -8.000 , 1.000 , 6.000 ] , # 7.\n [ 13.000 , 1.000 , 6.000 ] , # 8.\n [ 13.000 , 1.0 00 , -8.000 ] , # 9.\n [ 13.000 , -6.000 , -8 .000 ] , # 10.\n [ 13.000 , -6.000 , -13.000 ] , \+ # 11.\n [ 8.000 , 1.000 , 1.000 ] , # 12.\n [ 8.000 , 1.000 , -8.000 ] , # 13.\n \+ [ 8.000 , -1.000 , -13.000 ] , # 14.\n [ \+ 8.000 , -1.000 , -8.000 ] , # 15.\n [ -6.000 , -6.000 , -13.000 ] , # 16.\n [ -6.000 , -1.000 , -13.000 ] , # 17.\n [ -1.000 , -6.000 , -8.0 00 ] , # 18.\n [ -1.000 , -1.000 , -8.000 ] , \+ # 19.\n [ -13.000 , -8.000 , 1.000 ] , # 20.\n \+ [ -13.000 , -13.000 , 6.000 ] , # 21.\n \+ [ -8.000 , -8.000 , 1.000 ] , # 22.\n [ - 8.000 , -13.000 , 6.000 ] , # 23.\n [ -6.000 , \+ -6.000 , 13.000 ] , # 24.\n [ -6.000 , 13.000 , 13.000 ] , # 25.\n [ -6.000 , 13.000 , 8.000 ] , # 26.\n [ -6.000 , -1.000 , 8.000 ] , # \+ 27.\n [ -1.000 , -6.000 , 13.000 ] , # 28.\n \+ [ -1.000 , 8.000 , 13.000 ] , # 29.\n \+ [ 6.000 , 8.000 , 13.000 ] , # 30.\n [ 6. 000 , 13.000 , 13.000 ] , # 31.\n [ -1.000 , - 1.000 , 8.000 ] , # 32.\n [ -1.000 , 8.000 , \+ 8.000 ] , # 33.\n [ 1.000 , 13.000 , 8.000 ] , # 34.\n [ 1.000 , 8.000 , 8.000 ] , # 35 .\n [ 6.000 , 13.000 , -6.000 ] , # 36.\n \+ [ 1.000 , 13.000 , -6.000 ] , # 37.\n [ \+ 6.000 , 8.000 , -1.000 ] , # 38.\n [ 1.00 0 , 8.000 , -1.000 ] , # 39.\n [ 6.000 , -13. 000 , -6.000 ] , # 40.\n [ -13.000 , -13.000 , - 6.000 ] , # 41.\n [ -13.000 , -8.000 , -6.000 ] , # 42.\n [ 1.000 , -8.000 , -6.000 ] , # 43. \n [ 6.000 , -13.000 , -1.000 ] , # 44.\n \+ [ -8.000 , -13.000 , -1.000 ] , # 45.\n [ \+ 1.000 , -8.000 , -1.000 ] , # 46.\n [ -8.000 , -8.000 , -1.000 ] # 47.\n ]): # Ennyi pontunk \+ van!\n lap:= array(1..24, [\n [ 12, 13, 9, 8, \+ 7, 6 ] , # 1. lap sz\241ne: 2\n [ 15, 19, 18, \+ 10, 9, 13 ] , # 2. lap sz\241ne: 2\n [ 32, 33, \+ 29, 28, 18, 19 ] , # 3. lap sz\241ne: 2\n [ 35, \+ 39, 38, 30, 29, 33 ] , # 4. lap sz\241ne: 2\n [ \+ 46, 47, 45, 44, 38, 39 ] , # 5. lap sz\241ne: 2\n \+ [ 22, 6, 7, 23, 45, 47 ] , # 6. lap sz\241ne: 2\n \+ [ 6, 22, 20, 0, 5, 12 ] , # 7. lap sz\241ne: 3\n \+ [ 13, 12, 5, 4, 14, 15 ] , # 8. lap sz\241ne: \+ 3\n [ 19, 15, 14, 17, 27, 32 ] , # 9. lap sz\241 ne: 3\n [ 33, 32, 27, 26, 34, 35 ] , # 10. lap s z\241ne: 3\n [ 39, 35, 34, 37, 43, 46 ] , # 11. \+ lap sz\241ne: 3\n [ 47, 46, 43, 42, 20, 22 ] , # \+ 12. lap sz\241ne: 3\n [ 5, 0, 1, 2, 3, 4 ] \+ , # 13. lap sz\241ne: 1\n [ 14, 4, 3, 11, 16, \+ 17 ] , # 14. lap sz\241ne: 1\n [ 27, 17, 16, 24 , \+ 25, 26 ] , # 15. lap sz\241ne: 1\n [ 34, 26, 25, \+ 31, 36, 37 ] , # 16. lap sz\241ne: 1\n [ 43, 37, \+ 36, 40, 41, 42 ] , # 17. lap sz\241ne: 1\n [ 20, \+ 42, 41, 21, 1, 0 ] , # 18. lap sz\241ne: 1\n [ \+ 7, 8, 2, 1, 21, 23 ] , # 19. lap sz\241ne: 0\n \+ [ 9, 10, 11, 3, 2, 8 ] , # 20. lap sz\241ne: 0\n \+ [ 18, 28, 24, 16, 11, 10 ] , # 21. lap sz\241ne: 0\n \+ [ 29, 30, 31, 25, 24, 28 ] , # 22. lap sz\241ne: \+ 0\n [ 38, 44, 40, 36, 31, 30 ] , # 23. lap sz\241 ne: 0\n [ 45, 23, 21, 41, 40, 44 ] # 24. lap s z\241ne: 0\n ]): # Ennyi soksz\366g\374nk van ! \n " }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the n ame changecoords has been redefined\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "felulet:=polygonplot3d([seq([seq(\n C[lap[i][ k]],k=1..6)],i=1..24)],scaling=constrained):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "q:=0: display(felulet,orientation=[q+130,q+72]); " }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 107 "display 3d(seq(display(felulet,orientation=[2*q+130,2*q+72]),q=0..180),scaling =constrained,insequence=true);" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "felulet;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 39 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }