summaryrefslogtreecommitdiff
path: root/1301/CH5/EX5.18/ex5_18.sce
blob: 66182570685bafe092edebac03ddd908e590e927 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
clc;
g=9.8;      //g in m/sec square
h=2;        //height in m
F=100;     //force in Newton
s=15;      //s in m
v=2;       //velocity in m/sec
m=30;      //mass in 30 kg
W=F*s;     //calculating work in Joule
delKE=(1/2)*(m*v*v);  //calculating change in KE in Joule
delPE=m*g*h;          //calculating change in PE in Joule
Wf=W-delKE-delPE;     //calculating work in Joule
Ff=Wf/s;              //calculating frictional force in Newton
disp(Ff,"Frictional Force in Newton = ");  //displaying result