path: root/1268/CH7/EX7.2/7_2.sce

clc;
disp("Example 7.2")
// The formula derived in the first part is
//de=2*phi*dp*e/(3*(1-e))
// and here de=dp/2 and we define x=de/dp
x=1/2
phi=1
e=(3/(4*phi))/(1+(3/(4*phi)))
disp(e)