.
О
Мив, Ж яодл. Підпксь w дата Ваам. ні. Ж Иав. Ж дубл. Подпись а дата
СТ 92-9236-79 Лиет 34ПРИЛОЖЕНИЕ І
Рекомендуемое
АЛГОЛ - ПРОГРАММА СИЛОВОГО РАСЧЕТА ТОЧЕЧНОГО СТЫКА ОТ ИЗГИБАЮЩЕГО МОМЕНТА И ПРОДОЛЬНОЙ СИЛЫ
I.ВОЗМОЖНОСТИ ПРОГРАММЫ
І.І. Программа составлена на алгоритмическом языке АЛГОЛ-60 для ЭЦВМ БЭСМ-6 и позволяет определять :
усилия на элементы стыка каркасированных и гладких отсе- . ков, сечение которых имеет одну или несколько осей симметрии;
напряжения в балках и стрингерах каркасированного и гладкого отсека в сечениях, удаленных от стыка;
, усилия на элементы стыка стержневых отсеков.
1:2; Расчет производится для заданных чисел случаев нагружения и плоскостей действия нагрузок-при нагружении растяжением : или сжатием, : ; " ■. изгибом,
комбинированным нагружением изгибающим моментом и продольной силой.
Для конструкции, элементы поперечного сечения которой расположены несимметрично относительно оси ОУ, программа позволяет получить приближенное решение.
ОСНОВНЫЕ ОБОЗНАЧЕНИЯ
Исходные данные
Вводятся в машину в следующей последовательности:
Kj - число вариантов расчета ( плоскостей действия нагру- эоі^;
К - число случаев нагружения ;
П - число стрингеров ;
И1 - число балок ;
Omegast _ управляющий сигнал, характеризующий наличие или оте; •: сутствие стрингеров в точечном стыке ( omcgast » о - стрингеров нет, omegast “ 1 - стрингеры есть).
Описанные.ниже данные вводятся для каждого варианта расчета:
7 - радиус сечения отсека в см, для некруглого сечения і Z - О; IO
OCT
CT B92 1.2-72 (HOC) 92-9236-79 Лмт 35УПОО - начальное значение положения H.O. сечения в ісм;
^ОуупОО - начальное значение приращения ординаты Н.О. в си;
tpSynO - точность вычисления положения H.D. в си;
ZO - целое число, показывающее через какое число приближений печатать (если нужно) промежуточные значения целевой функ
ц ии и у ПО. Введено для удобства работы с программой •>..
1,5,10,.... );
mfistltVn]- массив угловых координат стрингеров в град., диапазон изменения (0 - 360° );
ШfstIП:mJ- массив редуцированных (если нужно) площадей поперечных сечений стрингеров с учетом обшивки В СМ}
массив угловых координат балок в град., диапазон изменения (0 - 360°) ;
гп{6([<їп] - массив площадей поперечных сечений балок в см2 ;
~ массив редуцированных (если нужно) дополнительных площадей балок при растяжении в см2;
ШЛТр.-к] - массив величин изгибающих моментов в кгс-см ;
П)П [{.-к] ~ массив величин осевых сил в кгс, плюс - растяжение; /потеда/М~ массив управляющих сигналов при растяжении (тоте. даСсТч) или сжатии ( тотеда [!]--<).
Для всех других видов нагрузок тотеда£і]= О ;
m
пуса;
тубі - массив т№[<.mJ - массив площадей балок при
ystl [<-п] - массив линейных координат стрингеров в см в осях кор» линейных координат балок в см в осях корпуса; редуцированных (если нужно) дополнительных сжатии в см2.Исходные данные выдаются На печать, (для контроля) в следующей последовательности :
строка "исходные данные для всех вариантов" , печатаются величины:Кр к, и, гп, omegast;
строка "исходные данные для варианта Л, печатаются величина: Z , упоо, sagупоо, epsyno, ZO;
строка "геометрия для стрингеров" , печатаются в таблице с соответствующими наименованиями: номер, координата линейная, координата угловая, площадь;
строка "геометрия для балок", печатаются в виде таблицы с соответствующими наименованиями: номер, координата линейная, координата угловая, площадь, площадь дополнительная при растяжеи нии, площадь дополнительная при сжатии;
OCT В92 1.2-72 (Н06)
ост 92 -9236-79 дт 36
Отрока "нагрузки внешние", печатаются в виде таблицы с соответствующими наименованиями : номер расчетного случая, момент изгибающий, сила осевая, сигнал о растяжении либо сжатии Исходные данные печатаются для каждого варианта расчета»
Результаты расчета
На каждый случай нагружения выдаются на печать в следующей последовательности Ї
строка "поиск нейтральной оси сечения стыка", печатаются в виде таблицы с соответствующими наименованиями: номер итерации, целевая функция, координата нейтральной оси через заданное
(Z0) число итераций, при растяжении или сжатии нейтральная ось не определяется;
строка "результаты расчета при нагружении на случай / ", печатаются величины:
М - изгибающий момент в кгс-см ;
изгибающий момент, приведенный к главным центральным осям инерции в кгс*см ;
N - осевая сила в кгс , плюс-растяжение ;
Ни». Жводл. I П*дя»сь и д»та | В»»м. т. Ж I Ио. Мі дуДл. | Подпись и дат»
упО у<по инерции yino-f
линейная координата Н.0« в осях изделия в си ;
линейная координата Н«0« в главных центральных осях
сечения в см;
теоретическое (вычисленное) положение Н.О» в см
координата Ц.Т. сечения в осях изделия в см;
площадь сечения в см^ ;
з
статический момент сечения в осях изделия в см ;
момент инерции сечения в главных центральных осях в строка "^напряжения и усилия в стрингерах", печатаются
см|
в /
виде таблицы с соответствующими наименованиями : номер, напряже* ние, сила ;
строка "напряжение и усилия в балках", печатаются в виде таблицы с соответствующими наименованиями: номер, напряжение, сила;
печать повторяется для каждого варианта расчета.
OCT
92-9236-79днвт 37
При расчете стыка или поперечного сечения отсека принимается:
для поперечного сечения некруглой формы 7 » 0, массивы m-fiSi't задастся нулевыми;
для поперечного сечения круглой формы массивы mysif » /7у// задаются нулевыми.
При расчете поперечного сечения отсека вдали от стыка принимается Ґ) - т - число элементов в сечении ;
массив nrfsil принимается нулевым; площади стрингеров и балок . записываются в массив m-f& ;. дополнительные площади элементов при растяжении и сжатии записывают в массивы mt$ и ; массивы угловых или линейных координат балок и стрингеров принимаются равными, т.е. m-fiStf - m-f-lfij или ту${{ » туМ ;
параметр Omeyast » 0 .
Результаты расчета печатаются в массивах для балок. ' ч
П
о ж Е
е» С=
ри расчете стыков стержневых отсеков сохраняются условия пункта 3.2., где принимаются нулевыми массивыOCT 92-9236-79 Лист 38
АЛГОЛ - ПРОГРАММА СИЛОВОГО РАСЧЕТА Т0ЧЕШ0Г0 СТЫКА ОТ ИЗГИБАЮЩЕГО МОНЕТА И ПРОДОЛЫЮЙ СИПЫ
і tyin integer к, n, m, і, к/ omegast; input [kJ, к, n, m, omegast); Output (с3/22*t' расчет и стыка и от U изгибающего U момента LJ и U осевой U спаи’ ‘3/22 6} at; исходные и 'донные и для и бсех и бариантоб; (2/;(t; ‘к/~; 'z2d> kt, *56; Ч', ‘к=; ‘zzof, к, * $6; 'і’, ‘п=; *z3d; п, ‘зд’, *t; 'т=; zsd* т, '5& Ч; * omegast = ; ‘г 2d; omegast, Ч’);
6 eqin inteqez I,J, z, zo, z/, h
read z, у no, ynoo, ynoz, y/t/o, у/no/, yet, sag ynooepsyno, /, s, z, mz,fy, /yz, c/ia6‘, '
Iniegez аггау mo mega £ /• kJ;
azzay mm, mn Ct-kJ, тупо, tysag, mips [/-1], m/cst/, mfsit, /n/isi, mfst, mysi, msigst, mpst[f:gj, m/i6t, m/б/, m/ід, m/6, myk, msigt, mpt, mf$C/:m];
azzoу m^t, туб 1[<:т], mysttt'/• n]; pzocedune /очт [ n, x, //,], eps Дdet infegez n, zeot /; azzau x, epi, det; teat procedure /; '
і
ОСТ 9|?~923б-79 Лист qq
legin integer к, m; zeal S, sp, лг, aizau p £ 1‘- n]g
pzoceduze ptolo« ;
for к : = / step 1 until n dn
legin x £k]: = X £ kJ t del Ik J;
if fi<S then go tg_ It, x[kj: - x[k] - z* del [kJ; •
it fi<S then go to IJ-,
r X[k]; = x£k] <■ del£kj , gg_tg_tz-, U-S;=-h;
le- end piolo-f ;
/gz k-.-i step / until n do ’
pc kJ: = x CkJ; fh*flX); S: = /;
ІЗ: SP: - S;
■foi k‘‘=t step / until n do dlkji- plkJ‘, lk‘. piola-,
3 rm =Oj
z/ S &sp then go to. І6;
к ^5: foz k: ~ I step / until n do !
• I egin u: ■= p C k] ’
// als (xck] -u)7 als(delCk])/4 then l>Wn plkj: = xrtj; xfkj:*2*xCK]-u;
.V? Z/ <77 tO then
-
I I H — — II І І »■ I IО
Имв. № падл» Подпись и дати Вам», аяа, В Им». № дубл. Подпись и дата J Jfaw ш>ло
СТ 92 -923І6-79 Дивт иоI
/ eqin def СkJ: - 2 * def CkJу Z[ kJ - x[kj + p[k] и end '
і ■end
end к
Ь'-'-Ш), I
z/ // 4 S then '
begin ["■ = //; я=о then, / etse o;
go to 15 і
(
■QJL , J
te: foi. k‘- = J step < untit n do , ib det [kJ epsC к J then go £o t?-,
У' = [;
^О-іо
tv- toi k:= / S-lep / an tit n do ' det [ k]: - det [ kJ /4 ;
go bo. t4-, ;
t8 : end -foimj *
teat piece date c f (тупо)) 1
Cl г zay тупо' 1
begin inbegei Z; !
jgz i.- = t step t untit n do ‘ begin tn fSiC і J t ~ tn fslt[cjj ’
Z/ z = о then mystcijt- mytytiJ і -
Нив. Ж водл.,1 Подпись it дат» В»»м. ивв. Ж Инв, Ж дуАл, Подпись н дот» J JtteXL, і
ОСТ 92-9^36-79 Лист ^2
4Z .-= lz - / mzi = mmCj]-mn£j]*yet)
y{no-f’.--ffin[j]*Lz/(/'i/nz); !
C. 410 8і - ( у (no - у (no 4)t2;
14 c8za8 < 4yz then '
I eg tn 4У z • = C.4-IQ&) ynoz: - у no end-, it z >/■ Z( then ;
tegen output (*(88', *e*fzf4yz, ynoz, */’)', Z(t-Z(tZO
tnd
e8'-- z4w$ I
tnd o. 4'f;
/oz /•=/ step / untit (<( do
teain input l z, ynoo f sagynoo, epdyno, zo, m4i$t(, m4st(, fnti6(t m4^} mtt, mm, mn, mo/nega, mgst(, тубі, mtti)) Out put 3/228} */} * исходные U данные и для и барцанта U h = 4 zzd} h ‘2./’,
Ч’, *2 = ', 1, f26’, 'і’, гупоО = ,Є упоо,
'26’, fh’, ‘ sagynoo^’, *£’, sagynoo^ ‘26’, *і*, ‘ерзуло = ’, (Є’, epsyno, */’, 't’f zo-f, f£’f ZO, */ *2/228', 4f, 'геометрия и для U стрингеров1, ‘ 2/ііб’, ‘і', ( номер
* 5&’} ‘ і’f ‘координата’, *88', координата’, *98’, ‘I’, ‘площадь’, ‘/2(8’, ‘і ‘линейная*,
L J
I —j
[
'
Мив, & подл. I Подпись и дат» | В»»м. им». Х< | Ин». Mi дубл. | Подпись и дат»
tot’, *t’f ‘ у глодая’, '/’)', /от it~l step 1 anted п do ■ bey in іпіеует x теад Q, 8, p ;X ■ - i; a.: = my st 1 Ci] ; 8-~m /ist і Ci]'• c: - Иі/stiCi]',
output ('128’, ‘Ztd’, X, 'W, 'е’, &Лс, */’) end-. I
. output (’3/228’ (t’, 'геометрия ці для U далок’, (2Ііі/’, ft’f ’номер’, ‘56’, Ч’, ’ координато ’, • #8’, (V, ’ координата ’Од’, ‘t’, ‘ площадь ', 418 4 ’ ’ площадь; * 118 ’, Ч’, ' площадь ’ ,
і/218’ , ’і’, 'Линейная’, е 10 8’, ‘ у глодая’,
“ 218’, ‘і’, ’дополнительная’, ‘Аб’, *і', ' до пол Нательная’, ’/73 8’, ‘t’, ’ при и растяжении’, ’kt’, ‘і 'при U сжатии’, дог С~1 Step 1 untit т do
8еріп іп/едег х) 7ео8 0, 8, с, d, еу x-.-L; Я’.- ту 81 Сі]’, 8’~т4і8іСі];
— Є-.: mt'81 Сі]; d-. = т/дСі]; St- т/8 іСі];
output (‘126’, ’Z3d’, х, ’38’, 'S’, а, 8,
_ с, d, е, ’/’)
І
output 3/'228’*8*, ’нагрузки U внешние *
f4‘2/18’, ,і’, ’номер’, ‘118’, Ч’,’момент’, 48’, 'і’, 'сила и осевая’, ,78‘, Ч ’сигналиО
Ивв. Jh иода, | Подпись и літа | В»и. ми». Jfc | Ии». К> дубя. | Подпись и дат»
СТ 92-9рЗб-79 ЛивтайI
О U растяжении ’t'/*t6t * расчетного U случая’, ‘З&', 'і’, ' изгибающий’, 'і’,
* либо (_] сжатии f/ ’)) j
^ОТ- step б unit? И do
train Lntegez x; чеаС Q, t, cj
x:~ і ) a: - mm Ci] ) * mV Ci];
Q.: = momeya Ci]) і
output (‘gf, 'ZZd’}X, a, 6, ‘96’
4-U’, 0, </>) і
end-. I
start: foz J:~t step / untit к do train doz l;=/ step / untit v do teqin m 4іsi Ci] : = m-fі st 1 Ci] x sMs/tso', m-hiCi]' ~ m/sttCil і/ z~O then mystCi]'- mystiCi]
else mystCi] '= Ї* cot(m/istCi]J
9nd ;
А? і:- і step t untit m do
tegin m-f it Ci] '■ = m -fit/Ci] x | j /4is/noy щ-ft Ci]: = m-ft /Ci]■
4 / z=o then mytCi]'-- mySiCiJ etse myt Ci] - 7 x eos (m /it Ci J) end)
ж*
«<
&
« * X
OC|T 92 "9236-79 Лист цд
then
tegen d'-O', J
/<?Z й-t Step ■/ until'
тот еда pyj
/77 СІО &едсп, /п
Cil+znOOciJ^ ‘
dot t- - / step t an tit m do
mpt Ci]: x mSigtCiJ x я£$Сі] end-.
do г t"= і step t undid n do msigst Ci]' - mpst j]i]: = o] mz'. - у not = gw. = ypnod'. = yet :=St=iz:-o;
End 'lastagenie.;
id enmCj'J =o /1 тпЦ] Д momego CJJ ~-f
-then
d’-d * m dsltij
doz i: = / step t Up tit /77 do fcgcn tn- J f rr,±ir-1- *tnfg/ггj
/ • = f * /77 / у Cl Jу j
doг і: = / step / tiniit n do
mpsi [і]:- m$igst.Ci] к mdstCi] 2nd'.
И кв. № подл. Подпись и дат» Ваам. оно. Mt Нив. Х> дуВл. Подпись к дата
ОСТ 92-9236-79 Лист
і/ Отеда st = о then -foz i:V4 step t unit/ m dp msigst Ci]=0;
