#OK to post homework

#Nicholas DiMarzio, 10/25/21, Assignment 15

#Problem 2
i)k := dsolve({x(0) = (2 + 2)/2, D(x)(t) = (2 - x(t))*(2 - x(t))*(1 - x(t))}, x(t));
                         k := x(t) = 2

plot(rhs(k), t = 0 .. 5);

k := dsolve({x(0) = (2 + 2)/2, D(x)(t) = (2 - x(t))*(2 - x(t))*(1 - x(t))}, x(t));
                         k := x(t) = 2

plot(rhs(k), t = 0 .. 5);

ii)K1 := Dis1((2 - x)*(2 - x)*(1 - x), x, 2, 0.1, 5);
 K1 := [[0.1, 2], [0.2, 2.], [0.3, 2.], [0.4, 2.], [0.5, 2.], 

   [0.6, 2.], [0.7, 2.], [0.8, 2.], [0.9, 2.], [1.0, 2.], 

   [1.1, 2.], [1.2, 2.], [1.3, 2.], [1.4, 2.], [1.5, 2.], 

   [1.6, 2.], [1.7, 2.], [1.8, 2.], [1.9, 2.], [2.0, 2.], 

   [2.1, 2.], [2.2, 2.], [2.3, 2.], [2.4, 2.], [2.5, 2.], 

   [2.6, 2.], [2.7, 2.], [2.8, 2.], [2.9, 2.], [3.0, 2.], 

   [3.1, 2.], [3.2, 2.], [3.3, 2.], [3.4, 2.], [3.5, 2.], 

   [3.6, 2.], [3.7, 2.], [3.8, 2.], [3.9, 2.], [4.0, 2.], 

   [4.1, 2.], [4.2, 2.], [4.3, 2.], [4.4, 2.], [4.5, 2.], 

   [4.6, 2.], [4.7, 2.], [4.8, 2.], [4.9, 2.], [5.0, 2.], 

   [5.1, 2.], [5.2, 2.]]



plot(K1);


K2 := Dis1((2 - x)*(2 - x)*(1 - x), x, 2, 0.01, 5);
K2 := [[0.01, 2], [0.02, 2.], [0.03, 2.], [0.04, 2.], [0.05, 2.], 

  [0.06, 2.], [0.07, 2.], [0.08, 2.], [0.09, 2.], [0.10, 2.], 

  [0.11, 2.], [0.12, 2.], [0.13, 2.], [0.14, 2.], [0.15, 2.], 

  [0.16, 2.], [0.17, 2.], [0.18, 2.], [0.19, 2.], [0.20, 2.], 

  [0.21, 2.], [0.22, 2.], [0.23, 2.], [0.24, 2.], [0.25, 2.], 

  [0.26, 2.], [0.27, 2.], [0.28, 2.], [0.29, 2.], [0.30, 2.], 

  [0.31, 2.], [0.32, 2.], [0.33, 2.], [0.34, 2.], [0.35, 2.], 

  [0.36, 2.], [0.37, 2.], [0.38, 2.], [0.39, 2.], [0.40, 2.], 

  [0.41, 2.], [0.42, 2.], [0.43, 2.], [0.44, 2.], [0.45, 2.], 

  [0.46, 2.], [0.47, 2.], [0.48, 2.], [0.49, 2.], [0.50, 2.], 

  [0.51, 2.], [0.52, 2.], [0.53, 2.], [0.54, 2.], [0.55, 2.], 

  [0.56, 2.], [0.57, 2.], [0.58, 2.], [0.59, 2.], [0.60, 2.], 

  [0.61, 2.], [0.62, 2.], [0.63, 2.], [0.64, 2.], [0.65, 2.], 

  [0.66, 2.], [0.67, 2.], [0.68, 2.], [0.69, 2.], [0.70, 2.], 

  [0.71, 2.], [0.72, 2.], [0.73, 2.], [0.74, 2.], [0.75, 2.], 

  [0.76, 2.], [0.77, 2.], [0.78, 2.], [0.79, 2.], [0.80, 2.], 

  [0.81, 2.], [0.82, 2.], [0.83, 2.], [0.84, 2.], [0.85, 2.], 

  [0.86, 2.], [0.87, 2.], [0.88, 2.], [0.89, 2.], [0.90, 2.], 

  [0.91, 2.], [0.92, 2.], [0.93, 2.], [0.94, 2.], [0.95, 2.], 

  [0.96, 2.], [0.97, 2.], [0.98, 2.], [0.99, 2.], [1.00, 2.], 

  [1.01, 2.], [1.02, 2.], [1.03, 2.], [1.04, 2.], [1.05, 2.], 

  [1.06, 2.], [1.07, 2.], [1.08, 2.], [1.09, 2.], [1.10, 2.], 

  [1.11, 2.], [1.12, 2.], [1.13, 2.], [1.14, 2.], [1.15, 2.], 

  [1.16, 2.], [1.17, 2.], [1.18, 2.], [1.19, 2.], [1.20, 2.], 

  [1.21, 2.], [1.22, 2.], [1.23, 2.], [1.24, 2.], [1.25, 2.], 

  [1.26, 2.], [1.27, 2.], [1.28, 2.], [1.29, 2.], [1.30, 2.], 

  [1.31, 2.], [1.32, 2.], [1.33, 2.], [1.34, 2.], [1.35, 2.], 

  [1.36, 2.], [1.37, 2.], [1.38, 2.], [1.39, 2.], [1.40, 2.], 

  [1.41, 2.], [1.42, 2.], [1.43, 2.], [1.44, 2.], [1.45, 2.], 

  [1.46, 2.], [1.47, 2.], [1.48, 2.], [1.49, 2.], [1.50, 2.], 

  [1.51, 2.], [1.52, 2.], [1.53, 2.], [1.54, 2.], [1.55, 2.], 

  [1.56, 2.], [1.57, 2.], [1.58, 2.], [1.59, 2.], [1.60, 2.], 

  [1.61, 2.], [1.62, 2.], [1.63, 2.], [1.64, 2.], [1.65, 2.], 

  [1.66, 2.], [1.67, 2.], [1.68, 2.], [1.69, 2.], [1.70, 2.], 

  [1.71, 2.], [1.72, 2.], [1.73, 2.], [1.74, 2.], [1.75, 2.], 

  [1.76, 2.], [1.77, 2.], [1.78, 2.], [1.79, 2.], [1.80, 2.], 

  [1.81, 2.], [1.82, 2.], [1.83, 2.], [1.84, 2.], [1.85, 2.], 

  [1.86, 2.], [1.87, 2.], [1.88, 2.], [1.89, 2.], [1.90, 2.], 

  [1.91, 2.], [1.92, 2.], [1.93, 2.], [1.94, 2.], [1.95, 2.], 

  [1.96, 2.], [1.97, 2.], [1.98, 2.], [1.99, 2.], [2.00, 2.], 

  [2.01, 2.], [2.02, 2.], [2.03, 2.], [2.04, 2.], [2.05, 2.], 

  [2.06, 2.], [2.07, 2.], [2.08, 2.], [2.09, 2.], [2.10, 2.], 

  [2.11, 2.], [2.12, 2.], [2.13, 2.], [2.14, 2.], [2.15, 2.], 

  [2.16, 2.], [2.17, 2.], [2.18, 2.], [2.19, 2.], [2.20, 2.], 

  [2.21, 2.], [2.22, 2.], [2.23, 2.], [2.24, 2.], [2.25, 2.], 

  [2.26, 2.], [2.27, 2.], [2.28, 2.], [2.29, 2.], [2.30, 2.], 

  [2.31, 2.], [2.32, 2.], [2.33, 2.], [2.34, 2.], [2.35, 2.], 

  [2.36, 2.], [2.37, 2.], [2.38, 2.], [2.39, 2.], [2.40, 2.], 

  [2.41, 2.], [2.42, 2.], [2.43, 2.], [2.44, 2.], [2.45, 2.], 

  [2.46, 2.], [2.47, 2.], [2.48, 2.], [2.49, 2.], [2.50, 2.], 

  [2.51, 2.], [2.52, 2.], [2.53, 2.], [2.54, 2.], [2.55, 2.], 

  [2.56, 2.], [2.57, 2.], [2.58, 2.], [2.59, 2.], [2.60, 2.], 

  [2.61, 2.], [2.62, 2.], [2.63, 2.], [2.64, 2.], [2.65, 2.], 

  [2.66, 2.], [2.67, 2.], [2.68, 2.], [2.69, 2.], [2.70, 2.], 

  [2.71, 2.], [2.72, 2.], [2.73, 2.], [2.74, 2.], [2.75, 2.], 

  [2.76, 2.], [2.77, 2.], [2.78, 2.], [2.79, 2.], [2.80, 2.], 

  [2.81, 2.], [2.82, 2.], [2.83, 2.], [2.84, 2.], [2.85, 2.], 

  [2.86, 2.], [2.87, 2.], [2.88, 2.], [2.89, 2.], [2.90, 2.], 

  [2.91, 2.], [2.92, 2.], [2.93, 2.], [2.94, 2.], [2.95, 2.], 

  [2.96, 2.], [2.97, 2.], [2.98, 2.], [2.99, 2.], [3.00, 2.], 

  [3.01, 2.], [3.02, 2.], [3.03, 2.], [3.04, 2.], [3.05, 2.], 

  [3.06, 2.], [3.07, 2.], [3.08, 2.], [3.09, 2.], [3.10, 2.], 

  [3.11, 2.], [3.12, 2.], [3.13, 2.], [3.14, 2.], [3.15, 2.], 

  [3.16, 2.], [3.17, 2.], [3.18, 2.], [3.19, 2.], [3.20, 2.], 

  [3.21, 2.], [3.22, 2.], [3.23, 2.], [3.24, 2.], [3.25, 2.], 

  [3.26, 2.], [3.27, 2.], [3.28, 2.], [3.29, 2.], [3.30, 2.], 

  [3.31, 2.], [3.32, 2.], [3.33, 2.], [3.34, 2.], [3.35, 2.], 

  [3.36, 2.], [3.37, 2.], [3.38, 2.], [3.39, 2.], [3.40, 2.], 

  [3.41, 2.], [3.42, 2.], [3.43, 2.], [3.44, 2.], [3.45, 2.], 

  [3.46, 2.], [3.47, 2.], [3.48, 2.], [3.49, 2.], [3.50, 2.], 

  [3.51, 2.], [3.52, 2.], [3.53, 2.], [3.54, 2.], [3.55, 2.], 

  [3.56, 2.], [3.57, 2.], [3.58, 2.], [3.59, 2.], [3.60, 2.], 

  [3.61, 2.], [3.62, 2.], [3.63, 2.], [3.64, 2.], [3.65, 2.], 

  [3.66, 2.], [3.67, 2.], [3.68, 2.], [3.69, 2.], [3.70, 2.], 

  [3.71, 2.], [3.72, 2.], [3.73, 2.], [3.74, 2.], [3.75, 2.], 

  [3.76, 2.], [3.77, 2.], [3.78, 2.], [3.79, 2.], [3.80, 2.], 

  [3.81, 2.], [3.82, 2.], [3.83, 2.], [3.84, 2.], [3.85, 2.], 

  [3.86, 2.], [3.87, 2.], [3.88, 2.], [3.89, 2.], [3.90, 2.], 

  [3.91, 2.], [3.92, 2.], [3.93, 2.], [3.94, 2.], [3.95, 2.], 

  [3.96, 2.], [3.97, 2.], [3.98, 2.], [3.99, 2.], [4.00, 2.], 

  [4.01, 2.], [4.02, 2.], [4.03, 2.], [4.04, 2.], [4.05, 2.], 

  [4.06, 2.], [4.07, 2.], [4.08, 2.], [4.09, 2.], [4.10, 2.], 

  [4.11, 2.], [4.12, 2.], [4.13, 2.], [4.14, 2.], [4.15, 2.], 

  [4.16, 2.], [4.17, 2.], [4.18, 2.], [4.19, 2.], [4.20, 2.], 

  [4.21, 2.], [4.22, 2.], [4.23, 2.], [4.24, 2.], [4.25, 2.], 

  [4.26, 2.], [4.27, 2.], [4.28, 2.], [4.29, 2.], [4.30, 2.], 

  [4.31, 2.], [4.32, 2.], [4.33, 2.], [4.34, 2.], [4.35, 2.], 

  [4.36, 2.], [4.37, 2.], [4.38, 2.], [4.39, 2.], [4.40, 2.], 

  [4.41, 2.], [4.42, 2.], [4.43, 2.], [4.44, 2.], [4.45, 2.], 

  [4.46, 2.], [4.47, 2.], [4.48, 2.], [4.49, 2.], [4.50, 2.], 

  [4.51, 2.], [4.52, 2.], [4.53, 2.], [4.54, 2.], [4.55, 2.], 

  [4.56, 2.], [4.57, 2.], [4.58, 2.], [4.59, 2.], [4.60, 2.], 

  [4.61, 2.], [4.62, 2.], [4.63, 2.], [4.64, 2.], [4.65, 2.], 

  [4.66, 2.], [4.67, 2.], [4.68, 2.], [4.69, 2.], [4.70, 2.], 

  [4.71, 2.], [4.72, 2.], [4.73, 2.], [4.74, 2.], [4.75, 2.], 

  [4.76, 2.], [4.77, 2.], [4.78, 2.], [4.79, 2.], [4.80, 2.], 

  [4.81, 2.], [4.82, 2.], [4.83, 2.], [4.84, 2.], [4.85, 2.], 

  [4.86, 2.], [4.87, 2.], [4.88, 2.], [4.89, 2.], [4.90, 2.], 

  [4.91, 2.], [4.92, 2.], [4.93, 2.], [4.94, 2.], [4.95, 2.], 

  [4.96, 2.], [4.97, 2.], [4.98, 2.], [4.99, 2.], [5.00, 2.], 

  [5.01, 2.], [5.02, 2.]]


plot(K2);

L1 := Dis1((2 - x)*(2 - x)*(9 - x), x, 11/2, 0.1, 5);
       [[     11]                                          
 L1 := [[0.1, --], [0.2, 9.787500000], [0.3, 5.011693945], 
       [[     2 ]                                          

   [0.4, 8.629207353], [0.5, 10.25870718], [0.6, 1.673538240], 

   [0.7, 1.751621677], [0.8, 1.796338221], [0.9, 1.826217656], 

   [1.0, 1.847882696], [1.1, 1.864432462], [1.2, 1.877546606], 

   [1.3, 1.888226606], [1.4, 1.897111552], [1.5, 1.904630693], 

   [1.6, 1.911084148], [1.7, 1.916688665], [1.8, 1.921605035], 

   [1.9, 1.925955254], [2.0, 1.929833687], [2.1, 1.933314550], 

   [2.2, 1.936457069], [2.3, 1.939309119], [2.4, 1.941909842], 

   [2.5, 1.944291571], [2.6, 1.946481260], [2.7, 1.948501568], 

   [2.8, 1.950371688], [2.9, 1.952107990], [3.0, 1.953724526], 

   [3.1, 1.955233429], [3.2, 1.956645233], [3.3, 1.957969127], 

   [3.4, 1.959213168], [3.5, 1.960384449], [3.6, 1.961489241], 

   [3.7, 1.962533107], [3.8, 1.963521004], [3.9, 1.964457360], 

   [4.0, 1.965346146], [4.1, 1.966190930], [4.2, 1.966994932], 

   [4.3, 1.967761062], [4.4, 1.968491957], [4.5, 1.969190015], 

   [4.6, 1.969857418], [4.7, 1.970496159], [4.8, 1.971108061], 

   [4.9, 1.971694794], [5.0, 1.972257891], [5.1, 1.972798763], 

                     ]
   [5.2, 1.973318711]]
                     ]


plot(L1);

L2 := Dis1((2 - x)*(2 - x)*(9 - x), x, 11/2, 0.01, 5);
      [[      11]                                            
L2 := [[0.01, --], [0.02, 5.928750000], [0.03, 6.402799789], 
      [[      2 ]                                            

  [0.04, 6.906257855], [0.05, 7.410250193], [0.06, 7.875582793], 

  [0.07, 8.263759422], [0.08, 8.552621072], [0.09, 8.744711460], 

  [0.10, 8.860845108], [0.11, 8.926346979], [0.12, 8.961681487], 

  [0.13, 8.980252558], [0.14, 8.989874287], [0.15, 8.994821543], 

  [0.16, 8.997355234], [0.17, 8.998650190], [0.18, 8.999311342], 

  [0.19, 8.999648718], [0.20, 8.999820829], [0.21, 8.999908618], 

  [0.22, 8.999953394], [0.23, 8.999976231], [0.24, 8.999987878], 

  [0.25, 8.999993818], [0.26, 8.999996847], [0.27, 8.999998392], 

  [0.28, 8.999999180], [0.29, 8.999999582], [0.30, 8.999999787], 

  [0.31, 8.999999891], [0.32, 8.999999944], [0.33, 8.999999971], 

  [0.34, 8.999999985], [0.35, 8.999999992], [0.36, 8.999999996], 

  [0.37, 8.999999998], [0.38, 8.999999999], [0.39, 8.999999999], 

  [0.40, 8.999999999], [0.41, 8.999999999], [0.42, 8.999999999], 

  [0.43, 8.999999999], [0.44, 8.999999999], [0.45, 8.999999999], 

  [0.46, 8.999999999], [0.47, 8.999999999], [0.48, 8.999999999], 

  [0.49, 8.999999999], [0.50, 8.999999999], [0.51, 8.999999999], 

  [0.52, 8.999999999], [0.53, 8.999999999], [0.54, 8.999999999], 

  [0.55, 8.999999999], [0.56, 8.999999999], [0.57, 8.999999999], 

  [0.58, 8.999999999], [0.59, 8.999999999], [0.60, 8.999999999], 

  [0.61, 8.999999999], [0.62, 8.999999999], [0.63, 8.999999999], 

  [0.64, 8.999999999], [0.65, 8.999999999], [0.66, 8.999999999], 

  [0.67, 8.999999999], [0.68, 8.999999999], [0.69, 8.999999999], 

  [0.70, 8.999999999], [0.71, 8.999999999], [0.72, 8.999999999], 

  [0.73, 8.999999999], [0.74, 8.999999999], [0.75, 8.999999999], 

  [0.76, 8.999999999], [0.77, 8.999999999], [0.78, 8.999999999], 

  [0.79, 8.999999999], [0.80, 8.999999999], [0.81, 8.999999999], 

  [0.82, 8.999999999], [0.83, 8.999999999], [0.84, 8.999999999], 

  [0.85, 8.999999999], [0.86, 8.999999999], [0.87, 8.999999999], 

  [0.88, 8.999999999], [0.89, 8.999999999], [0.90, 8.999999999], 

  [0.91, 8.999999999], [0.92, 8.999999999], [0.93, 8.999999999], 

  [0.94, 8.999999999], [0.95, 8.999999999], [0.96, 8.999999999], 

  [0.97, 8.999999999], [0.98, 8.999999999], [0.99, 8.999999999], 

  [1.00, 8.999999999], [1.01, 8.999999999], [1.02, 8.999999999], 

  [1.03, 8.999999999], [1.04, 8.999999999], [1.05, 8.999999999], 

  [1.06, 8.999999999], [1.07, 8.999999999], [1.08, 8.999999999], 

  [1.09, 8.999999999], [1.10, 8.999999999], [1.11, 8.999999999], 

  [1.12, 8.999999999], [1.13, 8.999999999], [1.14, 8.999999999], 

  [1.15, 8.999999999], [1.16, 8.999999999], [1.17, 8.999999999], 

  [1.18, 8.999999999], [1.19, 8.999999999], [1.20, 8.999999999], 

  [1.21, 8.999999999], [1.22, 8.999999999], [1.23, 8.999999999], 

  [1.24, 8.999999999], [1.25, 8.999999999], [1.26, 8.999999999], 

  [1.27, 8.999999999], [1.28, 8.999999999], [1.29, 8.999999999], 

  [1.30, 8.999999999], [1.31, 8.999999999], [1.32, 8.999999999], 

  [1.33, 8.999999999], [1.34, 8.999999999], [1.35, 8.999999999], 

  [1.36, 8.999999999], [1.37, 8.999999999], [1.38, 8.999999999], 

  [1.39, 8.999999999], [1.40, 8.999999999], [1.41, 8.999999999], 

  [1.42, 8.999999999], [1.43, 8.999999999], [1.44, 8.999999999], 

  [1.45, 8.999999999], [1.46, 8.999999999], [1.47, 8.999999999], 

  [1.48, 8.999999999], [1.49, 8.999999999], [1.50, 8.999999999], 

  [1.51, 8.999999999], [1.52, 8.999999999], [1.53, 8.999999999], 

  [1.54, 8.999999999], [1.55, 8.999999999], [1.56, 8.999999999], 

  [1.57, 8.999999999], [1.58, 8.999999999], [1.59, 8.999999999], 

  [1.60, 8.999999999], [1.61, 8.999999999], [1.62, 8.999999999], 

  [1.63, 8.999999999], [1.64, 8.999999999], [1.65, 8.999999999], 

  [1.66, 8.999999999], [1.67, 8.999999999], [1.68, 8.999999999], 

  [1.69, 8.999999999], [1.70, 8.999999999], [1.71, 8.999999999], 

  [1.72, 8.999999999], [1.73, 8.999999999], [1.74, 8.999999999], 

  [1.75, 8.999999999], [1.76, 8.999999999], [1.77, 8.999999999], 

  [1.78, 8.999999999], [1.79, 8.999999999], [1.80, 8.999999999], 

  [1.81, 8.999999999], [1.82, 8.999999999], [1.83, 8.999999999], 

  [1.84, 8.999999999], [1.85, 8.999999999], [1.86, 8.999999999], 

  [1.87, 8.999999999], [1.88, 8.999999999], [1.89, 8.999999999], 

  [1.90, 8.999999999], [1.91, 8.999999999], [1.92, 8.999999999], 

  [1.93, 8.999999999], [1.94, 8.999999999], [1.95, 8.999999999], 

  [1.96, 8.999999999], [1.97, 8.999999999], [1.98, 8.999999999], 

  [1.99, 8.999999999], [2.00, 8.999999999], [2.01, 8.999999999], 

  [2.02, 8.999999999], [2.03, 8.999999999], [2.04, 8.999999999], 

  [2.05, 8.999999999], [2.06, 8.999999999], [2.07, 8.999999999], 

  [2.08, 8.999999999], [2.09, 8.999999999], [2.10, 8.999999999], 

  [2.11, 8.999999999], [2.12, 8.999999999], [2.13, 8.999999999], 

  [2.14, 8.999999999], [2.15, 8.999999999], [2.16, 8.999999999], 

  [2.17, 8.999999999], [2.18, 8.999999999], [2.19, 8.999999999], 

  [2.20, 8.999999999], [2.21, 8.999999999], [2.22, 8.999999999], 

  [2.23, 8.999999999], [2.24, 8.999999999], [2.25, 8.999999999], 

  [2.26, 8.999999999], [2.27, 8.999999999], [2.28, 8.999999999], 

  [2.29, 8.999999999], [2.30, 8.999999999], [2.31, 8.999999999], 

  [2.32, 8.999999999], [2.33, 8.999999999], [2.34, 8.999999999], 

  [2.35, 8.999999999], [2.36, 8.999999999], [2.37, 8.999999999], 

  [2.38, 8.999999999], [2.39, 8.999999999], [2.40, 8.999999999], 

  [2.41, 8.999999999], [2.42, 8.999999999], [2.43, 8.999999999], 

  [2.44, 8.999999999], [2.45, 8.999999999], [2.46, 8.999999999], 

  [2.47, 8.999999999], [2.48, 8.999999999], [2.49, 8.999999999], 

  [2.50, 8.999999999], [2.51, 8.999999999], [2.52, 8.999999999], 

  [2.53, 8.999999999], [2.54, 8.999999999], [2.55, 8.999999999], 

  [2.56, 8.999999999], [2.57, 8.999999999], [2.58, 8.999999999], 

  [2.59, 8.999999999], [2.60, 8.999999999], [2.61, 8.999999999], 

  [2.62, 8.999999999], [2.63, 8.999999999], [2.64, 8.999999999], 

  [2.65, 8.999999999], [2.66, 8.999999999], [2.67, 8.999999999], 

  [2.68, 8.999999999], [2.69, 8.999999999], [2.70, 8.999999999], 

  [2.71, 8.999999999], [2.72, 8.999999999], [2.73, 8.999999999], 

  [2.74, 8.999999999], [2.75, 8.999999999], [2.76, 8.999999999], 

  [2.77, 8.999999999], [2.78, 8.999999999], [2.79, 8.999999999], 

  [2.80, 8.999999999], [2.81, 8.999999999], [2.82, 8.999999999], 

  [2.83, 8.999999999], [2.84, 8.999999999], [2.85, 8.999999999], 

  [2.86, 8.999999999], [2.87, 8.999999999], [2.88, 8.999999999], 

  [2.89, 8.999999999], [2.90, 8.999999999], [2.91, 8.999999999], 

  [2.92, 8.999999999], [2.93, 8.999999999], [2.94, 8.999999999], 

  [2.95, 8.999999999], [2.96, 8.999999999], [2.97, 8.999999999], 

  [2.98, 8.999999999], [2.99, 8.999999999], [3.00, 8.999999999], 

  [3.01, 8.999999999], [3.02, 8.999999999], [3.03, 8.999999999], 

  [3.04, 8.999999999], [3.05, 8.999999999], [3.06, 8.999999999], 

  [3.07, 8.999999999], [3.08, 8.999999999], [3.09, 8.999999999], 

  [3.10, 8.999999999], [3.11, 8.999999999], [3.12, 8.999999999], 

  [3.13, 8.999999999], [3.14, 8.999999999], [3.15, 8.999999999], 

  [3.16, 8.999999999], [3.17, 8.999999999], [3.18, 8.999999999], 

  [3.19, 8.999999999], [3.20, 8.999999999], [3.21, 8.999999999], 

  [3.22, 8.999999999], [3.23, 8.999999999], [3.24, 8.999999999], 

  [3.25, 8.999999999], [3.26, 8.999999999], [3.27, 8.999999999], 

  [3.28, 8.999999999], [3.29, 8.999999999], [3.30, 8.999999999], 

  [3.31, 8.999999999], [3.32, 8.999999999], [3.33, 8.999999999], 

  [3.34, 8.999999999], [3.35, 8.999999999], [3.36, 8.999999999], 

  [3.37, 8.999999999], [3.38, 8.999999999], [3.39, 8.999999999], 

  [3.40, 8.999999999], [3.41, 8.999999999], [3.42, 8.999999999], 

  [3.43, 8.999999999], [3.44, 8.999999999], [3.45, 8.999999999], 

  [3.46, 8.999999999], [3.47, 8.999999999], [3.48, 8.999999999], 

  [3.49, 8.999999999], [3.50, 8.999999999], [3.51, 8.999999999], 

  [3.52, 8.999999999], [3.53, 8.999999999], [3.54, 8.999999999], 

  [3.55, 8.999999999], [3.56, 8.999999999], [3.57, 8.999999999], 

  [3.58, 8.999999999], [3.59, 8.999999999], [3.60, 8.999999999], 

  [3.61, 8.999999999], [3.62, 8.999999999], [3.63, 8.999999999], 

  [3.64, 8.999999999], [3.65, 8.999999999], [3.66, 8.999999999], 

  [3.67, 8.999999999], [3.68, 8.999999999], [3.69, 8.999999999], 

  [3.70, 8.999999999], [3.71, 8.999999999], [3.72, 8.999999999], 

  [3.73, 8.999999999], [3.74, 8.999999999], [3.75, 8.999999999], 

  [3.76, 8.999999999], [3.77, 8.999999999], [3.78, 8.999999999], 

  [3.79, 8.999999999], [3.80, 8.999999999], [3.81, 8.999999999], 

  [3.82, 8.999999999], [3.83, 8.999999999], [3.84, 8.999999999], 

  [3.85, 8.999999999], [3.86, 8.999999999], [3.87, 8.999999999], 

  [3.88, 8.999999999], [3.89, 8.999999999], [3.90, 8.999999999], 

  [3.91, 8.999999999], [3.92, 8.999999999], [3.93, 8.999999999], 

  [3.94, 8.999999999], [3.95, 8.999999999], [3.96, 8.999999999], 

  [3.97, 8.999999999], [3.98, 8.999999999], [3.99, 8.999999999], 

  [4.00, 8.999999999], [4.01, 8.999999999], [4.02, 8.999999999], 

  [4.03, 8.999999999], [4.04, 8.999999999], [4.05, 8.999999999], 

  [4.06, 8.999999999], [4.07, 8.999999999], [4.08, 8.999999999], 

  [4.09, 8.999999999], [4.10, 8.999999999], [4.11, 8.999999999], 

  [4.12, 8.999999999], [4.13, 8.999999999], [4.14, 8.999999999], 

  [4.15, 8.999999999], [4.16, 8.999999999], [4.17, 8.999999999], 

  [4.18, 8.999999999], [4.19, 8.999999999], [4.20, 8.999999999], 

  [4.21, 8.999999999], [4.22, 8.999999999], [4.23, 8.999999999], 

  [4.24, 8.999999999], [4.25, 8.999999999], [4.26, 8.999999999], 

  [4.27, 8.999999999], [4.28, 8.999999999], [4.29, 8.999999999], 

  [4.30, 8.999999999], [4.31, 8.999999999], [4.32, 8.999999999], 

  [4.33, 8.999999999], [4.34, 8.999999999], [4.35, 8.999999999], 

  [4.36, 8.999999999], [4.37, 8.999999999], [4.38, 8.999999999], 

  [4.39, 8.999999999], [4.40, 8.999999999], [4.41, 8.999999999], 

  [4.42, 8.999999999], [4.43, 8.999999999], [4.44, 8.999999999], 

  [4.45, 8.999999999], [4.46, 8.999999999], [4.47, 8.999999999], 

  [4.48, 8.999999999], [4.49, 8.999999999], [4.50, 8.999999999], 

  [4.51, 8.999999999], [4.52, 8.999999999], [4.53, 8.999999999], 

  [4.54, 8.999999999], [4.55, 8.999999999], [4.56, 8.999999999], 

  [4.57, 8.999999999], [4.58, 8.999999999], [4.59, 8.999999999], 

  [4.60, 8.999999999], [4.61, 8.999999999], [4.62, 8.999999999], 

  [4.63, 8.999999999], [4.64, 8.999999999], [4.65, 8.999999999], 

  [4.66, 8.999999999], [4.67, 8.999999999], [4.68, 8.999999999], 

  [4.69, 8.999999999], [4.70, 8.999999999], [4.71, 8.999999999], 

  [4.72, 8.999999999], [4.73, 8.999999999], [4.74, 8.999999999], 

  [4.75, 8.999999999], [4.76, 8.999999999], [4.77, 8.999999999], 

  [4.78, 8.999999999], [4.79, 8.999999999], [4.80, 8.999999999], 

  [4.81, 8.999999999], [4.82, 8.999999999], [4.83, 8.999999999], 

  [4.84, 8.999999999], [4.85, 8.999999999], [4.86, 8.999999999], 

  [4.87, 8.999999999], [4.88, 8.999999999], [4.89, 8.999999999], 

  [4.90, 8.999999999], [4.91, 8.999999999], [4.92, 8.999999999], 

  [4.93, 8.999999999], [4.94, 8.999999999], [4.95, 8.999999999], 

  [4.96, 8.999999999], [4.97, 8.999999999], [4.98, 8.999999999], 

  [4.99, 8.999999999], [5.00, 8.999999999], [5.01, 8.999999999], 

                     ]
  [5.02, 8.999999999]]
                     ]


plot(L2);

#Problem 2
ii)
ToSys(4, x, (x[1] + 2*x[2] + 3*x[3] + 11*x[4])/(x[1] + x[3]), [1, 5, 5, 2]);
[x[1] + 2 x[2] + 3 x[3] + 11 x[4]                  ]              
[--------------------------------, x[1], x[2], x[3]], [1, 5, 5, 2]
[          x[1] + x[3]                             ]              

#Problem 3
NULL;
y := (1 - x[1])*(1 - x[2]);
                   y := (1 - x[1]) (1 - x[2])

Orbk(2, x, y, [2.5, 2.7], 1000, 1010);
   [0.3819660113, 0.3819660113, 0.3819660112, 0.3819660113, 

     0.3819660113, 0.3819660112, 0.3819660113, 0.3819660113, 

     0.3819660112, 0.3819660113, 0.3819660113]


q := ToSys(2, z, (1 - z[1])*(1 - z[2]), [2.5, 2.7]);
         q := [(1 - z[1]) (1 - z[2]), z[1]], [2.5, 2.7]

SFP2(q, x[1], x[2]);
Error, (in FP2) invalid input: too many and/or wrong type of arguments passed to solve; first unused argument is {x[1], [2.5, 2.7]}
#I am unsure why the INI is showing in the output, however I believe this is the correct way to do the problem.