00001 m = List(-(fp*Power(lp, 2))/128. - (lp*z1)/8. -
00002 z2, (-9*fp*Power(lp, 2))/128. - (3*lp*z1)/8. -
00003 z2, (-25*fp*Power(lp, 2))/128. - (5*lp*z1)/8. -
00004 z2, (-49*fp*Power(lp, 2))/128. - (7*lp*z1)/8. - z2)
00005
00006 mp = List(Abs(-(fp*Power(lp, 2))/128. - (lp*z1)/8. - z2),
00007 Abs((-9*fp*Power(lp, 2))/128. - (3*lp*z1)/8. - z2),
00008 Abs((-25*fp*Power(lp, 2))/128. - (5*lp*z1)/8. - z2),
00009 Abs((-49*fp*Power(lp, 2))/128. - (7*lp*z1)/8. - z2))
00010
00011 \[CurlyEpsilon]n = (-2*A*fc*\[CurlyEpsilon]c1 + 3*A*fc*k*\[CurlyEpsilon]c1 +
00012 As1*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
00013 As2*E0c*k*Power(\[CurlyEpsilon]c1, 2) -
00014 Sqrt(Power(\[CurlyEpsilon]c1,
00015 2)*(-8*A*fc*(-1 + k)*k*N0 +
00016 Power(A*fc*(-2 + 3*k) + (As1 + As2)*E0c*k*\[CurlyEpsilon]c1,
00017 2))))/(4.*A*fc*(-1 + k))
00018
00019 If(Power(6*b*fc*Power(h, 2)*\[CurlyEpsilon]c1 -
00020 9*b*fc*Power(h, 2)*k*\[CurlyEpsilon]c1 +
00021 6*As2*ch*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
00022 6*As1*d*E0c*k*Power(\[CurlyEpsilon]c1, 2) -
00023 6*As1*E0c*h*k*Power(\[CurlyEpsilon]c1, 2) -
00024 6*As2*E0c*h*k*Power(\[CurlyEpsilon]c1, 2) -
00025 8*b*fc*Power(h, 2)*\[CurlyEpsilon]n +
00026 8*b*fc*Power(h, 2)*k*\[CurlyEpsilon]n, 2) -
00027 4*b*fc*Power(h,
00028 2)*(-4 + 4*k)*(6*h*k*N0*Power(\[CurlyEpsilon]c1, 2) +
00029 6*b*fc*Power(h, 2)*\[CurlyEpsilon]c1*\[CurlyEpsilon]n -
00030 9*b*fc*Power(h, 2)*k*\[CurlyEpsilon]c1*\[CurlyEpsilon]n +
00031 6*As2*ch*E0c*k*Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]n +
00032 6*As1*d*E0c*k*Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]n -
00033 6*As1*E0c*h*k*Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]n -
00034 6*As2*E0c*h*k*Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]n -
00035 4*b*fc*Power(h, 2)*Power(\[CurlyEpsilon]n, 2) +
00036 4*b*fc*Power(h, 2)*k*Power(\[CurlyEpsilon]n, 2)) >=
00037 0, \[CurlyEpsilon]c =
00038 1/(2.*b*fc*Power(h, 2)*(-4 + 4*k))*(-6*b*fc*
00039 Power(h, 2)*\[CurlyEpsilon]c1 +
00040 9*b*fc*Power(h, 2)*k*\[CurlyEpsilon]c1 -
00041 6*As2*ch*E0c*k*Power(\[CurlyEpsilon]c1, 2) -
00042 6*As1*d*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
00043 6*As1*E0c*h*k*Power(\[CurlyEpsilon]c1, 2) +
00044 6*As2*E0c*h*k*Power(\[CurlyEpsilon]c1, 2) +
00045 8*b*fc*Power(h, 2)*\[CurlyEpsilon]n -
00046 8*b*fc*Power(h, 2)*k*\[CurlyEpsilon]n -
00047 Sqrt(Power(6*b*fc*Power(h, 2)*\[CurlyEpsilon]c1 -
00048 9*b*fc*Power(h, 2)*k*\[CurlyEpsilon]c1 +
00049 6*As2*ch*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
00050 6*As1*d*E0c*k*Power(\[CurlyEpsilon]c1, 2) -
00051 6*As1*E0c*h*k*Power(\[CurlyEpsilon]c1, 2) -
00052 6*As2*E0c*h*k*Power(\[CurlyEpsilon]c1, 2) -
00053 8*b*fc*Power(h, 2)*\[CurlyEpsilon]n +
00054 8*b*fc*Power(h, 2)*k*\[CurlyEpsilon]n, 2) -
00055 4*b*fc*Power(h,
00056 2)*(-4 + 4*k)*(6*h*k*N0*Power(\[CurlyEpsilon]c1, 2) +
00057 6*b*fc*
00058 Power(h, 2)*\[CurlyEpsilon]c1*\[CurlyEpsilon]n -
00059 9*b*fc*Power(h, 2)*
00060 k*\[CurlyEpsilon]c1*\[CurlyEpsilon]n +
00061 6*As2*ch*E0c*k*
00062 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]n +
00063 6*As1*d*E0c*k*
00064 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]n -
00065 6*As1*E0c*h*k*
00066 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]n -
00067 6*As2*E0c*h*k*
00068 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]n -
00069 4*b*fc*Power(h, 2)*Power(\[CurlyEpsilon]n, 2) +
00070 4*b*fc*Power(h, 2)*k*
00071 Power(\[CurlyEpsilon]n,
00072 2)))), \[CurlyEpsilon]c = -1)
00073
00074 If(-(fy/E0c) - \[CurlyEpsilon]n > ((-ch + h)*\[CurlyEpsilon]c)/
00075 h, \[CurlyEpsilon]c = -1, 1)
00076
00077 \[CurlyEpsilon]chr1 = \[CurlyEpsilon]c
00078
00079 If(\[CurlyEpsilon]c < 0 && \[CurlyEpsilon]c != -1,
00080 mhr1 = 0.08333333333333333*(6*As1*
00081 E0c*(-2*cd + h)*(\[CurlyEpsilon]n +
00082 1/(6.*(As2*ch + As1*d)*E0c*k*
00083 Power(\[CurlyEpsilon]c1, 2))*(6*As2*ch*E0c*
00084 k*\[CurlyEpsilon]c*Power(\[CurlyEpsilon]c1, 2) +
00085 3*d*k*Power(\[CurlyEpsilon]c1,
00086 2)*(N0 +
00087 As1*E0c*(\[CurlyEpsilon]c - \[CurlyEpsilon]n) -
00088 As2*E0c*(\[CurlyEpsilon]c + \[CurlyEpsilon]n)) +
00089 Sqrt(3)*
00090 Sqrt(k*
00091 Power(\[CurlyEpsilon]c1,
00092 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
00093 Power(-2*As2*ch*E0c*\[CurlyEpsilon]c +
00094 d*(-N0 +
00095 E0c*(As1*(-\[CurlyEpsilon]c + \
00096 \[CurlyEpsilon]n) + As2*(\[CurlyEpsilon]c + \[CurlyEpsilon]n))), 2) -
00097 2*(As2*ch + As1*d)*
00098 E0c*(b*Power(d, 2)*fc*
00099 Power(\[CurlyEpsilon]c + \
00100 \[CurlyEpsilon]n, 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
00101 9*k)*\[CurlyEpsilon]c1 +
00102 4*(-1 + k)*\[CurlyEpsilon]n) +
00103 6*k*\[CurlyEpsilon]c*
00104 Power(\[CurlyEpsilon]c1,
00105 2)*(As2*ch*E0c*\[CurlyEpsilon]c +
00106 d*(N0 - E0c*(As1*\[CurlyEpsilon]n +
00107 As2*(\[CurlyEpsilon]c + \
00108 \[CurlyEpsilon]n))))))))) -
00109 6*As2*E0c*(-2*ch +
00110 h)*(\[CurlyEpsilon]c - (ch*\[CurlyEpsilon]c)/
00111 d + \[CurlyEpsilon]n + (ch*(6*As2*ch*E0c*
00112 k*\[CurlyEpsilon]c*
00113 Power(\[CurlyEpsilon]c1, 2) +
00114 3*d*k*Power(\[CurlyEpsilon]c1,
00115 2)*(N0 +
00116 As1*E0c*(\[CurlyEpsilon]c - \
00117 \[CurlyEpsilon]n) - As2*E0c*(\[CurlyEpsilon]c + \[CurlyEpsilon]n)) +
00118 Sqrt(3)*
00119 Sqrt(k*
00120 Power(\[CurlyEpsilon]c1,
00121 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
00122 Power(-2*As2*ch*E0c*\[CurlyEpsilon]c +
00123 d*(-N0 +
00124 E0c*(As1*(-\[CurlyEpsilon]c + \
00125 \[CurlyEpsilon]n) + As2*(\[CurlyEpsilon]c + \[CurlyEpsilon]n))), 2) -
00126 2*(As2*ch + As1*d)*
00127 E0c*(b*Power(d, 2)*fc*
00128 Power(\[CurlyEpsilon]c + \
00129 \[CurlyEpsilon]n, 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
00130 9*k)*\[CurlyEpsilon]c1 +
00131 4*(-1 + k)*\[CurlyEpsilon]n) +
00132 6*k*\[CurlyEpsilon]c*
00133 Power(\[CurlyEpsilon]c1,
00134 2)*(As2*ch*E0c*\[CurlyEpsilon]c +
00135 d*(N0 - E0c*(As1*\[CurlyEpsilon]n +
00136 As2*(\[CurlyEpsilon]c + \
00137 \[CurlyEpsilon]n)))))))))/(6.*d*(As2*ch + As1*d)*E0c*k*
00138 Power(\[CurlyEpsilon]c1, 2))) - (b*d*fc*
00139 Power(\[CurlyEpsilon]c + \[CurlyEpsilon]n,
00140 2)*(2*d*(\[CurlyEpsilon]c + \[CurlyEpsilon]n)*((-1 +
00141 k)*\[CurlyEpsilon]c + (2 -
00142 3*k)*\[CurlyEpsilon]c1 + (-1 +
00143 k)*\[CurlyEpsilon]n) -
00144 h*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
00145 9*k)*\[CurlyEpsilon]c1 +
00146 4*(-1 +
00147 k)*\[CurlyEpsilon]n)*(\[CurlyEpsilon]c - (6*
00148 As2*ch*E0c*k*\[CurlyEpsilon]c*
00149 Power(\[CurlyEpsilon]c1, 2) +
00150 3*d*k*
00151 Power(\[CurlyEpsilon]c1,
00152 2)*(N0 +
00153 As1*E0c*(\[CurlyEpsilon]c - \
00154 \[CurlyEpsilon]n) - As2*E0c*(\[CurlyEpsilon]c + \[CurlyEpsilon]n)) +
00155 Sqrt(3)*
00156 Sqrt(k*
00157 Power(\[CurlyEpsilon]c1,
00158 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
00159 Power(-2*As2*ch*E0c*\[CurlyEpsilon]c +
00160 d*(-N0 +
00161 E0c*(As1*(-\[CurlyEpsilon]c + \
00162 \[CurlyEpsilon]n) + As2*(\[CurlyEpsilon]c + \[CurlyEpsilon]n))), 2) -
00163 2*(As2*ch + As1*d)*
00164 E0c*(b*Power(d, 2)*fc*
00165 Power(\[CurlyEpsilon]c + \
00166 \[CurlyEpsilon]n, 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
00167 9*k)*\[CurlyEpsilon]c1 +
00168 4*(-1 + k)*\[CurlyEpsilon]n) +
00169 6*k*\[CurlyEpsilon]c*
00170 Power(\[CurlyEpsilon]c1,
00171 2)*(As2*ch*E0c*\[CurlyEpsilon]c +
00172 d*(N0 - E0c*(As1*\[CurlyEpsilon]n +
00173 As2*(\[CurlyEpsilon]c + \
00174 \[CurlyEpsilon]n))))))))/(6.*(As2*ch + As1*d)*E0c*k*
00175 Power(\[CurlyEpsilon]c1, 2)))))/(k*
00176 Power(\[CurlyEpsilon]c1, 2)*
00177 Power(\[CurlyEpsilon]c -
00178 1/(6.*(As2*ch + As1*d)*E0c*k*
00179 Power(\[CurlyEpsilon]c1, 2))*(6*As2*ch*E0c*
00180 k*\[CurlyEpsilon]c*
00181 Power(\[CurlyEpsilon]c1, 2) +
00182 3*d*k*Power(\[CurlyEpsilon]c1,
00183 2)*(N0 +
00184 As1*E0c*(\[CurlyEpsilon]c - \
00185 \[CurlyEpsilon]n) - As2*E0c*(\[CurlyEpsilon]c + \[CurlyEpsilon]n)) +
00186 Sqrt(3)*
00187 Sqrt(k*
00188 Power(\[CurlyEpsilon]c1,
00189 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
00190 Power(-2*As2*ch*E0c*\[CurlyEpsilon]c +
00191 d*(-N0 +
00192 E0c*(As1*(-\[CurlyEpsilon]c + \
00193 \[CurlyEpsilon]n) + As2*(\[CurlyEpsilon]c + \[CurlyEpsilon]n))), 2) -
00194 2*(As2*ch + As1*d)*
00195 E0c*(b*Power(d, 2)*fc*
00196 Power(\[CurlyEpsilon]c + \
00197 \[CurlyEpsilon]n, 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
00198 9*k)*\[CurlyEpsilon]c1 +
00199 4*(-1 + k)*\[CurlyEpsilon]n) +
00200 6*k*\[CurlyEpsilon]c*
00201 Power(\[CurlyEpsilon]c1,
00202 2)*(As2*ch*E0c*\[CurlyEpsilon]c +
00203 d*(N0 - E0c*(As1*\[CurlyEpsilon]n +
00204 As2*(\[CurlyEpsilon]c + \
00205 \[CurlyEpsilon]n)))))))), 2))), mhr1 = 1000000000)
00206
00207 Null
00208
00209 If(mhr1 == 1000000000 ||
00210 E0c*(3*E0c*
00211 Power(k*
00212 Power(\[CurlyEpsilon]c1,
00213 2)*(-2*As2*ch*fy - As1*d*fy + As2*d*fy + d*N0 +
00214 2*As2*(ch - d)*E0c*\[CurlyEpsilon]n) +
00215 b*Power(d, 2)*
00216 fc*(-2*(-1 + k)*
00217 Power(\[CurlyEpsilon]c1,
00218 2) + (2 -
00219 3*k)*\[CurlyEpsilon]c1*\[CurlyEpsilon]n +
00220 2*(-1 + k)*Power(\[CurlyEpsilon]n, 2)),
00221 2) - (2*As2*(-ch + d)*E0c*k*Power(\[CurlyEpsilon]c1, 2) -
00222 b*Power(d, 2)*
00223 fc*((-2 + k)*\[CurlyEpsilon]c1 +
00224 4*(-1 + k)*\[CurlyEpsilon]n))*(-6*As2*k*
00225 Power(\[CurlyEpsilon]c1,
00226 2)*(fy -
00227 E0c*\[CurlyEpsilon]n)*(ch*fy + (-ch + d)*
00228 E0c*\[CurlyEpsilon]n) +
00229 d*(6*fy*k*N0*Power(\[CurlyEpsilon]c1, 2) -
00230 6*As1*fy*k*
00231 Power(\[CurlyEpsilon]c1,
00232 2)*(fy - E0c*\[CurlyEpsilon]n) +
00233 E0c*(-6*k*N0*
00234 Power(\[CurlyEpsilon]c1,
00235 2)*\[CurlyEpsilon]n +
00236 b*d*fc*(-4*(-1 + k)*
00237 Power(\[CurlyEpsilon]c1, 3) +
00238 3*(-2 + 3*k)*\[CurlyEpsilon]c1*
00239 Power(\[CurlyEpsilon]n, 2) -
00240 4*(-1 + k)*
00241 Power(\[CurlyEpsilon]n, 3)))))) <
00242 0, \[CurlyEpsilon]ct = -1, \[CurlyEpsilon]ct = (-3*E0c*k*
00243 Power(\[CurlyEpsilon]c1,
00244 2)*(-2*As2*ch*fy - As1*d*fy + As2*d*fy + d*N0 +
00245 2*As2*(ch - d)*E0c*\[CurlyEpsilon]n) +
00246 3*b*Power(d, 2)*E0c*
00247 fc*(2*(-1 + k)*
00248 Power(\[CurlyEpsilon]c1,
00249 2) + (-2 + 3*k)*\[CurlyEpsilon]c1*\[CurlyEpsilon]n -
00250 2*(-1 + k)*Power(\[CurlyEpsilon]n, 2)) +
00251 Sqrt(3)*Sqrt(E0c*(3*E0c*
00252 Power(k*
00253 Power(\[CurlyEpsilon]c1,
00254 2)*(-2*As2*ch*fy - As1*d*fy + As2*d*fy +
00255 d*N0 +
00256 2*As2*(ch - d)*E0c*\[CurlyEpsilon]n) +
00257 b*Power(d, 2)*
00258 fc*(-2*(-1 + k)*
00259 Power(\[CurlyEpsilon]c1,
00260 2) + (2 -
00261 3*k)*\[CurlyEpsilon]c1*\[CurlyEpsilon]\
00262 n + 2*(-1 + k)*Power(\[CurlyEpsilon]n, 2)),
00263 2) - (2*As2*(-ch + d)*E0c*k*
00264 Power(\[CurlyEpsilon]c1, 2) -
00265 b*Power(d, 2)*
00266 fc*((-2 + k)*\[CurlyEpsilon]c1 +
00267 4*(-1 + k)*\[CurlyEpsilon]n))*(-6*As2*k*
00268 Power(\[CurlyEpsilon]c1,
00269 2)*(fy -
00270 E0c*\[CurlyEpsilon]n)*(ch*fy + (-ch + d)*
00271 E0c*\[CurlyEpsilon]n) +
00272 d*(6*fy*k*N0*Power(\[CurlyEpsilon]c1, 2) -
00273 6*As1*fy*k*
00274 Power(\[CurlyEpsilon]c1,
00275 2)*(fy - E0c*\[CurlyEpsilon]n) +
00276 E0c*(-6*k*N0*
00277 Power(\[CurlyEpsilon]c1,
00278 2)*\[CurlyEpsilon]n +
00279 b*d*
00280 fc*(-4*(-1 + k)*
00281 Power(\[CurlyEpsilon]c1, 3) +
00282 3*(-2 + 3*k)*\[CurlyEpsilon]c1*
00283 Power(\[CurlyEpsilon]n, 2) -
00284 4*(-1 + k)*
00285 Power(\[CurlyEpsilon]n, 3))))))))/(3.*
00286 E0c*(2*As2*(ch - d)*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
00287 b*Power(d, 2)*
00288 fc*((-2 + k)*\[CurlyEpsilon]c1 +
00289 4*(-1 + k)*\[CurlyEpsilon]n))))
00290
00291 If(mhr1 == 1000000000 ||
00292 E0c*(3*E0c*
00293 Power(As2*k*
00294 Power(\[CurlyEpsilon]c1,
00295 2)*(-2*ch*fy + d*fy + 2*ch*E0c*\[CurlyEpsilon]n -
00296 2*d*E0c*\[CurlyEpsilon]n) +
00297 d*(-(As1*fy*k*Power(\[CurlyEpsilon]c1, 2)) +
00298 2*b*d*fc*(Power(\[CurlyEpsilon]ct,
00299 2) + (\[CurlyEpsilon]c1 - \
00300 \[CurlyEpsilon]n)*\[CurlyEpsilon]n) +
00301 k*(N0*Power(\[CurlyEpsilon]c1, 2) +
00302 b*d*fc*(-2*Power(\[CurlyEpsilon]ct, 2) -
00303 3*\[CurlyEpsilon]c1*\[CurlyEpsilon]n +
00304 2*Power(\[CurlyEpsilon]n, 2)))),
00305 2) - (2*As2*(-ch + d)*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
00306 b*Power(d, 2)*
00307 fc*((-2 + 3*k)*\[CurlyEpsilon]c1 -
00308 4*(-1 +
00309 k)*(\[CurlyEpsilon]ct + \
00310 \[CurlyEpsilon]n)))*(-6*As2*k*
00311 Power(\[CurlyEpsilon]c1,
00312 2)*(fy -
00313 E0c*\[CurlyEpsilon]n)*(ch*fy + (-ch + d)*
00314 E0c*\[CurlyEpsilon]n) +
00315 d*(6*fy*k*N0*Power(\[CurlyEpsilon]c1, 2) -
00316 6*As1*fy*k*
00317 Power(\[CurlyEpsilon]c1,
00318 2)*(fy - E0c*\[CurlyEpsilon]n) +
00319 E0c*(-6*k*N0*
00320 Power(\[CurlyEpsilon]c1,
00321 2)*\[CurlyEpsilon]n +
00322 b*d*fc*(-4*(-1 + k)*
00323 Power(\[CurlyEpsilon]ct, 3) +
00324 3*(-2 + 3*k)*\[CurlyEpsilon]c1*
00325 Power(\[CurlyEpsilon]n, 2) -
00326 4*(-1 + k)*
00327 Power(\[CurlyEpsilon]n, 3)))))) <
00328 0 || \[CurlyEpsilon]ct == -1, \[CurlyEpsilon]c = -1, \[CurlyEpsilon]c \
00329 = (-3*As2*E0c*k*
00330 Power(\[CurlyEpsilon]c1,
00331 2)*(-2*ch*fy + d*fy + 2*ch*E0c*\[CurlyEpsilon]n -
00332 2*d*E0c*\[CurlyEpsilon]n) +
00333 3*d*E0c*(k*(As1*fy - N0)*Power(\[CurlyEpsilon]c1, 2) -
00334 2*b*d*fc*Power(\[CurlyEpsilon]ct, 2) +
00335 2*b*d*fc*k*Power(\[CurlyEpsilon]ct, 2) +
00336 b*d*fc*(-2 + 3*k)*\[CurlyEpsilon]c1*\[CurlyEpsilon]n -
00337 2*b*d*fc*(-1 + k)*Power(\[CurlyEpsilon]n, 2)) +
00338 Sqrt(3)*Sqrt(E0c*(3*E0c*
00339 Power(As2*k*
00340 Power(\[CurlyEpsilon]c1,
00341 2)*(-2*ch*fy + d*fy +
00342 2*ch*E0c*\[CurlyEpsilon]n -
00343 2*d*E0c*\[CurlyEpsilon]n) +
00344 d*(-As1*fy*k*Power(\[CurlyEpsilon]c1, 2) +
00345 2*b*d*
00346 fc*(Power(\[CurlyEpsilon]ct,
00347 2) + (\[CurlyEpsilon]c1 - \
00348 \[CurlyEpsilon]n)*\[CurlyEpsilon]n) +
00349 k*(N0*Power(\[CurlyEpsilon]c1, 2) +
00350 b*d*fc*(-2*
00351 Power(\[CurlyEpsilon]ct, 2) -
00352 3*\[CurlyEpsilon]c1*\[CurlyEpsilon]n \
00353 + 2*Power(\[CurlyEpsilon]n, 2)))),
00354 2) - (2*As2*(-ch + d)*E0c*k*
00355 Power(\[CurlyEpsilon]c1, 2) +
00356 b*Power(d, 2)*
00357 fc*((-2 + 3*k)*\[CurlyEpsilon]c1 -
00358 4*(-1 +
00359 k)*(\[CurlyEpsilon]ct + \
00360 \[CurlyEpsilon]n)))*(-6*As2*k*
00361 Power(\[CurlyEpsilon]c1,
00362 2)*(fy -
00363 E0c*\[CurlyEpsilon]n)*(ch*fy + (-ch + d)*
00364 E0c*\[CurlyEpsilon]n) +
00365 d*(6*fy*k*N0*Power(\[CurlyEpsilon]c1, 2) -
00366 6*As1*fy*k*
00367 Power(\[CurlyEpsilon]c1,
00368 2)*(fy - E0c*\[CurlyEpsilon]n) +
00369 E0c*(-6*k*N0*
00370 Power(\[CurlyEpsilon]c1,
00371 2)*\[CurlyEpsilon]n +
00372 b*d*fc*(-4*(-1 + k)*
00373 Power(\[CurlyEpsilon]ct, 3) +
00374 3*(-2 + 3*k)*\[CurlyEpsilon]c1*
00375 Power(\[CurlyEpsilon]n, 2) -
00376 4*(-1 + k)*
00377 Power(\[CurlyEpsilon]n, 3))))))))/(3.*
00378 E0c*(2*As2*(ch - d)*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
00379 b*Power(d, 2)*
00380 fc*((2 - 3*k)*\[CurlyEpsilon]c1 +
00381 4*(-1 + k)*(\[CurlyEpsilon]ct + \[CurlyEpsilon]n)))))
00382
00383 \[CurlyEpsilon]chr2 = \[CurlyEpsilon]c
00384
00385 If(\[CurlyEpsilon]c < 0 && \[CurlyEpsilon]c != -1,
00386 mhr2 = 0.08333333333333333*(6*As1*
00387 E0c*(-2*cd + h)*(\[CurlyEpsilon]n +
00388 1/(6.*(As2*ch + As1*d)*E0c*k*
00389 Power(\[CurlyEpsilon]c1, 2))*(6*As2*ch*E0c*
00390 k*\[CurlyEpsilon]c*Power(\[CurlyEpsilon]c1, 2) +
00391 3*d*k*Power(\[CurlyEpsilon]c1,
00392 2)*(N0 +
00393 As1*E0c*(\[CurlyEpsilon]c - \[CurlyEpsilon]n) -
00394 As2*E0c*(\[CurlyEpsilon]c + \[CurlyEpsilon]n)) +
00395 Sqrt(3)*
00396 Sqrt(k*
00397 Power(\[CurlyEpsilon]c1,
00398 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
00399 Power(-2*As2*ch*E0c*\[CurlyEpsilon]c +
00400 d*(-N0 +
00401 E0c*(As1*(-\[CurlyEpsilon]c + \
00402 \[CurlyEpsilon]n) + As2*(\[CurlyEpsilon]c + \[CurlyEpsilon]n))), 2) -
00403 2*(As2*ch + As1*d)*
00404 E0c*(b*Power(d, 2)*fc*
00405 Power(\[CurlyEpsilon]c + \
00406 \[CurlyEpsilon]n, 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
00407 9*k)*\[CurlyEpsilon]c1 +
00408 4*(-1 + k)*\[CurlyEpsilon]n) +
00409 6*k*\[CurlyEpsilon]c*
00410 Power(\[CurlyEpsilon]c1,
00411 2)*(As2*ch*E0c*\[CurlyEpsilon]c +
00412 d*(N0 - E0c*(As1*\[CurlyEpsilon]n +
00413 As2*(\[CurlyEpsilon]c + \
00414 \[CurlyEpsilon]n))))))))) -
00415 6*As2*E0c*(-2*ch +
00416 h)*(\[CurlyEpsilon]c - (ch*\[CurlyEpsilon]c)/
00417 d + \[CurlyEpsilon]n + (ch*(6*As2*ch*E0c*
00418 k*\[CurlyEpsilon]c*
00419 Power(\[CurlyEpsilon]c1, 2) +
00420 3*d*k*Power(\[CurlyEpsilon]c1,
00421 2)*(N0 +
00422 As1*E0c*(\[CurlyEpsilon]c - \
00423 \[CurlyEpsilon]n) - As2*E0c*(\[CurlyEpsilon]c + \[CurlyEpsilon]n)) +
00424 Sqrt(3)*
00425 Sqrt(k*
00426 Power(\[CurlyEpsilon]c1,
00427 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
00428 Power(-2*As2*ch*E0c*\[CurlyEpsilon]c +
00429 d*(-N0 +
00430 E0c*(As1*(-\[CurlyEpsilon]c + \
00431 \[CurlyEpsilon]n) + As2*(\[CurlyEpsilon]c + \[CurlyEpsilon]n))), 2) -
00432 2*(As2*ch + As1*d)*
00433 E0c*(b*Power(d, 2)*fc*
00434 Power(\[CurlyEpsilon]c + \
00435 \[CurlyEpsilon]n, 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
00436 9*k)*\[CurlyEpsilon]c1 +
00437 4*(-1 + k)*\[CurlyEpsilon]n) +
00438 6*k*\[CurlyEpsilon]c*
00439 Power(\[CurlyEpsilon]c1,
00440 2)*(As2*ch*E0c*\[CurlyEpsilon]c +
00441 d*(N0 - E0c*(As1*\[CurlyEpsilon]n +
00442 As2*(\[CurlyEpsilon]c + \
00443 \[CurlyEpsilon]n)))))))))/(6.*d*(As2*ch + As1*d)*E0c*k*
00444 Power(\[CurlyEpsilon]c1, 2))) - (b*d*fc*
00445 Power(\[CurlyEpsilon]c + \[CurlyEpsilon]n,
00446 2)*(2*d*(\[CurlyEpsilon]c + \[CurlyEpsilon]n)*((-1 +
00447 k)*\[CurlyEpsilon]c + (2 -
00448 3*k)*\[CurlyEpsilon]c1 + (-1 +
00449 k)*\[CurlyEpsilon]n) -
00450 h*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
00451 9*k)*\[CurlyEpsilon]c1 +
00452 4*(-1 +
00453 k)*\[CurlyEpsilon]n)*(\[CurlyEpsilon]c - (6*
00454 As2*ch*E0c*k*\[CurlyEpsilon]c*
00455 Power(\[CurlyEpsilon]c1, 2) +
00456 3*d*k*
00457 Power(\[CurlyEpsilon]c1,
00458 2)*(N0 +
00459 As1*E0c*(\[CurlyEpsilon]c - \
00460 \[CurlyEpsilon]n) - As2*E0c*(\[CurlyEpsilon]c + \[CurlyEpsilon]n)) +
00461 Sqrt(3)*
00462 Sqrt(k*
00463 Power(\[CurlyEpsilon]c1,
00464 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
00465 Power(-2*As2*ch*E0c*\[CurlyEpsilon]c +
00466 d*(-N0 +
00467 E0c*(As1*(-\[CurlyEpsilon]c + \
00468 \[CurlyEpsilon]n) + As2*(\[CurlyEpsilon]c + \[CurlyEpsilon]n))), 2) -
00469 2*(As2*ch + As1*d)*
00470 E0c*(b*Power(d, 2)*fc*
00471 Power(\[CurlyEpsilon]c + \
00472 \[CurlyEpsilon]n, 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
00473 9*k)*\[CurlyEpsilon]c1 +
00474 4*(-1 + k)*\[CurlyEpsilon]n) +
00475 6*k*\[CurlyEpsilon]c*
00476 Power(\[CurlyEpsilon]c1,
00477 2)*(As2*ch*E0c*\[CurlyEpsilon]c +
00478 d*(N0 - E0c*(As1*\[CurlyEpsilon]n +
00479 As2*(\[CurlyEpsilon]c + \
00480 \[CurlyEpsilon]n))))))))/(6.*(As2*ch + As1*d)*E0c*k*
00481 Power(\[CurlyEpsilon]c1, 2)))))/(k*
00482 Power(\[CurlyEpsilon]c1, 2)*
00483 Power(\[CurlyEpsilon]c -
00484 1/(6.*(As2*ch + As1*d)*E0c*k*
00485 Power(\[CurlyEpsilon]c1, 2))*(6*As2*ch*E0c*
00486 k*\[CurlyEpsilon]c*
00487 Power(\[CurlyEpsilon]c1, 2) +
00488 3*d*k*Power(\[CurlyEpsilon]c1,
00489 2)*(N0 +
00490 As1*E0c*(\[CurlyEpsilon]c - \
00491 \[CurlyEpsilon]n) - As2*E0c*(\[CurlyEpsilon]c + \[CurlyEpsilon]n)) +
00492 Sqrt(3)*
00493 Sqrt(k*
00494 Power(\[CurlyEpsilon]c1,
00495 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
00496 Power(-2*As2*ch*E0c*\[CurlyEpsilon]c +
00497 d*(-N0 +
00498 E0c*(As1*(-\[CurlyEpsilon]c + \
00499 \[CurlyEpsilon]n) + As2*(\[CurlyEpsilon]c + \[CurlyEpsilon]n))), 2) -
00500 2*(As2*ch + As1*d)*
00501 E0c*(b*Power(d, 2)*fc*
00502 Power(\[CurlyEpsilon]c + \
00503 \[CurlyEpsilon]n, 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
00504 9*k)*\[CurlyEpsilon]c1 +
00505 4*(-1 + k)*\[CurlyEpsilon]n) +
00506 6*k*\[CurlyEpsilon]c*
00507 Power(\[CurlyEpsilon]c1,
00508 2)*(As2*ch*E0c*\[CurlyEpsilon]c +
00509 d*(N0 - E0c*(As1*\[CurlyEpsilon]n +
00510 As2*(\[CurlyEpsilon]c + \
00511 \[CurlyEpsilon]n)))))))), 2))), mhr2 = 1000000000)
00512
00513 Null
00514
00515 ac1 = ((12*Sqrt(3)*
00516 E0c*((-8*b*(As2*ch + As1*d)*E0c*
00517 fc*(\[CurlyEpsilon]c1 - \[CurlyEpsilon]n)*
00518 Power(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n, 2) +
00519 k*(12*Power(N0, 2)*Power(\[CurlyEpsilon]c1, 2) -
00520 12*(As1 + As2)*E0c*N0*
00521 Power(\[CurlyEpsilon]c1,
00522 2)*(\[CurlyEpsilon]c1 +
00523 2*\[CurlyEpsilon]n) +
00524 E0c*(3*Power(As2, 2)*E0c*
00525 Power(\[CurlyEpsilon]c1, 2) +
00526 2*As2*(3*As1*E0c*
00527 Power(\[CurlyEpsilon]c1, 2) +
00528 b*ch*
00529 fc*(7*\[CurlyEpsilon]c1 -
00530 4*\[CurlyEpsilon]n)) +
00531 As1*(3*As1*E0c*
00532 Power(\[CurlyEpsilon]c1, 2) +
00533 2*b*d*
00534 fc*(7*\[CurlyEpsilon]c1 -
00535 4*\[CurlyEpsilon]n)))*
00536 Power(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n,
00537 2)))*(Power(As2, 2)*E0c*k*
00538 Power(\[CurlyEpsilon]c1, 2) +
00539 2*As2*(As1*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
00540 b*ch*fc*(k*\[CurlyEpsilon]c1 +
00541 4*\[CurlyEpsilon]n -
00542 4*k*\[CurlyEpsilon]n)) +
00543 As1*(As1*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
00544 2*b*d*fc*(k*\[CurlyEpsilon]c1 +
00545 4*\[CurlyEpsilon]n -
00546 4*k*\[CurlyEpsilon]n))) -
00547 3*E0c*Power(Power(As2, 2)*E0c*k*
00548 Power(\[CurlyEpsilon]c1,
00549 2)*(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n) +
00550 As1*(2*b*d*
00551 fc*(\[CurlyEpsilon]c1 +
00552 2*\[CurlyEpsilon]n)*((-1 +
00553 2*k)*\[CurlyEpsilon]c1 -
00554 2*(-1 + k)*\[CurlyEpsilon]n) +
00555 k*Power(\[CurlyEpsilon]c1,
00556 2)*(-2*N0 +
00557 As1*E0c*(\[CurlyEpsilon]c1 +
00558 2*\[CurlyEpsilon]n))) +
00559 2*As2*(b*ch*
00560 fc*(\[CurlyEpsilon]c1 +
00561 2*\[CurlyEpsilon]n)*((-1 +
00562 2*k)*\[CurlyEpsilon]c1 -
00563 2*(-1 + k)*\[CurlyEpsilon]n) +
00564 k*Power(\[CurlyEpsilon]c1,
00565 2)*(-N0 +
00566 As1*E0c*(\[CurlyEpsilon]c1 +
00567 2*\[CurlyEpsilon]n))), 2))*
00568 Sqrt(k*Power(\[CurlyEpsilon]c1,
00569 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
00570 Power(As2*ch*
00571 E0c*\[CurlyEpsilon]c1 + (d*(2*N0 +
00572 E0c*(As1*(\[CurlyEpsilon]c1 -
00573 2*\[CurlyEpsilon]n) -
00574 As2*(\[CurlyEpsilon]c1 +
00575 2*\[CurlyEpsilon]n))))/2., 2) -
00576 2*(As2*ch + As1*d)*
00577 E0c*(-(b*Power(d, 2)*fc*
00578 Power(\[CurlyEpsilon]c1 +
00579 2*\[CurlyEpsilon]n,
00580 2)*((-4 + 7*k)*\[CurlyEpsilon]c1 -
00581 4*(-1 + k)*\[CurlyEpsilon]n))/4. +
00582 3*k*Power(\[CurlyEpsilon]c1,
00583 3)*((As2*ch*E0c*\[CurlyEpsilon]c1)/2. +
00584 d*(N0 - (E0c*(As2*\[CurlyEpsilon]c1 +
00585 2*As1*\[CurlyEpsilon]n +
00586 2*As2*\[CurlyEpsilon]n))/
00587 2.))))))/((As2*ch + As1*d)*k*
00588 Power(-8*b*(As2*ch + As1*d)*E0c*
00589 fc*(\[CurlyEpsilon]c1 - \[CurlyEpsilon]n)*
00590 Power(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n, 2) +
00591 k*(12*Power(N0, 2)*Power(\[CurlyEpsilon]c1, 2) -
00592 12*(As1 + As2)*E0c*N0*
00593 Power(\[CurlyEpsilon]c1,
00594 2)*(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n) +
00595 E0c*(3*Power(As2, 2)*E0c*
00596 Power(\[CurlyEpsilon]c1, 2) +
00597 2*As2*(3*As1*E0c*Power(\[CurlyEpsilon]c1, 2) +
00598 b*ch*fc*(7*\[CurlyEpsilon]c1 -
00599 4*\[CurlyEpsilon]n)) +
00600 As1*(3*As1*E0c*Power(\[CurlyEpsilon]c1, 2) +
00601 2*b*d*
00602 fc*(7*\[CurlyEpsilon]c1 -
00603 4*\[CurlyEpsilon]n)))*
00604 Power(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n, 2)),
00605 2)) - 4*\[CurlyEpsilon]c1*((6*(-ch + d)*E0c)/
00606 ch + (3*
00607 E0c*(2*As2*ch*k*Power(\[CurlyEpsilon]c1, 2) + (As1 - As2)*
00608 d*k*Power(\[CurlyEpsilon]c1,
00609 2) + (2*
00610 Sqrt(3)*(Power(As2, 2)*E0c*k*
00611 Power(\[CurlyEpsilon]c1,
00612 2)*(\[CurlyEpsilon]c1 +
00613 2*\[CurlyEpsilon]n) +
00614 As1*(2*b*d*
00615 fc*(\[CurlyEpsilon]c1 +
00616 2*\[CurlyEpsilon]n)*((-1 +
00617 2*k)*\[CurlyEpsilon]c1 -
00618 2*(-1 + k)*\[CurlyEpsilon]n) +
00619 k*Power(\[CurlyEpsilon]c1,
00620 2)*(-2*N0 +
00621 As1*E0c*(\[CurlyEpsilon]c1 +
00622 2*\[CurlyEpsilon]n))) +
00623 2*As2*(b*ch*
00624 fc*(\[CurlyEpsilon]c1 +
00625 2*\[CurlyEpsilon]n)*((-1 +
00626 2*k)*\[CurlyEpsilon]c1 -
00627 2*(-1 + k)*\[CurlyEpsilon]n) +
00628 k*Power(\[CurlyEpsilon]c1,
00629 2)*(-N0 +
00630 As1*E0c*(\[CurlyEpsilon]c1 +
00631 2*\[CurlyEpsilon]n))))*
00632 Sqrt(k*
00633 Power(\[CurlyEpsilon]c1,
00634 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
00635 Power(As2*ch*
00636 E0c*\[CurlyEpsilon]c1 + (d*(2*N0 +
00637 E0c*(As1*(\[CurlyEpsilon]c1 -
00638 2*\[CurlyEpsilon]n) -
00639 As2*(\[CurlyEpsilon]c1 +
00640 2*\[CurlyEpsilon]n))))/2., 2) -
00641 2*(As2*ch + As1*d)*
00642 E0c*(-(b*Power(d, 2)*fc*
00643 Power(\[CurlyEpsilon]c1 +
00644 2*\[CurlyEpsilon]n,
00645 2)*((-4 + 7*k)*\[CurlyEpsilon]c1 -
00646 4*(-1 + k)*\[CurlyEpsilon]n))/4. +
00647 3*k*Power(\[CurlyEpsilon]c1,
00648 3)*((As2*ch*E0c*\[CurlyEpsilon]c1)/
00649 2. +
00650 d*(N0 - (E0c*(As2*\[CurlyEpsilon]c1 +
00651 2*As1*\[CurlyEpsilon]n +
00652 2*As2*\[CurlyEpsilon]n))/2.))))))/(-8*
00653
00654 b*(As2*ch + As1*d)*E0c*
00655 fc*(\[CurlyEpsilon]c1 - \[CurlyEpsilon]n)*
00656 Power(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n,
00657 2) + k*(12*Power(N0, 2)*
00658 Power(\[CurlyEpsilon]c1, 2) -
00659 12*(As1 + As2)*E0c*N0*
00660 Power(\[CurlyEpsilon]c1,
00661 2)*(\[CurlyEpsilon]c1 +
00662 2*\[CurlyEpsilon]n) +
00663 E0c*(3*Power(As2, 2)*E0c*
00664 Power(\[CurlyEpsilon]c1, 2) +
00665 2*As2*(3*As1*E0c*
00666 Power(\[CurlyEpsilon]c1, 2) +
00667 b*ch*fc*(7*\[CurlyEpsilon]c1 -
00668 4*\[CurlyEpsilon]n)) +
00669 As1*(3*As1*E0c*
00670 Power(\[CurlyEpsilon]c1, 2) +
00671 2*b*d*fc*(7*\[CurlyEpsilon]c1 -
00672 4*\[CurlyEpsilon]n)))*
00673 Power(\[CurlyEpsilon]c1 +
00674 2*\[CurlyEpsilon]n, 2)))))/((As2*ch +
00675 As1*d)*k*Power(\[CurlyEpsilon]c1, 2))) + (4*(3*As2*ch*
00676 d*k*Power(\[CurlyEpsilon]c1,
00677 2)*(4*fy +
00678 E0c*(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n)) +
00679 3*As1*d*k*
00680 Power(\[CurlyEpsilon]c1,
00681 2)*(-(ch*
00682 E0c*(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n)) +
00683 2*d*(2*fy + E0c*\[CurlyEpsilon]c1 +
00684 2*E0c*\[CurlyEpsilon]n)) +
00685 2*ch*(3*d*k*N0*Power(\[CurlyEpsilon]c1, 2) +
00686 Sqrt(3)*
00687 Sqrt(k*
00688 Power(\[CurlyEpsilon]c1,
00689 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
00690 Power(As2*ch*
00691 E0c*\[CurlyEpsilon]c1 + (d*(2*N0 +
00692 E0c*(As1*(\[CurlyEpsilon]c1 -
00693 2*\[CurlyEpsilon]n) -
00694 As2*(\[CurlyEpsilon]c1 +
00695 2*\[CurlyEpsilon]n))))/2., 2) -
00696 2*(As2*ch + As1*d)*
00697 E0c*(-(b*Power(d, 2)*fc*
00698 Power(\[CurlyEpsilon]c1 +
00699 2*\[CurlyEpsilon]n,
00700 2)*(-4*\[CurlyEpsilon]c1 +
00701 7*k*\[CurlyEpsilon]c1 +
00702 4*\[CurlyEpsilon]n -
00703 4*k*\[CurlyEpsilon]n))/4. +
00704 3*k*Power(\[CurlyEpsilon]c1,
00705 3)*((As2*ch*E0c*\[CurlyEpsilon]c1)/
00706 2. +
00707 d*(N0 - (E0c*(As2*\[CurlyEpsilon]c1 +
00708 2*As1*\[CurlyEpsilon]n +
00709 2*As2*\[CurlyEpsilon]n))/
00710 2.))))))))/(ch*(As2*ch + As1*d)*k*
00711 Power(\[CurlyEpsilon]c1, 2)))/(48.*E0c)
00712
00713 ac2 = (-2 + (2*d)/
00714 ch - (2*Sqrt(3)*((-8*b*(As2*ch + As1*d)*E0c*
00715 fc*(\[CurlyEpsilon]c1 - \[CurlyEpsilon]n)*
00716 Power(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n, 2) +
00717 k*(12*Power(N0, 2)*Power(\[CurlyEpsilon]c1, 2) -
00718 12*(As1 + As2)*E0c*N0*
00719 Power(\[CurlyEpsilon]c1,
00720 2)*(\[CurlyEpsilon]c1 +
00721 2*\[CurlyEpsilon]n) +
00722 E0c*(3*Power(As2, 2)*E0c*
00723 Power(\[CurlyEpsilon]c1, 2) +
00724 2*As2*(3*As1*E0c*
00725 Power(\[CurlyEpsilon]c1, 2) +
00726 b*ch*
00727 fc*(7*\[CurlyEpsilon]c1 -
00728 4*\[CurlyEpsilon]n)) +
00729 As1*(3*As1*E0c*
00730 Power(\[CurlyEpsilon]c1, 2) +
00731 2*b*d*
00732 fc*(7*\[CurlyEpsilon]c1 -
00733 4*\[CurlyEpsilon]n)))*
00734 Power(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n,
00735 2)))*(Power(As2, 2)*E0c*k*
00736 Power(\[CurlyEpsilon]c1, 2) +
00737 2*As2*(As1*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
00738 b*ch*fc*(k*\[CurlyEpsilon]c1 +
00739 4*\[CurlyEpsilon]n -
00740 4*k*\[CurlyEpsilon]n)) +
00741 As1*(As1*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
00742 2*b*d*fc*(k*\[CurlyEpsilon]c1 +
00743 4*\[CurlyEpsilon]n -
00744 4*k*\[CurlyEpsilon]n))) -
00745 3*E0c*Power(Power(As2, 2)*E0c*k*
00746 Power(\[CurlyEpsilon]c1,
00747 2)*(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n) +
00748 As1*(2*b*d*
00749 fc*(\[CurlyEpsilon]c1 +
00750 2*\[CurlyEpsilon]n)*((-1 +
00751 2*k)*\[CurlyEpsilon]c1 -
00752 2*(-1 + k)*\[CurlyEpsilon]n) +
00753 k*Power(\[CurlyEpsilon]c1,
00754 2)*(-2*N0 +
00755 As1*E0c*(\[CurlyEpsilon]c1 +
00756 2*\[CurlyEpsilon]n))) +
00757 2*As2*(b*ch*
00758 fc*(\[CurlyEpsilon]c1 +
00759 2*\[CurlyEpsilon]n)*((-1 +
00760 2*k)*\[CurlyEpsilon]c1 -
00761 2*(-1 + k)*\[CurlyEpsilon]n) +
00762 k*Power(\[CurlyEpsilon]c1,
00763 2)*(-N0 +
00764 As1*E0c*(\[CurlyEpsilon]c1 +
00765 2*\[CurlyEpsilon]n))), 2))*
00766 Sqrt(k*Power(\[CurlyEpsilon]c1,
00767 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
00768 Power(As2*ch*
00769 E0c*\[CurlyEpsilon]c1 + (d*(2*N0 +
00770 E0c*(As1*(\[CurlyEpsilon]c1 -
00771 2*\[CurlyEpsilon]n) -
00772 As2*(\[CurlyEpsilon]c1 +
00773 2*\[CurlyEpsilon]n))))/2., 2) -
00774 2*(As2*ch + As1*d)*
00775 E0c*(-(b*Power(d, 2)*fc*
00776 Power(\[CurlyEpsilon]c1 +
00777 2*\[CurlyEpsilon]n,
00778 2)*((-4 + 7*k)*\[CurlyEpsilon]c1 -
00779 4*(-1 + k)*\[CurlyEpsilon]n))/4. +
00780 3*k*Power(\[CurlyEpsilon]c1,
00781 3)*((As2*ch*E0c*\[CurlyEpsilon]c1)/2. +
00782 d*(N0 - (E0c*(As2*\[CurlyEpsilon]c1 +
00783 2*As1*\[CurlyEpsilon]n +
00784 2*As2*\[CurlyEpsilon]n))/
00785 2.))))))/((As2*ch + As1*d)*
00786 k*\[CurlyEpsilon]c1*
00787 Power(-8*b*(As2*ch + As1*d)*E0c*
00788 fc*(\[CurlyEpsilon]c1 - \[CurlyEpsilon]n)*
00789 Power(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n, 2) +
00790 k*(12*Power(N0, 2)*Power(\[CurlyEpsilon]c1, 2) -
00791 12*(As1 + As2)*E0c*N0*
00792 Power(\[CurlyEpsilon]c1,
00793 2)*(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n) +
00794 E0c*(3*Power(As2, 2)*E0c*
00795 Power(\[CurlyEpsilon]c1, 2) +
00796 2*As2*(3*As1*E0c*Power(\[CurlyEpsilon]c1, 2) +
00797 b*ch*fc*(7*\[CurlyEpsilon]c1 -
00798 4*\[CurlyEpsilon]n)) +
00799 As1*(3*As1*E0c*Power(\[CurlyEpsilon]c1, 2) +
00800 2*b*d*
00801 fc*(7*\[CurlyEpsilon]c1 -
00802 4*\[CurlyEpsilon]n)))*
00803 Power(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n, 2)),
00804 2)) + (2*As2*ch*k*Power(\[CurlyEpsilon]c1, 2) + (As1 - As2)*d*
00805 k*Power(\[CurlyEpsilon]c1,
00806 2) + (2*
00807 Sqrt(3)*(Power(As2, 2)*E0c*k*
00808 Power(\[CurlyEpsilon]c1,
00809 2)*(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n) +
00810 As1*(2*b*d*
00811 fc*(\[CurlyEpsilon]c1 +
00812 2*\[CurlyEpsilon]n)*((-1 +
00813 2*k)*\[CurlyEpsilon]c1 -
00814 2*(-1 + k)*\[CurlyEpsilon]n) +
00815 k*Power(\[CurlyEpsilon]c1,
00816 2)*(-2*N0 +
00817 As1*E0c*(\[CurlyEpsilon]c1 +
00818 2*\[CurlyEpsilon]n))) +
00819 2*As2*(b*ch*
00820 fc*(\[CurlyEpsilon]c1 +
00821 2*\[CurlyEpsilon]n)*((-1 +
00822 2*k)*\[CurlyEpsilon]c1 -
00823 2*(-1 + k)*\[CurlyEpsilon]n) +
00824 k*Power(\[CurlyEpsilon]c1,
00825 2)*(-N0 +
00826 As1*E0c*(\[CurlyEpsilon]c1 +
00827 2*\[CurlyEpsilon]n))))*
00828 Sqrt(k*Power(\[CurlyEpsilon]c1,
00829 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
00830 Power(As2*ch*
00831 E0c*\[CurlyEpsilon]c1 + (d*(2*N0 +
00832 E0c*(As1*(\[CurlyEpsilon]c1 -
00833 2*\[CurlyEpsilon]n) -
00834 As2*(\[CurlyEpsilon]c1 +
00835 2*\[CurlyEpsilon]n))))/2., 2) -
00836 2*(As2*ch + As1*d)*
00837 E0c*(-(b*Power(d, 2)*fc*
00838 Power(\[CurlyEpsilon]c1 +
00839 2*\[CurlyEpsilon]n,
00840 2)*((-4 + 7*k)*\[CurlyEpsilon]c1 -
00841 4*(-1 + k)*\[CurlyEpsilon]n))/4. +
00842 3*k*Power(\[CurlyEpsilon]c1,
00843 3)*((As2*ch*E0c*\[CurlyEpsilon]c1)/2. +
00844 d*(N0 - (E0c*(As2*\[CurlyEpsilon]c1 +
00845 2*As1*\[CurlyEpsilon]n +
00846 2*As2*\[CurlyEpsilon]n))/2.))))))/(-8*
00847
00848 b*(As2*ch + As1*d)*E0c*
00849 fc*(\[CurlyEpsilon]c1 - \[CurlyEpsilon]n)*
00850 Power(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n, 2) +
00851 k*(12*Power(N0, 2)*Power(\[CurlyEpsilon]c1, 2) -
00852 12*(As1 + As2)*E0c*N0*
00853 Power(\[CurlyEpsilon]c1,
00854 2)*(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n) +
00855 E0c*(3*Power(As2, 2)*E0c*
00856 Power(\[CurlyEpsilon]c1, 2) +
00857 2*As2*(3*As1*E0c*Power(\[CurlyEpsilon]c1, 2) +
00858 b*ch*
00859 fc*(7*\[CurlyEpsilon]c1 -
00860 4*\[CurlyEpsilon]n)) +
00861 As1*(3*As1*E0c*Power(\[CurlyEpsilon]c1, 2) +
00862 2*b*d*
00863 fc*(7*\[CurlyEpsilon]c1 -
00864 4*\[CurlyEpsilon]n)))*
00865 Power(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n,
00866 2))))/((As2*ch + As1*d)*k*
00867 Power(\[CurlyEpsilon]c1, 2)))/2.
00868
00869 ac3 = (Sqrt(3)*((-8*b*(As2*ch + As1*d)*E0c*
00870 fc*(\[CurlyEpsilon]c1 - \[CurlyEpsilon]n)*
00871 Power(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n, 2) +
00872 k*(12*Power(N0, 2)*Power(\[CurlyEpsilon]c1, 2) -
00873 12*(As1 + As2)*E0c*N0*
00874 Power(\[CurlyEpsilon]c1,
00875 2)*(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n) +
00876 E0c*(3*Power(As2, 2)*E0c*
00877 Power(\[CurlyEpsilon]c1, 2) +
00878 2*As2*(3*As1*E0c*Power(\[CurlyEpsilon]c1, 2) +
00879 b*ch*fc*(7*\[CurlyEpsilon]c1 -
00880 4*\[CurlyEpsilon]n)) +
00881 As1*(3*As1*E0c*Power(\[CurlyEpsilon]c1, 2) +
00882 2*b*d*
00883 fc*(7*\[CurlyEpsilon]c1 -
00884 4*\[CurlyEpsilon]n)))*
00885 Power(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n,
00886 2)))*(Power(As2, 2)*E0c*k*
00887 Power(\[CurlyEpsilon]c1, 2) +
00888 2*As2*(As1*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
00889 b*ch*fc*(k*\[CurlyEpsilon]c1 + 4*\[CurlyEpsilon]n -
00890 4*k*\[CurlyEpsilon]n)) +
00891 As1*(As1*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
00892 2*b*d*fc*(k*\[CurlyEpsilon]c1 + 4*\[CurlyEpsilon]n -
00893 4*k*\[CurlyEpsilon]n))) -
00894 3*E0c*Power(Power(As2, 2)*E0c*k*
00895 Power(\[CurlyEpsilon]c1,
00896 2)*(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n) +
00897 As1*(2*b*d*
00898 fc*(\[CurlyEpsilon]c1 +
00899 2*\[CurlyEpsilon]n)*((-1 +
00900 2*k)*\[CurlyEpsilon]c1 -
00901 2*(-1 + k)*\[CurlyEpsilon]n) +
00902 k*Power(\[CurlyEpsilon]c1,
00903 2)*(-2*N0 +
00904 As1*E0c*(\[CurlyEpsilon]c1 +
00905 2*\[CurlyEpsilon]n))) +
00906 2*As2*(b*ch*
00907 fc*(\[CurlyEpsilon]c1 +
00908 2*\[CurlyEpsilon]n)*((-1 +
00909 2*k)*\[CurlyEpsilon]c1 -
00910 2*(-1 + k)*\[CurlyEpsilon]n) +
00911 k*Power(\[CurlyEpsilon]c1,
00912 2)*(-N0 +
00913 As1*E0c*(\[CurlyEpsilon]c1 +
00914 2*\[CurlyEpsilon]n))), 2))*
00915 Sqrt(k*Power(\[CurlyEpsilon]c1,
00916 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
00917 Power(As2*ch*
00918 E0c*\[CurlyEpsilon]c1 + (d*(2*N0 +
00919 E0c*(As1*(\[CurlyEpsilon]c1 -
00920 2*\[CurlyEpsilon]n) -
00921 As2*(\[CurlyEpsilon]c1 +
00922 2*\[CurlyEpsilon]n))))/2., 2) -
00923 2*(As2*ch + As1*d)*
00924 E0c*(-(b*Power(d, 2)*fc*
00925 Power(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n,
00926 2)*((-4 + 7*k)*\[CurlyEpsilon]c1 -
00927 4*(-1 + k)*\[CurlyEpsilon]n))/4. +
00928 3*k*Power(\[CurlyEpsilon]c1,
00929 3)*((As2*ch*E0c*\[CurlyEpsilon]c1)/2. +
00930 d*(N0 - (E0c*(As2*\[CurlyEpsilon]c1 +
00931 2*As1*\[CurlyEpsilon]n +
00932 2*As2*\[CurlyEpsilon]n))/
00933 2.))))))/((As2*ch + As1*d)*k*
00934 Power(\[CurlyEpsilon]c1, 2)*
00935 Power(-8*b*(As2*ch + As1*d)*E0c*
00936 fc*(\[CurlyEpsilon]c1 - \[CurlyEpsilon]n)*
00937 Power(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n, 2) +
00938 k*(12*Power(N0, 2)*Power(\[CurlyEpsilon]c1, 2) -
00939 12*(As1 + As2)*E0c*N0*
00940 Power(\[CurlyEpsilon]c1,
00941 2)*(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n) +
00942 E0c*(3*Power(As2, 2)*E0c*Power(\[CurlyEpsilon]c1, 2) +
00943 2*As2*(3*As1*E0c*Power(\[CurlyEpsilon]c1, 2) +
00944 b*ch*fc*(7*\[CurlyEpsilon]c1 -
00945 4*\[CurlyEpsilon]n)) +
00946 As1*(3*As1*E0c*Power(\[CurlyEpsilon]c1, 2) +
00947 2*b*d*fc*(7*\[CurlyEpsilon]c1 -
00948 4*\[CurlyEpsilon]n)))*
00949 Power(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n, 2)), 2))
00950
00951 \[CurlyEpsilon]c = (-ac2 + Sqrt(Power(ac2, 2) - 4*ac1*ac3))/(2.*ac3)
00952
00953 \[CurlyEpsilon]chr3 = \[CurlyEpsilon]c
00954
00955 mhr3 = (6*As1*
00956 E0c*(-2*cd +
00957 h)*(\[CurlyEpsilon]n + (6*As2*ch*E0c*k*\[CurlyEpsilon]c*
00958 Power(\[CurlyEpsilon]c1, 2) +
00959 3*d*k*Power(\[CurlyEpsilon]c1,
00960 2)*(N0 +
00961 As1*E0c*(\[CurlyEpsilon]c - \[CurlyEpsilon]n) -
00962 As2*E0c*(\[CurlyEpsilon]c + \[CurlyEpsilon]n)) +
00963 Sqrt(3)*
00964 Sqrt(k*Power(\[CurlyEpsilon]c1,
00965 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
00966 Power(-2*As2*ch*E0c*\[CurlyEpsilon]c +
00967 d*(-N0 +
00968 E0c*(As1*(-\[CurlyEpsilon]c + \
00969 \[CurlyEpsilon]n) + As2*(\[CurlyEpsilon]c + \[CurlyEpsilon]n))), 2) -
00970 2*(As2*ch + As1*d)*
00971 E0c*(b*Power(d, 2)*fc*
00972 Power(\[CurlyEpsilon]c + \
00973 \[CurlyEpsilon]n, 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
00974 9*k)*\[CurlyEpsilon]c1 +
00975 4*(-1 + k)*\[CurlyEpsilon]n) +
00976 6*k*\[CurlyEpsilon]c*
00977 Power(\[CurlyEpsilon]c1,
00978 2)*(As2*ch*E0c*\[CurlyEpsilon]c +
00979 d*(N0 -
00980 E0c*(As1*\[CurlyEpsilon]n +
00981 As2*(\[CurlyEpsilon]c + \
00982 \[CurlyEpsilon]n))))))))/(6.*(As2*ch + As1*d)*E0c*k*
00983 Power(\[CurlyEpsilon]c1, 2))) -
00984 6*As2*E0c*(-2*ch +
00985 h)*(\[CurlyEpsilon]c - (ch*\[CurlyEpsilon]c)/
00986 d + \[CurlyEpsilon]n + (ch*(6*As2*ch*E0c*k*\[CurlyEpsilon]c*
00987 Power(\[CurlyEpsilon]c1, 2) +
00988 3*d*k*Power(\[CurlyEpsilon]c1,
00989 2)*(N0 +
00990 As1*E0c*(\[CurlyEpsilon]c - \[CurlyEpsilon]n) -
00991 As2*E0c*(\[CurlyEpsilon]c + \[CurlyEpsilon]n)) +
00992 Sqrt(3)*
00993 Sqrt(k*
00994 Power(\[CurlyEpsilon]c1,
00995 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
00996 Power(-2*As2*ch*E0c*\[CurlyEpsilon]c +
00997 d*(-N0 +
00998 E0c*(As1*(-\[CurlyEpsilon]c + \
00999 \[CurlyEpsilon]n) + As2*(\[CurlyEpsilon]c + \[CurlyEpsilon]n))), 2) -
01000 2*(As2*ch + As1*d)*
01001 E0c*(b*Power(d, 2)*fc*
01002 Power(\[CurlyEpsilon]c + \
01003 \[CurlyEpsilon]n, 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
01004 9*k)*\[CurlyEpsilon]c1 +
01005 4*(-1 + k)*\[CurlyEpsilon]n) +
01006 6*k*\[CurlyEpsilon]c*
01007 Power(\[CurlyEpsilon]c1,
01008 2)*(As2*ch*E0c*\[CurlyEpsilon]c +
01009 d*(N0 - E0c*(As1*\[CurlyEpsilon]n +
01010 As2*(\[CurlyEpsilon]c + \
01011 \[CurlyEpsilon]n)))))))))/(6.*d*(As2*ch + As1*d)*E0c*k*
01012 Power(\[CurlyEpsilon]c1, 2))) - (b*d*fc*
01013 Power(\[CurlyEpsilon]c + \[CurlyEpsilon]n,
01014 2)*(2*d*(\[CurlyEpsilon]c + \[CurlyEpsilon]n)*((-1 +
01015
01016 k)*\[CurlyEpsilon]c + (2 -
01017 3*k)*\[CurlyEpsilon]c1 + (-1 +
01018 k)*\[CurlyEpsilon]n) -
01019 h*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
01020 9*k)*\[CurlyEpsilon]c1 +
01021 4*(-1 +
01022 k)*\[CurlyEpsilon]n)*(\[CurlyEpsilon]c - (6*As2*
01023 ch*E0c*k*\[CurlyEpsilon]c*
01024 Power(\[CurlyEpsilon]c1, 2) +
01025 3*d*k*Power(\[CurlyEpsilon]c1,
01026 2)*(N0 +
01027 As1*E0c*(\[CurlyEpsilon]c - \
01028 \[CurlyEpsilon]n) - As2*E0c*(\[CurlyEpsilon]c + \[CurlyEpsilon]n)) +
01029 Sqrt(3)*
01030 Sqrt(k*
01031 Power(\[CurlyEpsilon]c1,
01032 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
01033 Power(-2*As2*ch*E0c*\[CurlyEpsilon]c +
01034 d*(-N0 +
01035 E0c*(As1*(-\[CurlyEpsilon]c + \
01036 \[CurlyEpsilon]n) + As2*(\[CurlyEpsilon]c + \[CurlyEpsilon]n))), 2) -
01037 2*(As2*ch + As1*d)*
01038 E0c*(b*Power(d, 2)*fc*
01039 Power(\[CurlyEpsilon]c + \
01040 \[CurlyEpsilon]n, 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
01041 9*k)*\[CurlyEpsilon]c1 +
01042 4*(-1 + k)*\[CurlyEpsilon]n) +
01043 6*k*\[CurlyEpsilon]c*
01044 Power(\[CurlyEpsilon]c1,
01045 2)*(As2*ch*E0c*\[CurlyEpsilon]c +
01046 d*(N0 - E0c*(As1*\[CurlyEpsilon]n +
01047 As2*(\[CurlyEpsilon]c + \
01048 \[CurlyEpsilon]n))))))))/(6.*(As2*ch + As1*d)*E0c*k*
01049 Power(\[CurlyEpsilon]c1, 2)))))/(k*
01050 Power(\[CurlyEpsilon]c1, 2)*
01051 Power(\[CurlyEpsilon]c - (6*As2*ch*E0c*k*\[CurlyEpsilon]c*
01052 Power(\[CurlyEpsilon]c1, 2) +
01053 3*d*k*Power(\[CurlyEpsilon]c1,
01054 2)*(N0 +
01055 As1*E0c*(\[CurlyEpsilon]c - \[CurlyEpsilon]n) -
01056 As2*E0c*(\[CurlyEpsilon]c + \[CurlyEpsilon]n)) +
01057 Sqrt(3)*
01058 Sqrt(k*
01059 Power(\[CurlyEpsilon]c1,
01060 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
01061 Power(-2*As2*ch*E0c*\[CurlyEpsilon]c +
01062 d*(-N0 +
01063 E0c*(As1*(-\[CurlyEpsilon]c + \
01064 \[CurlyEpsilon]n) + As2*(\[CurlyEpsilon]c + \[CurlyEpsilon]n))), 2) -
01065 2*(As2*ch + As1*d)*
01066 E0c*(b*Power(d, 2)*fc*
01067 Power(\[CurlyEpsilon]c + \
01068 \[CurlyEpsilon]n, 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
01069 9*k)*\[CurlyEpsilon]c1 +
01070 4*(-1 + k)*\[CurlyEpsilon]n) +
01071 6*k*\[CurlyEpsilon]c*
01072 Power(\[CurlyEpsilon]c1,
01073 2)*(As2*ch*E0c*\[CurlyEpsilon]c +
01074 d*(N0 - E0c*(As1*\[CurlyEpsilon]n +
01075 As2*(\[CurlyEpsilon]c + \
01076 \[CurlyEpsilon]n))))))))/(6.*(As2*ch + As1*d)*E0c*k*
01077 Power(\[CurlyEpsilon]c1, 2)), 2)))/12.
01078
01079 Null
01080
01081 ac1 = (-(ch*E0c*\[CurlyEpsilon]c1)/2. +
01082 d*(fy + (E0c*\[CurlyEpsilon]c1)/2. + E0c*\[CurlyEpsilon]n))/(ch*
01083 E0c) + (Sqrt(3)*b*fc*h*(-1 + k)*
01084 Power(\[CurlyEpsilon]c1,
01085 4)*(Power(b, 2)*Power(fc, 2)*Power(h, 4)*Power(2 - 3*k, 2) +
01086 4*Power(E0c,
01087 2)*(Power(As2,
01088 2)*(3*Power(ch, 2) - 3*ch*h + Power(h, 2)) +
01089 Power(As1, 2)*(3*Power(d, 2) - 3*d*h + Power(h, 2)) +
01090 As1*As2*(6*ch*d - 3*ch*h - 3*d*h + 2*Power(h, 2)))*
01091 Power(k, 2)*Power(\[CurlyEpsilon]c1, 2) -
01092 2*b*fc*Power(h, 3)*
01093 k*(4*(-1 + k)*N0 - (As1 + As2)*
01094 E0c*(-2 + 3*k)*\[CurlyEpsilon]c1))*
01095 Sqrt(Power(d,
01096 2)*(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*Power(k, 2)*
01097 Power(\[CurlyEpsilon]c1, 4) +
01098 Power(b, 2)*Power(fc, 2)*
01099 Power(h,
01100 4)*((-4 + 7*k)*\[CurlyEpsilon]c1 -
01101 4*(-1 + k)*\[CurlyEpsilon]n)*((-4 +
01102 5*k)*\[CurlyEpsilon]c1 +
01103 4*(-1 + k)*\[CurlyEpsilon]n) +
01104 4*b*fc*Power(h, 2)*k*
01105 Power(\[CurlyEpsilon]c1,
01106 2)*(3*(As2*ch + As1*d)*
01107 E0c*(k*(\[CurlyEpsilon]c1 - 4*\[CurlyEpsilon]n) +
01108 4*\[CurlyEpsilon]n) +
01109 8*h*(-1 +
01110 k)*(-N0 + (As1 + As2)*
01111 E0c*(\[CurlyEpsilon]c1/
01112 2. + \[CurlyEpsilon]n))))))/
01113 Power(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*Power(k, 2)*
01114 Power(\[CurlyEpsilon]c1, 4) +
01115 Power(b, 2)*Power(fc, 2)*
01116 Power(h,
01117 4)*((16 - 48*k + 35*Power(k, 2))*Power(\[CurlyEpsilon]c1, 2) +
01118 8*(-1 + k)*k*\[CurlyEpsilon]c1*\[CurlyEpsilon]n -
01119 16*Power(-1 + k, 2)*Power(\[CurlyEpsilon]n, 2)) +
01120 4*b*fc*Power(h, 2)*k*
01121 Power(\[CurlyEpsilon]c1,
01122 2)*(3*(As2*ch + As1*d)*
01123 E0c*(k*(\[CurlyEpsilon]c1 - 4*\[CurlyEpsilon]n) +
01124 4*\[CurlyEpsilon]n) -
01125 4*h*(-1 +
01126 k)*(2*N0 - (As1 + As2)*
01127 E0c*(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n))),
01128 2) + (6*As2*ch*d*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
01129 6*As1*Power(d, 2)*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
01130 b*fc*Power(h,
01131 2)*(4*h*(-1 + k)*\[CurlyEpsilon]c1 +
01132 3*d*(k*\[CurlyEpsilon]c1 + 4*\[CurlyEpsilon]n -
01133 4*k*\[CurlyEpsilon]n)) -
01134 Sqrt(3)*Sqrt(Power(d,
01135 2)*(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*Power(k, 2)*
01136 Power(\[CurlyEpsilon]c1, 4) +
01137 Power(b, 2)*Power(fc, 2)*
01138 Power(h,
01139 4)*((-4 + 5*k)*\[CurlyEpsilon]c1 +
01140 4*(-1 +
01141 k)*\[CurlyEpsilon]n)*(-4*\[CurlyEpsilon]c1 +
01142 7*k*\[CurlyEpsilon]c1 + 4*\[CurlyEpsilon]n -
01143 4*k*\[CurlyEpsilon]n) +
01144 4*b*fc*Power(h, 2)*k*
01145 Power(\[CurlyEpsilon]c1,
01146 2)*(3*(As2*ch + As1*d)*
01147 E0c*(k*\[CurlyEpsilon]c1 + 4*\[CurlyEpsilon]n -
01148 4*k*\[CurlyEpsilon]n) +
01149 8*h*(-1 +
01150 k)*(-N0 + (As1 + As2)*
01151 E0c*(\[CurlyEpsilon]c1/
01152 2. + \[CurlyEpsilon]n))))))/(8.*b*fc*
01153 Power(h,
01154 3)*(-1 + k)) - (\[CurlyEpsilon]c1*(-1 +
01155 d/ch - (3*d -
01156 2*h + (Sqrt(3)*(2*
01157 E0c*(-3*As2*ch - 3*As1*d + 2*As1*h + 2*As2*h)*
01158 k*Power(\[CurlyEpsilon]c1, 2) +
01159 b*fc*Power(h,
01160 2)*(k*(\[CurlyEpsilon]c1 -
01161 4*\[CurlyEpsilon]n) +
01162 4*\[CurlyEpsilon]n))*
01163 Sqrt(Power(d,
01164 2)*(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*
01165 Power(k, 2)*Power(\[CurlyEpsilon]c1, 4) +
01166 Power(b, 2)*Power(fc, 2)*
01167 Power(h,
01168 4)*((-4 + 7*k)*\[CurlyEpsilon]c1 -
01169 4*(-1 + k)*\[CurlyEpsilon]n)*((-4 +
01170 5*k)*\[CurlyEpsilon]c1 +
01171 4*(-1 + k)*\[CurlyEpsilon]n) +
01172 4*b*fc*Power(h, 2)*k*
01173 Power(\[CurlyEpsilon]c1,
01174 2)*(3*(As2*ch + As1*d)*
01175 E0c*(k*(\[CurlyEpsilon]c1 -
01176 4*\[CurlyEpsilon]n) +
01177 4*\[CurlyEpsilon]n) +
01178 8*h*(-1 +
01179 k)*(-N0 + (As1 + As2)*
01180 E0c*(\[CurlyEpsilon]c1/
01181 2. + \[CurlyEpsilon]n))))))/(12*
01182 Power(As2*ch + As1*d, 2)*Power(E0c, 2)*
01183 Power(k, 2)*Power(\[CurlyEpsilon]c1, 4) +
01184 Power(b, 2)*Power(fc, 2)*
01185 Power(h,
01186 4)*((16 - 48*k + 35*Power(k, 2))*
01187 Power(\[CurlyEpsilon]c1, 2) +
01188 8*(-1 + k)*
01189 k*\[CurlyEpsilon]c1*\[CurlyEpsilon]n -
01190 16*Power(-1 + k, 2)*
01191 Power(\[CurlyEpsilon]n, 2)) +
01192 4*b*fc*Power(h, 2)*k*
01193 Power(\[CurlyEpsilon]c1,
01194 2)*(3*(As2*ch + As1*d)*
01195 E0c*(k*(\[CurlyEpsilon]c1 -
01196 4*\[CurlyEpsilon]n) +
01197 4*\[CurlyEpsilon]n) -
01198 4*h*(-1 +
01199 k)*(2*N0 - (As1 + As2)*
01200 E0c*(\[CurlyEpsilon]c1 +
01201 2*\[CurlyEpsilon]n)))))/(2.*h)))/2.
01202
01203 ac2 = -1 +
01204 d/ch - (4*Sqrt(3)*b*fc*h*(-1 + k)*
01205 Power(\[CurlyEpsilon]c1,
01206 3)*(Power(b, 2)*Power(fc, 2)*Power(h, 4)*Power(2 - 3*k, 2) +
01207 4*Power(E0c,
01208 2)*(Power(As2,
01209 2)*(3*Power(ch, 2) - 3*ch*h + Power(h, 2)) +
01210 Power(As1, 2)*(3*Power(d, 2) - 3*d*h + Power(h, 2)) +
01211 As1*As2*(6*ch*d - 3*ch*h - 3*d*h + 2*Power(h, 2)))*
01212 Power(k, 2)*Power(\[CurlyEpsilon]c1, 2) -
01213 2*b*fc*Power(h, 3)*
01214 k*(4*(-1 + k)*N0 - (As1 + As2)*
01215 E0c*(-2 + 3*k)*\[CurlyEpsilon]c1))*
01216 Sqrt(Power(d,
01217 2)*(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*Power(k, 2)*
01218 Power(\[CurlyEpsilon]c1, 4) +
01219 Power(b, 2)*Power(fc, 2)*
01220 Power(h,
01221 4)*((-4 + 7*k)*\[CurlyEpsilon]c1 -
01222 4*(-1 + k)*\[CurlyEpsilon]n)*((-4 +
01223 5*k)*\[CurlyEpsilon]c1 +
01224 4*(-1 + k)*\[CurlyEpsilon]n) +
01225 4*b*fc*Power(h, 2)*k*
01226 Power(\[CurlyEpsilon]c1,
01227 2)*(3*(As2*ch + As1*d)*
01228 E0c*(k*(\[CurlyEpsilon]c1 - 4*\[CurlyEpsilon]n) +
01229 4*\[CurlyEpsilon]n) +
01230 8*h*(-1 +
01231 k)*(-N0 + (As1 + As2)*
01232 E0c*(\[CurlyEpsilon]c1/
01233 2. + \[CurlyEpsilon]n))))))/
01234 Power(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*Power(k, 2)*
01235 Power(\[CurlyEpsilon]c1, 4) +
01236 Power(b, 2)*Power(fc, 2)*
01237 Power(h,
01238 4)*((16 - 48*k + 35*Power(k, 2))*Power(\[CurlyEpsilon]c1, 2) +
01239 8*(-1 + k)*k*\[CurlyEpsilon]c1*\[CurlyEpsilon]n -
01240 16*Power(-1 + k, 2)*Power(\[CurlyEpsilon]n, 2)) +
01241 4*b*fc*Power(h, 2)*k*
01242 Power(\[CurlyEpsilon]c1,
01243 2)*(3*(As2*ch + As1*d)*
01244 E0c*(k*(\[CurlyEpsilon]c1 - 4*\[CurlyEpsilon]n) +
01245 4*\[CurlyEpsilon]n) -
01246 4*h*(-1 +
01247 k)*(2*N0 - (As1 + As2)*
01248 E0c*(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n))),
01249 2) - (3*d -
01250 2*h + (Sqrt(3)*(2*E0c*(-3*As2*ch - 3*As1*d + 2*As1*h + 2*As2*h)*k*
01251 Power(\[CurlyEpsilon]c1, 2) +
01252 b*fc*Power(h,
01253 2)*(k*(\[CurlyEpsilon]c1 - 4*\[CurlyEpsilon]n) +
01254 4*\[CurlyEpsilon]n))*
01255 Sqrt(Power(d,
01256 2)*(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*
01257 Power(k, 2)*Power(\[CurlyEpsilon]c1, 4) +
01258 Power(b, 2)*Power(fc, 2)*
01259 Power(h,
01260 4)*((-4 + 7*k)*\[CurlyEpsilon]c1 -
01261 4*(-1 + k)*\[CurlyEpsilon]n)*((-4 +
01262 5*k)*\[CurlyEpsilon]c1 +
01263 4*(-1 + k)*\[CurlyEpsilon]n) +
01264 4*b*fc*Power(h, 2)*k*
01265 Power(\[CurlyEpsilon]c1,
01266 2)*(3*(As2*ch + As1*d)*
01267 E0c*(k*(\[CurlyEpsilon]c1 -
01268 4*\[CurlyEpsilon]n) +
01269 4*\[CurlyEpsilon]n) +
01270 8*h*(-1 +
01271 k)*(-N0 + (As1 + As2)*
01272 E0c*(\[CurlyEpsilon]c1/
01273 2. + \[CurlyEpsilon]n))))))/(12*
01274 Power(As2*ch + As1*d, 2)*Power(E0c, 2)*Power(k, 2)*
01275 Power(\[CurlyEpsilon]c1, 4) +
01276 Power(b, 2)*Power(fc, 2)*
01277 Power(h,
01278 4)*((16 - 48*k + 35*Power(k, 2))*
01279 Power(\[CurlyEpsilon]c1, 2) +
01280 8*(-1 + k)*k*\[CurlyEpsilon]c1*\[CurlyEpsilon]n -
01281 16*Power(-1 + k, 2)*Power(\[CurlyEpsilon]n, 2)) +
01282 4*b*fc*Power(h, 2)*k*
01283 Power(\[CurlyEpsilon]c1,
01284 2)*(3*(As2*ch + As1*d)*
01285 E0c*(k*(\[CurlyEpsilon]c1 - 4*\[CurlyEpsilon]n) +
01286 4*\[CurlyEpsilon]n) -
01287 4*h*(-1 +
01288 k)*(2*N0 - (As1 + As2)*
01289 E0c*(\[CurlyEpsilon]c1 +
01290 2*\[CurlyEpsilon]n)))))/(2.*h)
01291
01292 ac3 = (4*Sqrt(3)*b*fc*h*(-1 + k)*
01293 Power(\[CurlyEpsilon]c1,
01294 2)*(Power(b, 2)*Power(fc, 2)*Power(h, 4)*Power(2 - 3*k, 2) +
01295 4*Power(E0c,
01296 2)*(Power(As2, 2)*(3*Power(ch, 2) - 3*ch*h + Power(h, 2)) +
01297 Power(As1, 2)*(3*Power(d, 2) - 3*d*h + Power(h, 2)) +
01298 As1*As2*(6*ch*d - 3*ch*h - 3*d*h + 2*Power(h, 2)))*
01299 Power(k, 2)*Power(\[CurlyEpsilon]c1, 2) -
01300 2*b*fc*Power(h, 3)*
01301 k*(4*(-1 + k)*N0 - (As1 + As2)*
01302 E0c*(-2 + 3*k)*\[CurlyEpsilon]c1))*
01303 Sqrt(Power(d,
01304 2)*(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*Power(k, 2)*
01305 Power(\[CurlyEpsilon]c1, 4) +
01306 Power(b, 2)*Power(fc, 2)*
01307 Power(h,
01308 4)*((-4 + 7*k)*\[CurlyEpsilon]c1 -
01309 4*(-1 + k)*\[CurlyEpsilon]n)*((-4 +
01310 5*k)*\[CurlyEpsilon]c1 +
01311 4*(-1 + k)*\[CurlyEpsilon]n) +
01312 4*b*fc*Power(h, 2)*k*
01313 Power(\[CurlyEpsilon]c1,
01314 2)*(3*(As2*ch + As1*d)*
01315 E0c*(k*(\[CurlyEpsilon]c1 - 4*\[CurlyEpsilon]n) +
01316 4*\[CurlyEpsilon]n) +
01317 8*h*(-1 +
01318 k)*(-N0 + (As1 + As2)*
01319 E0c*(\[CurlyEpsilon]c1/
01320 2. + \[CurlyEpsilon]n))))))/
01321 Power(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*Power(k, 2)*
01322 Power(\[CurlyEpsilon]c1, 4) +
01323 Power(b, 2)*Power(fc, 2)*
01324 Power(h,
01325 4)*((16 - 48*k + 35*Power(k, 2))*Power(\[CurlyEpsilon]c1, 2) +
01326 8*(-1 + k)*k*\[CurlyEpsilon]c1*\[CurlyEpsilon]n -
01327 16*Power(-1 + k, 2)*Power(\[CurlyEpsilon]n, 2)) +
01328 4*b*fc*Power(h, 2)*k*
01329 Power(\[CurlyEpsilon]c1,
01330 2)*(3*(As2*ch + As1*d)*
01331 E0c*(k*(\[CurlyEpsilon]c1 - 4*\[CurlyEpsilon]n) +
01332 4*\[CurlyEpsilon]n) -
01333 4*h*(-1 +
01334 k)*(2*N0 - (As1 + As2)*
01335 E0c*(\[CurlyEpsilon]c1 + 2*\[CurlyEpsilon]n))), 2)
01336
01337 \[CurlyEpsilon]c = (-ac2 + Sqrt(Power(ac2, 2) - 4*ac1*ac3))/(2.*ac3)
01338
01339 \[CurlyEpsilon]chr4 = \[CurlyEpsilon]c
01340
01341 \[CurlyEpsilon]cmax1 = \[CurlyEpsilon]cm - \[CurlyEpsilon]n
01342
01343 If(Power(E0c, 2)*
01344 Power(6*b*fc*Power(h, 2)*\[CurlyEpsilon]c1 -
01345 9*b*fc*Power(h, 2)*k*\[CurlyEpsilon]c1 +
01346 6*As1*d*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
01347 6*As2*ch*E0cn*k*Power(\[CurlyEpsilon]c1, 2) -
01348 6*As1*E0c*h*k*Power(\[CurlyEpsilon]c1, 2) -
01349 6*As2*E0cn*h*k*Power(\[CurlyEpsilon]c1, 2) -
01350 8*b*fc*Power(h, 2)*\[CurlyEpsilon]n +
01351 8*b*fc*Power(h, 2)*k*\[CurlyEpsilon]n, 2) -
01352 4*b*E0c*fc*
01353 Power(h,
01354 2)*(-4 + 4*k)*(6*As2*E0c*fy*h*k*Power(\[CurlyEpsilon]c1, 2) -
01355 6*As2*E0cn*fy*h*k*Power(\[CurlyEpsilon]c1, 2) +
01356 6*E0c*h*k*N0*Power(\[CurlyEpsilon]c1, 2) +
01357 6*b*E0c*fc*Power(h, 2)*\[CurlyEpsilon]c1*\[CurlyEpsilon]n -
01358 9*b*E0c*fc*Power(h, 2)*k*\[CurlyEpsilon]c1*\[CurlyEpsilon]n +
01359 6*As1*d*Power(E0c, 2)*k*
01360 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]n +
01361 6*As2*ch*E0c*E0cn*k*
01362 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]n -
01363 6*As1*Power(E0c, 2)*h*k*
01364 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]n -
01365 6*As2*E0c*E0cn*h*k*
01366 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]n -
01367 4*b*E0c*fc*Power(h, 2)*Power(\[CurlyEpsilon]n, 2) +
01368 4*b*E0c*fc*Power(h, 2)*k*Power(\[CurlyEpsilon]n, 2)) <
01369 0, \[CurlyEpsilon]chr4b = -1, \[CurlyEpsilon]chr4b =
01370 1/(2.*b*E0c*fc*
01371 Power(h,
01372 2)*(-4 + 4*k))*(-E0c*(6*b*fc*Power(h, 2)*\[CurlyEpsilon]c1 -
01373 9*b*fc*Power(h, 2)*k*\[CurlyEpsilon]c1 +
01374 6*As1*d*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
01375 6*As2*ch*E0cn*k*Power(\[CurlyEpsilon]c1, 2) -
01376 6*As1*E0c*h*k*Power(\[CurlyEpsilon]c1, 2) -
01377 6*As2*E0cn*h*k*Power(\[CurlyEpsilon]c1, 2) -
01378 8*b*fc*Power(h, 2)*\[CurlyEpsilon]n +
01379 8*b*fc*Power(h, 2)*k*\[CurlyEpsilon]n) -
01380 Sqrt(Power(E0c, 2)*
01381 Power(6*b*fc*Power(h, 2)*\[CurlyEpsilon]c1 -
01382 9*b*fc*Power(h, 2)*k*\[CurlyEpsilon]c1 +
01383 6*As1*d*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
01384 6*As2*ch*E0cn*k*Power(\[CurlyEpsilon]c1, 2) -
01385 6*As1*E0c*h*k*Power(\[CurlyEpsilon]c1, 2) -
01386 6*As2*E0cn*h*k*Power(\[CurlyEpsilon]c1, 2) -
01387 8*b*fc*Power(h, 2)*\[CurlyEpsilon]n +
01388 8*b*fc*Power(h, 2)*k*\[CurlyEpsilon]n, 2) -
01389 4*b*E0c*fc*
01390 Power(h,
01391 2)*(-4 +
01392 4*k)*(6*As2*E0c*fy*h*k*Power(\[CurlyEpsilon]c1, 2) -
01393 6*As2*E0cn*fy*h*k*Power(\[CurlyEpsilon]c1, 2) +
01394 6*E0c*h*k*N0*Power(\[CurlyEpsilon]c1, 2) +
01395 6*b*E0c*fc*
01396 Power(h, 2)*\[CurlyEpsilon]c1*\[CurlyEpsilon]n -
01397 9*b*E0c*fc*Power(h, 2)*
01398 k*\[CurlyEpsilon]c1*\[CurlyEpsilon]n +
01399 6*As1*d*Power(E0c, 2)*k*
01400 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]n +
01401 6*As2*ch*E0c*E0cn*k*
01402 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]n -
01403 6*As1*Power(E0c, 2)*h*k*
01404 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]n -
01405 6*As2*E0c*E0cn*h*k*
01406 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]n -
01407 4*b*E0c*fc*Power(h, 2)*Power(\[CurlyEpsilon]n, 2) +
01408 4*b*E0c*fc*Power(h, 2)*k*
01409 Power(\[CurlyEpsilon]n, 2)))))
01410
01411 If(\[CurlyEpsilon]cmax1 < \[CurlyEpsilon]chr4b, \[CurlyEpsilon]chrk1a = \
01412 \[CurlyEpsilon]chr4b, \[CurlyEpsilon]chrk1a = \[CurlyEpsilon]cmax1)
01413
01414 mhr4 = ((12*b*d*fc*Power(h, 2)*\[CurlyEpsilon]c -
01415 12*b*d*fc*Power(h, 2)*k*\[CurlyEpsilon]c -
01416 6*b*d*fc*Power(h, 2)*\[CurlyEpsilon]c1 +
01417 9*b*d*fc*Power(h, 2)*k*\[CurlyEpsilon]c1 +
01418 6*As2*ch*d*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
01419 6*As1*Power(d, 2)*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
01420 12*b*d*fc*Power(h, 2)*\[CurlyEpsilon]n -
01421 12*b*d*fc*Power(h, 2)*k*\[CurlyEpsilon]n -
01422 Sqrt(3)*Sqrt(Power(d,
01423 2)*(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*
01424 Power(k, 2)*Power(\[CurlyEpsilon]c1, 4) -
01425 Power(b, 2)*Power(fc, 2)*
01426 Power(h,
01427 4)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
01428 9*k)*\[CurlyEpsilon]c1 +
01429 4*(-1 + k)*\[CurlyEpsilon]n)*(4*(-1 +
01430 k)*\[CurlyEpsilon]c + (-2 +
01431 3*k)*\[CurlyEpsilon]c1 +
01432 4*(-1 + k)*\[CurlyEpsilon]n) +
01433 4*b*fc*Power(h, 2)*k*
01434 Power(\[CurlyEpsilon]c1,
01435 2)*(3*(As2*ch + As1*d)*
01436 E0c*(-4*(-1 + k)*\[CurlyEpsilon]c + (-2 +
01437 3*k)*\[CurlyEpsilon]c1 -
01438 4*(-1 + k)*\[CurlyEpsilon]n) +
01439 8*h*(-1 +
01440 k)*(-N0 + (As1 + As2)*
01441 E0c*(\[CurlyEpsilon]c + \
01442 \[CurlyEpsilon]n))))))*(4*b*d*fc*Power(h, 2)*\[CurlyEpsilon]c -
01443 4*b*d*fc*Power(h, 2)*k*\[CurlyEpsilon]c -
01444 2*b*d*fc*Power(h, 2)*\[CurlyEpsilon]c1 +
01445 3*b*d*fc*Power(h, 2)*k*\[CurlyEpsilon]c1 -
01446 6*As2*ch*d*E0c*k*Power(\[CurlyEpsilon]c1, 2) -
01447 6*As1*Power(d, 2)*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
01448 4*b*d*fc*Power(h, 2)*\[CurlyEpsilon]n -
01449 4*b*d*fc*Power(h, 2)*k*\[CurlyEpsilon]n +
01450 Sqrt(3)*Sqrt(Power(d,
01451 2)*(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*
01452 Power(k, 2)*Power(\[CurlyEpsilon]c1, 4) -
01453 Power(b, 2)*Power(fc, 2)*
01454 Power(h,
01455 4)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
01456 9*k)*\[CurlyEpsilon]c1 +
01457 4*(-1 + k)*\[CurlyEpsilon]n)*(4*(-1 +
01458 k)*\[CurlyEpsilon]c + (-2 +
01459 3*k)*\[CurlyEpsilon]c1 +
01460 4*(-1 + k)*\[CurlyEpsilon]n) +
01461 4*b*fc*Power(h, 2)*k*
01462 Power(\[CurlyEpsilon]c1,
01463 2)*(3*(As2*ch + As1*d)*
01464 E0c*(-4*(-1 + k)*\[CurlyEpsilon]c + (-2 +
01465 3*k)*\[CurlyEpsilon]c1 -
01466 4*(-1 + k)*\[CurlyEpsilon]n) +
01467 8*h*(-1 +
01468 k)*(-N0 + (As1 + As2)*
01469 E0c*(\[CurlyEpsilon]c + \
01470 \[CurlyEpsilon]n)))))))/(384.*b*Power(d, 2)*fc*Power(h, 2)*(-1 + k)*k*
01471 Power(\[CurlyEpsilon]c1, 2)) + (As1*
01472 E0c*(-2*cd +
01473 h)*(\[CurlyEpsilon]n + (6*d*(As2*ch + As1*d)*E0c*k*
01474 Power(\[CurlyEpsilon]c1, 2) +
01475 b*fc*Power(h,
01476 2)*(8*h*(-1 + k)*\[CurlyEpsilon]c -
01477 3*d*(4*(-1 + k)*\[CurlyEpsilon]c + (2 -
01478 3*k)*\[CurlyEpsilon]c1 +
01479 4*(-1 + k)*\[CurlyEpsilon]n)) -
01480 Sqrt(3)*
01481 Sqrt(Power(d,
01482 2)*(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*
01483 Power(k, 2)*Power(\[CurlyEpsilon]c1, 4) -
01484 Power(b, 2)*Power(fc, 2)*
01485 Power(h,
01486 4)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
01487 9*k)*\[CurlyEpsilon]c1 +
01488 4*(-1 + k)*\[CurlyEpsilon]n)*(4*(-1 +
01489 k)*\[CurlyEpsilon]c + (-2 +
01490 3*k)*\[CurlyEpsilon]c1 +
01491 4*(-1 + k)*\[CurlyEpsilon]n) +
01492 4*b*fc*Power(h, 2)*k*
01493 Power(\[CurlyEpsilon]c1,
01494 2)*(3*(As2*ch + As1*d)*
01495 E0c*(-4*(-1 +
01496 k)*\[CurlyEpsilon]c + (-2 +
01497 3*k)*\[CurlyEpsilon]c1 -
01498 4*(-1 + k)*\[CurlyEpsilon]n) +
01499 8*h*(-1 +
01500 k)*(-N0 + (As1 + As2)*
01501 E0c*(\[CurlyEpsilon]c + \
01502 \[CurlyEpsilon]n))))))/(8.*b*fc*Power(h, 3)*(-1 + k))))/
01503 2. - (As2*
01504 E0c*(-2*ch +
01505 h)*(\[CurlyEpsilon]c - (ch*\[CurlyEpsilon]c)/
01506 d + \[CurlyEpsilon]n + (ch*(6*d*(As2*ch + As1*d)*E0c*k*
01507 Power(\[CurlyEpsilon]c1, 2) +
01508 b*fc*Power(h,
01509 2)*(8*h*(-1 + k)*\[CurlyEpsilon]c -
01510 3*d*(4*(-1 + k)*\[CurlyEpsilon]c + (2 -
01511 3*k)*\[CurlyEpsilon]c1 +
01512 4*(-1 + k)*\[CurlyEpsilon]n)) -
01513 Sqrt(3)*
01514 Sqrt(Power(d,
01515 2)*(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*
01516 Power(k, 2)*Power(\[CurlyEpsilon]c1, 4) -
01517 Power(b, 2)*Power(fc, 2)*
01518 Power(h,
01519 4)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
01520 9*k)*\[CurlyEpsilon]c1 +
01521 4*(-1 + k)*\[CurlyEpsilon]n)*(4*(-1 +
01522 k)*\[CurlyEpsilon]c + (-2 +
01523 3*k)*\[CurlyEpsilon]c1 +
01524 4*(-1 + k)*\[CurlyEpsilon]n) +
01525 4*b*fc*Power(h, 2)*k*
01526 Power(\[CurlyEpsilon]c1,
01527 2)*(3*(As2*ch + As1*d)*
01528 E0c*(-4*(-1 +
01529 k)*\[CurlyEpsilon]c + (-2 +
01530 3*k)*\[CurlyEpsilon]c1 -
01531 4*(-1 + k)*\[CurlyEpsilon]n) +
01532 8*h*(-1 +
01533 k)*(-N0 + (As1 + As2)*
01534 E0c*(\[CurlyEpsilon]c + \
01535 \[CurlyEpsilon]n)))))))/(8.*b*d*fc*Power(h, 3)*(-1 + k))))/2.
01536
01537 If(\[CurlyEpsilon]chr4b < 0 && \[CurlyEpsilon]chr4b != -1,
01538 mhr4b = 1/(384.*b*Power(d, 2)*Power(E0c, 2)*fc*Power(h, 2)*(-1 + k)*k*
01539 Power(\[CurlyEpsilon]c1,
01540 2))*((-6*b*d*E0c*fc*Power(h, 2)*\[CurlyEpsilon]c1 +
01541 9*b*d*E0c*fc*Power(h, 2)*k*\[CurlyEpsilon]c1 +
01542 6*As1*Power(d, 2)*Power(E0c, 2)*k*
01543 Power(\[CurlyEpsilon]c1, 2) +
01544 6*As2*ch*d*E0c*E0cn*k*Power(\[CurlyEpsilon]c1, 2) +
01545 12*b*d*E0c*fc*Power(h, 2)*\[CurlyEpsilon]chr4b -
01546 12*b*d*E0c*fc*Power(h, 2)*k*\[CurlyEpsilon]chr4b +
01547 12*b*d*E0c*fc*Power(h, 2)*\[CurlyEpsilon]n -
01548 12*b*d*E0c*fc*Power(h, 2)*k*\[CurlyEpsilon]n -
01549 Sqrt(E0c*(E0c*
01550 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
01551 Power(\[CurlyEpsilon]c1, 2) +
01552 b*fc*Power(h,
01553 2)*(8*h*(-1 + k)*\[CurlyEpsilon]chr4b -
01554 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
01555 4*(-1 + k)*\[CurlyEpsilon]chr4b +
01556 4*(-1 + k)*\[CurlyEpsilon]n)), 2) +
01557 16*b*fc*
01558 Power(h,
01559 3)*(-1 +
01560 k)*(b*E0c*fc*
01561 h*(-4*Power(h, 2)*(-1 + k)*
01562 Power(\[CurlyEpsilon]chr4b, 2) -
01563 6*Power(d,
01564 2)*(\[CurlyEpsilon]chr4b + \
01565 \[CurlyEpsilon]n)*((2 - 3*k)*\[CurlyEpsilon]c1 +
01566 2*(-1 + k)*\[CurlyEpsilon]chr4b +
01567 2*(-1 + k)*\[CurlyEpsilon]n) +
01568 3*d*h*\[CurlyEpsilon]chr4b*((2 -
01569 3*k)*\[CurlyEpsilon]c1 +
01570 4*(-1 + k)*\[CurlyEpsilon]chr4b +
01571 4*(-1 + k)*\[CurlyEpsilon]n)) +
01572 6*d*k*
01573 Power(\[CurlyEpsilon]c1,
01574 2)*(d*
01575 E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
01576 As2*(-ch*E0c*
01577 E0cn*\[CurlyEpsilon]chr4b +
01578 d*(E0cn*fy +
01579 E0c*(-fy +
01580 E0cn*(\[CurlyEpsilon]chr4b + \
01581 \[CurlyEpsilon]n)))))))))*(-2*b*d*E0c*fc*Power(h, 2)*\[CurlyEpsilon]c1 +
01582 3*b*d*E0c*fc*Power(h, 2)*k*\[CurlyEpsilon]c1 -
01583 6*As1*Power(d, 2)*Power(E0c, 2)*k*
01584 Power(\[CurlyEpsilon]c1, 2) -
01585 6*As2*ch*d*E0c*E0cn*k*Power(\[CurlyEpsilon]c1, 2) +
01586 4*b*d*E0c*fc*Power(h, 2)*\[CurlyEpsilon]chr4b -
01587 4*b*d*E0c*fc*Power(h, 2)*k*\[CurlyEpsilon]chr4b +
01588 4*b*d*E0c*fc*Power(h, 2)*\[CurlyEpsilon]n -
01589 4*b*d*E0c*fc*Power(h, 2)*k*\[CurlyEpsilon]n +
01590 Sqrt(E0c*(E0c*
01591 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
01592 Power(\[CurlyEpsilon]c1, 2) +
01593 b*fc*Power(h,
01594 2)*(8*h*(-1 + k)*\[CurlyEpsilon]chr4b -
01595 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
01596 4*(-1 + k)*\[CurlyEpsilon]chr4b +
01597 4*(-1 + k)*\[CurlyEpsilon]n)), 2) +
01598 16*b*fc*
01599 Power(h,
01600 3)*(-1 +
01601 k)*(b*E0c*fc*
01602 h*(-4*Power(h, 2)*(-1 + k)*
01603 Power(\[CurlyEpsilon]chr4b, 2) -
01604 6*Power(d,
01605 2)*(\[CurlyEpsilon]chr4b + \
01606 \[CurlyEpsilon]n)*((2 - 3*k)*\[CurlyEpsilon]c1 +
01607 2*(-1 + k)*\[CurlyEpsilon]chr4b +
01608 2*(-1 + k)*\[CurlyEpsilon]n) +
01609 3*d*h*\[CurlyEpsilon]chr4b*((2 -
01610 3*k)*\[CurlyEpsilon]c1 +
01611 4*(-1 + k)*\[CurlyEpsilon]chr4b +
01612 4*(-1 + k)*\[CurlyEpsilon]n)) +
01613 6*d*k*
01614 Power(\[CurlyEpsilon]c1,
01615 2)*(d*
01616 E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
01617 As2*(-ch*E0c*
01618 E0cn*\[CurlyEpsilon]chr4b +
01619 d*(E0cn*fy +
01620 E0c*(-fy +
01621 E0cn*(\[CurlyEpsilon]chr4b + \
01622 \[CurlyEpsilon]n)))))))))) +
01623 0.5*As1*E0c*(-2*cd + h)*(\[CurlyEpsilon]n +
01624 1/(8.*b*E0c*fc*Power(h, 3)*(-1 + k))*(6*d*
01625 E0c*(As1*d*E0c + As2*ch*E0cn)*k*
01626 Power(\[CurlyEpsilon]c1, 2) +
01627 b*E0c*fc*
01628 Power(h,
01629 2)*(8*h*(-1 + k)*\[CurlyEpsilon]chr4b -
01630 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
01631 4*(-1 + k)*\[CurlyEpsilon]chr4b +
01632 4*(-1 + k)*\[CurlyEpsilon]n)) -
01633 Sqrt(E0c*(E0c*
01634 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
01635 Power(\[CurlyEpsilon]c1, 2) +
01636 b*fc*Power(h,
01637 2)*(8*
01638 h*(-1 + k)*\[CurlyEpsilon]chr4b -
01639 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
01640 4*(-1 + k)*\[CurlyEpsilon]chr4b +
01641 4*(-1 + k)*\[CurlyEpsilon]n)), 2) +
01642 16*b*fc*
01643 Power(h,
01644 3)*(-1 +
01645 k)*(b*E0c*fc*
01646 h*(-4*Power(h, 2)*(-1 + k)*
01647 Power(\[CurlyEpsilon]chr4b, 2) -
01648 6*Power(d,
01649 2)*(\[CurlyEpsilon]chr4b + \
01650 \[CurlyEpsilon]n)*((2 - 3*k)*\[CurlyEpsilon]c1 +
01651 2*(-1 + k)*\[CurlyEpsilon]chr4b +
01652 2*(-1 + k)*\[CurlyEpsilon]n) +
01653 3*d*h*\[CurlyEpsilon]chr4b*((2 -
01654 3*k)*\[CurlyEpsilon]c1 +
01655 4*(-1 + k)*\[CurlyEpsilon]chr4b +
01656 4*(-1 + k)*\[CurlyEpsilon]n)) +
01657 6*d*k*
01658 Power(\[CurlyEpsilon]c1,
01659 2)*(d*
01660 E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
01661 As2*(-ch*E0c*
01662 E0cn*\[CurlyEpsilon]chr4b +
01663 d*(E0cn*fy + E0c*(-fy +
01664 E0cn*(\[CurlyEpsilon]chr4b + \
01665 \[CurlyEpsilon]n)))))))))) +
01666 0.5*As2*(-2*ch + h)*(fy -
01667 E0cn*(fy/E0c + \[CurlyEpsilon]chr4b - (ch*\[CurlyEpsilon]chr4b)/
01668 d + \[CurlyEpsilon]n +
01669 1/(8.*b*d*E0c*fc*
01670 Power(h,
01671 3)*(-1 + k))*(ch*(6*d*
01672 E0c*(As1*d*E0c + As2*ch*E0cn)*k*
01673 Power(\[CurlyEpsilon]c1, 2) +
01674 b*E0c*fc*
01675 Power(h,
01676 2)*(8*h*(-1 + k)*\[CurlyEpsilon]chr4b -
01677 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
01678 4*(-1 + k)*\[CurlyEpsilon]chr4b +
01679 4*(-1 + k)*\[CurlyEpsilon]n)) -
01680 Sqrt(E0c*(E0c*
01681 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
01682 Power(\[CurlyEpsilon]c1, 2) +
01683 b*fc*Power(h,
01684 2)*(8*h*(-1 +
01685 k)*\[CurlyEpsilon]chr4b -
01686 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
01687 4*(-1 + k)*\[CurlyEpsilon]chr4b +
01688 4*(-1 + k)*\[CurlyEpsilon]n)), 2) +
01689 16*b*fc*
01690 Power(h,
01691 3)*(-1 +
01692 k)*(b*E0c*fc*
01693 h*(-4*Power(h, 2)*(-1 + k)*
01694 Power(\[CurlyEpsilon]chr4b, 2) -
01695 6*Power(d,
01696 2)*(\[CurlyEpsilon]chr4b + \
01697 \[CurlyEpsilon]n)*((2 - 3*k)*\[CurlyEpsilon]c1 + 2*(-1 +
01698 k)*\[CurlyEpsilon]chr4b +
01699 2*(-1 + k)*\[CurlyEpsilon]n) +
01700 3*d*h*\[CurlyEpsilon]chr4b*((2 -
01701 3*k)*\[CurlyEpsilon]c1 +
01702 4*(-1 + k)*\[CurlyEpsilon]chr4b +
01703 4*(-1 + k)*\[CurlyEpsilon]n)) +
01704 6*d*k*Power(\[CurlyEpsilon]c1,
01705 2)*(d*E0c*(-N0 + As1*
01706 E0c*\[CurlyEpsilon]n) +
01707 As2*(-ch*E0c*
01708 E0cn*\[CurlyEpsilon]chr4b +
01709 d*(E0cn*fy + E0c*(-fy +
01710 E0cn*(\[CurlyEpsilon]chr4b + \
01711 \[CurlyEpsilon]n)))))))))))), mhr4b = 1000000000)
01712
01713 If(0 > E0c*(E0c*
01714 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
01715 Power(\[CurlyEpsilon]c1, 2) +
01716 b*fc*Power(h,
01717 2)*(8*h*(-1 + k)*\[CurlyEpsilon]cmax1 -
01718 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
01719 4*(-1 + k)*\[CurlyEpsilon]cmax1 +
01720 4*(-1 + k)*\[CurlyEpsilon]n)), 2) +
01721 16*b*fc*Power(h,
01722 3)*(-1 +
01723 k)*(b*E0c*fc*
01724 h*(-4*Power(h, 2)*(-1 + k)*
01725 Power(\[CurlyEpsilon]cmax1, 2) -
01726 6*Power(d,
01727 2)*(\[CurlyEpsilon]cmax1 + \[CurlyEpsilon]n)*((2 \
01728 - 3*k)*\[CurlyEpsilon]c1 + 2*(-1 + k)*\[CurlyEpsilon]cmax1 +
01729 2*(-1 + k)*\[CurlyEpsilon]n) +
01730 3*d*h*\[CurlyEpsilon]cmax1*((2 -
01731 3*k)*\[CurlyEpsilon]c1 +
01732 4*(-1 + k)*\[CurlyEpsilon]cmax1 +
01733 4*(-1 + k)*\[CurlyEpsilon]n)) +
01734 6*d*k*Power(\[CurlyEpsilon]c1,
01735 2)*(d*E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
01736 As2*(-(ch*E0c*E0cn*\[CurlyEpsilon]cmax1) +
01737 d*(E0cn*fy +
01738 E0c*(-fy +
01739 E0cn*(\[CurlyEpsilon]cmax1 + \
01740 \[CurlyEpsilon]n))))))), \[CurlyEpsilon]cmax1p =
01741 1/(4.*b*Sqrt(E0c)*fc*Power(h, 2)*(-1 + k))*(-2*\[CurlyEpsilon]c1*
01742 Sqrt(Power(b, 2)*E0c*Power(fc, 2)*Power(h, 4)*
01743 Power(2 - 3*k, 2) +
01744 4*E0c*(3*Power(As1*d*E0c + As2*ch*E0cn, 2) -
01745 3*(As1*E0c + As2*E0cn)*(As1*d*E0c + As2*ch*E0cn)*h +
01746 Power(As1*E0c + As2*E0cn, 2)*Power(h, 2))*
01747 Power(k, 2)*Power(\[CurlyEpsilon]c1, 2) +
01748 2*b*fc*Power(h, 3)*
01749 k*(-4*(-1 + k)*(As2*(E0c - E0cn)*fy + E0c*N0) +
01750 E0c*(As1*E0c + As2*E0cn)*(-2 +
01751 3*k)*\[CurlyEpsilon]c1)) +
01752 Sqrt(E0c)*(2*(-3*As1*d*E0c - 3*As2*ch*E0cn + 2*As1*E0c*h +
01753 2*As2*E0cn*h)*k*Power(\[CurlyEpsilon]c1, 2) +
01754 b*fc*Power(h,
01755 2)*((-2 + 3*k)*\[CurlyEpsilon]c1 -
01756 4*(-1 + k)*\[CurlyEpsilon]n))) + 1.e -
01757 6, \[CurlyEpsilon]cmax1p = \[CurlyEpsilon]cmax1)
01758
01759 mmax1a = ((-6*b*d*E0c*fc*Power(h, 2)*\[CurlyEpsilon]c1 +
01760 9*b*d*E0c*fc*Power(h, 2)*k*\[CurlyEpsilon]c1 +
01761 6*As1*Power(d, 2)*Power(E0c, 2)*k*Power(\[CurlyEpsilon]c1, 2) +
01762 6*As2*ch*d*E0c*E0cn*k*Power(\[CurlyEpsilon]c1, 2) +
01763 12*b*d*E0c*fc*Power(h, 2)*\[CurlyEpsilon]cmax1p -
01764 12*b*d*E0c*fc*Power(h, 2)*k*\[CurlyEpsilon]cmax1p +
01765 12*b*d*E0c*fc*Power(h, 2)*\[CurlyEpsilon]n -
01766 12*b*d*E0c*fc*Power(h, 2)*k*\[CurlyEpsilon]n -
01767 Sqrt(E0c*(E0c*
01768 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
01769 Power(\[CurlyEpsilon]c1, 2) +
01770 b*fc*Power(h,
01771 2)*(8*h*(-1 + k)*\[CurlyEpsilon]cmax1p -
01772 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
01773 4*(-1 + k)*\[CurlyEpsilon]cmax1p +
01774 4*(-1 + k)*\[CurlyEpsilon]n)), 2) +
01775 16*b*fc*
01776 Power(h,
01777 3)*(-1 +
01778 k)*(b*E0c*fc*
01779 h*(-4*Power(h, 2)*(-1 + k)*
01780 Power(\[CurlyEpsilon]cmax1p, 2) -
01781 6*Power(d,
01782 2)*(\[CurlyEpsilon]cmax1p + \
01783 \[CurlyEpsilon]n)*((2 - 3*k)*\[CurlyEpsilon]c1 +
01784 2*(-1 + k)*\[CurlyEpsilon]cmax1p +
01785 2*(-1 + k)*\[CurlyEpsilon]n) +
01786 3*d*h*\[CurlyEpsilon]cmax1p*((2 -
01787 3*k)*\[CurlyEpsilon]c1 +
01788 4*(-1 + k)*\[CurlyEpsilon]cmax1p +
01789 4*(-1 + k)*\[CurlyEpsilon]n)) +
01790 6*d*k*Power(\[CurlyEpsilon]c1,
01791 2)*(d*E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
01792 As2*(-(ch*E0c*
01793 E0cn*\[CurlyEpsilon]cmax1p) +
01794 d*(E0cn*fy +
01795 E0c*(-fy +
01796 E0cn*(\[CurlyEpsilon]cmax1p + \
01797 \[CurlyEpsilon]n)))))))))*(-2*b*d*E0c*fc*Power(h, 2)*\[CurlyEpsilon]c1 +
01798 3*b*d*E0c*fc*Power(h, 2)*k*\[CurlyEpsilon]c1 -
01799 6*As1*Power(d, 2)*Power(E0c, 2)*k*Power(\[CurlyEpsilon]c1, 2) -
01800 6*As2*ch*d*E0c*E0cn*k*Power(\[CurlyEpsilon]c1, 2) +
01801 4*b*d*E0c*fc*Power(h, 2)*\[CurlyEpsilon]cmax1p -
01802 4*b*d*E0c*fc*Power(h, 2)*k*\[CurlyEpsilon]cmax1p +
01803 4*b*d*E0c*fc*Power(h, 2)*\[CurlyEpsilon]n -
01804 4*b*d*E0c*fc*Power(h, 2)*k*\[CurlyEpsilon]n +
01805 Sqrt(E0c*(E0c*
01806 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
01807 Power(\[CurlyEpsilon]c1, 2) +
01808 b*fc*Power(h,
01809 2)*(8*h*(-1 + k)*\[CurlyEpsilon]cmax1p -
01810 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
01811 4*(-1 + k)*\[CurlyEpsilon]cmax1p +
01812 4*(-1 + k)*\[CurlyEpsilon]n)), 2) +
01813 16*b*fc*
01814 Power(h,
01815 3)*(-1 +
01816 k)*(b*E0c*fc*
01817 h*(-4*Power(h, 2)*(-1 + k)*
01818 Power(\[CurlyEpsilon]cmax1p, 2) -
01819 6*Power(d,
01820 2)*(\[CurlyEpsilon]cmax1p + \
01821 \[CurlyEpsilon]n)*((2 - 3*k)*\[CurlyEpsilon]c1 +
01822 2*(-1 + k)*\[CurlyEpsilon]cmax1p +
01823 2*(-1 + k)*\[CurlyEpsilon]n) +
01824 3*d*h*\[CurlyEpsilon]cmax1p*((2 -
01825 3*k)*\[CurlyEpsilon]c1 +
01826 4*(-1 + k)*\[CurlyEpsilon]cmax1p +
01827 4*(-1 + k)*\[CurlyEpsilon]n)) +
01828 6*d*k*Power(\[CurlyEpsilon]c1,
01829 2)*(d*E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
01830 As2*(-(ch*E0c*
01831 E0cn*\[CurlyEpsilon]cmax1p) +
01832 d*(E0cn*fy +
01833 E0c*(-fy +
01834 E0cn*(\[CurlyEpsilon]cmax1p + \
01835 \[CurlyEpsilon]n))))))))))/(384.*b*Power(d, 2)*Power(E0c, 2)*fc*
01836 Power(h, 2)*(-1 + k)*k*Power(\[CurlyEpsilon]c1, 2)) + (As1*
01837 E0c*(-2*cd +
01838 h)*(\[CurlyEpsilon]n + (6*d*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
01839 Power(\[CurlyEpsilon]c1, 2) +
01840 b*E0c*fc*
01841 Power(h,
01842 2)*(8*h*(-1 + k)*\[CurlyEpsilon]cmax1p -
01843 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
01844 4*(-1 + k)*\[CurlyEpsilon]cmax1p +
01845 4*(-1 + k)*\[CurlyEpsilon]n)) -
01846 Sqrt(E0c*(E0c*
01847 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
01848 Power(\[CurlyEpsilon]c1, 2) +
01849 b*fc*Power(h,
01850 2)*(8*
01851 h*(-1 + k)*\[CurlyEpsilon]cmax1p -
01852 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
01853 4*(-1 + k)*\[CurlyEpsilon]cmax1p +
01854 4*(-1 + k)*\[CurlyEpsilon]n)), 2) +
01855 16*b*fc*
01856 Power(h,
01857 3)*(-1 +
01858 k)*(b*E0c*fc*
01859 h*(-4*Power(h, 2)*(-1 + k)*
01860 Power(\[CurlyEpsilon]cmax1p, 2) -
01861 6*Power(d,
01862 2)*(\[CurlyEpsilon]cmax1p + \
01863 \[CurlyEpsilon]n)*((2 - 3*k)*\[CurlyEpsilon]c1 +
01864 2*(-1 + k)*\[CurlyEpsilon]cmax1p +
01865 2*(-1 + k)*\[CurlyEpsilon]n) +
01866 3*d*h*\[CurlyEpsilon]cmax1p*((2 -
01867 3*k)*\[CurlyEpsilon]c1 +
01868 4*(-1 + k)*\[CurlyEpsilon]cmax1p +
01869 4*(-1 + k)*\[CurlyEpsilon]n)) +
01870 6*d*k*
01871 Power(\[CurlyEpsilon]c1,
01872 2)*(d*
01873 E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
01874 As2*(-(ch*E0c*
01875 E0cn*\[CurlyEpsilon]cmax1p) +
01876 d*(E0cn*fy + E0c*(-fy +
01877 E0cn*(\[CurlyEpsilon]cmax1p + \
01878 \[CurlyEpsilon]n)))))))))/(8.*b*E0c*fc*Power(h, 3)*(-1 + k))))/
01879 2. + (As2*(-2*ch + h)*(fy -
01880 E0cn*(fy/
01881 E0c + \[CurlyEpsilon]cmax1p - \
01882 (ch*\[CurlyEpsilon]cmax1p)/
01883 d + \[CurlyEpsilon]n + (ch*(6*d*
01884 E0c*(As1*d*E0c + As2*ch*E0cn)*k*
01885 Power(\[CurlyEpsilon]c1, 2) +
01886 b*E0c*fc*
01887 Power(h,
01888 2)*(8*h*(-1 + k)*\[CurlyEpsilon]cmax1p -
01889 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
01890 4*(-1 + k)*\[CurlyEpsilon]cmax1p +
01891 4*(-1 + k)*\[CurlyEpsilon]n)) -
01892 Sqrt(E0c*(E0c*
01893 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
01894 Power(\[CurlyEpsilon]c1, 2) +
01895 b*fc*Power(h,
01896 2)*(8*h*(-1 +
01897 k)*\[CurlyEpsilon]cmax1p -
01898 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
01899 4*(-1 + k)*\[CurlyEpsilon]cmax1p +
01900 4*(-1 + k)*\[CurlyEpsilon]n)), 2) +
01901 16*b*fc*
01902 Power(h,
01903 3)*(-1 +
01904 k)*(b*E0c*fc*
01905 h*(-4*Power(h, 2)*(-1 + k)*
01906 Power(\[CurlyEpsilon]cmax1p, 2) -
01907 6*Power(d,
01908 2)*(\[CurlyEpsilon]cmax1p + \
01909 \[CurlyEpsilon]n)*((2 - 3*k)*\[CurlyEpsilon]c1 + 2*(-1 +
01910 k)*\[CurlyEpsilon]cmax1p +
01911 2*(-1 + k)*\[CurlyEpsilon]n) +
01912 3*d*h*\[CurlyEpsilon]cmax1p*((2 -
01913 3*k)*\[CurlyEpsilon]c1 +
01914 4*(-1 + k)*\[CurlyEpsilon]cmax1p +
01915 4*(-1 + k)*\[CurlyEpsilon]n)) +
01916 6*d*k*Power(\[CurlyEpsilon]c1,
01917 2)*(d*E0c*(-N0 + As1*
01918 E0c*\[CurlyEpsilon]n) +
01919 As2*(-(ch*E0c*
01920 E0cn*\[CurlyEpsilon]cmax1p) +
01921 d*(E0cn*fy + E0c*(-fy +
01922 E0cn*(\[CurlyEpsilon]cmax1p + \
01923 \[CurlyEpsilon]n))))))))))/(8.*b*d*E0c*fc*Power(h, 3)*(-1 + k)))))/2.
01924
01925 If(mhr1 > mhr4, mh1 = mhr4, mh1 = mhr1)
01926
01927 If(mhr1 >
01928 mhr4, \[CurlyEpsilon]ch1 = \[CurlyEpsilon]chr4, \[CurlyEpsilon]ch1 = \
01929 \[CurlyEpsilon]chr1)
01930
01931 mh1hrk1a = (-24*
01932 As1*(2*cd -
01933 h)*(6*As1*Power(d, 2)*Power(E0c, 2)*k*
01934 Power(\[CurlyEpsilon]c1, 2) +
01935 6*As2*ch*d*E0c*E0cn*k*Power(\[CurlyEpsilon]c1, 2) +
01936 b*E0c*fc*
01937 Power(h,
01938 2)*(4*h*(-1 +
01939 k)*(\[CurlyEpsilon]ch1 + \[CurlyEpsilon]chrk1a +
01940 2*\[CurlyEpsilon]n) +
01941 3*d*((-2 + 3*k)*\[CurlyEpsilon]c1 -
01942 2*(-1 +
01943 k)*(\[CurlyEpsilon]ch1 + \
01944 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n))) -
01945 Sqrt(E0c*(E0c*
01946 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
01947 Power(\[CurlyEpsilon]c1, 2) +
01948 b*fc*Power(h,
01949 2)*(4*
01950 h*(-1 +
01951 k)*(\[CurlyEpsilon]ch1 + \
01952 \[CurlyEpsilon]chrk1a) + 3*d*((-2 + 3*k)*\[CurlyEpsilon]c1 -
01953 2*(-1 +
01954 k)*(\[CurlyEpsilon]ch1 + \
01955 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n))), 2) +
01956 16*b*fc*
01957 Power(h,
01958 3)*(-1 +
01959 k)*(b*E0c*fc*
01960 h*(-(Power(h, 2)*(-1 + k)*
01961 Power(\[CurlyEpsilon]ch1 + \
01962 \[CurlyEpsilon]chrk1a, 2)) - 3*Power(d,
01963 2)*(\[CurlyEpsilon]ch1 + \
01964 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n)*((2 -
01965 3*k)*\[CurlyEpsilon]c1 + (-1 +
01966 k)*(\[CurlyEpsilon]ch1 + \
01967 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n)) + (3*d*
01968 h*(\[CurlyEpsilon]ch1 + \
01969 \[CurlyEpsilon]chrk1a)*((2 - 3*k)*\[CurlyEpsilon]c1 +
01970 2*(-1 +
01971 k)*(\[CurlyEpsilon]ch1 + \
01972 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n)))/2.) +
01973 6*d*k*Power(\[CurlyEpsilon]c1,
01974 2)*(d*
01975 E0c*(-N0 +
01976 As1*E0c*\[CurlyEpsilon]n) - (As2*(ch*
01977 E0c*E0cn*(\[CurlyEpsilon]ch1 + \
01978 \[CurlyEpsilon]chrk1a) + d*(-2*E0cn*fy + E0c*(2*fy -
01979 E0cn*(\[CurlyEpsilon]ch1 + \
01980 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n)))))/2.))))) + (h*(6*As1*
01981 Power(d, 2)*Power(E0c, 2)*k*Power(\[CurlyEpsilon]c1, 2) +
01982 6*As2*ch*d*E0c*E0cn*k*Power(\[CurlyEpsilon]c1, 2) +
01983 3*b*d*E0c*fc*
01984 Power(h,
01985 2)*((-2 + 3*k)*\[CurlyEpsilon]c1 -
01986 2*(-1 +
01987 k)*(\[CurlyEpsilon]ch1 + \[CurlyEpsilon]chrk1a \
01988 + 2*\[CurlyEpsilon]n)) -
01989 Sqrt(E0c*(E0c*
01990 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
01991 Power(\[CurlyEpsilon]c1, 2) +
01992 b*fc*Power(h,
01993 2)*(4*
01994 h*(-1 +
01995 k)*(\[CurlyEpsilon]ch1 + \
01996 \[CurlyEpsilon]chrk1a) + 3*d*((-2 + 3*k)*\[CurlyEpsilon]c1 -
01997 2*(-1 +
01998 k)*(\[CurlyEpsilon]ch1 + \
01999 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n))), 2) +
02000 16*b*fc*
02001 Power(h,
02002 3)*(-1 +
02003 k)*(b*E0c*fc*
02004 h*(-(Power(h, 2)*(-1 + k)*
02005 Power(\[CurlyEpsilon]ch1 + \
02006 \[CurlyEpsilon]chrk1a, 2)) - 3*Power(d,
02007 2)*(\[CurlyEpsilon]ch1 + \
02008 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n)*((2 -
02009 3*k)*\[CurlyEpsilon]c1 + (-1 +
02010 k)*(\[CurlyEpsilon]ch1 + \
02011 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n)) + (3*d*
02012 h*(\[CurlyEpsilon]ch1 + \
02013 \[CurlyEpsilon]chrk1a)*((2 - 3*k)*\[CurlyEpsilon]c1 +
02014 2*(-1 +
02015 k)*(\[CurlyEpsilon]ch1 + \
02016 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n)))/2.) +
02017 6*d*k*
02018 Power(\[CurlyEpsilon]c1,
02019 2)*(d*
02020 E0c*(-N0 +
02021 As1*E0c*\[CurlyEpsilon]n) - (As2*(ch*
02022 E0c*E0cn*(\[CurlyEpsilon]ch1 + \
02023 \[CurlyEpsilon]chrk1a) + d*(-2*E0cn*fy + E0c*(2*fy -
02024 E0cn*(\[CurlyEpsilon]ch1 + \
02025 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n)))))/2.)))))*(-6*As1*Power(d, 2)*
02026 Power(E0c, 2)*k*Power(\[CurlyEpsilon]c1, 2) -
02027 6*As2*ch*d*E0c*E0cn*k*Power(\[CurlyEpsilon]c1, 2) +
02028 b*d*E0c*fc*
02029 Power(h,
02030 2)*((-2 + 3*k)*\[CurlyEpsilon]c1 -
02031 2*(-1 +
02032 k)*(\[CurlyEpsilon]ch1 + \[CurlyEpsilon]chrk1a \
02033 + 2*\[CurlyEpsilon]n)) +
02034 Sqrt(E0c*(E0c*
02035 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
02036 Power(\[CurlyEpsilon]c1, 2) +
02037 b*fc*Power(h,
02038 2)*(4*
02039 h*(-1 +
02040 k)*(\[CurlyEpsilon]ch1 + \
02041 \[CurlyEpsilon]chrk1a) + 3*d*((-2 + 3*k)*\[CurlyEpsilon]c1 -
02042 2*(-1 +
02043 k)*(\[CurlyEpsilon]ch1 + \
02044 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n))), 2) +
02045 16*b*fc*
02046 Power(h,
02047 3)*(-1 +
02048 k)*(b*E0c*fc*
02049 h*(-(Power(h, 2)*(-1 + k)*
02050 Power(\[CurlyEpsilon]ch1 + \
02051 \[CurlyEpsilon]chrk1a, 2)) - 3*Power(d,
02052 2)*(\[CurlyEpsilon]ch1 + \
02053 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n)*((2 -
02054 3*k)*\[CurlyEpsilon]c1 + (-1 +
02055 k)*(\[CurlyEpsilon]ch1 + \
02056 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n)) + (3*d*
02057 h*(\[CurlyEpsilon]ch1 + \
02058 \[CurlyEpsilon]chrk1a)*((2 - 3*k)*\[CurlyEpsilon]c1 +
02059 2*(-1 +
02060 k)*(\[CurlyEpsilon]ch1 + \
02061 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n)))/2.) +
02062 6*d*k*
02063 Power(\[CurlyEpsilon]c1,
02064 2)*(d*
02065 E0c*(-N0 +
02066 As1*E0c*\[CurlyEpsilon]n) - (As2*(ch*
02067 E0c*E0cn*(\[CurlyEpsilon]ch1 + \
02068 \[CurlyEpsilon]chrk1a) + d*(-2*E0cn*fy + E0c*(2*fy -
02069 E0cn*(\[CurlyEpsilon]ch1 + \
02070 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n)))))/2.))))))/(Power(d, 2)*
02071 Power(E0c, 2)*k*Power(\[CurlyEpsilon]c1, 2)) + (24*
02072 As2*(2*ch -
02073 h)*(b*d*fc*
02074 Power(h,
02075 2)*(8*E0cn*fy*h*(-1 + k) +
02076 E0c*(-8*fy*h*(-1 + k) +
02077 E0cn*(4*
02078 h*(-1 +
02079 k)*(\[CurlyEpsilon]ch1 + \
02080 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n) +
02081 3*ch*((-2 + 3*k)*\[CurlyEpsilon]c1 -
02082 2*(-1 +
02083 k)*(\[CurlyEpsilon]ch1 + \
02084 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n))))) +
02085 ch*E0cn*(6*As1*Power(d, 2)*Power(E0c, 2)*k*
02086 Power(\[CurlyEpsilon]c1, 2) +
02087 6*As2*ch*d*E0c*E0cn*k*Power(\[CurlyEpsilon]c1, 2) -
02088 Sqrt(E0c*(E0c*
02089 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
02090 Power(\[CurlyEpsilon]c1, 2) +
02091 b*fc*
02092 Power(h,
02093 2)*(4*h*(-1 +
02094 k)*(\[CurlyEpsilon]ch1 + \
02095 \[CurlyEpsilon]chrk1a) + 3*d*((-2 + 3*k)*\[CurlyEpsilon]c1 -
02096 2*(-1 +
02097 k)*(\[CurlyEpsilon]ch1 + \
02098 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n))), 2) +
02099 16*b*fc*
02100 Power(h,
02101 3)*(-1 +
02102 k)*(b*E0c*fc*
02103 h*(-(Power(h, 2)*(-1 + k)*
02104 Power(\[CurlyEpsilon]ch1 + \
02105 \[CurlyEpsilon]chrk1a, 2)) - 3*Power(d,
02106 2)*(\[CurlyEpsilon]ch1 + \
02107 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n)*((2 -
02108 3*k)*\[CurlyEpsilon]c1 + (-1 +
02109 k)*(\[CurlyEpsilon]ch1 + \
02110 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n)) + (3*d*
02111 h*(\[CurlyEpsilon]ch1 + \
02112 \[CurlyEpsilon]chrk1a)*((2 - 3*k)*\[CurlyEpsilon]c1 + 2*(-1 +
02113 k)*(\[CurlyEpsilon]ch1 + \
02114 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n)))/2.) +
02115 6*d*k*
02116 Power(\[CurlyEpsilon]c1,
02117 2)*(d*E0c*(-N0 +
02118 As1*E0c*\[CurlyEpsilon]n) - (As2*(ch*
02119 E0c*E0cn*(\[CurlyEpsilon]ch1 + \
02120 \[CurlyEpsilon]chrk1a) + d*(-2*E0cn*fy + E0c*(2*fy -
02121 E0cn*(\[CurlyEpsilon]ch1 + \
02122 \[CurlyEpsilon]chrk1a + 2*\[CurlyEpsilon]n)))))/2.)))))))/(d*E0c))/(384.*b*fc*
02123 Power(h, 3)*(-1 + k))
02124
02125 If(\[CurlyEpsilon]cmax1 < \[CurlyEpsilon]chr4b, mhrk1a = mhr4b,
02126 mhrk1a = mmax1a)
02127
02128 If(mhr4b < mhr1, mh3 = mhr4b, mh3 = mhr3)
02129
02130 If(mhr4b <
02131 mhr1, \[CurlyEpsilon]ch3 = \[CurlyEpsilon]chr4b, \[CurlyEpsilon]ch3 = \
02132 \[CurlyEpsilon]chr3)
02133
02134 If(mhr2 > mh3, mh2 = mh3, mh2 = mhr2)
02135
02136 If(mhr2 >
02137 mh3, \[CurlyEpsilon]ch2 = \[CurlyEpsilon]ch3, \[CurlyEpsilon]ch2 = \
02138 \[CurlyEpsilon]chr2)
02139
02140 \[CurlyEpsilon]cder2 = -(-(mh1*\[CurlyEpsilon]ch1) +
02141 4*mh1hrk1a*\[CurlyEpsilon]ch1 - 3*mhrk1a*\[CurlyEpsilon]ch1 -
02142 3*mh1*\[CurlyEpsilon]chrk1a + 4*mh1hrk1a*\[CurlyEpsilon]chrk1a -
02143 mhrk1a*\[CurlyEpsilon]chrk1a)/(4.*(mh1 - 2*mh1hrk1a + mhrk1a))
02144
02145 mmax1 = ((-6*b*d*E0c*fc*Power(h, 2)*\[CurlyEpsilon]c1 +
02146 9*b*d*E0c*fc*Power(h, 2)*k*\[CurlyEpsilon]c1 +
02147 6*As1*Power(d, 2)*Power(E0c, 2)*k*Power(\[CurlyEpsilon]c1, 2) +
02148 6*As2*ch*d*E0c*E0cn*k*Power(\[CurlyEpsilon]c1, 2) +
02149 12*b*d*E0c*fc*Power(h, 2)*\[CurlyEpsilon]cder2 -
02150 12*b*d*E0c*fc*Power(h, 2)*k*\[CurlyEpsilon]cder2 +
02151 12*b*d*E0c*fc*Power(h, 2)*\[CurlyEpsilon]n -
02152 12*b*d*E0c*fc*Power(h, 2)*k*\[CurlyEpsilon]n -
02153 Sqrt(E0c*(E0c*
02154 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
02155 Power(\[CurlyEpsilon]c1, 2) +
02156 b*fc*Power(h,
02157 2)*(8*h*(-1 + k)*\[CurlyEpsilon]cder2 -
02158 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
02159 4*(-1 + k)*\[CurlyEpsilon]cder2 +
02160 4*(-1 + k)*\[CurlyEpsilon]n)), 2) +
02161 16*b*fc*
02162 Power(h,
02163 3)*(-1 +
02164 k)*(b*E0c*fc*
02165 h*(-4*Power(h, 2)*(-1 + k)*
02166 Power(\[CurlyEpsilon]cder2, 2) -
02167 6*Power(d,
02168 2)*(\[CurlyEpsilon]cder2 + \
02169 \[CurlyEpsilon]n)*((2 - 3*k)*\[CurlyEpsilon]c1 +
02170 2*(-1 + k)*\[CurlyEpsilon]cder2 +
02171 2*(-1 + k)*\[CurlyEpsilon]n) +
02172 3*d*h*\[CurlyEpsilon]cder2*((2 -
02173 3*k)*\[CurlyEpsilon]c1 +
02174 4*(-1 + k)*\[CurlyEpsilon]cder2 +
02175 4*(-1 + k)*\[CurlyEpsilon]n)) +
02176 6*d*k*Power(\[CurlyEpsilon]c1,
02177 2)*(d*E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
02178 As2*(-(ch*E0c*
02179 E0cn*\[CurlyEpsilon]cder2) +
02180 d*(E0cn*fy +
02181 E0c*(-fy +
02182 E0cn*(\[CurlyEpsilon]cder2 + \
02183 \[CurlyEpsilon]n)))))))))*(-2*b*d*E0c*fc*Power(h, 2)*\[CurlyEpsilon]c1 +
02184 3*b*d*E0c*fc*Power(h, 2)*k*\[CurlyEpsilon]c1 -
02185 6*As1*Power(d, 2)*Power(E0c, 2)*k*Power(\[CurlyEpsilon]c1, 2) -
02186 6*As2*ch*d*E0c*E0cn*k*Power(\[CurlyEpsilon]c1, 2) +
02187 4*b*d*E0c*fc*Power(h, 2)*\[CurlyEpsilon]cder2 -
02188 4*b*d*E0c*fc*Power(h, 2)*k*\[CurlyEpsilon]cder2 +
02189 4*b*d*E0c*fc*Power(h, 2)*\[CurlyEpsilon]n -
02190 4*b*d*E0c*fc*Power(h, 2)*k*\[CurlyEpsilon]n +
02191 Sqrt(E0c*(E0c*
02192 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
02193 Power(\[CurlyEpsilon]c1, 2) +
02194 b*fc*Power(h,
02195 2)*(8*h*(-1 + k)*\[CurlyEpsilon]cder2 -
02196 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
02197 4*(-1 + k)*\[CurlyEpsilon]cder2 +
02198 4*(-1 + k)*\[CurlyEpsilon]n)), 2) +
02199 16*b*fc*
02200 Power(h,
02201 3)*(-1 +
02202 k)*(b*E0c*fc*
02203 h*(-4*Power(h, 2)*(-1 + k)*
02204 Power(\[CurlyEpsilon]cder2, 2) -
02205 6*Power(d,
02206 2)*(\[CurlyEpsilon]cder2 + \
02207 \[CurlyEpsilon]n)*((2 - 3*k)*\[CurlyEpsilon]c1 +
02208 2*(-1 + k)*\[CurlyEpsilon]cder2 +
02209 2*(-1 + k)*\[CurlyEpsilon]n) +
02210 3*d*h*\[CurlyEpsilon]cder2*((2 -
02211 3*k)*\[CurlyEpsilon]c1 +
02212 4*(-1 + k)*\[CurlyEpsilon]cder2 +
02213 4*(-1 + k)*\[CurlyEpsilon]n)) +
02214 6*d*k*Power(\[CurlyEpsilon]c1,
02215 2)*(d*E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
02216 As2*(-(ch*E0c*
02217 E0cn*\[CurlyEpsilon]cder2) +
02218 d*(E0cn*fy +
02219 E0c*(-fy +
02220 E0cn*(\[CurlyEpsilon]cder2 + \
02221 \[CurlyEpsilon]n))))))))))/(384.*b*Power(d, 2)*Power(E0c, 2)*fc*
02222 Power(h, 2)*(-1 + k)*k*Power(\[CurlyEpsilon]c1, 2)) + (As1*
02223 E0c*(-2*cd +
02224 h)*(\[CurlyEpsilon]n + (6*d*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
02225 Power(\[CurlyEpsilon]c1, 2) +
02226 b*E0c*fc*
02227 Power(h,
02228 2)*(8*h*(-1 + k)*\[CurlyEpsilon]cder2 -
02229 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
02230 4*(-1 + k)*\[CurlyEpsilon]cder2 +
02231 4*(-1 + k)*\[CurlyEpsilon]n)) -
02232 Sqrt(E0c*(E0c*
02233 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
02234 Power(\[CurlyEpsilon]c1, 2) +
02235 b*fc*Power(h,
02236 2)*(8*
02237 h*(-1 + k)*\[CurlyEpsilon]cder2 -
02238 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
02239 4*(-1 + k)*\[CurlyEpsilon]cder2 +
02240 4*(-1 + k)*\[CurlyEpsilon]n)), 2) +
02241 16*b*fc*
02242 Power(h,
02243 3)*(-1 +
02244 k)*(b*E0c*fc*
02245 h*(-4*Power(h, 2)*(-1 + k)*
02246 Power(\[CurlyEpsilon]cder2, 2) -
02247 6*Power(d,
02248 2)*(\[CurlyEpsilon]cder2 + \
02249 \[CurlyEpsilon]n)*((2 - 3*k)*\[CurlyEpsilon]c1 +
02250 2*(-1 + k)*\[CurlyEpsilon]cder2 +
02251 2*(-1 + k)*\[CurlyEpsilon]n) +
02252 3*d*h*\[CurlyEpsilon]cder2*((2 -
02253 3*k)*\[CurlyEpsilon]c1 +
02254 4*(-1 + k)*\[CurlyEpsilon]cder2 +
02255 4*(-1 + k)*\[CurlyEpsilon]n)) +
02256 6*d*k*
02257 Power(\[CurlyEpsilon]c1,
02258 2)*(d*
02259 E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
02260 As2*(-(ch*E0c*
02261 E0cn*\[CurlyEpsilon]cder2) +
02262 d*(E0cn*fy + E0c*(-fy +
02263 E0cn*(\[CurlyEpsilon]cder2 + \
02264 \[CurlyEpsilon]n)))))))))/(8.*b*E0c*fc*Power(h, 3)*(-1 + k))))/
02265 2. + (As2*(-2*ch + h)*(fy -
02266 E0cn*(fy/E0c + \[CurlyEpsilon]cder2 - (ch*\[CurlyEpsilon]cder2)/
02267 d + \[CurlyEpsilon]n + (ch*(6*d*
02268 E0c*(As1*d*E0c + As2*ch*E0cn)*k*
02269 Power(\[CurlyEpsilon]c1, 2) +
02270 b*E0c*fc*
02271 Power(h,
02272 2)*(8*h*(-1 + k)*\[CurlyEpsilon]cder2 -
02273 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
02274 4*(-1 + k)*\[CurlyEpsilon]cder2 +
02275 4*(-1 + k)*\[CurlyEpsilon]n)) -
02276 Sqrt(E0c*(E0c*
02277 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
02278 Power(\[CurlyEpsilon]c1, 2) +
02279 b*fc*Power(h,
02280 2)*(8*h*(-1 +
02281 k)*\[CurlyEpsilon]cder2 -
02282 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
02283 4*(-1 + k)*\[CurlyEpsilon]cder2 +
02284 4*(-1 + k)*\[CurlyEpsilon]n)), 2) +
02285 16*b*fc*
02286 Power(h,
02287 3)*(-1 +
02288 k)*(b*E0c*fc*
02289 h*(-4*Power(h, 2)*(-1 + k)*
02290 Power(\[CurlyEpsilon]cder2, 2) -
02291 6*Power(d,
02292 2)*(\[CurlyEpsilon]cder2 + \
02293 \[CurlyEpsilon]n)*((2 - 3*k)*\[CurlyEpsilon]c1 + 2*(-1 +
02294 k)*\[CurlyEpsilon]cder2 +
02295 2*(-1 + k)*\[CurlyEpsilon]n) +
02296 3*d*h*\[CurlyEpsilon]cder2*((2 -
02297 3*k)*\[CurlyEpsilon]c1 +
02298 4*(-1 + k)*\[CurlyEpsilon]cder2 +
02299 4*(-1 + k)*\[CurlyEpsilon]n)) +
02300 6*d*k*Power(\[CurlyEpsilon]c1,
02301 2)*(d*E0c*(-N0 + As1*
02302 E0c*\[CurlyEpsilon]n) +
02303 As2*(-(ch*E0c*
02304 E0cn*\[CurlyEpsilon]cder2) +
02305 d*(E0cn*fy + E0c*(-fy +
02306 E0cn*(\[CurlyEpsilon]cder2 + \
02307 \[CurlyEpsilon]n))))))))))/(8.*b*d*E0c*fc*Power(h, 3)*(-1 + k)))))/2.
02308
02309 If(\[CurlyEpsilon]cder2 < \[CurlyEpsilon]chr4 && \[CurlyEpsilon]cder2 > \
02310 \[CurlyEpsilon]cmax1 && \[CurlyEpsilon]cder2 > \[CurlyEpsilon]chr4b, (mhrk1 =
02311 mmax1) && (\[CurlyEpsilon]chrk1 = \[CurlyEpsilon]cder2), (mhrk1 =
02312 mhrk1a) && (\[CurlyEpsilon]chrk1 = \[CurlyEpsilon]chrk1a))
02313
02314 mh1hrk1 = (-24*
02315 As1*(2*cd -
02316 h)*(6*As1*Power(d, 2)*Power(E0c, 2)*k*
02317 Power(\[CurlyEpsilon]c1, 2) +
02318 6*As2*ch*d*E0c*E0cn*k*Power(\[CurlyEpsilon]c1, 2) +
02319 b*E0c*fc*
02320 Power(h,
02321 2)*(4*h*(-1 +
02322 k)*(\[CurlyEpsilon]ch1 + \[CurlyEpsilon]chrk1 +
02323 2*\[CurlyEpsilon]n) +
02324 3*d*((-2 + 3*k)*\[CurlyEpsilon]c1 -
02325 2*(-1 +
02326 k)*(\[CurlyEpsilon]ch1 + \[CurlyEpsilon]chrk1 \
02327 + 2*\[CurlyEpsilon]n))) -
02328 Sqrt(E0c*(E0c*
02329 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
02330 Power(\[CurlyEpsilon]c1, 2) +
02331 b*fc*Power(h,
02332 2)*(4*
02333 h*(-1 +
02334 k)*(\[CurlyEpsilon]ch1 + \
02335 \[CurlyEpsilon]chrk1) + 3*d*((-2 + 3*k)*\[CurlyEpsilon]c1 -
02336 2*(-1 +
02337 k)*(\[CurlyEpsilon]ch1 + \
02338 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n))), 2) +
02339 16*b*fc*
02340 Power(h,
02341 3)*(-1 +
02342 k)*(b*E0c*fc*
02343 h*(-(Power(h, 2)*(-1 + k)*
02344 Power(\[CurlyEpsilon]ch1 + \
02345 \[CurlyEpsilon]chrk1, 2)) - 3*Power(d,
02346 2)*(\[CurlyEpsilon]ch1 + \
02347 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n)*((2 -
02348 3*k)*\[CurlyEpsilon]c1 + (-1 +
02349 k)*(\[CurlyEpsilon]ch1 + \
02350 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n)) + (3*d*
02351 h*(\[CurlyEpsilon]ch1 + \
02352 \[CurlyEpsilon]chrk1)*((2 - 3*k)*\[CurlyEpsilon]c1 +
02353 2*(-1 +
02354 k)*(\[CurlyEpsilon]ch1 + \
02355 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n)))/2.) +
02356 6*d*k*Power(\[CurlyEpsilon]c1,
02357 2)*(d*
02358 E0c*(-N0 +
02359 As1*E0c*\[CurlyEpsilon]n) - (As2*(ch*
02360 E0c*E0cn*(\[CurlyEpsilon]ch1 + \
02361 \[CurlyEpsilon]chrk1) + d*(-2*E0cn*fy + E0c*(2*fy -
02362 E0cn*(\[CurlyEpsilon]ch1 + \
02363 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n)))))/2.))))) + (h*(6*As1*
02364 Power(d, 2)*Power(E0c, 2)*k*Power(\[CurlyEpsilon]c1, 2) +
02365 6*As2*ch*d*E0c*E0cn*k*Power(\[CurlyEpsilon]c1, 2) +
02366 3*b*d*E0c*fc*
02367 Power(h,
02368 2)*((-2 + 3*k)*\[CurlyEpsilon]c1 -
02369 2*(-1 +
02370 k)*(\[CurlyEpsilon]ch1 + \[CurlyEpsilon]chrk1 +
02371 2*\[CurlyEpsilon]n)) -
02372 Sqrt(E0c*(E0c*
02373 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
02374 Power(\[CurlyEpsilon]c1, 2) +
02375 b*fc*Power(h,
02376 2)*(4*
02377 h*(-1 +
02378 k)*(\[CurlyEpsilon]ch1 + \
02379 \[CurlyEpsilon]chrk1) + 3*d*((-2 + 3*k)*\[CurlyEpsilon]c1 -
02380 2*(-1 +
02381 k)*(\[CurlyEpsilon]ch1 + \
02382 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n))), 2) +
02383 16*b*fc*
02384 Power(h,
02385 3)*(-1 +
02386 k)*(b*E0c*fc*
02387 h*(-(Power(h, 2)*(-1 + k)*
02388 Power(\[CurlyEpsilon]ch1 + \
02389 \[CurlyEpsilon]chrk1, 2)) - 3*Power(d,
02390 2)*(\[CurlyEpsilon]ch1 + \
02391 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n)*((2 -
02392 3*k)*\[CurlyEpsilon]c1 + (-1 +
02393 k)*(\[CurlyEpsilon]ch1 + \
02394 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n)) + (3*d*
02395 h*(\[CurlyEpsilon]ch1 + \
02396 \[CurlyEpsilon]chrk1)*((2 - 3*k)*\[CurlyEpsilon]c1 +
02397 2*(-1 +
02398 k)*(\[CurlyEpsilon]ch1 + \
02399 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n)))/2.) +
02400 6*d*k*
02401 Power(\[CurlyEpsilon]c1,
02402 2)*(d*
02403 E0c*(-N0 +
02404 As1*E0c*\[CurlyEpsilon]n) - (As2*(ch*
02405 E0c*E0cn*(\[CurlyEpsilon]ch1 + \
02406 \[CurlyEpsilon]chrk1) + d*(-2*E0cn*fy + E0c*(2*fy -
02407 E0cn*(\[CurlyEpsilon]ch1 + \
02408 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n)))))/2.)))))*(-6*As1*Power(d, 2)*
02409 Power(E0c, 2)*k*Power(\[CurlyEpsilon]c1, 2) -
02410 6*As2*ch*d*E0c*E0cn*k*Power(\[CurlyEpsilon]c1, 2) +
02411 b*d*E0c*fc*
02412 Power(h,
02413 2)*((-2 + 3*k)*\[CurlyEpsilon]c1 -
02414 2*(-1 +
02415 k)*(\[CurlyEpsilon]ch1 + \[CurlyEpsilon]chrk1 +
02416 2*\[CurlyEpsilon]n)) +
02417 Sqrt(E0c*(E0c*
02418 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
02419 Power(\[CurlyEpsilon]c1, 2) +
02420 b*fc*Power(h,
02421 2)*(4*
02422 h*(-1 +
02423 k)*(\[CurlyEpsilon]ch1 + \
02424 \[CurlyEpsilon]chrk1) + 3*d*((-2 + 3*k)*\[CurlyEpsilon]c1 -
02425 2*(-1 +
02426 k)*(\[CurlyEpsilon]ch1 + \
02427 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n))), 2) +
02428 16*b*fc*
02429 Power(h,
02430 3)*(-1 +
02431 k)*(b*E0c*fc*
02432 h*(-(Power(h, 2)*(-1 + k)*
02433 Power(\[CurlyEpsilon]ch1 + \
02434 \[CurlyEpsilon]chrk1, 2)) - 3*Power(d,
02435 2)*(\[CurlyEpsilon]ch1 + \
02436 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n)*((2 -
02437 3*k)*\[CurlyEpsilon]c1 + (-1 +
02438 k)*(\[CurlyEpsilon]ch1 + \
02439 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n)) + (3*d*
02440 h*(\[CurlyEpsilon]ch1 + \
02441 \[CurlyEpsilon]chrk1)*((2 - 3*k)*\[CurlyEpsilon]c1 +
02442 2*(-1 +
02443 k)*(\[CurlyEpsilon]ch1 + \
02444 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n)))/2.) +
02445 6*d*k*
02446 Power(\[CurlyEpsilon]c1,
02447 2)*(d*
02448 E0c*(-N0 +
02449 As1*E0c*\[CurlyEpsilon]n) - (As2*(ch*
02450 E0c*E0cn*(\[CurlyEpsilon]ch1 + \
02451 \[CurlyEpsilon]chrk1) + d*(-2*E0cn*fy + E0c*(2*fy -
02452 E0cn*(\[CurlyEpsilon]ch1 + \
02453 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n)))))/2.))))))/(Power(d, 2)*
02454 Power(E0c, 2)*k*Power(\[CurlyEpsilon]c1, 2)) + (24*
02455 As2*(2*ch -
02456 h)*(b*d*fc*
02457 Power(h,
02458 2)*(8*E0cn*fy*h*(-1 + k) +
02459 E0c*(-8*fy*h*(-1 + k) +
02460 E0cn*(4*
02461 h*(-1 +
02462 k)*(\[CurlyEpsilon]ch1 + \
02463 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n) +
02464 3*ch*((-2 + 3*k)*\[CurlyEpsilon]c1 -
02465 2*(-1 +
02466 k)*(\[CurlyEpsilon]ch1 + \
02467 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n))))) +
02468 ch*E0cn*(6*As1*Power(d, 2)*Power(E0c, 2)*k*
02469 Power(\[CurlyEpsilon]c1, 2) +
02470 6*As2*ch*d*E0c*E0cn*k*Power(\[CurlyEpsilon]c1, 2) -
02471 Sqrt(E0c*(E0c*
02472 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
02473 Power(\[CurlyEpsilon]c1, 2) +
02474 b*fc*
02475 Power(h,
02476 2)*(4*h*(-1 +
02477 k)*(\[CurlyEpsilon]ch1 + \
02478 \[CurlyEpsilon]chrk1) + 3*d*((-2 + 3*k)*\[CurlyEpsilon]c1 -
02479 2*(-1 +
02480 k)*(\[CurlyEpsilon]ch1 + \
02481 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n))), 2) +
02482 16*b*fc*
02483 Power(h,
02484 3)*(-1 +
02485 k)*(b*E0c*fc*
02486 h*(-(Power(h, 2)*(-1 + k)*
02487 Power(\[CurlyEpsilon]ch1 + \
02488 \[CurlyEpsilon]chrk1, 2)) - 3*Power(d,
02489 2)*(\[CurlyEpsilon]ch1 + \
02490 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n)*((2 -
02491 3*k)*\[CurlyEpsilon]c1 + (-1 +
02492 k)*(\[CurlyEpsilon]ch1 + \
02493 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n)) + (3*d*
02494 h*(\[CurlyEpsilon]ch1 + \
02495 \[CurlyEpsilon]chrk1)*((2 - 3*k)*\[CurlyEpsilon]c1 + 2*(-1 +
02496 k)*(\[CurlyEpsilon]ch1 + \
02497 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n)))/2.) +
02498 6*d*k*
02499 Power(\[CurlyEpsilon]c1,
02500 2)*(d*E0c*(-N0 +
02501 As1*E0c*\[CurlyEpsilon]n) - (As2*(ch*
02502 E0c*E0cn*(\[CurlyEpsilon]ch1 + \
02503 \[CurlyEpsilon]chrk1) + d*(-2*E0cn*fy + E0c*(2*fy -
02504 E0cn*(\[CurlyEpsilon]ch1 + \
02505 \[CurlyEpsilon]chrk1 + 2*\[CurlyEpsilon]n)))))/2.)))))))/(d*E0c))/(384.*b*fc*
02506 Power(h, 3)*(-1 + k))
02507
02508 Null
02509
02510 ac1 = ((Sqrt(3)*
02511 Sqrt(k*Power(\[CurlyEpsilon]c1,
02512 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
02513 Power(-2*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1 +
02514 d*(-(As1*E0cn*fy) +
02515 E0c*(-N0 +
02516 As2*E0c*(\[CurlyEpsilon]c1 + \
02517 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)))),
02518 2) - 2*
02519 E0c*(As2*ch*E0c +
02520 As1*d*E0cn)*(-(b*Power(d, 2)*E0c*fc*
02521 Power(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n,
02522 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
02523 4*(-1 + k)*\[CurlyEpsilon]n)) +
02524 6*k*Power(\[CurlyEpsilon]c1,
02525 3)*(As1*
02526 d*(E0cn*fy -
02527 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
02528 E0c*(As2*ch*E0c*\[CurlyEpsilon]c1 +
02529 d*(N0 -
02530 As2*E0c*(\[CurlyEpsilon]c1 + \
02531 \[CurlyEpsilon]n)))))))*((3*
02532 Power(E0c,
02533 2)*(Power(As2*(2*ch - d)*E0c + As1*d*E0cn, 2)*k*
02534 Power(\[CurlyEpsilon]c1, 2) -
02535 2*(As2*ch*E0c +
02536 As1*d*E0cn)*(2*As2*(ch - d)*E0c*k*
02537 Power(\[CurlyEpsilon]c1, 2) +
02538 b*Power(d, 2)*
02539 fc*((-2 + k)*\[CurlyEpsilon]c1 +
02540 4*(-1 + k)*\[CurlyEpsilon]n))))/(3*k*
02541 Power(\[CurlyEpsilon]c1, 2)*
02542 Power(-2*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1 +
02543 d*(-(As1*E0cn*fy) +
02544 E0c*(-N0 +
02545 As2*E0c*(\[CurlyEpsilon]c1 + \
02546 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)))),
02547 2) - 2*
02548 E0c*(As2*ch*E0c +
02549 As1*d*E0cn)*(-(b*Power(d, 2)*E0c*fc*
02550 Power(\[CurlyEpsilon]c1 + \
02551 \[CurlyEpsilon]n, 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
02552 4*(-1 + k)*\[CurlyEpsilon]n)) +
02553 6*k*Power(\[CurlyEpsilon]c1,
02554 3)*(As1*
02555 d*(E0cn*fy -
02556 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
02557 E0c*(As2*ch*E0c*\[CurlyEpsilon]c1 +
02558 d*(N0 -
02559 As2*E0c*(\[CurlyEpsilon]c1 + \
02560 \[CurlyEpsilon]n)))))) -
02561 Power(6*E0c*(As2*(2*ch - d)*E0c + As1*d*E0cn)*k*
02562 Power(\[CurlyEpsilon]c1,
02563 2)*(-2*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1 +
02564 d*(-(As1*E0cn*fy) +
02565 E0c*(-N0 +
02566 As2*E0c*(\[CurlyEpsilon]c1 + \
02567 \[CurlyEpsilon]n) + As1*(fy +
02568 E0cn*(-\[CurlyEpsilon]c1 + \
02569 \[CurlyEpsilon]n))))) + 2*E0c*(As2*ch*E0c +
02570 As1*d*E0cn)*(-6*b*Power(d, 2)*E0c*
02571 fc*(\[CurlyEpsilon]c1 + \
02572 \[CurlyEpsilon]n)*(k*(\[CurlyEpsilon]c1 - 2*\[CurlyEpsilon]n) +
02573 2*\[CurlyEpsilon]n) -
02574 6*k*
02575 Power(\[CurlyEpsilon]c1,
02576 2)*(As1*
02577 d*(-(E0cn*fy) +
02578 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
02579 E0c*(-2*As2*ch*E0c*\[CurlyEpsilon]c1 +
02580 d*(-N0 + As2*
02581 E0c*(2*\[CurlyEpsilon]c1 + \
02582 \[CurlyEpsilon]n))))),
02583 2)/(4.*
02584 Power(3*k*Power(\[CurlyEpsilon]c1, 2)*
02585 Power(-2*As2*ch*
02586 Power(E0c, 2)*\[CurlyEpsilon]c1 +
02587 d*(-(As1*E0cn*fy) +
02588 E0c*(-N0 +
02589 As2*E0c*(\[CurlyEpsilon]c1 + \
02590 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)))),
02591 2) -
02592 2*E0c*(As2*ch*E0c +
02593 As1*d*
02594 E0cn)*(-(b*Power(d, 2)*E0c*fc*
02595 Power(\[CurlyEpsilon]c1 + \
02596 \[CurlyEpsilon]n, 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
02597 4*(-1 + k)*\[CurlyEpsilon]n)) +
02598 6*k*Power(\[CurlyEpsilon]c1,
02599 3)*(As1*
02600 d*(E0cn*fy -
02601 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
02602 E0c*(As2*ch*E0c*\[CurlyEpsilon]c1 +
02603 d*(N0 -
02604 As2*E0c*(\[CurlyEpsilon]c1 + \
02605 \[CurlyEpsilon]n))))), 2))))/((As2*ch*E0c + As1*d*E0cn)*
02606 k) + (2*(-3*As1*d*k*
02607 Power(\[CurlyEpsilon]c1,
02608 2)*(-2*d*
02609 E0cn*(fy +
02610 E0c*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)) +
02611 ch*(-(E0cn*fy) +
02612 E0c*(fy +
02613 E0cn*(\[CurlyEpsilon]c1 + \
02614 \[CurlyEpsilon]n)))) +
02615 ch*(3*d*E0c*k*N0*Power(\[CurlyEpsilon]c1, 2) +
02616 3*As2*d*E0c*k*
02617 Power(\[CurlyEpsilon]c1,
02618 2)*(2*fy +
02619 E0c*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)) +
02620 Sqrt(3)*
02621 Sqrt(k*
02622 Power(\[CurlyEpsilon]c1,
02623 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
02624 Power(-2*As2*ch*
02625 Power(E0c, 2)*\[CurlyEpsilon]c1 +
02626 d*(-(As1*E0cn*fy) +
02627 E0c*(-N0 + As2*
02628 E0c*(\[CurlyEpsilon]c1 + \
02629 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)))),
02630 2) -
02631 2*E0c*(As2*ch*E0c +
02632 As1*d*
02633 E0cn)*(-(b*Power(d, 2)*E0c*fc*
02634 Power(\[CurlyEpsilon]c1 + \
02635 \[CurlyEpsilon]n, 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
02636 4*(-1 + k)*\[CurlyEpsilon]n)) +
02637 6*k*Power(\[CurlyEpsilon]c1,
02638 3)*(As1*
02639 d*(E0cn*fy -
02640 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
02641 E0c*(As2*ch*E0c*\[CurlyEpsilon]c1 +
02642 d*(N0 -
02643 As2*E0c*(\[CurlyEpsilon]c1 + \
02644 \[CurlyEpsilon]n))))))))))/(ch*(As2*ch*E0c + As1*d*E0cn)*k*
02645 Power(\[CurlyEpsilon]c1, 2)) -
02646 2*\[CurlyEpsilon]c1*((6*(-ch + d)*E0c)/
02647 ch + (3*
02648 E0c*(2*As2*ch*E0c - As2*d*E0c +
02649 As1*d*E0cn + (Sqrt(3)*
02650 Power(d,
02651 2)*(Power(As2, 2)*Power(E0c, 3)*k*
02652 Power(\[CurlyEpsilon]c1,
02653 2)*(\[CurlyEpsilon]c1 + \
02654 \[CurlyEpsilon]n) +
02655 As1*E0cn*(2*b*d*E0c*
02656 fc*(\[CurlyEpsilon]c1 + \
02657 \[CurlyEpsilon]n)*(k*(\[CurlyEpsilon]c1 - 2*\[CurlyEpsilon]n) +
02658 2*\[CurlyEpsilon]n) +
02659 k*Power(\[CurlyEpsilon]c1,
02660 2)*(-(E0c*N0) +
02661 As1*(-(E0cn*fy) +
02662 E0c*(fy +
02663 E0cn*(\[CurlyEpsilon]c1 + \
02664 \[CurlyEpsilon]n))))) + As2*E0c*(2*b*ch*E0c*
02665 fc*(\[CurlyEpsilon]c1 + \
02666 \[CurlyEpsilon]n)*(k*(\[CurlyEpsilon]c1 - 2*\[CurlyEpsilon]n) +
02667 2*\[CurlyEpsilon]n) +
02668 k*Power(\[CurlyEpsilon]c1,
02669 2)*(-(E0c*N0) +
02670 As1*(-(E0cn*fy) +
02671 E0c*(fy +
02672 2*E0cn*(\[CurlyEpsilon]c1 + \
02673 \[CurlyEpsilon]n)))))))/Sqrt(k*
02674 Power(\[CurlyEpsilon]c1,
02675 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
02676 Power(-2*As2*ch*
02677 Power(E0c, 2)*\[CurlyEpsilon]c1 +
02678 d*(-(As1*E0cn*fy) +
02679 E0c*(-N0 + As2*
02680 E0c*(\[CurlyEpsilon]c1 + \
02681 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)))),
02682 2) -
02683 2*E0c*(As2*ch*E0c +
02684 As1*d*
02685 E0cn)*(-(b*Power(d, 2)*E0c*fc*
02686 Power(\[CurlyEpsilon]c1 + \
02687 \[CurlyEpsilon]n, 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
02688 4*(-1 + k)*\[CurlyEpsilon]n)) +
02689 6*k*Power(\[CurlyEpsilon]c1,
02690 3)*(As1*
02691 d*(E0cn*fy -
02692 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
02693 E0c*(As2*ch*E0c*\[CurlyEpsilon]c1 +
02694 d*(N0 -
02695 As2*E0c*(\[CurlyEpsilon]c1 + \
02696 \[CurlyEpsilon]n)))))))))/(As2*ch*E0c + As1*d*E0cn)))/(12.*E0c)
02697
02698 ac2 = ((6*(-ch + d)*E0c)/
02699 ch + (3*E0c*(2*As2*ch*E0c - As2*d*E0c +
02700 As1*d*E0cn + (Sqrt(3)*
02701 Power(d,
02702 2)*(Power(As2, 2)*Power(E0c, 3)*k*
02703 Power(\[CurlyEpsilon]c1,
02704 2)*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n) +
02705 As1*E0cn*(2*b*d*E0c*
02706 fc*(\[CurlyEpsilon]c1 + \
02707 \[CurlyEpsilon]n)*(k*(\[CurlyEpsilon]c1 - 2*\[CurlyEpsilon]n) +
02708 2*\[CurlyEpsilon]n) +
02709 k*Power(\[CurlyEpsilon]c1,
02710 2)*(-(E0c*N0) +
02711 As1*(-(E0cn*fy) +
02712 E0c*(fy +
02713 E0cn*(\[CurlyEpsilon]c1 + \
02714 \[CurlyEpsilon]n))))) + As2*E0c*(2*b*ch*E0c*
02715 fc*(\[CurlyEpsilon]c1 + \
02716 \[CurlyEpsilon]n)*(k*(\[CurlyEpsilon]c1 - 2*\[CurlyEpsilon]n) +
02717 2*\[CurlyEpsilon]n) +
02718 k*Power(\[CurlyEpsilon]c1,
02719 2)*(-(E0c*N0) +
02720 As1*(-(E0cn*fy) +
02721 E0c*(fy +
02722 2*E0cn*(\[CurlyEpsilon]c1 + \
02723 \[CurlyEpsilon]n)))))))/
02724 Sqrt(k*Power(\[CurlyEpsilon]c1,
02725 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
02726 Power(-2*As2*ch*
02727 Power(E0c, 2)*\[CurlyEpsilon]c1 +
02728 d*(-(As1*E0cn*fy) +
02729 E0c*(-N0 +
02730 As2*E0c*(\[CurlyEpsilon]c1 + \
02731 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)))),
02732 2) -
02733 2*E0c*(As2*ch*E0c +
02734 As1*d*
02735 E0cn)*(-(b*Power(d, 2)*E0c*fc*
02736 Power(\[CurlyEpsilon]c1 + \
02737 \[CurlyEpsilon]n, 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
02738 4*(-1 + k)*\[CurlyEpsilon]n)) +
02739 6*k*Power(\[CurlyEpsilon]c1,
02740 3)*(As1*
02741 d*(E0cn*fy -
02742 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
02743 E0c*(As2*ch*E0c*\[CurlyEpsilon]c1 +
02744 d*(N0 -
02745 As2*E0c*(\[CurlyEpsilon]c1 + \
02746 \[CurlyEpsilon]n)))))))))/(As2*ch*E0c + As1*d*E0cn) - (Sqrt(3)*
02747 Sqrt(k*Power(\[CurlyEpsilon]c1,
02748 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
02749 Power(-2*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1 +
02750 d*(-(As1*E0cn*fy) +
02751 E0c*(-N0 +
02752 As2*E0c*(\[CurlyEpsilon]c1 + \
02753 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)))),
02754 2) - 2*
02755 E0c*(As2*ch*E0c +
02756 As1*d*E0cn)*(-(b*Power(d, 2)*E0c*fc*
02757 Power(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n,
02758 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
02759 4*(-1 + k)*\[CurlyEpsilon]n)) +
02760 6*k*Power(\[CurlyEpsilon]c1,
02761 3)*(As1*
02762 d*(E0cn*fy -
02763 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
02764 E0c*(As2*ch*E0c*\[CurlyEpsilon]c1 +
02765 d*(N0 -
02766 As2*E0c*(\[CurlyEpsilon]c1 + \
02767 \[CurlyEpsilon]n)))))))*((3*
02768 Power(E0c,
02769 2)*(Power(As2*(2*ch - d)*E0c + As1*d*E0cn, 2)*k*
02770 Power(\[CurlyEpsilon]c1, 2) -
02771 2*(As2*ch*E0c +
02772 As1*d*E0cn)*(2*As2*(ch - d)*E0c*k*
02773 Power(\[CurlyEpsilon]c1, 2) +
02774 b*Power(d, 2)*
02775 fc*((-2 + k)*\[CurlyEpsilon]c1 +
02776 4*(-1 + k)*\[CurlyEpsilon]n))))/(3*k*
02777 Power(\[CurlyEpsilon]c1, 2)*
02778 Power(-2*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1 +
02779 d*(-(As1*E0cn*fy) +
02780 E0c*(-N0 +
02781 As2*E0c*(\[CurlyEpsilon]c1 + \
02782 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)))),
02783 2) - 2*
02784 E0c*(As2*ch*E0c +
02785 As1*d*E0cn)*(-(b*Power(d, 2)*E0c*fc*
02786 Power(\[CurlyEpsilon]c1 + \
02787 \[CurlyEpsilon]n, 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
02788 4*(-1 + k)*\[CurlyEpsilon]n)) +
02789 6*k*Power(\[CurlyEpsilon]c1,
02790 3)*(As1*
02791 d*(E0cn*fy -
02792 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
02793 E0c*(As2*ch*E0c*\[CurlyEpsilon]c1 +
02794 d*(N0 -
02795 As2*E0c*(\[CurlyEpsilon]c1 + \
02796 \[CurlyEpsilon]n)))))) -
02797 Power(6*E0c*(As2*(2*ch - d)*E0c + As1*d*E0cn)*k*
02798 Power(\[CurlyEpsilon]c1,
02799 2)*(-2*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1 +
02800 d*(-(As1*E0cn*fy) +
02801 E0c*(-N0 +
02802 As2*E0c*(\[CurlyEpsilon]c1 + \
02803 \[CurlyEpsilon]n) + As1*(fy +
02804 E0cn*(-\[CurlyEpsilon]c1 + \
02805 \[CurlyEpsilon]n))))) + 2*E0c*(As2*ch*E0c +
02806 As1*d*E0cn)*(-6*b*Power(d, 2)*E0c*
02807 fc*(\[CurlyEpsilon]c1 + \
02808 \[CurlyEpsilon]n)*(k*(\[CurlyEpsilon]c1 - 2*\[CurlyEpsilon]n) +
02809 2*\[CurlyEpsilon]n) -
02810 6*k*Power(\[CurlyEpsilon]c1,
02811 2)*(As1*
02812 d*(-(E0cn*fy) +
02813 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
02814 E0c*(-2*As2*ch*E0c*\[CurlyEpsilon]c1 +
02815 d*(-N0 + As2*
02816 E0c*(2*\[CurlyEpsilon]c1 + \
02817 \[CurlyEpsilon]n))))),
02818 2)/(4.*
02819 Power(3*k*Power(\[CurlyEpsilon]c1, 2)*
02820 Power(-2*As2*ch*
02821 Power(E0c, 2)*\[CurlyEpsilon]c1 +
02822 d*(-(As1*E0cn*fy) +
02823 E0c*(-N0 +
02824 As2*E0c*(\[CurlyEpsilon]c1 + \
02825 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)))),
02826 2) -
02827 2*E0c*(As2*ch*E0c +
02828 As1*d*
02829 E0cn)*(-(b*Power(d, 2)*E0c*fc*
02830 Power(\[CurlyEpsilon]c1 + \
02831 \[CurlyEpsilon]n, 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
02832 4*(-1 + k)*\[CurlyEpsilon]n)) +
02833 6*k*Power(\[CurlyEpsilon]c1,
02834 3)*(As1*
02835 d*(E0cn*fy -
02836 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
02837 E0c*(As2*ch*E0c*\[CurlyEpsilon]c1 +
02838 d*(N0 -
02839 As2*E0c*(\[CurlyEpsilon]c1 + \
02840 \[CurlyEpsilon]n))))), 2))))/((As2*ch*E0c + As1*d*E0cn)*
02841 k*\[CurlyEpsilon]c1))/(6.*E0c)
02842
02843 ac3 = (Sqrt(k*
02844 Power(\[CurlyEpsilon]c1,
02845 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
02846 Power(-2*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1 +
02847 d*(-(As1*E0cn*fy) +
02848 E0c*(-N0 +
02849 As2*E0c*(\[CurlyEpsilon]c1 + \
02850 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)))),
02851 2) - 2*
02852 E0c*(As2*ch*E0c +
02853 As1*d*E0cn)*(-(b*Power(d, 2)*E0c*fc*
02854 Power(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n,
02855 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
02856 4*(-1 + k)*\[CurlyEpsilon]n)) +
02857 6*k*Power(\[CurlyEpsilon]c1,
02858 3)*(As1*
02859 d*(E0cn*fy - E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
02860 E0c*(As2*ch*E0c*\[CurlyEpsilon]c1 +
02861 d*(N0 -
02862 As2*E0c*(\[CurlyEpsilon]c1 + \
02863 \[CurlyEpsilon]n)))))))*((3*
02864 Power(E0c,
02865 2)*(Power(As2*(2*ch - d)*E0c + As1*d*E0cn, 2)*k*
02866 Power(\[CurlyEpsilon]c1, 2) -
02867 2*(As2*ch*E0c +
02868 As1*d*E0cn)*(2*As2*(ch - d)*E0c*k*
02869 Power(\[CurlyEpsilon]c1, 2) +
02870 b*Power(d, 2)*
02871 fc*((-2 + k)*\[CurlyEpsilon]c1 +
02872 4*(-1 + k)*\[CurlyEpsilon]n))))/(3*k*
02873 Power(\[CurlyEpsilon]c1, 2)*
02874 Power(-2*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1 +
02875 d*(-(As1*E0cn*fy) +
02876 E0c*(-N0 +
02877 As2*E0c*(\[CurlyEpsilon]c1 + \
02878 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)))),
02879 2) - 2*
02880 E0c*(As2*ch*E0c +
02881 As1*d*E0cn)*(-(b*Power(d, 2)*E0c*fc*
02882 Power(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n,
02883 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
02884 4*(-1 + k)*\[CurlyEpsilon]n)) +
02885 6*k*Power(\[CurlyEpsilon]c1,
02886 3)*(As1*
02887 d*(E0cn*fy -
02888 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
02889 E0c*(As2*ch*E0c*\[CurlyEpsilon]c1 +
02890 d*(N0 -
02891 As2*E0c*(\[CurlyEpsilon]c1 + \
02892 \[CurlyEpsilon]n)))))) -
02893 Power(6*E0c*(As2*(2*ch - d)*E0c + As1*d*E0cn)*k*
02894 Power(\[CurlyEpsilon]c1,
02895 2)*(-2*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1 +
02896 d*(-(As1*E0cn*fy) +
02897 E0c*(-N0 +
02898 As2*E0c*(\[CurlyEpsilon]c1 + \
02899 \[CurlyEpsilon]n) + As1*(fy +
02900 E0cn*(-\[CurlyEpsilon]c1 + \
02901 \[CurlyEpsilon]n))))) +
02902 2*E0c*(As2*ch*E0c +
02903 As1*d*E0cn)*(-6*b*Power(d, 2)*E0c*
02904 fc*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)*(k*(\
02905 \[CurlyEpsilon]c1 - 2*\[CurlyEpsilon]n) + 2*\[CurlyEpsilon]n) -
02906 6*k*
02907 Power(\[CurlyEpsilon]c1,
02908 2)*(As1*
02909 d*(-(E0cn*fy) +
02910 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
02911 E0c*(-2*As2*ch*E0c*\[CurlyEpsilon]c1 +
02912 d*(-N0 +
02913 As2*E0c*(2*\[CurlyEpsilon]c1 + \
02914 \[CurlyEpsilon]n))))),
02915 2)/(4.*Power(3*k*Power(\[CurlyEpsilon]c1, 2)*
02916 Power(-2*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1 +
02917 d*(-(As1*E0cn*fy) +
02918 E0c*(-N0 +
02919 As2*E0c*(\[CurlyEpsilon]c1 + \
02920 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)))),
02921 2) - 2*
02922 E0c*(As2*ch*E0c +
02923 As1*d*E0cn)*(-(b*Power(d, 2)*E0c*fc*
02924 Power(\[CurlyEpsilon]c1 + \
02925 \[CurlyEpsilon]n, 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
02926 4*(-1 + k)*\[CurlyEpsilon]n)) +
02927 6*k*Power(\[CurlyEpsilon]c1,
02928 3)*(As1*
02929 d*(E0cn*fy -
02930 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
02931 E0c*(As2*ch*E0c*\[CurlyEpsilon]c1 +
02932 d*(N0 -
02933 As2*E0c*(\[CurlyEpsilon]c1 + \
02934 \[CurlyEpsilon]n))))), 2))))/(4.*Sqrt(3)*E0c*(As2*ch*E0c + As1*d*E0cn)*k*
02935 Power(\[CurlyEpsilon]c1, 2))
02936
02937 \[CurlyEpsilon]c = (-ac2 + Sqrt(Power(ac2, 2) - 4*ac1*ac3))/(2.*ac3)
02938
02939 \[CurlyEpsilon]chr5 = \[CurlyEpsilon]c
02940
02941 ac1 = (25*Sqrt(3)*
02942 Sqrt(k*Power(\[CurlyEpsilon]c1,
02943 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
02944 Power((-5*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1)/2. +
02945 d*(-(As1*E0cn*fy) +
02946 E0c*(-N0 +
02947 As2*E0c*((5*\[CurlyEpsilon]c1)/
02948 4. + \[CurlyEpsilon]n) +
02949 As1*(fy +
02950 E0cn*((-5*\[CurlyEpsilon]c1)/
02951 4. + \[CurlyEpsilon]n)))), 2) -
02952 2*E0c*(As2*ch*E0c +
02953 As1*d*E0cn)*(-(b*Power(d, 2)*E0c*fc*
02954 Power(5*\[CurlyEpsilon]c1 +
02955 4*\[CurlyEpsilon]n,
02956 2)*((-1 + 4*k)*\[CurlyEpsilon]c1 -
02957 4*(-1 + k)*\[CurlyEpsilon]n))/
02958 16. + (15*k*
02959 Power(\[CurlyEpsilon]c1,
02960 3)*(As1*
02961 d*(E0cn*fy -
02962 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
02963 E0c*((5*As2*ch*E0c*\[CurlyEpsilon]c1)/4. +
02964 d*(N0 - (As2*
02965 E0c*(5*\[CurlyEpsilon]c1 +
02966 4*\[CurlyEpsilon]n))/4.))))/
02967 2.)))*(-Power(2*
02968 E0c*(As2*ch*E0c +
02969 As1*d*E0cn)*((-3*b*Power(d, 2)*E0c*
02970 fc*(5*\[CurlyEpsilon]c1 +
02971 4*\[CurlyEpsilon]n)*(\[CurlyEpsilon]c1 +
02972 k*\[CurlyEpsilon]c1 +
02973 4*\[CurlyEpsilon]n -
02974 4*k*\[CurlyEpsilon]n))/4. -
02975 3*k*Power(\[CurlyEpsilon]c1,
02976 2)*(E0c*(-2*d*N0 -
02977 5*As2*ch*E0c*\[CurlyEpsilon]c1 +
02978 5*As2*d*E0c*\[CurlyEpsilon]c1 +
02979 2*As2*d*E0c*\[CurlyEpsilon]n) +
02980 2*As1*
02981 d*(E0c*fy - E0cn*fy +
02982 E0c*E0cn*\[CurlyEpsilon]n))) +
02983 6*E0c*(As2*(2*ch - d)*E0c + As1*d*E0cn)*k*
02984 Power(\[CurlyEpsilon]c1,
02985 2)*((-5*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1)/2. +
02986 d*(-(As1*E0cn*fy) +
02987 E0c*(-N0 +
02988 As2*E0c*((5*\[CurlyEpsilon]c1)/
02989 4. + \[CurlyEpsilon]n) +
02990 As1*(fy +
02991 E0cn*((-5*\[CurlyEpsilon]c1)/
02992 4. + \[CurlyEpsilon]n))))),
02993 2)/(4.*Power(3*k*Power(\[CurlyEpsilon]c1, 2)*
02994 Power((-5*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1)/
02995 2. + d*(-(As1*E0cn*fy) +
02996 E0c*(-N0 +
02997 As2*E0c*((5*\[CurlyEpsilon]c1)/
02998 4. + \[CurlyEpsilon]n) +
02999 As1*(fy +
03000 E0cn*((-5*\[CurlyEpsilon]c1)/
03001 4. + \[CurlyEpsilon]n)))), 2) -
03002 2*E0c*(As2*ch*E0c +
03003 As1*d*
03004 E0cn)*(-(b*Power(d, 2)*E0c*fc*
03005 Power(5*\[CurlyEpsilon]c1 +
03006 4*\[CurlyEpsilon]n,
03007 2)*((-1 + 4*k)*\[CurlyEpsilon]c1 -
03008 4*(-1 + k)*\[CurlyEpsilon]n))/
03009 16. + (15*k*
03010 Power(\[CurlyEpsilon]c1,
03011 3)*(As1*
03012 d*(E0cn*fy -
03013 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
03014 E0c*((5*As2*ch*E0c*\[CurlyEpsilon]c1)/
03015 4. +
03016 d*(N0 - (As2*
03017 E0c*(5*\[CurlyEpsilon]c1 +
03018 4*\[CurlyEpsilon]n))/4.))))/2.),
03019 2)) + (3*
03020 Power(E0c,
03021 2)*(Power(As2*(2*ch - d)*E0c + As1*d*E0cn, 2)*k*
03022 Power(\[CurlyEpsilon]c1, 2) -
03023 2*(As2*ch*E0c +
03024 As1*d*E0cn)*(2*As2*(ch - d)*E0c*k*
03025 Power(\[CurlyEpsilon]c1, 2) +
03026 b*Power(d, 2)*
03027 fc*((-3 + 2*k)*\[CurlyEpsilon]c1 +
03028 4*(-1 + k)*\[CurlyEpsilon]n))))/(3*k*
03029 Power(\[CurlyEpsilon]c1, 2)*
03030 Power((-5*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1)/2. +
03031 d*(-(As1*E0cn*fy) +
03032 E0c*(-N0 +
03033 As2*E0c*((5*\[CurlyEpsilon]c1)/
03034 4. + \[CurlyEpsilon]n) +
03035 As1*(fy +
03036 E0cn*((-5*\[CurlyEpsilon]c1)/
03037 4. + \[CurlyEpsilon]n)))), 2) -
03038 2*E0c*(As2*ch*E0c +
03039 As1*d*E0cn)*(-(b*Power(d, 2)*E0c*fc*
03040 Power(5*\[CurlyEpsilon]c1 +
03041 4*\[CurlyEpsilon]n,
03042 2)*((-1 + 4*k)*\[CurlyEpsilon]c1 -
03043 4*(-1 + k)*\[CurlyEpsilon]n))/
03044 16. + (15*k*
03045 Power(\[CurlyEpsilon]c1,
03046 3)*(As1*
03047 d*(E0cn*fy -
03048 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
03049 E0c*((5*As2*ch*E0c*\[CurlyEpsilon]c1)/4. +
03050 d*(N0 - (As2*
03051 E0c*(5*\[CurlyEpsilon]c1 +
03052 4*\[CurlyEpsilon]n))/4.))))/2.))) -
03053 30*E0c*k*\[CurlyEpsilon]c1*(8*As2*ch*E0c - 4*As2*d*E0c +
03054 4*As1*d*E0cn + (Sqrt(3)*
03055 Power(d,
03056 2)*(Power(As2, 2)*Power(E0c, 3)*k*
03057 Power(\[CurlyEpsilon]c1,
03058 2)*(5*\[CurlyEpsilon]c1 + 4*\[CurlyEpsilon]n) +
03059 As1*E0cn*(b*d*E0c*
03060 fc*(5*\[CurlyEpsilon]c1 +
03061 4*\[CurlyEpsilon]n)*(\[CurlyEpsilon]c1 +
03062 k*\[CurlyEpsilon]c1 +
03063 4*\[CurlyEpsilon]n -
03064 4*k*\[CurlyEpsilon]n) +
03065 k*Power(\[CurlyEpsilon]c1,
03066 2)*(-4*E0c*N0 +
03067 As1*(4*E0c*fy - 4*E0cn*fy +
03068 5*E0c*E0cn*\[CurlyEpsilon]c1 +
03069 4*E0c*E0cn*\[CurlyEpsilon]n))) +
03070 As2*E0c*(b*ch*E0c*
03071 fc*(5*\[CurlyEpsilon]c1 +
03072 4*\[CurlyEpsilon]n)*(\[CurlyEpsilon]c1 +
03073 k*\[CurlyEpsilon]c1 +
03074 4*\[CurlyEpsilon]n -
03075 4*k*\[CurlyEpsilon]n) +
03076 2*k*Power(\[CurlyEpsilon]c1,
03077 2)*(-2*E0c*N0 +
03078 As1*(2*E0c*fy - 2*E0cn*fy +
03079 5*E0c*E0cn*\[CurlyEpsilon]c1 +
03080 4*E0c*E0cn*\[CurlyEpsilon]n)))))/
03081 Sqrt(k*Power(\[CurlyEpsilon]c1,
03082 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
03083 Power((-5*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1)/
03084 2. +
03085 d*(-(As1*E0cn*fy) +
03086 E0c*(-N0 +
03087 As2*E0c*((5*\[CurlyEpsilon]c1)/
03088 4. + \[CurlyEpsilon]n) +
03089 As1*(fy +
03090 E0cn*((-5*\[CurlyEpsilon]c1)/
03091 4. + \[CurlyEpsilon]n)))), 2) -
03092 2*E0c*(As2*ch*E0c +
03093 As1*d*E0cn)*(-(b*Power(d, 2)*E0c*fc*
03094 Power(5*\[CurlyEpsilon]c1 +
03095 4*\[CurlyEpsilon]n,
03096 2)*((-1 + 4*k)*\[CurlyEpsilon]c1 -
03097 4*(-1 + k)*\[CurlyEpsilon]n))/
03098 16. + (15*k*
03099 Power(\[CurlyEpsilon]c1,
03100 3)*(As1*
03101 d*(E0cn*fy -
03102 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
03103 E0c*((5*As2*ch*E0c*\[CurlyEpsilon]c1)/
03104 4. + d*(N0 - (As2*
03105 E0c*(5*\[CurlyEpsilon]c1 +
03106 4*\[CurlyEpsilon]n))/4.))))/
03107 2.)))) + (32*((15*As2*ch*Power(E0c, 2)*k*
03108 Power(\[CurlyEpsilon]c1, 3))/2. -
03109 3*d*k*Power(\[CurlyEpsilon]c1,
03110 2)*(-(As1*E0cn*fy) +
03111 E0c*(-N0 +
03112 As2*E0c*((5*\[CurlyEpsilon]c1)/
03113 4. + \[CurlyEpsilon]n) +
03114 As1*(fy +
03115 E0cn*((-5*\[CurlyEpsilon]c1)/
03116 4. + \[CurlyEpsilon]n)))) +
03117 Sqrt(3)*
03118 Sqrt(k*Power(\[CurlyEpsilon]c1,
03119 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
03120 Power((-5*As2*ch*
03121 Power(E0c, 2)*\[CurlyEpsilon]c1)/2. +
03122 d*(-(As1*E0cn*fy) +
03123 E0c*(-N0 +
03124 As2*E0c*((5*\[CurlyEpsilon]c1)/
03125 4. + \[CurlyEpsilon]n) +
03126 As1*(fy +
03127 E0cn*((-5*\[CurlyEpsilon]c1)/
03128 4. + \[CurlyEpsilon]n)))), 2) -
03129 2*E0c*(As2*ch*E0c +
03130 As1*d*
03131 E0cn)*(-(b*Power(d, 2)*E0c*fc*
03132 Power(5*\[CurlyEpsilon]c1 +
03133 4*\[CurlyEpsilon]n,
03134 2)*((-1 + 4*k)*\[CurlyEpsilon]c1 -
03135 4*(-1 + k)*\[CurlyEpsilon]n))/
03136 16. + (15*k*
03137 Power(\[CurlyEpsilon]c1,
03138 3)*(As1*
03139 d*(E0cn*fy -
03140 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
03141 E0c*((5*As2*ch*E0c*\[CurlyEpsilon]c1)/
03142 4. +
03143 d*(N0 - (As2*
03144 E0c*(5*\[CurlyEpsilon]c1 +
03145 4*\[CurlyEpsilon]n))/4.))))/2.)))))/
03146 Power(\[CurlyEpsilon]c1, 2))/(192.*E0c*(As2*ch*E0c + As1*d*E0cn)*
03147 k)
03148
03149 ac2 = (-5*Sqrt(3)*
03150 Sqrt(k*Power(\[CurlyEpsilon]c1,
03151 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
03152 Power((-5*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1)/2. +
03153 d*(-(As1*E0cn*fy) +
03154 E0c*(-N0 +
03155 As2*E0c*((5*\[CurlyEpsilon]c1)/
03156 4. + \[CurlyEpsilon]n) +
03157 As1*(fy +
03158 E0cn*((-5*\[CurlyEpsilon]c1)/
03159 4. + \[CurlyEpsilon]n)))), 2) -
03160 2*E0c*(As2*ch*E0c +
03161 As1*d*E0cn)*(-(b*Power(d, 2)*E0c*fc*
03162 Power(5*\[CurlyEpsilon]c1 +
03163 4*\[CurlyEpsilon]n,
03164 2)*((-1 + 4*k)*\[CurlyEpsilon]c1 -
03165 4*(-1 + k)*\[CurlyEpsilon]n))/
03166 16. + (15*k*
03167 Power(\[CurlyEpsilon]c1,
03168 3)*(As1*
03169 d*(E0cn*fy -
03170 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
03171 E0c*((5*As2*ch*E0c*\[CurlyEpsilon]c1)/4. +
03172 d*(N0 - (As2*
03173 E0c*(5*\[CurlyEpsilon]c1 +
03174 4*\[CurlyEpsilon]n))/4.))))/
03175 2.)))*(-Power(2*
03176 E0c*(As2*ch*E0c +
03177 As1*d*E0cn)*((-3*b*Power(d, 2)*E0c*
03178 fc*(5*\[CurlyEpsilon]c1 +
03179 4*\[CurlyEpsilon]n)*(\[CurlyEpsilon]c1 +
03180 k*\[CurlyEpsilon]c1 +
03181 4*\[CurlyEpsilon]n -
03182 4*k*\[CurlyEpsilon]n))/4. -
03183 3*k*Power(\[CurlyEpsilon]c1,
03184 2)*(E0c*(-2*d*N0 -
03185 5*As2*ch*E0c*\[CurlyEpsilon]c1 +
03186 5*As2*d*E0c*\[CurlyEpsilon]c1 +
03187 2*As2*d*E0c*\[CurlyEpsilon]n) +
03188 2*As1*
03189 d*(E0c*fy - E0cn*fy +
03190 E0c*E0cn*\[CurlyEpsilon]n))) +
03191 6*E0c*(As2*(2*ch - d)*E0c + As1*d*E0cn)*k*
03192 Power(\[CurlyEpsilon]c1,
03193 2)*((-5*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1)/2. +
03194 d*(-(As1*E0cn*fy) +
03195 E0c*(-N0 +
03196 As2*E0c*((5*\[CurlyEpsilon]c1)/
03197 4. + \[CurlyEpsilon]n) +
03198 As1*(fy +
03199 E0cn*((-5*\[CurlyEpsilon]c1)/
03200 4. + \[CurlyEpsilon]n))))),
03201 2)/(4.*Power(3*k*Power(\[CurlyEpsilon]c1, 2)*
03202 Power((-5*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1)/
03203 2. + d*(-(As1*E0cn*fy) +
03204 E0c*(-N0 +
03205 As2*E0c*((5*\[CurlyEpsilon]c1)/
03206 4. + \[CurlyEpsilon]n) +
03207 As1*(fy +
03208 E0cn*((-5*\[CurlyEpsilon]c1)/
03209 4. + \[CurlyEpsilon]n)))), 2) -
03210 2*E0c*(As2*ch*E0c +
03211 As1*d*
03212 E0cn)*(-(b*Power(d, 2)*E0c*fc*
03213 Power(5*\[CurlyEpsilon]c1 +
03214 4*\[CurlyEpsilon]n,
03215 2)*((-1 + 4*k)*\[CurlyEpsilon]c1 -
03216 4*(-1 + k)*\[CurlyEpsilon]n))/
03217 16. + (15*k*
03218 Power(\[CurlyEpsilon]c1,
03219 3)*(As1*
03220 d*(E0cn*fy -
03221 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
03222 E0c*((5*As2*ch*E0c*\[CurlyEpsilon]c1)/
03223 4. +
03224 d*(N0 - (As2*
03225 E0c*(5*\[CurlyEpsilon]c1 +
03226 4*\[CurlyEpsilon]n))/4.))))/2.),
03227 2)) + (3*
03228 Power(E0c,
03229 2)*(Power(As2*(2*ch - d)*E0c + As1*d*E0cn, 2)*k*
03230 Power(\[CurlyEpsilon]c1, 2) -
03231 2*(As2*ch*E0c +
03232 As1*d*E0cn)*(2*As2*(ch - d)*E0c*k*
03233 Power(\[CurlyEpsilon]c1, 2) +
03234 b*Power(d, 2)*
03235 fc*((-3 + 2*k)*\[CurlyEpsilon]c1 +
03236 4*(-1 + k)*\[CurlyEpsilon]n))))/(3*k*
03237 Power(\[CurlyEpsilon]c1, 2)*
03238 Power((-5*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1)/2. +
03239 d*(-(As1*E0cn*fy) +
03240 E0c*(-N0 +
03241 As2*E0c*((5*\[CurlyEpsilon]c1)/
03242 4. + \[CurlyEpsilon]n) +
03243 As1*(fy +
03244 E0cn*((-5*\[CurlyEpsilon]c1)/
03245 4. + \[CurlyEpsilon]n)))), 2) -
03246 2*E0c*(As2*ch*E0c +
03247 As1*d*E0cn)*(-(b*Power(d, 2)*E0c*fc*
03248 Power(5*\[CurlyEpsilon]c1 +
03249 4*\[CurlyEpsilon]n,
03250 2)*((-1 + 4*k)*\[CurlyEpsilon]c1 -
03251 4*(-1 + k)*\[CurlyEpsilon]n))/
03252 16. + (15*k*
03253 Power(\[CurlyEpsilon]c1,
03254 3)*(As1*
03255 d*(E0cn*fy -
03256 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
03257 E0c*((5*As2*ch*E0c*\[CurlyEpsilon]c1)/4. +
03258 d*(N0 - (As2*
03259 E0c*(5*\[CurlyEpsilon]c1 +
03260 4*\[CurlyEpsilon]n))/4.))))/2.))) +
03261 3*E0c*k*\[CurlyEpsilon]c1*(8*As2*ch*E0c - 4*As2*d*E0c +
03262 4*As1*d*E0cn + (Sqrt(3)*
03263 Power(d,
03264 2)*(Power(As2, 2)*Power(E0c, 3)*k*
03265 Power(\[CurlyEpsilon]c1,
03266 2)*(5*\[CurlyEpsilon]c1 + 4*\[CurlyEpsilon]n) +
03267 As1*E0cn*(b*d*E0c*
03268 fc*(5*\[CurlyEpsilon]c1 +
03269 4*\[CurlyEpsilon]n)*(\[CurlyEpsilon]c1 +
03270 k*\[CurlyEpsilon]c1 +
03271 4*\[CurlyEpsilon]n -
03272 4*k*\[CurlyEpsilon]n) +
03273 k*Power(\[CurlyEpsilon]c1,
03274 2)*(-4*E0c*N0 +
03275 As1*(4*E0c*fy - 4*E0cn*fy +
03276 5*E0c*E0cn*\[CurlyEpsilon]c1 +
03277 4*E0c*E0cn*\[CurlyEpsilon]n))) +
03278 As2*E0c*(b*ch*E0c*
03279 fc*(5*\[CurlyEpsilon]c1 +
03280 4*\[CurlyEpsilon]n)*(\[CurlyEpsilon]c1 +
03281 k*\[CurlyEpsilon]c1 +
03282 4*\[CurlyEpsilon]n -
03283 4*k*\[CurlyEpsilon]n) +
03284 2*k*Power(\[CurlyEpsilon]c1,
03285 2)*(-2*E0c*N0 +
03286 As1*(2*E0c*fy - 2*E0cn*fy +
03287 5*E0c*E0cn*\[CurlyEpsilon]c1 +
03288 4*E0c*E0cn*\[CurlyEpsilon]n)))))/
03289 Sqrt(k*Power(\[CurlyEpsilon]c1,
03290 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
03291 Power((-5*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1)/
03292 2. +
03293 d*(-(As1*E0cn*fy) +
03294 E0c*(-N0 +
03295 As2*E0c*((5*\[CurlyEpsilon]c1)/
03296 4. + \[CurlyEpsilon]n) +
03297 As1*(fy +
03298 E0cn*((-5*\[CurlyEpsilon]c1)/
03299 4. + \[CurlyEpsilon]n)))), 2) -
03300 2*E0c*(As2*ch*E0c +
03301 As1*d*E0cn)*(-(b*Power(d, 2)*E0c*fc*
03302 Power(5*\[CurlyEpsilon]c1 +
03303 4*\[CurlyEpsilon]n,
03304 2)*((-1 + 4*k)*\[CurlyEpsilon]c1 -
03305 4*(-1 + k)*\[CurlyEpsilon]n))/
03306 16. + (15*k*
03307 Power(\[CurlyEpsilon]c1,
03308 3)*(As1*
03309 d*(E0cn*fy -
03310 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
03311 E0c*((5*As2*ch*E0c*\[CurlyEpsilon]c1)/
03312 4. + d*(N0 - (As2*
03313 E0c*(5*\[CurlyEpsilon]c1 +
03314 4*\[CurlyEpsilon]n))/4.))))/
03315 2.)))))/(24.*E0c*(As2*ch*E0c + As1*d*E0cn)*
03316 k*\[CurlyEpsilon]c1)
03317
03318 ac3 = (Sqrt(k*
03319 Power(\[CurlyEpsilon]c1,
03320 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
03321 Power((-5*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1)/2. +
03322 d*(-(As1*E0cn*fy) +
03323 E0c*(-N0 +
03324 As2*E0c*((5*\[CurlyEpsilon]c1)/
03325 4. + \[CurlyEpsilon]n) +
03326 As1*(fy +
03327 E0cn*((-5*\[CurlyEpsilon]c1)/
03328 4. + \[CurlyEpsilon]n)))), 2) -
03329 2*E0c*(As2*ch*E0c +
03330 As1*d*E0cn)*(-(b*Power(d, 2)*E0c*fc*
03331 Power(5*\[CurlyEpsilon]c1 + 4*\[CurlyEpsilon]n,
03332 2)*((-1 + 4*k)*\[CurlyEpsilon]c1 -
03333 4*(-1 + k)*\[CurlyEpsilon]n))/
03334 16. + (15*k*
03335 Power(\[CurlyEpsilon]c1,
03336 3)*(As1*
03337 d*(E0cn*fy -
03338 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
03339 E0c*((5*As2*ch*E0c*\[CurlyEpsilon]c1)/4. +
03340 d*(N0 - (As2*
03341 E0c*(5*\[CurlyEpsilon]c1 +
03342 4*\[CurlyEpsilon]n))/4.))))/
03343 2.)))*(-Power(2*
03344 E0c*(As2*ch*E0c +
03345 As1*d*E0cn)*((-3*b*Power(d, 2)*E0c*
03346 fc*(5*\[CurlyEpsilon]c1 +
03347 4*\[CurlyEpsilon]n)*(\[CurlyEpsilon]c1 +
03348 k*\[CurlyEpsilon]c1 +
03349 4*\[CurlyEpsilon]n -
03350 4*k*\[CurlyEpsilon]n))/4. -
03351 3*k*Power(\[CurlyEpsilon]c1,
03352 2)*(E0c*(-2*d*N0 -
03353 5*As2*ch*E0c*\[CurlyEpsilon]c1 +
03354 5*As2*d*E0c*\[CurlyEpsilon]c1 +
03355 2*As2*d*E0c*\[CurlyEpsilon]n) +
03356 2*As1*
03357 d*(E0c*fy - E0cn*fy +
03358 E0c*E0cn*\[CurlyEpsilon]n))) +
03359 6*E0c*(As2*(2*ch - d)*E0c + As1*d*E0cn)*k*
03360 Power(\[CurlyEpsilon]c1,
03361 2)*((-5*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1)/2. +
03362 d*(-(As1*E0cn*fy) +
03363 E0c*(-N0 +
03364 As2*E0c*((5*\[CurlyEpsilon]c1)/
03365 4. + \[CurlyEpsilon]n) +
03366 As1*(fy +
03367 E0cn*((-5*\[CurlyEpsilon]c1)/
03368 4. + \[CurlyEpsilon]n))))),
03369 2)/(4.*Power(3*k*Power(\[CurlyEpsilon]c1, 2)*
03370 Power((-5*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1)/
03371 2. + d*(-(As1*E0cn*fy) +
03372 E0c*(-N0 +
03373 As2*E0c*((5*\[CurlyEpsilon]c1)/
03374 4. + \[CurlyEpsilon]n) +
03375 As1*(fy +
03376 E0cn*((-5*\[CurlyEpsilon]c1)/
03377 4. + \[CurlyEpsilon]n)))), 2) -
03378 2*E0c*(As2*ch*E0c +
03379 As1*d*E0cn)*(-(b*Power(d, 2)*E0c*fc*
03380 Power(5*\[CurlyEpsilon]c1 +
03381 4*\[CurlyEpsilon]n,
03382 2)*((-1 + 4*k)*\[CurlyEpsilon]c1 -
03383 4*(-1 + k)*\[CurlyEpsilon]n))/
03384 16. + (15*k*
03385 Power(\[CurlyEpsilon]c1,
03386 3)*(As1*
03387 d*(E0cn*fy -
03388 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
03389 E0c*((5*As2*ch*E0c*\[CurlyEpsilon]c1)/
03390 4. +
03391 d*(N0 - (As2*
03392 E0c*(5*\[CurlyEpsilon]c1 +
03393 4*\[CurlyEpsilon]n))/4.))))/2.),
03394 2)) + (3*
03395 Power(E0c,
03396 2)*(Power(As2*(2*ch - d)*E0c + As1*d*E0cn, 2)*k*
03397 Power(\[CurlyEpsilon]c1, 2) -
03398 2*(As2*ch*E0c +
03399 As1*d*E0cn)*(2*As2*(ch - d)*E0c*k*
03400 Power(\[CurlyEpsilon]c1, 2) +
03401 b*Power(d, 2)*
03402 fc*((-3 + 2*k)*\[CurlyEpsilon]c1 +
03403 4*(-1 + k)*\[CurlyEpsilon]n))))/(3*k*
03404 Power(\[CurlyEpsilon]c1, 2)*
03405 Power((-5*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c1)/2. +
03406 d*(-(As1*E0cn*fy) +
03407 E0c*(-N0 +
03408 As2*E0c*((5*\[CurlyEpsilon]c1)/
03409 4. + \[CurlyEpsilon]n) +
03410 As1*(fy +
03411 E0cn*((-5*\[CurlyEpsilon]c1)/
03412 4. + \[CurlyEpsilon]n)))), 2) -
03413 2*E0c*(As2*ch*E0c +
03414 As1*d*E0cn)*(-(b*Power(d, 2)*E0c*fc*
03415 Power(5*\[CurlyEpsilon]c1 +
03416 4*\[CurlyEpsilon]n,
03417 2)*((-1 + 4*k)*\[CurlyEpsilon]c1 -
03418 4*(-1 + k)*\[CurlyEpsilon]n))/
03419 16. + (15*k*
03420 Power(\[CurlyEpsilon]c1,
03421 3)*(As1*
03422 d*(E0cn*fy -
03423 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
03424 E0c*((5*As2*ch*E0c*\[CurlyEpsilon]c1)/4. +
03425 d*(N0 - (As2*
03426 E0c*(5*\[CurlyEpsilon]c1 +
03427 4*\[CurlyEpsilon]n))/4.))))/
03428 2.))))/(4.*Sqrt(3)*E0c*(As2*ch*E0c + As1*d*E0cn)*k*
03429 Power(\[CurlyEpsilon]c1, 2))
03430
03431 If(0 > Power(ac2, 2) - 4*ac1*ac3 +
03432 4*ac3*\[CurlyEpsilon]s1lim, \[CurlyEpsilon]cs11 = -1, \
03433 \[CurlyEpsilon]cs11 = -((ac2 +
03434 Sqrt(Power(ac2, 2) - 4*ac1*ac3 +
03435 4*ac3*\[CurlyEpsilon]s1lim))/(2.*ac3)))
03436
03437 mhr5 = (-6*As2*
03438 E0c*(-2*ch +
03439 h)*(\[CurlyEpsilon]c - (ch*\[CurlyEpsilon]c)/
03440 d + \[CurlyEpsilon]n + (ch*(6*As2*ch*Power(E0c, 2)*
03441 k*\[CurlyEpsilon]c*Power(\[CurlyEpsilon]c1, 2) -
03442 3*d*k*Power(\[CurlyEpsilon]c1,
03443 2)*(-(As1*E0cn*fy) +
03444 E0c*(-N0 +
03445 As2*E0c*(\[CurlyEpsilon]c + \
03446 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c + \[CurlyEpsilon]n)))) +
03447 Sqrt(3)*
03448 Sqrt(k*
03449 Power(\[CurlyEpsilon]c1,
03450 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
03451 Power(-2*As2*ch*
03452 Power(E0c, 2)*\[CurlyEpsilon]c +
03453 d*(-(As1*E0cn*fy) +
03454 E0c*(-N0 + As2*
03455 E0c*(\[CurlyEpsilon]c + \
03456 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c + \[CurlyEpsilon]n)))),
03457 2) - 2*
03458 E0c*(As2*ch*E0c +
03459 As1*d*E0cn)*(b*Power(d, 2)*E0c*fc*
03460 Power(\[CurlyEpsilon]c + \
03461 \[CurlyEpsilon]n, 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
03462 9*k)*\[CurlyEpsilon]c1 +
03463 4*(-1 + k)*\[CurlyEpsilon]n) +
03464 6*k*\[CurlyEpsilon]c*
03465 Power(\[CurlyEpsilon]c1,
03466 2)*(As1*
03467 d*(E0cn*fy -
03468 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
03469 E0c*(As2*ch*E0c*\[CurlyEpsilon]c +
03470 d*(N0 -
03471 As2*E0c*(\[CurlyEpsilon]c + \
03472 \[CurlyEpsilon]n)))))))))/(6.*d*E0c*(As2*ch*E0c + As1*d*E0cn)*k*
03473 Power(\[CurlyEpsilon]c1, 2))) - (b*d*fc*
03474 Power(\[CurlyEpsilon]c + \[CurlyEpsilon]n,
03475 2)*(2*d*(\[CurlyEpsilon]c + \[CurlyEpsilon]n)*((-1 +
03476 k)*\[CurlyEpsilon]c + (2 -
03477 3*k)*\[CurlyEpsilon]c1 + (-1 +
03478 k)*\[CurlyEpsilon]n) -
03479 h*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
03480 9*k)*\[CurlyEpsilon]c1 +
03481 4*(-1 +
03482 k)*\[CurlyEpsilon]n)*(\[CurlyEpsilon]c - (6*As2*
03483 ch*Power(E0c, 2)*k*\[CurlyEpsilon]c*
03484 Power(\[CurlyEpsilon]c1, 2) -
03485 3*d*k*Power(\[CurlyEpsilon]c1,
03486 2)*(-(As1*E0cn*fy) +
03487 E0c*(-N0 +
03488 As2*E0c*(\[CurlyEpsilon]c + \
03489 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c + \[CurlyEpsilon]n)))) +
03490 Sqrt(3)*
03491 Sqrt(k*
03492 Power(\[CurlyEpsilon]c1,
03493 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
03494 Power(-2*As2*ch*
03495 Power(E0c, 2)*\[CurlyEpsilon]c +
03496 d*(-(As1*E0cn*fy) +
03497 E0c*(-N0 +
03498 As2*E0c*(\[CurlyEpsilon]c + \
03499 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c + \[CurlyEpsilon]n)))),
03500 2) -
03501 2*E0c*(As2*ch*E0c +
03502 As1*d*E0cn)*(b*Power(d, 2)*E0c*fc*
03503 Power(\[CurlyEpsilon]c + \
03504 \[CurlyEpsilon]n, 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
03505 9*k)*\[CurlyEpsilon]c1 +
03506 4*(-1 + k)*\[CurlyEpsilon]n) +
03507 6*k*\[CurlyEpsilon]c*
03508 Power(\[CurlyEpsilon]c1,
03509 2)*(As1*d*(E0cn*fy -
03510 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
03511 E0c*(As2*ch*E0c*\[CurlyEpsilon]c +
03512 d*(N0 -
03513 As2*E0c*(\[CurlyEpsilon]c + \
03514 \[CurlyEpsilon]n))))))))/(6.*E0c*(As2*ch*E0c + As1*d*E0cn)*k*
03515 Power(\[CurlyEpsilon]c1, 2)))))/(k*
03516 Power(\[CurlyEpsilon]c1, 2)*
03517 Power(\[CurlyEpsilon]c - (6*As2*ch*Power(E0c, 2)*
03518 k*\[CurlyEpsilon]c*Power(\[CurlyEpsilon]c1, 2) -
03519 3*d*k*Power(\[CurlyEpsilon]c1,
03520 2)*(-(As1*E0cn*fy) +
03521 E0c*(-N0 +
03522 As2*E0c*(\[CurlyEpsilon]c + \
03523 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c + \[CurlyEpsilon]n)))) +
03524 Sqrt(3)*
03525 Sqrt(k*
03526 Power(\[CurlyEpsilon]c1,
03527 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
03528 Power(-2*As2*ch*
03529 Power(E0c, 2)*\[CurlyEpsilon]c +
03530 d*(-(As1*E0cn*fy) +
03531 E0c*(-N0 + As2*
03532 E0c*(\[CurlyEpsilon]c + \
03533 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c + \[CurlyEpsilon]n)))),
03534 2) - 2*
03535 E0c*(As2*ch*E0c +
03536 As1*d*E0cn)*(b*Power(d, 2)*E0c*fc*
03537 Power(\[CurlyEpsilon]c + \
03538 \[CurlyEpsilon]n, 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
03539 9*k)*\[CurlyEpsilon]c1 +
03540 4*(-1 + k)*\[CurlyEpsilon]n) +
03541 6*k*\[CurlyEpsilon]c*
03542 Power(\[CurlyEpsilon]c1,
03543 2)*(As1*
03544 d*(E0cn*fy -
03545 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
03546 E0c*(As2*ch*E0c*\[CurlyEpsilon]c +
03547 d*(N0 -
03548 As2*E0c*(\[CurlyEpsilon]c + \
03549 \[CurlyEpsilon]n))))))))/(6.*E0c*(As2*ch*E0c + As1*d*E0cn)*k*
03550 Power(\[CurlyEpsilon]c1, 2)), 2)) +
03551 6*As1*(-2*cd + h)*(fy +
03552 E0cn*(-(fy/E0c) + \[CurlyEpsilon]n + (6*As2*ch*Power(E0c, 2)*
03553 k*\[CurlyEpsilon]c*Power(\[CurlyEpsilon]c1, 2) -
03554 3*d*k*Power(\[CurlyEpsilon]c1,
03555 2)*(-(As1*E0cn*fy) +
03556 E0c*(-N0 +
03557 As2*E0c*(\[CurlyEpsilon]c + \
03558 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c + \[CurlyEpsilon]n)))) +
03559 Sqrt(3)*
03560 Sqrt(k*
03561 Power(\[CurlyEpsilon]c1,
03562 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
03563 Power(-2*As2*ch*
03564 Power(E0c, 2)*\[CurlyEpsilon]c +
03565 d*(-(As1*E0cn*fy) +
03566 E0c*(-N0 +
03567 As2*E0c*(\[CurlyEpsilon]c + \
03568 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c + \[CurlyEpsilon]n)))),
03569 2) -
03570 2*E0c*(As2*ch*E0c +
03571 As1*d*E0cn)*(b*Power(d, 2)*E0c*fc*
03572 Power(\[CurlyEpsilon]c + \
03573 \[CurlyEpsilon]n, 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
03574 9*k)*\[CurlyEpsilon]c1 +
03575 4*(-1 + k)*\[CurlyEpsilon]n) +
03576 6*k*\[CurlyEpsilon]c*
03577 Power(\[CurlyEpsilon]c1,
03578 2)*(As1*d*(E0cn*fy -
03579 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
03580 E0c*(As2*ch*E0c*\[CurlyEpsilon]c +
03581 d*(N0 -
03582 As2*E0c*(\[CurlyEpsilon]c + \
03583 \[CurlyEpsilon]n))))))))/(6.*E0c*(As2*ch*E0c + As1*d*E0cn)*k*
03584 Power(\[CurlyEpsilon]c1, 2)))))/12.
03585
03586 mmax2 = ((-36*b*d*Power(E0c, 2)*Power(As2*ch*E0c + As1*d*E0cn, 3)*fc*
03587 Power(k, 2)*Power(\[CurlyEpsilon]c1, 4)*
03588 Power(\[CurlyEpsilon]cmax1 + \[CurlyEpsilon]n,
03589 2)*(2*d*(\[CurlyEpsilon]cmax1 + \[CurlyEpsilon]n)*((2 -
03590 3*k)*\[CurlyEpsilon]c1 + (-1 +
03591 k)*(\[CurlyEpsilon]cmax1 + \[CurlyEpsilon]n)) \
03592 + (h*(3*(-2 + 3*k)*\[CurlyEpsilon]c1 -
03593 4*(-1 +
03594 k)*(\[CurlyEpsilon]cmax1 + \
03595 \[CurlyEpsilon]n))*(3*d*E0c*k*Power(\[CurlyEpsilon]c1,
03596 2)*(-N0 +
03597 As2*E0c*(\[CurlyEpsilon]cmax1 + \
03598 \[CurlyEpsilon]n)) + 3*As1*d*k*
03599 Power(\[CurlyEpsilon]c1,
03600 2)*(-(E0cn*fy) +
03601 E0c*(fy +
03602 E0cn*(\[CurlyEpsilon]cmax1 + \
03603 \[CurlyEpsilon]n))) - Sqrt(3)*Sqrt(k*
03604 Power(\[CurlyEpsilon]c1,
03605 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
03606 Power(-2*As2*ch*
03607 Power(E0c, 2)*\[CurlyEpsilon]cmax1 +
03608 d*(-(As1*E0cn*fy) +
03609 E0c*(-N0 +
03610 As2*E0c*(\[CurlyEpsilon]cmax1 + \
03611 \[CurlyEpsilon]n) + As1*(fy +
03612 E0cn*(-\[CurlyEpsilon]cmax1 + \
03613 \[CurlyEpsilon]n)))), 2) - 2*E0c*(As2*ch*E0c +
03614 As1*d*E0cn)*(b*Power(d, 2)*E0c*fc*
03615 Power(\[CurlyEpsilon]cmax1 + \
03616 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
03617 4*(-1 +
03618 k)*(\[CurlyEpsilon]cmax1 + \
03619 \[CurlyEpsilon]n)) + 6*k*Power(\[CurlyEpsilon]c1,
03620 2)*\[CurlyEpsilon]cmax1*(As1*
03621 d*(E0cn*fy - E0c*(fy +
03622 E0cn*\[CurlyEpsilon]n)) +
03623 E0c*(As2*ch*E0c*\[CurlyEpsilon]cmax1 +
03624 d*(N0 -
03625 As2*E0c*(\[CurlyEpsilon]cmax1 + \
03626 \[CurlyEpsilon]n)))))))))/(6.*E0c*(As2*ch*E0c + As1*d*E0cn)*k*
03627 Power(\[CurlyEpsilon]c1, 2))))/
03628 Power(3*d*E0c*k*
03629 Power(\[CurlyEpsilon]c1,
03630 2)*(-N0 +
03631 As2*E0c*(\[CurlyEpsilon]cmax1 + \[CurlyEpsilon]n)) +
03632 3*As1*d*k*
03633 Power(\[CurlyEpsilon]c1,
03634 2)*(-(E0cn*fy) +
03635 E0c*(fy +
03636 E0cn*(\[CurlyEpsilon]cmax1 + \[CurlyEpsilon]n))) -
03637 Sqrt(3)*Sqrt(k*
03638 Power(\[CurlyEpsilon]c1,
03639 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
03640 Power(-2*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]cmax1 +
03641 d*(-(As1*E0cn*fy) +
03642 E0c*(-N0 +
03643 As2*E0c*(\[CurlyEpsilon]cmax1 + \
03644 \[CurlyEpsilon]n) + As1*(fy +
03645 E0cn*(-\[CurlyEpsilon]cmax1 + \
03646 \[CurlyEpsilon]n)))), 2) -
03647 2*E0c*(As2*ch*E0c +
03648 As1*d*E0cn)*(b*Power(d, 2)*E0c*fc*
03649 Power(\[CurlyEpsilon]cmax1 + \[CurlyEpsilon]n,
03650 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
03651 4*(-1 +
03652 k)*(\[CurlyEpsilon]cmax1 + \
03653 \[CurlyEpsilon]n)) + 6*k*Power(\[CurlyEpsilon]c1,
03654 2)*\[CurlyEpsilon]cmax1*(As1*
03655 d*(E0cn*fy -
03656 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
03657 E0c*(As2*ch*E0c*\[CurlyEpsilon]cmax1 +
03658 d*(N0 -
03659 As2*E0c*(\[CurlyEpsilon]cmax1 + \
03660 \[CurlyEpsilon]n))))))),
03661 2) + (As2*(2*ch -
03662 h)*(-3*As1*d*k*
03663 Power(\[CurlyEpsilon]c1,
03664 2)*(-2*d*E0c*
03665 E0cn*(\[CurlyEpsilon]cmax1 + \[CurlyEpsilon]n) +
03666 ch*(-(E0cn*fy) +
03667 E0c*(fy +
03668 E0cn*(\[CurlyEpsilon]cmax1 + \
03669 \[CurlyEpsilon]n)))) +
03670 ch*(3*d*E0c*k*
03671 Power(\[CurlyEpsilon]c1,
03672 2)*(N0 +
03673 As2*E0c*(\[CurlyEpsilon]cmax1 + \
03674 \[CurlyEpsilon]n)) + Sqrt(3)*
03675 Sqrt(k*
03676 Power(\[CurlyEpsilon]c1,
03677 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
03678 Power(-2*As2*ch*
03679 Power(E0c, 2)*\[CurlyEpsilon]cmax1 +
03680 d*(-(As1*E0cn*fy) +
03681 E0c*(-N0 + As2*
03682 E0c*(\[CurlyEpsilon]cmax1 + \
03683 \[CurlyEpsilon]n) + As1*(fy +
03684 E0cn*(-\[CurlyEpsilon]cmax1 + \
03685 \[CurlyEpsilon]n)))), 2) - 2*E0c*(As2*ch*E0c +
03686 As1*d*E0cn)*(b*Power(d, 2)*E0c*fc*
03687 Power(\[CurlyEpsilon]cmax1 + \
03688 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
03689 4*(-1 +
03690 k)*(\[CurlyEpsilon]cmax1 + \
03691 \[CurlyEpsilon]n)) + 6*k*Power(\[CurlyEpsilon]c1,
03692 2)*\[CurlyEpsilon]cmax1*(As1*
03693 d*(E0cn*fy -
03694 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
03695 E0c*(As2*ch*E0c*\[CurlyEpsilon]cmax1 +
03696 d*(N0 -
03697 As2*E0c*(\[CurlyEpsilon]cmax1 + \
03698 \[CurlyEpsilon]n))))))))))/
03699 d - (As1*(2*cd -
03700 h)*(3*As2*E0c*k*
03701 Power(\[CurlyEpsilon]c1,
03702 2)*(-(d*E0c*
03703 E0cn*(\[CurlyEpsilon]cmax1 + \[CurlyEpsilon]n)) \
03704 + 2*ch*(-(E0cn*fy) + E0c*(fy +
03705 E0cn*(\[CurlyEpsilon]cmax1 + \
03706 \[CurlyEpsilon]n)))) +
03707 E0cn*(3*d*E0c*k*N0*Power(\[CurlyEpsilon]c1, 2) +
03708 3*As1*d*k*
03709 Power(\[CurlyEpsilon]c1,
03710 2)*(-(E0cn*fy) +
03711 E0c*(fy +
03712 E0cn*(\[CurlyEpsilon]cmax1 + \
03713 \[CurlyEpsilon]n))) + Sqrt(3)*
03714 Sqrt(k*
03715 Power(\[CurlyEpsilon]c1,
03716 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
03717 Power(-2*As2*ch*
03718 Power(E0c, 2)*\[CurlyEpsilon]cmax1 +
03719 d*(-(As1*E0cn*fy) +
03720 E0c*(-N0 + As2*
03721 E0c*(\[CurlyEpsilon]cmax1 + \
03722 \[CurlyEpsilon]n) + As1*(fy +
03723 E0cn*(-\[CurlyEpsilon]cmax1 + \
03724 \[CurlyEpsilon]n)))), 2) - 2*E0c*(As2*ch*E0c +
03725 As1*d*E0cn)*(b*Power(d, 2)*E0c*fc*
03726 Power(\[CurlyEpsilon]cmax1 + \
03727 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
03728 4*(-1 +
03729 k)*(\[CurlyEpsilon]cmax1 + \
03730 \[CurlyEpsilon]n)) + 6*k*Power(\[CurlyEpsilon]c1,
03731 2)*\[CurlyEpsilon]cmax1*(As1*
03732 d*(E0cn*fy -
03733 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
03734 E0c*(As2*ch*E0c*\[CurlyEpsilon]cmax1 +
03735 d*(N0 -
03736 As2*E0c*(\[CurlyEpsilon]cmax1 + \
03737 \[CurlyEpsilon]n))))))))))/E0c)/(12.*(As2*ch*E0c + As1*d*E0cn)*k*
03738 Power(\[CurlyEpsilon]c1, 2))
03739
03740 If(\[CurlyEpsilon]cs11 == -1, ms11 = 1000000000,
03741 ms11 = 0.08333333333333333*(-6*As2*
03742 E0c*(-2*ch +
03743 h)*(\[CurlyEpsilon]cs11 - (ch*\[CurlyEpsilon]cs11)/
03744 d + \[CurlyEpsilon]n + (ch*(6*As2*ch*Power(E0c, 2)*k*
03745 Power(\[CurlyEpsilon]c1,
03746 2)*\[CurlyEpsilon]cs11 -
03747 3*d*k*Power(\[CurlyEpsilon]c1,
03748 2)*(-As1*E0cn*fy +
03749 E0c*(-N0 +
03750 As2*E0c*(\[CurlyEpsilon]cs11 + \
03751 \[CurlyEpsilon]n) + As1*(fy +
03752 E0cn*(-\[CurlyEpsilon]cs11 + \
03753 \[CurlyEpsilon]n)))) + Sqrt(3)*
03754 Sqrt(k*
03755 Power(\[CurlyEpsilon]c1,
03756 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
03757 Power(-2*As2*ch*
03758 Power(E0c, 2)*\[CurlyEpsilon]cs11 +
03759 d*(-As1*E0cn*fy +
03760 E0c*(-N0 +
03761 As2*E0c*(\[CurlyEpsilon]cs11 + \
03762 \[CurlyEpsilon]n) + As1*(fy +
03763 E0cn*(-\[CurlyEpsilon]cs11 + \
03764 \[CurlyEpsilon]n)))), 2) - 2*E0c*(As2*ch*E0c +
03765 As1*d*E0cn)*(b*Power(d, 2)*E0c*fc*
03766 Power(\[CurlyEpsilon]cs11 + \
03767 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
03768 4*(-1 + k)*\[CurlyEpsilon]cs11 +
03769 4*(-1 + k)*\[CurlyEpsilon]n) +
03770 6*k*Power(\[CurlyEpsilon]c1,
03771 2)*\[CurlyEpsilon]cs11*(As1*
03772 d*(E0cn*fy - E0c*(fy +
03773 E0cn*\[CurlyEpsilon]n)) +
03774 E0c*(As2*ch*E0c*\[CurlyEpsilon]cs11 +
03775 d*(N0 -
03776 As2*E0c*(\[CurlyEpsilon]cs11 + \
03777 \[CurlyEpsilon]n)))))))))/(6.*d*E0c*(As2*ch*E0c + As1*d*E0cn)*k*
03778 Power(\[CurlyEpsilon]c1, 2))) - (b*d*fc*
03779 Power(\[CurlyEpsilon]cs11 + \[CurlyEpsilon]n,
03780 2)*(2*d*(\[CurlyEpsilon]cs11 + \[CurlyEpsilon]n)*((2 -
03781 3*k)*\[CurlyEpsilon]c1 + (-1 +
03782 k)*\[CurlyEpsilon]cs11 + (-1 +
03783 k)*\[CurlyEpsilon]n) -
03784 h*((6 - 9*k)*\[CurlyEpsilon]c1 +
03785 4*(-1 + k)*\[CurlyEpsilon]cs11 +
03786 4*(-1 +
03787 k)*\[CurlyEpsilon]n)*(\[CurlyEpsilon]cs11 - \
03788 (6*As2*ch*Power(E0c, 2)*k*Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]cs11 -
03789 3*d*k*
03790 Power(\[CurlyEpsilon]c1,
03791 2)*(-As1*E0cn*fy +
03792 E0c*(-N0 +
03793 As2*E0c*(\[CurlyEpsilon]cs11 + \
03794 \[CurlyEpsilon]n) + As1*(fy +
03795 E0cn*(-\[CurlyEpsilon]cs11 + \
03796 \[CurlyEpsilon]n)))) + Sqrt(3)*Sqrt(k*Power(\[CurlyEpsilon]c1,
03797 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
03798 Power(-2*As2*ch*
03799 Power(E0c, 2)*\[CurlyEpsilon]cs11 +
03800 d*(-As1*E0cn*fy +
03801 E0c*(-N0 +
03802 As2*
03803 E0c*(\[CurlyEpsilon]cs11 + \
03804 \[CurlyEpsilon]n) + As1*(fy +
03805 E0cn*(-\[CurlyEpsilon]cs11 + \
03806 \[CurlyEpsilon]n)))), 2) - 2*E0c*(As2*ch*E0c + As1*d*E0cn)*(b*Power(d, 2)*E0c*
03807 fc*Power(\[CurlyEpsilon]cs11 + \
03808 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 + 4*(-1 +
03809 k)*\[CurlyEpsilon]cs11 +
03810 4*(-1 + k)*\[CurlyEpsilon]n) +
03811 6*k*Power(\[CurlyEpsilon]c1,
03812 2)*\[CurlyEpsilon]cs11*(As1*
03813 d*(E0cn*fy - E0c*(fy +
03814 E0cn*\[CurlyEpsilon]n)) +
03815 E0c*(As2*ch*E0c*\[CurlyEpsilon]cs11 +
03816 d*(N0 -
03817 As2*E0c*(\[CurlyEpsilon]cs11 + \
03818 \[CurlyEpsilon]n))))))))/(6.*E0c*(As2*ch*E0c + As1*d*E0cn)*k*
03819 Power(\[CurlyEpsilon]c1, 2)))))/(k*
03820 Power(\[CurlyEpsilon]c1, 2)*
03821 Power(\[CurlyEpsilon]cs11 - (6*As2*ch*Power(E0c, 2)*k*
03822 Power(\[CurlyEpsilon]c1,
03823 2)*\[CurlyEpsilon]cs11 -
03824 3*d*k*Power(\[CurlyEpsilon]c1,
03825 2)*(-As1*E0cn*fy +
03826 E0c*(-N0 +
03827 As2*E0c*(\[CurlyEpsilon]cs11 + \
03828 \[CurlyEpsilon]n) + As1*(fy +
03829 E0cn*(-\[CurlyEpsilon]cs11 + \
03830 \[CurlyEpsilon]n)))) + Sqrt(3)*
03831 Sqrt(k*
03832 Power(\[CurlyEpsilon]c1,
03833 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
03834 Power(-2*As2*ch*
03835 Power(E0c, 2)*\[CurlyEpsilon]cs11 +
03836 d*(-As1*E0cn*fy +
03837 E0c*(-N0 +
03838 As2*E0c*(\[CurlyEpsilon]cs11 + \
03839 \[CurlyEpsilon]n) + As1*(fy +
03840 E0cn*(-\[CurlyEpsilon]cs11 + \
03841 \[CurlyEpsilon]n)))), 2) - 2*E0c*(As2*ch*E0c +
03842 As1*d*E0cn)*(b*Power(d, 2)*E0c*fc*
03843 Power(\[CurlyEpsilon]cs11 + \
03844 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
03845 4*(-1 + k)*\[CurlyEpsilon]cs11 +
03846 4*(-1 + k)*\[CurlyEpsilon]n) +
03847 6*k*Power(\[CurlyEpsilon]c1,
03848 2)*\[CurlyEpsilon]cs11*(As1*
03849 d*(E0cn*fy - E0c*(fy +
03850 E0cn*\[CurlyEpsilon]n)) +
03851 E0c*(As2*ch*E0c*\[CurlyEpsilon]cs11 +
03852 d*(N0 -
03853 As2*E0c*(\[CurlyEpsilon]cs11 + \
03854 \[CurlyEpsilon]n))))))))/(6.*E0c*(As2*ch*E0c + As1*d*E0cn)*k*
03855 Power(\[CurlyEpsilon]c1, 2)), 2)) +
03856 6*As1*(-2*cd + h)*(fy +
03857 E0cn*(-(fy/E0c) + \[CurlyEpsilon]n + (6*As2*ch*
03858 Power(E0c, 2)*k*
03859 Power(\[CurlyEpsilon]c1,
03860 2)*\[CurlyEpsilon]cs11 -
03861 3*d*k*Power(\[CurlyEpsilon]c1,
03862 2)*(-As1*E0cn*fy +
03863 E0c*(-N0 +
03864 As2*E0c*(\[CurlyEpsilon]cs11 + \
03865 \[CurlyEpsilon]n) + As1*(fy +
03866 E0cn*(-\[CurlyEpsilon]cs11 + \
03867 \[CurlyEpsilon]n)))) + Sqrt(3)*
03868 Sqrt(k*
03869 Power(\[CurlyEpsilon]c1,
03870 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
03871 Power(-2*As2*ch*
03872 Power(E0c, 2)*\[CurlyEpsilon]cs11 +
03873 d*(-As1*E0cn*fy +
03874 E0c*(-N0 +
03875 As2*E0c*(\[CurlyEpsilon]cs11 + \
03876 \[CurlyEpsilon]n) + As1*(fy +
03877 E0cn*(-\[CurlyEpsilon]cs11 + \
03878 \[CurlyEpsilon]n)))), 2) - 2*E0c*(As2*ch*E0c +
03879 As1*d*E0cn)*(b*Power(d, 2)*E0c*fc*
03880 Power(\[CurlyEpsilon]cs11 + \
03881 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
03882 4*(-1 + k)*\[CurlyEpsilon]cs11 +
03883 4*(-1 + k)*\[CurlyEpsilon]n) +
03884 6*k*Power(\[CurlyEpsilon]c1,
03885 2)*\[CurlyEpsilon]cs11*(As1*
03886 d*(E0cn*fy - E0c*(fy +
03887 E0cn*\[CurlyEpsilon]n)) +
03888 E0c*(As2*ch*E0c*\[CurlyEpsilon]cs11 +
03889 d*(N0 -
03890 As2*E0c*(\[CurlyEpsilon]cs11 + \
03891 \[CurlyEpsilon]n))))))))/(6.*E0c*(As2*ch*E0c + As1*d*E0cn)*k*
03892 Power(\[CurlyEpsilon]c1, 2))))))
03893
03894 If(mhr5 > mmax2, mh5a = mmax2, mh5a = mhr5)
03895
03896 If(mhr5 >
03897 mmax2, \[CurlyEpsilon]ch5a = \[CurlyEpsilon]cmax1, \[CurlyEpsilon]ch5a \
03898 = \[CurlyEpsilon]chr5)
03899
03900 If(mh5a > Abs(ms11), mh5 = ms11, mh5 = mh5a)
03901
03902 If(mh5a >
03903 Abs(ms11), \[CurlyEpsilon]ch5 = \[CurlyEpsilon]cs11, \[CurlyEpsilon]ch5 \
03904 = \[CurlyEpsilon]ch5a)
03905
03906 mh25a = ((-6*b*d*Power(E0c, 2)*Power(As2*ch*E0c + As1*d*E0cn, 3)*fc*
03907 Power(k, 2)*Power(\[CurlyEpsilon]c1, 4)*
03908 Power(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]ch5 +
03909 2*\[CurlyEpsilon]n,
03910 2)*(6*d*(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]ch5 +
03911 2*\[CurlyEpsilon]n)*((4 -
03912 6*k)*\[CurlyEpsilon]c1 + (-1 +
03913 k)*(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]ch5 +
03914 2*\[CurlyEpsilon]n)) + (h*(3*(-2 +
03915 3*k)*\[CurlyEpsilon]c1 -
03916 2*(-1 +
03917 k)*(\[CurlyEpsilon]ch2 + \
03918 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n))*(3*d*E0c*k*
03919 Power(\[CurlyEpsilon]c1,
03920 2)*(-2*N0 +
03921 As2*E0c*(\[CurlyEpsilon]ch2 + \
03922 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)) +
03923 3*As1*d*k*
03924 Power(\[CurlyEpsilon]c1,
03925 2)*(-2*E0cn*fy +
03926 E0c*(2*fy +
03927 E0cn*(\[CurlyEpsilon]ch2 + \
03928 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n))) -
03929 2*Sqrt(3)*
03930 Sqrt(k*
03931 Power(\[CurlyEpsilon]c1,
03932 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
03933 Power(As2*ch*
03934 Power(E0c,
03935 2)*(\[CurlyEpsilon]ch2 + \
03936 \[CurlyEpsilon]ch5) - d*(-(As1*E0cn*fy) + (E0c*(-2*N0 + As1*(2*fy -
03937 E0cn*(\[CurlyEpsilon]ch2 + \
03938 \[CurlyEpsilon]ch5 - 2*\[CurlyEpsilon]n)) +
03939 As2*E0c*(\[CurlyEpsilon]ch2 + \
03940 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)))/2.), 2) -
03941 2*E0c*(As2*ch*E0c +
03942 As1*d*E0cn)*((b*Power(d, 2)*E0c*fc*
03943 Power(\[CurlyEpsilon]ch2 + \
03944 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
03945 2*(-1 +
03946 k)*(\[CurlyEpsilon]ch2 + \
03947 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)))/4. +
03948 3*k*Power(\[CurlyEpsilon]c1,
03949 2)*(\[CurlyEpsilon]ch2 + \
03950 \[CurlyEpsilon]ch5)*(As1*d*(E0cn*fy - E0c*(fy +
03951 E0cn*\[CurlyEpsilon]n)) + (E0c*(As2*
03952 ch*E0c*(\[CurlyEpsilon]ch2 + \
03953 \[CurlyEpsilon]ch5) + d*(2*N0 -
03954 As2*E0c*(\[CurlyEpsilon]ch2 + \
03955 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n))))/2.))))))/(E0c*(As2*ch*E0c +
03956 As1*d*E0cn)*k*Power(\[CurlyEpsilon]c1, 2))))/
03957 Power(3*d*E0c*k*
03958 Power(\[CurlyEpsilon]c1,
03959 2)*(-2*N0 +
03960 As2*E0c*(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]ch5 +
03961 2*\[CurlyEpsilon]n)) +
03962 3*As1*d*k*
03963 Power(\[CurlyEpsilon]c1,
03964 2)*(-2*E0cn*fy +
03965 E0c*(2*fy +
03966 E0cn*(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]ch5 +
03967 2*\[CurlyEpsilon]n))) -
03968 2*Sqrt(3)*
03969 Sqrt(k*Power(\[CurlyEpsilon]c1,
03970 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
03971 Power(As2*ch*
03972 Power(E0c,
03973 2)*(\[CurlyEpsilon]ch2 + \
03974 \[CurlyEpsilon]ch5) - d*(-(As1*E0cn*fy) + (E0c*(-2*N0 +
03975 As1*(2*fy -
03976 E0cn*(\[CurlyEpsilon]ch2 + \
03977 \[CurlyEpsilon]ch5 - 2*\[CurlyEpsilon]n)) + As2*
03978 E0c*(\[CurlyEpsilon]ch2 + \
03979 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)))/2.), 2) -
03980 2*E0c*(As2*ch*E0c +
03981 As1*d*E0cn)*((b*Power(d, 2)*E0c*fc*
03982 Power(\[CurlyEpsilon]ch2 + \
03983 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n,
03984 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
03985 2*(-1 +
03986 k)*(\[CurlyEpsilon]ch2 + \
03987 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)))/4. +
03988 3*k*Power(\[CurlyEpsilon]c1,
03989 2)*(\[CurlyEpsilon]ch2 + \
03990 \[CurlyEpsilon]ch5)*(As1*d*(E0cn*fy - E0c*(fy +
03991 E0cn*\[CurlyEpsilon]n)) + (E0c*(As2*
03992 ch*E0c*(\[CurlyEpsilon]ch2 + \
03993 \[CurlyEpsilon]ch5) + d*(2*N0 -
03994 As2*E0c*(\[CurlyEpsilon]ch2 + \
03995 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n))))/2.)))),
03996 2) + (As2*(2*ch -
03997 h)*(-3*As1*d*k*
03998 Power(\[CurlyEpsilon]c1,
03999 2)*(-2*d*E0c*
04000 E0cn*(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]ch5 +
04001 2*\[CurlyEpsilon]n) +
04002 ch*(-2*E0cn*fy +
04003 E0c*(2*fy +
04004 E0cn*(\[CurlyEpsilon]ch2 + \
04005 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)))) +
04006 ch*(3*d*E0c*k*
04007 Power(\[CurlyEpsilon]c1,
04008 2)*(2*N0 +
04009 As2*E0c*(\[CurlyEpsilon]ch2 + \
04010 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)) +
04011 2*Sqrt(3)*
04012 Sqrt(k*
04013 Power(\[CurlyEpsilon]c1,
04014 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
04015 Power(As2*ch*
04016 Power(E0c,
04017 2)*(\[CurlyEpsilon]ch2 + \
04018 \[CurlyEpsilon]ch5) - d*(-(As1*E0cn*fy) + (E0c*(-2*N0 +
04019 As1*(2*fy -
04020 E0cn*(\[CurlyEpsilon]ch2 + \
04021 \[CurlyEpsilon]ch5 - 2*\[CurlyEpsilon]n)) +
04022 As2*E0c*(\[CurlyEpsilon]ch2 + \
04023 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)))/2.), 2)\
04024 -2*E0c*(As2*ch*E0c +
04025 As1*d*
04026 E0cn)*((b*Power(d, 2)*E0c*fc*
04027 Power(\[CurlyEpsilon]ch2 + \
04028 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
04029 2*(-1 +
04030 k)*(\[CurlyEpsilon]ch2 + \
04031 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)))/4. +
04032 3*k*Power(\[CurlyEpsilon]c1,
04033
04034 2)*(\[CurlyEpsilon]ch2 + \
04035 \[CurlyEpsilon]ch5)*(As1*d*(E0cn*fy - E0c*(fy +
04036 E0cn*\[CurlyEpsilon]n)) + (E0c*(As2*
04037 ch*E0c*(\[CurlyEpsilon]ch2 + \
04038 \[CurlyEpsilon]ch5) + d*(2*N0 -
04039 As2*E0c*(\[CurlyEpsilon]ch2 + \
04040 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n))))/2.)))))))/
04041 d - (As1*(2*cd -
04042 h)*(3*As2*E0c*k*
04043 Power(\[CurlyEpsilon]c1,
04044 2)*(-(d*E0c*
04045 E0cn*(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]ch5 +
04046 2*\[CurlyEpsilon]n)) +
04047 2*ch*(-2*E0cn*fy +
04048 E0c*(2*fy +
04049 E0cn*(\[CurlyEpsilon]ch2 + \
04050 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)))) +
04051 E0cn*(6*d*E0c*k*N0*Power(\[CurlyEpsilon]c1, 2) +
04052 3*As1*d*k*
04053 Power(\[CurlyEpsilon]c1,
04054 2)*(-2*E0cn*fy +
04055 E0c*(2*fy +
04056 E0cn*(\[CurlyEpsilon]ch2 + \
04057 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n))) +
04058 2*Sqrt(3)*
04059 Sqrt(k*
04060 Power(\[CurlyEpsilon]c1,
04061 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
04062 Power(As2*ch*
04063 Power(E0c,
04064 2)*(\[CurlyEpsilon]ch2 + \
04065 \[CurlyEpsilon]ch5) - d*(-(As1*E0cn*fy) + (E0c*(-2*N0 +
04066 As1*(2*fy -
04067 E0cn*(\[CurlyEpsilon]ch2 + \
04068 \[CurlyEpsilon]ch5 - 2*\[CurlyEpsilon]n)) +
04069 As2*E0c*(\[CurlyEpsilon]ch2 + \
04070 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)))/2.), 2)\
04071 -2*E0c*(As2*ch*E0c +
04072 As1*d*
04073 E0cn)*((b*Power(d, 2)*E0c*fc*
04074 Power(\[CurlyEpsilon]ch2 + \
04075 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
04076 2*(-1 +
04077 k)*(\[CurlyEpsilon]ch2 + \
04078 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)))/4. +
04079 3*k*Power(\[CurlyEpsilon]c1,
04080 2)*(\[CurlyEpsilon]ch2 + \
04081 \[CurlyEpsilon]ch5)*(As1*d*(E0cn*fy - E0c*(fy +
04082 E0cn*\[CurlyEpsilon]n)) + (E0c*(As2*
04083 ch*E0c*(\[CurlyEpsilon]ch2 + \
04084 \[CurlyEpsilon]ch5) + d*(2*N0 -
04085 As2*E0c*(\[CurlyEpsilon]ch2 + \
04086 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n))))/2.)))))))/
04087 E0c)/(24.*(As2*ch*E0c + As1*d*E0cn)*k*Power(\[CurlyEpsilon]c1, 2))
04088
04089 \[CurlyEpsilon]cder4 = -(-(mh2*\[CurlyEpsilon]ch2) +
04090 4*mh25a*\[CurlyEpsilon]ch2 - 3*mh5*\[CurlyEpsilon]ch2 -
04091 3*mh2*\[CurlyEpsilon]ch5 + 4*mh25a*\[CurlyEpsilon]ch5 -
04092 mh5*\[CurlyEpsilon]ch5)/(4.*(mh2 - 2*mh25a + mh5))
04093
04094 mmax5 = (-6*As2*
04095 E0c*(-2*ch +
04096 h)*(\[CurlyEpsilon]cder4 - (ch*\[CurlyEpsilon]cder4)/
04097 d + \[CurlyEpsilon]n + (ch*(6*As2*ch*Power(E0c, 2)*k*
04098 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]cder4 -
04099 3*d*k*Power(\[CurlyEpsilon]c1,
04100 2)*(-(As1*E0cn*fy) +
04101 E0c*(-N0 +
04102 As2*E0c*(\[CurlyEpsilon]cder4 + \
04103 \[CurlyEpsilon]n) + As1*(fy +
04104 E0cn*(-\[CurlyEpsilon]cder4 + \
04105 \[CurlyEpsilon]n)))) +
04106 Sqrt(3)*
04107 Sqrt(k*
04108 Power(\[CurlyEpsilon]c1,
04109 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
04110 Power(-2*As2*ch*
04111 Power(E0c, 2)*\[CurlyEpsilon]cder4 +
04112 d*(-(As1*E0cn*fy) +
04113 E0c*(-N0 + As2*
04114 E0c*(\[CurlyEpsilon]cder4 + \
04115 \[CurlyEpsilon]n) + As1*(fy +
04116 E0cn*(-\[CurlyEpsilon]cder4 + \
04117 \[CurlyEpsilon]n)))), 2) - 2*E0c*(As2*ch*E0c +
04118 As1*d*E0cn)*(b*Power(d, 2)*E0c*fc*
04119 Power(\[CurlyEpsilon]cder4 + \
04120 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
04121 4*(-1 + k)*\[CurlyEpsilon]cder4 +
04122 4*(-1 + k)*\[CurlyEpsilon]n) +
04123 6*k*Power(\[CurlyEpsilon]c1,
04124 2)*\[CurlyEpsilon]cder4*(As1*
04125 d*(E0cn*fy -
04126 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
04127 E0c*(As2*ch*E0c*\[CurlyEpsilon]cder4 +
04128 d*(N0 -
04129 As2*E0c*(\[CurlyEpsilon]cder4 + \
04130 \[CurlyEpsilon]n)))))))))/(6.*d*E0c*(As2*ch*E0c + As1*d*E0cn)*k*
04131 Power(\[CurlyEpsilon]c1, 2))) - (b*d*fc*
04132 Power(\[CurlyEpsilon]cder4 + \[CurlyEpsilon]n,
04133 2)*(2*d*(\[CurlyEpsilon]cder4 + \[CurlyEpsilon]n)*((2 -
04134 3*k)*\[CurlyEpsilon]c1 + (-1 +
04135 k)*\[CurlyEpsilon]cder4 + (-1 +
04136 k)*\[CurlyEpsilon]n) -
04137 h*((6 - 9*k)*\[CurlyEpsilon]c1 +
04138 4*(-1 + k)*\[CurlyEpsilon]cder4 +
04139 4*(-1 +
04140 k)*\[CurlyEpsilon]n)*(\[CurlyEpsilon]cder4 - (6*
04141 As2*ch*Power(E0c, 2)*k*
04142 Power(\[CurlyEpsilon]c1,
04143 2)*\[CurlyEpsilon]cder4 -
04144 3*d*k*Power(\[CurlyEpsilon]c1,
04145 2)*(-(As1*E0cn*fy) +
04146 E0c*(-N0 +
04147 As2*E0c*(\[CurlyEpsilon]cder4 + \
04148 \[CurlyEpsilon]n) + As1*(fy +
04149 E0cn*(-\[CurlyEpsilon]cder4 + \
04150 \[CurlyEpsilon]n)))) + Sqrt(3)*
04151 Sqrt(k*
04152 Power(\[CurlyEpsilon]c1,
04153 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
04154 Power(-2*As2*ch*
04155 Power(E0c, 2)*\[CurlyEpsilon]cder4 +
04156 d*(-(As1*E0cn*fy) +
04157 E0c*(-N0 +
04158 As2*E0c*(\[CurlyEpsilon]cder4 + \
04159 \[CurlyEpsilon]n) + As1*(fy +
04160 E0cn*(-\[CurlyEpsilon]cder4 + \
04161 \[CurlyEpsilon]n)))), 2) - 2*E0c*(As2*ch*E0c +
04162 As1*d*E0cn)*(b*Power(d, 2)*E0c*fc*
04163 Power(\[CurlyEpsilon]cder4 + \
04164 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
04165 4*(-1 + k)*\[CurlyEpsilon]cder4 +
04166 4*(-1 + k)*\[CurlyEpsilon]n) +
04167 6*k*Power(\[CurlyEpsilon]c1,
04168 2)*\[CurlyEpsilon]cder4*(As1*
04169 d*(E0cn*fy - E0c*(fy +
04170 E0cn*\[CurlyEpsilon]n)) +
04171 E0c*(As2*ch*E0c*\[CurlyEpsilon]cder4 +
04172 d*(N0 -
04173 As2*E0c*(\[CurlyEpsilon]cder4 + \
04174 \[CurlyEpsilon]n))))))))/(6.*E0c*(As2*ch*E0c + As1*d*E0cn)*k*
04175 Power(\[CurlyEpsilon]c1, 2)))))/(k*
04176 Power(\[CurlyEpsilon]c1, 2)*
04177 Power(\[CurlyEpsilon]cder4 - (6*As2*ch*Power(E0c, 2)*k*
04178 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]cder4 -
04179 3*d*k*Power(\[CurlyEpsilon]c1,
04180 2)*(-(As1*E0cn*fy) +
04181 E0c*(-N0 +
04182 As2*E0c*(\[CurlyEpsilon]cder4 + \
04183 \[CurlyEpsilon]n) + As1*(fy +
04184 E0cn*(-\[CurlyEpsilon]cder4 + \
04185 \[CurlyEpsilon]n)))) +
04186 Sqrt(3)*
04187 Sqrt(k*
04188 Power(\[CurlyEpsilon]c1,
04189 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
04190 Power(-2*As2*ch*
04191 Power(E0c, 2)*\[CurlyEpsilon]cder4 +
04192 d*(-(As1*E0cn*fy) +
04193 E0c*(-N0 + As2*
04194 E0c*(\[CurlyEpsilon]cder4 + \
04195 \[CurlyEpsilon]n) + As1*(fy +
04196 E0cn*(-\[CurlyEpsilon]cder4 + \
04197 \[CurlyEpsilon]n)))), 2) - 2*E0c*(As2*ch*E0c +
04198 As1*d*E0cn)*(b*Power(d, 2)*E0c*fc*
04199 Power(\[CurlyEpsilon]cder4 + \
04200 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
04201 4*(-1 + k)*\[CurlyEpsilon]cder4 +
04202 4*(-1 + k)*\[CurlyEpsilon]n) +
04203 6*k*Power(\[CurlyEpsilon]c1,
04204 2)*\[CurlyEpsilon]cder4*(As1*
04205 d*(E0cn*fy -
04206 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
04207 E0c*(As2*ch*E0c*\[CurlyEpsilon]cder4 +
04208 d*(N0 -
04209 As2*E0c*(\[CurlyEpsilon]cder4 + \
04210 \[CurlyEpsilon]n))))))))/(6.*E0c*(As2*ch*E0c + As1*d*E0cn)*k*
04211 Power(\[CurlyEpsilon]c1, 2)), 2)) +
04212 6*As1*(-2*cd + h)*(fy +
04213 E0cn*(-(fy/E0c) + \[CurlyEpsilon]n + (6*As2*ch*Power(E0c, 2)*k*
04214 Power(\[CurlyEpsilon]c1,
04215 2)*\[CurlyEpsilon]cder4 -
04216 3*d*k*Power(\[CurlyEpsilon]c1,
04217 2)*(-(As1*E0cn*fy) +
04218 E0c*(-N0 +
04219 As2*E0c*(\[CurlyEpsilon]cder4 + \
04220 \[CurlyEpsilon]n) + As1*(fy +
04221 E0cn*(-\[CurlyEpsilon]cder4 + \
04222 \[CurlyEpsilon]n)))) + Sqrt(3)*
04223 Sqrt(k*
04224 Power(\[CurlyEpsilon]c1,
04225 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
04226 Power(-2*As2*ch*
04227 Power(E0c, 2)*\[CurlyEpsilon]cder4 +
04228 d*(-(As1*E0cn*fy) +
04229 E0c*(-N0 +
04230 As2*E0c*(\[CurlyEpsilon]cder4 + \
04231 \[CurlyEpsilon]n) + As1*(fy +
04232 E0cn*(-\[CurlyEpsilon]cder4 + \
04233 \[CurlyEpsilon]n)))), 2) - 2*E0c*(As2*ch*E0c +
04234 As1*d*E0cn)*(b*Power(d, 2)*E0c*fc*
04235 Power(\[CurlyEpsilon]cder4 + \
04236 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
04237 4*(-1 + k)*\[CurlyEpsilon]cder4 +
04238 4*(-1 + k)*\[CurlyEpsilon]n) +
04239 6*k*Power(\[CurlyEpsilon]c1,
04240 2)*\[CurlyEpsilon]cder4*(As1*
04241 d*(E0cn*fy - E0c*(fy +
04242 E0cn*\[CurlyEpsilon]n)) +
04243 E0c*(As2*ch*E0c*\[CurlyEpsilon]cder4 +
04244 d*(N0 -
04245 As2*E0c*(\[CurlyEpsilon]cder4 + \
04246 \[CurlyEpsilon]n))))))))/(6.*E0c*(As2*ch*E0c + As1*d*E0cn)*k*
04247 Power(\[CurlyEpsilon]c1, 2)))))/12.
04248
04249 If(\[CurlyEpsilon]cder4 < \[CurlyEpsilon]ch2 && \[CurlyEpsilon]cder4 > \
04250 \[CurlyEpsilon]ch5, (mh5 =
04251 mmax5) && (\[CurlyEpsilon]ch5 = \[CurlyEpsilon]cder4), 1)
04252
04253 Null
04254
04255 ac1 = -(fy/E0c) + \[CurlyEpsilon]n + (Sqrt(k*
04256 Power(\[CurlyEpsilon]c1,
04257 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
04258 Power(d*
04259 E0c*(N0 +
04260 As1*E0c*(\[CurlyEpsilon]c1 - \[CurlyEpsilon]n)) \
04261 + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c1 -
04262 d*(E0cn*fy +
04263 E0c*(-fy +
04264 E0cn*(\[CurlyEpsilon]c1 + \
04265 \[CurlyEpsilon]n)))), 2) +
04266 2*E0c*(As1*d*E0c +
04267 As2*ch*E0cn)*(b*Power(d, 2)*E0c*fc*
04268 Power(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n,
04269 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
04270 4*(-1 + k)*\[CurlyEpsilon]n) +
04271 6*k*Power(\[CurlyEpsilon]c1,
04272 3)*(-(As2*ch*E0c*E0cn*\[CurlyEpsilon]c1) +
04273 d*(As2*E0cn*fy +
04274 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
04275 E0c*(-(As2*fy) - N0 +
04276 As2*E0cn*(\[CurlyEpsilon]c1 + \
04277 \[CurlyEpsilon]n)))))))*(-Power(2*
04278 E0c*(As1*d*E0c +
04279 As2*ch*E0cn)*(6*b*Power(d, 2)*E0c*
04280 fc*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)*(k*(\
04281 \[CurlyEpsilon]c1 - 2*\[CurlyEpsilon]n) + 2*\[CurlyEpsilon]n) +
04282 6*k*Power(\[CurlyEpsilon]c1,
04283 2)*(d*E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
04284 As2*(-2*ch*E0c*E0cn*\[CurlyEpsilon]c1 +
04285 d*(-(E0c*fy) + E0cn*fy +
04286 2*E0c*E0cn*\[CurlyEpsilon]c1 +
04287 E0c*E0cn*\[CurlyEpsilon]n)))) +
04288 6*E0c*(As1*d*E0c + As2*(2*ch - d)*E0cn)*k*
04289 Power(\[CurlyEpsilon]c1,
04290 2)*(d*E0c*(N0 +
04291 As1*E0c*(\[CurlyEpsilon]c1 - \
04292 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c1 -
04293 d*(E0cn*fy +
04294 E0c*(-fy +
04295 E0cn*(\[CurlyEpsilon]c1 + \
04296 \[CurlyEpsilon]n))))),
04297 2)/(4.*Power(3*k*Power(\[CurlyEpsilon]c1, 2)*
04298 Power(d*
04299 E0c*(N0 +
04300 As1*E0c*(\[CurlyEpsilon]c1 - \
04301 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c1 -
04302 d*(E0cn*fy +
04303 E0c*(-fy +
04304 E0cn*(\[CurlyEpsilon]c1 + \
04305 \[CurlyEpsilon]n)))), 2) +
04306 2*E0c*(As1*d*E0c +
04307 As2*ch*E0cn)*(b*Power(d, 2)*E0c*fc*
04308 Power(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n,
04309 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
04310 4*(-1 + k)*\[CurlyEpsilon]n) +
04311 6*k*Power(\[CurlyEpsilon]c1,
04312 3)*(-(As2*ch*E0c*E0cn*\[CurlyEpsilon]c1) +
04313 d*(As2*E0cn*fy +
04314 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
04315 E0c*(-(As2*fy) - N0 +
04316 As2*E0cn*(\[CurlyEpsilon]c1 + \
04317 \[CurlyEpsilon]n))))), 2)) + (3*
04318
04319 Power(E0c,
04320 2)*(Power(As1*d*E0c + As2*(2*ch - d)*E0cn, 2)*k*
04321 Power(\[CurlyEpsilon]c1, 2) -
04322 2*(As1*d*E0c +
04323 As2*ch*E0cn)*(2*As2*(ch - d)*E0cn*k*
04324 Power(\[CurlyEpsilon]c1, 2) +
04325 b*Power(d, 2)*
04326 fc*((-2 + k)*\[CurlyEpsilon]c1 +
04327 4*(-1 + k)*\[CurlyEpsilon]n))))/(3*k*
04328 Power(\[CurlyEpsilon]c1, 2)*
04329 Power(d*
04330 E0c*(N0 +
04331 As1*E0c*(\[CurlyEpsilon]c1 - \
04332 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c1 -
04333 d*(E0cn*fy +
04334 E0c*(-fy +
04335 E0cn*(\[CurlyEpsilon]c1 + \
04336 \[CurlyEpsilon]n)))), 2) +
04337 2*E0c*(As1*d*E0c +
04338 As2*ch*E0cn)*(b*Power(d, 2)*E0c*fc*
04339 Power(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n,
04340 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
04341 4*(-1 + k)*\[CurlyEpsilon]n) +
04342 6*k*Power(\[CurlyEpsilon]c1,
04343 3)*(-(As2*ch*E0c*E0cn*\[CurlyEpsilon]c1) +
04344 d*(As2*E0cn*fy +
04345 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
04346 E0c*(-(As2*fy) - N0 +
04347 As2*E0cn*(\[CurlyEpsilon]c1 + \
04348 \[CurlyEpsilon]n))))))))/(4.*Sqrt(3)*E0c*(As1*d*E0c + As2*ch*E0cn)*
04349 k) + (3*d*E0c*k*
04350 Power(\[CurlyEpsilon]c1,
04351 2)*(N0 + As1*E0c*(\[CurlyEpsilon]c1 - \[CurlyEpsilon]n)) -
04352 3*As2*k*Power(\[CurlyEpsilon]c1,
04353 2)*(-2*ch*E0c*E0cn*\[CurlyEpsilon]c1 +
04354 d*(E0cn*fy +
04355 E0c*(-fy +
04356 E0cn*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)))) +
04357 Sqrt(3)*Sqrt(k*
04358 Power(\[CurlyEpsilon]c1,
04359 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
04360 Power(d*
04361 E0c*(N0 +
04362 As1*E0c*(\[CurlyEpsilon]c1 - \
04363 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c1 -
04364 d*(E0cn*fy +
04365 E0c*(-fy +
04366 E0cn*(\[CurlyEpsilon]c1 + \
04367 \[CurlyEpsilon]n)))), 2) +
04368 2*E0c*(As1*d*E0c +
04369 As2*ch*E0cn)*(b*Power(d, 2)*E0c*fc*
04370 Power(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n,
04371 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
04372 4*(-1 + k)*\[CurlyEpsilon]n) +
04373 6*k*Power(\[CurlyEpsilon]c1,
04374 3)*(-(As2*ch*E0c*E0cn*\[CurlyEpsilon]c1) +
04375 d*(As2*E0cn*fy +
04376 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
04377 E0c*(-(As2*fy) - N0 +
04378 As2*E0cn*(\[CurlyEpsilon]c1 + \
04379 \[CurlyEpsilon]n))))))))/(6.*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
04380 Power(\[CurlyEpsilon]c1, 2)) - (As1*d*E0c*k*
04381 Power(\[CurlyEpsilon]c1, 2) +
04382 As2*(2*ch - d)*E0cn*k*
04383 Power(\[CurlyEpsilon]c1,
04384 2) + (Sqrt(3)*(Power(As1, 2)*Power(E0c, 3)*k*
04385 Power(\[CurlyEpsilon]c1,
04386 2)*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n) +
04387 As2*E0cn*(2*b*ch*E0c*
04388 fc*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)*(k*(\
04389 \[CurlyEpsilon]c1 - 2*\[CurlyEpsilon]n) + 2*\[CurlyEpsilon]n) +
04390 k*Power(\[CurlyEpsilon]c1,
04391 2)*(-(E0c*N0) +
04392 As2*(E0cn*fy +
04393 E0c*(-fy +
04394 E0cn*(\[CurlyEpsilon]c1 + \
04395 \[CurlyEpsilon]n))))) +
04396 As1*E0c*(2*b*d*E0c*
04397 fc*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)*(k*(\
04398 \[CurlyEpsilon]c1 - 2*\[CurlyEpsilon]n) + 2*\[CurlyEpsilon]n) +
04399 k*Power(\[CurlyEpsilon]c1,
04400 2)*(-(E0c*N0) +
04401 As2*(E0cn*fy +
04402 E0c*(-fy +
04403 2*E0cn*(\[CurlyEpsilon]c1 + \
04404 \[CurlyEpsilon]n))))))*
04405 Sqrt(k*Power(\[CurlyEpsilon]c1,
04406 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
04407 Power(d*
04408 E0c*(N0 +
04409 As1*E0c*(\[CurlyEpsilon]c1 - \
04410 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c1 -
04411 d*(E0cn*fy +
04412 E0c*(-fy +
04413 E0cn*(\[CurlyEpsilon]c1 + \
04414 \[CurlyEpsilon]n)))), 2) +
04415 2*E0c*(As1*d*E0c +
04416 As2*ch*E0cn)*(b*Power(d, 2)*E0c*fc*
04417 Power(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n,
04418 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
04419 4*(-1 + k)*\[CurlyEpsilon]n) +
04420 6*k*Power(\[CurlyEpsilon]c1,
04421 3)*(-(As2*ch*E0c*E0cn*\[CurlyEpsilon]c1) +
04422 d*(As2*E0cn*fy +
04423 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
04424 E0c*(-(As2*fy) - N0 +
04425 As2*E0cn*(\[CurlyEpsilon]c1 + \
04426 \[CurlyEpsilon]n))))))))/(3*Power(As2, 2)*k*Power(\[CurlyEpsilon]c1, 2)*
04427 Power(E0cn*fy +
04428 E0c*(-fy + E0cn*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)),
04429 2) + Power(E0c,
04430 2)*(-4*As1*b*d*E0c*
04431 fc*(\[CurlyEpsilon]c1 - 2*\[CurlyEpsilon]n)*
04432 Power(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n, 2) +
04433 k*(3*Power(N0, 2)*Power(\[CurlyEpsilon]c1, 2) -
04434 6*As1*E0c*N0*
04435 Power(\[CurlyEpsilon]c1,
04436 2)*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n) +
04437 As1*E0c*(3*As1*E0c*Power(\[CurlyEpsilon]c1, 2) +
04438 2*b*d*
04439 fc*(5*\[CurlyEpsilon]c1 -
04440 4*\[CurlyEpsilon]n))*
04441 Power(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n,
04442 2))) -
04443 2*As2*E0c*(3*E0cn*fy*k*N0*Power(\[CurlyEpsilon]c1, 2) -
04444 3*As1*Power(E0c, 2)*k*
04445 Power(\[CurlyEpsilon]c1,
04446 2)*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)*(-fy +
04447 E0cn*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)) -
04448 E0c*(3*fy*k*
04449 Power(\[CurlyEpsilon]c1,
04450 2)*(N0 +
04451 As1*E0cn*(\[CurlyEpsilon]c1 + \
04452 \[CurlyEpsilon]n)) + E0cn*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)*(-3*k*N0*
04453 Power(\[CurlyEpsilon]c1, 2) +
04454 b*ch*fc*(\[CurlyEpsilon]c1 + \
04455 \[CurlyEpsilon]n)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
04456 4*(-1 +
04457 k)*\[CurlyEpsilon]n))))))/(2.*(As1*d*
04458 E0c + As2*ch*E0cn)*k*\[CurlyEpsilon]c1)
04459
04460 ac2 = (3*As1*d*Power(E0c, 2)*k*Power(\[CurlyEpsilon]c1, 2) +
04461 3*As2*(2*ch - d)*E0c*E0cn*k*
04462 Power(\[CurlyEpsilon]c1,
04463 2) + (3*Sqrt(3)*
04464 E0c*(Power(As1, 2)*Power(E0c, 3)*k*
04465 Power(\[CurlyEpsilon]c1,
04466 2)*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n) +
04467 As2*E0cn*(2*b*ch*E0c*
04468 fc*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)*(k*(\
04469 \[CurlyEpsilon]c1 - 2*\[CurlyEpsilon]n) + 2*\[CurlyEpsilon]n) +
04470 k*Power(\[CurlyEpsilon]c1,
04471 2)*(-(E0c*N0) +
04472 As2*(E0cn*fy +
04473 E0c*(-fy +
04474 E0cn*(\[CurlyEpsilon]c1 + \
04475 \[CurlyEpsilon]n))))) +
04476 As1*E0c*(2*b*d*E0c*
04477 fc*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)*(k*(\
04478 \[CurlyEpsilon]c1 - 2*\[CurlyEpsilon]n) + 2*\[CurlyEpsilon]n) +
04479 k*Power(\[CurlyEpsilon]c1,
04480 2)*(-(E0c*N0) +
04481 As2*(E0cn*fy +
04482 E0c*(-fy +
04483 2*E0cn*(\[CurlyEpsilon]c1 + \
04484 \[CurlyEpsilon]n))))))*
04485 Sqrt(k*Power(\[CurlyEpsilon]c1,
04486 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
04487 Power(d*
04488 E0c*(N0 +
04489 As1*E0c*(\[CurlyEpsilon]c1 - \
04490 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c1 -
04491 d*(E0cn*fy +
04492 E0c*(-fy +
04493 E0cn*(\[CurlyEpsilon]c1 + \
04494 \[CurlyEpsilon]n)))), 2) +
04495 2*E0c*(As1*d*E0c +
04496 As2*ch*E0cn)*(b*Power(d, 2)*E0c*fc*
04497 Power(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n,
04498 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
04499 4*(-1 + k)*\[CurlyEpsilon]n) +
04500 6*k*Power(\[CurlyEpsilon]c1,
04501 3)*(-(As2*ch*E0c*E0cn*\[CurlyEpsilon]c1) +
04502 d*(As2*E0cn*fy +
04503 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
04504 E0c*(-(As2*fy) - N0 +
04505 As2*E0cn*(\[CurlyEpsilon]c1 + \
04506 \[CurlyEpsilon]n))))))))/(3*Power(As2, 2)*k*Power(\[CurlyEpsilon]c1, 2)*
04507 Power(E0cn*fy +
04508 E0c*(-fy + E0cn*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)),
04509 2) + Power(E0c,
04510 2)*(-4*As1*b*d*E0c*
04511 fc*(\[CurlyEpsilon]c1 - 2*\[CurlyEpsilon]n)*
04512 Power(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n, 2) +
04513 k*(3*Power(N0, 2)*Power(\[CurlyEpsilon]c1, 2) -
04514 6*As1*E0c*N0*
04515 Power(\[CurlyEpsilon]c1,
04516 2)*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n) +
04517 As1*E0c*(3*As1*E0c*Power(\[CurlyEpsilon]c1, 2) +
04518 2*b*d*
04519 fc*(5*\[CurlyEpsilon]c1 -
04520 4*\[CurlyEpsilon]n))*
04521 Power(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n,
04522 2))) -
04523 2*As2*
04524 E0c*(3*E0cn*fy*k*N0*Power(\[CurlyEpsilon]c1, 2) -
04525 3*As1*Power(E0c, 2)*k*
04526 Power(\[CurlyEpsilon]c1,
04527 2)*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)*(-fy +
04528 E0cn*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)) -
04529 E0c*(3*fy*k*
04530 Power(\[CurlyEpsilon]c1,
04531 2)*(N0 +
04532 As1*E0cn*(\[CurlyEpsilon]c1 + \
04533 \[CurlyEpsilon]n)) + E0cn*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)*(-3*k*N0*
04534 Power(\[CurlyEpsilon]c1, 2) +
04535 b*ch*fc*(\[CurlyEpsilon]c1 + \
04536 \[CurlyEpsilon]n)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
04537 4*(-1 + k)*\[CurlyEpsilon]n))))) -
04538 Sqrt(3)*\[CurlyEpsilon]c1*
04539 Sqrt(k*Power(\[CurlyEpsilon]c1,
04540 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
04541 Power(d*
04542 E0c*(N0 +
04543 As1*E0c*(\[CurlyEpsilon]c1 - \[CurlyEpsilon]n)) \
04544 + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c1 -
04545 d*(E0cn*fy +
04546 E0c*(-fy +
04547 E0cn*(\[CurlyEpsilon]c1 + \
04548 \[CurlyEpsilon]n)))), 2) +
04549 2*E0c*(As1*d*E0c +
04550 As2*ch*E0cn)*(b*Power(d, 2)*E0c*fc*
04551 Power(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n,
04552 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
04553 4*(-1 + k)*\[CurlyEpsilon]n) +
04554 6*k*Power(\[CurlyEpsilon]c1,
04555 3)*(-(As2*ch*E0c*E0cn*\[CurlyEpsilon]c1) +
04556 d*(As2*E0cn*fy +
04557 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
04558 E0c*(-(As2*fy) - N0 +
04559 As2*E0cn*(\[CurlyEpsilon]c1 + \
04560 \[CurlyEpsilon]n)))))))*(-Power(2*
04561 E0c*(As1*d*E0c +
04562 As2*ch*E0cn)*(6*b*Power(d, 2)*E0c*
04563 fc*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)*(k*(\
04564 \[CurlyEpsilon]c1 - 2*\[CurlyEpsilon]n) + 2*\[CurlyEpsilon]n) +
04565 6*k*Power(\[CurlyEpsilon]c1,
04566 2)*(d*E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
04567 As2*(-2*ch*E0c*E0cn*\[CurlyEpsilon]c1 +
04568 d*(-(E0c*fy) + E0cn*fy +
04569 2*E0c*E0cn*\[CurlyEpsilon]c1 +
04570 E0c*E0cn*\[CurlyEpsilon]n)))) +
04571 6*E0c*(As1*d*E0c + As2*(2*ch - d)*E0cn)*k*
04572 Power(\[CurlyEpsilon]c1,
04573 2)*(d*E0c*(N0 +
04574 As1*E0c*(\[CurlyEpsilon]c1 - \
04575 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c1 -
04576 d*(E0cn*fy +
04577 E0c*(-fy +
04578 E0cn*(\[CurlyEpsilon]c1 + \
04579 \[CurlyEpsilon]n))))),
04580 2)/(4.*Power(3*k*Power(\[CurlyEpsilon]c1, 2)*
04581 Power(d*
04582 E0c*(N0 +
04583 As1*E0c*(\[CurlyEpsilon]c1 - \
04584 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c1 -
04585 d*(E0cn*fy +
04586 E0c*(-fy +
04587 E0cn*(\[CurlyEpsilon]c1 + \
04588 \[CurlyEpsilon]n)))), 2) +
04589 2*E0c*(As1*d*E0c +
04590 As2*ch*E0cn)*(b*Power(d, 2)*E0c*fc*
04591 Power(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n,
04592 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
04593 4*(-1 + k)*\[CurlyEpsilon]n) +
04594 6*k*Power(\[CurlyEpsilon]c1,
04595 3)*(-(As2*ch*E0c*E0cn*\[CurlyEpsilon]c1) +
04596 d*(As2*E0cn*fy +
04597 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
04598 E0c*(-(As2*fy) - N0 +
04599 As2*E0cn*(\[CurlyEpsilon]c1 + \
04600 \[CurlyEpsilon]n))))), 2)) + (3*
04601 Power(E0c,
04602 2)*(Power(As1*d*E0c + As2*(2*ch - d)*E0cn, 2)*k*
04603 Power(\[CurlyEpsilon]c1, 2) -
04604 2*(As1*d*E0c +
04605 As2*ch*E0cn)*(2*As2*(ch - d)*E0cn*k*
04606 Power(\[CurlyEpsilon]c1, 2) +
04607 b*Power(d, 2)*
04608 fc*((-2 + k)*\[CurlyEpsilon]c1 +
04609 4*(-1 + k)*\[CurlyEpsilon]n))))/(3*k*
04610 Power(\[CurlyEpsilon]c1, 2)*
04611 Power(d*
04612 E0c*(N0 +
04613 As1*E0c*(\[CurlyEpsilon]c1 - \
04614 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c1 -
04615 d*(E0cn*fy +
04616 E0c*(-fy +
04617 E0cn*(\[CurlyEpsilon]c1 + \
04618 \[CurlyEpsilon]n)))), 2) +
04619 2*E0c*(As1*d*E0c +
04620 As2*ch*E0cn)*(b*Power(d, 2)*E0c*fc*
04621 Power(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n,
04622 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
04623 4*(-1 + k)*\[CurlyEpsilon]n) +
04624 6*k*Power(\[CurlyEpsilon]c1,
04625 3)*(-(As2*ch*E0c*E0cn*\[CurlyEpsilon]c1) +
04626 d*(As2*E0cn*fy +
04627 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
04628 E0c*(-(As2*fy) - N0 +
04629 As2*E0cn*(\[CurlyEpsilon]c1 + \
04630 \[CurlyEpsilon]n))))))))/(6.*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
04631 Power(\[CurlyEpsilon]c1, 2))
04632
04633 ac3 = (Sqrt(k*
04634 Power(\[CurlyEpsilon]c1,
04635 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
04636 Power(d*
04637 E0c*(N0 +
04638 As1*E0c*(\[CurlyEpsilon]c1 - \[CurlyEpsilon]n)) +
04639 As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c1 -
04640 d*(E0cn*fy +
04641 E0c*(-fy +
04642 E0cn*(\[CurlyEpsilon]c1 + \
04643 \[CurlyEpsilon]n)))), 2) +
04644 2*E0c*(As1*d*E0c +
04645 As2*ch*E0cn)*(b*Power(d, 2)*E0c*fc*
04646 Power(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n,
04647 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
04648 4*(-1 + k)*\[CurlyEpsilon]n) +
04649 6*k*Power(\[CurlyEpsilon]c1,
04650 3)*(-(As2*ch*E0c*E0cn*\[CurlyEpsilon]c1) +
04651 d*(As2*E0cn*fy +
04652 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
04653 E0c*(-(As2*fy) - N0 +
04654 As2*E0cn*(\[CurlyEpsilon]c1 + \
04655 \[CurlyEpsilon]n)))))))*(-Power(2*
04656 E0c*(As1*d*E0c +
04657 As2*ch*E0cn)*(6*b*Power(d, 2)*E0c*
04658 fc*(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n)*(k*(\
04659 \[CurlyEpsilon]c1 - 2*\[CurlyEpsilon]n) + 2*\[CurlyEpsilon]n) +
04660 6*k*Power(\[CurlyEpsilon]c1,
04661 2)*(d*E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
04662 As2*(-2*ch*E0c*E0cn*\[CurlyEpsilon]c1 +
04663 d*(-(E0c*fy) + E0cn*fy +
04664 2*E0c*E0cn*\[CurlyEpsilon]c1 +
04665 E0c*E0cn*\[CurlyEpsilon]n)))) +
04666 6*E0c*(As1*d*E0c + As2*(2*ch - d)*E0cn)*k*
04667 Power(\[CurlyEpsilon]c1,
04668 2)*(d*E0c*(N0 +
04669 As1*E0c*(\[CurlyEpsilon]c1 - \
04670 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c1 -
04671 d*(E0cn*fy +
04672 E0c*(-fy +
04673 E0cn*(\[CurlyEpsilon]c1 + \
04674 \[CurlyEpsilon]n))))),
04675 2)/(4.*Power(3*k*Power(\[CurlyEpsilon]c1, 2)*
04676 Power(d*
04677 E0c*(N0 +
04678 As1*E0c*(\[CurlyEpsilon]c1 - \
04679 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c1 -
04680 d*(E0cn*fy +
04681 E0c*(-fy +
04682 E0cn*(\[CurlyEpsilon]c1 + \
04683 \[CurlyEpsilon]n)))), 2) +
04684 2*E0c*(As1*d*E0c +
04685 As2*ch*E0cn)*(b*Power(d, 2)*E0c*fc*
04686 Power(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n,
04687 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
04688 4*(-1 + k)*\[CurlyEpsilon]n) +
04689 6*k*Power(\[CurlyEpsilon]c1,
04690 3)*(-(As2*ch*E0c*E0cn*\[CurlyEpsilon]c1) +
04691 d*(As2*E0cn*fy +
04692 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
04693 E0c*(-(As2*fy) - N0 +
04694 As2*E0cn*(\[CurlyEpsilon]c1 + \
04695 \[CurlyEpsilon]n))))), 2)) + (3*
04696 Power(E0c,
04697 2)*(Power(As1*d*E0c + As2*(2*ch - d)*E0cn, 2)*k*
04698 Power(\[CurlyEpsilon]c1, 2) -
04699 2*(As1*d*E0c +
04700 As2*ch*E0cn)*(2*As2*(ch - d)*E0cn*k*
04701 Power(\[CurlyEpsilon]c1, 2) +
04702 b*Power(d, 2)*
04703 fc*((-2 + k)*\[CurlyEpsilon]c1 +
04704 4*(-1 + k)*\[CurlyEpsilon]n))))/(3*k*
04705 Power(\[CurlyEpsilon]c1, 2)*
04706 Power(d*
04707 E0c*(N0 +
04708 As1*E0c*(\[CurlyEpsilon]c1 - \[CurlyEpsilon]n)) \
04709 + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c1 -
04710 d*(E0cn*fy +
04711 E0c*(-fy +
04712 E0cn*(\[CurlyEpsilon]c1 + \
04713 \[CurlyEpsilon]n)))), 2) +
04714 2*E0c*(As1*d*E0c +
04715 As2*ch*E0cn)*(b*Power(d, 2)*E0c*fc*
04716 Power(\[CurlyEpsilon]c1 + \[CurlyEpsilon]n,
04717 2)*((-2 + 5*k)*\[CurlyEpsilon]c1 -
04718 4*(-1 + k)*\[CurlyEpsilon]n) +
04719 6*k*Power(\[CurlyEpsilon]c1,
04720 3)*(-(As2*ch*E0c*E0cn*\[CurlyEpsilon]c1) +
04721 d*(As2*E0cn*fy +
04722 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
04723 E0c*(-(As2*fy) - N0 +
04724 As2*E0cn*(\[CurlyEpsilon]c1 + \
04725 \[CurlyEpsilon]n))))))))/(4.*Sqrt(3)*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
04726 Power(\[CurlyEpsilon]c1, 2))
04727
04728 If(0 > Power(ac2, 2) -
04729 4*ac1*ac3, \[CurlyEpsilon]cp = -1, \[CurlyEpsilon]cp = (-ac2 -
04730 Sqrt(Power(ac2, 2) - 4*ac1*ac3))/(2.*ac3))
04731
04732 ac1 = -(fy/E0c) + \[CurlyEpsilon]n + (3*d*E0c*k*
04733 Power(\[CurlyEpsilon]c1,
04734 2)*(N0 + As1*E0c*(\[CurlyEpsilon]cp - \[CurlyEpsilon]n)) +
04735 3*As2*k*Power(\[CurlyEpsilon]c1,
04736 2)*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp +
04737 d*(-(E0cn*fy) +
04738 E0c*(fy -
04739 E0cn*(\[CurlyEpsilon]cp + \[CurlyEpsilon]n)))) +
04740 Sqrt(3)*Sqrt(k*
04741 Power(\[CurlyEpsilon]c1,
04742 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
04743 Power(d*
04744 E0c*(N0 +
04745 As1*E0c*(\[CurlyEpsilon]cp - \
04746 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp -
04747 d*(E0cn*fy +
04748 E0c*(-fy +
04749 E0cn*(\[CurlyEpsilon]cp + \
04750 \[CurlyEpsilon]n)))), 2) +
04751 2*E0c*(As1*d*E0c +
04752 As2*ch*
04753 E0cn)*(-(b*Power(d, 2)*E0c*fc*
04754 Power(\[CurlyEpsilon]cp + \[CurlyEpsilon]n,
04755 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
04756 4*(-1 +
04757 k)*(\[CurlyEpsilon]cp + \
04758 \[CurlyEpsilon]n))) + 6*k*Power(\[CurlyEpsilon]c1,
04759 2)*\[CurlyEpsilon]cp*(-(As2*ch*E0c*
04760 E0cn*\[CurlyEpsilon]cp) +
04761 d*(As2*E0cn*fy +
04762 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
04763 E0c*(-(As2*fy) - N0 +
04764 As2*E0cn*(\[CurlyEpsilon]cp + \
04765 \[CurlyEpsilon]n))))))))/(6.*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
04766 Power(\[CurlyEpsilon]c1,
04767 2)) - (\[CurlyEpsilon]cp*(6*As1*d*Power(E0c, 2) +
04768 6*As2*(2*ch - d)*E0c*
04769 E0cn + (Sqrt(3)*(6*E0c*(As1*d*E0c + As2*(2*ch - d)*E0cn)*k*
04770 Power(\[CurlyEpsilon]c1,
04771 2)*(d*E0c*(N0 +
04772 As1*E0c*(\[CurlyEpsilon]cp - \
04773 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp -
04774 d*(E0cn*fy +
04775 E0c*(-fy +
04776 E0cn*(\[CurlyEpsilon]cp + \
04777 \[CurlyEpsilon]n))))) + 2*E0c*(As1*d*E0c +
04778 As2*ch*E0cn)*(-6*b*Power(d, 2)*E0c*
04779 fc*(\[CurlyEpsilon]cp + \
04780 \[CurlyEpsilon]n)*((2 - 3*k)*\[CurlyEpsilon]c1 +
04781 2*(-1 +
04782 k)*(\[CurlyEpsilon]cp + \
04783 \[CurlyEpsilon]n)) - 6*k*Power(\[CurlyEpsilon]c1,
04784 2)*(d*
04785 E0c*(N0 - As1*E0c*\[CurlyEpsilon]n) +
04786 As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp +
04787 d*(-(E0cn*fy) +
04788 E0c*(fy -
04789 E0cn*(2*\[CurlyEpsilon]cp + \
04790 \[CurlyEpsilon]n))))))))/
04791 Sqrt(k*Power(\[CurlyEpsilon]c1,
04792 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
04793 Power(d*
04794 E0c*(N0 +
04795 As1*E0c*(\[CurlyEpsilon]cp - \
04796 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp -
04797 d*(E0cn*fy +
04798 E0c*(-fy +
04799 E0cn*(\[CurlyEpsilon]cp + \
04800 \[CurlyEpsilon]n)))), 2) +
04801 2*E0c*(As1*d*E0c +
04802 As2*ch*
04803 E0cn)*(-(b*Power(d, 2)*E0c*fc*
04804 Power(\[CurlyEpsilon]cp + \
04805 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
04806 4*(-1 +
04807 k)*(\[CurlyEpsilon]cp + \
04808 \[CurlyEpsilon]n))) + 6*k*Power(\[CurlyEpsilon]c1,
04809 2)*\[CurlyEpsilon]cp*(-(As2*ch*E0c*
04810 E0cn*\[CurlyEpsilon]cp) +
04811 d*(As2*E0cn*fy +
04812 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
04813 E0c*(-(As2*fy) - N0 +
04814 As2*E0cn*(\[CurlyEpsilon]cp + \
04815 \[CurlyEpsilon]n)))))))))/(12.*
04816 E0c*(As1*d*E0c + As2*ch*E0cn)) + (Power(\[CurlyEpsilon]cp, 2)*
04817 Sqrt(k*Power(\[CurlyEpsilon]c1,
04818 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
04819 Power(d*
04820 E0c*(N0 +
04821 As1*E0c*(\[CurlyEpsilon]cp - \[CurlyEpsilon]n)) \
04822 + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp -
04823 d*(E0cn*fy +
04824 E0c*(-fy +
04825 E0cn*(\[CurlyEpsilon]cp + \
04826 \[CurlyEpsilon]n)))), 2) +
04827 2*E0c*(As1*d*E0c +
04828 As2*ch*
04829 E0cn)*(-(b*Power(d, 2)*E0c*fc*
04830 Power(\[CurlyEpsilon]cp + \[CurlyEpsilon]n,
04831 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
04832 4*(-1 +
04833 k)*(\[CurlyEpsilon]cp + \
04834 \[CurlyEpsilon]n))) + 6*k*
04835 Power(\[CurlyEpsilon]c1,
04836 2)*\[CurlyEpsilon]cp*(-(As2*ch*E0c*
04837 E0cn*\[CurlyEpsilon]cp) +
04838 d*(As2*E0cn*fy +
04839 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
04840 E0c*(-(As2*fy) - N0 +
04841 As2*E0cn*(\[CurlyEpsilon]cp + \
04842 \[CurlyEpsilon]n)))))))*((E0c*(3*E0c*
04843 Power(As1*d*E0c + As2*(2*ch - d)*E0cn, 2)*k*
04844 Power(\[CurlyEpsilon]c1, 2) +
04845 2*(As1*d*E0c +
04846 As2*ch*E0cn)*(6*As2*(-ch + d)*E0c*E0cn*k*
04847 Power(\[CurlyEpsilon]c1, 2) +
04848 3*b*Power(d, 2)*E0c*
04849 fc*((-2 + 3*k)*\[CurlyEpsilon]c1 -
04850 4*(-1 +
04851 k)*(\[CurlyEpsilon]cp + \
04852 \[CurlyEpsilon]n)))))/(3*k*Power(\[CurlyEpsilon]c1, 2)*
04853 Power(d*
04854 E0c*(N0 +
04855 As1*E0c*(\[CurlyEpsilon]cp - \
04856 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp -
04857 d*(E0cn*fy +
04858 E0c*(-fy +
04859 E0cn*(\[CurlyEpsilon]cp + \
04860 \[CurlyEpsilon]n)))), 2) +
04861 2*E0c*(As1*d*E0c +
04862 As2*ch*
04863 E0cn)*(-(b*Power(d, 2)*E0c*fc*
04864 Power(\[CurlyEpsilon]cp + \[CurlyEpsilon]n,
04865 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
04866 4*(-1 +
04867 k)*(\[CurlyEpsilon]cp + \
04868 \[CurlyEpsilon]n))) + 6*k*Power(\[CurlyEpsilon]c1,
04869 2)*\[CurlyEpsilon]cp*(-(As2*ch*E0c*
04870 E0cn*\[CurlyEpsilon]cp) +
04871 d*(As2*E0cn*fy +
04872 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
04873 E0c*(-(As2*fy) - N0 +
04874 As2*E0cn*(\[CurlyEpsilon]cp + \
04875 \[CurlyEpsilon]n)))))) -
04876 Power(6*E0c*(As1*d*E0c + As2*(2*ch - d)*E0cn)*k*
04877 Power(\[CurlyEpsilon]c1,
04878 2)*(d*E0c*(N0 +
04879 As1*E0c*(\[CurlyEpsilon]cp - \
04880 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp -
04881 d*(E0cn*fy +
04882 E0c*(-fy +
04883 E0cn*(\[CurlyEpsilon]cp + \
04884 \[CurlyEpsilon]n))))) +
04885 2*E0c*(As1*d*E0c +
04886 As2*ch*E0cn)*(-6*b*Power(d, 2)*E0c*
04887 fc*(\[CurlyEpsilon]cp + \[CurlyEpsilon]n)*((2 -
04888 3*k)*\[CurlyEpsilon]c1 +
04889 2*(-1 +
04890 k)*(\[CurlyEpsilon]cp + \
04891 \[CurlyEpsilon]n)) - 6*k*Power(\[CurlyEpsilon]c1,
04892 2)*(d*E0c*(N0 - As1*E0c*\[CurlyEpsilon]n) +
04893 As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp +
04894 d*(-(E0cn*fy) +
04895 E0c*(fy -
04896 E0cn*(2*\[CurlyEpsilon]cp + \
04897 \[CurlyEpsilon]n)))))),
04898 2)/(4.*Power(3*k*Power(\[CurlyEpsilon]c1, 2)*
04899 Power(d*
04900 E0c*(N0 +
04901 As1*E0c*(\[CurlyEpsilon]cp - \
04902 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp -
04903 d*(E0cn*fy +
04904 E0c*(-fy +
04905 E0cn*(\[CurlyEpsilon]cp + \
04906 \[CurlyEpsilon]n)))), 2) +
04907 2*E0c*(As1*d*E0c +
04908 As2*ch*
04909 E0cn)*(-(b*Power(d, 2)*E0c*fc*
04910 Power(\[CurlyEpsilon]cp + \
04911 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
04912 4*(-1 +
04913 k)*(\[CurlyEpsilon]cp + \
04914 \[CurlyEpsilon]n))) + 6*k*Power(\[CurlyEpsilon]c1,
04915 2)*\[CurlyEpsilon]cp*(-(As2*ch*E0c*
04916 E0cn*\[CurlyEpsilon]cp) +
04917 d*(As2*E0cn*fy +
04918 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
04919 E0c*(-(As2*fy) - N0 +
04920 As2*E0cn*(\[CurlyEpsilon]cp + \
04921 \[CurlyEpsilon]n))))), 2))))/(4.*Sqrt(3)*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
04922 Power(\[CurlyEpsilon]c1, 2))
04923
04924 ac2 = (3*As1*d*Power(E0c, 2)*k*Power(\[CurlyEpsilon]c1, 2) +
04925 3*As2*(2*ch - d)*E0c*E0cn*k*
04926 Power(\[CurlyEpsilon]c1,
04927 2) + (Sqrt(3)*k*
04928 Power(\[CurlyEpsilon]c1,
04929 2)*(6*E0c*(As1*d*E0c + As2*(2*ch - d)*E0cn)*k*
04930 Power(\[CurlyEpsilon]c1,
04931 2)*(d*E0c*(N0 +
04932 As1*E0c*(\[CurlyEpsilon]cp - \[CurlyEpsilon]n)) \
04933 + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp -
04934 d*(E0cn*fy +
04935 E0c*(-fy +
04936 E0cn*(\[CurlyEpsilon]cp + \
04937 \[CurlyEpsilon]n))))) +
04938 2*E0c*(As1*d*E0c +
04939 As2*ch*E0cn)*(-6*b*Power(d, 2)*E0c*
04940 fc*(\[CurlyEpsilon]cp + \[CurlyEpsilon]n)*((2 -
04941 3*k)*\[CurlyEpsilon]c1 +
04942 2*(-1 +
04943 k)*(\[CurlyEpsilon]cp + \
04944 \[CurlyEpsilon]n)) - 6*k*
04945 Power(\[CurlyEpsilon]c1,
04946 2)*(d*E0c*(N0 - As1*E0c*\[CurlyEpsilon]n) +
04947 As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp +
04948 d*(-(E0cn*fy) +
04949 E0c*(fy -
04950 E0cn*(2*\[CurlyEpsilon]cp + \
04951 \[CurlyEpsilon]n))))))))/(2.*
04952 Sqrt(k*Power(\[CurlyEpsilon]c1,
04953 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
04954 Power(d*
04955 E0c*(N0 +
04956 As1*E0c*(\[CurlyEpsilon]cp - \
04957 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp -
04958 d*(E0cn*fy +
04959 E0c*(-fy +
04960 E0cn*(\[CurlyEpsilon]cp + \
04961 \[CurlyEpsilon]n)))), 2) +
04962 2*E0c*(As1*d*E0c +
04963 As2*ch*
04964 E0cn)*(-(b*Power(d, 2)*E0c*fc*
04965 Power(\[CurlyEpsilon]cp + \[CurlyEpsilon]n,
04966 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
04967 4*(-1 +
04968 k)*(\[CurlyEpsilon]cp + \
04969 \[CurlyEpsilon]n))) + 6*k*Power(\[CurlyEpsilon]c1,
04970 2)*\[CurlyEpsilon]cp*(-(As2*ch*E0c*
04971 E0cn*\[CurlyEpsilon]cp) +
04972 d*(As2*E0cn*fy +
04973 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
04974 E0c*(-(As2*fy) - N0 +
04975 As2*E0cn*(\[CurlyEpsilon]cp + \
04976 \[CurlyEpsilon]n)))))))) -
04977 Sqrt(3)*\[CurlyEpsilon]cp*
04978 Sqrt(k*Power(\[CurlyEpsilon]c1,
04979 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
04980 Power(d*
04981 E0c*(N0 +
04982 As1*E0c*(\[CurlyEpsilon]cp - \[CurlyEpsilon]n)) \
04983 + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp -
04984 d*(E0cn*fy +
04985 E0c*(-fy +
04986 E0cn*(\[CurlyEpsilon]cp + \
04987 \[CurlyEpsilon]n)))), 2) +
04988 2*E0c*(As1*d*E0c +
04989 As2*ch*
04990 E0cn)*(-(b*Power(d, 2)*E0c*fc*
04991 Power(\[CurlyEpsilon]cp + \[CurlyEpsilon]n,
04992 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
04993 4*(-1 +
04994 k)*(\[CurlyEpsilon]cp + \
04995 \[CurlyEpsilon]n))) + 6*k*Power(\[CurlyEpsilon]c1,
04996 2)*\[CurlyEpsilon]cp*(-(As2*ch*E0c*
04997 E0cn*\[CurlyEpsilon]cp) +
04998 d*(As2*E0cn*fy +
04999 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
05000 E0c*(-(As2*fy) - N0 +
05001 As2*E0cn*(\[CurlyEpsilon]cp + \
05002 \[CurlyEpsilon]n)))))))*((E0c*(3*E0c*
05003 Power(As1*d*E0c + As2*(2*ch - d)*E0cn, 2)*k*
05004 Power(\[CurlyEpsilon]c1, 2) +
05005 2*(As1*d*E0c +
05006 As2*ch*E0cn)*(6*As2*(-ch + d)*E0c*E0cn*k*
05007 Power(\[CurlyEpsilon]c1, 2) +
05008 3*b*Power(d, 2)*E0c*
05009 fc*((-2 + 3*k)*\[CurlyEpsilon]c1 -
05010 4*(-1 +
05011 k)*(\[CurlyEpsilon]cp + \
05012 \[CurlyEpsilon]n)))))/(3*k*Power(\[CurlyEpsilon]c1, 2)*
05013 Power(d*
05014 E0c*(N0 +
05015 As1*E0c*(\[CurlyEpsilon]cp - \
05016 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp -
05017 d*(E0cn*fy +
05018 E0c*(-fy +
05019 E0cn*(\[CurlyEpsilon]cp + \
05020 \[CurlyEpsilon]n)))), 2) +
05021 2*E0c*(As1*d*E0c +
05022 As2*ch*
05023 E0cn)*(-(b*Power(d, 2)*E0c*fc*
05024 Power(\[CurlyEpsilon]cp + \[CurlyEpsilon]n,
05025 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05026 4*(-1 +
05027 k)*(\[CurlyEpsilon]cp + \
05028 \[CurlyEpsilon]n))) + 6*k*Power(\[CurlyEpsilon]c1,
05029 2)*\[CurlyEpsilon]cp*(-(As2*ch*E0c*
05030 E0cn*\[CurlyEpsilon]cp) +
05031 d*(As2*E0cn*fy +
05032 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
05033 E0c*(-(As2*fy) - N0 +
05034 As2*E0cn*(\[CurlyEpsilon]cp + \
05035 \[CurlyEpsilon]n)))))) -
05036 Power(6*E0c*(As1*d*E0c + As2*(2*ch - d)*E0cn)*k*
05037 Power(\[CurlyEpsilon]c1,
05038 2)*(d*E0c*(N0 +
05039 As1*E0c*(\[CurlyEpsilon]cp - \
05040 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp -
05041 d*(E0cn*fy +
05042 E0c*(-fy +
05043 E0cn*(\[CurlyEpsilon]cp + \
05044 \[CurlyEpsilon]n))))) +
05045 2*E0c*(As1*d*E0c +
05046 As2*ch*E0cn)*(-6*b*Power(d, 2)*E0c*
05047 fc*(\[CurlyEpsilon]cp + \[CurlyEpsilon]n)*((2 -
05048 3*k)*\[CurlyEpsilon]c1 +
05049 2*(-1 +
05050 k)*(\[CurlyEpsilon]cp + \
05051 \[CurlyEpsilon]n)) - 6*k*Power(\[CurlyEpsilon]c1,
05052 2)*(d*E0c*(N0 - As1*E0c*\[CurlyEpsilon]n) +
05053 As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp +
05054 d*(-(E0cn*fy) +
05055 E0c*(fy -
05056 E0cn*(2*\[CurlyEpsilon]cp + \
05057 \[CurlyEpsilon]n)))))),
05058 2)/(4.*Power(3*k*Power(\[CurlyEpsilon]c1, 2)*
05059 Power(d*
05060 E0c*(N0 +
05061 As1*E0c*(\[CurlyEpsilon]cp - \
05062 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp -
05063 d*(E0cn*fy +
05064 E0c*(-fy +
05065 E0cn*(\[CurlyEpsilon]cp + \
05066 \[CurlyEpsilon]n)))), 2) +
05067 2*E0c*(As1*d*E0c +
05068 As2*ch*
05069 E0cn)*(-(b*Power(d, 2)*E0c*fc*
05070 Power(\[CurlyEpsilon]cp + \
05071 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05072 4*(-1 +
05073 k)*(\[CurlyEpsilon]cp + \
05074 \[CurlyEpsilon]n))) + 6*k*Power(\[CurlyEpsilon]c1,
05075 2)*\[CurlyEpsilon]cp*(-(As2*ch*E0c*
05076 E0cn*\[CurlyEpsilon]cp) +
05077 d*(As2*E0cn*fy +
05078 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
05079 E0c*(-(As2*fy) - N0 +
05080 As2*E0cn*(\[CurlyEpsilon]cp + \
05081 \[CurlyEpsilon]n))))), 2))))/(6.*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
05082 Power(\[CurlyEpsilon]c1, 2))
05083
05084 ac3 = (Sqrt(k*
05085 Power(\[CurlyEpsilon]c1,
05086 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
05087 Power(d*
05088 E0c*(N0 +
05089 As1*E0c*(\[CurlyEpsilon]cp - \[CurlyEpsilon]n)) +
05090 As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp -
05091 d*(E0cn*fy +
05092 E0c*(-fy +
05093 E0cn*(\[CurlyEpsilon]cp + \
05094 \[CurlyEpsilon]n)))), 2) +
05095 2*E0c*(As1*d*E0c +
05096 As2*ch*E0cn)*(-(b*Power(d, 2)*E0c*fc*
05097 Power(\[CurlyEpsilon]cp + \[CurlyEpsilon]n,
05098 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05099 4*(-1 +
05100 k)*(\[CurlyEpsilon]cp + \
05101 \[CurlyEpsilon]n))) +
05102 6*k*Power(\[CurlyEpsilon]c1,
05103 2)*\[CurlyEpsilon]cp*(-(As2*ch*E0c*
05104 E0cn*\[CurlyEpsilon]cp) +
05105 d*(As2*E0cn*fy +
05106 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
05107 E0c*(-(As2*fy) - N0 +
05108 As2*E0cn*(\[CurlyEpsilon]cp + \
05109 \[CurlyEpsilon]n)))))))*((E0c*(3*E0c*
05110 Power(As1*d*E0c + As2*(2*ch - d)*E0cn, 2)*k*
05111 Power(\[CurlyEpsilon]c1, 2) +
05112 2*(As1*d*E0c +
05113 As2*ch*E0cn)*(6*As2*(-ch + d)*E0c*E0cn*k*
05114 Power(\[CurlyEpsilon]c1, 2) +
05115 3*b*Power(d, 2)*E0c*
05116 fc*((-2 + 3*k)*\[CurlyEpsilon]c1 -
05117 4*(-1 +
05118 k)*(\[CurlyEpsilon]cp + \
05119 \[CurlyEpsilon]n)))))/(3*k*Power(\[CurlyEpsilon]c1, 2)*
05120 Power(d*
05121 E0c*(N0 +
05122 As1*E0c*(\[CurlyEpsilon]cp - \[CurlyEpsilon]n)) \
05123 + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp -
05124 d*(E0cn*fy +
05125 E0c*(-fy +
05126 E0cn*(\[CurlyEpsilon]cp + \
05127 \[CurlyEpsilon]n)))), 2) +
05128 2*E0c*(As1*d*E0c +
05129 As2*ch*
05130 E0cn)*(-(b*Power(d, 2)*E0c*fc*
05131 Power(\[CurlyEpsilon]cp + \[CurlyEpsilon]n,
05132 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05133 4*(-1 +
05134 k)*(\[CurlyEpsilon]cp + \
05135 \[CurlyEpsilon]n))) + 6*k*
05136 Power(\[CurlyEpsilon]c1,
05137 2)*\[CurlyEpsilon]cp*(-(As2*ch*E0c*
05138 E0cn*\[CurlyEpsilon]cp) +
05139 d*(As2*E0cn*fy +
05140 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
05141 E0c*(-(As2*fy) - N0 +
05142 As2*E0cn*(\[CurlyEpsilon]cp + \
05143 \[CurlyEpsilon]n)))))) -
05144 Power(6*E0c*(As1*d*E0c + As2*(2*ch - d)*E0cn)*k*
05145 Power(\[CurlyEpsilon]c1,
05146 2)*(d*E0c*(N0 +
05147 As1*E0c*(\[CurlyEpsilon]cp - \
05148 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp -
05149 d*(E0cn*fy +
05150 E0c*(-fy +
05151 E0cn*(\[CurlyEpsilon]cp + \
05152 \[CurlyEpsilon]n))))) +
05153 2*E0c*(As1*d*E0c +
05154 As2*ch*E0cn)*(-6*b*Power(d, 2)*E0c*
05155 fc*(\[CurlyEpsilon]cp + \[CurlyEpsilon]n)*((2 -
05156 3*k)*\[CurlyEpsilon]c1 +
05157 2*(-1 +
05158 k)*(\[CurlyEpsilon]cp + \
05159 \[CurlyEpsilon]n)) - 6*k*Power(\[CurlyEpsilon]c1,
05160 2)*(d*E0c*(N0 - As1*E0c*\[CurlyEpsilon]n) +
05161 As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp +
05162 d*(-(E0cn*fy) +
05163 E0c*(fy -
05164 E0cn*(2*\[CurlyEpsilon]cp + \
05165 \[CurlyEpsilon]n)))))),
05166 2)/(4.*Power(3*k*Power(\[CurlyEpsilon]c1, 2)*
05167 Power(d*
05168 E0c*(N0 +
05169 As1*E0c*(\[CurlyEpsilon]cp - \
05170 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cp -
05171 d*(E0cn*fy +
05172 E0c*(-fy +
05173 E0cn*(\[CurlyEpsilon]cp + \
05174 \[CurlyEpsilon]n)))), 2) +
05175 2*E0c*(As1*d*E0c +
05176 As2*ch*
05177 E0cn)*(-(b*Power(d, 2)*E0c*fc*
05178 Power(\[CurlyEpsilon]cp + \
05179 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05180 4*(-1 +
05181 k)*(\[CurlyEpsilon]cp + \
05182 \[CurlyEpsilon]n))) + 6*k*Power(\[CurlyEpsilon]c1,
05183 2)*\[CurlyEpsilon]cp*(-(As2*ch*E0c*
05184 E0cn*\[CurlyEpsilon]cp) +
05185 d*(As2*E0cn*fy +
05186 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
05187 E0c*(-(As2*fy) - N0 +
05188 As2*E0cn*(\[CurlyEpsilon]cp + \
05189 \[CurlyEpsilon]n))))), 2))))/(4.*Sqrt(3)*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
05190 Power(\[CurlyEpsilon]c1, 2))
05191
05192 If(0 > Power(ac2, 2) -
05193 4*ac1*ac3 || -1, \[CurlyEpsilon]c = -1, \[CurlyEpsilon]c = (-ac2 -
05194 Sqrt(Power(ac2, 2) - 4*ac1*ac3))/(2.*ac3), \[CurlyEpsilon]c = -1)
05195
05196 If(\[CurlyEpsilon]c < 0 && \[CurlyEpsilon]c != -1,
05197 mhr6 = 0.08333333333333333*(6*As1*
05198 E0c*(-2*cd +
05199 h)*(\[CurlyEpsilon]n + (3*d*E0c*k*
05200 Power(\[CurlyEpsilon]c1,
05201 2)*(N0 +
05202 As1*E0c*(\[CurlyEpsilon]c - \[CurlyEpsilon]n)) \
05203 + 3*As2*k*Power(\[CurlyEpsilon]c1,
05204 2)*(2*ch*E0c*E0cn*\[CurlyEpsilon]c +
05205 d*(-E0cn*fy +
05206 E0c*(fy -
05207 E0cn*(\[CurlyEpsilon]c + \
05208 \[CurlyEpsilon]n)))) +
05209 Sqrt(3)*
05210 Sqrt(k*
05211 Power(\[CurlyEpsilon]c1,
05212 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
05213 Power(d*
05214 E0c*(N0 +
05215 As1*E0c*(\[CurlyEpsilon]c - \
05216 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c +
05217 d*(-E0cn*fy +
05218 E0c*(fy -
05219 E0cn*(\[CurlyEpsilon]c + \
05220 \[CurlyEpsilon]n)))), 2) + 2*E0c*(As1*d*E0c +
05221 As2*ch*E0cn)*(-b*Power(d, 2)*E0c*fc*
05222 Power(\[CurlyEpsilon]c + \
05223 \[CurlyEpsilon]n, 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
05224 9*k)*\[CurlyEpsilon]c1 +
05225 4*(-1 + k)*\[CurlyEpsilon]n) +
05226 6*k*\[CurlyEpsilon]c*
05227 Power(\[CurlyEpsilon]c1,
05228 2)*(-As2*ch*E0c*
05229 E0cn*\[CurlyEpsilon]c +
05230 d*(As2*E0cn*fy +
05231 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
05232 E0c*(-As2*fy - N0 +
05233 As2*E0cn*(\[CurlyEpsilon]c + \
05234 \[CurlyEpsilon]n))))))))/(6.*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
05235 Power(\[CurlyEpsilon]c1, 2))) - (b*d*fc*
05236 Power(\[CurlyEpsilon]c + \[CurlyEpsilon]n,
05237 2)*(2*d*(\[CurlyEpsilon]c + \[CurlyEpsilon]n)*((-1 +
05238 k)*\[CurlyEpsilon]c + (2 -
05239 3*k)*\[CurlyEpsilon]c1 + (-1 +
05240 k)*\[CurlyEpsilon]n) -
05241 h*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
05242 9*k)*\[CurlyEpsilon]c1 +
05243 4*(-1 +
05244 k)*\[CurlyEpsilon]n)*(\[CurlyEpsilon]c - (3*
05245 d*E0c*k*
05246 Power(\[CurlyEpsilon]c1,
05247 2)*(N0 +
05248 As1*E0c*(\[CurlyEpsilon]c - \
05249 \[CurlyEpsilon]n)) + 3*As2*k*Power(\[CurlyEpsilon]c1,
05250 2)*(2*ch*E0c*E0cn*\[CurlyEpsilon]c +
05251 d*(-E0cn*fy +
05252 E0c*(fy -
05253 E0cn*(\[CurlyEpsilon]c + \
05254 \[CurlyEpsilon]n)))) + Sqrt(3)*Sqrt(k*Power(\[CurlyEpsilon]c1,
05255 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
05256 Power(d*E0c*(N0 +
05257 As1*E0c*(\[CurlyEpsilon]c - \
05258 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c +
05259 d*(-E0cn*fy + E0c*(fy -
05260 E0cn*(\[CurlyEpsilon]c + \
05261 \[CurlyEpsilon]n)))), 2) + 2*E0c*(As1*d*E0c + As2*ch*E0cn)*(-b*Power(d, 2)*
05262 E0c*fc*
05263 Power(\[CurlyEpsilon]c + \
05264 \[CurlyEpsilon]n, 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
05265 9*k)*\[CurlyEpsilon]c1 +
05266 4*(-1 + k)*\[CurlyEpsilon]n) +
05267 6*k*\[CurlyEpsilon]c*
05268 Power(\[CurlyEpsilon]c1,
05269 2)*(-As2*ch*E0c*
05270 E0cn*\[CurlyEpsilon]c +
05271 d*(As2*E0cn*fy + As1*Power(E0c,
05272 2)*\[CurlyEpsilon]n +
05273 E0c*(-As2*fy - N0 +
05274 As2*E0cn*(\[CurlyEpsilon]c + \
05275 \[CurlyEpsilon]n))))))))/(6.*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
05276 Power(\[CurlyEpsilon]c1, 2)))))/(k*
05277 Power(\[CurlyEpsilon]c1, 2)*
05278 Power(\[CurlyEpsilon]c - (3*d*E0c*k*
05279 Power(\[CurlyEpsilon]c1,
05280 2)*(N0 +
05281 As1*E0c*(\[CurlyEpsilon]c - \
05282 \[CurlyEpsilon]n)) + 3*As2*k*
05283 Power(\[CurlyEpsilon]c1,
05284 2)*(2*ch*E0c*E0cn*\[CurlyEpsilon]c +
05285 d*(-E0cn*fy +
05286 E0c*(fy -
05287 E0cn*(\[CurlyEpsilon]c + \
05288 \[CurlyEpsilon]n)))) + Sqrt(3)*
05289 Sqrt(k*
05290 Power(\[CurlyEpsilon]c1,
05291 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
05292 Power(d*
05293 E0c*(N0 +
05294 As1*E0c*(\[CurlyEpsilon]c - \
05295 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c +
05296 d*(-E0cn*fy + E0c*(fy -
05297 E0cn*(\[CurlyEpsilon]c + \
05298 \[CurlyEpsilon]n)))), 2) + 2*E0c*(As1*d*E0c +
05299 As2*ch*E0cn)*(-b*Power(d, 2)*E0c*fc*
05300 Power(\[CurlyEpsilon]c + \
05301 \[CurlyEpsilon]n, 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
05302 9*k)*\[CurlyEpsilon]c1 +
05303 4*(-1 + k)*\[CurlyEpsilon]n) +
05304 6*k*\[CurlyEpsilon]c*
05305 Power(\[CurlyEpsilon]c1,
05306 2)*(-As2*ch*E0c*
05307 E0cn*\[CurlyEpsilon]c +
05308 d*(As2*E0cn*fy +
05309 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
05310 E0c*(-As2*fy - N0 + As2*
05311 E0cn*(\[CurlyEpsilon]c + \
05312 \[CurlyEpsilon]n))))))))/(6.*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
05313 Power(\[CurlyEpsilon]c1, 2)), 2)) +
05314 6*As2*(-2*ch + h)*(fy -
05315 E0cn*(fy/E0c + \[CurlyEpsilon]c - (ch*\[CurlyEpsilon]c)/
05316 d + \[CurlyEpsilon]n + (ch*(3*d*E0c*k*
05317 Power(\[CurlyEpsilon]c1,
05318 2)*(N0 +
05319 As1*E0c*(\[CurlyEpsilon]c - \
05320 \[CurlyEpsilon]n)) + 3*As2*k*Power(\[CurlyEpsilon]c1,
05321 2)*(2*ch*E0c*E0cn*\[CurlyEpsilon]c +
05322 d*(-E0cn*fy +
05323 E0c*(fy -
05324 E0cn*(\[CurlyEpsilon]c + \
05325 \[CurlyEpsilon]n)))) + Sqrt(3)*Sqrt(k*Power(\[CurlyEpsilon]c1,
05326 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
05327 Power(d*E0c*(N0 +
05328 As1*E0c*(\[CurlyEpsilon]c - \
05329 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c +
05330 d*(-E0cn*fy + E0c*(fy -
05331 E0cn*(\[CurlyEpsilon]c + \
05332 \[CurlyEpsilon]n)))), 2) + 2*E0c*(As1*d*E0c + As2*ch*E0cn)*(-b*Power(d, 2)*
05333 E0c*fc*
05334 Power(\[CurlyEpsilon]c + \
05335 \[CurlyEpsilon]n, 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
05336 9*k)*\[CurlyEpsilon]c1 +
05337 4*(-1 + k)*\[CurlyEpsilon]n) +
05338 6*k*\[CurlyEpsilon]c*
05339 Power(\[CurlyEpsilon]c1,
05340 2)*(-As2*ch*E0c*
05341 E0cn*\[CurlyEpsilon]c +
05342 d*(As2*E0cn*fy + As1*Power(E0c,
05343 2)*\[CurlyEpsilon]n +
05344 E0c*(-As2*fy - N0 +
05345 As2*E0cn*(\[CurlyEpsilon]c + \
05346 \[CurlyEpsilon]n)))))))))/(6.*d*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
05347 Power(\[CurlyEpsilon]c1, 2))))),
05348 mhr6 = 1000000000)
05349
05350 mmax3 = (6*As1*
05351 E0c*(-2*cd +
05352 h)*(\[CurlyEpsilon]n + (3*d*E0c*k*
05353 Power(\[CurlyEpsilon]c1,
05354 2)*(N0 +
05355 As1*E0c*(\[CurlyEpsilon]cmax1 - \[CurlyEpsilon]n)) \
05356 + 3*As2*k*Power(\[CurlyEpsilon]c1,
05357 2)*(2*ch*E0c*E0cn*\[CurlyEpsilon]cmax1 +
05358 d*(-(E0cn*fy) +
05359 E0c*(fy -
05360 E0cn*(\[CurlyEpsilon]cmax1 + \
05361 \[CurlyEpsilon]n)))) +
05362 Sqrt(3)*
05363 Sqrt(k*Power(\[CurlyEpsilon]c1,
05364 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
05365 Power(d*
05366 E0c*(N0 +
05367 As1*E0c*(\[CurlyEpsilon]cmax1 - \
05368 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cmax1 +
05369 d*(-(E0cn*fy) +
05370 E0c*(fy -
05371 E0cn*(\[CurlyEpsilon]cmax1 + \
05372 \[CurlyEpsilon]n)))), 2) + 2*E0c*(As1*d*E0c +
05373 As2*ch*
05374 E0cn)*(-(b*Power(d, 2)*E0c*fc*
05375 Power(\[CurlyEpsilon]cmax1 + \
05376 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05377 4*(-1 + k)*\[CurlyEpsilon]cmax1 +
05378 4*(-1 + k)*\[CurlyEpsilon]n)) +
05379 6*k*Power(\[CurlyEpsilon]c1,
05380 2)*\[CurlyEpsilon]cmax1*(-(As2*ch*E0c*
05381 E0cn*\[CurlyEpsilon]cmax1) +
05382 d*(As2*E0cn*fy +
05383 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
05384 E0c*(-(As2*fy) - N0 +
05385 As2*E0cn*(\[CurlyEpsilon]cmax1 + \
05386 \[CurlyEpsilon]n))))))))/(6.*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
05387 Power(\[CurlyEpsilon]c1, 2))) - (b*d*fc*
05388 Power(\[CurlyEpsilon]cmax1 + \[CurlyEpsilon]n,
05389 2)*(2*d*(\[CurlyEpsilon]cmax1 + \[CurlyEpsilon]n)*((2 -
05390 3*k)*\[CurlyEpsilon]c1 + (-1 +
05391 k)*\[CurlyEpsilon]cmax1 + (-1 +
05392 k)*\[CurlyEpsilon]n) -
05393 h*((6 - 9*k)*\[CurlyEpsilon]c1 +
05394 4*(-1 + k)*\[CurlyEpsilon]cmax1 +
05395 4*(-1 +
05396 k)*\[CurlyEpsilon]n)*(\[CurlyEpsilon]cmax1 - (3*
05397 d*E0c*k*
05398 Power(\[CurlyEpsilon]c1,
05399 2)*(N0 +
05400 As1*E0c*(\[CurlyEpsilon]cmax1 - \
05401 \[CurlyEpsilon]n)) + 3*As2*k*Power(\[CurlyEpsilon]c1,
05402 2)*(2*ch*E0c*E0cn*\[CurlyEpsilon]cmax1 +
05403 d*(-(E0cn*fy) +
05404 E0c*(fy -
05405 E0cn*(\[CurlyEpsilon]cmax1 + \
05406 \[CurlyEpsilon]n)))) + Sqrt(3)*
05407 Sqrt(k*
05408 Power(\[CurlyEpsilon]c1,
05409 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
05410 Power(d*
05411 E0c*(N0 + As1*
05412 E0c*(\[CurlyEpsilon]cmax1 - \
05413 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cmax1 +
05414 d*(-(E0cn*fy) + E0c*(fy -
05415 E0cn*(\[CurlyEpsilon]cmax1 + \
05416 \[CurlyEpsilon]n)))), 2) + 2*E0c*(As1*d*E0c + As2*ch*
05417 E0cn)*(-(b*Power(d, 2)*E0c*fc*
05418 Power(\[CurlyEpsilon]cmax1 + \
05419 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 + 4*(-1 +
05420 k)*\[CurlyEpsilon]cmax1 +
05421 4*(-1 + k)*\[CurlyEpsilon]n)) +
05422 6*k*Power(\[CurlyEpsilon]c1,
05423 2)*\[CurlyEpsilon]cmax1*(-(As2*ch*E0c*
05424 E0cn*\[CurlyEpsilon]cmax1) +
05425 d*(As2*E0cn*fy + As1*
05426 Power(E0c, 2)*\[CurlyEpsilon]n +
05427 E0c*(-(As2*fy) - N0 + As2*
05428 E0cn*(\[CurlyEpsilon]cmax1 + \
05429 \[CurlyEpsilon]n))))))))/(6.*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
05430 Power(\[CurlyEpsilon]c1, 2)))))/(k*
05431 Power(\[CurlyEpsilon]c1, 2)*
05432 Power(\[CurlyEpsilon]cmax1 - (3*d*E0c*k*
05433 Power(\[CurlyEpsilon]c1,
05434 2)*(N0 +
05435 As1*E0c*(\[CurlyEpsilon]cmax1 - \
05436 \[CurlyEpsilon]n)) + 3*As2*k*
05437 Power(\[CurlyEpsilon]c1,
05438 2)*(2*ch*E0c*E0cn*\[CurlyEpsilon]cmax1 +
05439 d*(-(E0cn*fy) +
05440 E0c*(fy -
05441 E0cn*(\[CurlyEpsilon]cmax1 + \
05442 \[CurlyEpsilon]n)))) +
05443 Sqrt(3)*
05444 Sqrt(k*
05445 Power(\[CurlyEpsilon]c1,
05446 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
05447 Power(d*
05448 E0c*(N0 +
05449 As1*E0c*(\[CurlyEpsilon]cmax1 - \
05450 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cmax1 +
05451 d*(-(E0cn*fy) +
05452 E0c*(fy -
05453 E0cn*(\[CurlyEpsilon]cmax1 + \
05454 \[CurlyEpsilon]n)))), 2) + 2*E0c*(As1*d*E0c +
05455 As2*ch*
05456 E0cn)*(-(b*Power(d, 2)*E0c*fc*
05457 Power(\[CurlyEpsilon]cmax1 + \
05458 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05459 4*(-1 + k)*\[CurlyEpsilon]cmax1 +
05460 4*(-1 + k)*\[CurlyEpsilon]n)) +
05461 6*k*Power(\[CurlyEpsilon]c1,
05462 2)*\[CurlyEpsilon]cmax1*(-(As2*ch*E0c*
05463 E0cn*\[CurlyEpsilon]cmax1) +
05464 d*(As2*E0cn*fy +
05465 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
05466 E0c*(-(As2*fy) - N0 +
05467 As2*E0cn*(\[CurlyEpsilon]cmax1 + \
05468 \[CurlyEpsilon]n))))))))/(6.*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
05469 Power(\[CurlyEpsilon]c1, 2)), 2)) +
05470 6*As2*(-2*ch + h)*(fy -
05471 E0cn*(fy/E0c + \[CurlyEpsilon]cmax1 - (ch*\[CurlyEpsilon]cmax1)/
05472 d + \[CurlyEpsilon]n + (ch*(3*d*E0c*k*
05473 Power(\[CurlyEpsilon]c1,
05474 2)*(N0 +
05475 As1*E0c*(\[CurlyEpsilon]cmax1 - \
05476 \[CurlyEpsilon]n)) + 3*As2*k*Power(\[CurlyEpsilon]c1,
05477 2)*(2*ch*E0c*E0cn*\[CurlyEpsilon]cmax1 +
05478 d*(-(E0cn*fy) +
05479 E0c*(fy -
05480 E0cn*(\[CurlyEpsilon]cmax1 + \
05481 \[CurlyEpsilon]n)))) + Sqrt(3)*
05482 Sqrt(k*
05483 Power(\[CurlyEpsilon]c1,
05484 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
05485 Power(d*
05486 E0c*(N0 + As1*
05487 E0c*(\[CurlyEpsilon]cmax1 - \
05488 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cmax1 +
05489 d*(-(E0cn*fy) + E0c*(fy -
05490 E0cn*(\[CurlyEpsilon]cmax1 + \
05491 \[CurlyEpsilon]n)))), 2) + 2*E0c*(As1*d*E0c +
05492 As2*ch*E0cn)*(-(b*Power(d, 2)*E0c*fc*
05493 Power(\[CurlyEpsilon]cmax1 + \
05494 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 + 4*(-1 +
05495 k)*\[CurlyEpsilon]cmax1 +
05496 4*(-1 + k)*\[CurlyEpsilon]n)) +
05497 6*k*Power(\[CurlyEpsilon]c1,
05498 2)*\[CurlyEpsilon]cmax1*(-(As2*ch*E0c*
05499 E0cn*\[CurlyEpsilon]cmax1) +
05500 d*(As2*E0cn*fy + As1*
05501 Power(E0c, 2)*\[CurlyEpsilon]n +
05502 E0c*(-(As2*fy) - N0 + As2*
05503 E0cn*(\[CurlyEpsilon]cmax1 + \
05504 \[CurlyEpsilon]n)))))))))/(6.*d*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
05505 Power(\[CurlyEpsilon]c1, 2)))))/12.
05506
05507 If(mmax3 > mhr6 &&
05508 mhr6 > mh3, (mh6a =
05509 mhr6) && (\[CurlyEpsilon]ch6a = \[CurlyEpsilon]chr6), (mh6a =
05510 mmax3) && (\[CurlyEpsilon]ch6a = \[CurlyEpsilon]cmax1))
05511
05512 If(mh2 ==
05513 mhr2, (mh7 = mh5) && (\[CurlyEpsilon]ch7 = \[CurlyEpsilon]ch5), (mh7 =
05514 mh6) && (\[CurlyEpsilon]ch7 = \[CurlyEpsilon]ch6))
05515
05516 Null
05517
05518 \[CurlyEpsilon]ch12 = \[CurlyEpsilon]ch1 + (-\[CurlyEpsilon]ch1 + \
05519 \[CurlyEpsilon]ch2)/2.
05520
05521 \[CurlyEpsilon]s1h1 = (6*As2*ch*E0c*k*
05522 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]ch1 +
05523 3*d*k*Power(\[CurlyEpsilon]c1,
05524 2)*(N0 + As1*E0c*(\[CurlyEpsilon]ch1 - \[CurlyEpsilon]n) -
05525 As2*E0c*(\[CurlyEpsilon]ch1 + \[CurlyEpsilon]n)) +
05526 Sqrt(3)*Sqrt(k*
05527 Power(\[CurlyEpsilon]c1,
05528 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
05529 Power(-2*As2*ch*E0c*\[CurlyEpsilon]ch1 +
05530 d*(-N0 - As1*E0c*\[CurlyEpsilon]ch1 +
05531 As2*E0c*\[CurlyEpsilon]ch1 + (As1 + As2)*
05532 E0c*\[CurlyEpsilon]n), 2) -
05533 2*(As2*ch + As1*d)*
05534 E0c*(b*Power(d, 2)*fc*
05535 Power(\[CurlyEpsilon]ch1 + \[CurlyEpsilon]n,
05536 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05537 4*(-1 + k)*\[CurlyEpsilon]ch1 +
05538 4*(-1 + k)*\[CurlyEpsilon]n) +
05539 6*k*Power(\[CurlyEpsilon]c1,
05540 2)*\[CurlyEpsilon]ch1*(As2*ch*
05541 E0c*\[CurlyEpsilon]ch1 +
05542 d*(N0 -
05543 E0c*(As2*\[CurlyEpsilon]ch1 + (As1 +
05544 As2)*\[CurlyEpsilon]n)))))))/(6.*(As2*
05545 ch + As1*d)*E0c*k*Power(\[CurlyEpsilon]c1, 2))
05546
05547 \[CurlyEpsilon]s1h2 = (6*As2*ch*E0c*k*
05548 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]ch2 +
05549 3*d*k*Power(\[CurlyEpsilon]c1,
05550 2)*(N0 + As1*E0c*(\[CurlyEpsilon]ch2 - \[CurlyEpsilon]n) -
05551 As2*E0c*(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]n)) +
05552 Sqrt(3)*Sqrt(k*
05553 Power(\[CurlyEpsilon]c1,
05554 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
05555 Power(-2*As2*ch*E0c*\[CurlyEpsilon]ch2 +
05556 d*(-N0 - As1*E0c*\[CurlyEpsilon]ch2 +
05557 As2*E0c*\[CurlyEpsilon]ch2 + (As1 + As2)*
05558 E0c*\[CurlyEpsilon]n), 2) -
05559 2*(As2*ch + As1*d)*
05560 E0c*(b*Power(d, 2)*fc*
05561 Power(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]n,
05562 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05563 4*(-1 + k)*\[CurlyEpsilon]ch2 +
05564 4*(-1 + k)*\[CurlyEpsilon]n) +
05565 6*k*Power(\[CurlyEpsilon]c1,
05566 2)*\[CurlyEpsilon]ch2*(As2*ch*
05567 E0c*\[CurlyEpsilon]ch2 +
05568 d*(N0 -
05569 E0c*(As2*\[CurlyEpsilon]ch2 + (As1 +
05570 As2)*\[CurlyEpsilon]n)))))))/(6.*(As2*
05571 ch + As1*d)*E0c*k*Power(\[CurlyEpsilon]c1, 2))
05572
05573 If(Power(d,
05574 2)*(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*Power(k, 2)*
05575 Power(\[CurlyEpsilon]c1, 4) -
05576 Power(b, 2)*Power(fc, 2)*
05577 Power(h,
05578 4)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05579 2*(-1 + k)*\[CurlyEpsilon]ch1 +
05580 4*(-1 + k)*\[CurlyEpsilon]n)*((-2 +
05581 3*k)*\[CurlyEpsilon]c1 +
05582 2*(-1 + k)*\[CurlyEpsilon]ch1 +
05583 4*(-1 + k)*\[CurlyEpsilon]n) +
05584 4*b*fc*Power(h, 2)*k*
05585 Power(\[CurlyEpsilon]c1,
05586 2)*(3*(As2*ch + As1*d)*
05587 E0c*((-2 + 3*k)*\[CurlyEpsilon]c1 -
05588 2*(-1 + k)*\[CurlyEpsilon]ch1 -
05589 4*(-1 + k)*\[CurlyEpsilon]n) +
05590 8*h*(-1 +
05591 k)*(-N0 + (As1 + As2)*
05592 E0c*(\[CurlyEpsilon]ch1/2. + \[CurlyEpsilon]n)))) >=
05593 0, mh01 =
05594 1/(384.*b*Power(d, 2)*fc*Power(h, 2)*(-1 + k)*k*
05595 Power(\[CurlyEpsilon]c1,
05596 2))*((-6*b*d*fc*Power(h, 2)*\[CurlyEpsilon]c1 +
05597 9*b*d*fc*Power(h, 2)*k*\[CurlyEpsilon]c1 +
05598 6*As2*ch*d*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
05599 6*As1*Power(d, 2)*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
05600 6*b*d*fc*Power(h, 2)*\[CurlyEpsilon]ch1 -
05601 6*b*d*fc*Power(h, 2)*k*\[CurlyEpsilon]ch1 +
05602 12*b*d*fc*Power(h, 2)*\[CurlyEpsilon]n -
05603 12*b*d*fc*Power(h, 2)*k*\[CurlyEpsilon]n -
05604 Sqrt(3)*
05605 Sqrt(Power(d,
05606 2)*(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*
05607 Power(k, 2)*Power(\[CurlyEpsilon]c1, 4) -
05608 Power(b, 2)*Power(fc, 2)*
05609 Power(h,
05610 4)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05611 2*(-1 + k)*\[CurlyEpsilon]ch1 +
05612 4*(-1 + k)*\[CurlyEpsilon]n)*((-2 +
05613 3*k)*\[CurlyEpsilon]c1 +
05614 2*(-1 + k)*\[CurlyEpsilon]ch1 +
05615 4*(-1 + k)*\[CurlyEpsilon]n) +
05616 4*b*fc*Power(h, 2)*k*
05617 Power(\[CurlyEpsilon]c1,
05618 2)*(3*(As2*ch + As1*d)*
05619 E0c*((-2 + 3*k)*\[CurlyEpsilon]c1 -
05620 2*(-1 + k)*\[CurlyEpsilon]ch1 -
05621 4*(-1 + k)*\[CurlyEpsilon]n) +
05622 8*h*(-1 +
05623 k)*(-N0 + (As1 + As2)*
05624 E0c*(\[CurlyEpsilon]ch1/
05625 2. + \[CurlyEpsilon]n))))))*(-2*b*d*
05626 fc*Power(h, 2)*\[CurlyEpsilon]c1 +
05627 3*b*d*fc*Power(h, 2)*k*\[CurlyEpsilon]c1 -
05628 6*As2*ch*d*E0c*k*Power(\[CurlyEpsilon]c1, 2) -
05629 6*As1*Power(d, 2)*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
05630 2*b*d*fc*Power(h, 2)*\[CurlyEpsilon]ch1 -
05631 2*b*d*fc*Power(h, 2)*k*\[CurlyEpsilon]ch1 +
05632 4*b*d*fc*Power(h, 2)*\[CurlyEpsilon]n -
05633 4*b*d*fc*Power(h, 2)*k*\[CurlyEpsilon]n +
05634 Sqrt(3)*
05635 Sqrt(Power(d,
05636 2)*(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*
05637 Power(k, 2)*Power(\[CurlyEpsilon]c1, 4) -
05638 Power(b, 2)*Power(fc, 2)*
05639 Power(h,
05640 4)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05641 2*(-1 + k)*\[CurlyEpsilon]ch1 +
05642 4*(-1 + k)*\[CurlyEpsilon]n)*((-2 +
05643 3*k)*\[CurlyEpsilon]c1 +
05644 2*(-1 + k)*\[CurlyEpsilon]ch1 +
05645 4*(-1 + k)*\[CurlyEpsilon]n) +
05646 4*b*fc*Power(h, 2)*k*
05647 Power(\[CurlyEpsilon]c1,
05648 2)*(3*(As2*ch + As1*d)*
05649 E0c*((-2 + 3*k)*\[CurlyEpsilon]c1 -
05650 2*(-1 + k)*\[CurlyEpsilon]ch1 -
05651 4*(-1 + k)*\[CurlyEpsilon]n) +
05652 8*h*(-1 +
05653 k)*(-N0 + (As1 + As2)*
05654 E0c*(\[CurlyEpsilon]ch1/
05655 2. + \[CurlyEpsilon]n))))))) +
05656 0.5*As1*E0c*(-2*cd + h)*(\[CurlyEpsilon]n +
05657 1/(8.*b*fc*Power(h, 3)*(-1 + k))*(6*d*(As2*ch + As1*d)*E0c*k*
05658 Power(\[CurlyEpsilon]c1, 2) +
05659 b*fc*Power(h,
05660 2)*(4*h*(-1 + k)*\[CurlyEpsilon]ch1 -
05661 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
05662 2*(-1 + k)*\[CurlyEpsilon]ch1 +
05663 4*(-1 + k)*\[CurlyEpsilon]n)) -
05664 Sqrt(3)*
05665 Sqrt(Power(d,
05666 2)*(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*
05667 Power(k, 2)*Power(\[CurlyEpsilon]c1, 4) -
05668 Power(b, 2)*Power(fc, 2)*
05669 Power(h,
05670 4)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05671 2*(-1 + k)*\[CurlyEpsilon]ch1 +
05672 4*(-1 + k)*\[CurlyEpsilon]n)*((-2 +
05673 3*k)*\[CurlyEpsilon]c1 +
05674 2*(-1 + k)*\[CurlyEpsilon]ch1 +
05675 4*(-1 + k)*\[CurlyEpsilon]n) +
05676 4*b*fc*Power(h, 2)*k*
05677 Power(\[CurlyEpsilon]c1,
05678 2)*(3*(As2*ch + As1*d)*
05679 E0c*((-2 + 3*k)*\[CurlyEpsilon]c1 -
05680 2*(-1 + k)*\[CurlyEpsilon]ch1 -
05681 4*(-1 + k)*\[CurlyEpsilon]n) +
05682 8*h*(-1 +
05683 k)*(-N0 + (As1 + As2)*
05684 E0c*(\[CurlyEpsilon]ch1/
05685 2. + \[CurlyEpsilon]n))))))) -
05686 0.5*As2*E0c*(-2*ch +
05687 h)*(\[CurlyEpsilon]ch1/
05688 2. - (ch*\[CurlyEpsilon]ch1)/(2.*d) + \[CurlyEpsilon]n +
05689 1/(8.*b*d*fc*
05690 Power(h,
05691 3)*(-1 + k))*(ch*(6*d*(As2*ch + As1*d)*E0c*k*
05692 Power(\[CurlyEpsilon]c1, 2) +
05693 b*fc*Power(h,
05694 2)*(4*h*(-1 + k)*\[CurlyEpsilon]ch1 -
05695 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
05696 2*(-1 + k)*\[CurlyEpsilon]ch1 +
05697 4*(-1 + k)*\[CurlyEpsilon]n)) -
05698 Sqrt(3)*
05699 Sqrt(Power(d,
05700 2)*(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*
05701 Power(k, 2)*Power(\[CurlyEpsilon]c1, 4) -
05702 Power(b, 2)*Power(fc, 2)*
05703 Power(h,
05704 4)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05705 2*(-1 + k)*\[CurlyEpsilon]ch1 +
05706 4*(-1 + k)*\[CurlyEpsilon]n)*((-2 +
05707 3*k)*\[CurlyEpsilon]c1 +
05708 2*(-1 + k)*\[CurlyEpsilon]ch1 +
05709 4*(-1 + k)*\[CurlyEpsilon]n) +
05710 4*b*fc*Power(h, 2)*k*
05711 Power(\[CurlyEpsilon]c1,
05712 2)*(3*(As2*ch + As1*d)*
05713 E0c*((-2 + 3*k)*\[CurlyEpsilon]c1 -
05714 2*(-1 + k)*\[CurlyEpsilon]ch1 -
05715 4*(-1 + k)*\[CurlyEpsilon]n) +
05716 8*h*(-1 +
05717 k)*(-N0 + (As1 + As2)*
05718 E0c*(\[CurlyEpsilon]ch1/
05719 2. + \[CurlyEpsilon]n)))))))),
05720 mh01 = 1000000000)
05721
05722 If(k*Power(\[CurlyEpsilon]c1,
05723 2)*((3*k*Power(\[CurlyEpsilon]c1, 2)*
05724 Power(2*As2*ch*
05725 E0c*(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]chr1) +
05726 d*(2*N0 +
05727 E0c*(As1*(\[CurlyEpsilon]ch2 + \
05728 \[CurlyEpsilon]chr1 - 2*\[CurlyEpsilon]n) -
05729 As2*(\[CurlyEpsilon]ch2 + \
05730 \[CurlyEpsilon]chr1 + 2*\[CurlyEpsilon]n))), 2))/
05731 4. - ((As2*ch + As1*d)*
05732 E0c*(b*Power(d, 2)*fc*
05733 Power(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]chr1 +
05734 2*\[CurlyEpsilon]n,
05735 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05736 2*(-1 +
05737 k)*(\[CurlyEpsilon]ch2 + \
05738 \[CurlyEpsilon]chr1 + 2*\[CurlyEpsilon]n)) -
05739 6*k*Power(\[CurlyEpsilon]c1,
05740 2)*(\[CurlyEpsilon]ch2 + \
05741 \[CurlyEpsilon]chr1)*(-(As2*ch*
05742 E0c*(\[CurlyEpsilon]ch2 + \
05743 \[CurlyEpsilon]chr1)) + d*(-2*N0 +
05744 E0c*(2*As1*\[CurlyEpsilon]n +
05745 As2*(\[CurlyEpsilon]ch2 + \
05746 \[CurlyEpsilon]chr1 + 2*\[CurlyEpsilon]n))))))/2.) >= 0,
05747 mh12 = 1/(24.*(As2*ch + As1*d)*k*
05748 Power(\[CurlyEpsilon]c1,
05749 2))*(-(6*b*d*Power(As2*ch + As1*d, 3)*Power(E0c, 2)*fc*
05750 Power(k, 2)*Power(\[CurlyEpsilon]c1, 4)*
05751 Power(\[CurlyEpsilon]chr1 + \[CurlyEpsilon]ch2 +
05752 2*\[CurlyEpsilon]n,
05753 2)*(6*d*(\[CurlyEpsilon]chr1 + \[CurlyEpsilon]ch2 +
05754 2*\[CurlyEpsilon]n)*((4 -
05755 6*k)*\[CurlyEpsilon]c1 + (-1 +
05756 k)*(\[CurlyEpsilon]chr1 + \
05757 \[CurlyEpsilon]ch2 + 2*\[CurlyEpsilon]n)) +
05758 1/((As2*ch + As1*d)*E0c*k*
05759 Power(\[CurlyEpsilon]c1,
05760 2))*(h*(3*(-2 + 3*k)*\[CurlyEpsilon]c1 -
05761 2*(-1 +
05762 k)*(\[CurlyEpsilon]chr1 + \
05763 \[CurlyEpsilon]ch2 + 2*\[CurlyEpsilon]n))*(3*d*k*
05764 Power(\[CurlyEpsilon]c1,
05765 2)*(-2*N0 + (As1 + As2)*
05766 E0c*(\[CurlyEpsilon]chr1 + \
05767 \[CurlyEpsilon]ch2 + 2*\[CurlyEpsilon]n)) -
05768 2*Sqrt(3)*
05769 Sqrt(k*
05770 Power(\[CurlyEpsilon]c1,
05771 2)*(0.75*k*
05772 Power(\[CurlyEpsilon]c1, 2)*
05773 Power(2*As2*ch*
05774 E0c*(\[CurlyEpsilon]chr1 + \
05775 \[CurlyEpsilon]ch2) + d*(2*N0 +
05776 E0c*(As1*(\[CurlyEpsilon]chr1 + \
05777 \[CurlyEpsilon]ch2 - 2*\[CurlyEpsilon]n) -
05778 As2*(\[CurlyEpsilon]chr1 + \
05779 \[CurlyEpsilon]ch2 + 2*\[CurlyEpsilon]n))), 2)\
05780 -0.5*(As2*ch + As1*d)*
05781 E0c*(b*Power(d, 2)*fc*
05782 Power(\[CurlyEpsilon]chr1 + \
05783 \[CurlyEpsilon]ch2 + 2*\[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05784 2*(-1 +
05785 k)*(\[CurlyEpsilon]chr1 + \
05786 \[CurlyEpsilon]ch2 + 2*\[CurlyEpsilon]n)) - 6*k*Power(\[CurlyEpsilon]c1,
05787 2)*(\[CurlyEpsilon]chr1 + \
05788 \[CurlyEpsilon]ch2)*(-As2*ch*E0c*(\[CurlyEpsilon]chr1 + \[CurlyEpsilon]ch2) +
05789 d*(-2*N0 +
05790 E0c*(2*As1*\[CurlyEpsilon]n +
05791 As2*(\[CurlyEpsilon]chr1 + \
05792 \[CurlyEpsilon]ch2 + 2*\[CurlyEpsilon]n)))))))))))/
05793 Power(3*d*k*
05794 Power(\[CurlyEpsilon]c1,
05795 2)*(-2*N0 + (As1 + As2)*
05796 E0c*(\[CurlyEpsilon]chr1 + \[CurlyEpsilon]ch2 +
05797 2*\[CurlyEpsilon]n)) -
05798 2*Sqrt(3)*
05799 Sqrt(k*Power(\[CurlyEpsilon]c1,
05800 2)*(0.75*k*Power(\[CurlyEpsilon]c1, 2)*
05801 Power(2*As2*ch*
05802 E0c*(\[CurlyEpsilon]chr1 + \
05803 \[CurlyEpsilon]ch2) + d*(2*N0 +
05804 E0c*(As1*(\[CurlyEpsilon]chr1 + \
05805 \[CurlyEpsilon]ch2 - 2*\[CurlyEpsilon]n) -
05806 As2*(\[CurlyEpsilon]chr1 + \
05807 \[CurlyEpsilon]ch2 + 2*\[CurlyEpsilon]n))), 2) -
05808 0.5*(As2*ch + As1*d)*
05809 E0c*(b*Power(d, 2)*fc*
05810 Power(\[CurlyEpsilon]chr1 + \
05811 \[CurlyEpsilon]ch2 + 2*\[CurlyEpsilon]n,
05812 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05813 2*(-1 +
05814 k)*(\[CurlyEpsilon]chr1 + \
05815 \[CurlyEpsilon]ch2 + 2*\[CurlyEpsilon]n)) -
05816 6*k*Power(\[CurlyEpsilon]c1,
05817 2)*(\[CurlyEpsilon]chr1 + \
05818 \[CurlyEpsilon]ch2)*(-As2*ch*E0c*(\[CurlyEpsilon]chr1 + \[CurlyEpsilon]ch2) +
05819 d*(-2*N0 +
05820 E0c*(2*As1*\[CurlyEpsilon]n +
05821 As2*(\[CurlyEpsilon]chr1 + \
05822 \[CurlyEpsilon]ch2 + 2*\[CurlyEpsilon]n))))))), 2) -
05823 As1*(2*cd -
05824 h)*(3*d*k*
05825 Power(\[CurlyEpsilon]c1,
05826 2)*(2*N0 + (As1 - As2)*
05827 E0c*(\[CurlyEpsilon]chr1 + \[CurlyEpsilon]ch2 +
05828 2*\[CurlyEpsilon]n)) +
05829 2*(3*As2*ch*E0c*k*
05830 Power(\[CurlyEpsilon]c1,
05831 2)*(\[CurlyEpsilon]chr1 + \[CurlyEpsilon]ch2 +
05832 2*\[CurlyEpsilon]n) +
05833 Sqrt(3)*
05834 Sqrt(k*
05835 Power(\[CurlyEpsilon]c1,
05836 2)*(0.75*k*Power(\[CurlyEpsilon]c1, 2)*
05837 Power(2*As2*ch*
05838 E0c*(\[CurlyEpsilon]chr1 + \
05839 \[CurlyEpsilon]ch2) + d*(2*N0 +
05840 E0c*(As1*(\[CurlyEpsilon]chr1 + \
05841 \[CurlyEpsilon]ch2 - 2*\[CurlyEpsilon]n) -
05842 As2*(\[CurlyEpsilon]chr1 + \
05843 \[CurlyEpsilon]ch2 + 2*\[CurlyEpsilon]n))), 2) -
05844 0.5*(As2*ch + As1*d)*
05845 E0c*(b*Power(d, 2)*fc*
05846 Power(\[CurlyEpsilon]chr1 + \
05847 \[CurlyEpsilon]ch2 + 2*\[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05848 2*(-1 +
05849 k)*(\[CurlyEpsilon]chr1 + \
05850 \[CurlyEpsilon]ch2 + 2*\[CurlyEpsilon]n)) -
05851 6*k*Power(\[CurlyEpsilon]c1,
05852 2)*(\[CurlyEpsilon]chr1 + \
05853 \[CurlyEpsilon]ch2)*(-As2*ch*E0c*(\[CurlyEpsilon]chr1 + \[CurlyEpsilon]ch2) +
05854 d*(-2*N0 +
05855 E0c*(2*As1*\[CurlyEpsilon]n +
05856 As2*(\[CurlyEpsilon]chr1 + \
05857 \[CurlyEpsilon]ch2 + 2*\[CurlyEpsilon]n))))))))) +
05858 1/d*(As2*(2*ch -
05859 h)*(6*As1*Power(d, 2)*E0c*k*
05860 Power(\[CurlyEpsilon]c1,
05861 2)*(\[CurlyEpsilon]chr1 + \[CurlyEpsilon]ch2 +
05862 2*\[CurlyEpsilon]n) +
05863 ch*(3*d*k*
05864 Power(\[CurlyEpsilon]c1,
05865 2)*(2*N0 - (As1 - As2)*
05866 E0c*(\[CurlyEpsilon]chr1 + \
05867 \[CurlyEpsilon]ch2 + 2*\[CurlyEpsilon]n)) +
05868 2*Sqrt(3)*
05869 Sqrt(k*
05870 Power(\[CurlyEpsilon]c1,
05871 2)*(0.75*k*Power(\[CurlyEpsilon]c1, 2)*
05872 Power(2*As2*ch*
05873 E0c*(\[CurlyEpsilon]chr1 + \
05874 \[CurlyEpsilon]ch2) + d*(2*N0 +
05875 E0c*(As1*(\[CurlyEpsilon]chr1 + \
05876 \[CurlyEpsilon]ch2 - 2*\[CurlyEpsilon]n) -
05877 As2*(\[CurlyEpsilon]chr1 + \
05878 \[CurlyEpsilon]ch2 + 2*\[CurlyEpsilon]n))), 2) -
05879 0.5*(As2*ch + As1*d)*
05880 E0c*(b*Power(d, 2)*fc*
05881 Power(\[CurlyEpsilon]chr1 + \
05882 \[CurlyEpsilon]ch2 + 2*\[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05883 2*(-1 +
05884 k)*(\[CurlyEpsilon]chr1 + \
05885 \[CurlyEpsilon]ch2 + 2*\[CurlyEpsilon]n)) -
05886 6*k*Power(\[CurlyEpsilon]c1,
05887 2)*(\[CurlyEpsilon]chr1 + \
05888 \[CurlyEpsilon]ch2)*(-As2*ch*E0c*(\[CurlyEpsilon]chr1 + \[CurlyEpsilon]ch2) +
05889 d*(-2*N0 +
05890 E0c*(2*As1*\[CurlyEpsilon]n +
05891 As2*(\[CurlyEpsilon]chr1 + \
05892 \[CurlyEpsilon]ch2 + 2*\[CurlyEpsilon]n))))))))))), mh12 = 1000000000)
05893
05894 If(k*Power(\[CurlyEpsilon]c1,
05895 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
05896 Power(As2*ch*
05897 Power(E0c, 2)*(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]ch5) -
05898 d*(-(As1*E0cn*
05899 fy) + (E0c*(-2*N0 +
05900 As1*(2*fy -
05901 E0cn*(\[CurlyEpsilon]ch2 + \
05902 \[CurlyEpsilon]ch5 - 2*\[CurlyEpsilon]n)) +
05903 As2*E0c*(\[CurlyEpsilon]ch2 + \
05904 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)))/2.), 2) -
05905 2*E0c*(As2*ch*E0c +
05906 As1*d*E0cn)*((b*Power(d, 2)*E0c*fc*
05907 Power(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]ch5 +
05908 2*\[CurlyEpsilon]n,
05909 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05910 2*(-1 +
05911 k)*(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]ch5 \
05912 + 2*\[CurlyEpsilon]n)))/4. +
05913 3*k*Power(\[CurlyEpsilon]c1,
05914 2)*(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]ch5)*(As1*
05915 d*(E0cn*fy -
05916 E0c*(fy + E0cn*\[CurlyEpsilon]n)) + (E0c*(As2*
05917 ch*E0c*(\[CurlyEpsilon]ch2 + \
05918 \[CurlyEpsilon]ch5) + d*(2*N0 -
05919 As2*E0c*(\[CurlyEpsilon]ch2 + \
05920 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n))))/2.))) >= 0,
05921 mh25 = (-((6*b*d*Power(E0c, 2)*Power(As2*ch*E0c + As1*d*E0cn, 3)*fc*
05922 Power(k, 2)*Power(\[CurlyEpsilon]c1, 4)*
05923 Power(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]ch5 +
05924 2*\[CurlyEpsilon]n,
05925 2)*(6*d*(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]ch5 +
05926 2*\[CurlyEpsilon]n)*((4 -
05927 6*k)*\[CurlyEpsilon]c1 + (-1 +
05928 k)*(\[CurlyEpsilon]ch2 + \
05929 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)) + (h*(3*(-2 +
05930 3*k)*\[CurlyEpsilon]c1 -
05931 2*(-1 +
05932 k)*(\[CurlyEpsilon]ch2 + \
05933 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n))*(3*d*E0c*k*
05934 Power(\[CurlyEpsilon]c1,
05935 2)*(-2*N0 +
05936 As2*E0c*(\[CurlyEpsilon]ch2 + \
05937 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)) +
05938 3*As1*d*k*
05939 Power(\[CurlyEpsilon]c1,
05940 2)*(-2*E0cn*fy +
05941 E0c*(2*fy +
05942 E0cn*(\[CurlyEpsilon]ch2 + \
05943 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n))) -
05944 2*Sqrt(3)*
05945 Sqrt(k*
05946 Power(\[CurlyEpsilon]c1,
05947 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
05948 Power(As2*ch*Power(E0c,
05949 2)*(\[CurlyEpsilon]ch2 + \
05950 \[CurlyEpsilon]ch5) - d*(-As1*E0cn*fy + 0.5*E0c*(-2*N0 + As1*(2*fy -
05951 E0cn*(\[CurlyEpsilon]ch2 + \
05952 \[CurlyEpsilon]ch5 - 2*\[CurlyEpsilon]n)) +
05953 As2*E0c*(\[CurlyEpsilon]ch2 + \
05954 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n))), 2) - 2*E0c*(As2*ch*E0c +
05955 As1*d*E0cn)*(0.25*b*Power(d, 2)*E0c*
05956 fc*Power(\[CurlyEpsilon]ch2 + \
05957 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05958 2*(-1 +
05959 k)*(\[CurlyEpsilon]ch2 + \
05960 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)) + 3*k*Power(\[CurlyEpsilon]c1,
05961 2)*(\[CurlyEpsilon]ch2 + \
05962 \[CurlyEpsilon]ch5)*(As1*d*(E0cn*fy - E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
05963 0.5*E0c*(As2*ch*
05964 E0c*(\[CurlyEpsilon]ch2 + \
05965 \[CurlyEpsilon]ch5) + d*(2*N0 -
05966 As2*E0c*(\[CurlyEpsilon]ch2 + \
05967 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)))))))))/(E0c*(As2*ch*E0c +
05968 As1*d*E0cn)*k*
05969 Power(\[CurlyEpsilon]c1, 2))))/
05970 Power(3*d*E0c*k*
05971 Power(\[CurlyEpsilon]c1,
05972 2)*(-2*N0 +
05973 As2*E0c*(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]ch5 \
05974 + 2*\[CurlyEpsilon]n)) +
05975 3*As1*d*k*
05976 Power(\[CurlyEpsilon]c1,
05977 2)*(-2*E0cn*fy +
05978 E0c*(2*fy +
05979 E0cn*(\[CurlyEpsilon]ch2 + \
05980 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n))) -
05981 2*Sqrt(3)*
05982 Sqrt(k*
05983 Power(\[CurlyEpsilon]c1,
05984 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
05985 Power(As2*ch*
05986 Power(E0c,
05987 2)*(\[CurlyEpsilon]ch2 + \
05988 \[CurlyEpsilon]ch5) - d*(-As1*E0cn*fy + 0.5*E0c*(-2*N0 +
05989 As1*(2*fy -
05990 E0cn*(\[CurlyEpsilon]ch2 + \
05991 \[CurlyEpsilon]ch5 - 2*\[CurlyEpsilon]n)) +
05992 As2*E0c*(\[CurlyEpsilon]ch2 + \
05993 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n))), 2) -
05994 2*E0c*(As2*ch*E0c +
05995 As1*d*E0cn)*(0.25*b*Power(d, 2)*E0c*fc*
05996 Power(\[CurlyEpsilon]ch2 + \
05997 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n,
05998 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
05999 2*(-1 +
06000 k)*(\[CurlyEpsilon]ch2 + \
06001 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)) +
06002 3*k*Power(\[CurlyEpsilon]c1,
06003 2)*(\[CurlyEpsilon]ch2 + \
06004 \[CurlyEpsilon]ch5)*(As1*d*(E0cn*fy - E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
06005 0.5*E0c*(As2*ch*
06006 E0c*(\[CurlyEpsilon]ch2 + \
06007 \[CurlyEpsilon]ch5) + d*(2*N0 -
06008 As2*E0c*(\[CurlyEpsilon]ch2 + \
06009 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n))))))), 2)) +
06010 1/d*(As2*(2*ch -
06011 h)*(-3*As1*d*k*
06012 Power(\[CurlyEpsilon]c1,
06013 2)*(-2*d*E0c*
06014 E0cn*(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]ch5 +
06015 2*\[CurlyEpsilon]n) +
06016 ch*(-2*E0cn*fy +
06017 E0c*(2*fy +
06018 E0cn*(\[CurlyEpsilon]ch2 + \
06019 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)))) +
06020 ch*(3*d*E0c*k*
06021 Power(\[CurlyEpsilon]c1,
06022 2)*(2*N0 +
06023 As2*E0c*(\[CurlyEpsilon]ch2 + \
06024 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)) +
06025 2*Sqrt(3)*
06026 Sqrt(k*
06027 Power(\[CurlyEpsilon]c1,
06028 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
06029 Power(As2*ch*
06030 Power(E0c,
06031 2)*(\[CurlyEpsilon]ch2 + \
06032 \[CurlyEpsilon]ch5) - d*(-As1*E0cn*fy + 0.5*E0c*(-2*N0 +
06033 As1*(2*fy -
06034 E0cn*(\[CurlyEpsilon]ch2 + \
06035 \[CurlyEpsilon]ch5 - 2*\[CurlyEpsilon]n)) +
06036 As2*E0c*(\[CurlyEpsilon]ch2 + \
06037 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n))), 2)\
06038 -2*E0c*(As2*ch*E0c +
06039 As1*d*E0cn)*(0.25*b*Power(d, 2)*E0c*
06040 fc*Power(\[CurlyEpsilon]ch2 + \
06041 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
06042 2*(-1 +
06043 k)*(\[CurlyEpsilon]ch2 + \
06044 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)) +
06045 3*k*Power(\[CurlyEpsilon]c1,
06046 2)*(\[CurlyEpsilon]ch2 + \
06047 \[CurlyEpsilon]ch5)*(As1*d*(E0cn*fy - E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
06048 0.5*E0c*(As2*ch*
06049 E0c*(\[CurlyEpsilon]ch2 + \
06050 \[CurlyEpsilon]ch5) + d*(2*N0 -
06051 As2*E0c*(\[CurlyEpsilon]ch2 + \
06052 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)))))))))) -
06053 1/E0c*(As1*(2*cd -
06054 h)*(3*As2*E0c*k*
06055 Power(\[CurlyEpsilon]c1,
06056 2)*(-d*E0c*
06057 E0cn*(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]ch5 +
06058 2*\[CurlyEpsilon]n) +
06059 2*ch*(-2*E0cn*fy +
06060 E0c*(2*fy +
06061 E0cn*(\[CurlyEpsilon]ch2 + \
06062 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)))) +
06063 E0cn*(6*d*E0c*k*N0*Power(\[CurlyEpsilon]c1, 2) +
06064 3*As1*d*k*
06065 Power(\[CurlyEpsilon]c1,
06066 2)*(-2*E0cn*fy +
06067 E0c*(2*fy +
06068 E0cn*(\[CurlyEpsilon]ch2 + \
06069 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n))) +
06070 2*Sqrt(3)*
06071 Sqrt(k*
06072 Power(\[CurlyEpsilon]c1,
06073 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
06074 Power(As2*ch*
06075 Power(E0c,
06076 2)*(\[CurlyEpsilon]ch2 + \
06077 \[CurlyEpsilon]ch5) - d*(-As1*E0cn*fy + 0.5*E0c*(-2*N0 +
06078 As1*(2*fy -
06079 E0cn*(\[CurlyEpsilon]ch2 + \
06080 \[CurlyEpsilon]ch5 - 2*\[CurlyEpsilon]n)) +
06081 As2*E0c*(\[CurlyEpsilon]ch2 + \
06082 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n))), 2)\
06083 -2*E0c*(As2*ch*E0c +
06084 As1*d*E0cn)*(0.25*b*Power(d, 2)*E0c*
06085 fc*Power(\[CurlyEpsilon]ch2 + \
06086 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
06087 2*(-1 +
06088 k)*(\[CurlyEpsilon]ch2 + \
06089 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)) +
06090 3*k*Power(\[CurlyEpsilon]c1,
06091 2)*(\[CurlyEpsilon]ch2 + \
06092 \[CurlyEpsilon]ch5)*(As1*d*(E0cn*fy - E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
06093 0.5*E0c*(As2*ch*
06094 E0c*(\[CurlyEpsilon]ch2 + \
06095 \[CurlyEpsilon]ch5) + d*(2*N0 -
06096 As2*E0c*(\[CurlyEpsilon]ch2 + \
06097 \[CurlyEpsilon]ch5 + 2*\[CurlyEpsilon]n)))))))))))/(24.*(As2*ch*E0c +
06098 As1*d*E0cn)*k*Power(\[CurlyEpsilon]c1, 2)), mh25 = 1000000000)
06099
06100 If(k*Power(\[CurlyEpsilon]c1,
06101 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
06102 Power((d*E0c*(2*N0 +
06103 As1*E0c*(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6a \
06104 - 2*\[CurlyEpsilon]n)))/2. +
06105 As2*(ch*E0c*
06106 E0cn*(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6a) + \
06107 (d*(-2*E0cn*fy + E0c*(2*fy - E0cn*(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6a +
06108 2*\[CurlyEpsilon]n))))/2.), 2) +
06109 2*E0c*(As1*d*E0c +
06110 As2*ch*E0cn)*(-(b*Power(d, 2)*E0c*fc*
06111 Power(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6a +
06112 2*\[CurlyEpsilon]n,
06113 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
06114 2*(-1 +
06115 k)*(\[CurlyEpsilon]ch3 + \
06116 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n)))/
06117 4. + (3*k*
06118 Power(\[CurlyEpsilon]c1,
06119 2)*(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6a)*(2*d*
06120 E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
06121 As2*(-(ch*E0c*
06122 E0cn*(\[CurlyEpsilon]ch3 + \
06123 \[CurlyEpsilon]ch6a)) + d*(2*E0cn*fy +
06124 E0c*(-2*fy +
06125 E0cn*(\[CurlyEpsilon]ch3 + \
06126 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n))))))/2.)) >= 0,
06127 mh36a = (-As1*(2*cd -
06128 h)*(3*d*E0c*k*
06129 Power(\[CurlyEpsilon]c1,
06130 2)*(2*N0 +
06131 As1*E0c*(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6a +
06132 2*\[CurlyEpsilon]n)) +
06133 3*As2*k*
06134 Power(\[CurlyEpsilon]c1,
06135 2)*(2*ch*E0c*
06136 E0cn*(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6a +
06137 2*\[CurlyEpsilon]n) +
06138 d*(-2*E0cn*fy +
06139 E0c*(2*fy -
06140 E0cn*(\[CurlyEpsilon]ch3 + \
06141 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n)))) +
06142 2*Sqrt(3)*
06143 Sqrt(k*Power(\[CurlyEpsilon]c1,
06144 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
06145 Power(0.5*d*
06146 E0c*(2*N0 +
06147 As1*E0c*(\[CurlyEpsilon]ch3 + \
06148 \[CurlyEpsilon]ch6a - 2*\[CurlyEpsilon]n)) +
06149 As2*(ch*E0c*
06150 E0cn*(\[CurlyEpsilon]ch3 + \
06151 \[CurlyEpsilon]ch6a) + 0.5*d*(-2*E0cn*fy + E0c*(2*fy -
06152 E0cn*(\[CurlyEpsilon]ch3 + \
06153 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n)))), 2) +
06154 2*E0c*(As1*d*E0c +
06155 As2*ch*E0cn)*(-0.25*b*Power(d, 2)*E0c*fc*
06156 Power(\[CurlyEpsilon]ch3 + \
06157 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n,
06158 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
06159 2*(-1 +
06160 k)*(\[CurlyEpsilon]ch3 + \
06161 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n)) +
06162 1.5*k*
06163 Power(\[CurlyEpsilon]c1,
06164 2)*(\[CurlyEpsilon]ch3 + \
06165 \[CurlyEpsilon]ch6a)*(2*d*E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
06166 As2*(-ch*E0c*
06167 E0cn*(\[CurlyEpsilon]ch3 + \
06168 \[CurlyEpsilon]ch6a) + d*(2*E0cn*fy + E0c*(-2*fy +
06169 E0cn*(\[CurlyEpsilon]ch3 + \
06170 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n))))))))) - (6*b*d*Power(E0c, 2)*
06171 Power(As1*d*E0c + As2*ch*E0cn, 3)*fc*Power(k, 2)*
06172 Power(\[CurlyEpsilon]c1, 4)*
06173 Power(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6a +
06174 2*\[CurlyEpsilon]n,
06175 2)*(6*d*(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6a +
06176 2*\[CurlyEpsilon]n)*((4 -
06177 6*k)*\[CurlyEpsilon]c1 + (-1 +
06178 k)*(\[CurlyEpsilon]ch3 + \
06179 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n)) + (h*(3*(-2 +
06180 3*k)*\[CurlyEpsilon]c1 -
06181 2*(-1 +
06182 k)*(\[CurlyEpsilon]ch3 + \
06183 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n))*(3*d*E0c*k*
06184 Power(\[CurlyEpsilon]c1,
06185 2)*(-2*N0 +
06186 As1*E0c*(\[CurlyEpsilon]ch3 + \
06187 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n)) +
06188 3*As2*d*k*
06189 Power(\[CurlyEpsilon]c1,
06190 2)*(2*E0cn*fy +
06191 E0c*(-2*fy +
06192 E0cn*(\[CurlyEpsilon]ch3 + \
06193 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n))) -
06194 2*Sqrt(3)*
06195 Sqrt(k*
06196 Power(\[CurlyEpsilon]c1,
06197 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
06198 Power(0.5*d*
06199 E0c*(2*N0 +
06200 As1*E0c*(\[CurlyEpsilon]ch3 + \
06201 \[CurlyEpsilon]ch6a - 2*\[CurlyEpsilon]n)) + As2*(ch*E0c*
06202 E0cn*(\[CurlyEpsilon]ch3 + \
06203 \[CurlyEpsilon]ch6a) + 0.5*d*(-2*E0cn*fy + E0c*(2*fy -
06204 E0cn*(\[CurlyEpsilon]ch3 + \
06205 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n)))), 2) +
06206 2*E0c*(As1*d*E0c +
06207 As2*ch*E0cn)*(-0.25*b*Power(d, 2)*E0c*
06208 fc*Power(\[CurlyEpsilon]ch3 + \
06209 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
06210 2*(-1 +
06211 k)*(\[CurlyEpsilon]ch3 + \
06212 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n)) + 1.5*k*
06213 Power(\[CurlyEpsilon]c1,
06214 2)*(\[CurlyEpsilon]ch3 + \
06215 \[CurlyEpsilon]ch6a)*(2*d*E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
06216 As2*(-ch*E0c*
06217 E0cn*(\[CurlyEpsilon]ch3 + \
06218 \[CurlyEpsilon]ch6a) + d*(2*E0cn*fy + E0c*(-2*fy +
06219 E0cn*(\[CurlyEpsilon]ch3 + \
06220 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n))))))))))/(E0c*(As1*d*E0c +
06221 As2*ch*E0cn)*k*
06222 Power(\[CurlyEpsilon]c1, 2))))/
06223 Power(3*d*E0c*k*
06224 Power(\[CurlyEpsilon]c1,
06225 2)*(-2*N0 +
06226 As1*E0c*(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6a +
06227 2*\[CurlyEpsilon]n)) +
06228 3*As2*d*k*
06229 Power(\[CurlyEpsilon]c1,
06230 2)*(2*E0cn*fy +
06231 E0c*(-2*fy +
06232 E0cn*(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6a \
06233 + 2*\[CurlyEpsilon]n))) -
06234 2*Sqrt(3)*
06235 Sqrt(k*Power(\[CurlyEpsilon]c1,
06236 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
06237 Power(0.5*d*
06238 E0c*(2*N0 +
06239 As1*E0c*(\[CurlyEpsilon]ch3 + \
06240 \[CurlyEpsilon]ch6a - 2*\[CurlyEpsilon]n)) +
06241 As2*(ch*E0c*
06242 E0cn*(\[CurlyEpsilon]ch3 + \
06243 \[CurlyEpsilon]ch6a) + 0.5*d*(-2*E0cn*fy + E0c*(2*fy -
06244 E0cn*(\[CurlyEpsilon]ch3 + \
06245 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n)))), 2) +
06246 2*E0c*(As1*d*E0c +
06247 As2*ch*E0cn)*(-0.25*b*Power(d, 2)*E0c*fc*
06248 Power(\[CurlyEpsilon]ch3 + \
06249 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n,
06250 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
06251 2*(-1 +
06252 k)*(\[CurlyEpsilon]ch3 + \
06253 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n)) +
06254 1.5*k*
06255 Power(\[CurlyEpsilon]c1,
06256 2)*(\[CurlyEpsilon]ch3 + \
06257 \[CurlyEpsilon]ch6a)*(2*d*E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
06258 As2*(-ch*E0c*
06259 E0cn*(\[CurlyEpsilon]ch3 + \
06260 \[CurlyEpsilon]ch6a) + d*(2*E0cn*fy + E0c*(-2*fy +
06261 E0cn*(\[CurlyEpsilon]ch3 + \
06262 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n)))))))), 2) +
06263 1/(d*E0c)*(As2*(2*ch -
06264 h)*(-3*As1*d*E0c*k*
06265 Power(\[CurlyEpsilon]c1,
06266 2)*(ch*E0c*
06267 E0cn*(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6a \
06268 + 2*\[CurlyEpsilon]n) - 2*d*(2*E0cn*fy +
06269 E0c*(-2*fy +
06270 E0cn*(\[CurlyEpsilon]ch3 + \
06271 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n)))) +
06272 ch*E0cn*(6*d*E0c*k*N0*Power(\[CurlyEpsilon]c1, 2) +
06273 3*As2*d*k*
06274 Power(\[CurlyEpsilon]c1,
06275 2)*(2*E0cn*fy +
06276 E0c*(-2*fy +
06277 E0cn*(\[CurlyEpsilon]ch3 + \
06278 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n))) +
06279 2*Sqrt(3)*
06280 Sqrt(k*
06281 Power(\[CurlyEpsilon]c1,
06282 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
06283 Power(0.5*d*
06284 E0c*(2*N0 +
06285 As1*E0c*(\[CurlyEpsilon]ch3 + \
06286 \[CurlyEpsilon]ch6a - 2*\[CurlyEpsilon]n)) +
06287 As2*(ch*E0c*
06288 E0cn*(\[CurlyEpsilon]ch3 + \
06289 \[CurlyEpsilon]ch6a) + 0.5*d*(-2*E0cn*fy + E0c*(2*fy -
06290 E0cn*(\[CurlyEpsilon]ch3 + \
06291 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n)))), 2) +
06292 2*E0c*(As1*d*E0c +
06293 As2*ch*E0cn)*(-0.25*b*Power(d, 2)*E0c*
06294 fc*Power(\[CurlyEpsilon]ch3 + \
06295 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
06296 2*(-1 +
06297 k)*(\[CurlyEpsilon]ch3 + \
06298 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n)) +
06299 1.5*k*
06300 Power(\[CurlyEpsilon]c1,
06301 2)*(\[CurlyEpsilon]ch3 + \
06302 \[CurlyEpsilon]ch6a)*(2*d*E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
06303 As2*(-ch*E0c*
06304 E0cn*(\[CurlyEpsilon]ch3 + \
06305 \[CurlyEpsilon]ch6a) + d*(2*E0cn*fy + E0c*(-2*fy +
06306 E0cn*(\[CurlyEpsilon]ch3 + \
06307 \[CurlyEpsilon]ch6a + 2*\[CurlyEpsilon]n))))))))))))/(24.*(As1*d*E0c +
06308 As2*ch*E0cn)*k*Power(\[CurlyEpsilon]c1, 2)),
06309 mh36a = 1000000000)
06310
06311 \[CurlyEpsilon]cder1 = (mh3*\[CurlyEpsilon]ch3 - 4*mh36a*\[CurlyEpsilon]ch3 +
06312 3*mh6a*\[CurlyEpsilon]ch3 + 3*mh3*\[CurlyEpsilon]ch6a -
06313 4*mh36a*\[CurlyEpsilon]ch6a +
06314 mh6a*\[CurlyEpsilon]ch6a)/(4.*(mh3 - 2*mh36a + mh6a))
06315
06316 If(\[CurlyEpsilon]cder1 < \[CurlyEpsilon]ch3 && \[CurlyEpsilon]cder1 > \
06317 \[CurlyEpsilon]ch6a, (mh6 =
06318 mmax4) && (\[CurlyEpsilon]ch6 = \[CurlyEpsilon]cder1), (mh6 =
06319 mh6a) && (\[CurlyEpsilon]ch6 = \[CurlyEpsilon]ch6a))
06320
06321 mh36 = (-(As1*(2*cd -
06322 h)*(3*d*E0c*k*
06323 Power(\[CurlyEpsilon]c1,
06324 2)*(2*N0 +
06325 As1*E0c*(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6 +
06326 2*\[CurlyEpsilon]n)) +
06327 3*As2*k*
06328 Power(\[CurlyEpsilon]c1,
06329 2)*(2*ch*E0c*
06330 E0cn*(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6 +
06331 2*\[CurlyEpsilon]n) +
06332 d*(-2*E0cn*fy +
06333 E0c*(2*fy -
06334 E0cn*(\[CurlyEpsilon]ch3 + \
06335 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n)))) +
06336 2*Sqrt(3)*
06337 Sqrt(k*Power(\[CurlyEpsilon]c1,
06338 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
06339 Power((d*E0c*(2*N0 +
06340 As1*E0c*(\[CurlyEpsilon]ch3 + \
06341 \[CurlyEpsilon]ch6 - 2*\[CurlyEpsilon]n)))/2. +
06342 As2*(ch*E0c*
06343 E0cn*(\[CurlyEpsilon]ch3 + \
06344 \[CurlyEpsilon]ch6) + (d*(-2*E0cn*fy + E0c*(2*fy -
06345 E0cn*(\[CurlyEpsilon]ch3 + \
06346 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n))))/2.), 2) +
06347 2*E0c*(As1*d*E0c +
06348 As2*ch*
06349 E0cn)*(-(b*Power(d, 2)*E0c*fc*
06350 Power(\[CurlyEpsilon]ch3 + \
06351 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
06352 2*(-1 +
06353 k)*(\[CurlyEpsilon]ch3 + \
06354 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n)))/
06355 4. + (3*k*
06356 Power(\[CurlyEpsilon]c1,
06357 2)*(\[CurlyEpsilon]ch3 + \
06358 \[CurlyEpsilon]ch6)*(2*d*E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
06359 As2*(-(ch*E0c*
06360 E0cn*(\[CurlyEpsilon]ch3 + \
06361 \[CurlyEpsilon]ch6)) + d*(2*E0cn*fy + E0c*(-2*fy +
06362 E0cn*(\[CurlyEpsilon]ch3 + \
06363 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n))))))/2.))))) - (6*b*d*Power(E0c, 2)*
06364 Power(As1*d*E0c + As2*ch*E0cn, 3)*fc*Power(k, 2)*
06365 Power(\[CurlyEpsilon]c1, 4)*
06366 Power(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6 +
06367 2*\[CurlyEpsilon]n,
06368 2)*(6*d*(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6 +
06369 2*\[CurlyEpsilon]n)*((4 -
06370 6*k)*\[CurlyEpsilon]c1 + (-1 +
06371 k)*(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6 +
06372 2*\[CurlyEpsilon]n)) + (h*(3*(-2 +
06373 3*k)*\[CurlyEpsilon]c1 -
06374 2*(-1 +
06375 k)*(\[CurlyEpsilon]ch3 + \
06376 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n))*(3*d*E0c*k*
06377 Power(\[CurlyEpsilon]c1,
06378 2)*(-2*N0 +
06379 As1*E0c*(\[CurlyEpsilon]ch3 + \
06380 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n)) +
06381 3*As2*d*k*
06382 Power(\[CurlyEpsilon]c1,
06383 2)*(2*E0cn*fy +
06384 E0c*(-2*fy +
06385 E0cn*(\[CurlyEpsilon]ch3 + \
06386 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n))) -
06387 2*Sqrt(3)*
06388 Sqrt(k*
06389 Power(\[CurlyEpsilon]c1,
06390 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
06391 Power((d*E0c*(2*N0 +
06392 As1*E0c*(\[CurlyEpsilon]ch3 + \
06393 \[CurlyEpsilon]ch6 - 2*\[CurlyEpsilon]n)))/2. +
06394 As2*(ch*E0c*
06395 E0cn*(\[CurlyEpsilon]ch3 + \
06396 \[CurlyEpsilon]ch6) + (d*(-2*E0cn*fy + E0c*(2*fy -
06397 E0cn*(\[CurlyEpsilon]ch3 + \
06398 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n))))/2.), 2) +
06399 2*E0c*(As1*d*E0c +
06400 As2*ch*E0cn)*(-(b*Power(d, 2)*E0c*fc*
06401 Power(\[CurlyEpsilon]ch3 + \
06402 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
06403 2*(-1 +
06404 k)*(\[CurlyEpsilon]ch3 + \
06405 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n)))/4. + (3*k*
06406 Power(\[CurlyEpsilon]c1,
06407 2)*(\[CurlyEpsilon]ch3 + \
06408 \[CurlyEpsilon]ch6)*(2*d*E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
06409 As2*(-(ch*E0c*
06410 E0cn*(\[CurlyEpsilon]ch3 + \
06411 \[CurlyEpsilon]ch6)) + d*(2*E0cn*fy + E0c*(-2*fy +
06412 E0cn*(\[CurlyEpsilon]ch3 + \
06413 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n))))))/2.)))))/(E0c*(As1*d*E0c +
06414 As2*ch*E0cn)*k*Power(\[CurlyEpsilon]c1, 2))))/
06415 Power(3*d*E0c*k*
06416 Power(\[CurlyEpsilon]c1,
06417 2)*(-2*N0 +
06418 As1*E0c*(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6 +
06419 2*\[CurlyEpsilon]n)) +
06420 3*As2*d*k*
06421 Power(\[CurlyEpsilon]c1,
06422 2)*(2*E0cn*fy +
06423 E0c*(-2*fy +
06424 E0cn*(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6 +
06425 2*\[CurlyEpsilon]n))) -
06426 2*Sqrt(3)*
06427 Sqrt(k*Power(\[CurlyEpsilon]c1,
06428 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
06429 Power((d*E0c*(2*N0 +
06430 As1*E0c*(\[CurlyEpsilon]ch3 + \
06431 \[CurlyEpsilon]ch6 - 2*\[CurlyEpsilon]n)))/2. +
06432 As2*(ch*E0c*
06433 E0cn*(\[CurlyEpsilon]ch3 + \
06434 \[CurlyEpsilon]ch6) + (d*(-2*E0cn*fy + E0c*(2*fy -
06435 E0cn*(\[CurlyEpsilon]ch3 + \
06436 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n))))/2.), 2) +
06437 2*E0c*(As1*d*E0c +
06438 As2*ch*
06439 E0cn)*(-(b*Power(d, 2)*E0c*fc*
06440 Power(\[CurlyEpsilon]ch3 + \
06441 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n,
06442 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
06443 2*(-1 +
06444 k)*(\[CurlyEpsilon]ch3 + \
06445 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n)))/
06446 4. + (3*k*
06447 Power(\[CurlyEpsilon]c1,
06448 2)*(\[CurlyEpsilon]ch3 + \
06449 \[CurlyEpsilon]ch6)*(2*d*E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
06450 As2*(-(ch*E0c*
06451 E0cn*(\[CurlyEpsilon]ch3 + \
06452 \[CurlyEpsilon]ch6)) + d*(2*E0cn*fy + E0c*(-2*fy +
06453 E0cn*(\[CurlyEpsilon]ch3 + \
06454 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n))))))/2.))),
06455 2) + (As2*(2*ch -
06456 h)*(-3*As1*d*E0c*k*
06457 Power(\[CurlyEpsilon]c1,
06458 2)*(ch*E0c*
06459 E0cn*(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6 +
06460 2*\[CurlyEpsilon]n) -
06461 2*d*(2*E0cn*fy +
06462 E0c*(-2*fy +
06463 E0cn*(\[CurlyEpsilon]ch3 + \
06464 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n)))) +
06465 ch*E0cn*(6*d*E0c*k*N0*Power(\[CurlyEpsilon]c1, 2) +
06466 3*As2*d*k*
06467 Power(\[CurlyEpsilon]c1,
06468 2)*(2*E0cn*fy +
06469 E0c*(-2*fy +
06470 E0cn*(\[CurlyEpsilon]ch3 + \
06471 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n))) +
06472 2*Sqrt(3)*
06473 Sqrt(k*
06474 Power(\[CurlyEpsilon]c1,
06475 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
06476 Power((d*E0c*(2*N0 +
06477 As1*E0c*(\[CurlyEpsilon]ch3 + \
06478 \[CurlyEpsilon]ch6 - 2*\[CurlyEpsilon]n)))/2. +
06479 As2*(ch*E0c*
06480 E0cn*(\[CurlyEpsilon]ch3 + \
06481 \[CurlyEpsilon]ch6) + (d*(-2*E0cn*fy + E0c*(2*fy -
06482 E0cn*(\[CurlyEpsilon]ch3 + \
06483 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n))))/2.), 2) +
06484 2*E0c*(As1*d*E0c +
06485 As2*ch*
06486 E0cn)*(-(b*Power(d, 2)*E0c*fc*
06487 Power(\[CurlyEpsilon]ch3 + \
06488 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
06489 2*(-1 +
06490 k)*(\[CurlyEpsilon]ch3 + \
06491 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n)))/
06492 4. + (3*k*
06493 Power(\[CurlyEpsilon]c1,
06494 2)*(\[CurlyEpsilon]ch3 + \
06495 \[CurlyEpsilon]ch6)*(2*d*E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
06496 As2*(-(ch*E0c*
06497 E0cn*(\[CurlyEpsilon]ch3 + \
06498 \[CurlyEpsilon]ch6)) + d*(2*E0cn*fy + E0c*(-2*fy +
06499 E0cn*(\[CurlyEpsilon]ch3 + \
06500 \[CurlyEpsilon]ch6 + 2*\[CurlyEpsilon]n))))))/2.))))))/(d*E0c))/(24.*(As1*d*
06501 E0c + As2*ch*E0cn)*k*Power(\[CurlyEpsilon]c1, 2))
06502
06503 mmax4 = (6*As1*
06504 E0c*(-2*cd +
06505 h)*(\[CurlyEpsilon]n + (3*d*E0c*k*
06506 Power(\[CurlyEpsilon]c1,
06507 2)*(N0 +
06508 As1*E0c*(\[CurlyEpsilon]cder1 - \[CurlyEpsilon]n)) \
06509 + 3*As2*k*Power(\[CurlyEpsilon]c1,
06510 2)*(2*ch*E0c*E0cn*\[CurlyEpsilon]cder1 +
06511 d*(-(E0cn*fy) +
06512 E0c*(fy -
06513 E0cn*(\[CurlyEpsilon]cder1 + \
06514 \[CurlyEpsilon]n)))) +
06515 Sqrt(3)*
06516 Sqrt(k*Power(\[CurlyEpsilon]c1,
06517 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
06518 Power(d*
06519 E0c*(N0 +
06520 As1*E0c*(\[CurlyEpsilon]cder1 - \
06521 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cder1 +
06522 d*(-(E0cn*fy) +
06523 E0c*(fy -
06524 E0cn*(\[CurlyEpsilon]cder1 + \
06525 \[CurlyEpsilon]n)))), 2) + 2*E0c*(As1*d*E0c +
06526 As2*ch*
06527 E0cn)*(-(b*Power(d, 2)*E0c*fc*
06528 Power(\[CurlyEpsilon]cder1 + \
06529 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
06530 4*(-1 + k)*\[CurlyEpsilon]cder1 +
06531 4*(-1 + k)*\[CurlyEpsilon]n)) +
06532 6*k*Power(\[CurlyEpsilon]c1,
06533 2)*\[CurlyEpsilon]cder1*(-(As2*ch*E0c*
06534 E0cn*\[CurlyEpsilon]cder1) +
06535 d*(As2*E0cn*fy +
06536 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
06537 E0c*(-(As2*fy) - N0 +
06538 As2*E0cn*(\[CurlyEpsilon]cder1 + \
06539 \[CurlyEpsilon]n))))))))/(6.*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
06540 Power(\[CurlyEpsilon]c1, 2))) - (b*d*fc*
06541 Power(\[CurlyEpsilon]cder1 + \[CurlyEpsilon]n,
06542 2)*(2*d*(\[CurlyEpsilon]cder1 + \[CurlyEpsilon]n)*((2 -
06543 3*k)*\[CurlyEpsilon]c1 + (-1 +
06544 k)*\[CurlyEpsilon]cder1 + (-1 +
06545 k)*\[CurlyEpsilon]n) -
06546 h*((6 - 9*k)*\[CurlyEpsilon]c1 +
06547 4*(-1 + k)*\[CurlyEpsilon]cder1 +
06548 4*(-1 +
06549 k)*\[CurlyEpsilon]n)*(\[CurlyEpsilon]cder1 - (3*
06550 d*E0c*k*
06551 Power(\[CurlyEpsilon]c1,
06552 2)*(N0 +
06553 As1*E0c*(\[CurlyEpsilon]cder1 - \
06554 \[CurlyEpsilon]n)) + 3*As2*k*Power(\[CurlyEpsilon]c1,
06555 2)*(2*ch*E0c*E0cn*\[CurlyEpsilon]cder1 +
06556 d*(-(E0cn*fy) +
06557 E0c*(fy -
06558 E0cn*(\[CurlyEpsilon]cder1 + \
06559 \[CurlyEpsilon]n)))) + Sqrt(3)*
06560 Sqrt(k*
06561 Power(\[CurlyEpsilon]c1,
06562 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
06563 Power(d*
06564 E0c*(N0 + As1*
06565 E0c*(\[CurlyEpsilon]cder1 - \
06566 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cder1 +
06567 d*(-(E0cn*fy) + E0c*(fy -
06568 E0cn*(\[CurlyEpsilon]cder1 + \
06569 \[CurlyEpsilon]n)))), 2) + 2*E0c*(As1*d*E0c + As2*ch*
06570 E0cn)*(-(b*Power(d, 2)*E0c*fc*
06571 Power(\[CurlyEpsilon]cder1 + \
06572 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 + 4*(-1 +
06573 k)*\[CurlyEpsilon]cder1 +
06574 4*(-1 + k)*\[CurlyEpsilon]n)) +
06575 6*k*Power(\[CurlyEpsilon]c1,
06576 2)*\[CurlyEpsilon]cder1*(-(As2*ch*E0c*
06577 E0cn*\[CurlyEpsilon]cder1) +
06578 d*(As2*E0cn*fy + As1*
06579 Power(E0c, 2)*\[CurlyEpsilon]n +
06580 E0c*(-(As2*fy) - N0 + As2*
06581 E0cn*(\[CurlyEpsilon]cder1 + \
06582 \[CurlyEpsilon]n))))))))/(6.*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
06583 Power(\[CurlyEpsilon]c1, 2)))))/(k*
06584 Power(\[CurlyEpsilon]c1, 2)*
06585 Power(\[CurlyEpsilon]cder1 - (3*d*E0c*k*
06586 Power(\[CurlyEpsilon]c1,
06587 2)*(N0 +
06588 As1*E0c*(\[CurlyEpsilon]cder1 - \
06589 \[CurlyEpsilon]n)) + 3*As2*k*
06590 Power(\[CurlyEpsilon]c1,
06591 2)*(2*ch*E0c*E0cn*\[CurlyEpsilon]cder1 +
06592 d*(-(E0cn*fy) +
06593 E0c*(fy -
06594 E0cn*(\[CurlyEpsilon]cder1 + \
06595 \[CurlyEpsilon]n)))) +
06596 Sqrt(3)*
06597 Sqrt(k*
06598 Power(\[CurlyEpsilon]c1,
06599 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
06600 Power(d*
06601 E0c*(N0 +
06602 As1*E0c*(\[CurlyEpsilon]cder1 - \
06603 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cder1 +
06604 d*(-(E0cn*fy) +
06605 E0c*(fy -
06606 E0cn*(\[CurlyEpsilon]cder1 + \
06607 \[CurlyEpsilon]n)))), 2) + 2*E0c*(As1*d*E0c +
06608 As2*ch*
06609 E0cn)*(-(b*Power(d, 2)*E0c*fc*
06610 Power(\[CurlyEpsilon]cder1 + \
06611 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
06612 4*(-1 + k)*\[CurlyEpsilon]cder1 +
06613 4*(-1 + k)*\[CurlyEpsilon]n)) +
06614 6*k*Power(\[CurlyEpsilon]c1,
06615 2)*\[CurlyEpsilon]cder1*(-(As2*ch*E0c*
06616 E0cn*\[CurlyEpsilon]cder1) +
06617 d*(As2*E0cn*fy +
06618 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
06619 E0c*(-(As2*fy) - N0 +
06620 As2*E0cn*(\[CurlyEpsilon]cder1 + \
06621 \[CurlyEpsilon]n))))))))/(6.*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
06622 Power(\[CurlyEpsilon]c1, 2)), 2)) +
06623 6*As2*(-2*ch + h)*(fy -
06624 E0cn*(fy/E0c + \[CurlyEpsilon]cder1 - (ch*\[CurlyEpsilon]cder1)/
06625 d + \[CurlyEpsilon]n + (ch*(3*d*E0c*k*
06626 Power(\[CurlyEpsilon]c1,
06627 2)*(N0 +
06628 As1*E0c*(\[CurlyEpsilon]cder1 - \
06629 \[CurlyEpsilon]n)) + 3*As2*k*Power(\[CurlyEpsilon]c1,
06630 2)*(2*ch*E0c*E0cn*\[CurlyEpsilon]cder1 +
06631 d*(-(E0cn*fy) +
06632 E0c*(fy -
06633 E0cn*(\[CurlyEpsilon]cder1 + \
06634 \[CurlyEpsilon]n)))) + Sqrt(3)*
06635 Sqrt(k*
06636 Power(\[CurlyEpsilon]c1,
06637 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
06638 Power(d*
06639 E0c*(N0 + As1*
06640 E0c*(\[CurlyEpsilon]cder1 - \
06641 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cder1 +
06642 d*(-(E0cn*fy) + E0c*(fy -
06643 E0cn*(\[CurlyEpsilon]cder1 + \
06644 \[CurlyEpsilon]n)))), 2) + 2*E0c*(As1*d*E0c +
06645 As2*ch*E0cn)*(-(b*Power(d, 2)*E0c*fc*
06646 Power(\[CurlyEpsilon]cder1 + \
06647 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 + 4*(-1 +
06648 k)*\[CurlyEpsilon]cder1 +
06649 4*(-1 + k)*\[CurlyEpsilon]n)) +
06650 6*k*Power(\[CurlyEpsilon]c1,
06651 2)*\[CurlyEpsilon]cder1*(-(As2*ch*E0c*
06652 E0cn*\[CurlyEpsilon]cder1) +
06653 d*(As2*E0cn*fy + As1*
06654 Power(E0c, 2)*\[CurlyEpsilon]n +
06655 E0c*(-(As2*fy) - N0 + As2*
06656 E0cn*(\[CurlyEpsilon]cder1 + \
06657 \[CurlyEpsilon]n)))))))))/(6.*d*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
06658 Power(\[CurlyEpsilon]c1, 2)))))/12.
06659
06660 mh7maxa = -(As1*(2*cd - h)*(3*d*E0c*k*N0*Power(\[CurlyEpsilon]c1, 2) +
06661 3*As1*d*k*
06662 Power(\[CurlyEpsilon]c1,
06663 2)*(-(E0cn*
06664 fy) + (E0c*(2*fy +
06665 E0cn*(\[CurlyEpsilon]ch7 + \
06666 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n)))/2.) +
06667 3*As2*k*
06668 Power(\[CurlyEpsilon]c1,
06669 2)*(-(d*(2*E0cn*fy +
06670 E0c*(-2*fy +
06671 E0cn*(\[CurlyEpsilon]ch7 + \
06672 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n))))/2. +
06673 ch*(-2*E0cn*fy +
06674 E0c*(2*fy +
06675 E0cn*(\[CurlyEpsilon]ch7 + \
06676 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n)))) +
06677 Sqrt(3)*
06678 Sqrt(k*Power(\[CurlyEpsilon]c1,
06679 2)*((3*k*Power(\[CurlyEpsilon]c1, 2)*
06680 Power(-2*d*E0c*N0 +
06681 As1*d*(-2*E0cn*fy +
06682 E0c*(2*fy -
06683 E0cn*(\[CurlyEpsilon]ch7 + \
06684 \[CurlyEpsilon]cmax1 - 2*\[CurlyEpsilon]n))) +
06685 As2*(-2*ch*E0c*
06686 E0cn*(\[CurlyEpsilon]ch7 + \
06687 \[CurlyEpsilon]cmax1) + d*(2*E0cn*fy + E0c*(-2*fy +
06688 E0cn*(\[CurlyEpsilon]ch7 + \
06689 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n)))), 2))/
06690 4. - ((As2*ch + As1*d)*E0c*
06691 E0cn*(b*Power(d, 2)*E0c*fc*
06692 Power(\[CurlyEpsilon]ch7 + \
06693 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n,
06694 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
06695 2*(-1 +
06696 k)*(\[CurlyEpsilon]ch7 + \
06697 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n)) -
06698 6*k*Power(\[CurlyEpsilon]c1,
06699 2)*(\[CurlyEpsilon]ch7 + \
06700 \[CurlyEpsilon]cmax1)*(-2*d*E0c*N0 + 2*As1*
06701 d*(-(E0cn*fy) +
06702 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
06703 As2*(-(ch*E0c*
06704 E0cn*(\[CurlyEpsilon]ch7 + \
06705 \[CurlyEpsilon]cmax1)) + d*(2*E0cn*fy + E0c*(-2*fy +
06706 E0cn*(\[CurlyEpsilon]ch7 + \
06707 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n)))))))/2.))) - (As2*(2*ch -
06708 h)*(-3*As1*d*k*
06709 Power(\[CurlyEpsilon]c1,
06710 2)*(-2*
06711 d*(2*E0cn*fy +
06712 E0c*(-2*fy +
06713 E0cn*(\[CurlyEpsilon]ch7 + \
06714 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n))) +
06715 ch*(-2*E0cn*fy +
06716 E0c*(2*fy +
06717 E0cn*(\[CurlyEpsilon]ch7 + \
06718 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n)))) +
06719 ch*(6*d*E0c*k*N0*Power(\[CurlyEpsilon]c1, 2) +
06720 3*As2*d*k*
06721 Power(\[CurlyEpsilon]c1,
06722 2)*(2*E0cn*fy +
06723 E0c*(-2*fy +
06724 E0cn*(\[CurlyEpsilon]ch7 + \
06725 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n))) +
06726 2*Sqrt(3)*
06727 Sqrt(k*
06728 Power(\[CurlyEpsilon]c1,
06729 2)*((3*k*Power(\[CurlyEpsilon]c1, 2)*
06730 Power(-2*d*E0c*N0 +
06731 As1*d*(-2*E0cn*fy +
06732 E0c*(2*fy -
06733 E0cn*(\[CurlyEpsilon]ch7 + \
06734 \[CurlyEpsilon]cmax1 - 2*\[CurlyEpsilon]n))) +
06735 As2*(-2*ch*E0c*
06736 E0cn*(\[CurlyEpsilon]ch7 + \
06737 \[CurlyEpsilon]cmax1) + d*(2*E0cn*fy + E0c*(-2*fy +
06738 E0cn*(\[CurlyEpsilon]ch7 + \
06739 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n)))), 2))/
06740 4. - ((As2*ch + As1*d)*E0c*
06741 E0cn*(b*Power(d, 2)*E0c*fc*
06742 Power(\[CurlyEpsilon]ch7 + \
06743 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
06744 2*(-1 +
06745 k)*(\[CurlyEpsilon]ch7 + \
06746 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n)) -
06747 6*k*Power(\[CurlyEpsilon]c1,
06748 2)*(\[CurlyEpsilon]ch7 + \
06749 \[CurlyEpsilon]cmax1)*(-2*d*E0c*N0 + 2*As1*d*(-(E0cn*fy) +
06750 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
06751 As2*(-(ch*E0c*
06752 E0cn*(\[CurlyEpsilon]ch7 + \
06753 \[CurlyEpsilon]cmax1)) + d*(2*E0cn*fy + E0c*(-2*fy +
06754 E0cn*(\[CurlyEpsilon]ch7 + \
06755 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n)))))))/2.)))))/(2.*
06756 d) + (3*b*d*Power(As2*ch + As1*d, 3)*Power(E0c, 3)*
06757 Power(E0cn, 2)*fc*Power(k, 2)*Power(\[CurlyEpsilon]c1, 4)*
06758 Power(\[CurlyEpsilon]ch7 + \[CurlyEpsilon]cmax1 +
06759 2*\[CurlyEpsilon]n,
06760 2)*(6*d*(\[CurlyEpsilon]ch7 + \[CurlyEpsilon]cmax1 +
06761 2*\[CurlyEpsilon]n)*((4 -
06762 6*k)*\[CurlyEpsilon]c1 + (-1 +
06763 k)*(\[CurlyEpsilon]ch7 + \
06764 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n)) + (h*(3*(-2 +
06765 3*k)*\[CurlyEpsilon]c1 -
06766 2*(-1 +
06767 k)*(\[CurlyEpsilon]ch7 + \
06768 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n))*(3*As2*d*k*
06769 Power(\[CurlyEpsilon]c1,
06770 2)*(2*E0cn*fy +
06771 E0c*(-2*fy +
06772 E0cn*(\[CurlyEpsilon]ch7 + \
06773 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n))) +
06774 3*As1*d*k*
06775 Power(\[CurlyEpsilon]c1,
06776 2)*(-2*E0cn*fy +
06777 E0c*(2*fy +
06778 E0cn*(\[CurlyEpsilon]ch7 + \
06779 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n))) -
06780 2*(3*d*E0c*k*N0*Power(\[CurlyEpsilon]c1, 2) +
06781 Sqrt(3)*
06782 Sqrt(k*
06783 Power(\[CurlyEpsilon]c1,
06784 2)*((3*k*Power(\[CurlyEpsilon]c1, 2)*
06785 Power(-2*d*E0c*N0 +
06786 As1*d*(-2*E0cn*fy + E0c*(2*fy -
06787 E0cn*(\[CurlyEpsilon]ch7 + \
06788 \[CurlyEpsilon]cmax1 - 2*\[CurlyEpsilon]n))) +
06789 As2*(-2*ch*E0c*
06790 E0cn*(\[CurlyEpsilon]ch7 + \
06791 \[CurlyEpsilon]cmax1) + d*(2*E0cn*fy + E0c*(-2*fy +
06792 E0cn*(\[CurlyEpsilon]ch7 + \
06793 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n)))), 2))/4.\
06794 -((As2*ch + As1*d)*E0c*
06795 E0cn*(b*Power(d, 2)*E0c*fc*
06796 Power(\[CurlyEpsilon]ch7 + \
06797 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
06798 2*(-1 +
06799 k)*(\[CurlyEpsilon]ch7 + \
06800 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n)) - 6*k*Power(\[CurlyEpsilon]c1,
06801 2)*(\[CurlyEpsilon]ch7 + \
06802 \[CurlyEpsilon]cmax1)*(-2*d*E0c*N0 + 2*As1*d*(E0c*fy - E0cn*fy +
06803 E0c*E0cn*\[CurlyEpsilon]n) +
06804 As2*(-(ch*E0c*
06805 E0cn*(\[CurlyEpsilon]ch7 + \
06806 \[CurlyEpsilon]cmax1)) + d*(2*E0cn*fy + E0c*(-2*fy +
06807 E0cn*(\[CurlyEpsilon]ch7 + \
06808 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n)))))))/2.)))))/((As2*ch + As1*d)*
06809 E0c*E0cn*k*Power(\[CurlyEpsilon]c1, 2))))/
06810 Power(6*d*E0c*k*N0*Power(\[CurlyEpsilon]c1, 2) -
06811 3*As2*d*k*
06812 Power(\[CurlyEpsilon]c1,
06813 2)*(2*E0cn*fy +
06814 E0c*(-2*fy +
06815 E0cn*(\[CurlyEpsilon]ch7 + \[CurlyEpsilon]cmax1 +
06816 2*\[CurlyEpsilon]n))) -
06817 3*As1*d*k*
06818 Power(\[CurlyEpsilon]c1,
06819 2)*(-2*E0cn*fy +
06820 E0c*(2*fy +
06821 E0cn*(\[CurlyEpsilon]ch7 + \[CurlyEpsilon]cmax1 +
06822 2*\[CurlyEpsilon]n))) +
06823 2*Sqrt(3)*
06824 Sqrt(k*Power(\[CurlyEpsilon]c1,
06825 2)*((3*k*Power(\[CurlyEpsilon]c1, 2)*
06826 Power(-2*d*E0c*N0 +
06827 As1*d*(-2*E0cn*fy +
06828 E0c*(2*fy -
06829 E0cn*(\[CurlyEpsilon]ch7 + \
06830 \[CurlyEpsilon]cmax1 - 2*\[CurlyEpsilon]n))) +
06831 As2*(-2*ch*E0c*
06832 E0cn*(\[CurlyEpsilon]ch7 + \
06833 \[CurlyEpsilon]cmax1) + d*(2*E0cn*fy + E0c*(-2*fy +
06834 E0cn*(\[CurlyEpsilon]ch7 + \
06835 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n)))), 2))/
06836 4. - ((As2*ch + As1*d)*E0c*
06837 E0cn*(b*Power(d, 2)*E0c*fc*
06838 Power(\[CurlyEpsilon]ch7 + \
06839 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n,
06840 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
06841 2*(-1 +
06842 k)*(\[CurlyEpsilon]ch7 + \
06843 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n)) -
06844 6*k*Power(\[CurlyEpsilon]c1,
06845 2)*(\[CurlyEpsilon]ch7 + \
06846 \[CurlyEpsilon]cmax1)*(-2*d*E0c*N0 + 2*As1*
06847 d*(-(E0cn*fy) +
06848 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
06849 As2*(-(ch*E0c*
06850 E0cn*(\[CurlyEpsilon]ch7 + \
06851 \[CurlyEpsilon]cmax1)) + d*(2*E0cn*fy + E0c*(-2*fy +
06852 E0cn*(\[CurlyEpsilon]ch7 + \
06853 \[CurlyEpsilon]cmax1 + 2*\[CurlyEpsilon]n)))))))/2.)), 2))/(12.*(As2*ch +
06854 As1*d)*E0c*k*Power(\[CurlyEpsilon]c1, 2))
06855
06856 mhmaxa = (-(As1*(2*cd - h)*(3*d*E0c*k*N0*Power(\[CurlyEpsilon]c1, 2) +
06857 3*As1*d*k*
06858 Power(\[CurlyEpsilon]c1,
06859 2)*(-(E0cn*fy) +
06860 E0c*(fy +
06861 E0cn*(\[CurlyEpsilon]cmax1 + \
06862 \[CurlyEpsilon]n))) +
06863 3*As2*k*
06864 Power(\[CurlyEpsilon]c1,
06865 2)*(d*(-(E0cn*fy) +
06866 E0c*(fy -
06867 E0cn*(\[CurlyEpsilon]cmax1 + \
06868 \[CurlyEpsilon]n))) + 2*ch*(-(E0cn*fy) +
06869 E0c*(fy +
06870 E0cn*(\[CurlyEpsilon]cmax1 + \
06871 \[CurlyEpsilon]n)))) +
06872 Sqrt(3)*
06873 Sqrt(k*Power(\[CurlyEpsilon]c1,
06874 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
06875 Power(-(d*E0c*N0) +
06876 As1*d*(-(E0cn*fy) +
06877 E0c*(fy +
06878 E0cn*(-\[CurlyEpsilon]cmax1 + \
06879 \[CurlyEpsilon]n))) + As2*(-2*ch*E0c*E0cn*\[CurlyEpsilon]cmax1 +
06880 d*(E0cn*fy +
06881 E0c*(-fy +
06882 E0cn*(\[CurlyEpsilon]cmax1 + \
06883 \[CurlyEpsilon]n)))), 2) -
06884 2*(As2*ch + As1*d)*E0c*
06885 E0cn*(b*Power(d, 2)*E0c*fc*
06886 Power(\[CurlyEpsilon]cmax1 + \
06887 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
06888 4*(-1 + k)*\[CurlyEpsilon]cmax1 +
06889 4*(-1 + k)*\[CurlyEpsilon]n) +
06890 6*k*Power(\[CurlyEpsilon]c1,
06891 2)*\[CurlyEpsilon]cmax1*(d*E0c*N0 +
06892 As1*d*(E0cn*fy -
06893 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
06894 As2*(ch*E0c*
06895 E0cn*\[CurlyEpsilon]cmax1 +
06896 d*(-(E0cn*fy) +
06897 E0c*(fy -
06898 E0cn*(\[CurlyEpsilon]cmax1 + \
06899 \[CurlyEpsilon]n)))))))))) - (36*b*d*Power(As2*ch + As1*d, 3)*Power(E0c, 3)*
06900 Power(E0cn, 2)*fc*Power(k, 2)*Power(\[CurlyEpsilon]c1, 4)*
06901 Power(\[CurlyEpsilon]cmax1 + \[CurlyEpsilon]n,
06902 2)*(2*d*(\[CurlyEpsilon]cmax1 + \[CurlyEpsilon]n)*((2 -
06903 3*k)*\[CurlyEpsilon]c1 + (-1 +
06904 k)*\[CurlyEpsilon]cmax1 + (-1 +
06905 k)*\[CurlyEpsilon]n) - (h*((6 -
06906 9*k)*\[CurlyEpsilon]c1 +
06907 4*(-1 + k)*\[CurlyEpsilon]cmax1 +
06908 4*(-1 + k)*\[CurlyEpsilon]n)*(-3*d*E0c*k*N0*
06909 Power(\[CurlyEpsilon]c1, 2) +
06910 3*As2*d*k*
06911 Power(\[CurlyEpsilon]c1,
06912 2)*(E0cn*fy +
06913 E0c*(-fy +
06914 E0cn*(\[CurlyEpsilon]cmax1 + \
06915 \[CurlyEpsilon]n))) + 3*As1*d*k*
06916 Power(\[CurlyEpsilon]c1,
06917 2)*(-(E0cn*fy) +
06918 E0c*(fy +
06919 E0cn*(\[CurlyEpsilon]cmax1 + \
06920 \[CurlyEpsilon]n))) - Sqrt(3)*Sqrt(k*
06921 Power(\[CurlyEpsilon]c1,
06922 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
06923 Power(-(d*E0c*N0) +
06924 As1*d*(-(E0cn*fy) +
06925 E0c*(fy +
06926 E0cn*(-\[CurlyEpsilon]cmax1 + \
06927 \[CurlyEpsilon]n))) + As2*(-2*ch*E0c*E0cn*\[CurlyEpsilon]cmax1 +
06928 d*(E0cn*fy + E0c*(-fy +
06929 E0cn*(\[CurlyEpsilon]cmax1 + \
06930 \[CurlyEpsilon]n)))), 2) - 2*(As2*ch + As1*d)*E0c*
06931 E0cn*(b*Power(d, 2)*E0c*fc*
06932 Power(\[CurlyEpsilon]cmax1 + \
06933 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
06934 4*(-1 + k)*\[CurlyEpsilon]cmax1 +
06935 4*(-1 + k)*\[CurlyEpsilon]n) +
06936 6*k*Power(\[CurlyEpsilon]c1,
06937 2)*\[CurlyEpsilon]cmax1*(d*E0c*N0 +
06938 As1*d*(E0cn*fy - E0c*(fy +
06939 E0cn*\[CurlyEpsilon]n)) +
06940 As2*(ch*E0c*
06941 E0cn*\[CurlyEpsilon]cmax1 +
06942 d*(-(E0cn*fy) + E0c*(fy -
06943 E0cn*(\[CurlyEpsilon]cmax1 + \
06944 \[CurlyEpsilon]n))))))))))/(6.*(As2*ch + As1*d)*E0c*E0cn*k*
06945 Power(\[CurlyEpsilon]c1, 2))))/
06946 Power(3*d*E0c*k*N0*Power(\[CurlyEpsilon]c1, 2) +
06947 3*As2*d*k*
06948 Power(\[CurlyEpsilon]c1,
06949 2)*(-(E0cn*fy) +
06950 E0c*(fy -
06951 E0cn*(\[CurlyEpsilon]cmax1 + \[CurlyEpsilon]n))) -
06952 3*As1*d*k*
06953 Power(\[CurlyEpsilon]c1,
06954 2)*(-(E0cn*fy) +
06955 E0c*(fy +
06956 E0cn*(\[CurlyEpsilon]cmax1 + \[CurlyEpsilon]n))) +
06957 Sqrt(3)*Sqrt(k*
06958 Power(\[CurlyEpsilon]c1,
06959 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
06960 Power(-(d*E0c*N0) +
06961 As1*d*(-(E0cn*fy) +
06962 E0c*(fy +
06963 E0cn*(-\[CurlyEpsilon]cmax1 + \
06964 \[CurlyEpsilon]n))) + As2*(-2*ch*E0c*E0cn*\[CurlyEpsilon]cmax1 +
06965 d*(E0cn*fy +
06966 E0c*(-fy +
06967 E0cn*(\[CurlyEpsilon]cmax1 + \
06968 \[CurlyEpsilon]n)))), 2) -
06969 2*(As2*ch + As1*d)*E0c*
06970 E0cn*(b*Power(d, 2)*E0c*fc*
06971 Power(\[CurlyEpsilon]cmax1 + \[CurlyEpsilon]n,
06972 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
06973 4*(-1 + k)*\[CurlyEpsilon]cmax1 +
06974 4*(-1 + k)*\[CurlyEpsilon]n) +
06975 6*k*Power(\[CurlyEpsilon]c1,
06976 2)*\[CurlyEpsilon]cmax1*(d*E0c*N0 +
06977 As1*d*(E0cn*fy -
06978 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
06979 As2*(ch*E0c*E0cn*\[CurlyEpsilon]cmax1 +
06980 d*(-(E0cn*fy) +
06981 E0c*(fy -
06982 E0cn*(\[CurlyEpsilon]cmax1 + \
06983 \[CurlyEpsilon]n)))))))),
06984 2) + (As2*(2*ch -
06985 h)*(-3*As1*d*k*
06986 Power(\[CurlyEpsilon]c1,
06987 2)*(-2*d*(E0cn*fy +
06988 E0c*(-fy +
06989 E0cn*(\[CurlyEpsilon]cmax1 + \
06990 \[CurlyEpsilon]n))) + ch*(-(E0cn*fy) +
06991 E0c*(fy +
06992 E0cn*(\[CurlyEpsilon]cmax1 + \
06993 \[CurlyEpsilon]n)))) +
06994 ch*(3*d*E0c*k*N0*Power(\[CurlyEpsilon]c1, 2) +
06995 3*As2*d*k*
06996 Power(\[CurlyEpsilon]c1,
06997 2)*(E0cn*fy +
06998 E0c*(-fy +
06999 E0cn*(\[CurlyEpsilon]cmax1 + \
07000 \[CurlyEpsilon]n))) + Sqrt(3)*
07001 Sqrt(k*
07002 Power(\[CurlyEpsilon]c1,
07003 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
07004 Power(-(d*E0c*N0) +
07005 As1*d*(-(E0cn*fy) +
07006 E0c*(fy +
07007 E0cn*(-\[CurlyEpsilon]cmax1 + \
07008 \[CurlyEpsilon]n))) + As2*(-2*ch*E0c*E0cn*\[CurlyEpsilon]cmax1 +
07009 d*(E0cn*fy +
07010 E0c*(-fy +
07011 E0cn*(\[CurlyEpsilon]cmax1 + \
07012 \[CurlyEpsilon]n)))), 2) - 2*(As2*ch + As1*d)*E0c*
07013 E0cn*(b*Power(d, 2)*E0c*fc*
07014 Power(\[CurlyEpsilon]cmax1 + \
07015 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
07016 4*(-1 + k)*\[CurlyEpsilon]cmax1 +
07017 4*(-1 + k)*\[CurlyEpsilon]n) +
07018 6*k*Power(\[CurlyEpsilon]c1,
07019 2)*\[CurlyEpsilon]cmax1*(d*E0c*N0 +
07020 As1*d*(E0cn*fy -
07021 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
07022 As2*(ch*E0c*
07023 E0cn*\[CurlyEpsilon]cmax1 +
07024 d*(-(E0cn*fy) + E0c*(fy -
07025 E0cn*(\[CurlyEpsilon]cmax1 + \
07026 \[CurlyEpsilon]n)))))))))))/d)/(12.*(As2*ch + As1*d)*E0c*k*
07027 Power(\[CurlyEpsilon]c1, 2))
07028
07029 \[CurlyEpsilon]cder3 = -(-(mh7*\[CurlyEpsilon]ch7) +
07030 4*mh7maxa*\[CurlyEpsilon]ch7 - 3*mhmaxa*\[CurlyEpsilon]ch7 -
07031 3*mh7*\[CurlyEpsilon]cmax1 + 4*mh7maxa*\[CurlyEpsilon]cmax1 -
07032 mhmaxa*\[CurlyEpsilon]cmax1)/(4.*(mh7 - 2*mh7maxa + mhmaxa))
07033
07034 mhmax = (-(As1*(2*cd - h)*(3*d*E0c*k*N0*Power(\[CurlyEpsilon]c1, 2) +
07035 3*As1*d*k*
07036 Power(\[CurlyEpsilon]c1,
07037 2)*(-(E0cn*fy) +
07038 E0c*(fy +
07039 E0cn*(\[CurlyEpsilon]cder3 + \
07040 \[CurlyEpsilon]n))) +
07041 3*As2*k*
07042 Power(\[CurlyEpsilon]c1,
07043 2)*(d*(-(E0cn*fy) +
07044 E0c*(fy -
07045 E0cn*(\[CurlyEpsilon]cder3 + \
07046 \[CurlyEpsilon]n))) + 2*ch*(-(E0cn*fy) +
07047 E0c*(fy +
07048 E0cn*(\[CurlyEpsilon]cder3 + \
07049 \[CurlyEpsilon]n)))) +
07050 Sqrt(3)*
07051 Sqrt(k*Power(\[CurlyEpsilon]c1,
07052 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
07053 Power(-(d*E0c*N0) +
07054 As1*d*(-(E0cn*fy) +
07055 E0c*(fy +
07056 E0cn*(-\[CurlyEpsilon]cder3 + \
07057 \[CurlyEpsilon]n))) + As2*(-2*ch*E0c*E0cn*\[CurlyEpsilon]cder3 +
07058 d*(E0cn*fy +
07059 E0c*(-fy +
07060 E0cn*(\[CurlyEpsilon]cder3 + \
07061 \[CurlyEpsilon]n)))), 2) -
07062 2*(As2*ch + As1*d)*E0c*
07063 E0cn*(b*Power(d, 2)*E0c*fc*
07064 Power(\[CurlyEpsilon]cder3 + \
07065 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
07066 4*(-1 + k)*\[CurlyEpsilon]cder3 +
07067 4*(-1 + k)*\[CurlyEpsilon]n) +
07068 6*k*Power(\[CurlyEpsilon]c1,
07069 2)*\[CurlyEpsilon]cder3*(d*E0c*N0 +
07070 As1*d*(E0cn*fy -
07071 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
07072 As2*(ch*E0c*
07073 E0cn*\[CurlyEpsilon]cder3 +
07074 d*(-(E0cn*fy) +
07075 E0c*(fy -
07076 E0cn*(\[CurlyEpsilon]cder3 + \
07077 \[CurlyEpsilon]n)))))))))) - (36*b*d*Power(As2*ch + As1*d, 3)*Power(E0c, 3)*
07078 Power(E0cn, 2)*fc*Power(k, 2)*Power(\[CurlyEpsilon]c1, 4)*
07079 Power(\[CurlyEpsilon]cder3 + \[CurlyEpsilon]n,
07080 2)*(2*d*(\[CurlyEpsilon]cder3 + \[CurlyEpsilon]n)*((2 -
07081 3*k)*\[CurlyEpsilon]c1 + (-1 +
07082 k)*\[CurlyEpsilon]cder3 + (-1 +
07083 k)*\[CurlyEpsilon]n) - (h*((6 -
07084 9*k)*\[CurlyEpsilon]c1 +
07085 4*(-1 + k)*\[CurlyEpsilon]cder3 +
07086 4*(-1 + k)*\[CurlyEpsilon]n)*(-3*d*E0c*k*N0*
07087 Power(\[CurlyEpsilon]c1, 2) +
07088 3*As2*d*k*
07089 Power(\[CurlyEpsilon]c1,
07090 2)*(E0cn*fy +
07091 E0c*(-fy +
07092 E0cn*(\[CurlyEpsilon]cder3 + \
07093 \[CurlyEpsilon]n))) + 3*As1*d*k*
07094 Power(\[CurlyEpsilon]c1,
07095 2)*(-(E0cn*fy) +
07096 E0c*(fy +
07097 E0cn*(\[CurlyEpsilon]cder3 + \
07098 \[CurlyEpsilon]n))) - Sqrt(3)*Sqrt(k*
07099 Power(\[CurlyEpsilon]c1,
07100 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
07101 Power(-(d*E0c*N0) +
07102 As1*d*(-(E0cn*fy) +
07103 E0c*(fy +
07104 E0cn*(-\[CurlyEpsilon]cder3 + \
07105 \[CurlyEpsilon]n))) + As2*(-2*ch*E0c*E0cn*\[CurlyEpsilon]cder3 +
07106 d*(E0cn*fy + E0c*(-fy +
07107 E0cn*(\[CurlyEpsilon]cder3 + \
07108 \[CurlyEpsilon]n)))), 2) - 2*(As2*ch + As1*d)*E0c*
07109 E0cn*(b*Power(d, 2)*E0c*fc*
07110 Power(\[CurlyEpsilon]cder3 + \
07111 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
07112 4*(-1 + k)*\[CurlyEpsilon]cder3 +
07113 4*(-1 + k)*\[CurlyEpsilon]n) +
07114 6*k*Power(\[CurlyEpsilon]c1,
07115 2)*\[CurlyEpsilon]cder3*(d*E0c*N0 +
07116 As1*d*(E0cn*fy - E0c*(fy +
07117 E0cn*\[CurlyEpsilon]n)) +
07118 As2*(ch*E0c*
07119 E0cn*\[CurlyEpsilon]cder3 +
07120 d*(-(E0cn*fy) + E0c*(fy -
07121 E0cn*(\[CurlyEpsilon]cder3 + \
07122 \[CurlyEpsilon]n))))))))))/(6.*(As2*ch + As1*d)*E0c*E0cn*k*
07123 Power(\[CurlyEpsilon]c1, 2))))/
07124 Power(3*d*E0c*k*N0*Power(\[CurlyEpsilon]c1, 2) +
07125 3*As2*d*k*
07126 Power(\[CurlyEpsilon]c1,
07127 2)*(-(E0cn*fy) +
07128 E0c*(fy -
07129 E0cn*(\[CurlyEpsilon]cder3 + \[CurlyEpsilon]n))) -
07130 3*As1*d*k*
07131 Power(\[CurlyEpsilon]c1,
07132 2)*(-(E0cn*fy) +
07133 E0c*(fy +
07134 E0cn*(\[CurlyEpsilon]cder3 + \[CurlyEpsilon]n))) +
07135 Sqrt(3)*Sqrt(k*
07136 Power(\[CurlyEpsilon]c1,
07137 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
07138 Power(-(d*E0c*N0) +
07139 As1*d*(-(E0cn*fy) +
07140 E0c*(fy +
07141 E0cn*(-\[CurlyEpsilon]cder3 + \
07142 \[CurlyEpsilon]n))) + As2*(-2*ch*E0c*E0cn*\[CurlyEpsilon]cder3 +
07143 d*(E0cn*fy +
07144 E0c*(-fy +
07145 E0cn*(\[CurlyEpsilon]cder3 + \
07146 \[CurlyEpsilon]n)))), 2) -
07147 2*(As2*ch + As1*d)*E0c*
07148 E0cn*(b*Power(d, 2)*E0c*fc*
07149 Power(\[CurlyEpsilon]cder3 + \[CurlyEpsilon]n,
07150 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
07151 4*(-1 + k)*\[CurlyEpsilon]cder3 +
07152 4*(-1 + k)*\[CurlyEpsilon]n) +
07153 6*k*Power(\[CurlyEpsilon]c1,
07154 2)*\[CurlyEpsilon]cder3*(d*E0c*N0 +
07155 As1*d*(E0cn*fy -
07156 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
07157 As2*(ch*E0c*E0cn*\[CurlyEpsilon]cder3 +
07158 d*(-(E0cn*fy) +
07159 E0c*(fy -
07160 E0cn*(\[CurlyEpsilon]cder3 + \
07161 \[CurlyEpsilon]n)))))))),
07162 2) + (As2*(2*ch -
07163 h)*(-3*As1*d*k*
07164 Power(\[CurlyEpsilon]c1,
07165 2)*(-2*d*(E0cn*fy +
07166 E0c*(-fy +
07167 E0cn*(\[CurlyEpsilon]cder3 + \
07168 \[CurlyEpsilon]n))) + ch*(-(E0cn*fy) +
07169 E0c*(fy +
07170 E0cn*(\[CurlyEpsilon]cder3 + \
07171 \[CurlyEpsilon]n)))) +
07172 ch*(3*d*E0c*k*N0*Power(\[CurlyEpsilon]c1, 2) +
07173 3*As2*d*k*
07174 Power(\[CurlyEpsilon]c1,
07175 2)*(E0cn*fy +
07176 E0c*(-fy +
07177 E0cn*(\[CurlyEpsilon]cder3 + \
07178 \[CurlyEpsilon]n))) + Sqrt(3)*
07179 Sqrt(k*
07180 Power(\[CurlyEpsilon]c1,
07181 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
07182 Power(-(d*E0c*N0) +
07183 As1*d*(-(E0cn*fy) +
07184 E0c*(fy +
07185 E0cn*(-\[CurlyEpsilon]cder3 + \
07186 \[CurlyEpsilon]n))) + As2*(-2*ch*E0c*E0cn*\[CurlyEpsilon]cder3 +
07187 d*(E0cn*fy +
07188 E0c*(-fy +
07189 E0cn*(\[CurlyEpsilon]cder3 + \
07190 \[CurlyEpsilon]n)))), 2) - 2*(As2*ch + As1*d)*E0c*
07191 E0cn*(b*Power(d, 2)*E0c*fc*
07192 Power(\[CurlyEpsilon]cder3 + \
07193 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
07194 4*(-1 + k)*\[CurlyEpsilon]cder3 +
07195 4*(-1 + k)*\[CurlyEpsilon]n) +
07196 6*k*Power(\[CurlyEpsilon]c1,
07197 2)*\[CurlyEpsilon]cder3*(d*E0c*N0 +
07198 As1*d*(E0cn*fy -
07199 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
07200 As2*(ch*E0c*
07201 E0cn*\[CurlyEpsilon]cder3 +
07202 d*(-(E0cn*fy) + E0c*(fy -
07203 E0cn*(\[CurlyEpsilon]cder3 + \
07204 \[CurlyEpsilon]n)))))))))))/d)/(12.*(As2*ch + As1*d)*E0c*k*
07205 Power(\[CurlyEpsilon]c1, 2))
07206
07207 If(\[CurlyEpsilon]cder3 < \[CurlyEpsilon]ch7 && \[CurlyEpsilon]cder3 > \
07208 \[CurlyEpsilon]cmax1, (mh8 =
07209 mhmax) && (\[CurlyEpsilon]ch8 = \[CurlyEpsilon]cder3), (mh8 =
07210 mhmaxa) && (\[CurlyEpsilon]ch8 = \[CurlyEpsilon]cmax1))
07211
07212 If(\[CurlyEpsilon]cder3 > \[CurlyEpsilon]ch7 || \[CurlyEpsilon]cder3 < \
07213 \[CurlyEpsilon]cmax1 &&
07214 mh8 < mh7, (mh8 = mh7) && (\[CurlyEpsilon]ch8 = \[CurlyEpsilon]ch7),
07215 1)
07216
07217 mh78 = -(As1*(2*cd - h)*(3*d*E0c*k*N0*Power(\[CurlyEpsilon]c1, 2) +
07218 3*As1*d*k*
07219 Power(\[CurlyEpsilon]c1,
07220 2)*(-(E0cn*
07221 fy) + (E0c*(2*fy +
07222 E0cn*(\[CurlyEpsilon]ch7 + \[CurlyEpsilon]ch8 \
07223 + 2*\[CurlyEpsilon]n)))/2.) +
07224 3*As2*k*
07225 Power(\[CurlyEpsilon]c1,
07226 2)*(-(d*(2*E0cn*fy +
07227 E0c*(-2*fy +
07228 E0cn*(\[CurlyEpsilon]ch7 + \
07229 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n))))/2. +
07230 ch*(-2*E0cn*fy +
07231 E0c*(2*fy +
07232 E0cn*(\[CurlyEpsilon]ch7 + \
07233 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n)))) +
07234 Sqrt(3)*
07235 Sqrt(k*Power(\[CurlyEpsilon]c1,
07236 2)*((3*k*Power(\[CurlyEpsilon]c1, 2)*
07237 Power(-2*d*E0c*N0 +
07238 As1*d*(-2*E0cn*fy +
07239 E0c*(2*fy -
07240 E0cn*(\[CurlyEpsilon]ch7 + \
07241 \[CurlyEpsilon]ch8 - 2*\[CurlyEpsilon]n))) +
07242 As2*(-2*ch*E0c*
07243 E0cn*(\[CurlyEpsilon]ch7 + \
07244 \[CurlyEpsilon]ch8) + d*(2*E0cn*fy + E0c*(-2*fy +
07245 E0cn*(\[CurlyEpsilon]ch7 + \
07246 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n)))), 2))/
07247 4. - ((As2*ch + As1*d)*E0c*
07248 E0cn*(b*Power(d, 2)*E0c*fc*
07249 Power(\[CurlyEpsilon]ch7 + \
07250 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n,
07251 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
07252 2*(-1 +
07253 k)*(\[CurlyEpsilon]ch7 + \
07254 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n)) -
07255 6*k*Power(\[CurlyEpsilon]c1,
07256 2)*(\[CurlyEpsilon]ch7 + \
07257 \[CurlyEpsilon]ch8)*(-2*d*E0c*N0 + 2*As1*d*(-(E0cn*fy) +
07258 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
07259 As2*(-(ch*E0c*
07260 E0cn*(\[CurlyEpsilon]ch7 + \
07261 \[CurlyEpsilon]ch8)) + d*(2*E0cn*fy + E0c*(-2*fy +
07262 E0cn*(\[CurlyEpsilon]ch7 + \
07263 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n)))))))/2.))) - (As2*(2*ch -
07264 h)*(-3*As1*d*k*
07265 Power(\[CurlyEpsilon]c1,
07266 2)*(-2*
07267 d*(2*E0cn*fy +
07268 E0c*(-2*fy +
07269 E0cn*(\[CurlyEpsilon]ch7 + \
07270 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n))) +
07271 ch*(-2*E0cn*fy +
07272 E0c*(2*fy +
07273 E0cn*(\[CurlyEpsilon]ch7 + \
07274 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n)))) +
07275 ch*(6*d*E0c*k*N0*Power(\[CurlyEpsilon]c1, 2) +
07276 3*As2*d*k*
07277 Power(\[CurlyEpsilon]c1,
07278 2)*(2*E0cn*fy +
07279 E0c*(-2*fy +
07280 E0cn*(\[CurlyEpsilon]ch7 + \
07281 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n))) +
07282 2*Sqrt(3)*
07283 Sqrt(k*
07284 Power(\[CurlyEpsilon]c1,
07285 2)*((3*k*Power(\[CurlyEpsilon]c1, 2)*
07286 Power(-2*d*E0c*N0 +
07287 As1*d*(-2*E0cn*fy +
07288 E0c*(2*fy -
07289 E0cn*(\[CurlyEpsilon]ch7 + \
07290 \[CurlyEpsilon]ch8 - 2*\[CurlyEpsilon]n))) +
07291 As2*(-2*ch*E0c*
07292 E0cn*(\[CurlyEpsilon]ch7 + \
07293 \[CurlyEpsilon]ch8) + d*(2*E0cn*fy + E0c*(-2*fy +
07294 E0cn*(\[CurlyEpsilon]ch7 + \
07295 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n)))), 2))/
07296 4. - ((As2*ch + As1*d)*E0c*
07297 E0cn*(b*Power(d, 2)*E0c*fc*
07298 Power(\[CurlyEpsilon]ch7 + \
07299 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
07300 2*(-1 +
07301 k)*(\[CurlyEpsilon]ch7 + \
07302 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n)) - 6*k*
07303 Power(\[CurlyEpsilon]c1,
07304 2)*(\[CurlyEpsilon]ch7 + \
07305 \[CurlyEpsilon]ch8)*(-2*d*E0c*N0 + 2*As1*d*(-(E0cn*fy) +
07306 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
07307 As2*(-(ch*E0c*
07308 E0cn*(\[CurlyEpsilon]ch7 + \
07309 \[CurlyEpsilon]ch8)) + d*(2*E0cn*fy + E0c*(-2*fy +
07310 E0cn*(\[CurlyEpsilon]ch7 + \
07311 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n)))))))/2.)))))/(2.*
07312 d) + (3*b*d*Power(As2*ch + As1*d, 3)*Power(E0c, 3)*
07313 Power(E0cn, 2)*fc*Power(k, 2)*Power(\[CurlyEpsilon]c1, 4)*
07314 Power(\[CurlyEpsilon]ch7 + \[CurlyEpsilon]ch8 +
07315 2*\[CurlyEpsilon]n,
07316 2)*(6*d*(\[CurlyEpsilon]ch7 + \[CurlyEpsilon]ch8 +
07317 2*\[CurlyEpsilon]n)*((4 -
07318 6*k)*\[CurlyEpsilon]c1 + (-1 +
07319 k)*(\[CurlyEpsilon]ch7 + \[CurlyEpsilon]ch8 \
07320 + 2*\[CurlyEpsilon]n)) + (h*(3*(-2 + 3*k)*\[CurlyEpsilon]c1 -
07321 2*(-1 +
07322 k)*(\[CurlyEpsilon]ch7 + \
07323 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n))*(3*As2*d*k*
07324 Power(\[CurlyEpsilon]c1,
07325 2)*(2*E0cn*fy +
07326 E0c*(-2*fy +
07327 E0cn*(\[CurlyEpsilon]ch7 + \
07328 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n))) +
07329 3*As1*d*k*
07330 Power(\[CurlyEpsilon]c1,
07331 2)*(-2*E0cn*fy +
07332 E0c*(2*fy +
07333 E0cn*(\[CurlyEpsilon]ch7 + \
07334 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n))) -
07335 2*(3*d*E0c*k*N0*Power(\[CurlyEpsilon]c1, 2) +
07336 Sqrt(3)*
07337 Sqrt(k*
07338 Power(\[CurlyEpsilon]c1,
07339 2)*((3*k*Power(\[CurlyEpsilon]c1, 2)*
07340 Power(-2*d*E0c*N0 +
07341 As1*d*(-2*E0cn*fy + E0c*(2*fy -
07342 E0cn*(\[CurlyEpsilon]ch7 + \
07343 \[CurlyEpsilon]ch8 - 2*\[CurlyEpsilon]n))) +
07344 As2*(-2*ch*E0c*
07345 E0cn*(\[CurlyEpsilon]ch7 + \
07346 \[CurlyEpsilon]ch8) + d*(2*E0cn*fy + E0c*(-2*fy +
07347 E0cn*(\[CurlyEpsilon]ch7 + \
07348 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n)))), 2))/
07349 4. - ((As2*ch + As1*d)*E0c*
07350 E0cn*(b*Power(d, 2)*E0c*fc*
07351 Power(\[CurlyEpsilon]ch7 + \
07352 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
07353 2*(-1 +
07354 k)*(\[CurlyEpsilon]ch7 + \
07355 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n)) - 6*k*Power(\[CurlyEpsilon]c1,
07356 2)*(\[CurlyEpsilon]ch7 + \
07357 \[CurlyEpsilon]ch8)*(-2*d*E0c*N0 + 2*As1*d*(E0c*fy - E0cn*fy +
07358 E0c*E0cn*\[CurlyEpsilon]n) +
07359 As2*(-(ch*E0c*
07360 E0cn*(\[CurlyEpsilon]ch7 + \
07361 \[CurlyEpsilon]ch8)) + d*(2*E0cn*fy + E0c*(-2*fy +
07362 E0cn*(\[CurlyEpsilon]ch7 + \
07363 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n)))))))/2.)))))/((As2*ch + As1*d)*E0c*
07364 E0cn*k*Power(\[CurlyEpsilon]c1, 2))))/
07365 Power(6*d*E0c*k*N0*Power(\[CurlyEpsilon]c1, 2) -
07366 3*As2*d*k*
07367 Power(\[CurlyEpsilon]c1,
07368 2)*(2*E0cn*fy +
07369 E0c*(-2*fy +
07370 E0cn*(\[CurlyEpsilon]ch7 + \[CurlyEpsilon]ch8 +
07371 2*\[CurlyEpsilon]n))) -
07372 3*As1*d*k*
07373 Power(\[CurlyEpsilon]c1,
07374 2)*(-2*E0cn*fy +
07375 E0c*(2*fy +
07376 E0cn*(\[CurlyEpsilon]ch7 + \[CurlyEpsilon]ch8 +
07377 2*\[CurlyEpsilon]n))) +
07378 2*Sqrt(3)*
07379 Sqrt(k*Power(\[CurlyEpsilon]c1,
07380 2)*((3*k*Power(\[CurlyEpsilon]c1, 2)*
07381 Power(-2*d*E0c*N0 +
07382 As1*d*(-2*E0cn*fy +
07383 E0c*(2*fy -
07384 E0cn*(\[CurlyEpsilon]ch7 + \
07385 \[CurlyEpsilon]ch8 - 2*\[CurlyEpsilon]n))) +
07386 As2*(-2*ch*E0c*
07387 E0cn*(\[CurlyEpsilon]ch7 + \
07388 \[CurlyEpsilon]ch8) + d*(2*E0cn*fy + E0c*(-2*fy +
07389 E0cn*(\[CurlyEpsilon]ch7 + \
07390 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n)))), 2))/
07391 4. - ((As2*ch + As1*d)*E0c*
07392 E0cn*(b*Power(d, 2)*E0c*fc*
07393 Power(\[CurlyEpsilon]ch7 + \
07394 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n,
07395 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
07396 2*(-1 +
07397 k)*(\[CurlyEpsilon]ch7 + \
07398 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n)) -
07399 6*k*Power(\[CurlyEpsilon]c1,
07400 2)*(\[CurlyEpsilon]ch7 + \
07401 \[CurlyEpsilon]ch8)*(-2*d*E0c*N0 + 2*As1*d*(-(E0cn*fy) +
07402 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
07403 As2*(-(ch*E0c*
07404 E0cn*(\[CurlyEpsilon]ch7 + \
07405 \[CurlyEpsilon]ch8)) + d*(2*E0cn*fy + E0c*(-2*fy +
07406 E0cn*(\[CurlyEpsilon]ch7 + \
07407 \[CurlyEpsilon]ch8 + 2*\[CurlyEpsilon]n)))))))/2.)), 2))/(12.*(As2*ch +
07408 As1*d)*E0c*k*Power(\[CurlyEpsilon]c1, 2))
07409
07410 If(mh1 == mhr4, (mht1 = mhr4) && (tk1 = t1), mht1 = mhr1)
07411
07412 If(mh1 == mhr4 && mhrk1 == mmax1, (mht2 = mmax1) && (mht3 = mmax1), 1)
07413
07414 If(mh1 == mhr4 && mhrk1 == mhr4b, mht2 = mhr4b, 1)
07415
07416 If(mht2 == mhr4b && mh6 == mmax4, mht3 = mmax4, 1)
07417
07418 If(mht2 == mhr4b && mh6 == mmax3, mht3 = mmax3, 1)
07419
07420 If(mht2 == mhr4b && mh6 == mhr6, mht3 = mhr6, 1)
07421
07422 If(mh1 == mhr1 && mh2 == mhr2, mht2 = mhr2, 1)
07423
07424 If(mh1 == mhr1 && mh2 == mhr3, mht2 = mhr3, 1)
07425
07426 If(mht2 == mhr2 && mh5 == mhr5, mht3 = mhr5, 1)
07427
07428 If(mht2 == mhr2 && mh5 == mmax2, mht3 = mmax2, 1)
07429
07430 If(mht2 == mhr2 && mh5 == ms11, mht3 = ms11, 1)
07431
07432 If(mht2 == mhr2 && mh5 == mmax5, mht3 = mmax5, 1)
07433
07434 If(mht2 == mhr3 && mh6 == mhr6, mht3 = mhr6, 1)
07435
07436 If(mht2 == mhr3 && mh6 == mmax3, mht3 = mmax3, 1)
07437
07438 If(mht2 == mhr3 && mh6 == mmax4, mht3 = mmax4, 1)
07439
07440 If(mht3 == mhr5 || mht3 == mhr6, mht4 = mh8,
07441 If(mht2 == mmax1, mht4 = mh2, mht4 = mht3))
07442
07443 If(mht3 == mhr5 || mht3 == mhr6, mmax = mht4,
07444 If(mht2 == mmax1, mmax = mht2, mmax = mht3))
07445
07446 If(mh1 ==
07447 mhr4, (\[CurlyEpsilon]cht1 = \[CurlyEpsilon]chr4) && (m1g =
07448 msp2), (\[CurlyEpsilon]cht1 = \[CurlyEpsilon]chr1) && (m1g = msp2))
07449
07450 If(mh1 == mhr4 &&
07451 mhrk1 == mmax1, (\[CurlyEpsilon]cht2 = \[CurlyEpsilon]cder2) && (\
07452 \[CurlyEpsilon]cht3 = \[CurlyEpsilon]cder2) && (m2g = msp5), 1)
07453
07454 If(mh1 == mhr4 &&
07455 mhrk1 == mhr4b, (\[CurlyEpsilon]cht2 = \[CurlyEpsilon]chr4b) && (m2g =
07456 msp5), 1)
07457
07458 If(mht2 == mhr4b &&
07459 mh6 == mmax4, (\[CurlyEpsilon]cht3 = \[CurlyEpsilon]cder1) && (m3g =
07460 msp4), 1)
07461
07462 If(mht2 == mhr4b &&
07463 mh6 == mmax3, (\[CurlyEpsilon]cht3 = \[CurlyEpsilon]cmax1) && (m3g =
07464 msp4), 1)
07465
07466 If(mht2 == mhr4b &&
07467 mh6 == mhr6, (\[CurlyEpsilon]cht3 = \[CurlyEpsilon]chr6) && (m3g =
07468 msp4), 1)
07469
07470 If(mh1 == mhr1 &&
07471 mh2 == mhr2, (\[CurlyEpsilon]cht2 = \[CurlyEpsilon]chr2) && (m2g =
07472 msp1), 1)
07473
07474 If(mh1 == mhr1 &&
07475 mh2 == mhr3, (\[CurlyEpsilon]cht2 = \[CurlyEpsilon]chr3) && (m2g =
07476 msp1), 1)
07477
07478 If(mht2 == mhr2 &&
07479 mh5 == mhr5, (\[CurlyEpsilon]cht3 = \[CurlyEpsilon]chr5) && (m3g =
07480 msp3), 1)
07481
07482 If(mht2 == mhr2 &&
07483 mh5 == mmax2, (\[CurlyEpsilon]cht3 = \[CurlyEpsilon]cmax1) && (m3g =
07484 msp3), 1)
07485
07486 If(mht2 == mhr2 &&
07487 mh5 == ms11, (\[CurlyEpsilon]cht3 = \[CurlyEpsilon]cs11) && (m3g =
07488 msp3), 1)
07489
07490 If(mht2 == mhr2 &&
07491 mh5 == mmax5, (\[CurlyEpsilon]cht3 = \[CurlyEpsilon]cder4) && (m3g =
07492 msp3), 1)
07493
07494 If(mht2 == mhr3 &&
07495 mh6 == mhr6, (\[CurlyEpsilon]cht3 = \[CurlyEpsilon]chr6) && (m3g =
07496 msp4), 1)
07497
07498 If(mht2 == mhr3 &&
07499 mh6 == mmax3, (\[CurlyEpsilon]cht3 = \[CurlyEpsilon]cmax1) && (m3g =
07500 msp4), 1)
07501
07502 If(mht2 == mhr3 &&
07503 mh6 == mmax4, (\[CurlyEpsilon]cht3 = \[CurlyEpsilon]cder1) && (m3g =
07504 msp4), 1)
07505
07506 If(mht3 == mhr5 ||
07507 mht3 == mhr6, (\[CurlyEpsilon]cht4 = \[CurlyEpsilon]ch8) && (m4g =
07508 msp6), If(\[CurlyEpsilon]cht2 == \[CurlyEpsilon]cmax1, (\
07509 \[CurlyEpsilon]cht4 = \[CurlyEpsilon]ch2) && (m4g =
07510 msp6), (\[CurlyEpsilon]cht4 = \[CurlyEpsilon]cht3) && (m4g =
07511 msp6)))
07512
07513 If(mht3 == mhr5 || mht3 == mhr6, \[CurlyEpsilon]cmax = \[CurlyEpsilon]cht4,
07514 If(\[CurlyEpsilon]cht2 == \[CurlyEpsilon]cmax1, (\[CurlyEpsilon]cmax = \
07515 \[CurlyEpsilon]cht2) && (m3g =
07516 msp5), \[CurlyEpsilon]cmax = \[CurlyEpsilon]cht3))
07517
07518 msp1 = (mhr1*(\[CurlyEpsilon]c - \[CurlyEpsilon]ch2)*(2*\[CurlyEpsilon]c - \
07519 \[CurlyEpsilon]ch2 - \[CurlyEpsilon]chr1) - (\[CurlyEpsilon]c - \
07520 \[CurlyEpsilon]chr1)*(4*mh12*(\[CurlyEpsilon]c - \[CurlyEpsilon]ch2) +
07521 mh2*(-2*\[CurlyEpsilon]c + \[CurlyEpsilon]ch2 + \
07522 \[CurlyEpsilon]chr1)))/Power(-\[CurlyEpsilon]ch2 + \[CurlyEpsilon]chr1, 2)
07523
07524 \[CurlyEpsilon]s11 = (6*As2*ch*E0c*k*\[CurlyEpsilon]c*
07525 Power(\[CurlyEpsilon]c1, 2) +
07526 3*d*k*Power(\[CurlyEpsilon]c1,
07527 2)*(N0 + As1*E0c*(\[CurlyEpsilon]c - \[CurlyEpsilon]n) -
07528 As2*E0c*(\[CurlyEpsilon]c + \[CurlyEpsilon]n)) +
07529 Sqrt(3)*Sqrt(k*
07530 Power(\[CurlyEpsilon]c1,
07531 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
07532 Power(-2*As2*ch*E0c*\[CurlyEpsilon]c +
07533 d*(-N0 - As1*E0c*\[CurlyEpsilon]c +
07534 As2*E0c*\[CurlyEpsilon]c + (As1 + As2)*
07535 E0c*\[CurlyEpsilon]n), 2) -
07536 2*(As2*ch + As1*d)*
07537 E0c*(b*Power(d, 2)*fc*
07538 Power(\[CurlyEpsilon]c + \[CurlyEpsilon]n,
07539 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
07540 9*k)*\[CurlyEpsilon]c1 +
07541 4*(-1 + k)*\[CurlyEpsilon]n) +
07542 6*k*\[CurlyEpsilon]c*
07543 Power(\[CurlyEpsilon]c1,
07544 2)*(As2*ch*E0c*\[CurlyEpsilon]c +
07545 d*(N0 -
07546 E0c*(As2*\[CurlyEpsilon]c + (As1 +
07547 As2)*\[CurlyEpsilon]n)))))))/(6.*(As2*
07548 ch + As1*d)*E0c*k*Power(\[CurlyEpsilon]c1, 2))
07549
07550 \[CurlyEpsilon]cmsp1 = ((-mh2 - 3*mhr1)*\[CurlyEpsilon]ch2 - (3*mh2 +
07551 mhr1)*\[CurlyEpsilon]chr1 +
07552 4*mh12*(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]chr1) + \
07553 (-\[CurlyEpsilon]ch2 + \[CurlyEpsilon]chr1)*
07554 Sqrt(16*Power(mh12, 2) + Power(mh2 - mhr1, 2) +
07555 8*(mh2 + mhr1)*mp[i] - 8*mh12*(mh2 + mhr1 + 2*mp[i])))/(8*
07556 mh12 - 4*(mh2 + mhr1))
07557
07558 \[CurlyEpsilon]s1msp1 = (6*As2*ch*E0c*k*
07559 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]cmsp1 +
07560 3*d*k*Power(\[CurlyEpsilon]c1,
07561 2)*(N0 + As1*E0c*(\[CurlyEpsilon]cmsp1 - \[CurlyEpsilon]n) -
07562 As2*E0c*(\[CurlyEpsilon]cmsp1 + \[CurlyEpsilon]n)) +
07563 Sqrt(3)*Sqrt(k*
07564 Power(\[CurlyEpsilon]c1,
07565 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
07566 Power(-2*As2*ch*E0c*\[CurlyEpsilon]cmsp1 +
07567 d*(-N0 - As1*E0c*\[CurlyEpsilon]cmsp1 +
07568 As2*E0c*\[CurlyEpsilon]cmsp1 + (As1 + As2)*
07569 E0c*\[CurlyEpsilon]n), 2) -
07570 2*(As2*ch + As1*d)*
07571 E0c*(b*Power(d, 2)*fc*
07572 Power(\[CurlyEpsilon]cmsp1 + \[CurlyEpsilon]n,
07573 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
07574 4*(-1 + k)*\[CurlyEpsilon]cmsp1 +
07575 4*(-1 + k)*\[CurlyEpsilon]n) +
07576 6*k*Power(\[CurlyEpsilon]c1,
07577 2)*\[CurlyEpsilon]cmsp1*(As2*ch*
07578 E0c*\[CurlyEpsilon]cmsp1 +
07579 d*(N0 -
07580 E0c*(As2*\[CurlyEpsilon]cmsp1 + (As1 +
07581 As2)*\[CurlyEpsilon]n)))))))/(6.*(As2*
07582 ch + As1*d)*E0c*k*Power(\[CurlyEpsilon]c1, 2))
07583
07584 a11 = (-(mh2*\[CurlyEpsilon]ch2) -
07585 3*mhr1*\[CurlyEpsilon]ch2 - (3*mh2 + mhr1)*\[CurlyEpsilon]chr1 +
07586 4*mh12*(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]chr1 -
07587 2*\[CurlyEpsilon]cmsp1) + 4*mh2*\[CurlyEpsilon]cmsp1 +
07588 4*mhr1*\[CurlyEpsilon]cmsp1)/
07589 Power(\[CurlyEpsilon]ch2 - \[CurlyEpsilon]chr1, 2)
07590
07591 a21 = -(a11*\[CurlyEpsilon]cmsp1) + mp[i]
07592
07593 b11 = (2*As2*ch + (As1 - As2)*
07594 d + (Sqrt(3)*
07595 Power(d,
07596 2)*(Power(As2, 2)*E0c*k*
07597 Power(\[CurlyEpsilon]c1,
07598 2)*(\[CurlyEpsilon]cmsp1 + \[CurlyEpsilon]n) +
07599 As1*(-2*b*d*
07600 fc*(\[CurlyEpsilon]cmsp1 + \[CurlyEpsilon]n)*((2 \
07601 - 3*k)*\[CurlyEpsilon]c1 + 2*(-1 + k)*\[CurlyEpsilon]cmsp1 +
07602 2*(-1 + k)*\[CurlyEpsilon]n) +
07603 k*Power(\[CurlyEpsilon]c1,
07604 2)*(-N0 +
07605 As1*E0c*(\[CurlyEpsilon]cmsp1 + \
07606 \[CurlyEpsilon]n))) +
07607 As2*(-2*b*ch*
07608 fc*(\[CurlyEpsilon]cmsp1 + \[CurlyEpsilon]n)*((2 \
07609 - 3*k)*\[CurlyEpsilon]c1 + 2*(-1 + k)*\[CurlyEpsilon]cmsp1 +
07610 2*(-1 + k)*\[CurlyEpsilon]n) +
07611 k*Power(\[CurlyEpsilon]c1,
07612 2)*(-N0 +
07613 2*As1*
07614 E0c*(\[CurlyEpsilon]cmsp1 + \
07615 \[CurlyEpsilon]n)))))/
07616 Sqrt(k*Power(\[CurlyEpsilon]c1,
07617 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
07618 Power(-2*As2*ch*E0c*\[CurlyEpsilon]cmsp1 +
07619 d*(-N0 - As1*E0c*\[CurlyEpsilon]cmsp1 +
07620 As2*E0c*\[CurlyEpsilon]cmsp1 + (As1 + As2)*
07621 E0c*\[CurlyEpsilon]n), 2) -
07622 2*(As2*ch + As1*d)*
07623 E0c*(b*Power(d, 2)*fc*
07624 Power(\[CurlyEpsilon]cmsp1 + \[CurlyEpsilon]n,
07625 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
07626 4*(-1 + k)*\[CurlyEpsilon]cmsp1 +
07627 4*(-1 + k)*\[CurlyEpsilon]n) +
07628 6*k*Power(\[CurlyEpsilon]c1,
07629 2)*\[CurlyEpsilon]cmsp1*(As2*ch*
07630 E0c*\[CurlyEpsilon]cmsp1 +
07631 d*(N0 -
07632 E0c*(As2*\[CurlyEpsilon]cmsp1 + (As1 +
07633 As2)*\[CurlyEpsilon]n)))))))/(2.*(As2*
07634 ch + As1*d))
07635
07636 b21 = -(b11*\[CurlyEpsilon]cmsp1) + (6*As2*ch*E0c*k*
07637 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]cmsp1 +
07638 3*d*k*Power(\[CurlyEpsilon]c1,
07639 2)*(N0 + As1*E0c*(\[CurlyEpsilon]cmsp1 - \[CurlyEpsilon]n) -
07640 As2*E0c*(\[CurlyEpsilon]cmsp1 + \[CurlyEpsilon]n)) +
07641 Sqrt(3)*Sqrt(k*
07642 Power(\[CurlyEpsilon]c1,
07643 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
07644 Power(-2*As2*ch*E0c*\[CurlyEpsilon]cmsp1 +
07645 d*(-N0 - As1*E0c*\[CurlyEpsilon]cmsp1 +
07646 As2*E0c*\[CurlyEpsilon]cmsp1 + (As1 + As2)*
07647 E0c*\[CurlyEpsilon]n), 2) -
07648 2*(As2*ch + As1*d)*
07649 E0c*(b*Power(d, 2)*fc*
07650 Power(\[CurlyEpsilon]cmsp1 + \[CurlyEpsilon]n,
07651 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
07652 4*(-1 + k)*\[CurlyEpsilon]cmsp1 +
07653 4*(-1 + k)*\[CurlyEpsilon]n) +
07654 6*k*Power(\[CurlyEpsilon]c1,
07655 2)*\[CurlyEpsilon]cmsp1*(As2*ch*
07656 E0c*\[CurlyEpsilon]cmsp1 +
07657 d*(N0 -
07658 E0c*(As2*\[CurlyEpsilon]cmsp1 + (As1 +
07659 As2)*\[CurlyEpsilon]n)))))))/(6.*(As2*
07660 ch + As1*d)*E0c*k*Power(\[CurlyEpsilon]c1, 2))
07661
07662 msp2 = (\[CurlyEpsilon]c*(-4*mh01*\[CurlyEpsilon]c + 2*mh1*\[CurlyEpsilon]c +
07663 4*mh01*\[CurlyEpsilon]ch1 - mh1*\[CurlyEpsilon]ch1))/
07664 Power(\[CurlyEpsilon]ch1, 2)
07665
07666 \[CurlyEpsilon]s12 = (6*d*(As2*ch + As1*d)*E0c*k*Power(\[CurlyEpsilon]c1, 2) +
07667 b*fc*Power(h,
07668 2)*(8*h*(-1 + k)*\[CurlyEpsilon]c -
07669 3*d*(4*(-1 + k)*\[CurlyEpsilon]c + (2 -
07670 3*k)*\[CurlyEpsilon]c1 +
07671 4*(-1 + k)*\[CurlyEpsilon]n)) -
07672 Sqrt(3)*Sqrt(Power(d,
07673 2)*(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*Power(k, 2)*
07674 Power(\[CurlyEpsilon]c1, 4) -
07675 Power(b, 2)*Power(fc, 2)*
07676 Power(h,
07677 4)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
07678 9*k)*\[CurlyEpsilon]c1 +
07679 4*(-1 + k)*\[CurlyEpsilon]n)*(4*(-1 +
07680 k)*\[CurlyEpsilon]c + (-2 +
07681 3*k)*\[CurlyEpsilon]c1 +
07682 4*(-1 + k)*\[CurlyEpsilon]n) +
07683 4*b*fc*Power(h, 2)*k*
07684 Power(\[CurlyEpsilon]c1,
07685 2)*(3*(As2*ch + As1*d)*
07686 E0c*(-4*(-1 + k)*\[CurlyEpsilon]c -
07687 2*\[CurlyEpsilon]c1 + 3*k*\[CurlyEpsilon]c1 +
07688 4*\[CurlyEpsilon]n - 4*k*\[CurlyEpsilon]n) +
07689 8*h*(-1 +
07690 k)*(-N0 + (As1 + As2)*
07691 E0c*(\[CurlyEpsilon]c + \
07692 \[CurlyEpsilon]n))))))/(8.*b*fc*Power(h, 3)*(-1 + k))
07693
07694 \[CurlyEpsilon]cmsp2 = (4*mh01*\[CurlyEpsilon]ch1 -
07695 mh1*\[CurlyEpsilon]ch1 - \[CurlyEpsilon]ch1*
07696 Sqrt(16*Power(mh01, 2) - 8*mh01*mh1 + Power(mh1, 2) -
07697 16*mh01*mp[i] + 8*mh1*mp[i]))/(2.*(4*mh01 - 2*mh1))
07698
07699 \[CurlyEpsilon]s1msp2 = (6*d*(As2*ch + As1*d)*E0c*k*
07700 Power(\[CurlyEpsilon]c1, 2) +
07701 b*fc*Power(h,
07702 2)*(8*h*(-1 + k)*\[CurlyEpsilon]cmsp2 -
07703 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
07704 4*(-1 + k)*\[CurlyEpsilon]cmsp2 +
07705 4*(-1 + k)*\[CurlyEpsilon]n)) -
07706 Sqrt(3)*Sqrt(Power(d,
07707 2)*(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*Power(k, 2)*
07708 Power(\[CurlyEpsilon]c1, 4) -
07709 Power(b, 2)*Power(fc, 2)*
07710 Power(h,
07711 4)*((6 - 9*k)*\[CurlyEpsilon]c1 +
07712 4*(-1 + k)*\[CurlyEpsilon]cmsp2 +
07713 4*(-1 + k)*\[CurlyEpsilon]n)*((-2 +
07714 3*k)*\[CurlyEpsilon]c1 +
07715 4*(-1 + k)*\[CurlyEpsilon]cmsp2 +
07716 4*(-1 + k)*\[CurlyEpsilon]n) +
07717 4*b*fc*Power(h, 2)*k*
07718 Power(\[CurlyEpsilon]c1,
07719 2)*(3*(As2*ch + As1*d)*
07720 E0c*(-2*\[CurlyEpsilon]c1 + 3*k*\[CurlyEpsilon]c1 -
07721 4*(-1 + k)*\[CurlyEpsilon]cmsp2 +
07722 4*\[CurlyEpsilon]n - 4*k*\[CurlyEpsilon]n) +
07723 8*h*(-1 +
07724 k)*(-N0 + (As1 + As2)*
07725 E0c*(\[CurlyEpsilon]cmsp2 + \
07726 \[CurlyEpsilon]n))))))/(8.*b*fc*Power(h, 3)*(-1 + k))
07727
07728 a12 = (4*mh01*(\[CurlyEpsilon]ch1 - 2*\[CurlyEpsilon]cmsp2) +
07729 mh1*(-\[CurlyEpsilon]ch1 + 4*\[CurlyEpsilon]cmsp2))/
07730 Power(\[CurlyEpsilon]ch1, 2)
07731
07732 a22 = -(a12*\[CurlyEpsilon]cmsp2) + mp[i]
07733
07734 b12 = (b*fc*
07735 Power(h,
07736 2)*(-12*d*(-1 + k) + 8*h*(-1 + k)) - (Sqrt(3)*
07737 Power(d,
07738 2)*(4*b*fc*
07739 Power(h,
07740 2)*(-12*(As2*ch + As1*d)*E0c*(-1 + k) +
07741 8*(As1 + As2)*E0c*h*(-1 + k))*k*
07742 Power(\[CurlyEpsilon]c1, 2) -
07743 4*Power(b, 2)*Power(fc, 2)*
07744 Power(h,
07745 4)*(-1 + k)*((6 - 9*k)*\[CurlyEpsilon]c1 +
07746 4*(-1 + k)*\[CurlyEpsilon]cmsp2 +
07747 4*(-1 + k)*\[CurlyEpsilon]n) -
07748 4*Power(b, 2)*Power(fc, 2)*
07749 Power(h,
07750 4)*(-1 + k)*((-2 + 3*k)*\[CurlyEpsilon]c1 +
07751 4*(-1 + k)*\[CurlyEpsilon]cmsp2 +
07752 4*(-1 + k)*\[CurlyEpsilon]n)))/(2.*
07753 Sqrt(Power(d,
07754 2)*(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*Power(k, 2)*
07755 Power(\[CurlyEpsilon]c1, 4) -
07756 Power(b, 2)*Power(fc, 2)*
07757 Power(h,
07758 4)*((6 - 9*k)*\[CurlyEpsilon]c1 +
07759 4*(-1 + k)*\[CurlyEpsilon]cmsp2 +
07760 4*(-1 + k)*\[CurlyEpsilon]n)*((-2 +
07761 3*k)*\[CurlyEpsilon]c1 +
07762 4*(-1 + k)*\[CurlyEpsilon]cmsp2 +
07763 4*(-1 + k)*\[CurlyEpsilon]n) +
07764 4*b*fc*Power(h, 2)*k*
07765 Power(\[CurlyEpsilon]c1,
07766 2)*(3*(As2*ch + As1*d)*
07767 E0c*(-2*\[CurlyEpsilon]c1 +
07768 3*k*\[CurlyEpsilon]c1 -
07769 4*(-1 + k)*\[CurlyEpsilon]cmsp2 +
07770 4*\[CurlyEpsilon]n -
07771 4*k*\[CurlyEpsilon]n) +
07772 8*h*(-1 +
07773 k)*(-N0 + (As1 + As2)*
07774 E0c*(\[CurlyEpsilon]cmsp2 + \
07775 \[CurlyEpsilon]n)))))))/(8.*b*fc*Power(h, 3)*(-1 + k))
07776
07777 b22 = -(b12*\[CurlyEpsilon]cmsp2) + (6*d*(As2*ch + As1*d)*E0c*k*
07778 Power(\[CurlyEpsilon]c1, 2) +
07779 b*fc*Power(h,
07780 2)*(8*h*(-1 + k)*\[CurlyEpsilon]cmsp2 -
07781 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
07782 4*(-1 + k)*\[CurlyEpsilon]cmsp2 +
07783 4*(-1 + k)*\[CurlyEpsilon]n)) -
07784 Sqrt(3)*Sqrt(Power(d,
07785 2)*(12*Power(As2*ch + As1*d, 2)*Power(E0c, 2)*Power(k, 2)*
07786 Power(\[CurlyEpsilon]c1, 4) -
07787 Power(b, 2)*Power(fc, 2)*
07788 Power(h,
07789 4)*((6 - 9*k)*\[CurlyEpsilon]c1 +
07790 4*(-1 + k)*\[CurlyEpsilon]cmsp2 +
07791 4*(-1 + k)*\[CurlyEpsilon]n)*((-2 +
07792 3*k)*\[CurlyEpsilon]c1 +
07793 4*(-1 + k)*\[CurlyEpsilon]cmsp2 +
07794 4*(-1 + k)*\[CurlyEpsilon]n) +
07795 4*b*fc*Power(h, 2)*k*
07796 Power(\[CurlyEpsilon]c1,
07797 2)*(3*(As2*ch + As1*d)*
07798 E0c*(-2*\[CurlyEpsilon]c1 +
07799 3*k*\[CurlyEpsilon]c1 -
07800 4*(-1 + k)*\[CurlyEpsilon]cmsp2 +
07801 4*\[CurlyEpsilon]n - 4*k*\[CurlyEpsilon]n) +
07802 8*h*(-1 +
07803 k)*(-N0 + (As1 + As2)*
07804 E0c*(\[CurlyEpsilon]cmsp2 + \
07805 \[CurlyEpsilon]n))))))/(8.*b*fc*Power(h, 3)*(-1 + k))
07806
07807 msp3 = (mh2*(\[CurlyEpsilon]c - \[CurlyEpsilon]ch5)*(2*\[CurlyEpsilon]c - \
07808 \[CurlyEpsilon]ch2 - \[CurlyEpsilon]ch5) - (\[CurlyEpsilon]c - \
07809 \[CurlyEpsilon]ch2)*(4*mh25*(\[CurlyEpsilon]c - \[CurlyEpsilon]ch5) +
07810 mh5*(-2*\[CurlyEpsilon]c + \[CurlyEpsilon]ch2 + \
07811 \[CurlyEpsilon]ch5)))/Power(\[CurlyEpsilon]ch2 - \[CurlyEpsilon]ch5, 2)
07812
07813 \[CurlyEpsilon]s13 = (6*As2*ch*Power(E0c, 2)*k*\[CurlyEpsilon]c*
07814 Power(\[CurlyEpsilon]c1, 2) -
07815 3*d*k*Power(\[CurlyEpsilon]c1,
07816 2)*(-(As1*E0cn*fy) +
07817 E0c*(-N0 + As2*E0c*(\[CurlyEpsilon]c + \[CurlyEpsilon]n) +
07818 As1*(fy + E0cn*(-\[CurlyEpsilon]c + \[CurlyEpsilon]n)))) +
07819 Sqrt(3)*
07820 Sqrt(k*Power(\[CurlyEpsilon]c1,
07821 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
07822 Power(-2*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]c +
07823 d*(-(As1*E0cn*fy) +
07824 E0c*(-N0 +
07825 As2*E0c*(\[CurlyEpsilon]c + \
07826 \[CurlyEpsilon]n) + As1*(fy + E0cn*(-\[CurlyEpsilon]c + \[CurlyEpsilon]n)))),
07827 2) - 2*E0c*(As2*ch*E0c +
07828 As1*d*E0cn)*(b*Power(d, 2)*E0c*fc*
07829 Power(\[CurlyEpsilon]c + \[CurlyEpsilon]n,
07830 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
07831 9*k)*\[CurlyEpsilon]c1 +
07832 4*(-1 + k)*\[CurlyEpsilon]n) +
07833 6*k*\[CurlyEpsilon]c*
07834 Power(\[CurlyEpsilon]c1,
07835 2)*(As1*
07836 d*(E0cn*fy -
07837 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
07838 E0c*(As2*ch*E0c*\[CurlyEpsilon]c +
07839 d*(N0 -
07840 As2*E0c*(\[CurlyEpsilon]c + \
07841 \[CurlyEpsilon]n))))))))/(6.*E0c*(As2*ch*E0c + As1*d*E0cn)*k*
07842 Power(\[CurlyEpsilon]c1, 2))
07843
07844 \[CurlyEpsilon]cmsp3 = (3*mh5*\[CurlyEpsilon]ch2 + mh5*\[CurlyEpsilon]ch5 -
07845 4*mh25*(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]ch5) +
07846 mh2*(\[CurlyEpsilon]ch2 +
07847 3*\[CurlyEpsilon]ch5) + (-\[CurlyEpsilon]ch2 + \
07848 \[CurlyEpsilon]ch5)*
07849 Sqrt(Power(mh2, 2) + Power(-4*mh25 + mh5, 2) -
07850 2*mh2*(4*mh25 + mh5 - 4*mp[i]) +
07851 8*(-2*mh25 + mh5)*mp[i]))/(4.*(mh2 - 2*mh25 + mh5))
07852
07853 \[CurlyEpsilon]s1msp3 = (6*As2*ch*Power(E0c, 2)*k*
07854 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]cmsp3 -
07855 3*d*k*Power(\[CurlyEpsilon]c1,
07856 2)*(-(As1*E0cn*fy) +
07857 E0c*(-N0 + As2*E0c*(\[CurlyEpsilon]cmsp3 + \[CurlyEpsilon]n) +
07858 As1*(fy +
07859 E0cn*(-\[CurlyEpsilon]cmsp3 + \[CurlyEpsilon]n)))) +
07860 Sqrt(3)*
07861 Sqrt(k*Power(\[CurlyEpsilon]c1,
07862 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
07863 Power(-2*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]cmsp3 +
07864 d*(-(As1*E0cn*fy) +
07865 E0c*(-N0 +
07866 As2*E0c*(\[CurlyEpsilon]cmsp3 + \
07867 \[CurlyEpsilon]n) + As1*(fy +
07868 E0cn*(-\[CurlyEpsilon]cmsp3 + \
07869 \[CurlyEpsilon]n)))), 2) -
07870 2*E0c*(As2*ch*E0c +
07871 As1*d*E0cn)*(b*Power(d, 2)*E0c*fc*
07872 Power(\[CurlyEpsilon]cmsp3 + \[CurlyEpsilon]n,
07873 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
07874 4*(-1 + k)*\[CurlyEpsilon]cmsp3 +
07875 4*(-1 + k)*\[CurlyEpsilon]n) +
07876 6*k*Power(\[CurlyEpsilon]c1,
07877 2)*\[CurlyEpsilon]cmsp3*(As1*
07878 d*(E0cn*fy -
07879 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
07880 E0c*(As2*ch*E0c*\[CurlyEpsilon]cmsp3 +
07881 d*(N0 -
07882 As2*E0c*(\[CurlyEpsilon]cmsp3 + \
07883 \[CurlyEpsilon]n))))))))/(6.*E0c*(As2*ch*E0c + As1*d*E0cn)*k*
07884 Power(\[CurlyEpsilon]c1, 2))
07885
07886 a13 = (4*mh25*(\[CurlyEpsilon]ch2 + \[CurlyEpsilon]ch5 -
07887 2*\[CurlyEpsilon]cmsp3) +
07888 mh2*(-\[CurlyEpsilon]ch2 - 3*\[CurlyEpsilon]ch5 +
07889 4*\[CurlyEpsilon]cmsp3) +
07890 mh5*(-3*\[CurlyEpsilon]ch2 - \[CurlyEpsilon]ch5 +
07891 4*\[CurlyEpsilon]cmsp3))/
07892 Power(\[CurlyEpsilon]ch2 - \[CurlyEpsilon]ch5, 2)
07893
07894 a23 = -(a13*\[CurlyEpsilon]cmsp3) + mp[i]
07895
07896 b13 = (6*As2*ch*Power(E0c, 2)*k*Power(\[CurlyEpsilon]c1, 2) -
07897 3*d*E0c*(As2*E0c - As1*E0cn)*k*
07898 Power(\[CurlyEpsilon]c1,
07899 2) + (Sqrt(3)*k*
07900 Power(\[CurlyEpsilon]c1,
07901 2)*(6*(-2*As2*ch*Power(E0c, 2) + d*E0c*(As2*E0c - As1*E0cn))*
07902 k*Power(\[CurlyEpsilon]c1,
07903 2)*(-2*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]cmsp3 +
07904 d*(-(As1*E0cn*fy) +
07905 E0c*(-N0 +
07906 As2*E0c*(\[CurlyEpsilon]cmsp3 + \
07907 \[CurlyEpsilon]n) + As1*(fy +
07908 E0cn*(-\[CurlyEpsilon]cmsp3 + \
07909 \[CurlyEpsilon]n)))))\
07910 -2*E0c*(As2*ch*E0c +
07911 As1*d*E0cn)*(6*E0c*(As2*ch*E0c - As2*d*E0c)*k*
07912 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]cmsp3 +
07913 4*b*Power(d, 2)*E0c*fc*(-1 + k)*
07914 Power(\[CurlyEpsilon]cmsp3 + \[CurlyEpsilon]n, 2) +
07915 2*b*Power(d, 2)*E0c*
07916 fc*(\[CurlyEpsilon]cmsp3 + \[CurlyEpsilon]n)*((6 -
07917 9*k)*\[CurlyEpsilon]c1 +
07918 4*(-1 + k)*\[CurlyEpsilon]cmsp3 +
07919 4*(-1 + k)*\[CurlyEpsilon]n) +
07920 6*k*Power(\[CurlyEpsilon]c1,
07921 2)*(As1*
07922 d*(E0cn*fy - E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
07923 E0c*(As2*ch*E0c*\[CurlyEpsilon]cmsp3 +
07924 d*(N0 -
07925 As2*E0c*(\[CurlyEpsilon]cmsp3 + \
07926 \[CurlyEpsilon]n)))))))/(2.*
07927 Sqrt(k*Power(\[CurlyEpsilon]c1,
07928 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
07929 Power(-2*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]cmsp3 +
07930 d*(-(As1*E0cn*fy) +
07931 E0c*(-N0 +
07932 As2*E0c*(\[CurlyEpsilon]cmsp3 + \
07933 \[CurlyEpsilon]n) + As1*(fy +
07934 E0cn*(-\[CurlyEpsilon]cmsp3 + \
07935 \[CurlyEpsilon]n)))), 2) -
07936 2*E0c*(As2*ch*E0c +
07937 As1*d*E0cn)*(b*Power(d, 2)*E0c*fc*
07938 Power(\[CurlyEpsilon]cmsp3 + \[CurlyEpsilon]n,
07939 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
07940 4*(-1 + k)*\[CurlyEpsilon]cmsp3 +
07941 4*(-1 + k)*\[CurlyEpsilon]n) +
07942 6*k*Power(\[CurlyEpsilon]c1,
07943 2)*\[CurlyEpsilon]cmsp3*(As1*
07944 d*(E0cn*fy -
07945 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
07946 E0c*(As2*ch*E0c*\[CurlyEpsilon]cmsp3 +
07947 d*(N0 -
07948 As2*E0c*(\[CurlyEpsilon]cmsp3 + \
07949 \[CurlyEpsilon]n)))))))))/(6.*E0c*(As2*ch*E0c + As1*d*E0cn)*k*
07950 Power(\[CurlyEpsilon]c1, 2))
07951
07952 b23 = -(b13*\[CurlyEpsilon]cmsp3) + (6*As2*ch*Power(E0c, 2)*k*
07953 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]cmsp3 -
07954 3*d*k*Power(\[CurlyEpsilon]c1,
07955 2)*(-(As1*E0cn*fy) +
07956 E0c*(-N0 + As2*E0c*(\[CurlyEpsilon]cmsp3 + \[CurlyEpsilon]n) +
07957 As1*(fy +
07958 E0cn*(-\[CurlyEpsilon]cmsp3 + \
07959 \[CurlyEpsilon]n)))) +
07960 Sqrt(3)*Sqrt(k*
07961 Power(\[CurlyEpsilon]c1,
07962 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
07963 Power(-2*As2*ch*Power(E0c, 2)*\[CurlyEpsilon]cmsp3 +
07964 d*(-(As1*E0cn*fy) +
07965 E0c*(-N0 +
07966 As2*E0c*(\[CurlyEpsilon]cmsp3 + \
07967 \[CurlyEpsilon]n) + As1*(fy +
07968 E0cn*(-\[CurlyEpsilon]cmsp3 + \
07969 \[CurlyEpsilon]n)))), 2) -
07970 2*E0c*(As2*ch*E0c +
07971 As1*d*E0cn)*(b*Power(d, 2)*E0c*fc*
07972 Power(\[CurlyEpsilon]cmsp3 + \[CurlyEpsilon]n,
07973 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
07974 4*(-1 + k)*\[CurlyEpsilon]cmsp3 +
07975 4*(-1 + k)*\[CurlyEpsilon]n) +
07976 6*k*Power(\[CurlyEpsilon]c1,
07977 2)*\[CurlyEpsilon]cmsp3*(As1*
07978 d*(E0cn*fy -
07979 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
07980 E0c*(As2*ch*E0c*\[CurlyEpsilon]cmsp3 +
07981 d*(N0 -
07982 As2*E0c*(\[CurlyEpsilon]cmsp3 + \
07983 \[CurlyEpsilon]n))))))))/(6.*E0c*(As2*ch*E0c + As1*d*E0cn)*k*
07984 Power(\[CurlyEpsilon]c1, 2))
07985
07986 msp4 = (mh3*(\[CurlyEpsilon]c - \[CurlyEpsilon]ch6)*(2*\[CurlyEpsilon]c - \
07987 \[CurlyEpsilon]ch3 - \[CurlyEpsilon]ch6) - (\[CurlyEpsilon]c - \
07988 \[CurlyEpsilon]ch3)*(4*mh36*(\[CurlyEpsilon]c - \[CurlyEpsilon]ch6) +
07989 mh6*(-2*\[CurlyEpsilon]c + \[CurlyEpsilon]ch3 + \
07990 \[CurlyEpsilon]ch6)))/Power(\[CurlyEpsilon]ch3 - \[CurlyEpsilon]ch6, 2)
07991
07992 \[CurlyEpsilon]s14 = (3*d*E0c*k*
07993 Power(\[CurlyEpsilon]c1,
07994 2)*(N0 + As1*E0c*(\[CurlyEpsilon]c - \[CurlyEpsilon]n)) +
07995 3*As2*k*Power(\[CurlyEpsilon]c1,
07996 2)*(2*ch*E0c*E0cn*\[CurlyEpsilon]c +
07997 d*(-(E0cn*fy) +
07998 E0c*(fy - E0cn*(\[CurlyEpsilon]c + \[CurlyEpsilon]n)))) +
07999 Sqrt(3)*Sqrt(k*
08000 Power(\[CurlyEpsilon]c1,
08001 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
08002 Power(d*
08003 E0c*(N0 +
08004 As1*E0c*(\[CurlyEpsilon]c - \[CurlyEpsilon]n)) +
08005 As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c +
08006 d*(-(E0cn*fy) +
08007 E0c*(fy -
08008 E0cn*(\[CurlyEpsilon]c + \
08009 \[CurlyEpsilon]n)))), 2) +
08010 2*E0c*(As1*d*E0c +
08011 As2*ch*
08012 E0cn)*(-(b*Power(d, 2)*E0c*fc*
08013 Power(\[CurlyEpsilon]c + \[CurlyEpsilon]n,
08014 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
08015 9*k)*\[CurlyEpsilon]c1 +
08016 4*(-1 + k)*\[CurlyEpsilon]n)) +
08017 6*k*\[CurlyEpsilon]c*
08018 Power(\[CurlyEpsilon]c1,
08019 2)*(-(As2*ch*E0c*E0cn*\[CurlyEpsilon]c) +
08020 d*(As2*E0cn*fy +
08021 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
08022 E0c*(-(As2*fy) - N0 +
08023 As2*E0cn*(\[CurlyEpsilon]c + \
08024 \[CurlyEpsilon]n))))))))/(6.*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
08025 Power(\[CurlyEpsilon]c1, 2))
08026
08027 \[CurlyEpsilon]cmsp4 = (3*mh6*\[CurlyEpsilon]ch3 + mh6*\[CurlyEpsilon]ch6 -
08028 4*mh36*(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6) +
08029 mh3*(\[CurlyEpsilon]ch3 +
08030 3*\[CurlyEpsilon]ch6) + (-\[CurlyEpsilon]ch3 + \
08031 \[CurlyEpsilon]ch6)*
08032 Sqrt(Power(mh3, 2) + Power(-4*mh36 + mh6, 2) -
08033 2*mh3*(4*mh36 + mh6 - 4*mp[i]) +
08034 8*(-2*mh36 + mh6)*mp[i]))/(4.*(mh3 - 2*mh36 + mh6))
08035
08036 \[CurlyEpsilon]s1msp4 = (3*d*E0c*k*
08037 Power(\[CurlyEpsilon]c1,
08038 2)*(N0 + As1*E0c*(\[CurlyEpsilon]cmsp4 - \[CurlyEpsilon]n)) +
08039 3*As2*k*Power(\[CurlyEpsilon]c1,
08040 2)*(2*ch*E0c*E0cn*\[CurlyEpsilon]cmsp4 +
08041 d*(-(E0cn*fy) +
08042 E0c*(fy -
08043 E0cn*(\[CurlyEpsilon]cmsp4 + \[CurlyEpsilon]n)))) +
08044 Sqrt(3)*Sqrt(k*
08045 Power(\[CurlyEpsilon]c1,
08046 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
08047 Power(d*
08048 E0c*(N0 +
08049 As1*E0c*(\[CurlyEpsilon]cmsp4 - \
08050 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cmsp4 +
08051 d*(-(E0cn*fy) +
08052 E0c*(fy -
08053 E0cn*(\[CurlyEpsilon]cmsp4 + \
08054 \[CurlyEpsilon]n)))), 2) +
08055 2*E0c*(As1*d*E0c +
08056 As2*ch*
08057 E0cn)*(-(b*Power(d, 2)*E0c*fc*
08058 Power(\[CurlyEpsilon]cmsp4 + \[CurlyEpsilon]n,
08059 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
08060 4*(-1 + k)*\[CurlyEpsilon]cmsp4 +
08061 4*(-1 + k)*\[CurlyEpsilon]n)) +
08062 6*k*Power(\[CurlyEpsilon]c1,
08063 2)*\[CurlyEpsilon]cmsp4*(-(As2*ch*E0c*
08064 E0cn*\[CurlyEpsilon]cmsp4) +
08065 d*(As2*E0cn*fy +
08066 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
08067 E0c*(-(As2*fy) - N0 +
08068 As2*E0cn*(\[CurlyEpsilon]cmsp4 + \
08069 \[CurlyEpsilon]n))))))))/(6.*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
08070 Power(\[CurlyEpsilon]c1, 2))
08071
08072 a14 = (4*mh36*(\[CurlyEpsilon]ch3 + \[CurlyEpsilon]ch6 -
08073 2*\[CurlyEpsilon]cmsp4) +
08074 mh3*(-\[CurlyEpsilon]ch3 - 3*\[CurlyEpsilon]ch6 +
08075 4*\[CurlyEpsilon]cmsp4) +
08076 mh6*(-3*\[CurlyEpsilon]ch3 - \[CurlyEpsilon]ch6 +
08077 4*\[CurlyEpsilon]cmsp4))/
08078 Power(\[CurlyEpsilon]ch3 - \[CurlyEpsilon]ch6, 2)
08079
08080 a24 = -(a14*\[CurlyEpsilon]cmsp4) + mp[i]
08081
08082 b14 = (3*As1*d*Power(E0c, 2)*k*Power(\[CurlyEpsilon]c1, 2) +
08083 3*As2*(2*ch*E0c*E0cn - d*E0c*E0cn)*k*
08084 Power(\[CurlyEpsilon]c1,
08085 2) + (Sqrt(3)*k*
08086 Power(\[CurlyEpsilon]c1,
08087 2)*(6*(As1*d*Power(E0c, 2) +
08088 As2*(2*ch*E0c*E0cn - d*E0c*E0cn))*k*
08089 Power(\[CurlyEpsilon]c1,
08090 2)*(d*E0c*(N0 +
08091 As1*E0c*(\[CurlyEpsilon]cmsp4 - \
08092 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cmsp4 +
08093 d*(-(E0cn*fy) +
08094 E0c*(fy -
08095 E0cn*(\[CurlyEpsilon]cmsp4 + \
08096 \[CurlyEpsilon]n))))) +
08097 2*E0c*(As1*d*E0c +
08098 As2*ch*E0cn)*(6*(-(As2*ch*E0c*E0cn) + As2*d*E0c*E0cn)*
08099 k*Power(\[CurlyEpsilon]c1,
08100 2)*\[CurlyEpsilon]cmsp4 -
08101 4*b*Power(d, 2)*E0c*fc*(-1 + k)*
08102 Power(\[CurlyEpsilon]cmsp4 + \[CurlyEpsilon]n, 2) -
08103 2*b*Power(d, 2)*E0c*
08104 fc*(\[CurlyEpsilon]cmsp4 + \[CurlyEpsilon]n)*((6 -
08105 9*k)*\[CurlyEpsilon]c1 +
08106 4*(-1 + k)*\[CurlyEpsilon]cmsp4 +
08107 4*(-1 + k)*\[CurlyEpsilon]n) +
08108 6*k*Power(\[CurlyEpsilon]c1,
08109 2)*(-(As2*ch*E0c*E0cn*\[CurlyEpsilon]cmsp4) +
08110 d*(As2*E0cn*fy +
08111 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
08112 E0c*(-(As2*fy) - N0 +
08113 As2*E0cn*(\[CurlyEpsilon]cmsp4 + \
08114 \[CurlyEpsilon]n)))))))/(2.*
08115 Sqrt(k*Power(\[CurlyEpsilon]c1,
08116 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
08117 Power(d*
08118 E0c*(N0 +
08119 As1*E0c*(\[CurlyEpsilon]cmsp4 - \
08120 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cmsp4 +
08121 d*(-(E0cn*fy) +
08122 E0c*(fy -
08123 E0cn*(\[CurlyEpsilon]cmsp4 + \
08124 \[CurlyEpsilon]n)))), 2) +
08125 2*E0c*(As1*d*E0c +
08126 As2*ch*
08127 E0cn)*(-(b*Power(d, 2)*E0c*fc*
08128 Power(\[CurlyEpsilon]cmsp4 + \
08129 \[CurlyEpsilon]n, 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
08130 4*(-1 + k)*\[CurlyEpsilon]cmsp4 +
08131 4*(-1 + k)*\[CurlyEpsilon]n)) +
08132 6*k*Power(\[CurlyEpsilon]c1,
08133 2)*\[CurlyEpsilon]cmsp4*(-(As2*ch*E0c*
08134 E0cn*\[CurlyEpsilon]cmsp4) +
08135 d*(As2*E0cn*fy +
08136 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
08137 E0c*(-(As2*fy) - N0 +
08138 As2*E0cn*(\[CurlyEpsilon]cmsp4 + \
08139 \[CurlyEpsilon]n)))))))))/(6.*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
08140 Power(\[CurlyEpsilon]c1, 2))
08141
08142 b24 = -(b14*\[CurlyEpsilon]cmsp4) + (3*d*E0c*k*
08143 Power(\[CurlyEpsilon]c1,
08144 2)*(N0 + As1*E0c*(\[CurlyEpsilon]cmsp4 - \[CurlyEpsilon]n)) +
08145 3*As2*k*Power(\[CurlyEpsilon]c1,
08146 2)*(2*ch*E0c*E0cn*\[CurlyEpsilon]cmsp4 +
08147 d*(-(E0cn*fy) +
08148 E0c*(fy -
08149 E0cn*(\[CurlyEpsilon]cmsp4 + \[CurlyEpsilon]n)))) \
08150 + Sqrt(3)*Sqrt(k*
08151 Power(\[CurlyEpsilon]c1,
08152 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
08153 Power(d*
08154 E0c*(N0 +
08155 As1*E0c*(\[CurlyEpsilon]cmsp4 - \
08156 \[CurlyEpsilon]n)) + As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cmsp4 +
08157 d*(-(E0cn*fy) +
08158 E0c*(fy -
08159 E0cn*(\[CurlyEpsilon]cmsp4 + \
08160 \[CurlyEpsilon]n)))), 2) +
08161 2*E0c*(As1*d*E0c +
08162 As2*ch*
08163 E0cn)*(-(b*Power(d, 2)*E0c*fc*
08164 Power(\[CurlyEpsilon]cmsp4 + \[CurlyEpsilon]n,
08165 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
08166 4*(-1 + k)*\[CurlyEpsilon]cmsp4 +
08167 4*(-1 + k)*\[CurlyEpsilon]n)) +
08168 6*k*Power(\[CurlyEpsilon]c1,
08169 2)*\[CurlyEpsilon]cmsp4*(-(As2*ch*E0c*
08170 E0cn*\[CurlyEpsilon]cmsp4) +
08171 d*(As2*E0cn*fy +
08172 As1*Power(E0c, 2)*\[CurlyEpsilon]n +
08173 E0c*(-(As2*fy) - N0 +
08174 As2*E0cn*(\[CurlyEpsilon]cmsp4 + \
08175 \[CurlyEpsilon]n))))))))/(6.*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
08176 Power(\[CurlyEpsilon]c1, 2))
08177
08178 msp5 = (mh1*(\[CurlyEpsilon]c - \[CurlyEpsilon]chrk1)*(2*\[CurlyEpsilon]c - \
08179 \[CurlyEpsilon]ch1 - \[CurlyEpsilon]chrk1) - (\[CurlyEpsilon]c - \
08180 \[CurlyEpsilon]ch1)*(4*mh1hrk1*(\[CurlyEpsilon]c - \[CurlyEpsilon]chrk1) +
08181 mhrk1*(-2*\[CurlyEpsilon]c + \[CurlyEpsilon]ch1 + \
08182 \[CurlyEpsilon]chrk1)))/Power(\[CurlyEpsilon]ch1 - \[CurlyEpsilon]chrk1, 2)
08183
08184 \[CurlyEpsilon]s15 = (6*d*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
08185 Power(\[CurlyEpsilon]c1, 2) +
08186 b*E0c*fc*
08187 Power(h,
08188 2)*(8*h*(-1 + k)*\[CurlyEpsilon]c -
08189 3*d*(4*(-1 + k)*\[CurlyEpsilon]c + (2 -
08190 3*k)*\[CurlyEpsilon]c1 +
08191 4*(-1 + k)*\[CurlyEpsilon]n)) -
08192 Sqrt(E0c*(E0c*
08193 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
08194 Power(\[CurlyEpsilon]c1, 2) +
08195 b*fc*Power(h,
08196 2)*(8*h*(-1 + k)*\[CurlyEpsilon]c -
08197 3*d*(4*(-1 + k)*\[CurlyEpsilon]c + (2 -
08198 3*k)*\[CurlyEpsilon]c1 +
08199 4*(-1 + k)*\[CurlyEpsilon]n)), 2) +
08200 16*b*fc*
08201 Power(h,
08202 3)*(-1 +
08203 k)*(b*E0c*fc*
08204 h*(-4*Power(h, 2)*(-1 + k)*
08205 Power(\[CurlyEpsilon]c, 2) -
08206 6*Power(d,
08207 2)*(\[CurlyEpsilon]c + \
08208 \[CurlyEpsilon]n)*(2*(-1 + k)*\[CurlyEpsilon]c + (2 -
08209 3*k)*\[CurlyEpsilon]c1 +
08210 2*(-1 + k)*\[CurlyEpsilon]n) +
08211 3*d*h*\[CurlyEpsilon]c*(4*(-1 +
08212 k)*\[CurlyEpsilon]c + (2 -
08213 3*k)*\[CurlyEpsilon]c1 +
08214 4*(-1 + k)*\[CurlyEpsilon]n)) +
08215 6*d*k*Power(\[CurlyEpsilon]c1,
08216 2)*(d*E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
08217 As2*(-(ch*E0c*E0cn*\[CurlyEpsilon]c) +
08218 d*(E0cn*fy +
08219 E0c*(-fy +
08220 E0cn*(\[CurlyEpsilon]c + \
08221 \[CurlyEpsilon]n)))))))))/(8.*b*E0c*fc*Power(h, 3)*(-1 + k))
08222
08223 \[CurlyEpsilon]cmsp5 = (3*mhrk1*\[CurlyEpsilon]ch1 +
08224 mhrk1*\[CurlyEpsilon]chrk1 -
08225 4*mh1hrk1*(\[CurlyEpsilon]ch1 + \[CurlyEpsilon]chrk1) +
08226 mh1*(\[CurlyEpsilon]ch1 +
08227 3*\[CurlyEpsilon]chrk1) + (-\[CurlyEpsilon]ch1 + \
08228 \[CurlyEpsilon]chrk1)*
08229 Sqrt(Power(mh1, 2) + Power(-4*mh1hrk1 + mhrk1, 2) -
08230 2*mh1*(4*mh1hrk1 + mhrk1 - 4*mp[i]) +
08231 8*(-2*mh1hrk1 + mhrk1)*mp[i]))/(4.*(mh1 - 2*mh1hrk1 + mhrk1))
08232
08233 \[CurlyEpsilon]s1msp5 = (6*d*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
08234 Power(\[CurlyEpsilon]c1, 2) +
08235 b*E0c*fc*
08236 Power(h,
08237 2)*(8*h*(-1 + k)*\[CurlyEpsilon]cmsp5 -
08238 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
08239 4*(-1 + k)*\[CurlyEpsilon]cmsp5 +
08240 4*(-1 + k)*\[CurlyEpsilon]n)) -
08241 Sqrt(E0c*(E0c*
08242 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
08243 Power(\[CurlyEpsilon]c1, 2) +
08244 b*fc*Power(h,
08245 2)*(8*h*(-1 + k)*\[CurlyEpsilon]cmsp5 -
08246 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
08247 4*(-1 + k)*\[CurlyEpsilon]cmsp5 +
08248 4*(-1 + k)*\[CurlyEpsilon]n)), 2) +
08249 16*b*fc*
08250 Power(h,
08251 3)*(-1 +
08252 k)*(b*E0c*fc*
08253 h*(-4*Power(h, 2)*(-1 + k)*
08254 Power(\[CurlyEpsilon]cmsp5, 2) -
08255 6*Power(d,
08256 2)*(\[CurlyEpsilon]cmsp5 + \
08257 \[CurlyEpsilon]n)*((2 - 3*k)*\[CurlyEpsilon]c1 +
08258 2*(-1 + k)*\[CurlyEpsilon]cmsp5 +
08259 2*(-1 + k)*\[CurlyEpsilon]n) +
08260 3*d*h*\[CurlyEpsilon]cmsp5*((2 -
08261 3*k)*\[CurlyEpsilon]c1 +
08262 4*(-1 + k)*\[CurlyEpsilon]cmsp5 +
08263 4*(-1 + k)*\[CurlyEpsilon]n)) +
08264 6*d*k*Power(\[CurlyEpsilon]c1,
08265 2)*(d*E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
08266 As2*(-(ch*E0c*E0cn*\[CurlyEpsilon]cmsp5) +
08267 d*(E0cn*fy +
08268 E0c*(-fy +
08269 E0cn*(\[CurlyEpsilon]cmsp5 + \
08270 \[CurlyEpsilon]n)))))))))/(8.*b*E0c*fc*Power(h, 3)*(-1 + k))
08271
08272 a15 = (4*mh1hrk1*(\[CurlyEpsilon]ch1 + \[CurlyEpsilon]chrk1 -
08273 2*\[CurlyEpsilon]cmsp5) +
08274 mh1*(-\[CurlyEpsilon]ch1 - 3*\[CurlyEpsilon]chrk1 +
08275 4*\[CurlyEpsilon]cmsp5) +
08276 mhrk1*(-3*\[CurlyEpsilon]ch1 - \[CurlyEpsilon]chrk1 +
08277 4*\[CurlyEpsilon]cmsp5))/
08278 Power(\[CurlyEpsilon]ch1 - \[CurlyEpsilon]chrk1, 2)
08279
08280 a25 = -(a15*\[CurlyEpsilon]cmsp5) + mp[i]
08281
08282 b15 = (b*E0c*fc*
08283 Power(h,
08284 2)*(-12*d*(-1 + k) +
08285 8*h*(-1 + k)) - (E0c*(2*b*E0c*fc*
08286 Power(h,
08287 2)*(-12*d*(-1 + k) +
08288 8*h*(-1 + k))*(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
08289 Power(\[CurlyEpsilon]c1, 2) +
08290 b*fc*Power(h,
08291 2)*(8*h*(-1 + k)*\[CurlyEpsilon]cmsp5 -
08292 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
08293 4*(-1 + k)*\[CurlyEpsilon]cmsp5 +
08294 4*(-1 + k)*\[CurlyEpsilon]n))) +
08295 16*b*fc*
08296 Power(h,
08297 3)*(-1 +
08298 k)*(6*As2*d*(-(ch*E0c*E0cn) + d*E0c*E0cn)*k*
08299 Power(\[CurlyEpsilon]c1, 2) +
08300 b*E0c*fc*
08301 h*(12*d*h*(-1 + k)*\[CurlyEpsilon]cmsp5 -
08302 8*Power(h, 2)*(-1 + k)*\[CurlyEpsilon]cmsp5 -
08303 12*Power(d,
08304 2)*(-1 +
08305 k)*(\[CurlyEpsilon]cmsp5 + \
08306 \[CurlyEpsilon]n) - 6*Power(d, 2)*((2 - 3*k)*\[CurlyEpsilon]c1 +
08307 2*(-1 + k)*\[CurlyEpsilon]cmsp5 +
08308 2*(-1 + k)*\[CurlyEpsilon]n) +
08309 3*d*h*((2 - 3*k)*\[CurlyEpsilon]c1 +
08310 4*(-1 + k)*\[CurlyEpsilon]cmsp5 +
08311 4*(-1 + k)*\[CurlyEpsilon]n)))))/(2.*
08312 Sqrt(E0c*(E0c*
08313 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
08314 Power(\[CurlyEpsilon]c1, 2) +
08315 b*fc*Power(h,
08316 2)*(8*h*(-1 + k)*\[CurlyEpsilon]cmsp5 -
08317 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
08318 4*(-1 + k)*\[CurlyEpsilon]cmsp5 +
08319 4*(-1 + k)*\[CurlyEpsilon]n)), 2) +
08320 16*b*fc*
08321 Power(h,
08322 3)*(-1 +
08323 k)*(b*E0c*fc*
08324 h*(-4*Power(h, 2)*(-1 + k)*
08325 Power(\[CurlyEpsilon]cmsp5, 2) -
08326 6*Power(d,
08327 2)*(\[CurlyEpsilon]cmsp5 + \
08328 \[CurlyEpsilon]n)*((2 - 3*k)*\[CurlyEpsilon]c1 +
08329 2*(-1 + k)*\[CurlyEpsilon]cmsp5 +
08330 2*(-1 + k)*\[CurlyEpsilon]n) +
08331 3*d*h*\[CurlyEpsilon]cmsp5*((2 -
08332 3*k)*\[CurlyEpsilon]c1 +
08333 4*(-1 + k)*\[CurlyEpsilon]cmsp5 +
08334 4*(-1 + k)*\[CurlyEpsilon]n)) +
08335 6*d*k*Power(\[CurlyEpsilon]c1,
08336 2)*(d*E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
08337 As2*(-(ch*E0c*E0cn*\[CurlyEpsilon]cmsp5) +
08338 d*(E0cn*fy +
08339 E0c*(-fy +
08340 E0cn*(\[CurlyEpsilon]cmsp5 + \
08341 \[CurlyEpsilon]n))))))))))/(8.*b*E0c*fc*Power(h, 3)*(-1 + k))
08342
08343 b25 = -(b15*\[CurlyEpsilon]cmsp5) + (6*d*E0c*(As1*d*E0c + As2*ch*E0cn)*k*
08344 Power(\[CurlyEpsilon]c1, 2) +
08345 b*E0c*fc*
08346 Power(h,
08347 2)*(8*h*(-1 + k)*\[CurlyEpsilon]cmsp5 -
08348 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
08349 4*(-1 + k)*\[CurlyEpsilon]cmsp5 +
08350 4*(-1 + k)*\[CurlyEpsilon]n)) -
08351 Sqrt(E0c*(E0c*
08352 Power(6*d*(As1*d*E0c + As2*ch*E0cn)*k*
08353 Power(\[CurlyEpsilon]c1, 2) +
08354 b*fc*Power(h,
08355 2)*(8*h*(-1 + k)*\[CurlyEpsilon]cmsp5 -
08356 3*d*((2 - 3*k)*\[CurlyEpsilon]c1 +
08357 4*(-1 + k)*\[CurlyEpsilon]cmsp5 +
08358 4*(-1 + k)*\[CurlyEpsilon]n)), 2) +
08359 16*b*fc*
08360 Power(h,
08361 3)*(-1 +
08362 k)*(b*E0c*fc*
08363 h*(-4*Power(h, 2)*(-1 + k)*
08364 Power(\[CurlyEpsilon]cmsp5, 2) -
08365 6*Power(d,
08366 2)*(\[CurlyEpsilon]cmsp5 + \
08367 \[CurlyEpsilon]n)*((2 - 3*k)*\[CurlyEpsilon]c1 +
08368 2*(-1 + k)*\[CurlyEpsilon]cmsp5 +
08369 2*(-1 + k)*\[CurlyEpsilon]n) +
08370 3*d*h*\[CurlyEpsilon]cmsp5*((2 -
08371 3*k)*\[CurlyEpsilon]c1 +
08372 4*(-1 + k)*\[CurlyEpsilon]cmsp5 +
08373 4*(-1 + k)*\[CurlyEpsilon]n)) +
08374 6*d*k*Power(\[CurlyEpsilon]c1,
08375 2)*(d*E0c*(-N0 + As1*E0c*\[CurlyEpsilon]n) +
08376 As2*(-(ch*E0c*E0cn*\[CurlyEpsilon]cmsp5) +
08377 d*(E0cn*fy +
08378 E0c*(-fy +
08379 E0cn*(\[CurlyEpsilon]cmsp5 + \
08380 \[CurlyEpsilon]n)))))))))/(8.*b*E0c*fc*Power(h, 3)*(-1 + k))
08381
08382 msp6 = (mh7*(\[CurlyEpsilon]c - \[CurlyEpsilon]ch8)*(2*\[CurlyEpsilon]c - \
08383 \[CurlyEpsilon]ch7 - \[CurlyEpsilon]ch8) - (\[CurlyEpsilon]c - \
08384 \[CurlyEpsilon]ch7)*(4*mh78*(\[CurlyEpsilon]c - \[CurlyEpsilon]ch8) +
08385 mh8*(-2*\[CurlyEpsilon]c + \[CurlyEpsilon]ch7 + \
08386 \[CurlyEpsilon]ch8)))/Power(\[CurlyEpsilon]ch7 - \[CurlyEpsilon]ch8, 2)
08387
08388 \[CurlyEpsilon]s16 = (3*As1*d*k*
08389 Power(\[CurlyEpsilon]c1,
08390 2)*(E0cn*fy -
08391 E0c*(fy + E0cn*(-\[CurlyEpsilon]c + \[CurlyEpsilon]n))) +
08392 3*k*Power(\[CurlyEpsilon]c1,
08393 2)*(d*E0c*N0 +
08394 As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]c +
08395 d*(-(E0cn*fy) +
08396 E0c*(fy -
08397 E0cn*(\[CurlyEpsilon]c + \
08398 \[CurlyEpsilon]n))))) +
08399 Sqrt(3)*Sqrt(k*
08400 Power(\[CurlyEpsilon]c1,
08401 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
08402 Power(-(d*E0c*N0) +
08403 As1*d*(-(E0cn*fy) +
08404 E0c*(fy - E0cn*\[CurlyEpsilon]c +
08405 E0cn*\[CurlyEpsilon]n)) +
08406 As2*(-2*ch*E0c*E0cn*\[CurlyEpsilon]c +
08407 d*(E0cn*fy +
08408 E0c*(-fy +
08409 E0cn*(\[CurlyEpsilon]c + \
08410 \[CurlyEpsilon]n)))), 2) -
08411 2*(As2*ch + As1*d)*E0c*
08412 E0cn*(b*Power(d, 2)*E0c*fc*
08413 Power(\[CurlyEpsilon]c + \[CurlyEpsilon]n,
08414 2)*(4*(-1 + k)*\[CurlyEpsilon]c + (6 -
08415 9*k)*\[CurlyEpsilon]c1 +
08416 4*(-1 + k)*\[CurlyEpsilon]n) +
08417 6*k*\[CurlyEpsilon]c*
08418 Power(\[CurlyEpsilon]c1,
08419 2)*(d*E0c*N0 +
08420 As1*d*(E0cn*fy -
08421 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
08422 As2*(ch*E0c*E0cn*\[CurlyEpsilon]c +
08423 d*(-(E0cn*fy) +
08424 E0c*(fy -
08425 E0cn*(\[CurlyEpsilon]c + \
08426 \[CurlyEpsilon]n)))))))))/(6.*(As2*ch + As1*d)*E0c*E0cn*k*
08427 Power(\[CurlyEpsilon]c1, 2))
08428
08429 \[CurlyEpsilon]cmsp6 = (3*mh8*\[CurlyEpsilon]ch7 + mh8*\[CurlyEpsilon]ch8 -
08430 4*mh78*(\[CurlyEpsilon]ch7 + \[CurlyEpsilon]ch8) +
08431 mh7*(\[CurlyEpsilon]ch7 +
08432 3*\[CurlyEpsilon]ch8) + (-\[CurlyEpsilon]ch7 + \
08433 \[CurlyEpsilon]ch8)*
08434 Sqrt(Power(mh7, 2) + Power(-4*mh78 + mh8, 2) -
08435 2*mh7*(4*mh78 + mh8 - 4*mp[i]) +
08436 8*(-2*mh78 + mh8)*mp[i]))/(4.*(mh7 - 2*mh78 + mh8))
08437
08438 \[CurlyEpsilon]s1msp6 = (3*As1*d*k*
08439 Power(\[CurlyEpsilon]c1,
08440 2)*(E0cn*fy -
08441 E0c*(fy + E0cn*(-\[CurlyEpsilon]cmsp6 + \[CurlyEpsilon]n))) +
08442 3*k*Power(\[CurlyEpsilon]c1,
08443 2)*(d*E0c*N0 +
08444 As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cmsp6 +
08445 d*(-(E0cn*fy) +
08446 E0c*(fy -
08447 E0cn*(\[CurlyEpsilon]cmsp6 + \
08448 \[CurlyEpsilon]n))))) +
08449 Sqrt(3)*Sqrt(k*
08450 Power(\[CurlyEpsilon]c1,
08451 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
08452 Power(-(d*E0c*N0) +
08453 As1*d*(-(E0cn*fy) +
08454 E0c*(fy - E0cn*\[CurlyEpsilon]cmsp6 +
08455 E0cn*\[CurlyEpsilon]n)) +
08456 As2*(-2*ch*E0c*E0cn*\[CurlyEpsilon]cmsp6 +
08457 d*(E0cn*fy +
08458 E0c*(-fy +
08459 E0cn*(\[CurlyEpsilon]cmsp6 + \
08460 \[CurlyEpsilon]n)))), 2) -
08461 2*(As2*ch + As1*d)*E0c*
08462 E0cn*(b*Power(d, 2)*E0c*fc*
08463 Power(\[CurlyEpsilon]cmsp6 + \[CurlyEpsilon]n,
08464 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
08465 4*(-1 + k)*\[CurlyEpsilon]cmsp6 +
08466 4*(-1 + k)*\[CurlyEpsilon]n) +
08467 6*k*Power(\[CurlyEpsilon]c1,
08468 2)*\[CurlyEpsilon]cmsp6*(d*E0c*N0 +
08469 As1*d*(E0cn*fy -
08470 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
08471 As2*(ch*E0c*E0cn*\[CurlyEpsilon]cmsp6 +
08472 d*(-(E0cn*fy) +
08473 E0c*(fy -
08474 E0cn*(\[CurlyEpsilon]cmsp6 + \
08475 \[CurlyEpsilon]n)))))))))/(6.*(As2*ch + As1*d)*E0c*E0cn*k*
08476 Power(\[CurlyEpsilon]c1, 2))
08477
08478 a16 = (4*mh78*(\[CurlyEpsilon]ch7 + \[CurlyEpsilon]ch8 -
08479 2*\[CurlyEpsilon]cmsp6) +
08480 mh7*(-\[CurlyEpsilon]ch7 - 3*\[CurlyEpsilon]ch8 +
08481 4*\[CurlyEpsilon]cmsp6) +
08482 mh8*(-3*\[CurlyEpsilon]ch7 - \[CurlyEpsilon]ch8 +
08483 4*\[CurlyEpsilon]cmsp6))/
08484 Power(\[CurlyEpsilon]ch7 - \[CurlyEpsilon]ch8, 2)
08485
08486 a26 = -(a16*\[CurlyEpsilon]cmsp6) + mp[i]
08487
08488 b16 = (3*As1*d*E0c*E0cn*k*Power(\[CurlyEpsilon]c1, 2) +
08489 3*As2*(2*ch*E0c*E0cn - d*E0c*E0cn)*k*
08490 Power(\[CurlyEpsilon]c1,
08491 2) + (Sqrt(3)*k*
08492 Power(\[CurlyEpsilon]c1,
08493 2)*(6*(-(As1*d*E0c*E0cn) + As2*(-2*ch*E0c*E0cn + d*E0c*E0cn))*
08494 k*Power(\[CurlyEpsilon]c1,
08495 2)*(-(d*E0c*N0) +
08496 As1*d*(-(E0cn*fy) +
08497 E0c*(fy - E0cn*\[CurlyEpsilon]cmsp6 +
08498 E0cn*\[CurlyEpsilon]n)) +
08499 As2*(-2*ch*E0c*E0cn*\[CurlyEpsilon]cmsp6 +
08500 d*(E0cn*fy +
08501 E0c*(-fy +
08502 E0cn*(\[CurlyEpsilon]cmsp6 + \
08503 \[CurlyEpsilon]n))))) -
08504 2*(As2*ch + As1*d)*E0c*
08505 E0cn*(6*As2*(ch*E0c*E0cn - d*E0c*E0cn)*k*
08506 Power(\[CurlyEpsilon]c1, 2)*\[CurlyEpsilon]cmsp6 +
08507 4*b*Power(d, 2)*E0c*fc*(-1 + k)*
08508 Power(\[CurlyEpsilon]cmsp6 + \[CurlyEpsilon]n, 2) +
08509 2*b*Power(d, 2)*E0c*
08510 fc*(\[CurlyEpsilon]cmsp6 + \[CurlyEpsilon]n)*((6 -
08511 9*k)*\[CurlyEpsilon]c1 +
08512 4*(-1 + k)*\[CurlyEpsilon]cmsp6 +
08513 4*(-1 + k)*\[CurlyEpsilon]n) +
08514 6*k*Power(\[CurlyEpsilon]c1,
08515 2)*(d*E0c*N0 +
08516 As1*d*(E0cn*fy -
08517 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
08518 As2*(ch*E0c*E0cn*\[CurlyEpsilon]cmsp6 +
08519 d*(-(E0cn*fy) +
08520 E0c*(fy -
08521 E0cn*(\[CurlyEpsilon]cmsp6 + \
08522 \[CurlyEpsilon]n))))))))/(2.*
08523 Sqrt(k*Power(\[CurlyEpsilon]c1,
08524 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
08525 Power(-(d*E0c*N0) +
08526 As1*d*(-(E0cn*fy) +
08527 E0c*(fy - E0cn*\[CurlyEpsilon]cmsp6 +
08528 E0cn*\[CurlyEpsilon]n)) +
08529 As2*(-2*ch*E0c*E0cn*\[CurlyEpsilon]cmsp6 +
08530 d*(E0cn*fy +
08531 E0c*(-fy +
08532 E0cn*(\[CurlyEpsilon]cmsp6 + \
08533 \[CurlyEpsilon]n)))), 2) -
08534 2*(As2*ch + As1*d)*E0c*
08535 E0cn*(b*Power(d, 2)*E0c*fc*
08536 Power(\[CurlyEpsilon]cmsp6 + \[CurlyEpsilon]n,
08537 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
08538 4*(-1 + k)*\[CurlyEpsilon]cmsp6 +
08539 4*(-1 + k)*\[CurlyEpsilon]n) +
08540 6*k*Power(\[CurlyEpsilon]c1,
08541 2)*\[CurlyEpsilon]cmsp6*(d*E0c*N0 +
08542 As1*d*(E0cn*fy -
08543 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
08544 As2*(ch*E0c*E0cn*\[CurlyEpsilon]cmsp6 +
08545 d*(-(E0cn*fy) +
08546 E0c*(fy -
08547 E0cn*(\[CurlyEpsilon]cmsp6 + \
08548 \[CurlyEpsilon]n))))))))))/(6.*(As2*ch + As1*d)*E0c*E0cn*k*
08549 Power(\[CurlyEpsilon]c1, 2))
08550
08551 b26 = -(b16*\[CurlyEpsilon]cmsp6) + (3*As1*d*k*
08552 Power(\[CurlyEpsilon]c1,
08553 2)*(E0cn*fy -
08554 E0c*(fy + E0cn*(-\[CurlyEpsilon]cmsp6 + \[CurlyEpsilon]n))) +
08555 3*k*Power(\[CurlyEpsilon]c1,
08556 2)*(d*E0c*N0 +
08557 As2*(2*ch*E0c*E0cn*\[CurlyEpsilon]cmsp6 +
08558 d*(-(E0cn*fy) +
08559 E0c*(fy -
08560 E0cn*(\[CurlyEpsilon]cmsp6 + \
08561 \[CurlyEpsilon]n))))) +
08562 Sqrt(3)*Sqrt(k*
08563 Power(\[CurlyEpsilon]c1,
08564 2)*(3*k*Power(\[CurlyEpsilon]c1, 2)*
08565 Power(-(d*E0c*N0) +
08566 As1*d*(-(E0cn*fy) +
08567 E0c*(fy - E0cn*\[CurlyEpsilon]cmsp6 +
08568 E0cn*\[CurlyEpsilon]n)) +
08569 As2*(-2*ch*E0c*E0cn*\[CurlyEpsilon]cmsp6 +
08570 d*(E0cn*fy +
08571 E0c*(-fy +
08572 E0cn*(\[CurlyEpsilon]cmsp6 + \
08573 \[CurlyEpsilon]n)))), 2) -
08574 2*(As2*ch + As1*d)*E0c*
08575 E0cn*(b*Power(d, 2)*E0c*fc*
08576 Power(\[CurlyEpsilon]cmsp6 + \[CurlyEpsilon]n,
08577 2)*((6 - 9*k)*\[CurlyEpsilon]c1 +
08578 4*(-1 + k)*\[CurlyEpsilon]cmsp6 +
08579 4*(-1 + k)*\[CurlyEpsilon]n) +
08580 6*k*Power(\[CurlyEpsilon]c1,
08581 2)*\[CurlyEpsilon]cmsp6*(d*E0c*N0 +
08582 As1*d*(E0cn*fy -
08583 E0c*(fy + E0cn*\[CurlyEpsilon]n)) +
08584 As2*(ch*E0c*E0cn*\[CurlyEpsilon]cmsp6 +
08585 d*(-(E0cn*fy) +
08586 E0c*(fy -
08587 E0cn*(\[CurlyEpsilon]cmsp6 + \
08588 \[CurlyEpsilon]n)))))))))/(6.*(As2*ch + As1*d)*E0c*E0cn*k*
08589 Power(\[CurlyEpsilon]c1, 2))
08590
08591 msp = List(If(mp[1] <= mht1, msp2,
08592 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, msp5,
08593 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, msp4,
08594 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, msp1,
08595 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, msp3,
08596 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
08597 msp4, If(mp[i] >
08598 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08599 mp[i] <= mht4, msp6,
08600 If(mp[i] > mmax, msp = novy, 1)))))))),
08601 If(mp[2] <= mht1, msp2,
08602 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, msp5,
08603 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, msp4,
08604 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, msp1,
08605 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, msp3,
08606 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
08607 msp4, If(mp[i] >
08608 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08609 mp[i] <= mht4, msp6,
08610 If(mp[i] > mmax, msp = novy, 1)))))))),
08611 If(mp[3] <= mht1, msp2,
08612 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, msp5,
08613 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, msp4,
08614 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, msp1,
08615 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, msp3,
08616 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
08617 msp4, If(mp[i] >
08618 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08619 mp[i] <= mht4, msp6,
08620 If(mp[i] > mmax, msp = novy, 1)))))))),
08621 If(mp[4] <= mht1, msp2,
08622 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, msp5,
08623 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, msp4,
08624 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, msp1,
08625 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, msp3,
08626 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
08627 msp4, If(mp[i] >
08628 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08629 mp[i] <= mht4, msp6,
08630 If(mp[i] > mmax, msp = novy, 1)))))))))
08631
08632 mr = List(If(mp[1] <= mht1, 0,
08633 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, mh1,
08634 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, mh3,
08635 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, mhr1,
08636 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, mh2,
08637 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
08638 mh3, If(mp[i] >
08639 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08640 mp[i] <= mht4, mh7,
08641 If(mp[i] > mmax, novy, 1)))))))),
08642 If(mp[2] <= mht1, 0,
08643 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, mh1,
08644 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, mh3,
08645 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, mhr1,
08646 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, mh2,
08647 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
08648 mh3, If(mp[i] >
08649 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08650 mp[i] <= mht4, mh7,
08651 If(mp[i] > mmax, novy, 1)))))))),
08652 If(mp[3] <= mht1, 0,
08653 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, mh1,
08654 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, mh3,
08655 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, mhr1,
08656 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, mh2,
08657 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
08658 mh3, If(mp[i] >
08659 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08660 mp[i] <= mht4, mh7,
08661 If(mp[i] > mmax, novy, 1)))))))),
08662 If(mp[4] <= mht1, 0,
08663 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, mh1,
08664 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, mh3,
08665 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, mhr1,
08666 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, mh2,
08667 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
08668 mh3, If(mp[i] >
08669 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08670 mp[i] <= mht4, mh7,
08671 If(mp[i] > mmax, novy, 1)))))))))
08672
08673 \[CurlyEpsilon]cr =
08674 List(If(mp[1] <= mht1, 0,
08675 If(mp[i] > mht1 && mht1 == mhr4 &&
08676 mp[i] <= mht2, \[CurlyEpsilon]ch1,
08677 If(mp[i] > mht2 && mht2 == mhr4b &&
08678 mp[i] <= mht3, \[CurlyEpsilon]ch3,
08679 If(mp[i] > mht1 && mht1 == mhr1 &&
08680 mp[i] <= mht2, \[CurlyEpsilon]chr1,
08681 If(mp[i] > mht2 && mht2 == mhr2 &&
08682 mp[i] <= mht3, \[CurlyEpsilon]ch2,
08683 If(mp[i] > mht2 && mht2 == mhr3 &&
08684 mp[i] <= mht3, \[CurlyEpsilon]ch3,
08685 If(mp[i] >
08686 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08687 mp[i] <= mht4, \[CurlyEpsilon]ch7,
08688 If(mp[i] > mmax, novy, 1)))))))),
08689 If(mp[2] <= mht1, 0,
08690 If(mp[i] > mht1 && mht1 == mhr4 &&
08691 mp[i] <= mht2, \[CurlyEpsilon]ch1,
08692 If(mp[i] > mht2 && mht2 == mhr4b &&
08693 mp[i] <= mht3, \[CurlyEpsilon]ch3,
08694 If(mp[i] > mht1 && mht1 == mhr1 &&
08695 mp[i] <= mht2, \[CurlyEpsilon]chr1,
08696 If(mp[i] > mht2 && mht2 == mhr2 &&
08697 mp[i] <= mht3, \[CurlyEpsilon]ch2,
08698 If(mp[i] > mht2 && mht2 == mhr3 &&
08699 mp[i] <= mht3, \[CurlyEpsilon]ch3,
08700 If(mp[i] >
08701 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08702 mp[i] <= mht4, \[CurlyEpsilon]ch7,
08703 If(mp[i] > mmax, novy, 1)))))))),
08704 If(mp[3] <= mht1, 0,
08705 If(mp[i] > mht1 && mht1 == mhr4 &&
08706 mp[i] <= mht2, \[CurlyEpsilon]ch1,
08707 If(mp[i] > mht2 && mht2 == mhr4b &&
08708 mp[i] <= mht3, \[CurlyEpsilon]ch3,
08709 If(mp[i] > mht1 && mht1 == mhr1 &&
08710 mp[i] <= mht2, \[CurlyEpsilon]chr1,
08711 If(mp[i] > mht2 && mht2 == mhr2 &&
08712 mp[i] <= mht3, \[CurlyEpsilon]ch2,
08713 If(mp[i] > mht2 && mht2 == mhr3 &&
08714 mp[i] <= mht3, \[CurlyEpsilon]ch3,
08715 If(mp[i] >
08716 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08717 mp[i] <= mht4, \[CurlyEpsilon]ch7,
08718 If(mp[i] > mmax, novy, 1)))))))),
08719 If(mp[4] <= mht1, 0,
08720 If(mp[i] > mht1 && mht1 == mhr4 &&
08721 mp[i] <= mht2, \[CurlyEpsilon]ch1,
08722 If(mp[i] > mht2 && mht2 == mhr4b &&
08723 mp[i] <= mht3, \[CurlyEpsilon]ch3,
08724 If(mp[i] > mht1 && mht1 == mhr1 &&
08725 mp[i] <= mht2, \[CurlyEpsilon]chr1,
08726 If(mp[i] > mht2 && mht2 == mhr2 &&
08727 mp[i] <= mht3, \[CurlyEpsilon]ch2,
08728 If(mp[i] > mht2 && mht2 == mhr3 &&
08729 mp[i] <= mht3, \[CurlyEpsilon]ch3,
08730 If(mp[i] >
08731 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08732 mp[i] <= mht4, \[CurlyEpsilon]ch7,
08733 If(mp[i] > mmax, novy, 1)))))))))
08734
08735 \[CurlyEpsilon]s1spf =
08736 List(If(mp[1] <= mht1, \[CurlyEpsilon]s12,
08737 If(mp[i] > mht1 && mht1 == mhr4 &&
08738 mp[i] <= mht2, \[CurlyEpsilon]s15,
08739 If(mp[i] > mht2 && mht2 == mhr4b &&
08740 mp[i] <= mht3, \[CurlyEpsilon]s14,
08741 If(mp[i] > mht1 && mht1 == mhr1 &&
08742 mp[i] <= mht2, \[CurlyEpsilon]s11,
08743 If(mp[i] > mht2 && mht2 == mhr2 &&
08744 mp[i] <= mht3, \[CurlyEpsilon]s13,
08745 If(mp[i] > mht2 && mht2 == mhr3 &&
08746 mp[i] <= mht3, \[CurlyEpsilon]s14,
08747 If(mp[i] >
08748 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08749 mp[i] <= mht4, \[CurlyEpsilon]s16,
08750 If(mp[i] > mmax, novy, 1)))))))),
08751 If(mp[2] <= mht1, \[CurlyEpsilon]s12,
08752 If(mp[i] > mht1 && mht1 == mhr4 &&
08753 mp[i] <= mht2, \[CurlyEpsilon]s15,
08754 If(mp[i] > mht2 && mht2 == mhr4b &&
08755 mp[i] <= mht3, \[CurlyEpsilon]s14,
08756 If(mp[i] > mht1 && mht1 == mhr1 &&
08757 mp[i] <= mht2, \[CurlyEpsilon]s11,
08758 If(mp[i] > mht2 && mht2 == mhr2 &&
08759 mp[i] <= mht3, \[CurlyEpsilon]s13,
08760 If(mp[i] > mht2 && mht2 == mhr3 &&
08761 mp[i] <= mht3, \[CurlyEpsilon]s14,
08762 If(mp[i] >
08763 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08764 mp[i] <= mht4, \[CurlyEpsilon]s16,
08765 If(mp[i] > mmax, novy, 1)))))))),
08766 If(mp[3] <= mht1, \[CurlyEpsilon]s12,
08767 If(mp[i] > mht1 && mht1 == mhr4 &&
08768 mp[i] <= mht2, \[CurlyEpsilon]s15,
08769 If(mp[i] > mht2 && mht2 == mhr4b &&
08770 mp[i] <= mht3, \[CurlyEpsilon]s14,
08771 If(mp[i] > mht1 && mht1 == mhr1 &&
08772 mp[i] <= mht2, \[CurlyEpsilon]s11,
08773 If(mp[i] > mht2 && mht2 == mhr2 &&
08774 mp[i] <= mht3, \[CurlyEpsilon]s13,
08775 If(mp[i] > mht2 && mht2 == mhr3 &&
08776 mp[i] <= mht3, \[CurlyEpsilon]s14,
08777 If(mp[i] >
08778 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08779 mp[i] <= mht4, \[CurlyEpsilon]s16,
08780 If(mp[i] > mmax, novy, 1)))))))),
08781 If(mp[4] <= mht1, \[CurlyEpsilon]s12,
08782 If(mp[i] > mht1 && mht1 == mhr4 &&
08783 mp[i] <= mht2, \[CurlyEpsilon]s15,
08784 If(mp[i] > mht2 && mht2 == mhr4b &&
08785 mp[i] <= mht3, \[CurlyEpsilon]s14,
08786 If(mp[i] > mht1 && mht1 == mhr1 &&
08787 mp[i] <= mht2, \[CurlyEpsilon]s11,
08788 If(mp[i] > mht2 && mht2 == mhr2 &&
08789 mp[i] <= mht3, \[CurlyEpsilon]s13,
08790 If(mp[i] > mht2 && mht2 == mhr3 &&
08791 mp[i] <= mht3, \[CurlyEpsilon]s14,
08792 If(mp[i] >
08793 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08794 mp[i] <= mht4, \[CurlyEpsilon]s16,
08795 If(mp[i] > mmax, novy, 1)))))))))
08796
08797 \[CurlyEpsilon]s1r =
08798 List(\[CurlyEpsilon]s1spf[1], \[CurlyEpsilon]s1spf[2], \[CurlyEpsilon]s1spf[
08799 3], \[CurlyEpsilon]s1spf[4])
08800
08801 \[CurlyEpsilon]csp =
08802 List(If(mp[1] <= mht1, \[CurlyEpsilon]cmsp2,
08803 If(mp[i] > mht1 && mht1 == mhr4 &&
08804 mp[i] <= mht2, \[CurlyEpsilon]cmsp5,
08805 If(mp[i] > mht2 && mht2 == mhr4b &&
08806 mp[i] <= mht3, \[CurlyEpsilon]cmsp4,
08807 If(mp[i] > mht1 && mht1 == mhr1 &&
08808 mp[i] <= mht2, \[CurlyEpsilon]cmsp1,
08809 If(mp[i] > mht2 && mht2 == mhr2 &&
08810 mp[i] <= mht3, \[CurlyEpsilon]cmsp3,
08811 If(mp[i] > mht2 && mht2 == mhr3 &&
08812 mp[i] <= mht3, \[CurlyEpsilon]cmsp4,
08813 If(mp[i] >
08814 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08815 mp[i] <= mht4, \[CurlyEpsilon]cmsp6,
08816 If(mp[i] > mmax, novy, 1)))))))),
08817 If(mp[2] <= mht1, \[CurlyEpsilon]cmsp2,
08818 If(mp[i] > mht1 && mht1 == mhr4 &&
08819 mp[i] <= mht2, \[CurlyEpsilon]cmsp5,
08820 If(mp[i] > mht2 && mht2 == mhr4b &&
08821 mp[i] <= mht3, \[CurlyEpsilon]cmsp4,
08822 If(mp[i] > mht1 && mht1 == mhr1 &&
08823 mp[i] <= mht2, \[CurlyEpsilon]cmsp1,
08824 If(mp[i] > mht2 && mht2 == mhr2 &&
08825 mp[i] <= mht3, \[CurlyEpsilon]cmsp3,
08826 If(mp[i] > mht2 && mht2 == mhr3 &&
08827 mp[i] <= mht3, \[CurlyEpsilon]cmsp4,
08828 If(mp[i] >
08829 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08830 mp[i] <= mht4, \[CurlyEpsilon]cmsp6,
08831 If(mp[i] > mmax, novy, 1)))))))),
08832 If(mp[3] <= mht1, \[CurlyEpsilon]cmsp2,
08833 If(mp[i] > mht1 && mht1 == mhr4 &&
08834 mp[i] <= mht2, \[CurlyEpsilon]cmsp5,
08835 If(mp[i] > mht2 && mht2 == mhr4b &&
08836 mp[i] <= mht3, \[CurlyEpsilon]cmsp4,
08837 If(mp[i] > mht1 && mht1 == mhr1 &&
08838 mp[i] <= mht2, \[CurlyEpsilon]cmsp1,
08839 If(mp[i] > mht2 && mht2 == mhr2 &&
08840 mp[i] <= mht3, \[CurlyEpsilon]cmsp3,
08841 If(mp[i] > mht2 && mht2 == mhr3 &&
08842 mp[i] <= mht3, \[CurlyEpsilon]cmsp4,
08843 If(mp[i] >
08844 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08845 mp[i] <= mht4, \[CurlyEpsilon]cmsp6,
08846 If(mp[i] > mmax, novy, 1)))))))),
08847 If(mp[4] <= mht1, \[CurlyEpsilon]cmsp2,
08848 If(mp[i] > mht1 && mht1 == mhr4 &&
08849 mp[i] <= mht2, \[CurlyEpsilon]cmsp5,
08850 If(mp[i] > mht2 && mht2 == mhr4b &&
08851 mp[i] <= mht3, \[CurlyEpsilon]cmsp4,
08852 If(mp[i] > mht1 && mht1 == mhr1 &&
08853 mp[i] <= mht2, \[CurlyEpsilon]cmsp1,
08854 If(mp[i] > mht2 && mht2 == mhr2 &&
08855 mp[i] <= mht3, \[CurlyEpsilon]cmsp3,
08856 If(mp[i] > mht2 && mht2 == mhr3 &&
08857 mp[i] <= mht3, \[CurlyEpsilon]cmsp4,
08858 If(mp[i] >
08859 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08860 mp[i] <= mht4, \[CurlyEpsilon]cmsp6,
08861 If(mp[i] > mmax, novy, 1)))))))))
08862
08863 \[CurlyEpsilon]s1sp =
08864 List(If(mp[1] <= mht1, \[CurlyEpsilon]s1msp2,
08865 If(mp[i] > mht1 && mht1 == mhr4 &&
08866 mp[i] <= mht2, \[CurlyEpsilon]s1msp5,
08867 If(mp[i] > mht2 && mht2 == mhr4b &&
08868 mp[i] <= mht3, \[CurlyEpsilon]s1msp4,
08869 If(mp[i] > mht1 && mht1 == mhr1 &&
08870 mp[i] <= mht2, \[CurlyEpsilon]s1msp1,
08871 If(mp[i] > mht2 && mht2 == mhr2 &&
08872 mp[i] <= mht3, \[CurlyEpsilon]s1msp3,
08873 If(mp[i] > mht2 && mht2 == mhr3 &&
08874 mp[i] <= mht3, \[CurlyEpsilon]s1msp4,
08875 If(mp[i] >
08876 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08877 mp[i] <= mht4, \[CurlyEpsilon]s1msp6,
08878 If(mp[i] > mmax, novy, 1)))))))),
08879 If(mp[2] <= mht1, \[CurlyEpsilon]s1msp2,
08880 If(mp[i] > mht1 && mht1 == mhr4 &&
08881 mp[i] <= mht2, \[CurlyEpsilon]s1msp5,
08882 If(mp[i] > mht2 && mht2 == mhr4b &&
08883 mp[i] <= mht3, \[CurlyEpsilon]s1msp4,
08884 If(mp[i] > mht1 && mht1 == mhr1 &&
08885 mp[i] <= mht2, \[CurlyEpsilon]s1msp1,
08886 If(mp[i] > mht2 && mht2 == mhr2 &&
08887 mp[i] <= mht3, \[CurlyEpsilon]s1msp3,
08888 If(mp[i] > mht2 && mht2 == mhr3 &&
08889 mp[i] <= mht3, \[CurlyEpsilon]s1msp4,
08890 If(mp[i] >
08891 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08892 mp[i] <= mht4, \[CurlyEpsilon]s1msp6,
08893 If(mp[i] > mmax, novy, 1)))))))),
08894 If(mp[3] <= mht1, \[CurlyEpsilon]s1msp2,
08895 If(mp[i] > mht1 && mht1 == mhr4 &&
08896 mp[i] <= mht2, \[CurlyEpsilon]s1msp5,
08897 If(mp[i] > mht2 && mht2 == mhr4b &&
08898 mp[i] <= mht3, \[CurlyEpsilon]s1msp4,
08899 If(mp[i] > mht1 && mht1 == mhr1 &&
08900 mp[i] <= mht2, \[CurlyEpsilon]s1msp1,
08901 If(mp[i] > mht2 && mht2 == mhr2 &&
08902 mp[i] <= mht3, \[CurlyEpsilon]s1msp3,
08903 If(mp[i] > mht2 && mht2 == mhr3 &&
08904 mp[i] <= mht3, \[CurlyEpsilon]s1msp4,
08905 If(mp[i] >
08906 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08907 mp[i] <= mht4, \[CurlyEpsilon]s1msp6,
08908 If(mp[i] > mmax, novy, 1)))))))),
08909 If(mp[4] <= mht1, \[CurlyEpsilon]s1msp2,
08910 If(mp[i] > mht1 && mht1 == mhr4 &&
08911 mp[i] <= mht2, \[CurlyEpsilon]s1msp5,
08912 If(mp[i] > mht2 && mht2 == mhr4b &&
08913 mp[i] <= mht3, \[CurlyEpsilon]s1msp4,
08914 If(mp[i] > mht1 && mht1 == mhr1 &&
08915 mp[i] <= mht2, \[CurlyEpsilon]s1msp1,
08916 If(mp[i] > mht2 && mht2 == mhr2 &&
08917 mp[i] <= mht3, \[CurlyEpsilon]s1msp3,
08918 If(mp[i] > mht2 && mht2 == mhr3 &&
08919 mp[i] <= mht3, \[CurlyEpsilon]s1msp4,
08920 If(mp[i] >
08921 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08922 mp[i] <= mht4, \[CurlyEpsilon]s1msp6,
08923 If(mp[i] > mmax, novy, 1)))))))))
08924
08925 a1sp = List(If(mp[1] <= mht1, a12,
08926 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, a15,
08927 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, a14,
08928 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, a11,
08929 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, a13,
08930 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
08931 a14, If(mp[i] >
08932 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08933 mp[i] <= mht4, a16,
08934 If(mp[i] > mmax, novy, 1)))))))),
08935 If(mp[2] <= mht1, a12,
08936 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, a15,
08937 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, a14,
08938 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, a11,
08939 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, a13,
08940 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
08941 a14, If(mp[i] >
08942 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08943 mp[i] <= mht4, a16,
08944 If(mp[i] > mmax, novy, 1)))))))),
08945 If(mp[3] <= mht1, a12,
08946 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, a15,
08947 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, a14,
08948 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, a11,
08949 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, a13,
08950 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
08951 a14, If(mp[i] >
08952 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08953 mp[i] <= mht4, a16,
08954 If(mp[i] > mmax, novy, 1)))))))),
08955 If(mp[4] <= mht1, a12,
08956 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, a15,
08957 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, a14,
08958 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, a11,
08959 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, a13,
08960 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
08961 a14, If(mp[i] >
08962 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08963 mp[i] <= mht4, a16,
08964 If(mp[i] > mmax, novy, 1)))))))))
08965
08966 a2spp = List(If(mp[1] <= mht1, a22,
08967 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, a25,
08968 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, a24,
08969 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, a21,
08970 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, a23,
08971 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
08972 a24, If(mp[i] >
08973 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08974 mp[i] <= mht4, a26,
08975 If(mp[i] > mmax, novy, 1)))))))),
08976 If(mp[2] <= mht1, a22,
08977 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, a25,
08978 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, a24,
08979 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, a21,
08980 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, a23,
08981 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
08982 a24, If(mp[i] >
08983 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08984 mp[i] <= mht4, a26,
08985 If(mp[i] > mmax, novy, 1)))))))),
08986 If(mp[3] <= mht1, a22,
08987 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, a25,
08988 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, a24,
08989 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, a21,
08990 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, a23,
08991 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
08992 a24, If(mp[i] >
08993 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
08994 mp[i] <= mht4, a26,
08995 If(mp[i] > mmax, novy, 1)))))))),
08996 If(mp[4] <= mht1, a22,
08997 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, a25,
08998 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, a24,
08999 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, a21,
09000 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, a23,
09001 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
09002 a24, If(mp[i] >
09003 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
09004 mp[i] <= mht4, a26,
09005 If(mp[i] > mmax, novy, 1)))))))))
09006
09007 a2sp = List(If(m[1] > 0, -a2spp[i], a2spp[i]),
09008 If(m[2] > 0, -a2spp[i], a2spp[i]), If(m[3] > 0, -a2spp[i], a2spp[i]),
09009 If(m[4] > 0, -a2spp[i], a2spp[i]))
09010
09011 b1sp = List(If(mp[1] <= mht1, b12,
09012 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, b15,
09013 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, b14,
09014 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, b11,
09015 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, b13,
09016 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
09017 b14, If(mp[i] >
09018 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
09019 mp[i] <= mht4, b16,
09020 If(mp[i] > mmax, novy, 1)))))))),
09021 If(mp[2] <= mht1, b12,
09022 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, b15,
09023 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, b14,
09024 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, b11,
09025 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, b13,
09026 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
09027 b14, If(mp[i] >
09028 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
09029 mp[i] <= mht4, b16,
09030 If(mp[i] > mmax, novy, 1)))))))),
09031 If(mp[3] <= mht1, b12,
09032 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, b15,
09033 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, b14,
09034 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, b11,
09035 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, b13,
09036 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
09037 b14, If(mp[i] >
09038 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
09039 mp[i] <= mht4, b16,
09040 If(mp[i] > mmax, novy, 1)))))))),
09041 If(mp[4] <= mht1, b12,
09042 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, b15,
09043 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, b14,
09044 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, b11,
09045 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, b13,
09046 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
09047 b14, If(mp[i] >
09048 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
09049 mp[i] <= mht4, b16,
09050 If(mp[i] > mmax, novy, 1)))))))))
09051
09052 b2spp = List(If(mp[1] <= mht1, b22,
09053 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, b25,
09054 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, b24,
09055 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, b21,
09056 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, b23,
09057 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
09058 b24, If(mp[i] >
09059 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
09060 mp[i] <= mht4, b26,
09061 If(mp[i] > mmax, novy, 1)))))))),
09062 If(mp[2] <= mht1, b22,
09063 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, b25,
09064 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, b24,
09065 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, b21,
09066 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, b23,
09067 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
09068 b24, If(mp[i] >
09069 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
09070 mp[i] <= mht4, b26,
09071 If(mp[i] > mmax, novy, 1)))))))),
09072 If(mp[3] <= mht1, b22,
09073 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, b25,
09074 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, b24,
09075 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, b21,
09076 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, b23,
09077 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
09078 b24, If(mp[i] >
09079 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
09080 mp[i] <= mht4, b26,
09081 If(mp[i] > mmax, novy, 1)))))))),
09082 If(mp[4] <= mht1, b22,
09083 If(mp[i] > mht1 && mht1 == mhr4 && mp[i] <= mht2, b25,
09084 If(mp[i] > mht2 && mht2 == mhr4b && mp[i] <= mht3, b24,
09085 If(mp[i] > mht1 && mht1 == mhr1 && mp[i] <= mht2, b21,
09086 If(mp[i] > mht2 && mht2 == mhr2 && mp[i] <= mht3, b23,
09087 If(mp[i] > mht2 && mht2 == mhr3 && mp[i] <= mht3,
09088 b24, If(mp[i] >
09089 mht3 && (mht3 == mhr6 || mht3 == mhr5) &&
09090 mp[i] <= mht4, b26,
09091 If(mp[i] > mmax, novy, 1)))))))))
09092
09093 b2sp = List(If(m[1] > 0, -b2spp[i], b2spp[i]),
09094 If(m[2] > 0, -b2spp[i], b2spp[i]), If(m[3] > 0, -b2spp[i], b2spp[i]),
09095 If(m[4] > 0, -b2spp[i], b2spp[i]))
09096
09097 \[CurlyEpsilon]s1spp =
09098 List((a2spp[1]*b1sp[1])/a1sp[1] -
09099 b2spp[1] + \[CurlyEpsilon]s1sp[1], (a2spp[2]*b1sp[2])/a1sp[2] -
09100 b2spp[2] + \[CurlyEpsilon]s1sp[2], (a2spp[3]*b1sp[3])/a1sp[3] -
09101 b2spp[3] + \[CurlyEpsilon]s1sp[3], (a2spp[4]*b1sp[4])/a1sp[4] -
09102 b2spp[4] + \[CurlyEpsilon]s1sp[4])
09103
09104 Ir1 = List(If(\[CurlyEpsilon]s1r[
09105 1] <= \[CurlyEpsilon]s1lim && \[CurlyEpsilon]cr[1] < 0,
09106 ReplaceAll((b*d*fc*
09107 Power(\[CurlyEpsilon]c,
09108 3)*(3*\[CurlyEpsilon]c - 3*k*\[CurlyEpsilon]c -
09109 4*\[CurlyEpsilon]c1 + 6*k*\[CurlyEpsilon]c1))/(6.*k*
09110 Power(\[CurlyEpsilon]c1,
09111 2)*(\[CurlyEpsilon]c - \[CurlyEpsilon]s1)),
09112 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09113 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i]))),
09114 If(\[CurlyEpsilon]s1r[
09115 i] > \[CurlyEpsilon]s1lim && \[CurlyEpsilon]cr[i] < 0,
09116 ReplaceAll((b*d*fc*
09117 Power(\[CurlyEpsilon]c,
09118 3)*(3*\[CurlyEpsilon]c - 3*k*\[CurlyEpsilon]c -
09119 4*\[CurlyEpsilon]c1 + 6*k*\[CurlyEpsilon]c1))/(6.*
09120 k*Power(\[CurlyEpsilon]c1,
09121 2)*(\[CurlyEpsilon]c - \[CurlyEpsilon]s1)),
09122 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09123 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i]))), 0)),
09124 If(\[CurlyEpsilon]s1r[2] <= \[CurlyEpsilon]s1lim && \[CurlyEpsilon]cr[
09125 2] < 0,
09126 ReplaceAll((b*d*fc*
09127 Power(\[CurlyEpsilon]c,
09128 3)*(3*\[CurlyEpsilon]c - 3*k*\[CurlyEpsilon]c -
09129 4*\[CurlyEpsilon]c1 + 6*k*\[CurlyEpsilon]c1))/(6.*k*
09130 Power(\[CurlyEpsilon]c1,
09131 2)*(\[CurlyEpsilon]c - \[CurlyEpsilon]s1)),
09132 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09133 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i]))),
09134 If(\[CurlyEpsilon]s1r[
09135 i] > \[CurlyEpsilon]s1lim && \[CurlyEpsilon]cr[i] < 0,
09136 ReplaceAll((b*d*fc*
09137 Power(\[CurlyEpsilon]c,
09138 3)*(3*\[CurlyEpsilon]c - 3*k*\[CurlyEpsilon]c -
09139 4*\[CurlyEpsilon]c1 + 6*k*\[CurlyEpsilon]c1))/(6.*
09140 k*Power(\[CurlyEpsilon]c1,
09141 2)*(\[CurlyEpsilon]c - \[CurlyEpsilon]s1)),
09142 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09143 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i]))), 0)),
09144 If(\[CurlyEpsilon]s1r[3] <= \[CurlyEpsilon]s1lim && \[CurlyEpsilon]cr[
09145 3] < 0,
09146 ReplaceAll((b*d*fc*
09147 Power(\[CurlyEpsilon]c,
09148 3)*(3*\[CurlyEpsilon]c - 3*k*\[CurlyEpsilon]c -
09149 4*\[CurlyEpsilon]c1 + 6*k*\[CurlyEpsilon]c1))/(6.*k*
09150 Power(\[CurlyEpsilon]c1,
09151 2)*(\[CurlyEpsilon]c - \[CurlyEpsilon]s1)),
09152 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09153 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i]))),
09154 If(\[CurlyEpsilon]s1r[
09155 i] > \[CurlyEpsilon]s1lim && \[CurlyEpsilon]cr[i] < 0,
09156 ReplaceAll((b*d*fc*
09157 Power(\[CurlyEpsilon]c,
09158 3)*(3*\[CurlyEpsilon]c - 3*k*\[CurlyEpsilon]c -
09159 4*\[CurlyEpsilon]c1 + 6*k*\[CurlyEpsilon]c1))/(6.*
09160 k*Power(\[CurlyEpsilon]c1,
09161 2)*(\[CurlyEpsilon]c - \[CurlyEpsilon]s1)),
09162 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09163 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i]))), 0)),
09164 If(\[CurlyEpsilon]s1r[4] <= \[CurlyEpsilon]s1lim && \[CurlyEpsilon]cr[
09165 4] < 0,
09166 ReplaceAll((b*d*fc*
09167 Power(\[CurlyEpsilon]c,
09168 3)*(3*\[CurlyEpsilon]c - 3*k*\[CurlyEpsilon]c -
09169 4*\[CurlyEpsilon]c1 + 6*k*\[CurlyEpsilon]c1))/(6.*k*
09170 Power(\[CurlyEpsilon]c1,
09171 2)*(\[CurlyEpsilon]c - \[CurlyEpsilon]s1)),
09172 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09173 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i]))),
09174 If(\[CurlyEpsilon]s1r[
09175 i] > \[CurlyEpsilon]s1lim && \[CurlyEpsilon]cr[i] < 0,
09176 ReplaceAll((b*d*fc*
09177 Power(\[CurlyEpsilon]c,
09178 3)*(3*\[CurlyEpsilon]c - 3*k*\[CurlyEpsilon]c -
09179 4*\[CurlyEpsilon]c1 + 6*k*\[CurlyEpsilon]c1))/(6.*
09180 k*Power(\[CurlyEpsilon]c1,
09181 2)*(\[CurlyEpsilon]c - \[CurlyEpsilon]s1)),
09182 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09183 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i]))), 0)))
09184
09185 Ims1 = List(If(\[CurlyEpsilon]s1sp[1] <= \[CurlyEpsilon]s1lim,
09186 ReplaceAll((b*d*fc*
09187 Power(\[CurlyEpsilon]c,
09188 3)*(3*\[CurlyEpsilon]c - 3*k*\[CurlyEpsilon]c -
09189 4*\[CurlyEpsilon]c1 + 6*k*\[CurlyEpsilon]c1))/(6.*k*
09190 Power(\[CurlyEpsilon]c1,
09191 2)*(\[CurlyEpsilon]c - \[CurlyEpsilon]s1)),
09192 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09193 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i]))),
09194 ReplaceAll((b*d*fc*
09195 Power(\[CurlyEpsilon]c,
09196 3)*(3*\[CurlyEpsilon]c - 3*k*\[CurlyEpsilon]c -
09197 4*\[CurlyEpsilon]c1 + 6*k*\[CurlyEpsilon]c1))/(6.*k*
09198 Power(\[CurlyEpsilon]c1,
09199 2)*(\[CurlyEpsilon]c - \[CurlyEpsilon]s1)),
09200 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09201 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i])))),
09202 If(\[CurlyEpsilon]s1sp[2] <= \[CurlyEpsilon]s1lim,
09203 ReplaceAll((b*d*fc*
09204 Power(\[CurlyEpsilon]c,
09205 3)*(3*\[CurlyEpsilon]c - 3*k*\[CurlyEpsilon]c -
09206 4*\[CurlyEpsilon]c1 + 6*k*\[CurlyEpsilon]c1))/(6.*k*
09207 Power(\[CurlyEpsilon]c1,
09208 2)*(\[CurlyEpsilon]c - \[CurlyEpsilon]s1)),
09209 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09210 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i]))),
09211 ReplaceAll((b*d*fc*
09212 Power(\[CurlyEpsilon]c,
09213 3)*(3*\[CurlyEpsilon]c - 3*k*\[CurlyEpsilon]c -
09214 4*\[CurlyEpsilon]c1 + 6*k*\[CurlyEpsilon]c1))/(6.*k*
09215 Power(\[CurlyEpsilon]c1,
09216 2)*(\[CurlyEpsilon]c - \[CurlyEpsilon]s1)),
09217 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09218 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i])))),
09219 If(\[CurlyEpsilon]s1sp[3] <= \[CurlyEpsilon]s1lim,
09220 ReplaceAll((b*d*fc*
09221 Power(\[CurlyEpsilon]c,
09222 3)*(3*\[CurlyEpsilon]c - 3*k*\[CurlyEpsilon]c -
09223 4*\[CurlyEpsilon]c1 + 6*k*\[CurlyEpsilon]c1))/(6.*k*
09224 Power(\[CurlyEpsilon]c1,
09225 2)*(\[CurlyEpsilon]c - \[CurlyEpsilon]s1)),
09226 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09227 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i]))),
09228 ReplaceAll((b*d*fc*
09229 Power(\[CurlyEpsilon]c,
09230 3)*(3*\[CurlyEpsilon]c - 3*k*\[CurlyEpsilon]c -
09231 4*\[CurlyEpsilon]c1 + 6*k*\[CurlyEpsilon]c1))/(6.*k*
09232 Power(\[CurlyEpsilon]c1,
09233 2)*(\[CurlyEpsilon]c - \[CurlyEpsilon]s1)),
09234 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09235 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i])))),
09236 If(\[CurlyEpsilon]s1sp[4] <= \[CurlyEpsilon]s1lim,
09237 ReplaceAll((b*d*fc*
09238 Power(\[CurlyEpsilon]c,
09239 3)*(3*\[CurlyEpsilon]c - 3*k*\[CurlyEpsilon]c -
09240 4*\[CurlyEpsilon]c1 + 6*k*\[CurlyEpsilon]c1))/(6.*k*
09241 Power(\[CurlyEpsilon]c1,
09242 2)*(\[CurlyEpsilon]c - \[CurlyEpsilon]s1)),
09243 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09244 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i]))),
09245 ReplaceAll((b*d*fc*
09246 Power(\[CurlyEpsilon]c,
09247 3)*(3*\[CurlyEpsilon]c - 3*k*\[CurlyEpsilon]c -
09248 4*\[CurlyEpsilon]c1 + 6*k*\[CurlyEpsilon]c1))/(6.*k*
09249 Power(\[CurlyEpsilon]c1,
09250 2)*(\[CurlyEpsilon]c - \[CurlyEpsilon]s1)),
09251 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09252 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i])))))
09253
09254 Ir2 = List(If(\[CurlyEpsilon]s1r[1] <= \[CurlyEpsilon]s1lim,
09255 ReplaceAll(As1*E0c*\[CurlyEpsilon]s1*\[CurlyEpsilon]s1,
09256 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09257 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i]))),
09258 ReplaceAll((E0cn*(\[CurlyEpsilon]s1 - fy/E0c) +
09259 E0c*fy/E0c)*\[CurlyEpsilon]s1*As1,
09260 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09261 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i])))),
09262 If(\[CurlyEpsilon]s1r[2] <= \[CurlyEpsilon]s1lim,
09263 ReplaceAll(As1*E0c*\[CurlyEpsilon]s1*\[CurlyEpsilon]s1,
09264 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09265 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i]))),
09266 ReplaceAll((E0cn*(\[CurlyEpsilon]s1 - fy/E0c) +
09267 E0c*fy/E0c)*\[CurlyEpsilon]s1*As1,
09268 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09269 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i])))),
09270 If(\[CurlyEpsilon]s1r[3] <= \[CurlyEpsilon]s1lim,
09271 ReplaceAll(As1*E0c*\[CurlyEpsilon]s1*\[CurlyEpsilon]s1,
09272 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09273 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i]))),
09274 ReplaceAll((E0cn*(\[CurlyEpsilon]s1 - fy/E0c) +
09275 E0c*fy/E0c)*\[CurlyEpsilon]s1*As1,
09276 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09277 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i])))),
09278 If(\[CurlyEpsilon]s1r[4] <= \[CurlyEpsilon]s1lim,
09279 ReplaceAll(As1*E0c*\[CurlyEpsilon]s1*\[CurlyEpsilon]s1,
09280 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09281 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i]))),
09282 ReplaceAll((E0cn*(\[CurlyEpsilon]s1 - fy/E0c) +
09283 E0c*fy/E0c)*\[CurlyEpsilon]s1*As1,
09284 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09285 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i])))))
09286
09287 Ims2 = List(If(\[CurlyEpsilon]s1sp[1] <= \[CurlyEpsilon]s1lim,
09288 ReplaceAll(As1*E0c*\[CurlyEpsilon]s1*\[CurlyEpsilon]s1,
09289 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09290 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i]))),
09291 ReplaceAll((E0cn*(\[CurlyEpsilon]s1 - fy/E0c) +
09292 E0c*fy/E0c)*\[CurlyEpsilon]s1*As1,
09293 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09294 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i])))),
09295 If(\[CurlyEpsilon]s1sp[2] <= \[CurlyEpsilon]s1lim,
09296 ReplaceAll(As1*E0c*\[CurlyEpsilon]s1*\[CurlyEpsilon]s1,
09297 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09298 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i]))),
09299 ReplaceAll((E0cn*(\[CurlyEpsilon]s1 - fy/E0c) +
09300 E0c*fy/E0c)*\[CurlyEpsilon]s1*As1,
09301 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09302 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i])))),
09303 If(\[CurlyEpsilon]s1sp[3] <= \[CurlyEpsilon]s1lim,
09304 ReplaceAll(As1*E0c*\[CurlyEpsilon]s1*\[CurlyEpsilon]s1,
09305 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09306 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i]))),
09307 ReplaceAll((E0cn*(\[CurlyEpsilon]s1 - fy/E0c) +
09308 E0c*fy/E0c)*\[CurlyEpsilon]s1*As1,
09309 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09310 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i])))),
09311 If(\[CurlyEpsilon]s1sp[4] <= \[CurlyEpsilon]s1lim,
09312 ReplaceAll(As1*E0c*\[CurlyEpsilon]s1*\[CurlyEpsilon]s1,
09313 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09314 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i]))),
09315 ReplaceAll((E0cn*(\[CurlyEpsilon]s1 - fy/E0c) +
09316 E0c*fy/E0c)*\[CurlyEpsilon]s1*As1,
09317 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09318 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i])))))
09319
09320 Ir3 = List(If((-(ch*\[CurlyEpsilon]cr[1]) + d*\[CurlyEpsilon]cr[1] +
09321 ch*\[CurlyEpsilon]s1r[1])/d >= -\[CurlyEpsilon]s1lim,
09322 ReplaceAll((As2*
09323 E0c*(d*\[CurlyEpsilon]c +
09324 ch*(-\[CurlyEpsilon]c + \[CurlyEpsilon]s1))*(d*\
09325 \[CurlyEpsilon]c + ch*(-\[CurlyEpsilon]c + \[CurlyEpsilon]s1)))/Power(d, 2),
09326 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09327 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i]))),
09328 ReplaceAll((E0c*-fy/E0c +
09329 E0cn*((ch*\[CurlyEpsilon]s1 + ch*-\[CurlyEpsilon]c -
09330 d*-\[CurlyEpsilon]c)/d +
09331 fy/E0c))*(ch*\[CurlyEpsilon]s1 +
09332 ch*-\[CurlyEpsilon]c - d*-\[CurlyEpsilon]c)/d*As2,
09333 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09334 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i])))),
09335 If((-(ch*\[CurlyEpsilon]cr[2]) + d*\[CurlyEpsilon]cr[2] +
09336 ch*\[CurlyEpsilon]s1r[2])/d >= -\[CurlyEpsilon]s1lim,
09337 ReplaceAll((As2*
09338 E0c*(d*\[CurlyEpsilon]c +
09339 ch*(-\[CurlyEpsilon]c + \[CurlyEpsilon]s1))*(d*\
09340 \[CurlyEpsilon]c + ch*(-\[CurlyEpsilon]c + \[CurlyEpsilon]s1)))/Power(d, 2),
09341 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09342 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i]))),
09343 ReplaceAll((E0c*-fy/E0c +
09344 E0cn*((ch*\[CurlyEpsilon]s1 + ch*-\[CurlyEpsilon]c -
09345 d*-\[CurlyEpsilon]c)/d +
09346 fy/E0c))*(ch*\[CurlyEpsilon]s1 +
09347 ch*-\[CurlyEpsilon]c - d*-\[CurlyEpsilon]c)/d*As2,
09348 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09349 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i])))),
09350 If((-(ch*\[CurlyEpsilon]cr[3]) + d*\[CurlyEpsilon]cr[3] +
09351 ch*\[CurlyEpsilon]s1r[3])/d >= -\[CurlyEpsilon]s1lim,
09352 ReplaceAll((As2*
09353 E0c*(d*\[CurlyEpsilon]c +
09354 ch*(-\[CurlyEpsilon]c + \[CurlyEpsilon]s1))*(d*\
09355 \[CurlyEpsilon]c + ch*(-\[CurlyEpsilon]c + \[CurlyEpsilon]s1)))/Power(d, 2),
09356 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09357 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i]))),
09358 ReplaceAll((E0c*-fy/E0c +
09359 E0cn*((ch*\[CurlyEpsilon]s1 + ch*-\[CurlyEpsilon]c -
09360 d*-\[CurlyEpsilon]c)/d +
09361 fy/E0c))*(ch*\[CurlyEpsilon]s1 +
09362 ch*-\[CurlyEpsilon]c - d*-\[CurlyEpsilon]c)/d*As2,
09363 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09364 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i])))),
09365 If((-(ch*\[CurlyEpsilon]cr[4]) + d*\[CurlyEpsilon]cr[4] +
09366 ch*\[CurlyEpsilon]s1r[4])/d >= -\[CurlyEpsilon]s1lim,
09367 ReplaceAll((As2*
09368 E0c*(d*\[CurlyEpsilon]c +
09369 ch*(-\[CurlyEpsilon]c + \[CurlyEpsilon]s1))*(d*\
09370 \[CurlyEpsilon]c + ch*(-\[CurlyEpsilon]c + \[CurlyEpsilon]s1)))/Power(d, 2),
09371 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09372 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i]))),
09373 ReplaceAll((E0c*-fy/E0c +
09374 E0cn*((ch*\[CurlyEpsilon]s1 + ch*-\[CurlyEpsilon]c -
09375 d*-\[CurlyEpsilon]c)/d +
09376 fy/E0c))*(ch*\[CurlyEpsilon]s1 +
09377 ch*-\[CurlyEpsilon]c - d*-\[CurlyEpsilon]c)/d*As2,
09378 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]cr[i]),
09379 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1r[i])))))
09380
09381 Ims3 = List(If((-(ch*\[CurlyEpsilon]csp[1]) + d*\[CurlyEpsilon]csp[1] +
09382 ch*\[CurlyEpsilon]s1sp[1])/d >= -\[CurlyEpsilon]s1lim,
09383 ReplaceAll((As2*
09384 E0c*(d*\[CurlyEpsilon]c +
09385 ch*(-\[CurlyEpsilon]c + \[CurlyEpsilon]s1))*(d*\
09386 \[CurlyEpsilon]c + ch*(-\[CurlyEpsilon]c + \[CurlyEpsilon]s1)))/Power(d, 2),
09387 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09388 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i]))),
09389 ReplaceAll((E0c*-fy/E0c +
09390 E0cn*((ch*\[CurlyEpsilon]s1 + ch*-\[CurlyEpsilon]c -
09391 d*-\[CurlyEpsilon]c)/d +
09392 fy/E0c))*(ch*\[CurlyEpsilon]s1 +
09393 ch*-\[CurlyEpsilon]c - d*-\[CurlyEpsilon]c)/d*As2,
09394 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09395 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i])))),
09396 If((-(ch*\[CurlyEpsilon]csp[2]) + d*\[CurlyEpsilon]csp[2] +
09397 ch*\[CurlyEpsilon]s1sp[2])/d >= -\[CurlyEpsilon]s1lim,
09398 ReplaceAll((As2*
09399 E0c*(d*\[CurlyEpsilon]c +
09400 ch*(-\[CurlyEpsilon]c + \[CurlyEpsilon]s1))*(d*\
09401 \[CurlyEpsilon]c + ch*(-\[CurlyEpsilon]c + \[CurlyEpsilon]s1)))/Power(d, 2),
09402 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09403 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i]))),
09404 ReplaceAll((E0c*-fy/E0c +
09405 E0cn*((ch*\[CurlyEpsilon]s1 + ch*-\[CurlyEpsilon]c -
09406 d*-\[CurlyEpsilon]c)/d +
09407 fy/E0c))*(ch*\[CurlyEpsilon]s1 +
09408 ch*-\[CurlyEpsilon]c - d*-\[CurlyEpsilon]c)/d*As2,
09409 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09410 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i])))),
09411 If((-(ch*\[CurlyEpsilon]csp[3]) + d*\[CurlyEpsilon]csp[3] +
09412 ch*\[CurlyEpsilon]s1sp[3])/d >= -\[CurlyEpsilon]s1lim,
09413 ReplaceAll((As2*
09414 E0c*(d*\[CurlyEpsilon]c +
09415 ch*(-\[CurlyEpsilon]c + \[CurlyEpsilon]s1))*(d*\
09416 \[CurlyEpsilon]c + ch*(-\[CurlyEpsilon]c + \[CurlyEpsilon]s1)))/Power(d, 2),
09417 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09418 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i]))),
09419 ReplaceAll((E0c*-fy/E0c +
09420 E0cn*((ch*\[CurlyEpsilon]s1 + ch*-\[CurlyEpsilon]c -
09421 d*-\[CurlyEpsilon]c)/d +
09422 fy/E0c))*(ch*\[CurlyEpsilon]s1 +
09423 ch*-\[CurlyEpsilon]c - d*-\[CurlyEpsilon]c)/d*As2,
09424 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09425 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i])))),
09426 If((-(ch*\[CurlyEpsilon]csp[4]) + d*\[CurlyEpsilon]csp[4] +
09427 ch*\[CurlyEpsilon]s1sp[4])/d >= -\[CurlyEpsilon]s1lim,
09428 ReplaceAll((As2*
09429 E0c*(d*\[CurlyEpsilon]c +
09430 ch*(-\[CurlyEpsilon]c + \[CurlyEpsilon]s1))*(d*\
09431 \[CurlyEpsilon]c + ch*(-\[CurlyEpsilon]c + \[CurlyEpsilon]s1)))/Power(d, 2),
09432 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09433 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i]))),
09434 ReplaceAll((E0c*-fy/E0c +
09435 E0cn*((ch*\[CurlyEpsilon]s1 + ch*-\[CurlyEpsilon]c -
09436 d*-\[CurlyEpsilon]c)/d +
09437 fy/E0c))*(ch*\[CurlyEpsilon]s1 +
09438 ch*-\[CurlyEpsilon]c - d*-\[CurlyEpsilon]c)/d*As2,
09439 List(Rule(\[CurlyEpsilon]c, \[CurlyEpsilon]csp[i]),
09440 Rule(\[CurlyEpsilon]s1, \[CurlyEpsilon]s1sp[i])))))
09441
09442 Ic1 = List(Ir1[1] + Ir2[1] + Ir3[1], Ir1[2] + Ir2[2] + Ir3[2],
09443 Ir1[3] + Ir2[3] + Ir3[3], Ir1[4] + Ir2[4] + Ir3[4])
09444
09445 Ic2 = List(Ims1[1] + Ims2[1] + Ims3[1], Ims1[2] + Ims2[2] + Ims3[2],
09446 Ims1[3] + Ims2[3] + Ims3[3], Ims1[4] + Ims2[4] + Ims3[4])
09447
09448 Icp = List(As1*E0c*\[CurlyEpsilon]s1sp[1]*\[CurlyEpsilon]s1spp[1],
09449 As1*E0c*\[CurlyEpsilon]s1sp[2]*\[CurlyEpsilon]s1spp[2],
09450 As1*E0c*\[CurlyEpsilon]s1sp[3]*\[CurlyEpsilon]s1spp[3],
09451 As1*E0c*\[CurlyEpsilon]s1sp[4]*\[CurlyEpsilon]s1spp[4])
09452
09453 c1 = List(-((-Ic1[1] + Ic2[1])/(-Power(mp[1], 2) +
09454 Power(mr[1], 2))), -((-Ic1[2] + Ic2[2])/(-Power(mp[2], 2) +
09455 Power(mr[2], 2))), -((-Ic1[3] + Ic2[3])/(-Power(mp[3], 2) +
09456 Power(mr[3], 2))), -((-Ic1[4] + Ic2[4])/(-Power(mp[4], 2) +
09457 Power(mr[4], 2))))
09458
09459 c2 = List(-((Ic1[1]*Power(mp[1], 2) -
09460 Ic2[1]*Power(mr[1], 2))/(-Power(mp[1], 2) +
09461 Power(mr[1], 2))), -((Ic1[2]*Power(mp[2], 2) -
09462 Ic2[2]*Power(mr[2], 2))/(-Power(mp[2], 2) +
09463 Power(mr[2], 2))), -((Ic1[3]*Power(mp[3], 2) -
09464 Ic2[3]*Power(mr[3], 2))/(-Power(mp[3], 2) +
09465 Power(mr[3], 2))), -((Ic1[4]*Power(mp[4], 2) -
09466 Ic2[4]*Power(mr[4], 2))/(-Power(mp[4], 2) + Power(mr[4], 2))))
09467
09468 c1p = List(-((-Ic1[1] + Icp[1])/(-Power(mp[1], 2) +
09469 Power(mr[1], 2))), -((-Ic1[2] + Icp[2])/(-Power(mp[2], 2) +
09470 Power(mr[2], 2))), -((-Ic1[3] + Icp[3])/(-Power(mp[3], 2) +
09471 Power(mr[3], 2))), -((-Ic1[4] + Icp[4])/(-Power(mp[4], 2) +
09472 Power(mr[4], 2))))
09473
09474 c2p = List(-((Ic1[1]*Power(mp[1], 2) -
09475 Icp[1]*Power(mr[1], 2))/(-Power(mp[1], 2) +
09476 Power(mr[1], 2))), -((Ic1[2]*Power(mp[2], 2) -
09477 Icp[2]*Power(mr[2], 2))/(-Power(mp[2], 2) +
09478 Power(mr[2], 2))), -((Ic1[3]*Power(mp[3], 2) -
09479 Icp[3]*Power(mr[3], 2))/(-Power(mp[3], 2) +
09480 Power(mr[3], 2))), -((Ic1[4]*Power(mp[4], 2) -
09481 Icp[4]*Power(mr[4], 2))/(-Power(mp[4], 2) + Power(mr[4], 2))))
09482
09483 kih = List((lp*((3*Power(fp, 2)*Power(lp, 4) +
09484 20*fp*Power(lp, 2)*(3*lp*z1 + 16*z2) +
09485 320*(Power(lp, 2)*Power(z1, 2) + 12*lp*z1*z2 +
09486 48*Power(z2, 2)))*c1[1] + 15360*c2[1]))/
09487 61440., (lp*(93*Power(fp, 2)*Power(lp, 4) +
09488 20*fp*Power(lp, 2)*(45*lp*z1 + 112*z2) +
09489 320*(7*Power(lp, 2)*Power(z1, 2) + 36*lp*z1*z2 +
09490 48*Power(z2, 2)))*c1[2])/61440. + (lp*c2[2])/
09491 4., (lp*(633*Power(fp, 2)*Power(lp, 4) +
09492 20*fp*Power(lp, 2)*(195*lp*z1 + 304*z2) +
09493 320*(19*Power(lp, 2)*Power(z1, 2) + 60*lp*z1*z2 +
09494 48*Power(z2, 2)))*c1[3])/61440. + (lp*c2[3])/
09495 4., (lp*(2343*Power(fp, 2)*Power(lp, 4) +
09496 20*fp*Power(lp, 2)*(525*lp*z1 + 592*z2) +
09497 320*(37*Power(lp, 2)*Power(z1, 2) + 84*lp*z1*z2 +
09498 48*Power(z2, 2)))*c1[4])/61440. + (lp*c2[4])/4.)
09499
09500 kid = List((lp*((3*Power(fp, 2)*Power(lp, 4) +
09501 20*fp*Power(lp, 2)*(3*lp*z1 + 16*z2) +
09502 320*(Power(lp, 2)*Power(z1, 2) + 12*lp*z1*z2 +
09503 48*Power(z2, 2)))*c1p[1] + 15360*c2p[1]))/
09504 61440., (lp*(93*Power(fp, 2)*Power(lp, 4) +
09505 20*fp*Power(lp, 2)*(45*lp*z1 + 112*z2) +
09506 320*(7*Power(lp, 2)*Power(z1, 2) + 36*lp*z1*z2 +
09507 48*Power(z2, 2)))*c1p[2])/61440. + (lp*c2p[2])/
09508 4., (lp*(633*Power(fp, 2)*Power(lp, 4) +
09509 20*fp*Power(lp, 2)*(195*lp*z1 + 304*z2) +
09510 320*(19*Power(lp, 2)*Power(z1, 2) + 60*lp*z1*z2 +
09511 48*Power(z2, 2)))*c1p[3])/61440. + (lp*c2p[3])/
09512 4., (lp*(2343*Power(fp, 2)*Power(lp, 4) +
09513 20*fp*Power(lp, 2)*(525*lp*z1 + 592*z2) +
09514 320*(37*Power(lp, 2)*Power(z1, 2) + 84*lp*z1*z2 +
09515 48*Power(z2, 2)))*c1p[4])/61440. + (lp*c2p[4])/4.)
09516
09517 ki = List(kih[1]/kid[1], kih[2]/kid[2], kih[3]/kid[3], kih[4]/kid[4])
09518
09519 k11 = (768*(Power(a1sp[1], 2)*Power(a1sp[2], 4)*Power(a1sp[3], 4)*
09520 Power(a1sp[4], 4)*Power(b1sp[1], 2)*ki[1] +
09521 Power(a1sp[1],
09522 4)*(Power(a1sp[2], 2)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
09523 Power(b1sp[2], 2)*ki[2] +
09524 Power(a1sp[2],
09525 4)*(Power(a1sp[3], 2)*Power(a1sp[4], 4)*
09526 Power(b1sp[3], 2)*ki[3] +
09527 Power(a1sp[3], 4)*Power(a1sp[4], 2)*Power(b1sp[4], 2)*
09528 ki[4]))))/(As1*E0c*
09529 Power(lp,
09530 3)*(Power(a1sp[1], 4)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
09531 Power(b1sp[2], 4)*Power(ki[2], 2) +
09532 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
09533 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
09534 ki[2]*(7*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
09535 ki[3] +
09536 Power(a1sp[3],
09537 2)*(7*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09538 25*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
09539 Power(a1sp[2],
09540 4)*(Power(a1sp[1], 4)*Power(a1sp[4], 4)*Power(b1sp[3], 4)*
09541 Power(ki[3], 2) +
09542 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
09543 Power(b1sp[3], 2)*
09544 ki[3]*(25*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09545 7*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
09546 Power(a1sp[3],
09547 4)*(Power(a1sp[4], 4)*Power(b1sp[1], 4)*
09548 Power(ki[1], 2) +
09549 110*Power(a1sp[1], 2)*Power(a1sp[4], 2)*
09550 Power(b1sp[1], 2)*Power(b1sp[4], 2)*ki[1]*ki[4] +
09551 Power(a1sp[1], 4)*Power(b1sp[4], 4)*
09552 Power(ki[4], 2)))))
09553
09554 k12 = (-96*(Power(a1sp[1], 2)*Power(a1sp[2], 4)*Power(a1sp[3], 4)*
09555 Power(a1sp[4], 4)*Power(b1sp[1], 2)*ki[1] +
09556 Power(a1sp[1],
09557 4)*(3*Power(a1sp[2], 2)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
09558 Power(b1sp[2], 2)*ki[2] +
09559 Power(a1sp[2],
09560 4)*(5*Power(a1sp[3], 2)*Power(a1sp[4], 4)*
09561 Power(b1sp[3], 2)*ki[3] +
09562 7*Power(a1sp[3], 4)*Power(a1sp[4], 2)*
09563 Power(b1sp[4], 2)*ki[4]))))/(As1*E0c*
09564 Power(lp,
09565 2)*(Power(a1sp[1], 4)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
09566 Power(b1sp[2], 4)*Power(ki[2], 2) +
09567 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
09568 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
09569 ki[2]*(7*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
09570 ki[3] +
09571 Power(a1sp[3],
09572 2)*(7*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09573 25*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
09574 Power(a1sp[2],
09575 4)*(Power(a1sp[1], 4)*Power(a1sp[4], 4)*Power(b1sp[3], 4)*
09576 Power(ki[3], 2) +
09577 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
09578 Power(b1sp[3], 2)*
09579 ki[3]*(25*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09580 7*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
09581 Power(a1sp[3],
09582 4)*(Power(a1sp[4], 4)*Power(b1sp[1], 4)*
09583 Power(ki[1], 2) +
09584 110*Power(a1sp[1], 2)*Power(a1sp[4], 2)*
09585 Power(b1sp[1], 2)*Power(b1sp[4], 2)*ki[1]*ki[4] +
09586 Power(a1sp[1], 4)*Power(b1sp[4], 4)*
09587 Power(ki[4], 2)))))
09588
09589 k13 = (-768*(Power(a1sp[1], 2)*Power(a1sp[2], 4)*Power(a1sp[3], 4)*
09590 Power(a1sp[4], 4)*Power(b1sp[1], 2)*ki[1] +
09591 Power(a1sp[1],
09592 4)*(Power(a1sp[2], 2)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
09593 Power(b1sp[2], 2)*ki[2] +
09594 Power(a1sp[2],
09595 4)*(Power(a1sp[3], 2)*Power(a1sp[4], 4)*
09596 Power(b1sp[3], 2)*ki[3] +
09597 Power(a1sp[3], 4)*Power(a1sp[4], 2)*Power(b1sp[4], 2)*
09598 ki[4]))))/(As1*E0c*
09599 Power(lp,
09600 3)*(Power(a1sp[1], 4)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
09601 Power(b1sp[2], 4)*Power(ki[2], 2) +
09602 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
09603 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
09604 ki[2]*(7*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
09605 ki[3] +
09606 Power(a1sp[3],
09607 2)*(7*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09608 25*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
09609 Power(a1sp[2],
09610 4)*(Power(a1sp[1], 4)*Power(a1sp[4], 4)*Power(b1sp[3], 4)*
09611 Power(ki[3], 2) +
09612 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
09613 Power(b1sp[3], 2)*
09614 ki[3]*(25*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09615 7*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
09616 Power(a1sp[3],
09617 4)*(Power(a1sp[4], 4)*Power(b1sp[1], 4)*
09618 Power(ki[1], 2) +
09619 110*Power(a1sp[1], 2)*Power(a1sp[4], 2)*
09620 Power(b1sp[1], 2)*Power(b1sp[4], 2)*ki[1]*ki[4] +
09621 Power(a1sp[1], 4)*Power(b1sp[4], 4)*
09622 Power(ki[4], 2)))))
09623
09624 k14 = (-96*(7*Power(a1sp[1], 2)*Power(a1sp[2], 4)*Power(a1sp[3], 4)*
09625 Power(a1sp[4], 4)*Power(b1sp[1], 2)*ki[1] +
09626 Power(a1sp[1],
09627 4)*(5*Power(a1sp[2], 2)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
09628 Power(b1sp[2], 2)*ki[2] +
09629 Power(a1sp[2],
09630 4)*(3*Power(a1sp[3], 2)*Power(a1sp[4], 4)*
09631 Power(b1sp[3], 2)*ki[3] +
09632 Power(a1sp[3], 4)*Power(a1sp[4], 2)*Power(b1sp[4], 2)*
09633 ki[4]))))/(As1*E0c*
09634 Power(lp,
09635 2)*(Power(a1sp[1], 4)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
09636 Power(b1sp[2], 4)*Power(ki[2], 2) +
09637 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
09638 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
09639 ki[2]*(7*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
09640 ki[3] +
09641 Power(a1sp[3],
09642 2)*(7*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09643 25*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
09644 Power(a1sp[2],
09645 4)*(Power(a1sp[1], 4)*Power(a1sp[4], 4)*Power(b1sp[3], 4)*
09646 Power(ki[3], 2) +
09647 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
09648 Power(b1sp[3], 2)*
09649 ki[3]*(25*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09650 7*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
09651 Power(a1sp[3],
09652 4)*(Power(a1sp[4], 4)*Power(b1sp[1], 4)*
09653 Power(ki[1], 2) +
09654 110*Power(a1sp[1], 2)*Power(a1sp[4], 2)*
09655 Power(b1sp[1], 2)*Power(b1sp[4], 2)*ki[1]*ki[4] +
09656 Power(a1sp[1], 4)*Power(b1sp[4], 4)*
09657 Power(ki[4], 2)))))
09658
09659 f1 = (-3*fp*Power(lp, 2)*Power(a1sp[1], 4)*Power(a1sp[3], 4)*
09660 Power(a1sp[4], 4)*Power(b1sp[2], 4)*Power(ki[2], 2) +
09661 384*Power(a1sp[1], 2)*Power(a1sp[2], 3)*Power(a1sp[3], 2)*
09662 Power(a1sp[4], 2)*b1sp[2]*b2sp[2]*
09663 ki[2]*(Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*ki[3] +
09664 Power(a1sp[3],
09665 2)*(-(Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1]) +
09666 2*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) -
09667 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
09668 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
09669 ki[2]*(4*Power(a1sp[1], 2)*
09670 Power(a1sp[4],
09671 2)*(7*fp*Power(lp, 2) + 48*a2sp[2] - 48*a2sp[3])*
09672 Power(b1sp[3], 2)*ki[3] +
09673 192*Power(a1sp[1], 2)*a1sp[3]*Power(a1sp[4], 2)*b1sp[3]*b2sp[3]*
09674 ki[3] +
09675 Power(a1sp[3],
09676 2)*(2*Power(a1sp[4], 2)*
09677 b1sp[1]*((7*fp*Power(lp, 2) + 96*a2sp[1] - 96*a2sp[2])*
09678 b1sp[1] - 96*a1sp[1]*b2sp[1])*ki[1] +
09679 Power(a1sp[1],
09680 2)*(125*fp*Power(lp, 2) + 384*a2sp[2] - 384*a2sp[4])*
09681 Power(b1sp[4], 2)*ki[4] +
09682 384*Power(a1sp[1], 2)*a1sp[4]*b1sp[4]*b2sp[4]*ki[4])) -
09683 Power(a1sp[2],
09684 4)*(5*fp*Power(lp, 2)*Power(a1sp[1], 4)*Power(a1sp[4], 4)*
09685 Power(b1sp[3], 4)*Power(ki[3], 2) -
09686 384*Power(a1sp[1], 2)*Power(a1sp[3], 3)*Power(a1sp[4], 2)*
09687 b1sp[3]*b2sp[3]*
09688 ki[3]*(-2*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09689 Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
09690 6*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
09691 Power(b1sp[3], 2)*
09692 ki[3]*(Power(a1sp[4], 2)*
09693 b1sp[1]*((25*fp*Power(lp, 2) + 128*a2sp[1] -
09694 128*a2sp[3])*b1sp[1] - 128*a1sp[1]*b2sp[1])*
09695 ki[1] +
09696 2*Power(a1sp[1],
09697 2)*(7*fp*Power(lp, 2) + 32*a2sp[3] - 32*a2sp[4])*
09698 Power(b1sp[4], 2)*ki[4] +
09699 64*Power(a1sp[1], 2)*a1sp[4]*b1sp[4]*b2sp[4]*ki[4]) +
09700 Power(a1sp[3],
09701 4)*(fp*Power(lp, 2)*Power(a1sp[4], 4)*Power(b1sp[1], 4)*
09702 Power(ki[1], 2) +
09703 8*Power(a1sp[1], 2)*Power(a1sp[4], 2)*b1sp[1]*
09704 Power(b1sp[4],
09705 2)*((55*fp*Power(lp, 2) + 144*a2sp[1] - 144*a2sp[4])*
09706 b1sp[1] - 144*a1sp[1]*b2sp[1])*ki[1]*ki[4] +
09707 1152*Power(a1sp[1], 2)*Power(a1sp[4], 3)*
09708 Power(b1sp[1], 2)*b1sp[4]*b2sp[4]*ki[1]*ki[4] +
09709 7*fp*Power(lp, 2)*Power(a1sp[1], 4)*Power(b1sp[4], 4)*
09710 Power(ki[4], 2))))/(8.*
09711 lp*(Power(a1sp[1], 4)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
09712 Power(b1sp[2], 4)*Power(ki[2], 2) +
09713 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
09714 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
09715 ki[2]*(7*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
09716 ki[3] +
09717 Power(a1sp[3],
09718 2)*(7*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09719 25*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
09720 Power(a1sp[2],
09721 4)*(Power(a1sp[1], 4)*Power(a1sp[4], 4)*Power(b1sp[3], 4)*
09722 Power(ki[3], 2) +
09723 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
09724 Power(b1sp[3], 2)*
09725 ki[3]*(25*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09726 7*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
09727 Power(a1sp[3],
09728 4)*(Power(a1sp[4], 4)*Power(b1sp[1], 4)*
09729 Power(ki[1], 2) +
09730 110*Power(a1sp[1], 2)*Power(a1sp[4], 2)*
09731 Power(b1sp[1], 2)*Power(b1sp[4], 2)*ki[1]*ki[4] +
09732 Power(a1sp[1], 4)*Power(b1sp[4], 4)*
09733 Power(ki[4], 2)))))
09734
09735 k21 = (-96*(Power(a1sp[1], 2)*Power(a1sp[2], 4)*Power(a1sp[3], 4)*
09736 Power(a1sp[4], 4)*Power(b1sp[1], 2)*ki[1] +
09737 Power(a1sp[1],
09738 4)*(3*Power(a1sp[2], 2)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
09739 Power(b1sp[2], 2)*ki[2] +
09740 Power(a1sp[2],
09741 4)*(5*Power(a1sp[3], 2)*Power(a1sp[4], 4)*
09742 Power(b1sp[3], 2)*ki[3] +
09743 7*Power(a1sp[3], 4)*Power(a1sp[4], 2)*
09744 Power(b1sp[4], 2)*ki[4]))))/(As1*E0c*
09745 Power(lp,
09746 2)*(Power(a1sp[1], 4)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
09747 Power(b1sp[2], 4)*Power(ki[2], 2) +
09748 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
09749 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
09750 ki[2]*(7*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
09751 ki[3] +
09752 Power(a1sp[3],
09753 2)*(7*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09754 25*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
09755 Power(a1sp[2],
09756 4)*(Power(a1sp[1], 4)*Power(a1sp[4], 4)*Power(b1sp[3], 4)*
09757 Power(ki[3], 2) +
09758 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
09759 Power(b1sp[3], 2)*
09760 ki[3]*(25*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09761 7*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
09762 Power(a1sp[3],
09763 4)*(Power(a1sp[4], 4)*Power(b1sp[1], 4)*
09764 Power(ki[1], 2) +
09765 110*Power(a1sp[1], 2)*Power(a1sp[4], 2)*
09766 Power(b1sp[1], 2)*Power(b1sp[4], 2)*ki[1]*ki[4] +
09767 Power(a1sp[1], 4)*Power(b1sp[4], 4)*
09768 Power(ki[4], 2)))))
09769
09770 k22 = (16*(Power(a1sp[1], 2)*Power(a1sp[2], 4)*Power(a1sp[3], 4)*
09771 Power(a1sp[4], 4)*Power(b1sp[1], 2)*ki[1] +
09772 Power(a1sp[1],
09773 4)*(7*Power(a1sp[2], 2)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
09774 Power(b1sp[2], 2)*ki[2] +
09775 Power(a1sp[2],
09776 4)*(19*Power(a1sp[3], 2)*Power(a1sp[4], 4)*
09777 Power(b1sp[3], 2)*ki[3] +
09778 37*Power(a1sp[3], 4)*Power(a1sp[4], 2)*
09779 Power(b1sp[4], 2)*ki[4]))))/(As1*E0c*
09780 lp*(Power(a1sp[1], 4)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
09781 Power(b1sp[2], 4)*Power(ki[2], 2) +
09782 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
09783 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
09784 ki[2]*(7*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
09785 ki[3] +
09786 Power(a1sp[3],
09787 2)*(7*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09788 25*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
09789 Power(a1sp[2],
09790 4)*(Power(a1sp[1], 4)*Power(a1sp[4], 4)*Power(b1sp[3], 4)*
09791 Power(ki[3], 2) +
09792 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
09793 Power(b1sp[3], 2)*
09794 ki[3]*(25*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09795 7*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
09796 Power(a1sp[3],
09797 4)*(Power(a1sp[4], 4)*Power(b1sp[1], 4)*
09798 Power(ki[1], 2) +
09799 110*Power(a1sp[1], 2)*Power(a1sp[4], 2)*
09800 Power(b1sp[1], 2)*Power(b1sp[4], 2)*ki[1]*ki[4] +
09801 Power(a1sp[1], 4)*Power(b1sp[4], 4)*
09802 Power(ki[4], 2)))))
09803
09804 k23 = (96*(Power(a1sp[1], 2)*Power(a1sp[2], 4)*Power(a1sp[3], 4)*
09805 Power(a1sp[4], 4)*Power(b1sp[1], 2)*ki[1] +
09806 Power(a1sp[1],
09807 4)*(3*Power(a1sp[2], 2)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
09808 Power(b1sp[2], 2)*ki[2] +
09809 Power(a1sp[2],
09810 4)*(5*Power(a1sp[3], 2)*Power(a1sp[4], 4)*
09811 Power(b1sp[3], 2)*ki[3] +
09812 7*Power(a1sp[3], 4)*Power(a1sp[4], 2)*
09813 Power(b1sp[4], 2)*ki[4]))))/(As1*E0c*
09814 Power(lp,
09815 2)*(Power(a1sp[1], 4)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
09816 Power(b1sp[2], 4)*Power(ki[2], 2) +
09817 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
09818 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
09819 ki[2]*(7*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
09820 ki[3] +
09821 Power(a1sp[3],
09822 2)*(7*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09823 25*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
09824 Power(a1sp[2],
09825 4)*(Power(a1sp[1], 4)*Power(a1sp[4], 4)*Power(b1sp[3], 4)*
09826 Power(ki[3], 2) +
09827 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
09828 Power(b1sp[3], 2)*
09829 ki[3]*(25*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09830 7*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
09831 Power(a1sp[3],
09832 4)*(Power(a1sp[4], 4)*Power(b1sp[1], 4)*
09833 Power(ki[1], 2) +
09834 110*Power(a1sp[1], 2)*Power(a1sp[4], 2)*
09835 Power(b1sp[1], 2)*Power(b1sp[4], 2)*ki[1]*ki[4] +
09836 Power(a1sp[1], 4)*Power(b1sp[4], 4)*
09837 Power(ki[4], 2)))))
09838
09839 k24 = (16*(5*Power(a1sp[1], 2)*Power(a1sp[2], 4)*Power(a1sp[3], 4)*
09840 Power(a1sp[4], 4)*Power(b1sp[1], 2)*ki[1] +
09841 Power(a1sp[1],
09842 4)*(11*Power(a1sp[2], 2)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
09843 Power(b1sp[2], 2)*ki[2] +
09844 Power(a1sp[2],
09845 4)*(11*Power(a1sp[3], 2)*Power(a1sp[4], 4)*
09846 Power(b1sp[3], 2)*ki[3] +
09847 5*Power(a1sp[3], 4)*Power(a1sp[4], 2)*
09848 Power(b1sp[4], 2)*ki[4]))))/(As1*E0c*
09849 lp*(Power(a1sp[1], 4)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
09850 Power(b1sp[2], 4)*Power(ki[2], 2) +
09851 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
09852 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
09853 ki[2]*(7*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
09854 ki[3] +
09855 Power(a1sp[3],
09856 2)*(7*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09857 25*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
09858 Power(a1sp[2],
09859 4)*(Power(a1sp[1], 4)*Power(a1sp[4], 4)*Power(b1sp[3], 4)*
09860 Power(ki[3], 2) +
09861 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
09862 Power(b1sp[3], 2)*
09863 ki[3]*(25*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09864 7*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
09865 Power(a1sp[3],
09866 4)*(Power(a1sp[4], 4)*Power(b1sp[1], 4)*
09867 Power(ki[1], 2) +
09868 110*Power(a1sp[1], 2)*Power(a1sp[4], 2)*
09869 Power(b1sp[1], 2)*Power(b1sp[4], 2)*ki[1]*ki[4] +
09870 Power(a1sp[1], 4)*Power(b1sp[4], 4)*
09871 Power(ki[4], 2)))))
09872
09873 f2 = (Power(a1sp[1], 4)*Power(a1sp[3], 4)*
09874 Power(a1sp[4], 4)*(13*fp*Power(lp, 2) + 192*a2sp[2])*
09875 Power(b1sp[2], 4)*Power(ki[2], 2) -
09876 192*Power(a1sp[1], 4)*a1sp[2]*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
09877 Power(b1sp[2], 3)*b2sp[2]*Power(ki[2], 2) -
09878 192*Power(a1sp[1], 2)*Power(a1sp[2], 3)*Power(a1sp[3], 2)*
09879 Power(a1sp[4], 2)*b1sp[2]*b2sp[2]*
09880 ki[2]*(31*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
09881 ki[3] -
09882 5*Power(a1sp[3],
09883 2)*(Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] -
09884 17*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
09885 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
09886 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
09887 ki[2]*(Power(a1sp[1], 2)*
09888 Power(a1sp[4],
09889 2)*(151*fp*Power(lp, 2) + 2976*a2sp[2] - 1632*a2sp[3])*
09890 Power(b1sp[3], 2)*ki[3] +
09891 1632*Power(a1sp[1], 2)*a1sp[3]*Power(a1sp[4], 2)*b1sp[3]*
09892 b2sp[3]*ki[3] +
09893 Power(a1sp[3],
09894 2)*(Power(a1sp[4], 2)*
09895 b1sp[1]*((25*fp*Power(lp, 2) + 1824*a2sp[1] -
09896 480*a2sp[2])*b1sp[1] - 1824*a1sp[1]*b2sp[1])*
09897 ki[1] +
09898 Power(a1sp[1],
09899 2)*(763*fp*Power(lp, 2) + 8160*a2sp[2] -
09900 3360*a2sp[4])*Power(b1sp[4], 2)*ki[4] +
09901 3360*Power(a1sp[1], 2)*a1sp[4]*b1sp[4]*b2sp[4]*ki[4])) +
09902 Power(a1sp[2],
09903 4)*(Power(a1sp[1], 4)*
09904 Power(a1sp[4], 4)*(37*fp*Power(lp, 2) + 192*a2sp[3])*
09905 Power(b1sp[3], 4)*Power(ki[3], 2) -
09906 192*Power(a1sp[1], 4)*a1sp[3]*Power(a1sp[4], 4)*
09907 Power(b1sp[3], 3)*b2sp[3]*Power(ki[3], 2) -
09908 192*Power(a1sp[1], 2)*Power(a1sp[3], 3)*Power(a1sp[4], 2)*
09909 b1sp[3]*b2sp[3]*
09910 ki[3]*(-11*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09911 43*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
09912 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
09913 Power(b1sp[3], 2)*
09914 ki[3]*(Power(a1sp[4], 2)*
09915 b1sp[1]*((163*fp*Power(lp, 2) + 5856*a2sp[1] -
09916 1056*a2sp[3])*b1sp[1] - 5856*a1sp[1]*b2sp[1])*
09917 ki[1] +
09918 Power(a1sp[1],
09919 2)*(361*fp*Power(lp, 2) + 4128*a2sp[3] -
09920 2784*a2sp[4])*Power(b1sp[4], 2)*ki[4] +
09921 2784*Power(a1sp[1], 2)*a1sp[4]*b1sp[4]*b2sp[4]*ki[4]) +
09922 Power(a1sp[3],
09923 4)*(Power(a1sp[4], 4)*
09924 Power(b1sp[1],
09925 3)*((fp*Power(lp, 2) + 192*a2sp[1])*b1sp[1] -
09926 192*a1sp[1]*b2sp[1])*Power(ki[1], 2) +
09927 2*Power(a1sp[1], 2)*Power(a1sp[4], 2)*b1sp[1]*
09928 Power(b1sp[4],
09929 2)*((523*fp*Power(lp, 2) + 12192*a2sp[1] -
09930 1632*a2sp[4])*b1sp[1] -
09931 12192*a1sp[1]*b2sp[1])*ki[1]*ki[4] +
09932 3264*Power(a1sp[1], 2)*Power(a1sp[4], 3)*
09933 Power(b1sp[1], 2)*b1sp[4]*b2sp[4]*ki[1]*ki[4] +
09934 Power(a1sp[1], 4)*(73*fp*Power(lp, 2) + 192*a2sp[4])*
09935 Power(b1sp[4], 4)*Power(ki[4], 2) -
09936 192*Power(a1sp[1], 4)*a1sp[4]*Power(b1sp[4], 3)*b2sp[4]*
09937 Power(ki[4], 2))))/(192.*(Power(a1sp[1], 4)*
09938 Power(a1sp[3], 4)*Power(a1sp[4], 4)*Power(b1sp[2], 4)*
09939 Power(ki[2], 2) +
09940 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
09941 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
09942 ki[2]*(7*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
09943 ki[3] +
09944 Power(a1sp[3],
09945 2)*(7*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09946 25*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
09947 Power(a1sp[2],
09948 4)*(Power(a1sp[1], 4)*Power(a1sp[4], 4)*Power(b1sp[3], 4)*
09949 Power(ki[3], 2) +
09950 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
09951 Power(b1sp[3], 2)*
09952 ki[3]*(25*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09953 7*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
09954 Power(a1sp[3],
09955 4)*(Power(a1sp[4], 4)*Power(b1sp[1], 4)*
09956 Power(ki[1], 2) +
09957 110*Power(a1sp[1], 2)*Power(a1sp[4], 2)*
09958 Power(b1sp[1], 2)*Power(b1sp[4], 2)*ki[1]*ki[4] +
09959 Power(a1sp[1], 4)*Power(b1sp[4], 4)*
09960 Power(ki[4], 2)))))
09961
09962 k31 = (-768*(Power(a1sp[1], 2)*Power(a1sp[2], 4)*Power(a1sp[3], 4)*
09963 Power(a1sp[4], 4)*Power(b1sp[1], 2)*ki[1] +
09964 Power(a1sp[1],
09965 4)*(Power(a1sp[2], 2)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
09966 Power(b1sp[2], 2)*ki[2] +
09967 Power(a1sp[2],
09968 4)*(Power(a1sp[3], 2)*Power(a1sp[4], 4)*
09969 Power(b1sp[3], 2)*ki[3] +
09970 Power(a1sp[3], 4)*Power(a1sp[4], 2)*Power(b1sp[4], 2)*
09971 ki[4]))))/(As1*E0c*
09972 Power(lp,
09973 3)*(Power(a1sp[1], 4)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
09974 Power(b1sp[2], 4)*Power(ki[2], 2) +
09975 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
09976 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
09977 ki[2]*(7*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
09978 ki[3] +
09979 Power(a1sp[3],
09980 2)*(7*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09981 25*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
09982 Power(a1sp[2],
09983 4)*(Power(a1sp[1], 4)*Power(a1sp[4], 4)*Power(b1sp[3], 4)*
09984 Power(ki[3], 2) +
09985 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
09986 Power(b1sp[3], 2)*
09987 ki[3]*(25*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
09988 7*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
09989 Power(a1sp[3],
09990 4)*(Power(a1sp[4], 4)*Power(b1sp[1], 4)*
09991 Power(ki[1], 2) +
09992 110*Power(a1sp[1], 2)*Power(a1sp[4], 2)*
09993 Power(b1sp[1], 2)*Power(b1sp[4], 2)*ki[1]*ki[4] +
09994 Power(a1sp[1], 4)*Power(b1sp[4], 4)*
09995 Power(ki[4], 2)))))
09996
09997 k32 = (96*(Power(a1sp[1], 2)*Power(a1sp[2], 4)*Power(a1sp[3], 4)*
09998 Power(a1sp[4], 4)*Power(b1sp[1], 2)*ki[1] +
09999 Power(a1sp[1],
10000 4)*(3*Power(a1sp[2], 2)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
10001 Power(b1sp[2], 2)*ki[2] +
10002 Power(a1sp[2],
10003 4)*(5*Power(a1sp[3], 2)*Power(a1sp[4], 4)*
10004 Power(b1sp[3], 2)*ki[3] +
10005 7*Power(a1sp[3], 4)*Power(a1sp[4], 2)*
10006 Power(b1sp[4], 2)*ki[4]))))/(As1*E0c*
10007 Power(lp,
10008 2)*(Power(a1sp[1], 4)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
10009 Power(b1sp[2], 4)*Power(ki[2], 2) +
10010 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
10011 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
10012 ki[2]*(7*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
10013 ki[3] +
10014 Power(a1sp[3],
10015 2)*(7*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10016 25*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
10017 Power(a1sp[2],
10018 4)*(Power(a1sp[1], 4)*Power(a1sp[4], 4)*Power(b1sp[3], 4)*
10019 Power(ki[3], 2) +
10020 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
10021 Power(b1sp[3], 2)*
10022 ki[3]*(25*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10023 7*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
10024 Power(a1sp[3],
10025 4)*(Power(a1sp[4], 4)*Power(b1sp[1], 4)*
10026 Power(ki[1], 2) +
10027 110*Power(a1sp[1], 2)*Power(a1sp[4], 2)*
10028 Power(b1sp[1], 2)*Power(b1sp[4], 2)*ki[1]*ki[4] +
10029 Power(a1sp[1], 4)*Power(b1sp[4], 4)*
10030 Power(ki[4], 2)))))
10031
10032 k33 = (768*(Power(a1sp[1], 2)*Power(a1sp[2], 4)*Power(a1sp[3], 4)*
10033 Power(a1sp[4], 4)*Power(b1sp[1], 2)*ki[1] +
10034 Power(a1sp[1],
10035 4)*(Power(a1sp[2], 2)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
10036 Power(b1sp[2], 2)*ki[2] +
10037 Power(a1sp[2],
10038 4)*(Power(a1sp[3], 2)*Power(a1sp[4], 4)*
10039 Power(b1sp[3], 2)*ki[3] +
10040 Power(a1sp[3], 4)*Power(a1sp[4], 2)*Power(b1sp[4], 2)*
10041 ki[4]))))/(As1*E0c*
10042 Power(lp,
10043 3)*(Power(a1sp[1], 4)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
10044 Power(b1sp[2], 4)*Power(ki[2], 2) +
10045 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
10046 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
10047 ki[2]*(7*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
10048 ki[3] +
10049 Power(a1sp[3],
10050 2)*(7*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10051 25*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
10052 Power(a1sp[2],
10053 4)*(Power(a1sp[1], 4)*Power(a1sp[4], 4)*Power(b1sp[3], 4)*
10054 Power(ki[3], 2) +
10055 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
10056 Power(b1sp[3], 2)*
10057 ki[3]*(25*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10058 7*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
10059 Power(a1sp[3],
10060 4)*(Power(a1sp[4], 4)*Power(b1sp[1], 4)*
10061 Power(ki[1], 2) +
10062 110*Power(a1sp[1], 2)*Power(a1sp[4], 2)*
10063 Power(b1sp[1], 2)*Power(b1sp[4], 2)*ki[1]*ki[4] +
10064 Power(a1sp[1], 4)*Power(b1sp[4], 4)*
10065 Power(ki[4], 2)))))
10066
10067 k34 = (96*(7*Power(a1sp[1], 2)*Power(a1sp[2], 4)*Power(a1sp[3], 4)*
10068 Power(a1sp[4], 4)*Power(b1sp[1], 2)*ki[1] +
10069 Power(a1sp[1],
10070 4)*(5*Power(a1sp[2], 2)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
10071 Power(b1sp[2], 2)*ki[2] +
10072 Power(a1sp[2],
10073 4)*(3*Power(a1sp[3], 2)*Power(a1sp[4], 4)*
10074 Power(b1sp[3], 2)*ki[3] +
10075 Power(a1sp[3], 4)*Power(a1sp[4], 2)*Power(b1sp[4], 2)*
10076 ki[4]))))/(As1*E0c*
10077 Power(lp,
10078 2)*(Power(a1sp[1], 4)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
10079 Power(b1sp[2], 4)*Power(ki[2], 2) +
10080 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
10081 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
10082 ki[2]*(7*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
10083 ki[3] +
10084 Power(a1sp[3],
10085 2)*(7*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10086 25*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
10087 Power(a1sp[2],
10088 4)*(Power(a1sp[1], 4)*Power(a1sp[4], 4)*Power(b1sp[3], 4)*
10089 Power(ki[3], 2) +
10090 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
10091 Power(b1sp[3], 2)*
10092 ki[3]*(25*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10093 7*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
10094 Power(a1sp[3],
10095 4)*(Power(a1sp[4], 4)*Power(b1sp[1], 4)*
10096 Power(ki[1], 2) +
10097 110*Power(a1sp[1], 2)*Power(a1sp[4], 2)*
10098 Power(b1sp[1], 2)*Power(b1sp[4], 2)*ki[1]*ki[4] +
10099 Power(a1sp[1], 4)*Power(b1sp[4], 4)*
10100 Power(ki[4], 2)))))
10101
10102 f3 = (-5*fp*Power(lp, 2)*Power(a1sp[1], 4)*Power(a1sp[3], 4)*
10103 Power(a1sp[4], 4)*Power(b1sp[2], 4)*Power(ki[2], 2) -
10104 384*Power(a1sp[1], 2)*Power(a1sp[2], 3)*Power(a1sp[3], 2)*
10105 Power(a1sp[4], 2)*b1sp[2]*b2sp[2]*
10106 ki[2]*(Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*ki[3] +
10107 Power(a1sp[3],
10108 2)*(-(Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1]) +
10109 2*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) -
10110 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
10111 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
10112 ki[2]*(4*Power(a1sp[1], 2)*
10113 Power(a1sp[4],
10114 2)*(7*fp*Power(lp, 2) - 48*a2sp[2] + 48*a2sp[3])*
10115 Power(b1sp[3], 2)*ki[3] -
10116 192*Power(a1sp[1], 2)*a1sp[3]*Power(a1sp[4], 2)*b1sp[3]*b2sp[3]*
10117 ki[3] +
10118 3*Power(a1sp[3],
10119 2)*(2*Power(a1sp[4], 2)*
10120 b1sp[1]*((7*fp*Power(lp, 2) - 32*a2sp[1] + 32*a2sp[2])*
10121 b1sp[1] + 32*a1sp[1]*b2sp[1])*ki[1] +
10122 Power(a1sp[1],
10123 2)*(25*fp*Power(lp, 2) - 128*a2sp[2] + 128*a2sp[4])*
10124 Power(b1sp[4], 2)*ki[4] -
10125 128*Power(a1sp[1], 2)*a1sp[4]*b1sp[4]*b2sp[4]*ki[4])) -
10126 Power(a1sp[2],
10127 4)*(3*fp*Power(lp, 2)*Power(a1sp[1], 4)*Power(a1sp[4], 4)*
10128 Power(b1sp[3], 4)*Power(ki[3], 2) +
10129 384*Power(a1sp[1], 2)*Power(a1sp[3], 3)*Power(a1sp[4], 2)*
10130 b1sp[3]*b2sp[3]*
10131 ki[3]*(-2*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10132 Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
10133 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
10134 Power(b1sp[3], 2)*
10135 ki[3]*(Power(a1sp[4], 2)*
10136 b1sp[1]*((125*fp*Power(lp, 2) - 384*a2sp[1] +
10137 384*a2sp[3])*b1sp[1] + 384*a1sp[1]*b2sp[1])*
10138 ki[1] +
10139 2*Power(a1sp[1],
10140 2)*(7*fp*Power(lp, 2) - 96*a2sp[3] + 96*a2sp[4])*
10141 Power(b1sp[4], 2)*ki[4] -
10142 192*Power(a1sp[1], 2)*a1sp[4]*b1sp[4]*b2sp[4]*ki[4]) +
10143 Power(a1sp[3],
10144 4)*(7*fp*Power(lp, 2)*Power(a1sp[4], 4)*Power(b1sp[1], 4)*
10145 Power(ki[1], 2) +
10146 8*Power(a1sp[1], 2)*Power(a1sp[4], 2)*b1sp[1]*
10147 Power(b1sp[4],
10148 2)*((55*fp*Power(lp, 2) - 144*a2sp[1] + 144*a2sp[4])*
10149 b1sp[1] + 144*a1sp[1]*b2sp[1])*ki[1]*ki[4] -
10150 1152*Power(a1sp[1], 2)*Power(a1sp[4], 3)*
10151 Power(b1sp[1], 2)*b1sp[4]*b2sp[4]*ki[1]*ki[4] +
10152 fp*Power(lp, 2)*Power(a1sp[1], 4)*Power(b1sp[4], 4)*
10153 Power(ki[4], 2))))/(8.*
10154 lp*(Power(a1sp[1], 4)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
10155 Power(b1sp[2], 4)*Power(ki[2], 2) +
10156 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
10157 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
10158 ki[2]*(7*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
10159 ki[3] +
10160 Power(a1sp[3],
10161 2)*(7*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10162 25*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
10163 Power(a1sp[2],
10164 4)*(Power(a1sp[1], 4)*Power(a1sp[4], 4)*Power(b1sp[3], 4)*
10165 Power(ki[3], 2) +
10166 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
10167 Power(b1sp[3], 2)*
10168 ki[3]*(25*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10169 7*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
10170 Power(a1sp[3],
10171 4)*(Power(a1sp[4], 4)*Power(b1sp[1], 4)*
10172 Power(ki[1], 2) +
10173 110*Power(a1sp[1], 2)*Power(a1sp[4], 2)*
10174 Power(b1sp[1], 2)*Power(b1sp[4], 2)*ki[1]*ki[4] +
10175 Power(a1sp[1], 4)*Power(b1sp[4], 4)*
10176 Power(ki[4], 2)))))
10177
10178 k41 = (-96*(7*Power(a1sp[1], 2)*Power(a1sp[2], 4)*Power(a1sp[3], 4)*
10179 Power(a1sp[4], 4)*Power(b1sp[1], 2)*ki[1] +
10180 Power(a1sp[1],
10181 4)*(5*Power(a1sp[2], 2)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
10182 Power(b1sp[2], 2)*ki[2] +
10183 Power(a1sp[2],
10184 4)*(3*Power(a1sp[3], 2)*Power(a1sp[4], 4)*
10185 Power(b1sp[3], 2)*ki[3] +
10186 Power(a1sp[3], 4)*Power(a1sp[4], 2)*Power(b1sp[4], 2)*
10187 ki[4]))))/(As1*E0c*
10188 Power(lp,
10189 2)*(Power(a1sp[1], 4)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
10190 Power(b1sp[2], 4)*Power(ki[2], 2) +
10191 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
10192 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
10193 ki[2]*(7*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
10194 ki[3] +
10195 Power(a1sp[3],
10196 2)*(7*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10197 25*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
10198 Power(a1sp[2],
10199 4)*(Power(a1sp[1], 4)*Power(a1sp[4], 4)*Power(b1sp[3], 4)*
10200 Power(ki[3], 2) +
10201 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
10202 Power(b1sp[3], 2)*
10203 ki[3]*(25*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10204 7*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
10205 Power(a1sp[3],
10206 4)*(Power(a1sp[4], 4)*Power(b1sp[1], 4)*
10207 Power(ki[1], 2) +
10208 110*Power(a1sp[1], 2)*Power(a1sp[4], 2)*
10209 Power(b1sp[1], 2)*Power(b1sp[4], 2)*ki[1]*ki[4] +
10210 Power(a1sp[1], 4)*Power(b1sp[4], 4)*
10211 Power(ki[4], 2)))))
10212
10213 k42 = (16*(5*Power(a1sp[1], 2)*Power(a1sp[2], 4)*Power(a1sp[3], 4)*
10214 Power(a1sp[4], 4)*Power(b1sp[1], 2)*ki[1] +
10215 Power(a1sp[1],
10216 4)*(11*Power(a1sp[2], 2)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
10217 Power(b1sp[2], 2)*ki[2] +
10218 Power(a1sp[2],
10219 4)*(11*Power(a1sp[3], 2)*Power(a1sp[4], 4)*
10220 Power(b1sp[3], 2)*ki[3] +
10221 5*Power(a1sp[3], 4)*Power(a1sp[4], 2)*
10222 Power(b1sp[4], 2)*ki[4]))))/(As1*E0c*
10223 lp*(Power(a1sp[1], 4)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
10224 Power(b1sp[2], 4)*Power(ki[2], 2) +
10225 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
10226 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
10227 ki[2]*(7*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
10228 ki[3] +
10229 Power(a1sp[3],
10230 2)*(7*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10231 25*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
10232 Power(a1sp[2],
10233 4)*(Power(a1sp[1], 4)*Power(a1sp[4], 4)*Power(b1sp[3], 4)*
10234 Power(ki[3], 2) +
10235 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
10236 Power(b1sp[3], 2)*
10237 ki[3]*(25*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10238 7*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
10239 Power(a1sp[3],
10240 4)*(Power(a1sp[4], 4)*Power(b1sp[1], 4)*
10241 Power(ki[1], 2) +
10242 110*Power(a1sp[1], 2)*Power(a1sp[4], 2)*
10243 Power(b1sp[1], 2)*Power(b1sp[4], 2)*ki[1]*ki[4] +
10244 Power(a1sp[1], 4)*Power(b1sp[4], 4)*
10245 Power(ki[4], 2)))))
10246
10247 k43 = (96*(7*Power(a1sp[1], 2)*Power(a1sp[2], 4)*Power(a1sp[3], 4)*
10248 Power(a1sp[4], 4)*Power(b1sp[1], 2)*ki[1] +
10249 Power(a1sp[1],
10250 4)*(5*Power(a1sp[2], 2)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
10251 Power(b1sp[2], 2)*ki[2] +
10252 Power(a1sp[2],
10253 4)*(3*Power(a1sp[3], 2)*Power(a1sp[4], 4)*
10254 Power(b1sp[3], 2)*ki[3] +
10255 Power(a1sp[3], 4)*Power(a1sp[4], 2)*Power(b1sp[4], 2)*
10256 ki[4]))))/(As1*E0c*
10257 Power(lp,
10258 2)*(Power(a1sp[1], 4)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
10259 Power(b1sp[2], 4)*Power(ki[2], 2) +
10260 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
10261 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
10262 ki[2]*(7*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
10263 ki[3] +
10264 Power(a1sp[3],
10265 2)*(7*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10266 25*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
10267 Power(a1sp[2],
10268 4)*(Power(a1sp[1], 4)*Power(a1sp[4], 4)*Power(b1sp[3], 4)*
10269 Power(ki[3], 2) +
10270 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
10271 Power(b1sp[3], 2)*
10272 ki[3]*(25*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10273 7*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
10274 Power(a1sp[3],
10275 4)*(Power(a1sp[4], 4)*Power(b1sp[1], 4)*
10276 Power(ki[1], 2) +
10277 110*Power(a1sp[1], 2)*Power(a1sp[4], 2)*
10278 Power(b1sp[1], 2)*Power(b1sp[4], 2)*ki[1]*ki[4] +
10279 Power(a1sp[1], 4)*Power(b1sp[4], 4)*
10280 Power(ki[4], 2)))))
10281
10282 k44 = (16*(37*Power(a1sp[1], 2)*Power(a1sp[2], 4)*Power(a1sp[3], 4)*
10283 Power(a1sp[4], 4)*Power(b1sp[1], 2)*ki[1] +
10284 Power(a1sp[1],
10285 4)*(19*Power(a1sp[2], 2)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
10286 Power(b1sp[2], 2)*ki[2] +
10287 Power(a1sp[2],
10288 4)*(7*Power(a1sp[3], 2)*Power(a1sp[4], 4)*
10289 Power(b1sp[3], 2)*ki[3] +
10290 Power(a1sp[3], 4)*Power(a1sp[4], 2)*Power(b1sp[4], 2)*
10291 ki[4]))))/(As1*E0c*
10292 lp*(Power(a1sp[1], 4)*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
10293 Power(b1sp[2], 4)*Power(ki[2], 2) +
10294 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
10295 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
10296 ki[2]*(7*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
10297 ki[3] +
10298 Power(a1sp[3],
10299 2)*(7*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10300 25*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
10301 Power(a1sp[2],
10302 4)*(Power(a1sp[1], 4)*Power(a1sp[4], 4)*Power(b1sp[3], 4)*
10303 Power(ki[3], 2) +
10304 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
10305 Power(b1sp[3], 2)*
10306 ki[3]*(25*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10307 7*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
10308 Power(a1sp[3],
10309 4)*(Power(a1sp[4], 4)*Power(b1sp[1], 4)*
10310 Power(ki[1], 2) +
10311 110*Power(a1sp[1], 2)*Power(a1sp[4], 2)*
10312 Power(b1sp[1], 2)*Power(b1sp[4], 2)*ki[1]*ki[4] +
10313 Power(a1sp[1], 4)*Power(b1sp[4], 4)*
10314 Power(ki[4], 2)))))
10315
10316 f4 = (-(Power(a1sp[1], 4)*Power(a1sp[3], 4)*
10317 Power(a1sp[4], 4)*(37*fp*Power(lp, 2) + 192*a2sp[2])*
10318 Power(b1sp[2], 4)*Power(ki[2], 2)) +
10319 192*Power(a1sp[1], 4)*a1sp[2]*Power(a1sp[3], 4)*Power(a1sp[4], 4)*
10320 Power(b1sp[2], 3)*b2sp[2]*Power(ki[2], 2) -
10321 192*Power(a1sp[1], 2)*Power(a1sp[2], 3)*Power(a1sp[3], 2)*
10322 Power(a1sp[4], 2)*b1sp[2]*b2sp[2]*
10323 ki[2]*(17*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
10324 ki[3] +
10325 Power(a1sp[3],
10326 2)*(-43*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10327 11*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) -
10328 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
10329 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
10330 ki[2]*(Power(a1sp[1], 2)*
10331 Power(a1sp[4],
10332 2)*(151*fp*Power(lp, 2) - 1632*a2sp[2] + 2976*a2sp[3])*
10333 Power(b1sp[3], 2)*ki[3] -
10334 2976*Power(a1sp[1], 2)*a1sp[3]*Power(a1sp[4], 2)*b1sp[3]*
10335 b2sp[3]*ki[3] +
10336 Power(a1sp[3],
10337 2)*(Power(a1sp[4], 2)*
10338 b1sp[1]*((361*fp*Power(lp, 2) - 2784*a2sp[1] +
10339 4128*a2sp[2])*b1sp[1] + 2784*a1sp[1]*b2sp[1])*
10340 ki[1] +
10341 Power(a1sp[1],
10342 2)*(163*fp*Power(lp, 2) - 1056*a2sp[2] +
10343 5856*a2sp[4])*Power(b1sp[4], 2)*ki[4] -
10344 5856*Power(a1sp[1], 2)*a1sp[4]*b1sp[4]*b2sp[4]*ki[4])) -
10345 Power(a1sp[2],
10346 4)*(Power(a1sp[1], 4)*
10347 Power(a1sp[4], 4)*(13*fp*Power(lp, 2) + 192*a2sp[3])*
10348 Power(b1sp[3], 4)*Power(ki[3], 2) -
10349 192*Power(a1sp[1], 4)*a1sp[3]*Power(a1sp[4], 4)*
10350 Power(b1sp[3], 3)*b2sp[3]*Power(ki[3], 2) +
10351 960*Power(a1sp[1], 2)*Power(a1sp[3], 3)*Power(a1sp[4], 2)*
10352 b1sp[3]*b2sp[3]*
10353 ki[3]*(-17*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10354 Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
10355 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
10356 Power(b1sp[3], 2)*
10357 ki[3]*(Power(a1sp[4], 2)*
10358 b1sp[1]*((763*fp*Power(lp, 2) - 3360*a2sp[1] +
10359 8160*a2sp[3])*b1sp[1] + 3360*a1sp[1]*b2sp[1])*
10360 ki[1] +
10361 Power(a1sp[1],
10362 2)*(25*fp*Power(lp, 2) - 480*a2sp[3] + 1824*a2sp[4])*
10363 Power(b1sp[4], 2)*ki[4] -
10364 1824*Power(a1sp[1], 2)*a1sp[4]*b1sp[4]*b2sp[4]*ki[4]) +
10365 Power(a1sp[3],
10366 4)*(Power(a1sp[4], 4)*
10367 Power(b1sp[1],
10368 3)*((73*fp*Power(lp, 2) + 192*a2sp[1])*b1sp[1] -
10369 192*a1sp[1]*b2sp[1])*Power(ki[1], 2) +
10370 2*Power(a1sp[1], 2)*Power(a1sp[4], 2)*b1sp[1]*
10371 Power(b1sp[4],
10372 2)*((523*fp*Power(lp, 2) - 1632*a2sp[1] +
10373 12192*a2sp[4])*b1sp[1] +
10374 1632*a1sp[1]*b2sp[1])*ki[1]*ki[4] -
10375 24384*Power(a1sp[1], 2)*Power(a1sp[4], 3)*
10376 Power(b1sp[1], 2)*b1sp[4]*b2sp[4]*ki[1]*ki[4] +
10377 Power(a1sp[1], 4)*(fp*Power(lp, 2) + 192*a2sp[4])*
10378 Power(b1sp[4], 4)*Power(ki[4], 2) -
10379 192*Power(a1sp[1], 4)*a1sp[4]*Power(b1sp[4], 3)*b2sp[4]*
10380 Power(ki[4], 2))))/(192.*(Power(a1sp[1], 4)*
10381 Power(a1sp[3], 4)*Power(a1sp[4], 4)*Power(b1sp[2], 4)*
10382 Power(ki[2], 2) +
10383 2*Power(a1sp[1], 2)*Power(a1sp[2], 2)*Power(a1sp[3], 2)*
10384 Power(a1sp[4], 2)*Power(b1sp[2], 2)*
10385 ki[2]*(7*Power(a1sp[1], 2)*Power(a1sp[4], 2)*Power(b1sp[3], 2)*
10386 ki[3] +
10387 Power(a1sp[3],
10388 2)*(7*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10389 25*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4])) +
10390 Power(a1sp[2],
10391 4)*(Power(a1sp[1], 4)*Power(a1sp[4], 4)*Power(b1sp[3], 4)*
10392 Power(ki[3], 2) +
10393 2*Power(a1sp[1], 2)*Power(a1sp[3], 2)*Power(a1sp[4], 2)*
10394 Power(b1sp[3], 2)*
10395 ki[3]*(25*Power(a1sp[4], 2)*Power(b1sp[1], 2)*ki[1] +
10396 7*Power(a1sp[1], 2)*Power(b1sp[4], 2)*ki[4]) +
10397 Power(a1sp[3],
10398 4)*(Power(a1sp[4], 4)*Power(b1sp[1], 4)*
10399 Power(ki[1], 2) +
10400 110*Power(a1sp[1], 2)*Power(a1sp[4], 2)*
10401 Power(b1sp[1], 2)*Power(b1sp[4], 2)*ki[1]*ki[4] +
10402 Power(a1sp[1], 4)*Power(b1sp[4], 4)*
10403 Power(ki[4], 2)))))
10404
10405 kp = List(List(k11, k12, k13, k14), List(k21, k22, k23, k24),
10406 List(k31, k32, k33, k34), List(k41, k42, k43, k44))
10407
10408 fkp = List(List(-f1), List(-f2), List(-f3), List(-f4))
10409
10410 Null
