Инженерный анализ несущей способности и ресурса трубчатых элементов конструкций при нестационарном термомеханическом нагружении, страница 16
Описание файла
PDF-файл из архива "Инженерный анализ несущей способности и ресурса трубчатых элементов конструкций при нестационарном термомеханическом нагружении", который расположен в категории "". Всё это находится в предмете "технические науки" из Аспирантура и докторантура, которые можно найти в файловом архиве МПУ. Не смотря на прямую связь этого архива с МПУ, его также можно найти и в других разделах. Архив можно найти в разделе "остальное", в предмете "диссертации и авторефераты" в общих файлах, а ещё этот архив представляет собой кандидатскую диссертацию, поэтому ещё представлен в разделе всех диссертаций на соискание учёной степени кандидата технических наук.
Просмотр PDF-файла онлайн
Текст 16 страницы из PDF
– Archiwum bydowy maszun, 1977, v. 24, N 2,p. 165–175.61.Krupka V. Eine neue Methode der statischen Beurteilung von Behaltern aufSattellagern. – Seminar Einflub lokaler Spannnungen bei Stahlrohrleitungen,Behaltern und Druckgef aben. Brno, 1973.62.Krupka V. Problem kontaktni najatostivalcove skorepiny usavrenehokruhoveho prurezu. – Strojirenstvi, 1968, v. 24, W 2, p. 177–185.63.Krupka V. The contact between a rigid or flixible support and a thin elasticShells.– Arch.
bud. masz., 1977, v. 24, N 2, p. 177–185.64.Krupka V. Vliv lohalkino zatizem na dlouhe valcove skorepine. –Strojirenstvi, 1969, v. 19, N 4, s. 251–256.65.Krupka V. Vypocet a pasouzeni valcoveho plaste nadob ulozenych nasedlovych pod perach. – Strojirenstvi, 1978, v. 28, N 9, p. 530–533.66.Mang F. Festigkeitsprobleme bei ortlich gestutzten. Rohren und Behaltern. –Rohre – Rohrleitungstransport, 1970, Bd. 9, N 4, s. 207–213.67.Mansson S.S.
Fatique Complex Subject. Experimental Mechanics, 1965,v.7, pp. 234–248.68.Middeton J., Retruska J. Optimal pressure Vessel shape Design to maximizelimit Load. – Eng. Computat, 1986, 3, N 4, p. 287–294.69.Mizoguchi K., Hatsuda T. Strength of a horizontal reservoir supportedpartially by equidistant saddles. Bulletin of ISME, 1971, V. 14, N 74, p.745–752.70.Mizoguchi K., Hatsuda T.
Strength of a horizontal reservoir supportedpartially by two saddles in its cylindrical part. – Bulletin of ISME, 1975, v.18, N 123, p. 932–939.71.Necasek M. K problematice kovovych valcovych nadrzi a zasobniku. –Technichy Zoravodaj. Ocelove konstrukce, 1984, v. 20, N 2, p. 32–36.12272.Nguyen N., Mistree F. Design of horizontal pressure vessels using thedecision support problem technique. "Trans. ASME J. Mech. Transmiss.,and Autom.
Design", 1986, v. 108, N 2, p. 203–210.73.Niederstadt G. Berechnung oberrirdischer Flussigkeits tanks. – Kunststoffe,1970, Bd. 60, N 12, s. 1071–1073.74.Raquel Ines Del Gaizo. Einflüsse der parameter des lagers auf diebeanspruchungen liegender behalter. Bautechnik, 1986, V. 63, N 5, p. 244–248.75.Saal H., Reif A.
Der Spannungs and Stabilitatsfulung. – Der Stahlbau, 1981,v. 50, N l, s. 1–13.76.Schwer L.E., Holmes B.S., Kirkpatrick S.W. Response and failure of metaltanks from impulsive spot loading: experiments and calculations. – Int. J.Solids and Struct. 1988, 24, N 8, p. 817–833.77.Viner R., Dore R. Stresses and deformations in a cylindrical cal shell lyingon a continuons rigid support.
Trans. ASME, 1974, E41, N 4, p. 969–973.78.Widera G.E.O., Sang Z.F., Natarajan R. On the Design of horizontalpressure vessels. – Journal of Pressure Vessel Technology, 1988, V. 110, N4, p. 393–401.79.Wilson J.D., Tooth A.S. The support of unstiffened cylindrical vessels. –Second International Conference on Pressure Vessel Technology, SanAntonio, Texas, 1973.80.Zudans Z. Analysis of elastically coupled shells on elastic found by hybridmethod.– J. Nucl. Eng. and Design, 1972, v. 20, N 1, p. 88–120.123ПРИЛОЖЕНИЯ124ПРИЛОЖЕНИЕ А.
Свидетельство о государственнойрегистрации программы для ЭВМРисунок А.1 – Свидетельство о государственной регистрации программы дляЭВМ125ПРИЛОЖЕНИЕ Б. Листинг кода программы LifeCycleunit UTable;{-------------------------------------------------------------------}interface{-------------------------------------------------------------------}uses Windows, Messages, SysUtils, Variants, Classes, Graphics,Controls, Forms, Dialogs, Grids, StdCtrls, Buttons, ExtCtrls;typeTFTable = class(TForm)StringGrid1: TStringGrid;Panel1: TPanel;BitBtn1: TBitBtn;SaveDialog1: TSaveDialog;BitBtn2: TBitBtn;Label1: TLabel;procedure BitBtn1Click(Sender: TObject);procedure BitBtn2Click(Sender: TObject);procedure FormShow(Sender: TObject);private{ Private declarations }public{ Public declarations }end;PROCEDURE FormTable;var FTable: TFTable;FileSO: TextFile;{-------------------------------------------------------------------}implementationUSES UBegin, UData;{$R *.dfm}{-------------------------------------------------------------------}PROCEDURE FormTable;{Формирование таблицы результатов}var iRow,iCount, i: integer;N,MaxE : extended;BEGINWith FTable.StringGrid1 dobeginColCount:=26;RowCount:=Nphase+1;Cells[0,0]:='Этап';Cells[1,0]:=' Sx, МПа';Cells[2,0]:=' Sy, МПа';Cells[3,0]:=' Sz, МПа';Cells[4,0]:=' EpsX';Cells[5,0]:=' EpsY';126Cells[6,0]:=' EpsZ';Cells[7,0]:=' EpsXp';Cells[8,0]:=' EpsYp';Cells[9,0]:=' EpsZp';Cells[10,0]:='Rx, МПа';Cells[11,0]:='Ry, МПа';Cells[12,0]:='Rz, МПа';Cells[13,0]:=' Eps*p';Cells[14,0]:=' Rp,МПа';Cells[15,0]:='Ax, МПа';Cells[16,0]:='Ay, МПа';Cells[17,0]:='Az, МПа';Cells[18,0]:=' A, МПа';Cells[19,0]:=' EpsEI';Cells[20,0]:='EpsImax';Cells[21,0]:=' DEF';Cells[22,0]:=' T, град';Cells[23,0]:=' Def_E';Cells[24,0]:=' Def_P';Cells[25,0]:=' Def_S';for IRow:=1 to Nphase dobeginCells[0,IRow]:=IntToStr(IRow);for iCount:=1 to 3 doCells[iCount,IRow]:=CONVERT(INFVectorsState[IRow,iCount],8,7,2);for iCount:=4 to 9 doCells[iCount,IRow]:=CONVERT(INFVectorsState[IRow,iCount],9,8,6);for iCount:=10 to 12 doCells[iCount,IRow]:=CONVERT(INFVectorsState[IRow,iCount],8,7,2);Cells[13,IRow]:=CONVERT(INFVectorsState[IRow,13],9,8,6);for iCount:=14 to 18 doCells[iCount,IRow]:=CONVERT(INFVectorsState[IRow,iCount],8,7,2);for iCount:=19 to 21 doCells[iCount,IRow]:=CONVERT(INFVectorsState[IRow,iCount],9,8,6);Cells[22,IRow]:=CONVERT(INFVectorsState[IRow,22],8,7,2);for iCount:=23 to 25 doCells[iCount,IRow]:=CONVERT(INFVectorsState[IRow,iCount],9,8,6);end;end;for i:=1 to Nphase dobeginif ABS(EpsX[i])>ABS(EpsY[i]) then beginif ABS(EpsX[i])>EpsMax[i-1] thenEpsMax[i]:=ABS(EpsX[i])elseEpsMax[i]:=EpsMax[i-1];endelsebeginif ABS(EpsY[i])>EpsMax[i-1] then127EpsMax[i]:=ABS(EpsY[i])elseEpsMax[i]:=EpsMax[i-1];end;end;MaxE:=EpsMax[Nphase];N:= (LN(1/(1-0.55))/(4*MaxE))*(LN(1/(1-0.55))/(4*MaxE))-(Nphase-1)/2;FTable.Label1.Caption:= 'Ресурс конструкции ='+ CONVERT(N,9,13,0) + ' циклов';END; {FormTable}procedure TFTable.BitBtn1Click(Sender: TObject);beginClose;end;procedure TFTable.FormShow(Sender: TObject);beginHeight:=440;BitBtn1.Left:=(Panel1.Width-BitBtn1.Width) div 2;end;procedure TFTable.BitBtn2Click(Sender: TObject);var //i: Integer;StrPathS,StrPathS1: String;FName: String;var iRow, iCount: integer;beginStrPathS:=',';StrPathS1:=' ';SaveDialog1.InitialDir := Application.GetNamePath;SaveDialog1.Filter := 'Save Files (*.csv)';if SaveDialog1.Execute thenFName := SaveDialog1.FileName;AssignFile(FileSO, FName + '.csv');Rewrite(FileSO);for IRow:=1 to Nphase dobeginfor iCount:=1 to 25 dobeginWrite(FileSO, StrPathS1);Write(FileSO, FloatToStr(INFVectorsState[IRow,iCount]));Write(FileSO, StrPathS1);Write(FileSO, StrPathS);end;Writeln(FileSO, StrPathS);end;{ function FloatToStrF(Value: Extended;Format: TFloatFormat;Precision, Digits: Integer): string; }CloseFile(FileSO);end;end.128object FData: TFDataLeft = 141Top = 79AutoScroll = FalseBorderIcons = [biSystemMenu]Caption = #1053#1072#1075#1088#1091#1078#1077#1085#1080#1077''#1090#1088#1091#1073#1095#1072#1090#1086#1075#1086''#1101#1083#1077#1084#1077#1085#1090#1072''#1082#1086#1085#1089#1090#1088#1091#1082#1094#1080#1080'.'#1048#1089#1093#1086#1076#1085#1099#1077' '#1076#1072#1085#1085#1099#1077ClientHeight = 580ClientWidth = 962Color = clGrayFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -10Font.Name = 'MS Sans Serif'Font.Style = []OldCreateOrder = FalsePosition = poScreenCenterOnCreate = FormCreateOnPaint = FormPaintPixelsPerInch = 96TextHeight = 13object PaintBox1: TPaintBoxLeft = 8Top = 0Width = 945Height = 310endobject Panel1: TPanelLeft = 0Top = 548Width = 962Height = 32Align = alBottomColor = clGrayTabOrder = 0object BtnOk: TBitBtnLeft = 384Top = 5Width = 85Height = 25Caption = 'Ok'Font.Charset = RUSSIAN_CHARSETFont.Color = clWindowTextFont.Height = -15Font.Name = 'Arial'Font.Style = []129ParentFont = FalseTabOrder = 0OnClick = BtnOkClickKind = bkOKendobject BtnCancel: TBitBtnLeft = 472Top = 5Width = 85Height = 25Cancel = TrueCaption = #1054#1090#1084#1077#1085#1072Font.Charset = RUSSIAN_CHARSETFont.Color = clWindowTextFont.Height = -15Font.Name = 'Arial'Font.Style = []ModalResult = 2ParentFont = FalseTabOrder = 1OnClick = BtnCancelClickGlyph.Data = {76010000424D760100000000000076000000280000002000000010000000010004000000000000010000130B0000130B00001000000000000000000000000000800000800000008080008000000080008000808000007F7F7F00BFBFBF000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333333333333333333333FFFFF3333333333999993333333333F77777FFF3333339999999993333333777333777FF3333993333339993333377FF3333377FF3399993333339993337777FF3333377F3393999333333993337F777FF333337FF993399933333399377F3777FF333377F993339993333399377F33777FF33377F993333999333399377F333777FF3377F993333399933399377F3333777FF377F993333339993399377FF3333777FF7733993333339993933373FF3333777F7F339993333339999333773FF3333777733339993333339933333773FFFFFF773333339999999993333333777333777333333333999993333333333377777333333}NumGlyphs = 2endendobject Panel3: TPanelLeft = 10Top = 315Width = 943Height = 238BevelInner = bvRaisedTabOrder = 1object GroupBox2: TGroupBoxLeft = 6Top = 11Width = 259Height = 214TabOrder = 0130object Label6: TLabelLeft = 18Top = 136Width = 104Height = 15Caption =#1050#1086#1085#1089#1090#1088#1091#1082#1094#1080#1086#1085#1085#1099#1081' 'Font.Charset = RUSSIAN_CHARSETFont.Color = clWindowTextFont.Height = -12Font.Name = 'Arial'Font.Style = []ParentFont = Falseendobject Label3: TLabelLeft = 4Top = 177Width = 123Height = 15Caption = #1063#1080#1089#1083#1086' '#1096#1072#1075#1086#1074' '#1085#1072''#1101#1090#1072#1087#1077Font.Charset = RUSSIAN_CHARSETFont.Color = clRedFont.Height = -12Font.Name = 'Arial'Font.Style = []ParentFont = Falseendobject Label1: TLabelLeft = 34Top = 152Width = 56Height = 15Caption = #1084#1072#1090#1077#1088#1080#1072#1083Font.Charset = RUSSIAN_CHARSETFont.Color = clWindowTextFont.Height = -12Font.Name = 'Arial'Font.Style = []ParentFont = Falseendobject Edit4: TEditLeft = 130Top = 172Width = 120Height = 24Font.Charset = RUSSIAN_CHARSETFont.Color = clWindowTextFont.Height = -13Font.Name = 'Arial'131Font.Style = []ParentFont = FalseTabOrder = 0Text = '100'endobject ComboBox1: TComboBoxLeft = 130Top = 136Width = 120Height = 24Font.Charset = RUSSIAN_CHARSETFont.Color = clWindowTextFont.Height = -13Font.Name = 'Arial'Font.Style = []ItemHeight = 16ParentFont = FalseTabOrder = 1Text = #1057#1090#1072#1083#1100' 3'Items.Strings = (#1057#1090#1072#1083#1100' 3'#1057#1090#1072#1083#1100' 30 '#1061#1053#1052#1057#1090#1072#1083#1100' 1X18H10T'#1057#1090#1072#1083#1100' 15'#1061'2'#1052#1060#1040)endobject LEdit1: TLabeledEditLeft = 160Top = 68Width = 89Height = 24EditLabel.Width = 110EditLabel.Height = 15EditLabel.Caption = #1044#1080#1072#1084#1077#1090#1088''#1090#1088#1091#1073#1099', '#1084#1084EditLabel.Font.Charset = RUSSIAN_CHARSETEditLabel.Font.Color = clWindowTextEditLabel.Font.Height = -12EditLabel.Font.Name = 'Arial'EditLabel.Font.Style = []EditLabel.ParentFont = FalseFont.Charset = RUSSIAN_CHARSETFont.Color = clWindowTextFont.Height = -13Font.Name = 'Arial'Font.Style = []LabelPosition = lpLeftParentFont = FalseTabOrder = 2Text = '325'end132object LEdit2: TLabeledEditLeft = 160Top = 102Width = 89Height = 24EditLabel.Width = 152EditLabel.Height = 15EditLabel.Caption = #1058#1086#1083#1097#1080#1085#1072''#1089#1090#1077#1085#1082#1080' '#1090#1088#1091#1073#1099', '#1084#1084EditLabel.Font.Charset = RUSSIAN_CHARSETEditLabel.Font.Color = clWindowTextEditLabel.Font.Height = -12EditLabel.Font.Name = 'Arial'EditLabel.Font.Style = []EditLabel.ParentFont = FalseFont.Charset = RUSSIAN_CHARSETFont.Color = clWindowTextFont.Height = -13Font.Name = 'Arial'Font.Style = []LabelPosition = lpLeftParentFont = FalseTabOrder = 3Text = '7'endobject RadioButton1: TRadioButtonLeft = 64Top = 16Width = 137Height = 17Caption = #1056#1072#1089#1095#1077#1090''#1090#1088#1091#1073#1086#1087#1088#1086#1074#1086#1076#1072Checked = TrueTabOrder = 4TabStop = TrueOnClick = RadioButton1Clickendobject RadioButton2: TRadioButtonLeft = 64Top = 40Width = 153Height = 17Caption = #1056#1072#1089#1095#1077#1090''#1090#1077#1087#1083#1086#1086#1073#1084#1077#1085#1085#1080#1082#1072TabOrder = 5OnClick = RadioButton2Clickendendobject GroupBox1: TGroupBoxLeft = 264133Top = 8Width = 673Height = 217Caption = #1056#1077#1078#1080#1084#1099Font.Charset = RUSSIAN_CHARSETFont.Color = clWindowTextFont.Height = -12Font.Name = 'Arial'Font.Style = []ParentFont = FalseTabOrder = 1object bAdd: TBitBtnLeft = 18Top = 54Width = 103Height = 25Caption = #1044#1086#1073#1072#1074#1080#1090#1100' ...'TabOrder = 0OnClick = bAddClickendobject bDelete: TBitBtnLeft = 18Top = 99Width = 103Height = 25Caption = #1059#1076#1072#1083#1080#1090#1100' ...'TabOrder = 1OnClick = bDeleteClickendobject bCorrect: TBitBtnLeft = 18Top = 136Width = 103Height = 25Caption =#1050#1086#1088#1088#1077#1082#1090#1080#1088#1086#1074#1072#1090#1100TabOrder = 2OnClick = bCorrectClickendobject StringGrid1: TStringGridLeft = 130Top = 40Width = 540Height = 140ColCount = 8DefaultRowHeight = 20FixedCols = 0RowCount = 20TabOrder = 3end134endendend135ПРИЛОЖЕНИЕ В.
Интерфейс программы LifeCycleРисунок В.1. – Приветственное окно программы136Рисунок В.2 – Окно вода переметров нагруженияРисунок В.3. – Исходные данные нагружения трубчатого элемента137Рисунок В.4. – Окно расчета элемента конструкцииРисунок В.5. – Результаты расчета138Рисунок В.6. – График накопления повреждения.