找回密码
 注册
Simdroid-非首页
查看: 419|回复: 1

【转帖】一个单层球面网壳

[复制链接]
发表于 2002-9-14 09:29:54 | 显示全部楼层 |阅读模式 来自 湖北武汉
下面是一个单层球面网壳的命令流文件,内容包括线性静力分析,几何非线性静力分析,模态分析。以下文件只要做少许改动,就可适用于椭圆球壳,扭网壳以及双曲扁壳。  
/title,single-layer sphere s**** ansys,developed by 北门吹雪.  
/PREP7  
local,11,2,0,0,0  
CSCIR,11,1  
N,1,20,0,30  
N,13,20,180,30  
N,24,20,345,30  
fill,1,13  
FILL,13,24  
ngen,6,24,1,24,1,0,0,10  
n,145,20,0,90  
ET,1,LINK8----  
MP,EX,1,2E8  
MP,DENS,1,7.8E3  
MP,NUXY,2,0.3  
R,1,700e-6  
*DO,I,1,121,24  
E,I,I+1  
EGEN,23,1,I,I,1  
E,I+23,I  
*ENDDO  
E,1,25  
EGEN,5,24,145,145,1  
EGEN,24,1,145,149,1  
*DO,I,121,144,1  
E,I,145  
*ENDDO  
E,1,26  
E,25,50  
E,49,74  
E,73,98  
E,97,122  
EGEN,23,1,289,293,1  
E,24,25  
E,48,49  
E,72,73  
E,96,97  
E,120,121  
FINISH  
/SOLO  
!ANTYPE,STATIC  
ANTYPE,MODAL  
MODOPT,REDU  
M,25,UZ,145,1  
!NLGEOM,ON  
OUTRES,ALL,ALL  
NSEL,S,NODE,,1,24,1  
D,ALL,UX,0  
D,ALL,UY,0  
D,ALL,UZ,0  
!CSYS,0  
!NSEL,ALL  
!F,145,FZ,-200  
!ACEL,0,0,-0.01  
!NSUBST,40  
!ARCLEN,ON,4  
SOLVE  
FINISH  
/SOLU  
EXPASS,ON  
MXPAND,50  
SOLVE  
FINISH  
/POST1  
SET,LIST  
SET,1,1  
SET,1,2  
PLDISP  
!ETABLE,A,LS,1  
!PLETAB,A,NOAV  
!PRETAB,A  
!/OUT  
FINISH  
!/POST26  
!NSOL,2,145,U,Z  
!PROD,3,2,,,,,,,-1  
  
!FINISH

评分

1

查看全部评分

发表于 2002-9-16 17:46:10 | 显示全部楼层 来自 同济大学

Re:【转帖】一个单层球面网壳

Simdroid开发平台
请赐教如何建立短程线单层球面网壳?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|小黑屋|联系我们|仿真互动网 ( 京ICP备15048925号-7 )

GMT+8, 2024-3-29 16:23 , Processed in 0.039377 second(s), 18 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表