Exporting coordinates of vertices from Gambit


There might be a need to export coordinates of vertices from Gambit. This can be done via journal file.
Journal file attached at the end of following notes when run in Gambit would write co-ordinates of vertices created in Gambit. The inputs to the journal file are as follows:

1) Name of the output file to which the coordinates are written.

2) The total number of vertices in the geometry($max).


**********************vertex-latest.jou***********************
/File Name-->"coordinates"
temp open ("coordinates")
temp write " "

/ Number of vertices in the geometry

$max = 8

$j = LISTENTITY(t_ve)


$k=1
do para "$k" init 1 cond($k.le.$max) incr 1
$a=ENT2LOC($j[$k])
$x1=1
do para "$x1" init 1 cond ($x1.le.3) incr 1
temp write ntos($a[$x1])
if cond ($x1.le.2)
temp write " , "
else
temp write " n "
endif
enddo
enddo
temp close
**********************************************************





Show Form
No comments yet. Be the first to add a comment!