Risposta:
Un carico di temperatura è un tipo di carico superficiale e viene quindi applicato come tutti gli altri carichi superficiali. Per fare ciò, è necessario prima ottenere l'interfaccia al modello, quindi ai carichi e quindi al caso di carico speciale:
Sub surface_temp_load_test()
' get interface from the opened model and lock the licence/programDim iModel As RFEM5.IModel3Set iModel = GetObject(, "RFEM5.Model")iModel.GetApplication.LockLicense
On Error GoTo e
Dim iModelData come RFEM5.IModelData2Imposta iModelData = iModel.GetModelData
Dim iLoa As RFEM5.iLoadsImposta iLoa = iModel.GetLoads
Dim iLc As RFEM5.ILoadCaseImposta iLc = iLoa.GetLoadCase(1, AtNo)
Dim surfLoad As RFEM5.SurfaceLoad
surfLoad.no = 1surfLoad.Type = TemperatureTypesurfLoad.Distribution = UniformTypesurfLoad.SurfaceList = "1"surfLoad.Magnitude1 = 10surfLoad.Magnitude4 = 40
iLc.PrepareModificationiLc.SetSurfaceLoad surfLoadiLc.FinishModifica
e: If Err.Number <> 0 Then MsgBox Err.description, , Err.Source
Imposta iModelData = NienteiModel.GetApplication.UnlockLicenseImposta iModel = Niente
End SubPer un carico a temperatura costante, vengono utilizzati i parametri Magnitudo1 e Magnitudo4, dove Tc è magnitudo1 e dT è magnitudo4. Se viene applicato un carico variabile, magnitudo 2 e magnitudo 3 sono utilizzati per gli altri punti d'angolo per Tc e magnitudo 5 e magnitudo 6 per dT.
![Riduzione dell'edificio in una struttura a sbalzo I singoli punti di massa rappresentano piani. L'inflessione dovuta alle normali forze di compressione mostrate in (a) è (b) convertita in momenti equivalenti di spostamento o forze di taglio [2]]](/it/webimage/009762/467694/01-de-png.png?mw=350&hash=d9822b6f398f12dfbe5ade0e1b85cf57c27573ab)
.png?mw=512&hash=ea9bf0ab53a4fb0da5c4ed81d32d53360ab2820c)
.jpg?mw=350&hash=8f312d6c75a747d88bf9d0f5b1038595900b96c1)
