Problem Set 4 Answer Checker
Work on the assigned problems in the associated Problem Set PDF file, then use the problem set checker to find out if the answer was correct or incorrect. To check your answers put them in the appropriate box and click the ‘Check’ button. Every checker box can do arithmetic and calculate standard functions (see calculator help). If you give decimal answers, give them to at least 3 decimal places.
As you work you should have pencil and paper handy for calculations and thinking!
Note: some questions ask for a formula. For the checker we ask you to plug a value into the formula. For your pset you still need to give the whole formula.
//DEBUG PARAMETERS //Because we don’t show solutions for pset checkers we use //this to give a showanswer button during the debugging phase var debugans = undefined; //release //var debugans = kDebugAnswer; //debug problemNumber = 0; wl(“Calculator”); writecalculator(“psetcheckcalcid”, “Calculate”); whr(kdivcol,kdivwid);
//Problem 1 problemNumber++; wl(problemheader(problemNumber)); wl(''); var s; var partName, problemName, buttonLabel, answerArray, correct; s = “(a) Let $x = 0.3$ and $λ = 2$ and give $P(X ≥ x)$."; wl(s); wl(kp); partName = problemNumber + " (a)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, 0.54881, buttonLabel, 0.001, debugans); wl(kp); s = “(b) Let $λ = 2$ and give $F_T(0.25)$."; wl(s); wl(kp); partName = problemNumber + " (b)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, 0.63212, buttonLabel, 0.001, debugans); wl(kp); s = “(c)} Expected time before a bulb fails."; wl(s); wl(kp); partName = problemNumber + " (c)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, 0.1, buttonLabel, 0.001, debugans); wl(kp); whr(kdivcol,kdivwid);
//Problem 2 problemNumber++; wl(problemheader(problemNumber)); wl(''); var s; var partName, problemName, buttonLabel, answerArray, correct; s = “Give answers to 3 decimal places. (Or give as fraction like 4/7.)"; wl(s); wl(kp); s = “(a.1) Give the value of $c$."; wl(s); wl(kp); partName = problemNumber + " (a.1)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, 1.7143, buttonLabel, 0.001, debugans); wl(kp) s = “(a.2) Give $F(0.3, 0.7)$”; wl(s); wl(kp); partName = problemNumber + " (a.2)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, 0.029700, buttonLabel, 0.001, debugans); wl(kp) s = “(b.1) Give $F_X(0.5)$."; wl(s); wl(kp); partName = problemNumber + " (b.1)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, 0.17857, buttonLabel, 0.001, debugans); wl(kp) s = “(b.2) Give $f_X(0.5)$."; wl(s); wl(kp); partName = problemNumber + " (b.2)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, 0.85714, buttonLabel, 0.01, debugans); wl(kp) s = “(b.3) Give $F_Y(0.5)$."; wl(s); wl(kp); partName = problemNumber + " (b.3)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, 0.39286, buttonLabel, 0.001, debugans); wl(kp) s = “(b.4) Give $f_Y(0.5)$”; wl(s); wl(kp); partName = problemNumber + " (b.4)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, 1.0, buttonLabel, 0.001, debugans); wl(kp) s = “(c.1) Give $E(X)$."; wl(s); wl(kp); partName = problemNumber + " (c.1)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, 0.71429, buttonLabel, 0.001, debugans); wl(kp) s = “(c.2) Give Var$(X)$.” wl(s); wl(kp); partName = problemNumber + " (c.2)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, 0.046939, buttonLabel, 0.001, debugans); wl(kp) wl(emphtext(“The following are not part of the problem, but you need them for part (d).")); wl(kp); s = “(X.1) Give $E(Y)$."; wl(s); wl(kp); partName = problemNumber + " (X.1)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, 0.57143, buttonLabel, 0.001, debugans); wl(kp) s = “(X.2) Give Var$(Y)$."; wl(s); wl(kp); partName = problemNumber + " (X.2)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, 0.078231, buttonLabel, 0.001, debugans); wl(kp) s = “(d.1) Give Cov($X,Y$). " + emphtext("(Give to 4 decimal places)"); wl(s); wl(kp); partName = problemNumber + " (d.1)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, -0.0034014, buttonLabel, 0.0001, debugans); wl(kp) s = “(d.2) Give Cor($X,Y$)."; wl(s); wl(kp); partName = problemNumber + " (d.2)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, -0.056130, buttonLabel, 0.001, debugans); wl(kp) whr(kdivcol,kdivwid);
//Problem 3 problemNumber++; wl(problemheader(problemNumber)); wl(''); var s; var partName, problemName, buttonLabel, answerArray, correct; s = “(a) Probability at least 52.5% prefer Erika."; wl(s); wl(kp); partName = problemNumber + " (a)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, 0.1586553, buttonLabel, 0.004, debugans); wl(kp) s = “(b) Probability less than 25\% prefer Peter, Jon or Jerry."; wl(s); wl(kp); partName = problemNumber + " (b)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, 0.0145, buttonLabel, 0.001, debugans); wl(kp) whr(kdivcol,kdivwid);
//Problem 4 problemNumber++; wl(problemheader(problemNumber)); wl(''); var s; var partName, problemName, buttonLabel, answerArray, correct; s = “Estimate $p$."; wl(s); wl(kp); partName = problemNumber + " (b)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, 0.02534, buttonLabel, 0.002, debugans); wl(kp) whr(kdivcol,kdivwid);
//Problem 5 problemNumber++; wl(problemheader(problemNumber)); wl(''); var s; var partName, problemName, buttonLabel, answerArray, correct; s = knoonlinecheck; wl(s); wl(kp); wl(kbr); whr(kdivcol,kdivwid);
//Problem 6 problemNumber++; wl(problemheader(problemNumber)); wl(''); var s; var partName, problemName, buttonLabel, answerArray, correct; s = “(a) Joint distribution: " + emphtext(“no answer given”); wl(s); wl(kp); s = “(a.1) Give Cov$(X,Y)$ for $c$ = 0.1."; wl(s); wl(kp); partName = problemNumber + " (a.1)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, -.6, buttonLabel, 0.01, debugans); wl(kp) s = “(a.2) Give Cor$(X,Y)$ for $c$ = 0.3.” wl(s); wl(kp); partName = problemNumber + " (a.2)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, .2, buttonLabel, 0.01, debugans); wl(kp) whr(kdivcol,kdivwid);
//Problem 7 problemNumber++; wl(problemheader(problemNumber)); wl(''); var s; var partName, problemName, buttonLabel, answerArray, correct; s = “(a.1) Give $1000*f(7,12)$."; wl(s); wl(kp); partName = problemNumber + " (a.1)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, 0.27778, buttonLabel, 0.005, debugans); wl(kp) s = “(a.2) Give $1000*F(7,12)$."; wl(s); wl(kp); partName = problemNumber + " (a.2)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, 23.333, buttonLabel, 0.01, debugans); wl(kp) s = “(b) Give the probability Alice arrives before 12:30”; wl(s); wl(kp); partName = problemNumber + " (b)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, .5, buttonLabel, 0.001, debugans); wl(kp) s = “(c) Give the probability Alice arrives before 12:15 and Bob arrives between 12:30 and 12:45."; wl(s); wl(kp); partName = problemNumber + " (c)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, .0625, buttonLabel, 0.001, debugans); wl(kp) s = “(d) Give the probability Alice arrives less than 5 minutes after Bob. (This includes Alice arriving " + emphtext(‘before’) + " Bob.)"; wl(s); wl(kp); partName = problemNumber + " (d)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, 0.57986, buttonLabel, 0.001, debugans); wl(kp) s = “(e) Give the probability Alice and Bob have lunch."; wl(s); wl(kp); partName = problemNumber + " (e)"; problemName = “prob” + partName; buttonLabel = “Check problem " + partName; writeNumericBox(partName+"id”, 0.43750, buttonLabel, 0.001, debugans); wl(kp) whr(kdivcol,kdivwid);