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