!--------------------------------------------------------------------------------------------------------------------------- !---------------------------------------------------- geometrie ------------------------------------------------------------ !--------------------------------------------------------------------------------------------------------------------------- /PREP7 /COLOR,PBAK,ON,3,13 /REPLOT !--------------------------------------------------------------------------------------------------------------------------- !----------------------------------------------------- variables ----------------------------------------------------------- !--------------------------------------------------------------------------------------------------------------------------- *AFUN,DEG ! ;set angle dimension to degree alpha = 45 PI = ACOS(-1) !; definition of PI g = 9806.6 !; gravitational acceleration [mm/s²] EKL = 100 !; Element size [mm] ym = 210e3 !; young modulus [N/mm²] nu = 0.3 !; poison ratio [-] roh = 7.85e-9 !; density [t/mm³] fric1 = 0.3 !; coulomb friction [-] fric2 = 0.7 DA = 0.1 !; material damping ratio [-] !;path_para = 'D:\FRIC_TEST\DATA\' !;path_vtk = 'D:\FRIC_TEST\VTK\' !;path_data = 'D:\FRIC_TEST\DATA\' path_para = '\home\dem\ANSYS\FRIC_ORTHO\DATA' path_vtk = '\home\dem\ANSYS\FRIC_ORTHO\VTK' path_data = '\home\dem\ANSYS\FRIC_ORTHO\DATA' !--------------------------------------------------------------------------------------------------------------------------- !--------------------------------------------------- element definition ---------------------------------------------------- !--------------------------------------------------------------------------------------------------------------------------- ET,1,SOLID95 !--------------------------------------------------------------------------------------------------------------------------- ET,2,CONTA174 KEYOPT,2,1,0 KEYOPT,2,2,0 KEYOPT,2,4,1 KEYOPT,2,11,1 KEYOPT,2,12,0 !--------------------------------------------------------------------------------------------------------------------------- ET,3,TARGE170 KEYOPT,3,1,1 !--------------------------------------------------------------------------------------------------------------------------- !---------------------------------------------- material_definition_of_solids ---------------------------------------------- !--------------------------------------------------------------------------------------------------------------------------- MP,EX,1,ym MP,NUXY,1,nu MP,DENS,1,roh MP,DAMP,1,DA TB,FRIC,3,1,,ORTHO TBTEMP,20 TBDATA,1,fric1,fric2 !--------------------------------------------------------------------------------------------------------------------------- !--------------------------------------------------- geometric_definition -------------------------------------------------- !--------------------------------------------------------------------------------------------------------------------------- x_11 = -1000 x_12 = 2000 y_11 = -1000 y_12 = 1000 z_11 = 0 z_12 = -100 a1 = ABS(x_11) + ABS(x_12) b1 = ABS(y_11) + ABS(y_12) c1 = ABS(z_11) + ABS(z_12) BLOCK,x_11,x_12,y_11,y_12,z_11,z_12 VOLU_V1 = a1*b1*c1 MASS_V1 = VOLU_V1*roh Fg_V1 = MASS_V1*g x_21 = -250 x_22 = 250 y_21 = -250 y_22 = 250 z_21 = 0 z_22 = 500 a2 = ABS(x_21) + ABS(x_22) b2 = ABS(y_21) + ABS(y_22) c2 = ABS(z_21) + ABS(z_22) BLOCK,x_21,x_22,y_21,y_22,z_21,z_22 VOLU_V2 = a2*b2*c2 MASS_V2 = VOLU_V2*roh Fg_V2 = MASS_V2*g !--------------------------------------------------------------------------------------------------------------------------- !------------------------------------------------------ mesh_definition ---------------------------------------------------- !--------------------------------------------------------------------------------------------------------------------------- TYPE,1 MAT,1 ESIZE,EKL VMESH,ALL !--------------------------------------------------------------------------------------------------------------------------- !-------------------------------------------------------- contact_mesh ----------------------------------------------------- !--------------------------------------------------------------------------------------------------------------------------- !LOCAL,11,0,0,0,0,alpha !ESYS,11 ASEL,S,AREA,,7 NSLA,S,1 ESLN,S,0,ALL TYPE,2 MAT,3 ESURF ALLSEL !--------------------------------------------------------------------------------------------------------------------------- !-------------------------------------------------------- target_mesh ------------------------------------------------------ !--------------------------------------------------------------------------------------------------------------------------- ASEL,S,AREA,,2 NSLA,S,1 ESLN,S,0,ALL TYPE,3 ESURF ALLSEL !--------------------------------------------------------------------------------------------------------------------------- !---------------------------------------------------- boundary conditions -------------------------------------------------- !--------------------------------------------------------------------------------------------------------------------------- !CSYS,0 ASEL,S,AREA,,1 NSLA,S,1 D,ALL,ALL ALLSEL SAVE FINISH !--------------------------------------------------------------------------------------------------------------------------- !------------------------------------------------------ inertial_loads ----------------------------------------------------- !--------------------------------------------------------------------------------------------------------------------------- /SOLU RESCONTROL,,ALL,ALL ANTYPE,TRANS TRNOPT,FULL TIMINT,ON NLGEOM,ON SOLCONTROL,ON AUTOTS,OFF OUTRES,ALL,ALL TIME,1 NSUBST,50,50,50 ACEL,0,0,g ! ;inertial loads (belt mass) SOLVE SAVE *GET,LS,ACTIVE,0,SOLU,NCMLS ! ;set number of loadstep at variable LS *GET,SS,ACTIVE,0,SOLU,NCMSS ! ;set number of substeps at variable SS FINISH !--------------------------------------------------------------------------------------------------------------------------- !----------------------------------------------------- postprocessing_PIC -------------------------------------------------- !--------------------------------------------------------------------------------------------------------------------------- /POST1 *DO,j,LS,LS *DO,k,1,SS SET,j,k ASEL,S,AREA,,1 NSLA,S,1 /INPUT,'RFORCE_new','mac','/home/dem/ANSYS/FRIC_ORTHO/MACROS',,0 !;RFORCE_new ALLSEL *ENDDO *ENDDO *DO,j,LS,LS *DO,k,1,SS SET,j,k UPCOORD,1,OFF VSEL,S,VOLU,,1 ESLV,S NSLE,S,ALL /INPUT,'VTK_MISES_3D_V1','mac','/home/dem/ANSYS/FRIC_ORTHO/MACROS',,0 !;VTK_MISES_3D_V1 PARSAVE,ALL,parameter,'parm',path_para RESUME PARRES,NEW,parameter,'parm',path_para ALLSEL SET,j,k UPCOORD,1,OFF VSEL,S,VOLU,,2 ESLV,S NSLE,S,ALL /INPUT,'VTK_MISES_3D_V2','mac','/home/dem/ANSYS/FRIC_ORTHO/MACROS',,0 !;VTK_MISES_3D_V2 PARSAVE,ALL,parameter,'parm',path_para RESUME PARRES,NEW,parameter,'parm',path_para ALLSEL *ENDDO *ENDDO FINISH !--------------------------------------------------------------------------------------------------------------------------- !------------------------------------------------ restart_definitions ------------------------------------------------------ !--------------------------------------------------------------------------------------------------------------------------- /PREP7 PARSAVE,ALL,parameter,'parm',path_para SAVE PARRES,NEW,parameter,'parm',path_para ANTYPE,TRANS,REST,LS,SS FINISH !--------------------------------------------------------------------------------------------------------------------------- !----------------------------------------------------- x-direction --------------------------------------------------------- !--------------------------------------------------------------------------------------------------------------------------- /SOLU TIME,2 NSUBST,50,50,50 VSEL,S,VOLU,,2 NSLV,S,1 D,ALL,VELX,1000 ALLSEL SOLVE SAVE *GET,LS,ACTIVE,0,SOLU,NCMLS ! ;set number of loadstep at variable LS *GET,SS,ACTIVE,0,SOLU,NCMSS ! ;set number of substeps at variable SS FINISH !--------------------------------------------------------------------------------------------------------------------------- !-------------------------------------------------- postprocessing_PIC ----------------------------------------------------- !--------------------------------------------------------------------------------------------------------------------------- /POST1 *DO,j,LS,LS *DO,k,1,SS SET,j,k ASEL,S,AREA,,1 NSLA,S,1 /INPUT,'RFORCE_new','mac','/home/dem/ANSYS/FRIC_ORTHO/MACROS',,0 !;RFORCE_new ALLSEL *ENDDO *ENDDO *DO,j,LS,LS *DO,k,1,SS SET,j,k UPCOORD,1,OFF VSEL,S,VOLU,,1 ESLV,S NSLE,S,ALL /INPUT,'VTK_MISES_3D_V1','mac','/home/dem/ANSYS/FRIC_ORTHO/MACROS',,0 !;VTK_MISES_3D_V1 PARSAVE,ALL,parameter,'parm',path_para RESUME PARRES,NEW,parameter,'parm',path_para ALLSEL SET,j,k UPCOORD,1,OFF VSEL,S,VOLU,,2 ESLV,S NSLE,S,ALL /INPUT,'VTK_MISES_3D_V2','mac','/home/dem/ANSYS/FRIC_ORTHO/MACROS',,0 !;VTK_MISES_3D_V2 PARSAVE,ALL,parameter,'parm',path_para RESUME PARRES,NEW,parameter,'parm',path_para ALLSEL *ENDDO *ENDDO FINISH !--------------------------------------------------------------------------------------------------------------------------- !------------------------------------------------ restart_definitions ------------------------------------------------------ !--------------------------------------------------------------------------------------------------------------------------- /PREP7 PARSAVE,ALL,parameter,'parm',path_para SAVE PARRES,NEW,parameter,'parm',path_para ANTYPE,TRANS,REST,LS,SS FINISH !--------------------------------------------------------------------------------------------------------------------------- !----------------------------------------------------- x-direction --------------------------------------------------------- !--------------------------------------------------------------------------------------------------------------------------- /SOLU TIME,2.5 NSUBST,20,20,20 VSEL,S,VOLU,,2 NSLV,S,1 D,ALL,VELX,0 D,ALL,VELY,1000 ALLSEL SOLVE SAVE *GET,LS,ACTIVE,0,SOLU,NCMLS ! ;set number of loadstep at variable LS *GET,SS,ACTIVE,0,SOLU,NCMSS ! ;set number of substeps at variable SS FINISH !--------------------------------------------------------------------------------------------------------------------------- !-------------------------------------------------- postprocessing_PIC ----------------------------------------------------- !--------------------------------------------------------------------------------------------------------------------------- /POST1 *DO,j,LS,LS *DO,k,1,SS SET,j,k ASEL,S,AREA,,1 NSLA,S,1 /INPUT,'RFORCE_new','mac','/home/dem/ANSYS/FRIC_ORTHO/MACROS',,0 !;RFORCE_new ALLSEL *ENDDO *ENDDO *DO,j,LS,LS *DO,k,1,SS SET,j,k UPCOORD,1,OFF VSEL,S,VOLU,,1 ESLV,S NSLE,S,ALL /INPUT,'VTK_MISES_3D_V1','mac','/home/dem/ANSYS/FRIC_ORTHO/MACROS',,0 !;VTK_MISES_3D_V1 PARSAVE,ALL,parameter,'parm',path_para RESUME PARRES,NEW,parameter,'parm',path_para ALLSEL SET,j,k UPCOORD,1,OFF VSEL,S,VOLU,,2 ESLV,S NSLE,S,ALL /INPUT,'VTK_MISES_3D_V2','mac','/home/dem/ANSYS/FRIC_ORTHO/MACROS',,0 !;VTK_MISES_3D_V2 PARSAVE,ALL,parameter,'parm',path_para RESUME PARRES,NEW,parameter,'parm',path_para ALLSEL *ENDDO *ENDDO FINISH !--------------------------------------------------------------------------------------------------------------------------- !--------------------------------------------------------- end ------------------------------------------------------------- !---------------------------------------------------------------------------------------------------------------------------