nodelist.sml

Download

More scripts: TIN

Syntax Highlighing:

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

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