Program RFEM 6 pro statické výpočty tvoří základ modulárního softwarového systému. Hlavní program RFEM 6 slouží k zadávání konstrukcí, materiálů a zatížení u rovinných i prostorových konstrukčních systémů, které se skládají z desek, stěn, skořepin a prutů. Program umožňuje vytvářet smíšené konstrukce, stejně jako modelovat tělesa a kontaktní prvky.
RSTAB 9 je výkonný program pro analýzu 3D prutových konstrukcí, který statikům pomáhá vyhovět požadavkům moderního stavebního inženýrství a odráží nejnovější trendy v oboru.
Jste často příliš dlouho zaměstnáni výpočtem průřezů? Software Dlubal a samostatný program RSECTION vám usnadní práci stanovením a analýzou napětí pro různé průřezy.
Víte vždy, odkud vítr vane? Ve směru inovace, samozřejmě! S RWIND 2 máte k dispozici program, který využívá digitální větrný tunel pro numerickou simulaci proudění větru. Program toto proudění aplikuje na libovolné geometrie budov a stanoví zatížení větrem působící na jejich povrch.
Hledáte přehled oblastí zatížení sněhem, větrem a zemětřesením? Pak jste zde správně. Mapy oblastí zatížení umožňují rychle a snadno stanovit oblasti zatížení sněhem, větrem a zemětřesením podle Eurokódu a dalších mezinárodních norem.
Chcete si vyzkoušet sílu programů Dlubal? Je to vaše příležitost! S bezplatnou 90denní plnou verzí si můžete všechny naše programy plně otestovat.
Natočení uzlové podpory se provádí pomocí uživatelsky definovaného souřadného systému. V následujícím příkladu je uzlová podpora natočena o 45° okolo osy z. Není přitom nutné zadávat nový souřadný systém pomocí uzlů. V tomto případě stačí použít volbu RotatedSystemType, která umožňuje prostorové natočení podpory třemi rotacemi okolo os x, y a z. Rotace se zadává v radiánech:
Sub test_nodal_support()Dim iApp As RFEM5.ApplicationSet iApp = GetObject(, "RFEM5.Application")iApp.LockLicenseDim iMod As RFEM5.IModel3Set iMod = iApp.GetActiveModelOn Error GoTo e' get interface of modeldataDim iModData As RFEM5.IModelData2Set iModData = iMod.GetModelData' get interface of nodal supportDim iNs As RFEM5.INodalSupportSet iNs = iModData.GetNodalSupport(1, AtNo)' get nodal support dataDim ns As RFEM5.NodalSupportns = iNs.GetData' modify datans.ReferenceSystem = UserDefinedSystemTypens.UserDefinedReferenceSystem.Axis1 = AxisXns.UserDefinedReferenceSystem.Axis2 = AxisYns.UserDefinedReferenceSystem.Type = RotatedSystemTypens.UserDefinedReferenceSystem.RotationAngles.X = 0ns.UserDefinedReferenceSystem.RotationAngles.Y = 0ns.UserDefinedReferenceSystem.RotationAngles.Z = 45 * 3.14159265359 / 180' set nodal support dataiModData.PrepareModificationiNs.SetData nsiModData.FinishModificatione:If Err.Number <> 0 Then MsgBox Err.description, vbCritical, Err.SourceiMod.GetApplication.UnlockLicenseSet iMod = NothingEnd Sub
Program převezme stávající uzlovou podporu z aktuálně otevřeného modelu a upraví ji. Vzhledem k tomu, že uživatelsky definovaný souřadný systém není přímou součástí rozhraní INodalSupport uzlové podpory, je samozřejmě možné při vytváření uzlové podpory přenášet také natočení.
Zatěžovací stav Teplota je u spřažených konstrukcí velmi důležitý. Rozlišujeme mezi zatěžovacími stavy Zahřívání nahoře (betonováním) a Zahřívání dole. Protože zde musí být definována změna teploty, je zatížení definováno jako Delta T. Spřažený nosník je často modelován pomocí excentrického prutu připojeného k ploše. K tomu je třeba rozdělit teplotní rozdíl mezi těmito dvěma prvky (plochou a prutem).
Zatížení na prut je definováno jako zatížení na prutu s teplotním rozdílem krát výška prutu vydělená celkovou výškou spřaženého průřezu ($\triangle T\times\frac {h_s} {h_g} $). Pokud jsou horní vlákna prutu chladnější než dolní, je třeba hodnotu zadat jako zápornou.
Nakonec se zbývající teplotní rozdíl aplikuje na plochu. Přitom je třeba dbát na to, aby teplota prutu byla definována jako Tc, a ještě chybějící teplotu na plochu aplikovat jako delta T.
Pokud chceme upravit již existující prvek, musíme rozhraní dostat na příslušný prvek, zde například na prut:
Dim iModel As RSTAB8.model Set iModel = GetObject(, "RSTAB8.Model") iModel.GetApplication.LockLicense Dim iModData As IModelData Set iModData = iModel.GetModelData Dim iMem As RSTAB8.IMember Set iMem = iModData.GetMember(1, AtNo)
Pomocí tohoto kódu dostaneme rozhraní k prutu 1, který musí již být vytvořený. Následně můžeme použít funkci rozhraní .GetData() dostat data o prutu.
Pokud bychom chtěli data upravovat (jako zde natočení prutu), můžeme je následně předat do programu v bloku Prepare-/FinishModification pomocí funkce .SetData():
Dim mem As RSTAB8.Member mem = iMem.GetData mem.Rotation.Angle = 0.5 mem.Rotation.Type = RSTAB8.Angle iModData.PrepareModification iMem.SetData mem iModData.FinishModification