(* 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[      9103,        268]
NotebookOptionsPosition[      8529,        243]
NotebookOutlinePosition[      8870,        258]
CellTagsIndexPosition[      8827,        255]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"height", "=", "8848"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "h", " ", "in", " ", "m", " ", "at", " ", "the", " ", "TROPOSPHERE"}], " ",
    "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"to", "=", "27"}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"in", " ", "celsius"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"t0", "=", 
   RowBox[{"to", "+", "273"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"h", "=", 
   RowBox[{"height", "/", "1000"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"h0", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"grad", "=", 
    RowBox[{"-", "7"}]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"temperature", " ", "decreasing", " ", "rate", " ", "in", " ", 
    RowBox[{"K", "/", "km"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"th", "=", 
   RowBox[{
    RowBox[{"t0", " ", "+", " ", 
     RowBox[{"grad", " ", "*", " ", 
      RowBox[{"(", 
       RowBox[{"h", " ", "-", " ", "h0"}], ")"}]}]}], "//", "N"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{
  "\"\<Temperature at \>\"", ",", " ", "height", " ", ",", 
   "\"\< (m) above from the ground is : \>\"", ",", 
   RowBox[{"(", 
    RowBox[{"th", " ", "-", " ", "273"}], ")"}], ",", " ", "\"\< C\>\""}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.6999377717371116`*^9, 3.699937925342978*^9}, {
   3.699938018652557*^9, 3.6999380831112413`*^9}, {3.6999381149017935`*^9, 
   3.699938326607676*^9}, {3.699938388642389*^9, 3.699938433469638*^9}, {
   3.69993850667047*^9, 3.699938541229472*^9}, {3.6999388384324436`*^9, 
   3.69993884796587*^9}, 3.699938914507107*^9, {3.6999391330026236`*^9, 
   3.69993913524903*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Temperature at \"\>", "\[InvisibleSpace]", "8848", 
   "\[InvisibleSpace]", "\<\" (m) above from the ground is : \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"-", "34.93600000000001`"}], "\[InvisibleSpace]", "\<\" C\"\>"}],
  SequenceForm[
  "Temperature at ", 8848, 
   " (m) above from the ground is : ", -34.93600000000001, " C"],
  Editable->False]], "Print",
 CellChangeTimes->{3.69993884952767*^9, 3.69993914188269*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"sig", "=", 
    RowBox[{"5.67", "*", 
     RowBox[{"(", 
      RowBox[{"10", "^", 
       RowBox[{"(", 
        RowBox[{"-", "8"}], ")"}]}], ")"}]}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"in", " ", 
    RowBox[{"J", "/", "s"}], " ", 
    RowBox[{"m", "^", "2"}], " ", 
    RowBox[{"K", "^", "4"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ts", "=", "5778"}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"in", " ", "K"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rs", "=", 
    RowBox[{"695500", "*", "1000"}]}], ";", " ", 
   RowBox[{"(*", " ", 
    RowBox[{"in", " ", "m"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"re", "=", 
    RowBox[{"6400", "*", "1000"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"in", " ", "m"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d", "=", 
   RowBox[{"149598000", "*", "1000"}]}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"in", " ", "m"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"e", "=", 
   StyleBox[
    RowBox[{"{", 
     RowBox[{
     "0.01", ",", "0.1", ",", "0.5", ",", "0.9", ",", "0.99", ",", " ", 
      "1.0"}], "}"}],
    FontColor->RGBColor[1, 0, 0]]}], " ", ";", 
  RowBox[{"(*", " ", 
   RowBox[{"e", " ", "in", " ", "between", " ", "0", " ", "and", " ", "1"}], 
   " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"te", "=", 
   RowBox[{
    RowBox[{"(", "      ", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"ts", "^", "4"}], ")"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"rs", "^", "2"}], ")"}]}], " ", ")"}], " ", "/", " ", 
      RowBox[{"(", " ", 
       RowBox[{"e", " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"d", "^", "2"}], ")"}], " ", "*", " ", "2"}], " ", ")"}]}], 
     "     ", ")"}], "^", 
    RowBox[{"(", 
     RowBox[{"1", "/", "4"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Temperature on the Earth is : \>\"", ",", 
   RowBox[{"te", " ", "-", " ", "273"}], ",", " ", "\"\< C\>\""}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.699942220334959*^9, 3.6999426257049446`*^9}, {
   3.6999426646138716`*^9, 3.6999427087571783`*^9}, {3.6999427601918726`*^9, 
   3.6999427704588404`*^9}, {3.6999434543051567`*^9, 3.699943457951145*^9}, 
   3.6999438671093874`*^9, {3.6999439858645916`*^9, 3.699943991347711*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1047.6246583918578`", ",", "589.1226387021641`", ",", 
   "393.97005307419965`", ",", "340.130114040397`", ",", "332.1214408768156`",
    ",", "331.28800534741015`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.699942464381303*^9, 3.699942626772891*^9, {3.6999426661605616`*^9, 
   3.6999426843636584`*^9}, 3.6999434687164326`*^9, 3.699943869226057*^9, 
   3.6999439866284103`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Temperature on the Earth is : \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
    "774.6246583918578`", ",", "316.12263870216407`", ",", 
     "120.97005307419965`", ",", "67.13011404039702`", ",", 
     "59.1214408768156`", ",", "58.28800534741015`"}], "}"}], 
   "\[InvisibleSpace]", "\<\" C\"\>"}],
  SequenceForm[
  "Temperature on the Earth is : ", {774.6246583918578, 316.12263870216407`, 
   120.97005307419965`, 67.13011404039702, 59.1214408768156, 
   58.28800534741015}, " C"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6999424643969316`*^9, 3.6999426267884827`*^9, {3.6999426661761527`*^9, 
   3.6999426843636584`*^9}, 3.6999434687164326`*^9, 3.699943869227561*^9, 
   3.699943986630417*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"height", "=", "2524"}], ";", 
  RowBox[{"(*", 
   RowBox[{
   "h", " ", "in", " ", "m", " ", "at", " ", "the", " ", "TROPOSPHERE"}], " ",
    "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"to", "=", "27"}], ";", " ", 
  RowBox[{"(*", 
   RowBox[{"in", " ", "celsius"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"t0", "=", 
   RowBox[{"to", "+", "273"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"h", "=", 
   RowBox[{"height", "/", "1000"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"h0", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"grad", "=", 
   RowBox[{"-", "6.5"}]}], ";", " ", 
  RowBox[{"(*", 
   RowBox[{"temperature", " ", "decreasing", " ", "rate", " ", "in", " ", 
    RowBox[{"K", "/", "km"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"th", "=", 
   RowBox[{
    RowBox[{"t0", " ", "+", " ", 
     RowBox[{"grad", " ", "*", " ", 
      RowBox[{"(", 
       RowBox[{"h", " ", "-", " ", "h0"}], ")"}]}]}], "//", "N"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{
  "\"\<Temperature at \>\"", ",", " ", "height", " ", ",", 
   "\"\< (m) above from the ground is : \>\"", ",", 
   RowBox[{"(", 
    RowBox[{"th", " ", "-", " ", "273"}], ")"}], ",", " ", "\"\< C\>\""}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.700103101247106*^9, 3.700103101693771*^9}, {
  3.700103213049664*^9, 3.7001032140337577`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Temperature at \"\>", "\[InvisibleSpace]", "2524", 
   "\[InvisibleSpace]", "\<\" (m) above from the ground is : \"\>", 
   "\[InvisibleSpace]", "10.593999999999994`", 
   "\[InvisibleSpace]", "\<\" C\"\>"}],
  SequenceForm[
  "Temperature at ", 2524, " (m) above from the ground is : ", 
   10.593999999999994`, " C"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7001031208263445`*^9, 3.700103214749002*^9}]
}, Open  ]]
},
WindowSize->{1520, 781},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
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[CellGroupData[{
Cell[580, 22, 1796, 48, 192, "Input"],
Cell[2379, 72, 473, 10, 23, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2889, 87, 2472, 68, 192, "Input"],
Cell[5364, 157, 423, 9, 31, "Output"],
Cell[5790, 168, 774, 17, 23, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6601, 190, 1445, 38, 192, "Input"],
Cell[8049, 230, 464, 10, 23, "Print"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)