Ratmir
размещено: 26 Сентября 2021
обновлено: 26 Сентября 2021
Новая версия программы «Определение расчетного сопротивления грунта основания по СП 22.13330.2016».
Кроме вычисление расчетного сопротивления грунта, добавлена кнопка «Нахождения предварительных габаритов фундаментов» (если не выбрано «Подошва фундамента имеет форму круга или правильного многоугольника»).
После нажатие на кнопку, в новом окне задаются нагрузки на обрез фундамента, высота фундамента, соотношение сторон (должна быть больше или равно 1), после вычисление в табличной форме, можно выбрать габариты фундамента и посмотреть угловые давления, среднее давление под подошвой, если давление под подошвой не превышает расчетного сопротивления грунта и нет отрыва подошвы то те габариты фундаменты выделены зеленым цветом (серым цветов выделен фундамент в заданной шириной который вы считали до этого). После выбора нужного габарита фундамента, вы можете создать отчет или согласно пункта 5.6.25 проверить слабый слой грунта.
В окне проверка слабого слоя задаются характеристики слоя и на какой глубине от подошвы он залегает. Вычисляется ширина условного фундамента, расчетное сопротивление грунта на его границы и сверяется напряжение под подошвой условного фундамента. Возможно создание отчета.
Установка не требуется. В архиве есть и 32 битная версия.
3.49 МБ
СКАЧАТЬ
Комментарии
Авторизоваться
Добрый день. При нажатии на кнопку "Нахождение предварительных ..." выдает следующую ошибку: "0,600 is an invalid float. Press OK to ignore and risk data corruption. Press Abort to kill the program". Для Win10 x64
Такая же ошибка
Genf и zloy1653, поменяйте разделитель целой и дробной части на "," (запятую). Это меняется в настройках параметра windows 10
Лучше в программе использовать системный разделитель DecimalSeparator
https://docs.microsoft.com/en-us/dotnet/api/system.globalization.numberformatinfo?redirectedfrom=MSDN&view=net-5.0
function MyStrFloat(stPer: string): real;
var
inNom: integer;
begin
// Преобразует String in Real
chRaz:= DecimalSeparator;
inNom:= pos('.', stPer);
if inNom 0 then
begin
Delete(stPer, inNom, 1);
Insert(chRaz, stPer, inNom);
end;
inNom:= pos(',', stPer);
if inNom 0 then
begin
Delete(stPer, inNom, 1);
Insert(chRaz, stPer, inNom);
end;
Result:= StrToFloat(stPer);
end;
На первой форме при вычислении ошибка не возникает, а при открытии второй формы возникает.
function StrToFloat(const S: string; const AFormatSettings: TFormatSettings): Extended;