应用了numstr,将起始节点数设为10,更新程序,出现新的问题:
/PREP7
/VIEW,1,,-1
/TITLE, RADIUS PIEZO TRANSIENT ANALYSIS
ET,1,SOLID5,0
ET,2,MESH200
KEYOPT,2,1,6
KEYOPT,2,2,0
MP,DENS,1,7500
MP,DMPR,1,0.005
MP,PERX,1,804.6
MP,PERY,1,804.6
MP,PERZ,1,659.7
TB,PIEZ,1
TBDATA,16,10.5
TBDATA,14,10.5
TBDATA,3,-4.1
TBDATA,6.-4.1
TBDATA,9,14.1
TB,ANEL,1
TBDATA,1,13.2E10,7.1E10,7.3E10
TBDATA,7,13.2E10,7.3E10
TBDATA,12,11.5E10
TBDATA,16,3.0E10
TBDATA,19,2.6E10
TBDATA,21,2.6E10
R=2E-3
T=1E-3
K,1,0,0,0
K,2,0,0,T
K,3,R,0,0
K,4,R,0,T
A,1,2,4,3
AATT,1
ESIZE,0.5E-3
NUMSTR,NODE,10
AMESH,ALL
EXTOPT,ESIZE,16,0,
VROTAT,ALL,,,,,,1,2,360
EPLOT
NSEL,S,LOC,Z,T
CP,1,VOLT,ALL
*GET,N_TOP,NODE,O,NUM,MIN
D,ALL,VOLT,1
NSEL,S,LOC,Z,0
CP,2,VOLT,ALL
*GET,N_BOT,NODE,0,NUM,MIN
D,ALL,VOLT,0
NSEL,ALL
FINISH
/SOLU
ANTYPE,STATIC
SOLVE
FINI
/PREP7
DDELE,N_TOP,VOLT
ET,3,CIRCU94,0
R=3000
R,1,R
N,1
TYPE,3
REAL,1
E,1,N_TOP
ET,4,CIRCU94,4
V=1
R,2,V
N,2
TYPE,4
REAL,2
E,N_TOP,N_BOT,2
FINI
/SOLU
DDELE,N_TOP,VOLT
D,1,VOLT,0
ANTYPE,TRANS
NSUB,100
TIME,2E-3
TINTP,,0.25,0.5,0.5
KBC,1
OUTRES,ALL,ALL
SOLVE
FINI
/POST26
NUMVAR,20
NSOL,2,N_TOP,VOLT,,V_C
PRVAR,2
PLVAR,2 |