ВУЗ:
Составители:
Рубрика:
PRINT #1, TAB(11); "Расчет осадок под нижним концом сваи"
PRINT #1, TAB(10); "╔════════════╦═══════════╦════════════════╗"
PRINT #1, TAB(10); "║ Ft,кН ║ Pft,кПа ║ S,см ║"
PRINT #1, TAB(10); "╠════════════╬═══════════╬════════════════╣"
FOR j = 1 TO m
PRINT #1, TAB(10); "║"; TAB(14); Ft(j); TAB(23); "║"; TAB(25); Pft(j) / 100; TAB(35); "║"; TAB(36); aSh(j) * 100; TAB(52); "║"
NEXT j
PRINT #1, TAB(10); "╚════════════╩═══════════╩════════════════╝"
CLOSE #1
END
ПРИЛОЖЕНИЕ 3
Attribute VB_Name = "armpod"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
End Sub
Private Sub ras_Click()
x1 = Val(InputBox("Введите X1"))
x2 = Val(InputBox("Введите X2"))
x3 = Val(InputBox("Введите X3"))
x4 = Val(InputBox("Введите X4"))
Ks = (-0.0551) + (0.0139) * x1 + (-0.0951) * (x2) + (-0.0564) * x3 + (-0.0281) * (x4) +
(-0.0104) * x1 * (x2) + (0.00235) * x1 * x3 + (0.0332) * x1 * (x4) + (-0.00061) * (x2) * x3 + (-0.0148) * (x2) * (x4) + (-0.0057) * x3 * (x4) + (-
0.1052) * (x1) ^ 2 + (-0.1781) * (x2) ^ 2 + (-0.1175) * (x3) ^ 2 + (-0.05057) * ((x4)) ^ 2 + (-0.2975) * (x1) ^ 2 * (x2) +
(-0.2285) * (x1) ^ 2 * x3 + (-0.1655) * (x1) ^ 2 * (x4) + (-0.0687) * (x2) ^ 2 * x1 +
(-0.0519) * (x2) ^ 2 * x3 + (0.03504) * (x2) ^ 2 * (x4) + (0.02189) * (x3) ^ 2 * x1 + (0.0319) * x3 ^ 2 * (x2) + (-0.0287) * (x3) ^ 2 * (x4) + (0.0708)
* (x4) ^ 2 * x1 + (0.1948) * (x4) ^ 2 * (x2) + (0.1253) * (x4) ^ 2 * x3 + (-0.0417) * x1 * ((x2)) * x3 + (0.0088) * x1 * (x2) * (x4) + (0.02) * x1 * x3
* (x4) + (0.206) * (x2) * x3 * (x4) +
(-0.079) * x1 * x1 * x1 + (0.0245) * (x2) * (x2) * (x2) + (-0.00069) * x3 * x3 * x3 + (0.233) * (x4) * (x4) * (x4)
Text1.Text = Format(Ks, "##.####")
End Sub
Private Sub ras1_Click()
Ke = (-0.0895) + (-0.0019) * x1 + (-0.0378) * (x2) + (-0.2336) * (x3) + (-0.0925) * (x4) + (-0.0233) * x1 * (x2) + (-0.0107) * x1 * (x3) + (0.0093) *
x1 * (x4) + (0.042) * (x2) * (x3) + (0.0065) * (x2) * (x4) + _
(-0.1345) * (x3) * (x4) + (-0.071) * x1 ^ 2 + (0.0268) * (x2) ^ 2 + (-0.3978) * (x3) ^ 2 + (-0.0622) * (x4) ^ 2 + (-0.1707) * x1 ^ 2 * (x2) + (-0.309) *
x1 ^ 2 * (x3) + (-0.1093) * x1 ^ 2 * (x4) + (-0.137) * (x2) ^ 2 * x1 + (-0.2908) * (x2) ^ 2 * (x3) + (0.0656) * (x2) ^ 2 * (x4) + (-0.0378) * (x3) ^ 2 *
x1 + (0.04178) * (x3) ^ 2 * (x2) + (0.3453) * (x3) ^ 2 * (x4) + (0.0355) * (x4) ^ 2 * x1 + (0.1224) * (x4) ^ 2 * (x2) + (0.1851) * (x4) ^ 2 * (x3) + (-
0.1246) * x1 * (x2) * (x3) + (-0.0183) * x1 * (x2) * (x4) + (0.0405) * x1 * (x3) * (x4) + (0.347) * (x2) * (x3) * (x4) + (-0.0548) * x1 * x1 * x1 +
(0.1426) * (x2) * (x2) * (x2) + (-0.0236) * (x3) * (x3) * (x3) + (0.0457) * (x4) * (x4) * (x4)
Text2.Text = Format(Ke, "##.####")
End Sub
СПИСОК ЛИТЕРАТУРЫ
1 Абелев М. Ю. Строительство промышленных и гражданских сооружений на слабых водонасыщенных грунтах. М.:
Стройиздат, 1983. 248 с.
2 Аварии и катастрофы. Предупреждение и ликвидация последствий. Учеб. пособие. В 4-х кн. / В. А. Котляровский и др.
М.: АСВ, 1996. Кн. 1. 320 с.
3 Аварии и катастрофы. Предупреждение и ликвидация последствий. Учеб. пособие. В 4-х кн. / Под ред. В. А.
Котляровского и А. В. Забегаева. М.: АСВ, 1998. 416 с.
4 Аварии и катастрофы. Предупреждение и ликвидация последствий. Учеб. пособие. В 4-х кн. / Под ред. В. А.
Котляровского и А. В. Забегаева. М.: АСВ, 1998. Кн. 4. 208 с.
5 Алексеев В. М., Калугин П. И. Проектирование оснований и фундаментов сельскохозяйственных зданий и сооружений:
Учеб. пособие. 3-е изд. Воронеж: Изд-во ВГУ, 2001. 528 с.
6 Антонов В. М. Влияние армирования на несущую способность и деформативность песчаного основания: Автореф. дис.
… канд. техн. наук. Волгоград: ВолгГАСА, 1998.20 с.
7 Бондаренко С. В., Санжаровский Р. С. Усиление железобетонных конструкций при реконструкции зданий. М.:
Стройиздат, 1990. 352 с.
8 Временная инструкция по устройству фундаментов вблизи существующих зданий (ВСН401-01-77).
9 Гарагаш Б. А. Аварии и повреждения системы "здание-основание" и регулирование надежности ее элементов.
Волгоград: Изд-во ВолГУ, 2000. 384 с.
