четверг, 20 июня 2013 г.

Дослідження НДС елементів індивідуального спорядження ч.1

Дана бакалаврська робота присвячена дослідженню пластичності індивідуального спорядження з урахуванням напруження й деформації. О'бєкт дослідженнякарабін. У цьому семестрі я продовжила дослідження минулої теми, результати якої можна подивитись можна тут і тут.
Для спеціальності «Інформаційні технології проектування» тема є актуальна тому, що розробки мають теоретичну цінність та практичну важливість для довговічності відповідальних елементів.




 У рамках диплома була здійснена спроба сформулювати ті питання надійності карабіна, які можна і доцільно вирішувати методами розрахунку напружено-деформованого стану та пластичності за допомогою скінченних елементів.

За допомогою цих даних та інших, як модуль пружності, коефіцієнта Пуассона та щільності треба написати макрос, який буде аналізувати скобу карабіна та видавати потрібні результати

В якості основних цілей виступали:
  1. дослідження НДС конструкції;
  2. підрахунок скоби карабіна в нелінійній постановці;
  3. написання макросу в середовищі Femap API;
  4. проведення ряду розрахунків.

Були надані такі параметри:

  • модуль пластичності 5E8..2E9 Па;
  • межа текучості 2,5E8..1,25E9 Па.

Макрос у Femap API

На студблозі вже була стаття про те, як створювати макроси у Femap, її можна подивитися тут.  Мій макрос був створений для спростування роботи інженера. Його сенс полягає у тому, що можна швидше проводити розрахунки. За допомогою Femap було заощаджено багато часу. Невелику частину лістингу можна буде побачити нижче.


Dim analyse As femap.AnalysisMgr
Set analyse  = App.feAnalysisMgr
Dim amID As Long
App.feFileOpen(True, "")
Begin Dialog UserDialog 400,203, "введите значения данных" ' %GRID:10,7,0,0
                    TextBox 50,14,90,21,.TextBox1                       
                    TextBox 50,49,90,21,.TextBox2                       
                    OKButton 60,91,90,21                       
                    CancelButton 220,91,90,21                       
                    text 220,21,130,14,"предел текучести ",.Text1,2                       
                    text 222,48,140,27,"модуль пластичности",.Text2,2
End Dialog
Dim dlg As UserDialog
dlg.TextBox1$ ="1e9"
dlg.TextBox2$ ="1e9"
Dialog dlg App.feAppMessage (FCM_COMMAND, dlg.textbox1)
mat.Get(1)
mat.ival(2)=3
mat.mval(85)=CDbl (dlg.textbox1)
mat.mval(84)=CDbl (dlg.textbox2)
mat.Put(1)
amID = analyse.NextEmptyID-1
analyse.Analyze (amID)


Принцип роботи макросу


  1. Потрібно відкрити Femap.
  2. У середовищі API Programming відкриваємо файл з макросом.
  3. При старуванні відкриється вікно (рис.1), у якому потрібно буде вибрати розташування файлу Femap з проведеним тестовим аналізом, у якому є відсутні налажтування пластичності.
  4. У наступному віконці (рис.2) потрібно ввести дані: межа плинності та модуль пластичності
  5. Після того як буде натиснено «Ok» з останнього вікна, програма запустить новий аналіз з новими даними.



Рисунок 1 - Вікно для відкриття файлу


Рисунок 2 – Вікно для введення даних


У наступній статті можна буде побачити результати дослідження.
З повагою, Рева Діана.

4 комментария:

  1. Мій макрос був створений для спростування роботи інженера.

    Жаль инженеров, их работа теперь опровергается. :)

    ОтветитьУдалить
    Ответы
    1. Дмитрий, да, я не знаток украинского языка=) Как мы видим гугл тоже ;)

      Удалить
    2. Неча на гугл пенять, коли мова не ридна. ;) Вроде к блогу пока не было требований писать только на украинском. Так что отмазка не засчитывается.

      Удалить