Empotramiento Carga Trapezoidal

Datos a= 0 b= 1 c= 0 W1= 1 W2= 1 Respuestas Ra= 0.5 Rb= 0.5 Ma= 0.0833333 Mb= -0.0833333 Codigo Para VBA Sub calc() Dim Ra, Ma, Rb, Mb, a_, c_, b, w1_, w2_ As Double a_ = Range("B2") c_ = Range("B4") b = Range("B3") w1_ = Range("B5") w2_ = Range("B6") Ra = b / (20 * (a_ + b + c_) ^ 3) * (20 * a_ * b * c_ * (2 * w1_ + w2_) + 5 * b ^ 2 * a_ * (3 * w1_ + w2_) + (w1_ + w2_) * (30 * c_ ^ 2 * a_ + 10 * c_ ^ 3 + 30 * b * c_ ^ 2) + b ^ 3 * (7 * w1_ + 3 * w2_) + 5 * (5 * w1_ + 3 * w2_) * b ^ 2 * c_) Ma = b / (60 * (a_ + b + c_) ^ 2) * (5 * b ^ 2 * a_ * (3 * w1_ + w2_) + b ^ 3 * (3 * w1_ + 2 * w2_) + (w1_ + w2_) * (10 * b ^ 2 * c_ + 30 * c_ ^ 2 * a_) + 10 * b * c_ ^ 2 * (w1_ + 2 * w2_) + 20 * a_ * b * c_ * (2 * w1_ + w2_)) Rb = b / (20 * (a_ + b + c_) ^ 3) * (20 * a_ * b * c_ * (w1_ + 2 * w2_) + 5 * b ^ 2 * a_ * (3 * w1_ + 5 * w2_) + (w1_ + w2_) * (30 * a_ ^ 2 * b + 30 * a_ ^ 2 * c_ + 10 * a_ ^ 3) + b ^ 3 * (3 * w1_ + 7 * w2_) + 5 * (w1_ + 3 * w2_) * b ^ 2 * c_) Mb = -b / (60 * (a_ + b + c_) ^ 2) * (20 * c_ * b * a_ * (w1_ + 2 * w2_) + 5 * b ^ 2 * c_ * (w1_ + 3 * w2_) + 10 * a_ ^ 2 * b * (2 * w1_ + w2_) + b ^ 3 * (2 * w1_ + 3 * w2_) + (w1_ + w2_) * (10 * b ^ 2 * a_ + 30 * a_ ^ 2 * c_)) Range("B9") = Ra Range("B10") = Rb Range("B11") = Ma Range("B12") = Mb End Sub a b c W1 W2

Upload
jdrczaoth
Category

Documents
view
9
download
0

Embed Size (px):

description

Empotramiento Carga Trapezoidal con cualquier valor en ambos extremosEmpotramiento Carga Trapezoidal con cualquier valor en ambos extremosEmpotramiento Carga Trapezoidal con cualquier valor en ambos extremos

Transcript of Empotramiento Carga Trapezoidal

Datos

a= 0

b= 1

c= 0

W1= 1

W2= 1

Respuestas

Ra= 0.5

Rb= 0.5

Ma= 0.0833333

Mb= -0.0833333

Codigo Para VBA

Sub calc()

Dim Ra, Ma, Rb, Mb, a_, c_, b, w1_, w2_ As Double

a_ = Range("B2")

c_ = Range("B4")

b = Range("B3")

w1_ = Range("B5")

w2_ = Range("B6")

Ra = b / (20 * (a_ + b + c_) ^ 3) * (20 * a_ * b * c_ * (2 * w1_ + w2_) + 5 * b ^ 2 * a_ * (3 * w1_ + w2_) + (w1_ + w2_) * (30 * c_ ^ 2 * a_ + 10 * c_ ^ 3 + 30 * b * c_ ^ 2) + b ^ 3 * (7 * w1_ + 3 * w2_) + 5 * (5 * w1_ + 3 * w2_) * b ^ 2 * c_)

Ma = b / (60 * (a_ + b + c_) ^ 2) * (5 * b ^ 2 * a_ * (3 * w1_ + w2_) + b ^ 3 * (3 * w1_ + 2 * w2_) + (w1_ + w2_) * (10 * b ^ 2 * c_ + 30 * c_ ^ 2 * a_) + 10 * b * c_ ^ 2 * (w1_ + 2 * w2_) + 20 * a_ * b * c_ * (2 * w1_ + w2_))

Rb = b / (20 * (a_ + b + c_) ^ 3) * (20 * a_ * b * c_ * (w1_ + 2 * w2_) + 5 * b ^ 2 * a_ * (3 * w1_ + 5 * w2_) + (w1_ + w2_) * (30 * a_ ^ 2 * b + 30 * a_ ^ 2 * c_ + 10 * a_ ^ 3) + b ^ 3 * (3 * w1_ + 7 * w2_) + 5 * (w1_ + 3 * w2_) * b ^ 2 * c_)

Mb = -b / (60 * (a_ + b + c_) ^ 2) * (20 * c_ * b * a_ * (w1_ + 2 * w2_) + 5 * b ^ 2 * c_ * (w1_ + 3 * w2_) + 10 * a_ ^ 2 * b * (2 * w1_ + w2_) + b ^ 3 * (2 * w1_ + 3 * w2_) + (w1_ + w2_) * (10 * b ^ 2 * a_ + 30 * a_ ^ 2 * c_))

Range("B9") = Ra

Range("B10") = Rb

Range("B11") = Ma

Range("B12") = Mb

End Sub

a b c

W1W2