APDL

! FLUREAD, --, Fname, Ext, KDIM, KOUT, LIMIT, ListOpt

! SOURCE List the node coordinates and complex pressure values on the Fluent source side during the solution.

! Reads one-way Fluent-to-Mechanical APDL coupling data via a .cgns file with one-side fast Fourier transformation complex

! pressure peak value.

! https://www.mm.bme.hu/~gyebro/files/ans_help_v182/ans_cmd/Hlp_C_FLUREAD.html

! LIMIT

! Number of nearby nodes considered for mapping interpolation. Minimum = 5. Default = 20.

! Lower values reduce processing time; however, some distorted or irregular meshes require a higher value in cases where three

! nodes are encountered for triangulation.

! APDL COMMAND FOR CGNS INPUT FILE

CMSEL,S,idmap2

/PREP7

ESLN

*GET,iMaxEType,ETYP,0, NUM, MAX

*GET,iMaxReal, ELEM,,RELM

ET,iMaxEType+1,154

R, iMaxReal+1

TYPE,iMaxEType+1

REAL,iMaxReal+1

ESURF

ESEL,S,TYPE,,iMaxEType+1

SF,ALL,FSIN,1

FINISH

/SOLU

FLUREAD,,'C:\Users\Zoe\Desktop\VALVE STUDY\TRIALM_files\dp0\FFF-16\Fluent\SBESv3',cgns,,0,20,

ALLSEL, ALL

! APDL COMMAND FOR PRESSURE LOADING GRAPHIC

set,last ! load the data set you’d like to plot

ESEL,S,TYPE,,iMaxEType+1 ! select the surface element where the fluent pressure is mapped

NSLE ! select the nodes associated with the surface elements

/SHOW,png ! dump the graphics to a png file

/view,1,1,1,1 ! change the view in the graphics

/psf,pres,,3,1,on ! turn on display of surface loads (pressure)

gplot !plot

ANSYS Mechanical

Writing Text files with *VWRITE

adiv = ' | '

*dim,nds, ,10

*dim,temps,,10

*vfill,nds(1),ramp,1,1

*vfill,temps(1),rand,70,1500

*cfopen,arraydata.out

*VWRITE,'Temp: ',nds(1),temps(1),adiv, 'TREF: ',70

(A6,F8.0,g16.8,A3,A6,F10.4)

*cfclose

*VWRITE, Par1, Par2, Par3, Par4, Par5, Par6, Par7, Par8, Par9, Par10, Par11, Par12, Par13, Par14, Par15, Par16, Par17, Par18, Par19

https://www.youtube.com/watch?v=qqB2HjgmDow

link

/COM,ANSYS MEDIA REL. 2019R2 (04/05/2019) REF. VERIF. MANUAL: REL. 2019R2 /VERIFY,VMP09-T33-182 /TITLE, VMP09-T33-182, FREE ANNULAR MEMBRANE /COM,REFERENCE NAFEMS FVB MANUAL TEST 33 /PREP7 ETYP=182 RDIV=3 CDIV=16 ET,1,ETYP MP,EX,1,200E9 MP,NUXY,1,.3 MP,DENS,1,8000 CSYS,1 K,1,1.8 K,2,6 K,3,6,90 K,4,1.8,90 L,1,2,RDIV L,2,3,(CDIV/4) L,3,4,RDIV L,4,1,(CDIV/4) ESIZ,,,2 A,1,2,3,4 AMESH,1 CSYS,0 ARSYM,1,1 ARSYM,2,1,2 NUMMRG,ALL FINISH /SOLU ANTYPE,MODAL MODOPT,SUBSPACE,14 MXPAND,14 RIGID,ALL /OUT,SCRATCH SOLVE FINISH /POST1 *DIM,FREQ,ARRAY,14 *GET,FREQ(1,1),MODE,1,FREQ *GET,FREQ(2,1),MODE,2,FREQ *GET,FREQ(3,1),MODE,3,FREQ *GET,FREQ(4,1),MODE,4,FREQ *GET,FREQ(5,1),MODE,5,FREQ *GET,FREQ(6,1),MODE,6,FREQ *GET,FREQ(7,1),MODE,7,FREQ *GET,FREQ(8,1),MODE,8,FREQ *GET,FREQ(9,1),MODE,9,FREQ *GET,FREQ(10,1),MODE,10,FREQ *GET,FREQ(11,1),MODE,11,FREQ *GET,FREQ(12,1),MODE,12,FREQ *GET,FREQ(13,1),MODE,13,FREQ *GET,FREQ(14,1),MODE,14,FREQ R1=1.00 R2=1.00 R3=1.00 R4=FREQ(4,1)/129.240 R5=FREQ(5,1)/129.240 R6=FREQ(6,1)/226.17 R7=FREQ(7,1)/234.74 R8=FREQ(8,1)/234.74 R9=FREQ(9,1)/264.66 R10=FREQ(10,1)/264.66 R11=FREQ(11,1)/336.61 R12=FREQ(12,1)/336.61 R13=FREQ(13,1)/376.79 R14=FREQ(14,1)/376.79 *DIM,VALUE,,7,4 *DIM,RATIO,,7,2 *DIM,LABEL,CHAR,7 *DIM,LABEL2,CHAR,7 LABEL(1)='FREQ 1','FREQ 2','FREQ 3','FREQ 4','FREQ 5','FREQ 6','FREQ 7' LABEL2(1)='FREQ 8','FREQ 9','FREQ 10','FREQ 11','FREQ 12','FREQ 13','FREQ 14' *VFILL,VALUE(1,1),DATA,0,0,0,129.240,129.240,226.170,234.740, *VFILL,VALUE(1,2),DATA,234.740,264.660,264.660,336.610,336.610,376.790,376.790 *VFILL,VALUE(1,3),DATA,FREQ(1,1),FREQ(2,1),FREQ(3,1),FREQ(4,1),FREQ(5,1),FREQ(6,1),FREQ(7,1) *VFILL,VALUE(1,4),DATA,FREQ(8,1),FREQ(9,1),FREQ(10,1),FREQ(11,1),FREQ(12,1),FREQ(13,1),FREQ(14,1) *VFILL,RATIO(1,1),DATA,R1,R2,R3,R4,R5,R6,R7 *VFILL,RATIO(1,2),DATA,R8,R9,R10,R11,R12,R13,R14 /OUT, /COM, /COM, /COM,------------- VMP09-T33-182 RESULTS COMPARISON --------------------- /COM, /COM, | TARGET | Mechanical APDL | RATIO /COM, *VWRITE,LABEL(1),VALUE(1,1),VALUE(1,3),RATIO(1,1) (1X,A8,' ',F10.3,' ',F14.3,' ',1F14.3) *VWRITE,LABEL2(1),VALUE(1,2),VALUE(1,4),RATIO(1,2) (1X,A8,' ',F10.3,' ',F14.3,' ',1F14.3) FINISH /POST26 *DIM,LABEL1,CHAR,6 *DIM,LABEL4,CHAR,6 *DIM,VALUE1,,6,2 LABEL1(1) = ' MODE',' MODE',' MODE',' MODE',' MODE',' MODE' LABEL4(1) = '4,5','6','7,8','9,10','11,12','13,14' *VFILL,VALUE1(1,1),DATA,FREQ(5,1),FREQ(6,1),FREQ(8,1),FREQ(10,1),FREQ(12,1),FREQ(14,1) *VFILL,VALUE1(1,2),DATA,R5,R6,R8,R10,R12,R14 *DIM,LABEL3,CHAR,6 *DIM,LABEL5,CHAR,6 LABEL3(1) = 'vmp09-t3','vmp09-t3','vmp09-t3','vmp09-t3','vmp09-t3','vmp09-t3' LABEL5(1) = '3-182','3-182','3-182','3-182','3-182','3-182', /OUT,vmp09-t33-182,vrt /COM /COM,------------------- VMP09-T33 RESULTS COMPARISON --------------------- /COM, /COM, | Mechanical APDL | RATIO | INPUT | /COM, /COM, PLANE182 *VWRITE,LABEL1(1),LABEL4(1),VALUE1(1,1),VALUE1(1,2),LABEL3(1),LABEL5(1) (1X,A5,A5,' ',F13.3,' ',F7.3,' ',A8,A5) /COM, /COM,---------------------------------------------------------------- /OUT FINISH *LIST,vmp09-t33-182,vrt

Input

*DIM,my_table,TABLE,5,1,1,TIME

*DIM,myarray,Frequency,5,2,1

Output

ANATYPE 3

IMAG 1

MODEEXT -999

MAXMODE 0

MAXEXCI 0

1.7817974362806799e+04

1.8281321604634802e+04

1.8756717952726973e+04

1.9244476737882924e+04

1.9744919438908146e+04

2.0258375894498928e+04

2.0785184520636853e+04

2.1325692533636757e+04

2.1880256178994707e+04

2.2449240966187448e+04

RSTFILENAME "..\file.rst"

UONFILE 1

Page updated

Google Sites

Report abuse