//chapter 40
//Example 1
//clc()
u=(10)*(1.0)*3600// in Joules
c=3*10^8// in m/sec
t=3600//in sec
disp("solution (a)")
disp(u,"energy reflected from mirror in joule=")
p=(2*u)/c
disp(p,"momentum after i hr illumination in kg-m/sec=")
disp("solution (b)")
f=p/t
disp(f,"force in newton=")