AA /COM,ANSYS MEDIA REL. 5.4 /VERIFY,seepage /SHOW,,,1 /PREP7 SMRT,OFF /TITLE, GROUNDWATER SEEPAGE C*** ========================= ANTYPE,STATIC ! THERMAL ANALYSIS ET,1,PLANE55,,,1,,,,1 ! AXISYMMETRIC, SUPRESS ALL PRINTOUT MP,KXX,1,0.864 ! PERMEABILITY K,1 *REPEAT,3,1,,3.5 KGEN,2,1,3,1,8.0 KGEN,2,1,2,1,18.0 K,9,18,10 K,10,8,10 K,11,8.0,3.5 L,1,4 ! DEFINE LINE SEGMENTS AND MESH DIVISIONS *REPEAT,3,1,1 L,10,9 L,11,8 L,4,7 LESIZE,ALL,,,8 A,1,4,5,2 A,2,5,6,3 A,4,7,8,5 A,11,8,9,10 ESIZE,,5 MSHK,2 ! MAPPED AREA MESH IF POSSIBLE MSHA,0,2D ! USING QUADS AMESH,ALL ! MESH AREAS NUMMRG,NODE ! MERGE NODES AT BOTTOM OF CAISSON NSEL,S,LOC,Y,7.0 D,ALL,TEMP,0 NSEL,S,LOC,Y,10 D,ALL,TEMP,3 ! PRESSURE HEAD NSEL,ALL FINISH /SOLU SOLVE FINISH /POST1 /CLABEL,,1 /CONTOUR,,20 /EDGE,,1 PLNSOL,TEMP ! DISPLAY PRESSURE CONTOURS /VSCALE,,-1 PLVECT,TG ! DISPLAY THERMAL GRADIENT VECTORS NSEL,S,LOC,Y,7.0 PRRSOL,HEAT ! PRINT FLOWRATE THROUGH SOIL FSUM,HEAT *GET,Q1,FSUM,0,ITEM,HEAT *SET,Q,(Q1/(2*3.14159265)) *DIM,LABEL,CHAR,1,2 *DIM,VALUE,,1,3 LABEL(1,1) = 'q ' LABEL(1,2) = 'CUBm/DAY' *VFILL,VALUE(1,1),DATA,8.6
Page 1
AA *VFILL,VALUE(1,2),DATA,Q *VFILL,VALUE(1,3),DATA,ABS(Q/8.6) /COM /COM,------------------- Seepage RESULTS COMPARISON ------------ /COM, /COM, | TARGET | ANSYS | RATIO /COM, *VWRITE,LABEL(1,1),LABEL(1,2),VALUE(1,1),VALUE(1,2),VALUE(1,3) (1X,A8,A8,' ',F10.1,' ',F10.1,' ',1F5.3) /COM,--------------------------------------------------------- FINISH
Page 2
Dr. Dr. Han Hanii Azi Azizz Ame Ameen en - Asst Asst.. Pro Profe fesso ssorr- , Birt Birth h date date 1971 1971 in Bag Baghd hdadad- Iraq Iraq,, has has Ph.D. in Mechanical Engineering – Applied Applied Mechanics Mechanics (Stress (Stress analysis analysis by Finite Element Method) – from the University of Technology – Iraq Iraq in 1998. He has more than 64 published published papers papers and he is an an expert expert in the the ANSYS ANSYS software software and finite finite eleme element nt analy analysis. sis. Working Working in sever several al unive universi rsitie tiess and college collegess and now he he is a Chairm Chairman an of the Dies Dies and Tools Tools Engine Engineeri ering ng Depart Departme ment nt - Techni Technical cal Colleg Collegee – Baghdad. E-mail:
[email protected]