- 积分
- 0
- 注册时间
- 2010-9-15
- 仿真币
-
- 最后登录
- 1970-1-1
|
new
res meas_definition0.sav
;------------获取测量圈坐标及参数---------
define position_measure
array find_add(id_count)
array m_xposition(id_count)
array m_yposition(id_count)
array meas_stress(id_count)
array x_stress(id_count)
array y_stress(id_count)
array meas_strain(id_count)
array x_strain(id_count)
array y_strain(id_count)
array poros(id_count)
array slidfrac(id_count)
array measureshuchu(id_count)
array coordnum(id_count)
loop m(1,id_count)
find_add(m)=find_meas(m)
m_xposition(m)=string(m_x(find_add(m)))
m_yposition(m)=string(m_y(find_add(m)))
meas_stress(m)=measure(find_add(m),1)
x_stress(m)=string(m_s11(find_add(m)))
y_stress(m)=string(m_s22(find_add(m)))
meas_strain(m)=measure(find_add(m),2)
x_strain(m)=string(m_ed11(find_add(m)))
y_strain(m)=string(m_ed22(find_add(m)))
poros(m)=string(m_poros(find_add(m)))
slidfrac(m)=string(m_sfrac(find_add(m)))
coordnum(m)=string(m_coord(find_add(m)))
;------------------------------------------------------
measureshuchu(m)=string(m)+' '+m_xposition(m)+' '+m_yposition(m)
measureshuchu(m)=measureshuchu(m)+' '+x_stress(m)+' '+y_stress(m)
measureshuchu(m)=measureshuchu(m)+' '+x_strain(m)+' '+y_strain(m)
measureshuchu(m)=measureshuchu(m)+' '+poros(m)+' '+slidfrac(m)
measureshuchu(m)=measureshuchu(m)+' '+ coordnum(m)
end_loop
status=open('measureshuchu.dat',1,1)
status=write(measureshuchu,id_count)
statue=close
end
position_measure
save meas_definition.sav
运行后显示array name is already used by an array
请问怎么解决,谢谢! |
|