我需要将节点 1 的 UY1 位移写入 ANSYS 验证手册 VM17 中给出的 ANSYS APDL 代码中的文本文件。目前,它只给出了 UY1 的图形,我无法找到文本文件(如果它已经存在),或者请让我知道如何获取该图的值。
感谢您的期待。
C*** USING SHELL63 ELEMENTS
ANTYPE,STATIC ! STATIC ANALYSIS
ET,1,SHELL181 ! Changed
R,1,6.350 ! SHELL THICKNESS
MP,EX,1,3102.75
MP,NUXY,1,0.3
:COM CREATE FINITE ELEMENT MODEL
R1 = 2000 !2540 ! SHELL MID-SURFACE RADIUS
L = 200 !254 ! HALF THE LENGTH
PI = 4*ATAN(1) ! VALUE OF PI COMPUTED
THETA = 0.1*180/PI ! 0.1 RADIANS CONVERTED TO DEGREES
CSYS,1 ! CYLINDRICAL CO-ORDINATE SYSTEM
N,1,R1,90 ! NODES 1 AND 2 ARE CREATED AT POINTS
N,2,R1,90,L ! A AND B RESPECTIVELY.
K,1,R1,90
K,2,R1,(90-THETA)
K,3,R1,90,L
K,4,R1,(90-THETA),L
ESIZE,,2
! TWO DIVISION ALONG THE REGION BOUNDARY
A,1,3,4,2
AMESH,1
NUMMRG,NODE
FINISH
*CREATE,SOLVIT,MAC
/PREP7
:COM APPLY BOUNDARY CONDITIONS
NSEL,S,LOC,Z,0
DSYM,SYMM,Z
NSEL,S,LOC,Y,90
DSYM,SYMM,X
NSEL,S,LOC,Y,(90-THETA)
D,ALL,UX,,,,,UY,UZ
NSEL,ALL
FINISH
:COM SOLUTION PHASE
:COM SINCE THE SOLUTION OUTPUT IS SUBSTANTIAL IT IS DIVERTED TO A
:COM SCRATCH FILE
/OUTPUT,SCRATCH
/SOLUTION
NLGEOM,ON ! LARGE DEFLECTION TURNED ON
OUTRES,,1 ! WRITE SOLUTION ON RESULTS FILE FOR EVERY SUBSTEP
F,1,FY,-250 ! 1/4 TH OF THE TOTAL LOAD APPLIED DUE TO SYMMETRY
NSUBST,30 ! BEGIN WITH 30 SUBSTEPS
ARCLEN,ON,5 ! ARC-LENGTH SOLUTION TECHNIQUE TURNED ON WITH
! MAX. ARC-LENGTH KEPT AT 5 TO COMPUTE AND STORE
! SUFFICIENT INTERMEDIATE SOLUTION INFORMATION
SOLVE
FINISH
/OUTPUT
:COM POSTPROCESSING PHASE
/POST26
NSOL,2,1,U,Y ! STORE UY DISPLACEMENT OF NODE 1
NSOL,3,2,U,Y ! STORE UY DISPLACEMENT OF NODE 2
PROD,4,1,,,LOAD,,,4*250 ! TOTAL LOAD IS 4*250 DUE TO QUARTER SYMMETRY
PROD,5,2,,,,,,-1 ! CHANGE SIGNS OF THE DISPLACEMENT VALUES
PROD,6,3,,,,,,-1
*GET,UY1,VARI,2,EXTREM,VMIN
*GET,UY2,VARI,3,EXTREM,VMIN
PRVAR,2,3,4 ! PRINT STORED INFORMATION
/AXLAB,X, DEFLECTION (MM)
/AXLAB,Y, TOTAL LOAD (N)
/GRID,1
/XRANGE,0,35
/YRANGE,-500,1050
XVAR,5
PLVAR,4 ! PLOT LOAD WITH RESPECT TO -UY OF NODE 1
/NOERASE
!XVAR,6 !Chane
!PLVAR,4 ! PLOT LOAD WITH RESPECT TO -UY OF NODE 2 !Change
/ERASE
*DIM,LABEL,CHAR,2,2
*DIM,VALUE,,2,3
LABEL(1,1) = 'UY @A ','UY @B '
LABEL(1,2) = 'mm ','mm '
*VFILL,VALUE(1,1),DATA,-30,-26
*VFILL,VALUE(1,2),DATA,UY1,UY2
*VFILL,VALUE(1,3),DATA,ABS(UY1/30) ,ABS(UY2/26 )
FINISH
*END
SOLVIT
SAVE,TABLE_1+
尝试获取结果值表
看看这篇博文: https://www.padtinc.com/2012/05/18/writing-text-files-with-vwrite/
您正在查找的命令称为 *VWRITE 而不是 SAVE。
VM130还给出了使用示例。格式化您的数字需要一些时间。