math.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     13014,        392]
NotebookOptionsPosition[     11956,        355]
NotebookOutlinePosition[     12446,        375]
CellTagsIndexPosition[     12403,        372]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "PSN 1\n1. ______ A w/ sin A =5/13. A circle with radius 1 and a circle with \
radius x are each tangent to both sides of the angle. The circles are also \
tangent to each other. Find x     April15\n\n2. _.5,1,-.42_   ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"1", "-", 
    RowBox[{"127", " ", 
     SuperscriptBox["x", "6"]}], "+", 
    RowBox[{"126", " ", 
     SuperscriptBox["x", "7"]}]}], " ", "=", "0"}]], "Input"],
 "                                          Dec07\n\n3. _",
 Cell[BoxData[
  RowBox[{"5", 
   SqrtBox[
    RowBox[{
     FractionBox["1", "2"], "+", 
     FractionBox[
      SqrtBox["5"], "2"]}]]}]], "Input"],
 "_ ",
 Cell[BoxData[
  SqrtBox[
   SuperscriptBox["x", "15"]]]],
 "=",
 Cell[BoxData[
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "10"], "-", "1"}]]]],
 "+",
 Cell[BoxData[
  SqrtBox[
   RowBox[{
    SuperscriptBox["x", "5"], "-", "1"}]]]],
 "\[LineSeparator]\nPSN 2\[LineSeparator]\n1. _.99,.49_   ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"40", " ", "x"}], "+", 
    RowBox[{"42", " ", 
     SqrtBox[
      RowBox[{"1", "-", 
       SuperscriptBox["x", "2"]}]]}]}], "=", 
   RowBox[{
    RowBox[{"29", " ", 
     SqrtBox[
      RowBox[{"1", "-", "x"}]]}], "+", 
    RowBox[{"29", " ", 
     SqrtBox[
      RowBox[{"1", "+", "x"}]]}]}]}]], "Input"],
 "         Dec07\[LineSeparator]\[LineSeparator]2. _2 sin[A]sin[B]_ sin[A] + \
sin [B ]\[LineSeparator]\[LineSeparator]3. _______ ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", "b", "+", "c"}], ")"}]}], "+", 
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["a", "2"], "+", 
       SuperscriptBox["b", "2"], "+", 
       SuperscriptBox["c", "2"]}], ")"}]}]}], "\[GreaterEqual]", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", "b", "+", "c"}], ")"}], "2"]}]]],
 "\[LineSeparator]\[LineSeparator]PSN 3\[LineSeparator]\n1. _______  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    FractionBox[
     SqrtBox["3"], "2"], " ", 
    SqrtBox[
     RowBox[{"a", "+", "b", "+", "c"}]]}], "\[GreaterEqual]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"a", "+", "b"}]], "+", 
    FractionBox["1", 
     RowBox[{"a", "+", "c"}]], "+", 
    FractionBox["1", 
     RowBox[{"b", "+", "c"}]]}]}]], "Input"],
 "\n\n2. _______ ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["x", "2"], "+", "xy", "+", 
   SuperscriptBox["y", 
    RowBox[{"2", "/", "3"}]]}]]],
 " = 41  \n\n3. _______ ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", "-", "y"}], ")"}], "2"], 
    RowBox[{"x", "+", "y"}]], "=", "8"}]], "Input"],
 "                                                                 Feb-2009\
\[LineSeparator]\n\[LineSeparator]PSN 4\[LineSeparator]\n1. _64,899,140_  A \
convex cyclic quadrilateral with integer length sides is such that its area \
divided by its perimeter equals 2014.  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"4", " ", "N"}], "+", 
   RowBox[{"16", " ", 
    SuperscriptBox["N", "3"]}]}]]],
 "                                   Nov-14\n\n2. _______    ",
 Cell[BoxData[{
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    RowBox[{"x", " ", "y"}], "+", 
    FractionBox[
     SuperscriptBox["y", "2"], "3"]}], " ", "=", " ", 
   "41"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    FractionBox[
     SuperscriptBox["y", "2"], "3"], "+", 
    SuperscriptBox["z", "2"]}], " ", "=", " ", "16"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "2"], "+", 
    RowBox[{"x", " ", "z"}], "+", 
    SuperscriptBox["z", "2"]}], " ", "=", " ", "25"}]}], "Input"],
 " Find xy + 2yz + 3xz                                   March13\n\n3. \
_______     P(1 + rt) \[LineSeparator]                   700(1+.11 *1)\
\[LineSeparator]\[LineSeparator]PSN 5\[LineSeparator]\[LineSeparator]1. \
_______ ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"x", "+", "y", "-", 
    SqrtBox[
     RowBox[{
      SuperscriptBox["x", "2"], "+", "xy", "+", 
      SuperscriptBox["y", "2"]}]]}], " ", "=", 
   RowBox[{"2", "+", 
    SqrtBox["5"]}]}]], "Input"],
 "\[LineSeparator]                   ",
 Cell[BoxData[
  RowBox[{"a", "+", 
   RowBox[{
    SqrtBox["5"], " ", "a", " ", "and", " ", "are", " ", 
    SuperscriptBox["b", "2"], " ", "integers", " ", "positive", " ", 
    "where"}]}]]],
 "\[LineSeparator]\[LineSeparator]2. _1, 2___ ",
 Cell[BoxData[
  RowBox[{" ", 
   RowBox[{
    RowBox[{"18", "+", 
     SuperscriptBox["2", "x"], "+", 
     SuperscriptBox["3", "x"], "+", 
     SuperscriptBox["5", "x"], "-", 
     SuperscriptBox["28", "x"]}], "=", " ", "0"}]}]], "Input"],
 "                                         Jan08          \[LineSeparator]\
\[LineSeparator]3. \
_(9,9,3),(2,12,6),(162,4,41),(405,25,19),(18,36,5),(54,12,6)_   ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    FractionBox["9", "a"], "+", 
    FractionBox["a", "b"], "+", 
    FractionBox["b", "9"]}], "=", "c"}]]],
 "                                                          April13  \
\[LineSeparator]  \[LineSeparator]\[LineSeparator]",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["b", "2"], "+", "bd", "+", 
     SuperscriptBox["d", "2"]}], 
    RowBox[{"b", "+", "d"}]], "=", 
   RowBox[{
    RowBox[{"7", "^", "6"}], "                                                                         ",
     "March2013"}]}]]]
}], "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", " ", "for", " ", "x", 
   FractionBox["3", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "x"}]]}], "<", 
  FractionBox["2", 
   RowBox[{"1", "+", "x"}]]}]], "Input"],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{"700", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox["0.012`", "12"]}], ")"}], 
    RowBox[{"8.8`", " ", "12"}]]}]]],
 "=777"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"1", "/", "36", " "}]], "Input"],

Cell[BoxData[
 FractionBox["1", "36"]], "Output"]
}, Open  ]],

Cell["5280ft = 1 mile  2.54cm = 1in\[LineSeparator]1 Cubic Foot = 7.480 Ga\
\[LineSeparator]", "Program"],

Cell["\<\
700 principal at 1.2 % interest monthly for 8.8 years results in what total \
amount\
\>", "Text"],

Cell["700 princile at 6.77` interest for 1 year equals", "Text"],

Cell["\<\
you are saving for a house with 700 principal at 1.2 % interest monthly for \
8.8 years which results in how much total interest?\
\>", "Text"],

Cell["\<\
you are saving for a bike with 700 princile at 6.77` interest for 1 year \
equals\
\>", "Text"],

Cell["\<\
You have 2 A - F dies.  If A is loaded at 25 % what is the probability of the \
other events.  If G is DIE1 = A and H is DIE2 = A then G&H is 1/36.  G and H \
are both 6/36.  and P(G or H) is\
\>", "Text"],

Cell["What is the probability of rolling one A given G and H.  ", "Text"],

Cell[TextData[{
 "mean ",
 Cell[BoxData[
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"i", "=", "1"}], "n"], 
   FractionBox[
    RowBox[{"x", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
    "n"]}]]],
 "Median[{1,2,3,4,5,6,7}]"
}], "Text"],

Cell["\<\
how long does it take to fill a 30 gallon bucket at .5 gallons a minute?\
\>", "Text"],

Cell["how long deos it take to fill a ", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SqrtBox[
    FractionBox[
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"i", "=", "1"}], "n"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
         "-", 
         RowBox[{"Mean", "[", "x", "]"}]}], ")"}], "2"]}], 
     RowBox[{"n", "-", "1"}]]], 
   RowBox[{"StandardDeviation", "[", "x", "]"}]}], ";"}]], "Input"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnAtQE2cewCMP8dGzUJR6pWDpHNS2c1ZFtL3WnqAVlRlOKvZhtSoonF6v
YGmxKGCladFeDyiCIKWlyEsFwZZXR5ETDD6AU49EwQmvZCAQJpBIktlksjtc
EkB5ZDePzbdhM99vBicY8v33t99/9/t2v/3HIyTi3TAbBoMRNUf9z7t7D/t+
9tnemG126l/8Yj7fH2KrfvGG+keh/tG8HoFAIBAIBAKBQCAQCAQCgcwQUARR
0a9pywS1OiHwzc8AMElzblJSWkZS9PaNe7PbEHo0bZmgVicEvvmZAsb/eYtf
fKNcfUh3pa1wXH9OSKo1lXRwSI6BaNrAqCCDUiZEYVCLOFkCeVvpL5f56kEL
5WWsfNrXdE9M0pgSssqB4Z3JQ83ctDFRQQalQojqoBZxshyY+NqhVX9NaJQS
/A3ysLyyg2hgk17f7+YV9z+F8U2TQWdUs/jgAFrI5KCmChnYPP1BWrPDdp+4
LsII/2og/53NRSL895WchJddP746bELTJNAV1Tw+ugEuZHpQ04QMbp5WKATN
5Xlny5qEcrFodE6r5FV8n1jMRUYwQUVSzQD+R/XsRoyf9bqzb1ZdZf5P+TWd
iFFNm870qObyGWtf1n3z17zcCzUckYoSIRJBDREi0f+0QdVTFrkhMLG+X9r2
8w6v+ctSOlFMdDnMnTHL3sHBwZ7BeP4gS4b/cT27cfBSwDwHn4hzrRJhVbjP
tkK+0PCmTWdK1Hx2tbl81FNWEevkdv8DOc3CYXbKVv9EVgUFQiSC6hMi2f80
QdWV5bfQ51SH5kap/MYnbm6f3JAb1QDxbpRdD3v+hYhbmibVl+6v/cH3vCkj
qLGQiaonLdCewqDnljPZiOZlcXhQVGUfaoYtJoZUUGIh0v1PD2Ss8EW2q7O0
tyVUD797dVFwtUTfZ9CeskNB/hvHWOfFsHlp3fhv/kHR1cInEzrl/a+XLv7w
srZJaV3owtl+xYPgZEyMaoTPiKzh4GK7Ndl88Lk9AWODGiFkSv/TELTrh1cY
noltSvVrTJD7luNbuQLlsEhuxKUH4eliqGzTor/k9GqaQ5qi3OeuzeqiIENI
RSX0wXgZyxjuR+8pcN4HAsmgREJm6H960F/wttM67aiu6jrz9rwX4+7xK77K
bjVilxLmxXDN7le3lYvVO3GgfI/HsrhmSsZEUlGJh3lxxdaFy9O6xw4bZXdV
TjUf+No4uaCEQuT7nx5g4v98semj5NKSzG8TTkau9fk0I/mbC51KI1rQMz9v
+vaD0O+LchJC3j9a2UvV0xJkouqZnytaMz8OjPyp+mp5wZmUpIyqLipSglRQ
4gGKdP/TB1Ta08Ef1mQDJhcKJEYm40CBfwDhZR4q7e3qo3wkNDmqXh/NbhK0
d1CtZHJQAzqITP+PSLn1d/oN/xAmvpvHPBoT9Y+DX56uE0w9olBh1Zeflghm
4LwJk/b1yYBvF4lFPSOhxkcDRU6ghcT10d5zGU+viTzP1S8jZ2dG/7tOc1jI
Oakbnvnj++d7Jlw6YaLfw90dVqZRcRE3MzF5UW8GY01OCt5vMb4utnNe2nG6
SYyK8fJUWvf3V5aHFHZrT+OSKzufmbWUeX/8nI4NXk87EbvGEea5pbfCvFif
EypqSAr2nGM/x9510/ErOi6MlO05ezaF5nZoU1vGOvAcY0lU4+hdAmyQlZ7e
0HFhPcxzq8oJ63TSIhuRtRYc9HG0c1xL8AwYcjfWa7ZX9G3tWis2dCP9VP0g
Nlhi3jyXy+X/nWE8evQIf3v15wSXy7W0gQ4QBH/OakCeczgcSxtMgs/nE+eV
BpVAJahlbna1s18SfKYVxx9h/2udV0DKPe1hgIlvZaRe0zwwZu48Z7PZK2YY
9fX1E7fQmFVKDeHh4ZY20EF7ezsJp5HAwEBLG0yCyWQSZRXCLY583XHW/Fnz
X9uX04L/NC82WBcftCfr/ti6huR2RkqtUJvb5s5zumGNY7wVOaHiptM7X55r
5+J7pIKnGCG+vS/nZEd8nv9Qc6JXdNfd6BVzsuOOxB/TEB/1t8WMRQGHjp+6
3EPNllOC4YW2NMoJg6Vo4qTHBxWU7loye67neyk3RQachlW80qMRP9S0PHjw
gH2n4WLCP4t6JgxiaFf6ynkrTnWONoRwi47FnX1gpjV0ZVcJM5k1ZJ7GcMBE
9SmJl3hPVgWMLbQ1IifGfMDfAicrZUyeA5KaXLprmo9C2C4wdBUAaWF6a77z
8zHPhl4bn96o+q4mR3202tHWcfWOqOQawQgmKPCzZbyRaZZZzDArekNoaT/w
rMD6L+3fHHtrTMroQlsDVilHocpHCzkpg53ASE0v3SXbSTMXpDlm+fpfeinJ
CpSX5bvqq5bRuZuxhbYGLupR6aOFjJShC5XgpKYX0RrvgwrOB7/o7KQTZ8+d
v82EiZm4YqtrUIWYqnBDpVvcdkyq2TRzoS3FPlpoLKWzdBe4D/VIqgOfWpU3
pfYPHWJfuZCXm1/Jxl29NZDJ9Ywa+n7884L3ah/vL3MX2gL2mV5EqYW2UjpK
dzUA9qEeJSfG2fkwZ+IjY6igLDIk5fYQquIVhu8712vyTpxSz3iSox0JkcYD
C549ztW2av5CW5A+Oooox9+irdTU0t2xJ6rA+lgASXUAwz2td8L/YD3Zaz13
XeQrR2R3Uw+nNg/jfpYYvHpGrDPRxWa7+lwBpNAWnA9hESVdpfCKaMH6WADx
JT/G0pxJFxeyO1+/uYDBsF+88oPk2+JJQxXae/YdRxuGDmycA4snHer49Yx9
p5cwtoCqQATnQ1xESU8p/CJaoD4WYLg22MY1ZcK6E9LH7R5GFYKmsqQ9S53e
zO4xbU6GX8+ItjNdHHazABXPgfLRU0RJTyn8IlqwPhYA6zjp9tS+xyOw7GaE
h9PGfG0th7zxyPrwGlMPadx6Rmn9rvl/SuUDuqQB5kNcRElTKdwiWrA+lgC5
FebklTZ+QkD7a5JOZJXV1l+5+OM3sUlXSXwvCU49I9b5nYfLobvAKipB+RAW
UdJVCq+IFrSPJUCaozy803lPDl1U1tfexhObo155ej0j2pG8wiu2BeAeBOiD
V0RJc6lpRbTgfSwB1lu4dXU8NV9HgjR+4b394rRHT80KlT5arE2KCh+LgPKL
dm8+Bn6tS8KK2RhaYvoNbEOhykeLtUlR5WMZFB1V5xoBP6840FD4OyVfdTIy
7kPB84pWJkWpDwQCgUAgEAgEAoFAIBAIBAKBQCAQCAQCgUAgEAgEAoFAIBAI
/fg/hvX9VQ==
    "], {{0, 57}, {248, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  BaseStyle->"ImageGraphics",
  ImageSizeRaw->{248, 57},
  PlotRange->{{0, 248}, {0, 57}}]], "Input"],

Cell["Linear Algebra", "Text"]
},
WindowSize->{667, 670},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{612, 792}},
FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (July 1, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 5417, 173, 1067, "Text"],
Cell[5978, 195, 206, 7, 46, "Input"],
Cell[6187, 204, 217, 9, 38, "Text"],
Cell[CellGroupData[{
Cell[6429, 217, 55, 1, 31, "Input"],
Cell[6487, 220, 49, 1, 46, "Output"]
}, Open  ]],
Cell[6551, 224, 105, 1, 80, "Program"],
Cell[6659, 227, 108, 3, 30, "Text"],
Cell[6770, 232, 64, 0, 30, "Text"],
Cell[6837, 234, 153, 3, 49, "Text"],
Cell[6993, 239, 105, 3, 30, "Text"],
Cell[7101, 244, 215, 4, 68, "Text"],
Cell[7319, 250, 73, 0, 30, "Text"],
Cell[7395, 252, 263, 10, 37, "Text"],
Cell[7661, 264, 96, 2, 30, "Text"],
Cell[7760, 268, 48, 0, 30, "Text"],
Cell[7811, 270, 467, 15, 68, "Input"],
Cell[8281, 287, 3638, 64, 72, "Input"],
Cell[11922, 353, 30, 0, 30, "Text"]
}
]
*)

(* End of internal cache information *)