Code: Select all
objref d
d = new Vector(8)
d.x[0] = 5
d.x[1] = 10
d.x[2] = 25
d.x[3] = 50
d.x[4] = 75
d.x[5] = 100
d.x[6] = 125
d.x[7] = 150
for i=0, 7 {
xs=-18750.5
ys=0
zs=d.x[i]
define_geometry()
setpointers()
initialize()
// RECORD SECTION POSITIONS
objref f2
f2 = new File()
fname = printf("%s%d","coordinates",d.x[i])
f2.wopen(fname) // coordinate file name
forall{
for (x) if(x!=0 && x!=1){
f2.printf("%s(%g)\t%f\t%f\t%f\n", secname(), x, x_xtra(x), y_xtra(x), z_xtra(x))
}
}
f2.close()
}