clc;funcprot(0);//EXAMPLE 16.11
//INITIALISATION OF VAREIABLES
a1=200;.............//Total Projected Area for the Cavity in   cm^2
Pa=25*10^6;.........//Pressure applied on the Cavity in Pa
de=4;................//Depth of the part in cm
rho=2*10^6;.........//Pressure Factro in Pa/cm
F=(a1)*((Pa)+(rho*de));.......//Force needed to form a Thermoset in Pa
disp(F*10^-4,"Force needed to form a Thermoset in N:")