//Example 1 // Young's modulus of steel
clc;
clear;
close;
//given data :
p=7.8*10^3;// in kg/m^3
v=5200;// m/s
Y=p*v^2;
disp(Y,"Young modulus of steel,Y(N/m^2) = ")