怎么保存数据？？急求高手

wqsoooooooooo

new
gen id 1 1000 rad 0.1 0.1 x 0 8 y 0.2 12
prop dens 1000 kn 1e6 ks 1e6
set grav 0 -9.81

define fillarr
array pos(1000,2)
loop j (1,1000)
  xpos=b_x(find_ball(j))
  ypos=b_y(find_ball(j))
  pos(j,1)=xpos
  pos(j,2)=ypos
endloop
end
fillarr
上面是把ball的位置写到一个数组里面了
怎么把这个数组保存成数据文件如txt格式的assii文件

wqsoooooooooo

1# wqsoooooooooo

我自己把它解决了

呵呵呵呵
下面写出来分享一下啊

wqsoooooooooo

不能上传附件？？？？？？？
只贴出程序来了

new
gen id 1 1000 rad 0.1 0.1 x 0 8 y 0.2 12
prop dens 1000 kn 1e6 ks 1e6
set grav 0 -9.81


define fillarr
        array pos(1000,2)
        loop j (1,1000)
                xpos=b_x(find_ball(j))
                ypos=b_y(find_ball(j))
                pos(j,1)=xpos
                pos(j,2)=ypos
        endloop
end
fillarr

define WriteToFile
        array line(1000)
        loop n (1,1000)
                midd='   '
                msg=string(pos(n,1))+midd+string(pos(n,2))
                line(n)=msg
        endloop
        status=open('pos.txt',1,1)
        status=write(line,1000)
        status=close
end

WriteToFile


运行后就可以在目标目录下找到pos.txt了

呵呵额呵呵呵呵

lkw0821

new
gen id 1 1000 rad 0.1 0.1 x 0 8 y 0.2 12
prop dens 1000 kn 1e6 ks 1e6
set grav 0 -9.81
define fillarr
array pos(1000,2)
loop j (1,1000)
xpos=b_x(find_ball(j))
ypos=b_y(find_ball(j))
pos(j,1)=xpos
pos(j,2)=ypos
endloop
end
set hist_rep 5000

def setid
        loop n (1,5)
        aa = 2*n-1
        bb =2*n
;        hist id aa ball xp id n
;        hist id bb ball yp id n
        endloop
end

hist id 1 ball xp id 1
hist id 2 ball yp id 1


setid

print aa

cycle 5000

hist write 1 2 file GG.HIS

sa savefile

===========================================

我是用HIST保存數據的!!

後面define writetofile 我做修改過!

rock_cumt

great job!

wuji2008

不错 学习了

zhang123xp

不错学习了

geotech007

正好用上,太好了.谢谢LZ

ls040150212ls

目前还看不懂

liyaliang66

不错啊，学习了

ruixt

呵呵，写成ascii用处不大啊

sddzyc2

不错不错 谢谢

苦海小虫

初学者，看不懂，