# The following code is one method for simulating the average score from 3-pt shots that the basketball player
# from our classroom example earns. This method simulates the score directly rather simulating the individual 
# shots

number_simulations := 1000: #Comments follow the pound sign and are ignored by MAPLE
scores := array(1..number_simulations): # Note the use of := to assign values 
                                        # and the use of colons on the ends of the lines

for i from 1 to number_simulations do 
u := rand()/10^12;
if (u < .85975) then scores[i] := 0 elif (u<.99050) then scores[i] := 3 elif (u<.99975) then scores[i] := 6 else scores[i] := 9 end if;
end do:  # the colon at the end of the "end do" statement suppresses all output from the entire loop
evalf(add(scores[i], i=1..number_simulations)/number_simulations); #evalf gives the numerical answer (in digits)
                                                                   #add computes the numerical sum rather than 
                                                                   #trying to give a formula.