# Ok to post homework
# Lucy Martinez, 03-13-22, Assignment 14
read `C14.txt`:
#----------------------Problem 1-----------------------#
# Look at the wikipedia article Legislative elections in Israel, that has links to all the elections from 1949 to
# 2021. Pick three elections at random, write down the weights [number of seats] (that add up to 120) for each
# of them, call it L, and use SSVc(L,61) to find their Shapley-Shubik values.

# Data from 1951
L1:=[45,20,15,8,8,5,4,3,3,2,2,2,1,1,1,0,0];

SSVc(L1,61);
# [ 184159/360360, 1291/10920, 1231/10920, 4937/90090, 4937/90090, 2281/72072, 2239/90090, 
#   1649/90090, 1649/90090, 4387/360360, 4387/360360, 4387/360360, 41/6552, 41/6552, 41/6552, 0, 0]


# Data from 1965
L2:=[45,26,11,10,8,5,4,3,2,2,2,1,1];

SSVc(L2,61);
# [ 33977/72072, 16493/120120, 3319/36036, 3671/45045, 10823/180180, 617/15015, 1961/60060,
#   939/40040, 5461/360360, 5461/360360, 5461/360360, 673/90090, 673/90090]



# Data from 1999
L3:=[26,19,17,10,6,6,6,5,5,5,4,3,4,2,2];

SSVc(L3,61);
# [ 29657/120120, 7409/45045, 51823/360360, 28363/360360, 2081/45045, 2081/45045, 2081/45045, 
#   2753/72072, 2753/72072, 2753/72072, 1363/45045, 31/1365, 1363/45045, 535/36036, 535/36036]