(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      2550,         99]
NotebookOptionsPosition[      2132,         80]
NotebookOutlinePosition[      2493,         96]
CellTagsIndexPosition[      2450,         93]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["sPF", "1"], "==", 
   RowBox[{"a", "+", 
    RowBox[{
     FractionBox["c", "a"], "x"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["sPF", "2"], "==", 
   RowBox[{"a", "-", 
    RowBox[{
     FractionBox["c", "a"], "x"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    SubscriptBox["sPF", "1"], "+", 
    SubscriptBox["sPF", "2"]}], "==", 
   RowBox[{"2", "a"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.437175771453125*^9, 3.43717581671875*^9}, 
   3.437176292703125*^9, {3.43717638040625*^9, 3.437176408015625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"a", "+", 
     FractionBox[
      RowBox[{"c", " ", "x"}], "a"]}], ")"}], "2"], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["a", "2"], "+", 
  RowBox[{"2", " ", "c", " ", "x"}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["c", "2"], " ", 
    SuperscriptBox["x", "2"]}], 
   SuperscriptBox["a", "2"]]}]], "Output",
 CellChangeTimes->{3.437176228109375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   SuperscriptBox[
    SubscriptBox["sPF", "1"], "2"], "==", 
   RowBox[{
    SuperscriptBox["a", "2"], "+", 
    RowBox[{"2", " ", "c", " ", "x"}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["c", "2"], " ", 
      SuperscriptBox["x", "2"]}], 
     SuperscriptBox["a", "2"]]}]}]}]], "Input",
 CellChangeTimes->{{3.4371761493125*^9, 3.437176242765625*^9}}]
},
WindowSize->{581, 598},
WindowMargins->{{9, Automatic}, {Automatic, 18}},
Magnification->1.5,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 28, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 625, 20, 143, "Input"],
Cell[CellGroupData[{
Cell[1218, 45, 183, 6, 66, "Input"],
Cell[1404, 53, 281, 9, 67, "Output"]
}, Open  ]],
Cell[1700, 65, 428, 13, 102, "Input"]
}
]
*)

(* End of internal cache information *)