TriangularSurfacePlot question
- To: mathgroup at smc.vnet.net
- Subject: [mg38224] TriangularSurfacePlot question
- From: Terrell Mitchell <usenet at twocedars.mailshell.com>
- Date: Thu, 5 Dec 2002 03:36:00 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
I am having problems with 4.2 finishing the plot. If I reduce the point list to 104 points, it plots ok. If I add back in one more point, it doesn't seem to finish. Any insights would be appreciated, since I am a novice using Mathematica. Read in a list of 107 points and delete some. In[13]:= d = Delete[dataList,106] Out[13]= {{0.5,0.43301,87.81},{1.5,0.43301,48.04},{2.5,0.43301,24.73}, {3.5,0.43301, 15.46},{4.5,0.43301,12.39},{5.5,0.43301,11.59},{6.5,0.43301,11.51}, {1, 1.29904,88.83},{2,1.29904,51.11},{3,1.29904,27.92}, {4,1.29904,18.67},{5, 1.29904,15.78},{6,1.29904,15.01},{7,1.29904,14.92},{1.5,2.16506, 89.46},{2.5,2.16506,53.31},{3.5,2.16506,30.08},{4.5,2.16506,20.98}, {5.5, 2.16506,18.21},{6.5,2.16506,17.51},{7.5,2.16506,17.43},{2,3.03109, 90.18},{3,3.03109,54.19},{4,3.03109,30.84},{5,3.03109,22.32}, {6,3.03109, 19.72},{7,3.03109,19.03},{8,3.03109,18.93},{2.5,3.89711,89.96},{3.5, 3.89711,55.12},{4.5,3.89711,32.23},{5.5,3.89711,24.2},{6.5,3.89711, 21.69},{7.5,3.89711,20.95},{8.5,3.89711,20.83},{3,4.76314,90.61},{4, 4.76314,55.05},{5,4.76314,33.31},{6,4.76314,25.32}, {7,4.76314,22.58},{8, 4.76314,21.68},{9,4.76314,21.54},{3.5,5.62916,89.8},{4.5,5.62916, 54.14},{5.5,5.62916,32.78},{6.5,5.62916,24.83},{7.5,5.62916,21.75}, {8.5, 5.62916,20.67},{9.5,5.62916,20.52},{4,6.49519,89.76}, {5,6.49519,55.25},{6, 6.49519,34.9},{7,6.49519,26.61},{8,6.49519,22.98},{9,6.49519,21.65}, {10, 6.49519,21.48},{4.5,7.36121,89.83},{5.5,7.36121,56.6},{6.5,7.36121, 37.11},{7.5,7.36121,27.96},{8.5,7.36121,23.64},{9.5,7.36121,22.14}, {10.5, 7.36121,21.98},{5,8.22724,90.19},{6,8.22724,59.26},{7,8.22724,40.1}, {8, 8.22724,29.73},{9,8.22724,24.8},{10,8.22724,23.26}, {11,8.22724,23.1},{5.5, 9.09326,90.44},{6.5,9.09326,61.04},{7.5,9.09326,40.56},{8.5,9.09326, 28.6},{9.5,9.09326,23.28},{10.5,9.09326,21.81},{11.5,9.09326,21.66}, {6, 9.95929,90.81},{7,9.95929,61.87},{8,9.95929,39.21}, {9,9.95929,26.43},{10, 9.95929,21.27},{11,9.95929,19.97},{12,9.95929,19.83},{6.5,10.8253, 91.64},{7.5,10.8253,62.77},{8.5,10.8253,38.95},{9.5,10.8253,26.4}, {10.5, 10.8253,21.67},{11.5,10.8253,20.53},{12.5,10.8253,20.41},{7,11.6913, 91.56},{8,11.6913,61.7},{9,11.6913,36.07},{10,11.6913,23.33}, {11,11.6913, 19.29},{12,11.6913,18.28},{13,11.6913,18.18},{7.5,12.5574,91},{8.5, 12.5574,58.38},{9.5,12.5574,30.95},{10.5,12.5574,18.12}, {11.5,12.5574, 14.36},{12.5,12.5574,13.43},{13.5,12.5574,13.34}} In[14]:= TriangularSurfacePlot[d] Out[14]= $Aborted I had to abort it when there were 105 points. In[15]:= d = Delete[d,105] Out[15]= {{0.5,0.43301,87.81},{1.5,0.43301,48.04},{2.5,0.43301,24.73}, {3.5,0.43301, 15.46},{4.5,0.43301,12.39},{5.5,0.43301,11.59},{6.5,0.43301,11.51}, {1, 1.29904,88.83},{2,1.29904,51.11},{3,1.29904,27.92}, {4,1.29904,18.67},{5, 1.29904,15.78},{6,1.29904,15.01},{7,1.29904,14.92},{1.5,2.16506, 89.46},{2.5,2.16506,53.31},{3.5,2.16506,30.08},{4.5,2.16506,20.98}, {5.5, 2.16506,18.21},{6.5,2.16506,17.51},{7.5,2.16506,17.43},{2,3.03109, 90.18},{3,3.03109,54.19},{4,3.03109,30.84},{5,3.03109,22.32}, {6,3.03109, 19.72},{7,3.03109,19.03},{8,3.03109,18.93},{2.5,3.89711,89.96},{3.5, 3.89711,55.12},{4.5,3.89711,32.23},{5.5,3.89711,24.2},{6.5,3.89711, 21.69},{7.5,3.89711,20.95},{8.5,3.89711,20.83},{3,4.76314,90.61},{4, 4.76314,55.05},{5,4.76314,33.31},{6,4.76314,25.32}, {7,4.76314,22.58},{8, 4.76314,21.68},{9,4.76314,21.54},{3.5,5.62916,89.8},{4.5,5.62916, 54.14},{5.5,5.62916,32.78},{6.5,5.62916,24.83},{7.5,5.62916,21.75}, {8.5, 5.62916,20.67},{9.5,5.62916,20.52},{4,6.49519,89.76}, {5,6.49519,55.25},{6, 6.49519,34.9},{7,6.49519,26.61},{8,6.49519,22.98},{9,6.49519,21.65}, {10, 6.49519,21.48},{4.5,7.36121,89.83},{5.5,7.36121,56.6},{6.5,7.36121, 37.11},{7.5,7.36121,27.96},{8.5,7.36121,23.64},{9.5,7.36121,22.14}, {10.5, 7.36121,21.98},{5,8.22724,90.19},{6,8.22724,59.26},{7,8.22724,40.1}, {8, 8.22724,29.73},{9,8.22724,24.8},{10,8.22724,23.26}, {11,8.22724,23.1},{5.5, 9.09326,90.44},{6.5,9.09326,61.04},{7.5,9.09326,40.56},{8.5,9.09326, 28.6},{9.5,9.09326,23.28},{10.5,9.09326,21.81},{11.5,9.09326,21.66}, {6, 9.95929,90.81},{7,9.95929,61.87},{8,9.95929,39.21}, {9,9.95929,26.43},{10, 9.95929,21.27},{11,9.95929,19.97},{12,9.95929,19.83},{6.5,10.8253, 91.64},{7.5,10.8253,62.77},{8.5,10.8253,38.95},{9.5,10.8253,26.4}, {10.5, 10.8253,21.67},{11.5,10.8253,20.53},{12.5,10.8253,20.41},{7,11.6913, 91.56},{8,11.6913,61.7},{9,11.6913,36.07},{10,11.6913,23.33}, {11,11.6913, 19.29},{12,11.6913,18.28},{13,11.6913,18.18},{7.5,12.5574,91},{8.5, 12.5574,58.38},{9.5,12.5574,30.95},{10.5,12.5574,18.12}, {11.5,12.5574, 14.36},{12.5,12.5574,13.43}} In[16]:= TriangularSurfacePlot[d] This plot worked, with 104 points. The real data has 196 points, and I created a triangulation list for it, but it still doesn't finish. << Graphics`Animation` << DiscreteMath`ComputationalGeometry` << Graphics`ContourPlot3D` << Graphics`Graphics3D` << RealTime3D` triF = OpenRead["d:\\triangle\\triData.txt"] triList = ReadList[triF, Number, RecordLists -> True] Close[triF] {First[#], Rest[#]} & /@ triList dataF = OpenRead["d:\\triangle\\mathData.txt"] dataList = ReadList[dataF, Number, RecordLists->True] Close[dataF] TriangularSurfacePlot[dataList, triList] Here is the data from the files. There are 7 points for each Y coordinate. mathData.txt .5 .43301 87.81 1.5 .43301 48.04 2.5 .43301 24.73 3.5 .43301 15.46 4.5 .43301 12.39 5.5 .43301 11.59 6.5 .43301 11.51 1 1.29904 88.83 2 1.29904 51.11 3 1.29904 27.92 4 1.29904 18.67 5 1.29904 15.78 6 1.29904 15.01 7 1.29904 14.92 1.5 2.16506 89.46 2.5 2.16506 53.31 3.5 2.16506 30.08 4.5 2.16506 20.98 5.5 2.16506 18.21 6.5 2.16506 17.51 7.5 2.16506 17.43 2 3.03109 90.18 3 3.03109 54.19 4 3.03109 30.84 5 3.03109 22.32 6 3.03109 19.72 7 3.03109 19.03 8 3.03109 18.93 2.5 3.89711 89.96 3.5 3.89711 55.12 4.5 3.89711 32.23 5.5 3.89711 24.2 6.5 3.89711 21.69 7.5 3.89711 20.95 8.5 3.89711 20.83 3 4.76314 90.61 4 4.76314 55.05 5 4.76314 33.31 6 4.76314 25.32 7 4.76314 22.58 8 4.76314 21.68 9 4.76314 21.54 3.5 5.62916 89.8 4.5 5.62916 54.14 5.5 5.62916 32.78 6.5 5.62916 24.83 7.5 5.62916 21.75 8.5 5.62916 20.67 9.5 5.62916 20.52 4 6.49519 89.76 5 6.49519 55.25 6 6.49519 34.9 7 6.49519 26.61 8 6.49519 22.98 9 6.49519 21.65 10 6.49519 21.48 4.5 7.36121 89.83 5.5 7.36121 56.6 6.5 7.36121 37.11 7.5 7.36121 27.96 8.5 7.36121 23.64 9.5 7.36121 22.14 10.5 7.36121 21.98 5 8.22724 90.19 6 8.22724 59.26 7 8.22724 40.1 8 8.22724 29.73 9 8.22724 24.8 10 8.22724 23.26 11 8.22724 23.1 5.5 9.09326 90.44 6.5 9.09326 61.04 7.5 9.09326 40.56 8.5 9.09326 28.6 9.5 9.09326 23.28 10.5 9.09326 21.81 11.5 9.09326 21.66 6 9.95929 90.81 7 9.95929 61.87 8 9.95929 39.21 9 9.95929 26.43 10 9.95929 21.27 11 9.95929 19.97 12 9.95929 19.83 6.5 10.82531 91.64 7.5 10.82531 62.77 8.5 10.82531 38.95 9.5 10.82531 26.4 10.5 10.82531 21.67 11.5 10.82531 20.53 12.5 10.82531 20.41 7 11.69134 91.56 8 11.69134 61.7 9 11.69134 36.07 10 11.69134 23.33 11 11.69134 19.29 12 11.69134 18.28 13 11.69134 18.18 7.5 12.55736 91 8.5 12.55736 58.38 9.5 12.55736 30.95 10.5 12.55736 18.12 11.5 12.55736 14.36 12.5 12.55736 13.43 13.5 12.55736 13.34 8 13.42339 90.9 9 13.42339 56.33 10 13.42339 26.81 11 13.42339 15.14 12 13.42339 11.75 13 13.42339 10.93 14 13.42339 10.84 8.5 14.28941 90.9 9.5 14.28941 55.66 10.5 14.28941 25.44 11.5 14.28941 15.25 12.5 14.28941 12.29 13.5 14.28941 11.58 14.5 14.28941 11.5 9 15.15544 90.45 10 15.15544 52.47 11 15.15544 23.31 12 15.15544 14.03 13 15.15544 11.42 14 15.15544 10.77 15 15.15544 10.71 9.5 16.02146 90.87 10.5 16.02146 49.24 11.5 16.02146 22.63 12.5 16.02146 14.33 13.5 16.02146 12.05 14.5 16.02146 11.44 15.5 16.02146 11.38 10 16.88749 89.14 11 16.88749 46.44 12 16.88749 20.47 13 16.88749 12.81 14 16.88749 10.69 15 16.88749 10.13 16 16.88749 10.07 10.5 17.75351 87.86 11.5 17.75351 44.71 12.5 17.75351 19.29 13.5 17.75351 12.39 14.5 17.75351 10.38 15.5 17.75351 9.84 16.5 17.75351 9.78 11 18.61954 86.56 12 18.61954 40.54 13 18.61954 15.55 14 18.61954 9.21 15 18.61954 7.3 16 18.61954 6.8 17 18.61954 6.75 11.5 19.48556 86.02 12.5 19.48556 38.56 13.5 19.48556 14.77 14.5 19.48556 8.69 15.5 19.48556 6.91 16.5 19.48556 6.43 17.5 19.48556 6.38 12 20.35159 85.69 13 20.35159 37.94 14 20.35159 15.15 15 20.35159 9.15 16 20.35159 7.45 17 20.35159 6.99 18 20.35159 6.94 12.5 21.21761 85.1 13.5 21.21761 38.01 14.5 21.21761 16.07 15.5 21.21761 10.12 16.5 21.21761 8.53 17.5 21.21761 8.08 18.5 21.21761 8.03 13 22.08364 85.1 14 22.08364 39.15 15 22.08364 16.87 16 22.08364 10.94 17 22.08364 9.41 18 22.08364 8.96 19 22.08364 8.91 13.5 22.94966 86.61 14.5 22.94966 43.97 15.5 22.94966 21.46 16.5 22.94966 15.86 17.5 22.94966 14.36 18.5 22.94966 13.91 19.5 22.94966 13.86 14 23.81569 86.8 15 23.81569 45.92 16 23.81569 24.38 17 23.81569 19.07 18 23.81569 17.58 19 23.81569 17.13 20 23.81569 17.08 triData.txt 1 2 8 2 1 3 9 8 3 2 4 10 9 4 3 5 11 10 5 4 6 12 11 6 5 7 13 12 7 6 14 13 8 1 2 9 15 9 8 2 3 10 16 15 10 9 3 4 11 17 16 11 10 4 5 12 18 17 12 11 5 6 13 19 18 13 12 6 7 14 20 19 14 13 7 21 20 15 8 9 16 22 16 15 9 10 17 23 22 17 16 10 11 18 24 23 18 17 11 12 19 25 24 19 18 12 13 20 26 25 20 19 13 14 21 27 26 21 20 14 28 27 22 15 16 23 29 23 22 16 17 24 30 29 24 23 17 18 25 31 30 25 24 18 19 26 32 31 26 25 19 20 27 33 32 27 26 20 21 28 34 33 28 27 21 35 34 29 22 23 30 36 30 29 23 24 31 37 36 31 30 24 25 32 38 37 32 31 25 26 33 39 38 33 32 26 27 34 40 39 34 33 27 28 35 41 40 35 34 28 42 41 36 29 30 37 43 37 36 30 31 38 44 43 38 37 31 32 39 45 44 39 38 32 33 40 46 45 40 39 33 34 41 47 46 41 40 34 35 42 48 47 42 41 35 49 48 43 36 37 44 50 44 43 37 38 45 51 50 45 44 38 39 46 52 51 46 45 39 40 47 53 52 47 46 40 41 48 54 53 48 47 41 42 49 55 54 49 48 42 56 55 50 43 44 51 57 51 50 44 45 52 58 57 52 51 45 46 53 59 58 53 52 46 47 54 60 59 54 53 47 48 55 61 60 55 54 48 49 56 62 61 56 55 49 63 62 57 50 51 58 64 58 57 51 52 59 65 64 59 58 52 53 60 66 65 60 59 53 54 61 67 66 61 60 54 55 62 68 67 62 61 55 56 63 69 68 63 62 56 70 69 64 57 58 65 71 65 64 58 59 66 72 71 66 65 59 60 67 73 72 67 66 60 61 68 74 73 68 67 61 62 69 75 74 69 68 62 63 70 76 75 70 69 63 77 76 71 64 65 72 78 72 71 65 66 73 79 78 73 72 66 67 74 80 79 74 73 67 68 75 81 80 75 74 68 69 76 82 81 76 75 69 70 77 83 82 77 76 70 84 83 78 71 72 79 85 79 78 72 73 80 86 85 80 79 73 74 81 87 86 81 80 74 75 82 88 87 82 81 75 76 83 89 88 83 82 76 77 84 90 89 84 83 77 91 90 85 78 79 86 92 86 85 79 80 87 93 92 87 86 80 81 88 94 93 88 87 81 82 89 95 94 89 88 82 83 90 96 95 90 89 83 84 91 97 96 91 90 84 98 97 92 85 86 93 99 93 92 86 87 94 100 99 94 93 87 88 95 101 100 95 94 88 89 96 102 101 96 95 89 90 97 103 102 97 96 90 91 98 104 103 98 97 91 105 104 99 92 93 100 106 100 99 93 94 101 107 106 101 100 94 95 102 108 107 102 101 95 96 103 109 108 103 102 96 97 104 110 109 104 103 97 98 105 111 110 105 104 98 112 111 106 99 100 107 113 107 106 100 101 108 114 113 108 107 101 102 109 115 114 109 108 102 103 110 116 115 110 109 103 104 111 117 116 111 110 104 105 112 118 117 112 111 105 119 118 113 106 107 114 120 114 113 107 108 115 121 120 115 114 108 109 116 122 121 116 115 109 110 117 123 122 117 116 110 111 118 124 123 118 117 111 112 119 125 124 119 118 112 126 125 120 113 114 121 127 121 120 114 115 122 128 127 122 121 115 116 123 129 128 123 122 116 117 124 130 129 124 123 117 118 125 131 130 125 124 118 119 126 132 131 126 125 119 133 132 127 120 121 128 134 128 127 121 122 129 135 134 129 128 122 123 130 136 135 130 129 123 124 131 137 136 131 130 124 125 132 138 137 132 131 125 126 133 139 138 133 132 126 140 139 134 127 128 135 141 135 134 128 129 136 142 141 136 135 129 130 137 143 142 137 136 130 131 138 144 143 138 137 131 132 139 145 144 139 138 132 133 140 146 145 140 139 133 147 146 141 134 135 142 148 142 141 135 136 143 149 148 143 142 136 137 144 150 149 144 143 137 138 145 151 150 145 144 138 139 146 152 151 146 145 139 140 147 153 152 147 146 140 154 153 148 141 142 149 155 149 148 142 143 150 156 155 150 149 143 144 151 157 156 151 150 144 145 152 158 157 152 151 145 146 153 159 158 153 152 146 147 154 160 159 154 153 147 161 160 155 148 149 156 162 156 155 149 150 157 163 162 157 156 150 151 158 164 163 158 157 151 152 159 165 164 159 158 152 153 160 166 165 160 159 153 154 161 167 166 161 160 154 168 167 162 155 156 163 169 163 162 156 157 164 170 169 164 163 157 158 165 171 170 165 164 158 159 166 172 171 166 165 159 160 167 173 172 167 166 160 161 168 174 173 168 167 161 175 174 169 162 163 170 176 170 169 163 164 171 177 176 171 170 164 165 172 178 177 172 171 165 166 173 179 178 173 172 166 167 174 180 179 174 173 167 168 175 181 180 175 174 168 182 181 176 169 170 177 183 177 176 170 171 178 184 183 178 177 171 172 179 185 184 179 178 172 173 180 186 185 180 179 173 174 181 187 186 181 180 174 175 182 188 187 182 181 175 189 188 183 176 177 184 190 184 183 177 178 185 191 190 185 184 178 179 186 192 191 186 185 179 180 187 193 192 187 186 180 181 188 194 193 188 187 181 182 189 195 194 189 188 182 196 195 190 183 184 191 191 190 184 185 192 192 191 185 186 193 193 192 186 187 194 194 193 187 188 195 195 194 188 189 196 196 195 189 -- Terrell Mitchell E-mail: usenet at privatetwocedars.mailshell.com remove "private" for sending email