-
texitaliano64
| .
|
|
|
|
@Zax
Io risolverei il problema da te proposto per travi qualsiasi in maniera più semplice col principio dei lavori virtuali, o principio degli spostamenti virtuali.
Data una trave di lunghezza [l], la dividiamo in [n] conci uguali, noto il modulo elastico [E],
trovo la freccia [delta] nel punto di ascissa [zv] con la routine di integrazione sottostante:
CODICE 'numero di suddivisioni trave per calcolare la freccia
Const n As Integer = 100
Dim Deltaz as double
Deltaz = l / n
Dim z as double
For i = 0 To n
'ascissa mobile [z]
z = (i * Deltaz)
'proprietà geometriche in corrispondenza della ascissa mobile [z]
calcola_prop_geom z, Jx
'Sollecitazioni dovute ai carichi agenti nella ascissa mobile [z]
Calcola_soll z, Mx
'Sollecitazioni dovute ad una forza concentrata unitaria nella ascissa di verifica [zv]
'valutate in corrispondenza della ascissa mobile [z]
Calcola_soll_Fv zv, 1#, z, M1
'freccia elastica [delta]
delta = delta + (Deltaz * Mx * M1) / (E * Jx)
Next i
Edited by texitaliano64 - 11/5/2014, 10:10
|
|
|
| .
|
36 replies since 4/5/2014, 10:23 3949 views
.
.
.
