Ansys讨论区 - 声振论坛 - 振动,动力学,声学,信号处理,故障诊断

wz1105 发表于 2006-4-24 10:53

新手急求老师指点

下面是我作得一个小小例子但是老是有问题。我想在立方体的侧面施加变载荷压力，用得表面效应单元。但是每次运行只能施加到一个单元上。不知道那个地方的问题，请老师帮忙看看。我在这里表示感谢。 /BATCH /COM,ANSYS RELEASE9.0 UP20041104 08:50:38 04/23/2006 !* /NOPR /PMETH,OFF,0 KEYW,PR_SET,1 KEYW,PR_STRUC,1 KEYW,PR_THERM,0 KEYW,PR_FLUID,0 KEYW,PR_ELMAG,0 KEYW,MAGNOD,0 KEYW,MAGEDG,0 KEYW,MAGHFE,0 KEYW,MAGELC,0 KEYW,PR_MULTI,0 KEYW,PR_CFD,0 /GO !* /COM, /COM,Preferences for GUI filtering have been set to display: /COM,Structural !* /PREP7 !* ET,1,SOLID92 !* ET,2,SURF154 !* !* MPTEMP,,,,,,,, MPTEMP,1,0 MPDATA,EX,1,,2e11 MPDATA,PRXY,1,,0.35 BLOCK,0,2,0,2,0,2, TYPE, 1 MAT, 1 REAL, ESYS, 0 SECNUM, TSHAP,LINE !* MSHKEY,0 MSHAPE,1,3d CM,_Y,VOLU VSEL, , , , 1 CM,_Y1,VOLU CHKMSH,'VOLU' CMSEL,S,_Y !* VMESH,_Y1 !* CMDELE,_Y CMDELE,_Y1 CMDELE,_Y2 !* SAVE
ASEL,S,LOC,X,2 type,2 amesh,all ESEL,S,TYPE,,2
*GET,ECOUNT,ELEM,,COUNT *DIM,ENUM,ARRAY,ECOUNT *GET,ENUM(1),ELEM,,NUM,MIN *DO,I,2,ECOUNT ENUM(I)=ELNEXT(ENUM(I-1)) *ENDDO
C2=5 *DO,I,1,ECOUNT ESEL,S,,,ENUM(I) NSLE,R *GET,N_E,NODE,,COUNT YN=NY(NELEM(ENUM(I),1)) PN1=C2*YN YN=NY(NELEM(ENUM(I),2)) PN2=C2*YN YN=NY(NELEM(ENUM(I),3)) PN3=C2*YN PN4=0 *IF,N_E,EQ,4,THEN YN=NY(NELEM(ENUM(I),4)) PN4=C2*YN *ENDIF SFE,ENUM(I),1,PRES,,PN1,PN2,PN3,PN4 *ENDDO
/PSF,PRES,NORM,2,1

wz1105 发表于 2006-4-27 08:55

大家帮帮吧真的很急。

帮帮忙吧很急用。真的很感谢

wz1105 发表于 2006-4-28 13:37

高手给看看吧，指点一下吧

wdb 发表于 2006-4-30 16:37

我很同情你，但没办法，我是菜鸟

94117239 发表于 2006-5-1 20:53

我也是菜鸟，你的心情我也理解

AaronSpark 发表于 2006-5-2 07:40

回复：（wz1105）新手急求老师指点

这是一个加表面效应单元的例子，你看一下有没有帮助。 FINISH /CLEAR !!!gauss加载 /title, the simulate of laser cladding process *SET,P,2000， !the power of the laser *SET,V,0.008 !scanning speed !*SET, RADIUS,0.003 !radius of the laser beam *SET, R,0.003 *set,k,0.6 !the coefficient of the absorb *SET,L,0.05 !the length of the block /prep7 !熔覆层高5mm=0.005m !基体高10mm=0.01m,长x=50mm=0.05,宽=20mm=0.02m BLOCK,0,0.05,0, -0.0105,-0.01,0, Vsel,all vplot ! /USER, 1 /VIEW, 1, -0.198026943995E-01,0.382677277552 ,0.923669829831 /ANG,1, -0.107453019382 /REPLO ! ET,1,SOLID70 ET,2,Surf152 DOF,TEMP KEYOPT,2,3,0 KEYOPT,2,4,1 KEYOPT,2,5,0 KEYOPT,2,6,0 KEYOPT,2,7,0 KEYOPT,2,8,4 !根据固体表面温度计算对流系数 KEYOPT,2,9,0 !用温度表方式定义材料性能 Mp,kxx,1,82.9 Mp,dens,1,8900 Mp,c,1,471 mptemp,1,20,300,600,750,900,1200,1500,1800,2000 mpdata,hf,1,1,6,50,120,180,200,250,378,700,850 ! ! Mshkey,0 !自由网格化 Mshape,1,3d type,1 esize,0.002, Vmesh,all eplot ! ! asel,s,loc,y,0 !对流边界条件要施加在5个面的周围 asel,a,loc,z,-0.01 asel,a,loc,x,0 asel,a,loc,x,0.05 type,2 !定义属性 amesh,all esel,s,type,,2 !选择表面效应单元 sf,all,conv,-1,25 !确定对流边界条件，表格加载 !sf,all,conv,200,25 !确定对流边界条件 !!底面也施加轻微的对流 allsel,all asel,s,loc,y, -0.0105 type,2 !定义属性 amesh,all esel,s,type,,2 sf,all,conv,3,25 allsel,all ! nsel,all /psf,hflux,,2,0 !以箭头方式显示载荷 ! finish /SOLU !!!!! antype,transient,new TRNOPT,FULL Nropt,,,off !关闭自适应下降 LUMPM,0 Solcontrol,on Autots,on Kbc,1 Outres,all,last, Lnsrch,on neqit,50 !每一子步中方程的迭代次数限值 !load step1,initial conditions 25 time,0.001 deltim,0.001,0.001,0.001 allsel,all timint,off tunif,25 !均匀的节点初始温度25，只对分析的第一个子步有效 solve EPLOT ! ! load step2………,apply moving heat flux allsel nsel,all t=0 dt=0.5 local,11,1, 0.001+0.005,0,0,0,-90,0 CSYS,11 esel,s,type,,1 nsel,r,loc,x, 0,0.003 nsel,r,loc,y,0,180 nsel,r,loc,z,0 sf,,hflux,7000000 !sf,,hflux,%flux2% csys,0 t=t+dt time,t !每一载荷步结束时的时间 deltim,0.1,0.05,0.1,on kbc,1 !设定为阶越载荷 !neqit,25 !每个子步的默认次数 autots,on !打开自动时间步长 timint,on,therm !时间积分效果 TINTP,,,,1 Lnsrch,on !outres,all,all outres,all,last !outres,all,10 allsel solve save

AaronSpark 发表于 2006-5-2 07:41

回复：（wz1105）新手急求老师指点

在帮助文件里，search "VM38 Input Listing"，里面有两个例子，是surf153.surf154的，你也可以参考一下

cymyzb 发表于 2006-5-2 09:39

哈哈，我也是面瓜，有好多问题想请教呢~~~~~~~~~~~~~~~~~~~~~

页: [1]

声振论坛's Archiver

新手急求老师指点

大家帮帮吧真的很急。

回复：（wz1105）新手急求老师指点

回复：（wz1105）新手急求老师指点