RadioactiveChain - (* Content-type: application/mathematica...

Info iconThis preview shows pages 1–3. Sign up to view the full content.

View Full Document Right Arrow Icon
(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 35318, 964] NotebookOptionsPosition[ 33983, 914] NotebookOutlinePosition[ 34327, 929] CellTagsIndexPosition[ 34284, 926] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Thorium Chain", "Section", CellChangeTimes->{{3.464547658875*^9, 3.464547681328125*^9}}], Cell[TextData[StyleBox["This lists the elements of the chain and their \ half-lifes:", FontColor->RGBColor[1, 0, 1]]], "Text", CellChangeTimes->{{3.46470169671875*^9, 3.464701780484375*^9}, { 3.4648238754375*^9, 3.46482389740625*^9}}, FontSize->16, FontColor->RGBColor[1, 0, 0]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"elements", "=", RowBox[{"{", RowBox[{ "\"\<244-Pu\>\"", ",", "\"\<240-U\>\"", ",", "\"\<240-Np\>\"", ",", "\"\<240-Pu\>\"", ",", "\"\<236-U\>\"", ",", "\"\<232-Th\>\"", ",", "\"\<228-Ra\>\"", ",", "\"\<228-Ac\>\"", ",", "\"\<228-Th\>\"", ",", "\"\<224-Ra\>\"", ",", "\"\<220-Rn\>\"", ",", "\"\<216-Po\>\"", ",", "\"\<212-Pb\>\"", ",", "\"\<212-Bi\>\"", ",", "\"\<212-Po\>\"", ",", "\"\<208-Tl\>\"", ",", "\"\<208-Pb\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"halflifes", "=", RowBox[{"{", RowBox[{ RowBox[{"8.0", "\[Times]", SuperscriptBox["10", "7"], " ", "ys"}], ",", RowBox[{"14.1", " ", "h"}], ",", RowBox[{"1.032", " ", "h"}], ",", RowBox[{"6561", " ", "ys"}], ",", RowBox[{"2.3", " ", SuperscriptBox["10", "7"], " ", "ys"}], ",", RowBox[{"1.405", " ", SuperscriptBox["10", "10"], " ", "ys"}], ",", RowBox[{"5.75", " ", "ys"}], ",", RowBox[{"6.25", " ", "h"}], ",", RowBox[{"1.9116", " ", "ys"}], ",", RowBox[{"3.6319", " ", "d"}], ",",
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
RowBox[{"55.6", " ", "s"}], ",", RowBox[{"0.145", " ", "s"}], ",", RowBox[{"10.64", " ", "h"}], ",", RowBox[{"60.55", " ", "min"}], ",", RowBox[{"299", " ", "ns"}], ",", RowBox[{"3.053", " ", "min"}], ",", RowBox[{"\[Infinity]", " ", "ys"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "elements", "]"}]}], "}"}]}], "]"}], ",", "elements", ",", "halflifes"}], "}"}], "]"}], "//", "TableForm"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", RowBox[{"24.", "h"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ys", "=", RowBox[{"365", " ", "d"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"min", "=", RowBox[{ RowBox[{"1.", "/", "60"}], " ", "h"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"s", "=", RowBox[{ RowBox[{"1", "/", "60"}], "min"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ns", "=", RowBox[{"1.", " ", SuperscriptBox["10", RowBox[{"-", "9"}]], "s"}]}], ";"}]}], "Input", CellChangeTimes->{{3.464529404703125*^9, 3.46452949834375*^9}, {
Background image of page 2
Image of page 3
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 16

RadioactiveChain - (* Content-type: application/mathematica...

This preview shows document pages 1 - 3. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online