sj = 11.6: tj = -5: pj = 12.64 * 10 ^ -3: a = 19.2 * 10 ^ -6: e = 8250: L = 200: fd = 5
For x = 1 To 5
If x = 1 Then s(0) = 11.6: ti = -25: pi = 3.5 * 10 ^ -3
If x = 2 Then s(0) = 8.7: ti = 0: pi = 3.5 * 10 ^ -3
If x = 3 Then s(0) = 11.6: ti = -5: pi = 12.64 * 10 ^ -3
If x = 4 Then s(0) = 11.6: ti = 25: pi = 3.5 * 10 ^ -3
If x = 5 Then s(0) = 11.6: ti = -5: pi = 11.83 * 10 ^ -3
For i = 0 To 1000
GoSub m1
If Abs(s(i + 1) - s(i)) < 0.01 Then GoTo mend
Next i
mend: If x = 1 Then smint = s(i + 1): a1 = i
If x = 2 Then scpt = s(i + 1): a2 = i
If x = 3 Then smaxp = s(i + 1): a3 = i
If x = 4 Then smaxt = s(i + 1): a4 = i
If x = 5 Then sgol = s(i + 1): a5 = i: GoTo m2
Next x
m2: Print " S min t="; smint; " S д t min=11.6 [даН/мм2]"; " число итераций - "; a1
Print " S cp t="; scpt; " S д t cp=8.7 [даН/мм2]"; " число итераций - "; a2
Print " S max p="; smaxp; " S д p max=11.6 [даН/мм2]"; " число итераций - "; a3: Print
Print " S max t="; smaxt; " число итераций - "; a4
Print " S гол="; sgol; " число итераций - "; a5
If smint <= 11.6 And smaxp <= 11.6 And scpt <= 8.7 Then _
Print: Print " проверка провода на механическую прочность выполнена": Print: GoTo rtty
Print "is not OK": GoTo rtty2
m1: s(i + 1) = s(i) - (s(i) ^ 3 - s(i) ^ 2 * (sj - (pj ^ 2 * L ^ 2 * e) / _
(24 * sj ^ 2) + a * e * (tj - ti)) - (pi ^ 2 * L ^ 2 * e) / 24) / _
(3 * s(i) ^ 2 - 2 * s(i) * (sj - (pj ^ 2 * L ^ 2 * e) / (24 * sj ^ 2) _
+ a * e * (tj - ti)))
Return
rtty: ftmax = (3.5 * 10 ^ -3 * L ^ 2) / (8 * smaxt): fgol = (11.83 * 10 ^ -3 * L ^ 2) / (8 * sgol)
Print " f t max = "; ftmax
Print " f гол = "; fgol
Print " f д =5": Print
If ftmax >= fd Or fgol >= fd Then GoTo rtty3
Print " расстояния от проводов воздушной линии до земли соответствуют ПУЭ": GoTo rtty2
rtty3: Print " необходимо увеличить расстояние (габарит) между проводами "
Print " воздушной линии и землей или наземными сооружениями."
rtty2: End Sub
Решив три раза уравнение для режимов минимальной температуры, максимальной нагрузки и среднегодовой температуры, выполняем проверку провода на механическую прочность по следующим соотношениям:
St min £ Sд t min; Sp max £ Sд p max; St ср £ Sд t ср.
При выполнении условий проверка на механическую прочность считается выполненной.
Проверка допустимого расстояния от проводов линии до земли.
Эта проверка выполняется путем сравнения стрел провеса провода в режимах, когда эти стеры провеса имеют наибольшее значение, с допустимым значением стрелы провеса fД.
При выбранной конструкции опоры воздушной линии стрела провеса однозначно связана с расстоянием (габаритом) между проводами воздушной линии и землей или наземными сооружениями. Режимами, в которых стрела имеет наибольшее значение, будут:
Для определения стрел провеса в указанных режимах необходимо найти механические напряжения в проводе в этих режимах (S1max и Sгол).
Стрелы провеса провода определяются для рассчитанных режимов выражениями:
; 
.
Проверка допустимого ПУЭ расстояния от проводов воздушной линии до земли осуществляется путем сопоставления полученных стрел провеса с допустимым значением fд=5.
ftmax £ fд fгол £ fд
При невыполнении этих условий даем технические рекомендации по увеличению расстояния (габарита) между проводами воздушной линии и землей или наземными сооружениями.
Основная:
1. Ермилов А.А. Основы электроснабжения промышленных предприятий.- М.: Энергоатомиздат, 1983.
2. Кудрин Б.И. Электроснабжение промышленных предприятий.- М.:
Энергоатомиздат, 1995.
3.Поспелов Г.Е., Федин В.Т. Электрические системы и сети. Проектирование.- Минск: Вышейшая школа, 1988.
4. Рожкова Л.Д., Козулин B.C. Электрооборудование станций и подстанций.- М.: Энергоатомиздат, 1987.
Дополнительная:
5. Правила устройства электроустановок.6-е изд.: Москва: ЗАОЭнергосервис, 1998.
6. Справочник по проектированию электрических сетей и электрооборудования. / Под ред. Барыбина и др. - М.: Энергоатомиздат, 1991.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.