Hallo,
ich hoffe von Euch kann mir jemand weiterhelfen. Ich bin komplett neu auf dem Gebiet VBA und müsste eine iterative Ermittlung von 2 unbekannten machen.
gegeben:
b, fcR, Es, As2, As1, fyR, d, d2, d1, N, M, zs
variable Werte:
etac
etas2
Folgende Randbedingungen:
Fc = X * Alpha * fcR * b
Fs2 = etas2 * As2 * Es (wenn etas2 <= 2,75)
Fs2 = fyR * As2 (wenn etas2 > 2,75)
x = (ABS(etac) * d)/etas
Fs1 = As1 * Es * etas1 (wenn etas1 <= 2,75)
Fs1 = fyR * As1 (wenn etas1 > 2,75)
etas1 = (etac/x)*(x-d1)
alpha = (lange Gleichung in Abhängigkeit von etac)
ka = (lange Gleichung in Abhängikgiet von etac und alpha)
Nun sollen etac und etas2 solange angepasst werden bis gilt:
Fs1+Fc-Fs2+N = 0
-Fs1*d1+Fs2*d-Fc*x*ka-N*zs-Mcr = 0
etac darf aber nur einen miminmalen Wert von -3,5 und einen maximalen Wert von 0 annehmen.
Kann mir hierbei jemand helfen? Das wär super!
|