This example uses WindProg.exe, which represents a dummy aeroelastic analysis. Source code to allow you to compile this program is provided for both C++ and FORTRAN in {Installation Folder}\ansys\custom\user\{Platform}\Aeroelastic\WindDemos\{C++|FORTRAN}. It assumes that the steps in Compiling a Custom Version of Mechanical APDL have been followed to create a custom executable for Mechanical APDL.

The example Mechanical APDL file is a simple line of pipe elements which is fully supported at node 6 and has the interface node positioned at node 1. The WTBCREATE macro is used to set up the user element and define the interface node.

To run the analysis, WindProg.exe must be able to find the WTBFunctions.dll either by having both files in the same folder, or by adding the folder containing WTBFunctions.dll to your Path system environment variable. First run WindProg and enter 3 as the number of freedoms, then run the following example within Mechanical APDL.

/FILNAME,wind02
/prep7
/TITLE,wind02, Wind coupling test
/com **************************************************************************
/com Wind coupling testing 02
/com **************************************************************************
antype,trans
nlgeom,off
et,1,pipe288
! define pipe section
secnum,1
sectype,1,pipe
secdata,0.1,0.02
MP,EX,  1,2.1e11
MP,PRXY,1,0.3
MP,ALPX,1,0.0
MP,DENS,1,7850.0
! define the tube
n,        1,        0.0,   0.0
n,        2,        1.0,   0.0
n,        3,        2.0,   0.0
n,        4,        3.0,   0.0
n,        5,        4.0,   0.0
n,        6,        5.0,   0.0
type,1
mat,1
secnum,1
en, 1,   1,  2
en, 2,   2,  3
en, 3,   3,  4
en, 4,   4,  5
en, 5,   5,  6
! define damping factors
alphad,0.3
betad,0.001
! define turbine element
wtbcreate,,1,1  ! use Rayleigh damping
d,  6,all
finish
/SOLU    
! CASE 1
F,1,FY,1.0e5
TINTP,0.0
TIME,1.0e-6
nsubst,1
solve
TIME,0.1
nsubst,10,10,10
OUTPR,all,1
OUTRES,all,1
solve
finish
/POST1
FORCE,STATIC
PRESOL,F
PRESOL,M
finish