summaryrefslogtreecommitdiff
path: root/3769/CH15/EX15.10/Ex15_10.sce
blob: 810c88df9cd461ad5a8c3add912d52d46d7487f3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
clear
//Given
f=18                         //W/cm**2
A=20                          //cm**2
t=30*60
c=3.0*10**8

//Calculation
U=f*A*t
P=U/c
F=P/t
P1=2*P
F1=P1/t

//Result
printf("\n Average force exerted on the surface is %0.3f  N", F1)