summaryrefslogtreecommitdiff
path: root/1553/CH11/EX11.17/11Ex17.sce
blob: b6d9858616ce58a2959e3e55ca9e484b4785b657 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Chapter 9 Ex 17

clc;
close;
clear;
x=poly(0,'x');
loss=10;
SP1=x;
SP2=(2/3)*SP1;    //given
CP=(100/(100-loss))*SP2;
gain=SP1-CP;
gainper=(gain/CP)*100;
mprintf("The gain percentage is");
disp(gainper)
mprintf("percent");