Mercurial > hg > kwantix

annotate results/plotresults_vtk.m @ 24:ad9e3d28ce9b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Implement op<< for bvp::interpolator
author Jordi Gutiérrez Hermoso <jordigh@gmail.com>
date Fri, 21 Aug 2009 16:19:58 -0500
parents 4c5bac1f2612
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
24
ad9e3d28ce9b Implement op<< for bvp::interpolator
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 21
diff changeset
1 skip = 1;
ad9e3d28ce9b Implement op<< for bvp::interpolator
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 21
diff changeset
2 for i = skip:skip:500
ad9e3d28ce9b Implement op<< for bvp::interpolator
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 21
diff changeset
3 name = "u";
0
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
4 if(i < 10000)
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
5 name = strcat(name, "0");
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
6 endif
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
7 if(i < 1000)
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
8 name = strcat(name, "0");
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
9 endif
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
10 if(i < 100)
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
11 name = strcat(name, "0");
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
12 endif
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
13 if(i < 10)
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
14 name = strcat(name, "0");
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
15 endif
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
16 name = strcat(name,num2str(i));
24
ad9e3d28ce9b Implement op<< for bvp::interpolator
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 21
diff changeset
17 #vtk_xlim([-1,1]);
ad9e3d28ce9b Implement op<< for bvp::interpolator
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 21
diff changeset
18 #vtk_ylim([-1,1]);
ad9e3d28ce9b Implement op<< for bvp::interpolator
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 21
diff changeset
19 #vtk_zlim([0,0.2]);
0
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
20 filename = strcat(name,".map");
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
21 load(filename);
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
22 h = eval(name);
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
23 T = delaunay(h(:,1),h(:,2));
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
24 vtk_clear; vtk_trisurf(T,h(:,1),h(:,2),h(:,3));
24
ad9e3d28ce9b Implement op<< for bvp::interpolator
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 21
diff changeset
25 ##foo = vtk_trimesh(T,h(:,1),h(:,2),h(:,3));
ad9e3d28ce9b Implement op<< for bvp::interpolator
Jordi Gutiérrez Hermoso <jordigh@gmail.com>
parents: 21
diff changeset
26 vtk_axis('off');
0
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
27 vtk_print(strcat(name,".png"),"-dpng");
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
28 clear eval(name);
4fa56dc7e271 Initial commit
jordi@Iris
parents:
diff changeset
29 endfor