!   Commands inserted into this file will be executed immediately after the ANSYS /POST1 command.

!   Active UNIT system in Workbench when this object was created:  Metric (mm, kg, N, s, mV, mA)
!   NOTE:  Any data that requires units (such as mass) is assumed to be in the consistent solver unit system.
!                See Solving Units in the help system for more information.


/post1

*GET,POC_N,NODE,,COUNT
CMSEL,S,USEK1M_UZEL
*GET,POC_VN,NODE,,COUNT

col=8
*dim,posuvy_xyz,array,poc_n,col


*dim,pos_xyz,array,poc_vn,col-1

*VGET,p_uzly,node,,nsel,,,,2

*VGET,css_x,node,,loc,x,,,2
*VGET,css_y,node,,loc,y,,,2
*VGET,css_z,node,,loc,z,,,2
	
subset,last
*VGET,u_x,node,,u,x,,,2
*VGET,u_y,node,,u,y,,,2
*VGET,u_z,node,,u,z,,,2
	
*do,i,1,poc_n
	posuvy_xyz(i,1)=i
	posuvy_xyz(i,2)=p_uzly(i)
	posuvy_xyz(i,3)=css_x(i)
	posuvy_xyz(i,4)=css_y(i)
	posuvy_xyz(i,5)=css_z(i)
	posuvy_xyz(i,6)=u_x(i)
	posuvy_xyz(i,7)=u_y(i)
	posuvy_xyz(i,8)=u_z(i)
*enddo

k=0
*do,j,1,poc_n
	*if,posuvy_xyz(j,2),eq,1,then
		k=k+1
		pos_xyz(k,1)=posuvy_xyz(j,1)
		pos_xyz(k,2)=posuvy_xyz(j,3)
		pos_xyz(k,3)=posuvy_xyz(j,4)
		pos_xyz(k,4)=posuvy_xyz(j,5)
		pos_xyz(k,5)=posuvy_xyz(j,6)
		pos_xyz(k,6)=posuvy_xyz(j,7)
		pos_xyz(k,7)=posuvy_xyz(j,8)
	*endif
*enddo

*MWRITE,pos_xyz(1,1),F:\výpočty\beam_jednobod\4\900\zpev\posuvy,dat
(40f12.4)