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