clc //initialisation of variables Q1=30//cfs Q2=16//cfs a=32//sq ft r=1.6//ft i=10^-4//ft n=1.25*10^-2//ft h2=0.50//ft c=3.33//ft h1=5.20//ft l=72//ft s=12320//ft //CALCULATIONS L=s-l//ft //RESULTS printf('the forchheimer s methos =% f ft',L)