Выкладываем коды...
..будем учиться программировать:)
Коды юзеров Tekla Structures
Коды юзеров Tekla Structures
Последний раз редактировалось pdimav 17 июн 2016, 16:16, всего редактировалось 1 раз.
pdimav1979(не собака)yandex.ru
Re: КОДы юзеров
Код: Выделить всё
//СП 16.13330.2011 Стальные конструкции. Таблица 38. Стр. 73
//Минимальный катет шва при толщине более толстого из свариваемых элементов
static int Sarka(double t, int Predel_tyakuchesti, int Vid_soedineniya, int Vid_svarki)
{
int Kf = 0;
switch (Vid_soedineniya) //Вид соединения
{
case 0: //Тавровое с двухсторонними угловыми швами / Нахлесточное и угловое
switch (Vid_svarki) //Вид сварки
{
case 0: //Ручная дуговая
if (Predel_tyakuchesti <= 285)
{
#region Минимальный катет шва при толщине более толстого из свариваемых элементов
if ((t >= 4) && (t <= 5))
{
Kf = 4;
}
else if ((t >= 6) && (t <= 10))
{
Kf = 4;
}
else if ((t >= 11) && (t <= 16))
{
Kf = 4;
}
else if ((t >= 17) && (t <= 22))
{
Kf = 5;
}
else if ((t >= 23) && (t <= 32))
{
Kf = 5;
}
else if ((t >= 33) && (t <= 40))
{
Kf = 6;
}
else if ((t >= 41) && (t <= 80))
{
Kf = 6;
}
#endregion
}
else if ((Predel_tyakuchesti > 285) && (Predel_tyakuchesti <= 390))
{
#region Минимальный катет шва при толщине более толстого из свариваемых элементов
if ((t >= 4) && (t <= 5))
{
Kf = 4;
}
else if ((t >= 6) && (t <= 10))
{
Kf = 5;
}
else if ((t >= 11) && (t <= 16))
{
Kf = 6;
}
else if ((t >= 17) && (t <= 22))
{
Kf = 7;
}
else if ((t >= 23) && (t <= 32))
{
Kf = 8;
}
else if ((t >= 33) && (t <= 40))
{
Kf = 9;
}
else if ((t >= 41) && (t <= 80))
{
Kf = 10;
}
#endregion
}
else if ((Predel_tyakuchesti > 390) && (Predel_tyakuchesti <= 590))
{
#region Минимальный катет шва при толщине более толстого из свариваемых элементов
if ((t >= 4) && (t <= 5))
{
Kf = 5;
}
else if ((t >= 6) && (t <= 10))
{
Kf = 6;
}
else if ((t >= 11) && (t <= 16))
{
Kf = 7;
}
else if ((t >= 17) && (t <= 22))
{
Kf = 8;
}
else if ((t >= 23) && (t <= 32))
{
Kf = 9;
}
else if ((t >= 33) && (t <= 40))
{
Kf = 10;
}
else if ((t >= 41) && (t <= 80))
{
Kf = 12;
}
#endregion
}
break;
case 1: //Автоматическая и механизированная
if (Predel_tyakuchesti <= 285)
{
#region Минимальный катет шва при толщине более толстого из свариваемых элементов
if ((t >= 4) && (t <= 5))
{
Kf = 3;
}
else if ((t >= 6) && (t <= 10))
{
Kf = 4;
}
else if ((t >= 11) && (t <= 16))
{
Kf = 4;
}
else if ((t >= 17) && (t <= 22))
{
Kf = 5;
}
else if ((t >= 23) && (t <= 32))
{
Kf = 5;
}
else if ((t >= 33) && (t <= 40))
{
Kf = 6;
}
else if ((t >= 41) && (t <= 80))
{
Kf = 6;
}
#endregion
}
else if ((Predel_tyakuchesti > 285) && (Predel_tyakuchesti <= 390))
{
#region Минимальный катет шва при толщине более толстого из свариваемых элементов
if ((t >= 4) && (t <= 5))
{
Kf = 3;
}
else if ((t >= 6) && (t <= 10))
{
Kf = 4;
}
else if ((t >= 11) && (t <= 16))
{
Kf = 5;
}
else if ((t >= 17) && (t <= 22))
{
Kf = 6;
}
else if ((t >= 23) && (t <= 32))
{
Kf = 7;
}
else if ((t >= 33) && (t <= 40))
{
Kf = 8;
}
else if ((t >= 41) && (t <= 80))
{
Kf = 9;
}
#endregion
}
else if ((Predel_tyakuchesti > 390) && (Predel_tyakuchesti <= 590))
{
#region Минимальный катет шва при толщине более толстого из свариваемых элементов
if ((t >= 4) && (t <= 5))
{
Kf = 4;
}
else if ((t >= 6) && (t <= 10))
{
Kf = 5;
}
else if ((t >= 11) && (t <= 16))
{
Kf = 6;
}
else if ((t >= 17) && (t <= 22))
{
Kf = 7;
}
else if ((t >= 23) && (t <= 32))
{
Kf = 8;
}
else if ((t >= 33) && (t <= 40))
{
Kf = 9;
}
else if ((t >= 41) && (t <= 80))
{
Kf = 10;
}
#endregion
}
break;
}
break;
case 1: //Тавровое с односторонними угловыми швами
switch (Vid_svarki)
{
case 0: //Ручная дуговая
if (Predel_tyakuchesti <= 375)
{
#region Минимальный катет шва при толщине более толстого из свариваемых элементов
if ((t >= 4) && (t <= 5))
{
Kf = 5;
}
else if ((t >= 6) && (t <= 10))
{
Kf = 6;
}
else if ((t >= 11) && (t <= 16))
{
Kf = 7;
}
else if ((t >= 17) && (t <= 22))
{
Kf = 8;
}
else if ((t >= 23) && (t <= 32))
{
Kf = 9;
}
else if ((t >= 33) && (t <= 40))
{
Kf = 10;
}
else if ((t >= 41) && (t <= 80))
{
Kf = 12;
}
#endregion
}
break;
case 1: //Автоматическая и механизированная
if (Predel_tyakuchesti <= 375)
{
#region Минимальный катет шва при толщине более толстого из свариваемых элементов
if ((t >= 4) && (t <= 5))
{
Kf = 4;
}
else if ((t >= 6) && (t <= 10))
{
Kf = 5;
}
else if ((t >= 11) && (t <= 16))
{
Kf = 6;
}
else if ((t >= 17) && (t <= 22))
{
Kf = 7;
}
else if ((t >= 23) && (t <= 32))
{
Kf = 8;
}
else if ((t >= 33) && (t <= 40))
{
Kf = 9;
}
else if ((t >= 41) && (t <= 80))
{
Kf = 10;
}
#endregion
}
break;
}
break;
}
return Kf;
}pdimav1979(не собака)yandex.ru
Re: КОДы юзеров
Код: Выделить всё
//СП 16.13330.2011 Стальные конструкции. Таблица В.5. Стр. 122
//Предел тякучести R_yn
static int Predel_tyakuchesti(string Material, double t)
{
int R_yn = 0;
switch (Material) //Марка стали
{
case "С235":
{
#region Предел тякучести
if ((t >= 2) && (t <= 8))
{
R_yn = 235;
}
#endregion
}
break;
case "С245":
{
#region Предел тякучести
if ((t >= 2) && (t <= 20))
{
R_yn = 245;
}
else if ((t > 20) && (t <= 30))
{
R_yn = 235;
}
#endregion
}
break;
case "С255":
{
#region Предел тякучести
if ((t >= 2) && (t <= 20))
{
R_yn = 245;
}
else if ((t > 20) && (t <= 40))
{
R_yn = 235;
}
#endregion
}
break;
case "С285":
{
#region Предел тякучести
if ((t >= 2) && (t <= 10))
{
R_yn = 275;
}
else if ((t > 10) && (t <= 20))
{
R_yn = 265;
}
#endregion
}
break;
case "С345":
{
#region Предел тякучести
if ((t >= 2) && (t <= 20))
{
R_yn = 325;
}
else if ((t > 20) && (t <= 40))
{
R_yn = 305;
}
else if ((t > 40) && (t <= 80))
{
R_yn = 285;
}
else if ((t > 80) && (t <= 100))
{
R_yn = 265;
}
#endregion
}
break;
case "С345К":
{
#region Предел тякучести
if ((t >= 4) && (t <= 10))
{
R_yn = 345;
}
#endregion
}
break;
case "С375":
{
#region Предел тякучести
if ((t >= 2) && (t <= 20))
{
R_yn = 355;
}
else if ((t > 20) && (t <= 40))
{
R_yn = 335;
}
#endregion
}
break;
case "С390":
{
#region Предел тякучести
if ((t >= 4) && (t <= 50))
{
R_yn = 390;
}
#endregion
}
break;
case "С440":
{
#region Предел тякучести
if ((t >= 4) && (t <= 30))
{
R_yn = 440;
}
else if ((t > 30) && (t <= 50))
{
R_yn = 410;
}
#endregion
}
break;
case "С590":
{
#region Предел тякучести
if ((t >= 10) && (t <= 40))
{
R_yn = 590;
}
#endregion
}
break;
case "С590К":
{
#region Предел тякучести
if ((t >= 10) && (t <= 40))
{
R_yn = 590;
}
#endregion
}
break;
}
return R_yn;
}
pdimav1979(не собака)yandex.ru
-
Таран Д. А.
- Администратор
- Сообщения: 2877
- Регистрация: 30 ноя 2011, 18:41
- Откуда: г. Москва
- Контактная информация:
Re: КОДы юзеров
Хорошо бы скрин работы и описание.
Администратор Topengineer.ru 8 (495) 215-07-79 (офис) ; 8 (925) 755-9318 (сот.); Skype wildomen ; http://vk.com/tekla_structures
Разработка КМД | Разработка КМ | Разработка КЖ | Обучение Tekla Structures | Купить Tekla Structures
Разработка КМД | Разработка КМ | Разработка КЖ | Обучение Tekla Structures | Купить Tekla Structures
Re: КОДы юзеров
..это функции, определяющие "Предел тякучести" и "Минимальный катет шва, по тепловложению". Все согласно СП 16.13330.2011.Таран Д. А. писал(а):Хорошо бы скрин работы и описание.
Можно вставлять в свою прогу. Можно просто поучиться или покритиковать этот код.
Как то так...
Иногда читать чужой код сложно. Иногда приятно. Ваши мнения о выше выложенном. (Для тех кто в теме...)
pdimav1979(не собака)yandex.ru
Re: Коды юзеров Tekla Structures
ну... в самом начале...
сталь тЕчет, а не тЯнется
сталь тЕчет, а не тЯнется
Re: Коды юзеров Tekla Structures
Молодца.CuPo>I<a писал(а):ну... в самом начале...
сталь тЕчет, а не тЯнется
..усвоил!
pdimav1979(не собака)yandex.ru
Re: Коды юзеров Tekla Structures
остальное проверять надо
я делал подобную штуку для расчёта
на досуге можно твой алгоритм попробовать подсунуть
я делал подобную штуку для расчёта
на досуге можно твой алгоритм попробовать подсунуть
phpbb3 styles
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и 0 гостей