Manipulate[Module[{L=10,h=1,T0=20,E1=Modulus1*10^9,E2=Modulus2*10^9,alpha1=alphaLayer1*10^-6,alpha2=alphaLayer2*10^-6,dT,curvature,y,yOffset},dT=deltaT;curvature=(12*(alpha2-alpha1)*dT)/(h*(E1/E2+14+E2/E1)) (*Curvature calculation*);y[x_]:=curvature*(x-L/2)^2;
yOffset=y[L/2];
(*Plotting the bilaminar strip*)Plot[y[x]-yOffset,{x,0,L},PlotRange->{{0,L},{-0.03,0.03}},AxesLabel->{"Length (m)","Displacement (m)"},PlotLabel->StringJoin["Temperature Difference: ΔT = ",ToString[dT],"°C\n"],LabelStyle->{Black,Bold,Medium},AxesOrigin->{0,0}]],{{alphaLayer1,24,Style["Alpha Material 1 (10^-6 /°C)",Medium]},5,60,0.5,Appearance->"Labeled",LabelStyle->{Black,Medium}},{{alphaLayer2,24,Style["Alpha Material 2 (10^-6 /°C)",Medium]},5,60,0.5,Appearance->"Labeled",LabelStyle->{Black,Medium}},
{{Modulus1,200,Style["Young's Modulus Material 1 (GPa)",Medium]},0.1,250,0.1,Appearance->"Labeled",LabelStyle->{Black,Medium}},
{{Modulus2,100,Style["Young's Modulus Material 2 (GPa)",Medium]},0.1,250,0.1,Appearance->"Labeled",LabelStyle->{Black,Medium}},
{{deltaT,80,Style["Temperature Difference ΔT (°C)",Medium]},0,150,1,Appearance->"Labeled",LabelStyle->{Black,Medium}}]