Advertisement
mahmoodn

solve.nb

May 17th, 2016
1,117
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.15 KB | None | 0 0
  1. (* Content-type: application/vnd.wolfram.mathematica *)
  2.  
  3. (*** Wolfram Notebook File ***)
  4. (* http://www.wolfram.com/nb *)
  5.  
  6. (* CreatedBy='Mathematica 10.3' *)
  7.  
  8. (*CacheID: 234*)
  9. (* Internal cache information:
  10. NotebookFileLineBreakTest
  11. NotebookFileLineBreakTest
  12. NotebookDataPosition[ 158, 7]
  13. NotebookDataLength[ 1918, 77]
  14. NotebookOptionsPosition[ 1570, 60]
  15. NotebookOutlinePosition[ 1915, 75]
  16. CellTagsIndexPosition[ 1872, 72]
  17. WindowFrame->Normal*)
  18.  
  19. (* Beginning of Notebook Content *)
  20. Notebook[{
  21. Cell[BoxData[
  22. RowBox[{
  23. RowBox[{"a", "=", "3"}], ";"}]], "Input",
  24. CellChangeTimes->{{3.67245858111902*^9, 3.6724586091944237`*^9}}],
  25.  
  26. Cell[CellGroupData[{
  27.  
  28. Cell[BoxData[
  29. RowBox[{"Solve", "[",
  30. RowBox[{
  31. RowBox[{
  32. RowBox[{
  33. RowBox[{"x", "^", "2"}], "+",
  34. RowBox[{"a", " ", "x"}], "+", "1"}], "==", "0"}], ",", "x"}],
  35. "]"}]], "Input",
  36. CellChangeTimes->{{3.6724585110847526`*^9, 3.672458525710531*^9},
  37. 3.672458572665449*^9}],
  38.  
  39. Cell[BoxData[
  40. RowBox[{"{",
  41. RowBox[{
  42. RowBox[{"{",
  43. RowBox[{"x", "\[Rule]",
  44. RowBox[{
  45. FractionBox["1", "2"], " ",
  46. RowBox[{"(",
  47. RowBox[{
  48. RowBox[{"-", "3"}], "-",
  49. SqrtBox["5"]}], ")"}]}]}], "}"}], ",",
  50. RowBox[{"{",
  51. RowBox[{"x", "\[Rule]",
  52. RowBox[{
  53. FractionBox["1", "2"], " ",
  54. RowBox[{"(",
  55. RowBox[{
  56. RowBox[{"-", "3"}], "+",
  57. SqrtBox["5"]}], ")"}]}]}], "}"}]}], "}"}]], "Output",
  58. CellChangeTimes->{{3.67245857460305*^9, 3.672458601115856*^9}}]
  59. }, Open ]]
  60. },
  61. WindowSize->{759, 601},
  62. WindowMargins->{{Automatic, 295}, {24, Automatic}},
  63. FrontEndVersion->"10.3 for Microsoft Windows (64-bit) (October 9, 2015)",
  64. StyleDefinitions->"Default.nb"
  65. ]
  66. (* End of Notebook Content *)
  67.  
  68. (* Internal cache information *)
  69. (*CellTagsOutline
  70. CellTagsIndex->{}
  71. *)
  72. (*CellTagsIndex
  73. CellTagsIndex->{}
  74. *)
  75. (*NotebookFileOutline
  76. Notebook[{
  77. Cell[558, 20, 134, 3, 31, "Input"],
  78. Cell[CellGroupData[{
  79. Cell[717, 27, 290, 9, 31, "Input"],
  80. Cell[1010, 38, 544, 19, 46, "Output"]
  81. }, Open ]]
  82. }
  83. ]
  84. *)
  85.  
  86. (* End of internal cache information *)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement