summaryrefslogtreecommitdiff
path: root/2135/CH2/EX2.4/Exa_2_4.sce
blob: 199794e50658432713ae8f4c4522f43041c6857d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//Exa 2.4
clc;
clear;
close;
format('v',7);

//Given Data
Q1=120;//KJ
Q2=-16;//KJ
Q3=-48;//KJ
Q4=12;//KJ
W1=60000;//N-m
W2=68000;//N-m
W3=120000;//N-m
W4=44000;//N-m
Net_work=Q1+Q2+Q3+Q4;//KJ
disp(Net_work*1000,"Net Work in N-m :  ");
disp("Option (ii) is true.")