163fdd62-fd10-4256-9142-94e83387df9d 10 4 5 decimal

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

a 76.2 mm * :

n.ph 2 :

n.pv 3 :

s.ph 8 25.4 * mm * :

s.pv 76.2 mm * :

d.bh 40 mm * :

d.bv 40 mm * :

d.b 78 / in * :

F.vn 372 MPa * :

A.b π d.b 2^4 / * :

A.b mm 2^387.9479

F.u 120 ksi * :

ex 127 mm * :

Δ.max 0.34 :

Esta en pulgadas, no modificar

i 1 : i n.ph ≤ i i 1 + : j 1 : j n.pv ≤ j j 1 + : x j i el i 1 - (s.ph in / * : y j i el j 1 - (s.pv in / * : 21 line for for

x 08080832 mat

y 00336632 mat

i 1 : i n.ph ≤ i i 1 + : j 1 : j n.pv ≤ j j 1 + : x.CG j i el n.ph 1 - (s.ph 2 in * / * - x j i el + : y.CG j i el n.pv 1 - (s.pv 2 in * / * - y j i el + : 21 line for for

x.CG 4 - 44 - 44 - 432 mat

y.CG 3 - 3 - 003332 mat

x.IC_ini 200 mm * - :

x.IC_ini in 7.874 -

y.IC_ini 0 m * :

y.IC_ini in 0

tol 1100 / :

aux 1 1.1 tol * + :

x.IC_ini x.IC_ini in / :

x.IC_ini 7.874 -

y.IC_ini y.IC_ini in / :

y.IC_ini 0

F.u F.u ksi / :

A.b A.b in 2^/ :

ex ex in / :

Iterar 1 :

F.u 120

A.b 0.6013

Iterar 1 ≡ i 1 : i n.ph ≤ i i 1 + : j 1 : j n.pv ≤ j j 1 + : x.IC j i el x.IC_ini - x.CG j i el + : y.IC j i el y.IC_ini - y.CG j i el + : 21 line for for i 1 : i n.ph ≤ i i 1 + : j 1 : j n.pv ≤ j j 1 + : d.ini j i el x.IC j i el (2^y.IC j i el (2^+ sqrt : for for d.max d.ini max : i 1 : i n.ph ≤ i i 1 + : j 1 : j n.pv ≤ j j 1 + : Δ.ini j i el d.ini j i el d.max / Δ.max * : for for i 1 : i n.ph ≤ i i 1 + : j 1 : j n.pv ≤ j j 1 + : R.ini j i el 0.7 F.u * A.b * 1 e 10 Δ.ini j i el * -^- (0.55^* : for for F.V R.ini j i el x.IC j i el * d.ini j i el / (j 1 n.pv sum i 1 n.ph sum : M R.ini j i el d.ini j i el * (j 1 n.pv sum i 1 n.ph sum : aux M x.IC_ini - ex + (/ F.V / : Iterar aux 1 - abs tol ≤ 01 if : 91 line while #

x.IC_ini 7.874 -

aux 1.11

C F.V 0.7 F.u * A.b * / :

C #