summaryrefslogtreecommitdiff
path: root/331/CH3/EX3.12/Example_3_12.sce
blob: 6d639f22da36bf9f32f7e35de6b1a5455a89247f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
//Caption: Geometric Mean
//Example3.12
//Page50
clear;
clc;
GrowthRate = input('Growth Rate in percentage =');
X = 100+GrowthRate; //Demand of the product
N = length(X)
Geometric_Mean = 1;
for i = 1:N
    Geometric_Mean = Geometric_Mean*X(i);
end
Geometric_Mean =  Geometric_Mean^(1/N);
R = Geometric_Mean-100;
disp('Year period is =',N,'The average growth rate of demand during')
disp(R,'R = ')
disp('percentage')
//Result
//Growth Rate in percentage = [20,30,35,40];
// 
// The average growth rate of demand during   
// 
//    4.  
// 
// Year period is =   
// 
// R =    
// 
//    31.037802  
// 
// percentage