LEARN MORE...

Report

Content type

User Generated

Subject

Computer Science

Type

Homework

Uploaded By

fgneqbanyq96

Pages

Showing Page:

1/7

The complete code is attached here:

clear all

clc

%% Part A

% Starting salary of men and women

start_men = 66097; % Salary in dollars

start_women = 63554; % Salary in dollars

rise = 5; % Percentage rise

sal_men = zeros(1,21); % Initilize the salary vector of men

sal_women = zeros(1,21); % Initilize the salary vector of men

n = 21; % no. of years

for i = 1: n

sal_men(i) = start_men.*(1+rise/100)^i;

sal_women(i) = start_women.*(1+rise/100)^i;

diff_sal(i) = sal_men(i) - sal_women(i);

earning_ratio(i) =

median(sal_women(1,1:i))/median(sal_men(1,1:i));

pay_gap(i) = (median(sal_men(1,1:i)) -

median(sal_women(1,1:i)))/median(sal_men(1,1:i));

end

Year = [2018:1:2038];

stem(1:n,sal_men)

hold on

stem(1:n,sal_women)

hold off

grid on

xlabel('Year')

ylabel('Average salary in $')

title('Annual earning of men and women')

legend('Men', 'Women')

xticks(1:2:21)

xticklabels({'2018','2020',

'2022','2024','2026','2028','2030','2032','2034','2036','2038'})

xtickangle(90)

xlim([0 21])

ax = gca;

ax.YAxis.Exponent = 0;

ytickformat('%.0f')

v = [Year; sal_men; sal_women; diff_sal; earning_ratio; pay_gap];

fprintf(' | Average Men''s | Average | Difference in |

| | \n')

fprintf(' Year | Salary | Women''s | Annual Salary |

Earnings Ratio | Pay Gap | \n')

fprintf(' | | Salary | |

| \n')

fprintf('-------------------------------------------------------------

-----------------------\n')

fprintf(' %-2.0f | %-9.0f | %-9.0f| %-9.0f | %-9.6f |

%-9.6f |\n',v)

Showing Page:

2/7

%% Part B

disp('============================================')

disp('This is part C utilizing the code of part B')

disp('============================================')

total_year = input('Total number of years under study ');

year_women = input('Number of years prior to promotion for a woman ');

year_men = input('Number of years prior to promotion for a man ');

raise_women = input('Annual merit raise percentage for women ');

raise_men = input('Annual merit raise percentage for men ');

promo_women = input('Promotional raise percentage for women ');

promo_men = input('Promotional raise percentage for men ');

sal_men1 = zeros(1,total_year); % Initilize the salary vector of

men

sal_women1 = zeros(1,total_year); % Initilize the salary vector of

men

for i = 1:total_year

if i == 1

sal_women1(i) = start_women*(1+raise_women/100);

else if i ~= year_women

sal_women1(i) = sal_women1(i-1)*(1+raise_women/100);

else

sal_women1(i) = sal_women1(i-1)*(1+promo_women/100);

end

for i = 1:total_year

if i == 1

sal_men1(i) = start_men*(1+raise_men/100);

else if i ~= year_men

sal_men1(i) = sal_men1(i-1)*(1+raise_men/100);

else

sal_men1(i) = sal_men1(i-1)*(1+promo_men/100);

end

for i = 1: total_year

diff_sal1(i) = sal_men1(i) - sal_women(i);

earning_ratio1(i) =

median(sal_women1(1,1:i))/median(sal_men1(1,1:i));

pay_gap1(i) = (median(sal_men1(1,1:i)) -

median(sal_women(1,1:i)))/median(sal_men1(1,1:i));

end

figure

stem(1:total_year,sal_men1)

hold on

stem(1:total_year,sal_women1)

Showing Page:

3/7

End of Preview - Want to read all 7 pages?

Access Now

Unformatted Attachment Preview

The complete code is attached here: clear all clc %% Part A % Starting salary of men and women start_men = 66097; % Salary in dollars start_women = 63554; % Salary in dollars rise = 5; % Percentage rise sal_men = zeros(1,21); sal_women = zeros(1,21); n = 21; % Initilize the salary vector of men % Initilize the salary vector of men % no. of years for i = 1: n sal_men(i) = start_men.*(1+rise/100)^i; sal_women(i) = start_women.*(1+rise/100)^i; diff_sal(i) = sal_men(i) - sal_women(i); earning_ratio(i) = median(sal_women(1,1:i))/median(sal_men(1,1:i)); pay_gap(i) = (median(sal_men(1,1:i)) median(sal_women(1,1:i)))/median(sal_men(1,1:i)); end Year = [2018:1:2038]; stem(1:n,sal_men) hold on stem(1:n,sal_women) hold off grid on xlabel('Year') ylabel('Average salary in $') title('Annual earning of men and women') legend('Men', 'Women') xticks(1:2:21) xticklabels({'2018','2020', '2022','2024','2026','2028','2030','2032','2034','2036','2038'}) xtickangle(90) xlim([0 21]) ax = gca; ax.YAxis.Exponent = 0; ytickformat('%.0f') v = [Year; sal_men; sal_women; diff_sal; earning_ratio; pay_gap]; fprintf(' | Average Men''s | Average | Difference in | | | \n') fprintf(' Year | Salary | Women''s | Annual Salary | Earnings Ratio | Pay Gap | \n') fprintf(' | | Salary | | | \n') fprintf('-----------------------------------------------------------------------------------\n') fprintf(' %-2.0f | %-9.0f | %-9.0f| %-9.0f | %-9.6f | %-9.6f |\n',v) %% Part B disp('====================================== ...
Purchase document to see full attachment