! TITLE: ven.mac (GE) ! !--------------------------------------------------------------------------- ! Rev - 03/22/2000 J. Rinaldi !--------------------------------------------------------------------------- ! ! This macro creates a cylindrical LVDT structural housing ! for the Variable Exhaust Nozzle (VEN) position transmitter. ! It will perform a thermal/structural analysis. Jet fuel is ! pumped into the small tube volume for cooling. ! ! CSven0: Cartesian VEN Coordinate System ! CSven1: Cylindrical VEN Coordinate System ! CSven2: Spherical VEN Coordinate System ! ! !******************************* TABLE OF CONTENTS ************************** ! ! Model Assembly Preparation ! ! 1. Parameter List ! 2. Model Coordinate System ! 2. Material and Element Type ! 4. Solid Model ! ! !***************************** END Table of Contents ************************ ! ! ! !************************** Model Assembly Preparation ********************** ! mod_assemb_prep ! prepare database for assembly ! /dev,font,1,charter,bold,r,24,,,,, ! /title,Variable Exhaust Nozzle Position Transmitter Thermal Analysis ! /view,1,1,1,1 /auto,1 /replot ! /units,bin ! British/inch units /prep7 ! !**************************** End Model Preparation ************************* ! ! ! !<<<<<<<<<<<<<<<<<<<<<<<< 1. Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>> name='ven_lvdt' ! part name selection variable ! (must be 8 characters or less) !--------------- model c.s. names -------------- ct_name='CSven0' ! cartesian cyl_name='CSven1' ! cylindrical sph_name='CSven2' ! spherical ! (all names must be 8 characters or less) !----------------------------------------------- pi=acos(-1) !---------- CONSTANTS ---------- rconv=pi/180 ! radian conversion constant dconv=180/pi ! degree conversion constant dout=1.50 ! outer diameter of housing din=1.150 ! inner diameter of housing dport=0.300 ! port diameter LA=2.00 ! length of zone A LB=8.350 ! length of zone B LC=2.00 ! length of zone C tboss=0.6 ! thickness of bosses rfil=0.05 ! fillet radius dcx=0.823 ! x distance between hole centers dcy=0.205 ! y distance between hole centers l1=0.227 l2=0.215 emin=.03 ! element side minimum length emax=.06 ! element side maximum length nel=50 ! # elements along length !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ! ! ! !<<<<<<<<<<<<<<<<<<<< 2. Model Coordinate Systems >>>>>>>>>>>>>>>>>>>> ! acs=0 ! active coordinate system (c.s.) locating model c.s. ! !------------- Specify model c.s. center location -------------- ! xc=1.00 ! x (r) coordinate center yc=5.00 ! y (theta) coordinate center zc=3.00 ! z (z or phi) coordinate center ! !------------- Specify model c.s. orientation ------------------ ! rotxy=0 ! 1st rotation angle (+x to +y) rotyz=0 ! 2nd rotation angle (+y to +z) rotzx=0 ! 3rd rotation angle (+z to +x) ! !--------------------------------------------------------------- ! *if,csn,eq,0,then csn=10 ! initialize local c.s. numbers *endif ! csn=csn+1 %ct_name%=csn ! cartesian model c.s. number ! csn=csn+1 %cyl_name%=csn ! cylindrical model c.s. number ! csn=csn+1 %sph_name%=csn ! spherical model c.s. number ! csys,acs clocal,%ct_name%,0,xc,yc,zc,rotxy,rotyz,rotzx ! csys,acs clocal,%cyl_name%,1,xc,yc,zc,rotxy,rotyz,rotzx ! csys,acs clocal,%sph_name%,2,xc,yc,zc,rotxy,rotyz,rotzx ! !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ! ! ! !<<<<<<<<<<<<<<<<<<<< 3. Material and Element Type >>>>>>>>>>>>>>>>>>> ! *if,assemble,eq,0,then ! !---------------------- Material Properties -------------------- ! UIMP,1,EX, , ,10.3E6, ! Material: Aluminum UIMP,1,DENS, , ,.097/386.4, UIMP,1,NUXY, , ,0.33, ! !--------------------------------------------------------------- ! ! !------------------------- Element Type ------------------------ ! ET,1,shell93 ET,2,solid95 ! !--------------------------------------------------------------- ! *endif ! !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ! ! ! !<<<<<<<<<<<<<<<<<<<<<<<<<<< 4. Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>> ! csys,CSven1 ! *do,i,0,3*((pi/2)*dconv),((pi/2)*dconv) k,,din/2,i,0 *enddo ! init_entity_num ! l,km-3,km-2 l,km-2,km-1 l,km-1,km l,km,km-3 ! *do,i,0,3*((pi/2)*dconv),((pi/2)*dconv) k,,dout/2,i,0 *enddo ! init_entity_num ! l,km-3,km-2 l,km-2,km-1 l,km-1,km l,km,km-3 ! csys,CSven0 csn=csn+1 portCS0=csn clocal,portCS0,0,dcx,-dcy,0,0,0,0 ! csys,CSven0 csn=csn+1 portcycs=csn clocal,portcycs,1,dcx,-dcy,0,0,0,0 ! *do,i,0,3*((pi/2)*dconv),((pi/2)*dconv) k,,dport/2,i,0 *enddo ! init_entity_num ! l,km-3,km-2 l,km-2,km-1 l,km-1,km l,km,km-3 ! csys,portCS0 ! k,,l1,-(1.5*l2),0 k,,l1,(1.5*l2),0 ! init_entity_num ! lstr,km,km-1 ! k,,-(1.5*l1),l2,0 k,,(1.5*l1),l2,0 ! init_entity_num ! lstr,km,km-1 ! k,,-(1.5*l1),-l2,0 k,,(1.5*l1),-l2,0 ! init_entity_num ! lstr,km,km-1 ! init_entity_num ! lsbl,lm-1,lm-2,,delete,keep lsbl,lm,lm-2,,delete,delete ! init_entity_num ! lstr,km-1,km ! ldele,lm-2,lm,2,1 ! init_entity_num ! lsbl,lm-15,lm-4,,delete,delete lsbl,lm-12,lm-2,,delete,delete ! init_entity_num ! lstr,km-2,km lstr,km-1,km-3 ! ldele,lm-3,lm-1,2,1 ! init_entity_num ! lfillt,lm,lm-6,rfil lfillt,lm-1,lm-6,rfil lfillt,lm-4,lm,rfil*2 lfillt,lm-1,lm-2,rfil*2 ! init_entity_num ! lplot ! a,km,km-1,km-5,km-4,km-6,km-7,km-2,km-3,km-24,km-23,km-22 a,km-21,km-20,km-19,km-18 a,km-29,km-28,km-27,km-26 ! init_entity_num ! aplot ! asel,s,area,,am-1,am,1 cm,aset,area ! allsel,all ! asba,am-2,aset,,delete,delete ! init_entity_num ! aatt,1,,1,0 mshkey,0 desize,,,,,,emin,emax ! amesh,am ! type,2 esize,,nel ! voffst,am,la ! eplot