3384ef39-8ac9-48cc-9ecc-7ee936fb1d5d 30 sergio 4 5 false false 0 2 decimal

&[DATE] &[TIME] - &[FILENAME]

deNest("matrix") - Expand the nested matrix A.This makes the composition of matrices by sub-matrices more readable. A deNest i.Row 1 A rows range A.newRow Clear i.Col 1 A cols range A.newRow IsDefined A.newRow A.newRow A i.Row i.Col el augment : A.newRow A i.Row i.Col el : if for A.new IsDefined A.new A.new A.newRow stack : A.new A.newRow : if 31 line for A.new 21 line :

#Armature #n.Fe #A.Arm A.s x #Armature 1 col : y #Armature 2 col : #A.Arm π 4 / x y 2^* (vectorize * : #n.Fe x sum : out #A.Arm sum : 51 line :

f# A.s f1 f# Φ strsplit transpose vectorize deNest : f2 f1 str2num vectorize : n f2 1 col : d f2 2 col : mm 2^π 4 / d 2^vectorize * n * vectorize sum (* 51 line :

cond check cond Ok non verificato if :

cond1 bool cond2 cu check2 cu cond1 cond2 / : c coeff. utilizzazione= cu 2 var2str concat : cond cond1 num2str bool cond2 num2str concat str2num : cond Ok c concat non verificato c concat if 41 line :

γ.c 1.5 :

γ.s 1.15 :

b 300 mm * :

h 600 mm * :

α.cc 0.85 :

δ 40 mm * :

+ le compressioni N.Ed 90 kN * :

f.yk 450 MPa * :

A.st 0Φ12 4Φ16 21 mat A.s : mm 2^804.25

E.s 206000 MPa * :

A.sc 4Φ12 0Φ16 21 mat A.s :

f.yd f.yk γ.s / : MPa 391.3

sempre positivo M.Ed 160 kN * m * :

f.ck 25 MPa * :

ε.sy f.yd E.s / : 0.0019

ε.cu 0.0035 :

ε.su 0.067 :

ε.c0 0.002 :

f.cd α.cc f.ck * γ.c / : MPa 14.17

ε σ.s E.s ε * ε abs ε.sy < ε sign f.yd * cases :

d h δ - :

ε σ.c f.cd 2 ε ε.c0 / * ε ε.c0 / (2^- (* ε ε.c0 < (ε 0 ≥ (& f.cd ε ε.c0 ≥ 0 cases :

x.lim ε.cu ε.su ε.cu + / d * : mm 27.8

deformazione in ordinata y per asse neutro x.n x.n y ε ε.su - x.n d - / y * x.n x.lim < ε.cu x.n / y * x.n x.lim ≥ 0 cases :

x.n σ.sc x.n x.n δ - ε σ.s :

x.n σ.st x.n x.n d - ε σ.s :

x f b x y ε σ.c y 0 x int * x σ.sc A.sc * + x σ.st A.st * + N.Ed - (:

a 0.01 mm * :

a f 5.81728 105^* N * -

b h :

b f 2.18997 106^* N *

ε 103 -^N * :

x.n 0 : b f 0 < a f 0 < x.n no zero in interval : b1 a : a1 b : 21 line if 11 line a f 0 > x.n no zero in interval : a1 a : b1 b : 21 line if 11 line if x.n IsString n 0 : x.n b1 a1 + (2 / : n 0 : x.n f abs ε > x.n f a1 f * 0 ≤ b1 x.n : a1 x.n : if x.n b1 a1 + (2 / : n n 1 + : 31 line while 31 line if x.n n 21 mat 41 line

n 27

sanity check x.n f 0 N *

x.n mm 74.04

x.n x.n ε σ.c MPa 14.167

x.n σ.sc MPa 331.5

x.n σ.st MPa 391.3 -

M.Rd b x.n y ε σ.c y h 2 / + x.n - (* y 0 x.n int * x.n σ.sc A.sc * h 2 / δ - (* + x.n σ.st A.st * h 2 / δ - (* - (: kN m * 258

M.Ed ≤ M.Rd c.u1 check2 Ok coeff. utilizzazione= 0,62

b x.n y ε σ.c y h 2 / + x.n - (* y 0 x.n int * kN m * 137.2

x.n σ.sc A.sc * h 2 / δ - (* kN m * 39

x.n σ.st A.st * h 2 / δ - (* kN m * 81.8 -