GEOMETRIA ALA.TXT/eshape,1 !visione 3D delle linee meshate/prep7 !entriamo nel prep-processoraclear,all !cancella tutte le mesh sulle areelclear,all !cancella tutte le mesh sulle lineendele,all !cancella tutti i nodivdele,all !cancella tutte i volumiadele,all !cancella tutte le areeldele,all !cancella tutte le lineekdele,all !cancella tutte i punti*afun,deg !specifica lunit angolare per le espressioni seguenti (gradi)wpstyl,50,100,-3000,3000 !settaggio WP!parametri del profiloc=1600 !corda alla radicelam=-7 !angolo di freccia in gradi d1=4 !primo digit (camber)d2=4 !secondo digit (posizione camber)d34=12 !terzo e quarto digit (massimo spessore)nnn=20 !quantit di punti sul dorso e sul ventreb=3.0*c !apertura alare (mm)!creazione profilo NACA 4412pp=d2/10 !primo digit in decimi di cordamm=d1/100 !secondo digit in centesimi di cordad34b=d34/100 !terzo e quarto digit in centesimi di cordak,1000,0,0 !leading-edgek,1002,c,0 !trailing-edgek,1001,pp*c,mm*c !punto di coordinate (m,p)nummrg,kp !fusione di tutti punti(profili simmetrici)bsplin,all !creazione linea media k,10000,0,-c*10 !punto di allineamento ausiliario del WPtx=lsx(1,0) !pendenza x linea media al trailing-edgety=lsy(1,0) !pendenza y linea media al trailing-edgecount=1 !contatore puntinnn=20 !numero punti sul dorso e sul ventre*do,i,0,1-1/nnn,1/nnn !ciclo do per la creazione dei punti di dorso e ventreii=lx(1,i)/c !coordinata x del punto corrente sulla linea media (sistema csys,0)csys,4 !passaggio al sistema solidale con il WPlwplan,-1,1,i !allineamento WP ortogonale alla linea media all'ascissa i*if,kx(10000),lt,0,then !controllo orientamento WPwprota,180 !ruota asse x del WP verso lato convesso linea media*endif !fine del controllo dell'orientamentotk=(d34b/0.20)*(0.2969*sqrt(ii)-0.126*ii-0.351*(ii**2)+0.2843*(ii**3)-0.1015*(ii**4)) !spessore localek,count,tk*c !punti del ventrek,count+100,-tk*c !punti del dorsocount=count+1 !incremento del contatorecsys,0 !ritorno al sistema base*enddoksel,s,kp,,1,count !seleziona tutti i punti del ventreksel,a,kp,,1002 !aggiunge trailing-edgebsplin,all,,,,,,-ty,tx !spline,tg iniziale normale alla linea mediaksel,s,kp,,101,100+count !seleziona tutti i punti del dorsoksel,a,kp,,1002 !aggiunge trailing-edgebsplin,all,,,,,,ty,-tx !spline,tg iniziale normale alla linea mediaallsel !seleziona tutte le entitnummrg,kp !fusione di tutti i puntikdele,10000 !elimina il punto di allineamento del WP !********************* DIVISIONE PROFILOwpcsys,-1,0 !comando per allineare il wp al sistema di coordinate globalewprota,0,0,90 !comando per ruotare il WP di 90 ldele,1 !eliminiamo la corda momentaneamenteal,2,3 !creazione dell'areawpoffs,0,0,0.15*1600 !sposta il WP a 15% di c ( inizio del cassone alare )asbw,all !comando booleano per dividere le aree con il WP*do,i,1,4,1 !ciclo per realizzare le restanti aree wpoffs,0,0,885*0.25 !offsettiamo il WP all'inizio di ogni ciclo di un passo notoasbw,all !comando booleano per dividere le aree con il WP*enddowpcsys,-1,0 !allinea il WP al sistema base !!!!CREAZIONE SOLETTA!!!!csys,4wpcsys,-1,0kwpave,22circle,22,22,,,90 !creo un cerchio sul kp 22 di raggio 22 con lunghezza arco di 90linl,2,10kwplan,-1,22,33rectng,22,-22,0,-2.1wpcsys,-1,0kwpave,22rectng,0,2.1,22,-22aptn,allallselasel,u,area,,12asel,u,area,,13asel,u,area,,16adele,all,,,1allsellesize,all,,,2et,1,mesh200,7amesh,allsecwrite,soletta1,sect,,1sectype,1,beam,mesh !sezione chiamata 10 di tipo traviforme custom(mesh)!secread,soletta1,sect,,mesh