//Example 6.7//

//From hooke law'
s=0.2489;//nm //nanometer // modulus of elasticity
s1=0.2480;// nm //nanometer // modulus of elasticity
e=(s-s1)/s1
printf("e = %f ",e)
s2=1000;//Mpa //MegaPascal //sigma
E=s2/e
mprintf("\n E = %e",E)
mprintf("  275   GPa  (As G=10^9) (Answer calculated in the textbook is wrong)")