| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Расчетные программы > программа для расчета сварных швов

программа для расчета сварных швов

Ответ
Поиск в этой теме
Непрочитано 15.02.2008, 14:44 #1
программа для расчета сварных швов
бек
 
Проект
 
Казань
Регистрация: 15.02.2008
Сообщений: 19

Кто нибудь может предложить простую и практическую программу для расчета сварных швов , на все случаи жизни
Просмотров: 9307
 
Непрочитано 15.02.2008, 21:52
#2
Дрюха

Инженер-конструктор
 
Регистрация: 20.07.2007
Москва
Сообщений: 2,936


Кристалл,саттелит SCAD
Дрюха вне форума  
 
Непрочитано 16.02.2008, 11:03
#3
The_Mercy_Seat


 
Сообщений: n/a


Цитата:
Сообщение от бек Посмотреть сообщение
Кто нибудь может предложить простую и практическую программу для расчета сварных швов , на все случаи жизни
Программой на все случаи жизни в данном случае выступают электронные таблицы. Причем формулы из СНиП лучше ввести в пользовательскую функцию.
Я сначала писал для себя программы с интерфейсом, но
поскольку швов обычно много (например при обследовании ферм из ведомости сварных швов набирается по нескольку сотен) и все их хочется тупо обсчитать, то электронные таблицы предпочтительней.
Потому как сидеть и поочередно вбивать данные в форму - процесс утомительный, а ввод катетов, длин и усилий в колонки Excel делается практически неглядя (сначала вбивается например только катет по обушку, потом по перу и т.д.).
Функциями Excel вы пользваться наверняка умеете. Так вот жмете Alt+F11, создаете модуль и пишете в нем пользовательсую функцию с формулами из СНиПа.
Типа такой:
Код:
[Выделить все]
Function ShOVSM(Nto, B, yo, lo, ko, Ln, kn, kf, beta)
'Vozvrashchaet maksimal'noe napriazhenie, kgs/sm^2,v uglovykh svarnykh shvakh
' prikrepleniia parnykh ugolkov k fasonke, vychislennoe s uchetom vnetsentrennogo
'(otnositel'no tsentra tiazhesti shvov) prilozheniia prodol'nogo usiliia


'Raschetnaia dlina shva prinimaetsia men'she ego polnoi dliny na 10 mm
lo = lo - 10
Ln = Ln - 10
'Proveriaetsia uslovie 12.8 g) SNiP II-23-81*
Select Case lo
Case Is > 85 * beta * ko: lo = 85 * beta * ko
End Select
Select Case Ln
Case Is > 85 * beta * kn: Ln = 85 * beta * kn
End Select
'Perevod iz ts v kgs
Nto = Nto * 1000
'Perevod iz mm v sm
B = B / 10
yo = yo / 10
lo = lo / 10
ko = ko / 10
Ln = Ln / 10
kn = kn / 10
kf = kf / 10
' Ploshchad' shva, sm^2
Aw = Ln * kn + lo * ko + B * kf
'Koordinaty tsentra tiazhesti shva, sm
xc = (0.5 * ko * lo ^ 2 + 0.5 * kn * Ln ^ 2) / Aw
yc = (0.5 * kf * B ^ 2 + ko * lo * B) / Aw
'Momenty inertsii, sm^4
Jxc = lo * ko * B ^ 2 + kf * B ^ 3 / 3 - Aw * yc ^ 2
Jyc = ko * lo ^ 3 / 3 + kn * Ln ^ 3 / 3 - Aw * xc ^ 2
Jcp = Jxc + Jyc
'Rasstoianiia ot tsentratiazhesti do chetyrekh uglovykh tochek, sm
r1 = Sqr(xc ^ 2 + yc ^ 2)
r2 = Sqr(xc ^ 2 + (B - yc) ^ 2)
r3 = Sqr((lo - xc) ^ 2 + (B - yc) ^ 2)
r4 = Sqr((Ln - xc) ^ 2 + yc ^ 2)
'"Krutiashchie" napriazheniia, kgs/sm^2
Tt1 = Nto * (B - yc - yo) * r1 / Jcp
Tt2 = Nto * (B - yc - yo) * r2 / Jcp
Tt3 = Nto * (B - yc - yo) * r3 / Jcp
Tt4 = Nto * (B - yc - yo) * r4 / Jcp
'Srednee napriazhenie sdviga,kgs/sm^2
T0 = Nto / Aw
'Geometricheskoe slozhenie napriazhenii v uglovykh tochkakh
t1 = (1 / beta) * Sqr(Tt1 ^ 2 + T0 ^ 2 + 2 * Tt1 * T0 * (-yc / r1))
t2 = (1 / beta) * Sqr(Tt2 ^ 2 + T0 ^ 2 + 2 * Tt2 * T0 * ((B - yc) / r2))
T3 = (1 / beta) * Sqr(Tt3 ^ 2 + T0 ^ 2 + 2 * Tt3 * T0 * ((B - yc) / r3))
T4 = (1 / beta) * Sqr(Tt4 ^ 2 + T0 ^ 2 + 2 * Tt4 * T0 * (-yc / r4))
'Maksimal'noe nariazhenie
res = Maxim4(t1, t2, T3, T4)
'Proverka p. 12.8 v) SNiP II-23-81* i okonchatel'nyi rezul'tat,
's okrugleniem do 1 kgs/sm^2
If lo >= 4 * ko And Ln >= 4 * kn And lo >= 4 And Ln >= 4 Then ShOVSM = res Else ShOVSM = "Shov korotkii"
End Function

Function Maxim4(t1, t2, t3, t4)
res=t1
If t2>=res Then res=t2
If t3>=res Then res=t3
If t4>=res Then res=t4
Maxim4=res
End Function
При выполнении расчетов узлов (проверка швов, стенок и т.д.) также пользуюсь электронными таблицами. Формулы берутся из серий.
На написание шаблона времени уходит как на единократное выполнение ручного расчета - не больше(К слову, хоть один то раз в жизни нужно посчитать вручную).
При использовании макросов и своих функций необходимо выбрать низкий или средний уровень безопасности в настройках электронных таблиц (Сервис => Безопасность и т.д.)

Последний раз редактировалось The_Mercy_Seat, 16.02.2008 в 11:17.
 
 
Непрочитано 04.01.2012, 11:20
#4
satrman


 
Регистрация: 24.11.2010
Сообщений: 21


ау есть еще кто в теме, в частности человек написавший про модуль....чото я не совсем понимаю что к чему....модуль сделал...сохранил....дальше в макрос создал макрос....пытаюсь запуастить а он ругается типа (expected end sub).....расскажите что там вообще надо делать? переменные указанные в макросе надо я так понимаю перечистить в самом лист еэкселя? или как?
satrman вне форума  
 
Непрочитано 04.01.2012, 21:37
1 | #5
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Я не понял - проблема в том, чтобы сам макрос, что ли, создать? Во вложении - видео как создать макрос с кодом с форума.
Вложения
Тип файла: rar Excel2007_CreateMacros_2012-01-04(21-37-05).rar (2.39 Мб, 650 просмотров)
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Расчетные программы > программа для расчета сварных швов

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
САПР для расчета зданий и рабочки реально!? msv79 Расчетные программы 17 07.10.2007 22:32
Альтернативная служба в армии Vova Разное 117 12.06.2007 00:30
Какую программу взять для расчета стержневой системы? semjavek Расчетные программы 11 31.05.2007 15:12
Подскажите - есть ли какойнибудь софт для расчета разверток. Sunny Расчетные программы 1 14.08.2004 01:32
Нужна прога для расчета валов Гость Расчетные программы 2 02.03.2004 12:02