TABLE OF CONTENTS This annex contains ANSYS input listings and other lists useful for checking some of the examples dealt with in Annex E. The section numbering refers to the example designations in Annex E, e.g. Section L.5.2 deals with Example 5.2 dealt with in Annex E.5.2.
1 /filnam,Model,12 /PREP73 *set,pi,acos(-1)4 *afun,deg5 !geometry cylindrical shell6 *set,riz,2515/27 *set,raz,2515/2+1908 *set,hz,20009 csys,010 k,1,riz,0,011 k,2,raz,0,012 k,3,raz,hz,013 k,4,riz,hz,0 14 !geometry hemispherical end15 *set,rik,1297.516 *set,rak,1297.5+11017 local,11,1,,hz,18 k,5,rak,acos(riz/rik),019 k,6,rik,acos(riz/rik),0 20 !geometry nozzle21 *set,ris,520/222 *set,ras,520/2+13023 *set,rar,520/2+9024 *set,hsv,29525 *set,hsr,15026 *set,rf,5027 k,7,rak,acos(ras/rak),028 k,8,rik,acos(ris/rik),029 l,5,730 l,8,631 csys,032 k,9,ras,hz+(sqrt(rak**2- ras**2))+hsv33 k,10,ris,hz+(sqrt(rak**2- ras**2))+hsv34 k,11,rar,hz+(sqrt(rak**2- ras**2))+hsv+(ras-rar)/tan(30)35 k,12,ris,hz+(sqrt(rak**2- ras**2))+hsv+(ras-rar)/tan(30)36 k,13,rar,hz+(sqrt(rak**2- ras**2))+hsv+(ras- rar)/tan(30)+hsr37 k,14,ris,hz+(sqrt(rak**2- ras**2))+hsv+(ras- rar)/tan(30)+hsr38 l,7,939 l,10,840 LFILLT,1,3,rf,041 LFILLT,2,4,rf,0 42 !geometry flange43 *set,hf,20044 *set,raf,1045/245 *set,rda,700/246 k,19,raf,hz+(sqrt(rak**2- ras**2))+hsv+(ras- rar)/tan(30)+hsr47 k,20,raf,hz+(sqrt(rak**2- ras**2))+hsv+(ras- rar)/tan(30)+hsr+hf48 k,21,rda,hz+(sqrt(rak**2- ras**2))+hsv+ (ras- rar)/tan(30)+hsr+hf49 k,22,ris,hz+(sqrt(rak**2- ras**2))+hsv+ (ras- rar)/tan(30)+hsr+hf50 a,1,2,3,451 a,4,3,5,652 a,10,9,11,1253 a,12,11,13,1454 LANG,2,15,90,,0.1<span class="beginpage"> pagenum="272"><a name="788"></a><a name="IDX-272"></a></span>55 LANG,4,16,90,,0.756...
