Диссертация (Щёточные уплотнения в роторных системах авиационных двигателей), страница 76
Описание файла
Файл "Диссертация" внутри архива находится в папке "Щёточные уплотнения в роторных системах авиационных двигателей". PDF-файл из архива "Щёточные уплотнения в роторных системах авиационных двигателей", который расположен в категории "". Всё это находится в предмете "технические науки" из Аспирантура и докторантура, которые можно найти в файловом архиве МАИ. Не смотря на прямую связь этого архива с МАИ, его также можно найти и в других разделах. , а ещё этот архив представляет собой докторскую диссертацию, поэтому ещё представлен в разделе всех диссертаций на соискание учёной степени доктора технических наук.
Просмотр PDF-файла онлайн
Текст 76 страницы из PDF
2$Rs0lappend s e a l P t 2 $Xh1$Rs0lappend s e a l P t 3 $Xh1$Rt120lappend s e a l P t 4 [ expr {$Xh1−$Lt2 } ]$Rt110lappend s e a l P t 5 [ expr {$Xh1−$Lt2−$Lt1 } ]$Rt110lappend s e a l P t 6 [ expr {$Xh1−2*$Lt2−$Lt1 } ] $Rt120lappend s e a l P t 7 [ expr {$Xh1−2*$Lt2−$Lt1 } ] $Rs0lappend s e a l P t 8 $Xh2$Rs0lappend s e a l P t 9 $Xh2$Rt220lappend s e a l P t 1 0 [ expr {$Xh2−$Lt2 } ]$Rt210lappend s e a l P t 1 1 [ expr {$Xh2−$Lt2−$Lt1 } ]$Rt210lappend s e a l P t 1 2 [ expr {$Xh2−2*$Lt2−$Lt1 } ] $Rt220lappend s e a l P t 1 3 [ expr {$Xh2−2*$Lt2−$Lt1 } ] $Rs0lappend s e a l P t 1 4 [ expr {$Xb+4 . 5 0 } ]$Rs0lappend s e a l P t 1 5 [ expr {$Xb+4 .
5 0 } ][ expr {$Rr+$HT4 } ] 0lappend s e a l P t 1 6 [ expr {$Xb+4 . 2 5 } ][ expr {$Rr+$HT4 } ] 0lappend s e a l P t 1 7 [ expr {$Xb+2 . 7 5 } ][ expr {$Rr+4 . 4 5 } ] 0lappend s e a l P t 1 8 [ expr {$Xb+2 . 7 5 } ][ expr {$Rr+$Lb } ]0lappend s e a l P t 1 9 [ expr {$Xb+$BbUp } ][ expr {$Rr+$Lb } ]0lappend s e a l P t 2 0 $Xb[ expr {$Rr+$Lb } ]0lappend s e a l P t 2 1 $Xb[ expr {$Rr+$HT4 } ] 0lappend s e a l P t 2 2 [ expr {$Xb−0.25 } ][ expr {$Rr+$HT4 } ] 0470Файлы для создания геометрии уплотнительного узла SSB-1 в ICEM CFD130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189lappend s e a l P t 2 3 [ expr { $Xb−0.5157 } ] [ expr {$Rr+1 .
9 5 } ] 0lappend s e a l P t 2 4 [ expr { $Xb−1.1771 } ] [ expr {$Rr+3 . 2 0 } ] 0lappend s e a l P t 2 5 [ expr {$Xb−2.50 } ][ expr {$Rr+3 . 7 0 } ] 0lappend s e a l P t 2 6 [ expr {$Xb−2.50 } ]$Rs0lappend s e a l P t 2 7 0$Rs0set s e a l P t 27# Downstream p o i n t slappend downPt1 0$Rd 0lappend downPt2 −$Ld$Rd 0set downPt 2# Upstream p o i n t slappend upPt153 .
2$Rd 0lappend upPt2[ expr {53 . 2 + $Ld } ] $Rd 0set upPt 2# Material points# B r i s t l e pack r e g i o nset x 1 0 ; set y 94lappend mPtSEAL_DOWN_B $x $y 0# Upstream r e g i o nset x 5 0 ; set y 94lappend mPtSEAL_UP_B$x $y 0# Downstream r e g i o nset x 2 0 ; set y 94lappend mPtBRUSH_B$x $y 0###################################################### CREATION OF POINTS###################################################### Rotor p o i n t sset s t r R o t o r P t "ROTORPT"fo r { set i 1} { $ i <$ r o t o r P t +1} { incr i } { \set pt0 $ s t r R o t o r P t ; \set [ append pt0 $ i ] [ ic_geo_cre_pnt ROTOR $pt0 [ set " r o t o r P t $ i " ] ] \}# Seal pointsset s t r S e a l P t "SEALPT"fo r { set i 1} { $ i <$ s e a l P t +1} { incr i } { \set pt0 $ s t r S e a l P t ; \set [ append pt0 $ i ] [ ic_geo_cre_pnt SEAL $pt0 [ set " s e a l P t $ i " ] ] \}# Downstream p o i n t sset strDownPt "DOWNPT"fo r { set i 1} { $ i <$downPt+1} { incr i } { \set pt0 $strDownPt ; \set [ append pt0 $ i ] [ ic_geo_cre_pnt DOWN $pt0 [ set " downPt$i " ] ] \}# Upstream p o i n t sset strUpPt "UPPT"fo r { set i 1} { $ i <$upPt+1} { incr i } { \set pt0 $strUpPt ; \set [ append pt0 $ i ] [ ic_geo_cre_pnt UP $pt0 [ set " upPt$i " ] ] \}###################################################### CREATION OF LINES (SEAL CONTOUR)###################################################### Rotor l i n e sset s t r R o t o r C r "ROTORCR"471Файлы для создания геометрии уплотнительного узла SSB-1 в ICEM CFD190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249fo r { set i 1} { $ i <$ r o t o r P t } { incr i } { \set l n 0 $ s t r R o t o r C r ; \set pt1 $ s t r R o t o r P t ; set pt2 $ s t r R o t o r P t ; \set [ append l n 0 $ i ] [ i c _ g e o _ c r e _ l i n e ROTOR $ l n 0 [ append pt1 $ i ] \[ append pt2 [ expr { $ i + 1 } ] ] ] \}# Seal l i n e sset s t r S e a l C r "SEALCR"fo r { set i 1} { $ i <$ s e a l P t } { incr i } { \set l n 0 $ s t r S e a l C r ; \set pt1 $ s t r S e a l P t ; set pt2 $ s t r S e a l P t ; \set [ append l n 0 $ i ] [ i c _ g e o _ c r e _ l i n e SEAL $ l n 0 [ append pt1 $ i ] \[ append pt2 [ expr { $ i + 1 } ] ] ] \}# Downstream l i n e sset DOWNCR1 [ i c _ g e o _ c r e _ l i n e DOWN1 DOWNCR1 DOWNPT1 "SEALPT$sealPt" ]set DOWNCR2 [ i c _ g e o _ c r e _ l i n e DOWN2 DOWNCR2 DOWNPT2 DOWNPT1]# Upstream l i n e sset UPCR1 [ i c _ g e o _ c r e _ l i n e UP UPCR1 SEALPT1 UPPT1 ]set UPCR2 [ i c _ g e o _ c r e _ l i n e UP UPCR2 UPPT1 UPPT2 ]###################################################### CREATION OF SURFACES###################################################### Upstream r o t o r s u r f a c e (ROTOR1)set s t r R o t o r S f "ROTORSF"set ROTORSF1 [ ic_geo_cre_srf_rev ROTOR1 ROTORSF1 ROTORCR1 {0 0 0} {1 00 360 c ]# Rotor s u r f a c e s (ROTOR2)fo r { set i 2} { $ i <$rotorPt−1 } { incr i } { \set s f 0 $ s t r R o t o r S f ; \set l n 1 $ s t r R o t o r C r ; \set [ append s f 0 $ i ] [ ic_geo_cre_srf_rev ROTOR2 $ s f 0 [ append l n 1 $ i ]{0 0 0} {1 0 0} 0 360 c ] \}# Downstream r o t o r s u r f a c e (ROTOR3)fo r { set i [ expr { $rotorPt−1 } ] } { $ i <$ r o t o r P t } { incr i } { \set s f 0 $ s t r R o t o r S f ; \set l n 1 $ s t r R o t o r C r ; \set [ append s f 0 $ i ] [ ic_geo_cre_srf_rev ROTOR3 $ s f 0 [ append l n 1 $ i ]{0 0 0} {1 0 0} 0 360 c ] \}# S e a l s u r f a c e s (SEAL)set s t r S e a l S f "SEALSF"fo r { set i 1} { $ i <$ s e a l P t } { incr i } { \set s f 0 $ s t r S e a l S f ; \set l n 1 $ s t r S e a l C r ; \set s t r 3 "SEAL" ; \set [ append s f 0 $ i ] [ ic_geo_cre_srf_rev "SEAL$i" [ append s f 0 $ i ] \[ append l n 1 $ i ] {0 0 0} {1 0 0} 0 360 c ] \}# Downstream s u r f a c e s (DOWN)set DOWNSF1 [ ic_geo_cre_srf_rev DOWN DOWNSF1 DOWNCR1 {0 0 0} {1 0 0} 0set DOWNSF2 [ ic_geo_cre_srf_rev DOWN DOWNSF2 DOWNCR2 {0 0 0} {1 0 0} 0# Upstream s u r f a c e s (UP)set UPSF1 [ ic_geo_cre_srf_rev UP UPSF1 UPCR1 {0 0 0} {1 0 0} 0 360 c ]set UPSF2 [ ic_geo_cre_srf_rev UP UPSF2 UPCR2 {0 0 0} {1 0 0} 0 360 c ]#####################################################4720} \\\360 c ]360 c ]Файлы для создания геометрии уплотнительного узла SSB-1 в ICEM CFD250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309# CREATION OF AUXILIARY CURVES (CIRCLES)# FOR ASSOCIATION WITH BLOCK MODEL EDGES###################################################### AUX01set strAux "AUX0"set s t r C r "CR"set N 1set centreAx[ expr {53 .
2 + $Ld } ]lappend centreAx [ expr {53 . 2 + $Ld } ]set Radius$Rrlappend Radius $Rdset RadiusN [ llength $Radius ]makeauxcurve $Radius $strAux $ s t r C r $N $centreAx# AUX02set N [ expr {$N+1}]set centreAx53 . 2lappend centreAx 53 . 2 53 . 2set Radius$Rrlappend Radius $Rs $Rdlappend RadiusN [ llength $Radius ]makeauxcurve $Radius $strAux $ s t r C r $N $centreAx# AUX03set N [ expr {$N+1}]set centreAx$Xh1lappend centreAx $Xh1set Radius$Rt12lappend Radius $Rslappend RadiusN [ llength $Radius ]makeauxcurve $Radius $strAux $ s t r C r $N $centreAx# AUX04set N [ expr {$N+1}]set centreAx[ expr {$Xh1−$Lt2 } ]lappend centreAx [ expr {$Xh1−$Lt2 } ]set Radius$Rrlappend Radius $Rt11lappend RadiusN [ llength $Radius ]makeauxcurve $Radius $strAux $ s t r C r $N $centreAx# AUX05set N [ expr {$N+1}]set centreAx[ expr {$Xh1−$Lt2−$Lt1 } ]lappend centreAx [ expr {$Xh1−$Lt2−$Lt1 } ]set Radius$Rrlappend Radius $Rt11lappend RadiusN [ llength $Radius ]makeauxcurve $Radius $strAux $ s t r C r $N $centreAx# AUX06set N [ expr {$N+1}]set centreAx[ expr {$Xh1−2*$Lt2−$Lt1 } ]lappend centreAx [ expr {$Xh1−2*$Lt2−$Lt1 } ]set Radius$Rt12lappend Radius $Rslappend RadiusN [ llength $Radius ]makeauxcurve $Radius $strAux $ s t r C r $N $centreAx# AUX07set N [ expr {$N+1}]set centreAx37lappend centreAx 37 37set Radius$Rrlappend Radius $Rst $Rs473Файлы для создания геометрии уплотнительного узла SSB-1 в ICEM CFD310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369lappend RadiusN [ llength $Radius ]makeauxcurve $Radius $strAux $ s t r C r $N $centreAx# AUX08set N [ expr {$N+1}]set centreAx$Xh2lappend centreAx $Xh2set Radius$Rt22lappend Radius $Rslappend RadiusN [ llength $Radius ]makeauxcurve $Radius $strAux $ s t r C r $N $centreAx# AUX09set N [ expr {$N+1}]set centreAx[ expr {$Xh2−$Lt2 } ]lappend centreAx [ expr {$Xh2−$Lt2 } ]set Radius$Rstlappend Radius $Rt21lappend RadiusN [ llength $Radius ]makeauxcurve $Radius $strAux $ s t r C r $N $centreAx# AUX10set strAux "AUX"set N [ expr {$N+1}]set centreAx[ expr {$Xh2−$Lt2−$Lt1 } ]lappend centreAx [ expr {$Xh2−$Lt2−$Lt1 } ]set Radius$Rrlappend Radius $Rt21lappend RadiusN [ llength $Radius ]makeauxcurve $Radius $strAux $ s t r C r $N $centreAx# AUX11set N [ expr {$N+1}]set centreAx[ expr {$Xh2−2*$Lt2−$Lt1 } ]lappend centreAx [ expr {$Xh2−2*$Lt2−$Lt1 } ]set Radius$Rt22lappend Radius $Rslappend RadiusN [ llength $Radius ]makeauxcurve $Radius $strAux $ s t r C r $N $centreAx# AUX12set N [ expr {$N+1}]set centreAx31lappend centreAx 31 31set Radius$Rrlappend Radius $Rst $Rslappend RadiusN [ llength $Radius ]makeauxcurve $Radius $strAux $ s t r C r $N $centreAx# AUX13set N [ expr {$N+1}]set centreAx[ expr {$Xb+4 .
5 0 } ]lappend centreAx [ expr {$Xb+4 . 5 0 } ] [ expr {$Xb+4 . 5 0 } ] [ expr {$Xb+4 . 5 0 } ]set Radius$Rrlappend Radius [ expr {$Rr+$HT4 } ] [ expr {$Rr+4 . 4 5 } ] $Rslappend RadiusN [ llength $Radius ]makeauxcurve $Radius $strAux $ s t r C r $N $centreAx# AUX14set N [ expr {$N+1}]set centreAx[ expr {$Xb+4 . 2 5 } ]lappend centreAx [ expr {$Xb+4 . 2 5 } ]set Radius$Rrlappend Radius [ expr {$Rr+$HT4 } ]lappend RadiusN [ llength $Radius ]makeauxcurve $Radius $strAux $ s t r C r $N $centreAx# AUX15474Файлы для создания геометрии уплотнительного узла SSB-1 в ICEM CFD370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429set N [ expr {$N+1}]set centreAx[ expr {$Xb+2 .
7 5 } ]lappend centreAx [ expr {$Xb+2 . 7 5 } ]set Radius[ expr {$Rr+4 . 4 5 } ]lappend Radius [ expr {$Rr+$Lb } ]lappend RadiusN [ llength $Radius ]makeauxcurve $Radius $strAux $ s t r C r $N $centreAx# AUX16set N [ expr {$N+1}]set centreAx[ expr {$Xb+$BbDown } ]lappend centreAx [ expr {$Xb+$BbDown } ]set Radius$Rrlappend Radius [ expr {$Rr+$Lb } ]lappend RadiusN [ llength $Radius ]makeauxcurve $Radius $strAux $ s t r C r $N $centreAx# AUX17set N [ expr {$N+1}]set centreAx$Xblappend centreAx $Xb $Xbset Radius$Rrlappend Radius [ expr {$Rr+$HT4 } ] [ expr {$Rr+$Lb } ]lappend RadiusN [ llength $Radius ]makeauxcurve $Radius $strAux $ s t r C r $N $centreAx# AUX18set N [ expr {$N+1}]set centreAx[ expr {$Xb−0.25 } ]lappend centreAx [ expr {$Xb−0.25 } ]set Radius$Rrlappend Radius [ expr {$Rr+$HT4 } ]lappend RadiusN [ llength $Radius ]makeauxcurve $Radius $strAux $ s t r C r $N $centreAx# AUX19set N [ expr {$N+1}]set centreAx[ expr { $Xb−0.5157 } ]lappend centreAx [ expr { $Xb−0.5157 } ]set Radius$Rrlappend Radius [ expr {$Rr+1 .
9 5 } ]lappend RadiusN [ llength $Radius ]makeauxcurve $Radius $strAux $ s t r C r $N $centreAx# AUX20set N [ expr {$N+1}]set centreAx[ expr { $Xb−1.1771 } ]lappend centreAx [ expr { $Xb−1.1771 } ]set Radius$Rrlappend Radius [ expr {$Rr+3 . 2 0 } ]lappend RadiusN [ llength $Radius ]makeauxcurve $Radius $strAux $ s t r C r $N $centreAx# AUX21set N [ expr {$N+1}]set centreAx[ expr {$Xb−2.50 } ]lappend centreAx [ expr {$Xb−2.50 } ] [ expr {$Xb−2.50 } ] [ expr {$Xb−2.50 } ] \[ expr {$Xb−2.50 } ]set Radius$Rrlappend Radius [ expr {$Rr+$HT4 } ] [ expr {$Rr+1 .