edgelist.sml

Download

More scripts: TIN

Syntax Highlighing:

comments, key words, predefined symbols, class members & methods, functions & classes

# edgelist.sml
clear();
tin Tout;
array numeric edgelist[100];
numeric numnodes, node, numedges;
GetOutputTIN(Tout, "TINToolkit", "ComputeStandardAttributes");
# pick a node less than or equal
# to number of nodes
numnodes = TINNumberNodes(Tout);
node = floor(numnodes / 2);
numedges = TINGetConnectedEdgeList(Tout, node, edgelist);
print("number of edges connected to node: ", node, " = ", numedges);
numeric i;
for i = 1 to numedges {
	print(edgelist[i]);
	}