// retract.fe // Surface Evolver datafile for // J. Frank Adams' deformation retract soap film // (appendix of Reifenberg, E.R., Solution of the Plateau problem for // m-dimensional surfaces of varying topological type. Acta Math. 104, // 1-92 (1960)). parameter ht = .2 // ring height parameter rad = 1 // ring radius parameter sep = 2 // ring centers from origin #define th .2 // opening angle boundary 1 parameters 1 // right top x1: rad*sin(p1) x2: sep - rad*cos(p1) x3: ht boundary 2 parameters 1 // right lower x1: rad*sin(p1) x2: sep - rad*cos(p1) x3: -ht boundary 3 parameters 1 // left top x1: -rad*sin(p1) x2: rad*cos(p1) - sep x3: ht boundary 4 parameters 1 // left bottom x1: -rad*sin(p1) x2: rad*cos(p1) - sep x3: -ht vertices 1 th boundary 1 fixed 2 pi/2 boundary 1 fixed 3 pi boundary 1 fixed 4 3*pi/2 boundary 1 fixed 5 2*pi-th boundary 1 fixed 6 th boundary 2 fixed 7 pi/2 boundary 2 fixed 9 pi boundary 2 fixed 10 3*pi/2 boundary 2 fixed 11 2*pi-th boundary 2 fixed 12 th boundary 3 fixed 13 pi/2 boundary 3 fixed 14 pi boundary 3 fixed 15 3*pi/2 boundary 3 fixed 16 2*pi-th boundary 3 fixed 17 th boundary 4 fixed 18 pi/2 boundary 4 fixed 19 pi boundary 4 fixed 20 3*pi/2 boundary 4 fixed 21 2*pi-th boundary 4 fixed 22 0 sep-1-.2 0 fixed 23 0 -(sep-1-.2) 0 fixed 24 0 0 1 fixed 25 -.15 0 .8 fixed 26 .15 0 .8 fixed 27 -.15 0 -.8 fixed 28 0 0 -1 fixed 29 .15 0 -.8 fixed 30 0 sep-rad 0 31 rad sep 0 32 0 sep+rad 0 33 -rad sep 0 34 0 0 .9 35 0 0 -.9 36 0 rad-sep 0 37 -rad -sep 0 38 0 -rad-sep 0 39 rad -sep 0 edges 1 1 2 boundary 1 fixed 2 2 3 boundary 1 fixed 3 3 4 boundary 1 fixed 4 4 5 boundary 1 fixed 5 6 7 boundary 2 fixed 6 7 9 boundary 2 fixed 7 9 10 boundary 2 fixed 8 10 11 boundary 2 fixed 9 12 13 boundary 3 fixed 10 13 14 boundary 3 fixed 11 14 15 boundary 3 fixed 12 15 16 boundary 3 fixed 13 17 18 boundary 4 fixed 14 18 19 boundary 4 fixed 15 19 20 boundary 4 fixed 16 20 21 boundary 4 fixed 17 30 31 18 31 32 19 32 33 20 33 30 21 5 30 22 11 30 23 6 30 24 1 30 25 2 31 26 7 31 27 3 32 28 9 32 29 4 33 30 10 33 31 30 34 32 24 34 33 25 34 34 26 34 35 34 36 36 12 36 37 16 36 38 17 36 39 21 36 40 36 37 41 37 38 42 38 39 43 39 36 44 13 37 45 18 37 46 14 38 47 19 38 48 15 39 49 20 39 50 36 35 51 27 35 52 28 35 53 29 35 54 35 30 55 5 24 fixed 56 24 16 fixed 57 22 25 fixed 58 25 12 fixed 59 1 26 fixed 60 26 23 fixed 61 23 29 fixed 62 17 27 fixed 63 21 28 fixed 64 28 11 fixed 65 27 22 fixed 66 29 6 fixed 67 22 30 68 23 36 faces 1 -1 24 17 -25 2 -17 -23 5 26 3 27 -18 -25 2 4 -18 -26 6 28 5 3 29 -19 -27 6 7 30 -19 -28 7 4 21 -20 -29 8 8 22 -20 -30 9 17 18 19 20 10 55 32 -31 -21 11 31 -33 -57 67 12 31 -34 -59 24 13 -32 56 37 -35 14 58 36 -35 -33 15 35 -68 -60 34 16 9 44 -40 -36 17 13 45 -40 -38 18 10 46 -41 -44 19 14 47 -41 -45 20 11 48 -42 -46 21 15 49 -42 -47 22 12 37 -43 -48 23 16 39 -43 -49 24 68 50 -53 -61 25 63 52 -50 -39 26 50 -51 -62 38 27 54 -22 -64 52 28 65 67 -54 -51 29 66 23 -54 -53 30 40 41 42 43 read hessian_normal // Typical evolution gogo := { l 1.0; g 10; t .1; u; g 10; hessian; V; V; hessian; r; g 10; hessian; hessian; r; g 10; hessian; hessian; }