Dear All
Iam trying to model an aircraft wing using Ansys Apdl , and to do that i take the following steps :
1- Draw the profile using [KP] command and LSTR.
2- Complet the area of airfoil section using AL command
3- Generate wing's body using AGEN
i finaly get the structures in the attached fig
Now i need to cover the structure and mesh it , can anyone have an idea how to do that
this is the code i used
/clear ,all
/TITLE, Dynamic Analysis of aircraft wing
/PREP7
ET,1,PLANE42 ! Define PLANE42 as element type 1
ET,2,SOLID45 ! Define SOLID45 as element type 2
MP,EX,1,77280
MP,DENS,1,2710E-6
MP,NUXY,1,.3
! Create Keypoint
! Create Keypoint
K,1,0,0,0 ! Define keypoint 1 at 0,0,0
K,2,0.4,0.75744 ! Define keypoint 2 at0.4,0.75744,0
K,3,0.8,1.04576 ! Define keypoint 3 at 0.8,1.04576,0
K,4,1.6,1.42176 ! Define keypoint 4 at 1.6,1.42176,0
K,5,2.4,1.68 ! Define keypoint 5 at2.4,1.68,0
K,6,3.2,1.87296
K,7,4.8,2.13824
K,8,6.4,2.29504
K,9,8,2.37664
K,10,9.6,2.40064
K,11,12.8,2.32128
K,12,16,2.11744
K,13,19.2,1.82528
K,14,22.4,1.4656
K,15,25.6,1.04928
K,16,28.8,0.5792
K,17,30.4,0.32256
K,18,32,0.05056
K,19,30.4,-0.32256
K,20,28.8,-0.5792
K,21,25.6,-1.04928
K,22,22.4,-1.4656
K,23,19.2,-1.82528
K,24,16,-2.11744
K,25,12.8,-2.32128
K,26,9.6,-2.40064
K,27,8,-2.37664
K,28,6.4,-2.29504
K,29,4.8,-2.13824
K,30,3.2,-1.87296
K,31,2.4,-1.68
K,32,1.6,-1.42176
K,33,0.8,-1.04576
K,34,0.4,-0.75744
*do,i,1,33,1
LSTR, i, i+1
*IF, i+1, eq, 34, then
LSTR, 34, 1
*endif
*enddo
LSTR, 10, 26
LSTR, 14, 22
FLST,2,19,4
FITEM,2,26
FITEM,2,27
FITEM,2,28
FITEM,2,29
FITEM,2,30
FITEM,2,31
FITEM,2,32
FITEM,2,33
FITEM,2,34
FITEM,2,1
FITEM,2,2
FITEM,2,3
FITEM,2,4
FITEM,2,5
FITEM,2,6
FITEM,2,7
FITEM,2,8
FITEM,2,9
FITEM,2,35
AL,P51X
FLST,2,10,4
FITEM,2,36
FITEM,2,13
FITEM,2,12
FITEM,2,11
FITEM,2,10
FITEM,2,35
FITEM,2,25
FITEM,2,24
FITEM,2,23
FITEM,2,22
AL,P51X
FLST,2,9,4
FITEM,2,17
FITEM,2,16
FITEM,2,15
FITEM,2,14
FITEM,2,36
FITEM,2,21
FITEM,2,20
FITEM,2,19
FITEM,2,18
AL,P51X
Aplot
K,35,9.6,2.40064,-20
K,36,22.4,1.4656,-20
K,37,22.4,-1.4656,-20
K,38,9.6,-2.40064,-20
A,10,26,38,35
A,14,22,37,36
FLST,3,5,5,ORDE,2
FITEM,3,1
FITEM,3,-5
AGEN,6,P51X, , , , ,20,,0
Aplot
Dear Claudio Pedrazzi
thank you for the reply , i used Askin and it gives a nice results
- Badges
- Science topic