开发工具:
文件大小: 29kb
下载次数: 0
上传时间: 2012-10-11
详细说明： 用ansys计算土石坝渗流的代码finish /TITLE, EARTHDAM SEEPAGE /PLOPTS,DATE,0 /PREP7 SMRT,OFF ANTYPE,STATIC ET,1,PLANE55 MP,KXX,1,1E-4 K,1,24,12 K,2,24,0 K,3,0,0 K,4,28,12 K,5,28,0 K,6,52,0 L,1,3 L,3,2 L,1,2 L,4,5 L,5,6 L,4,6 LESIZE,ALL,,,24 A,1,3,2 A,1,2,5,4 A,4,5,6 MSHK,2 MSHA,0,2D AMESH,ALL NUMMRG,NODE *GET,N_MAX,NODE,,NUM,MAX *GET,E_MAX,ELEM,,NUM,MAX *DIM,N_TEMP,ARRAY,N_MAX *DIM,N_PRE,ARRAY,N_MAX LSEL,S,LINE,,1 NSLL,S,1 NSEL,R,LOC,Y,0,8 D,ALL,TEMP,8 LSEL,S,LINE,,5 NSLL,S,1 NSEL,R,L OC,X,42.9,52.1 *GET,Nc_NUM,NODE,,COUNT *get,Nc_min,node,,num,min *SET,DNN,Nc_min *DO,I,1,Nc_NUM D,DNN,TEMP,NY(DNN) *if,I,LT,Nc_NUM,then *SET,dnn,ndnext(dnn) *endif *ENDDO ALLSEL,ALL FINISH /SOLU SOLVE FINISH SAVE *SET,MAXCOMP,20 *SET,DD_HEAT,0.01 *DO,COM_NUM,1,MAXCOMP *SET,DD_H,0 FINI /POST1 *DO,I,1,N_MAX *IF,COM_NUM,NE,1,THEN *SET,DD1,N_TEMP(I) *IF,ABS(DD1-TEMP(I)),GT,DD_H,THEN *SET,DD_H,ABS(DD1-TEMP(I)) *ENDIF *ENDIF *SET,N_TEMP(I),TEMP(I) *SET,N_PRE(I),N_TEMP(I)-NY(I) *ENDDO *IF,COM_NUM,NE,1,and,DD_H,LE,DD_HEAT,exit FINISH /POST1 /CLABEL,,1 /EDGE,,0 /CONTOUR,,8,0,1,8 PLNSOL,TEMP PLVECT,TG PLVECT,TF, , , ,VECT,ELEM,ON,0 LSEL,S,LINE,,1 NSLL,S,1 PRRSOL,HEAT FSUM,HEAT *GET,Q_day,FSUM,0,ITEM,HEAT *SET,Q_day,abs(Q_day) ALLSEL,ALL *DO,I,1,N_MAX *SET,N_TEMP(I),TEMP(I) *SET,N_PRE(I),N_TEMP(I)-NY(I) DNSOL,I,TEMP,,N_PRE(I) *ENDDO PLNSOL,TEMP FINI ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
