Практический семинар Tekla Structures 2017

Коды юзеров Tekla Structures

Ответить
pdimav
Сообщения: 243
Регистрация: 16 янв 2012, 19:07

Коды юзеров Tekla Structures

Сообщение pdimav » 17 июн 2016, 16:13

Выкладываем коды...
..будем учиться программировать:)
Последний раз редактировалось pdimav 17 июн 2016, 16:16, всего редактировалось 1 раз.
pdimav1979(не собака)yandex.ru

pdimav
Сообщения: 243
Регистрация: 16 янв 2012, 19:07

Re: КОДы юзеров

Сообщение pdimav » 17 июн 2016, 16:14

Код: Выделить всё

//СП 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

pdimav
Сообщения: 243
Регистрация: 16 янв 2012, 19:07

Re: КОДы юзеров

Сообщение pdimav » 17 июн 2016, 16:16

Код: Выделить всё

        //СП 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

Аватара пользователя
Таран Д. А.
Администратор
Сообщения: 2874
Регистрация: 30 ноя 2011, 18:41
Откуда: г. Москва
Контактная информация:

Re: КОДы юзеров

Сообщение Таран Д. А. » 20 июн 2016, 14:52

Хорошо бы скрин работы и описание.

pdimav
Сообщения: 243
Регистрация: 16 янв 2012, 19:07

Re: КОДы юзеров

Сообщение pdimav » 21 июн 2016, 10:11

Таран Д. А. писал(а):Хорошо бы скрин работы и описание.
..это функции, определяющие "Предел тякучести" и "Минимальный катет шва, по тепловложению". Все согласно СП 16.13330.2011.
Можно вставлять в свою прогу. Можно просто поучиться или покритиковать этот код.
Как то так...
Иногда читать чужой код сложно. Иногда приятно. Ваши мнения о выше выложенном. (Для тех кто в теме...)
pdimav1979(не собака)yandex.ru

Аватара пользователя
CuPo>I<a
Сообщения: 846
Регистрация: 26 дек 2011, 12:41
Откуда: Златоуст
Контактная информация:

Re: Коды юзеров Tekla Structures

Сообщение CuPo>I<a » 21 июн 2016, 11:04

ну... в самом начале...
сталь тЕчет, а не тЯнется :)

pdimav
Сообщения: 243
Регистрация: 16 янв 2012, 19:07

Re: Коды юзеров Tekla Structures

Сообщение pdimav » 21 июн 2016, 11:19

CuPo>I<a писал(а):ну... в самом начале...
сталь тЕчет, а не тЯнется :)
Молодца.
..усвоил!
pdimav1979(не собака)yandex.ru

Аватара пользователя
CuPo>I<a
Сообщения: 846
Регистрация: 26 дек 2011, 12:41
Откуда: Златоуст
Контактная информация:

Re: Коды юзеров Tekla Structures

Сообщение CuPo>I<a » 21 июн 2016, 11:29

остальное проверять надо
я делал подобную штуку для расчёта
на досуге можно твой алгоритм попробовать подсунуть

Ответить
phpbb3 styles

Вернуться в «Общение пользователей Tekla Structures»

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 1 гость