Clear["Global`*"]​​​​p[x_]:=A1*Exp[-x/l]+A2*Exp[x/l];​​u[x_]:=A3+A4*x-(h/c)*(A1*Exp[-x/l]+A2*Exp[x/l]);​​​​eqn3=μ''[x]+(q/ϵ)*p'[x]-μ[x]/λ^2+(1/λ^2)*(μhat+α*u'[x])==0;​​μ=FullSimplify[DSolveValue[eqn3,μ,x]];​​​​eqn9=c*u'[(w/2)]+h*p'[(w/2)]+(α/β)*(μ[(w/2)]-μhat-α*u'[(w/2)])==σ;​​eqn4=h*u'[(w/2)]+b*p'[(w/2)]==0;​​eqn5=h*u'[-(w/2)]+b*p'[-(w/2)]==0;​​eqn6=u[0]==0;​​eqn7=μ[(w/2)]==μ1;​​eqn8=μ[-(w/2)]==μ0;​​​​{{a1,a2,a3,a4,a5,a6}}=SolveValues[{eqn9,eqn4,eqn5,eqn6,eqn7,eqn8},{A1,A2,A3,A4,C[2],C[1]}];​​​​mu=μ/.{A1->a1,A2->a2,A3->a3,A4->a4,C[1]->a5,C[2]->a6};​​​​c[x_]:=c0+(1/β)*(mu[x]-μhat-α*u'[x]);​​​​c[x]​​​​​​K=1/((1/w)*Integrate[1/(γ*c[x]),{x,-(w/2),w/2}])​​​​​​​​​​
Out[]=
c0+
-A4-
h-
A1
⋯1⋯

l
+
A2
x
l

l
c
α-μhat+
⋯1⋯


⋯1⋯

2c
⋯4⋯
(l-λ)(l+λ)
+
⋯1⋯


⋯1⋯

2c1+
w
l

-1+
⋯1⋯


⋯1⋯
ϵ(l-λ)(l+λ)
+
-
x
λ
-
⋯1⋯


⋯1⋯

2cϵ(-l+λ)(l+λ)
β
Full expression not available
(
original memory size:
473 kB)
Out[]=
w
w
2
∫
-
w
2
1
γc0+
⋯1⋯
β
x
Full expression not available
(
original memory size:
473.7 kB)
Out[]=
-
wIm
w
2
∫
-
w
2
1
γc0+
⋯1⋯
β
x
2
Im
w
2
∫
-
w
2
1
γc0+
⋯1⋯
β
x
+
2
Re
w
2
∫
-
w
2
1
γc0+
⋯1⋯
β
x
+
wRe
w
2
∫
-
w
2
1
γc0+
⋯1⋯
β
x
2
Im
w
2
∫
-
w
2
1
γc0+
⋯1⋯

x
+
2
Re
w
2
∫
-
w
2
1
γ
⋯1⋯

x
Full expression not available
(
original memory size:
2.8 MB)
Out[]=
Im
wIm
w
2
∫
-
w
2
1
γc0+
⋯5⋯
+
⋯1⋯
β
x
2
Im
w
2
∫
-
w
2
1
γc0+
⋯1⋯
β
x
+
2
Re
w
2
∫
-
w
2
1
γc0+
⋯1⋯
β
x
+Re
wRe
w
2
∫
-
w
2
1
γc0+
⋯1⋯
β
x
2
Im
w
2
∫
-
w
2
1
γc0+
⋯1⋯

x
+
2
Re
w
2
∫
-
w
2
1
γ
⋯1⋯

⋯1⋯
⋯1⋯
x

Full expression not available
(
original memory size:
2.8 MB)
Out[]=
Im
wRe
w
2
∫
-
w
2
1
γc0+
⋯5⋯
+
⋯1⋯
β
x
2
Im
w
2
∫
-
w
2
1
γc0+
⋯1⋯
β
x
+
2
Re
w
2
∫
-
w
2
1
γc0+
⋯1⋯
β
x
-Re
wIm
w
2
∫
-
w
2
1
γc0+
⋯1⋯
β
x
2
Im
w
2
∫
-
w
2
1
γc0+
⋯1⋯

x
+
2
Re
w
2
∫
-
w
2
1
γ
⋯1⋯

⋯1⋯
⋯1⋯
x

Full expression not available
(
original memory size:
2.8 MB)
$OutputSizeLimit
:This output can only be updated in the same kernel session that generated it.