ascaleQpng.nb

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

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

(* CreatedBy='Mathematica 10.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      6992,        185]
NotebookOptionsPosition[      6563,        166]
NotebookOutlinePosition[      6901,        181]
CellTagsIndexPosition[      6858,        178]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"a", " ", "=", 
   RowBox[{"{", " ", 
    RowBox[{"0.1", ",", "0.25", ",", "0.5", ",", "0.75", ",", "1.0"}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.672567540848218*^9, 3.6725675548836737`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Pz", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0.75", ",", "0.7", ",", "0.521", ",", "0.383", ",", "0.295"}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.672567557109519*^9, 3.672567607557576*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"[", "k", "]"}], "]"}], ",", 
       RowBox[{"Pz", "[", 
        RowBox[{"[", "k", "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "1", ",", 
       RowBox[{"Length", "[", "a", "]"}]}], "}"}]}], "]"}], ",", 
   RowBox[{"InterpolationOrder", "\[Rule]", "3"}], ",", 
   RowBox[{"TicksStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Black", ",", 
      RowBox[{"FontFamily", "\[Rule]", "\"\<Latin Modern Roman\>\""}], ",", 
      "36"}], "]"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<a\>\"", ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Latin Modern Roman\>\""}], ",", 
        
        RowBox[{"FontColor", "\[Rule]", "Black"}], ",", 
        RowBox[{"FontSize", "\[Rule]", "48"}]}], "]"}], ",", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<|\!\(\*SubscriptBox[\(P\), \(z\)]\)|\>\"", ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Latin Modern Roman\>\""}], ",", 
        
        RowBox[{"FontColor", "\[Rule]", "Black"}], ",", 
        RowBox[{"FontSize", "\[Rule]", "48"}]}], "]"}]}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Blue", ",", 
      RowBox[{"Thickness", "[", "0.008", "]"}]}], "]"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"All", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.1"}], ",", "0.8"}], "}"}]}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.672567608681848*^9, 3.672567644913563*^9}, {
  3.672567751028409*^9, 3.672567866024081*^9}, {3.6725679042272997`*^9, 
  3.672567910532139*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0, 0, 1], PointSize[0.019444444444444445`], Thickness[0.008], 
     LineBox[CompressedData["
1:eJwtk2dQ1AcahxE0FFHixlDEUCxI7yvIAb+cBshFMMqhAhGOI7jC7FEUFBdM
TorgKF1BIViIMUjTYCxwSg1Nmixbaev2/y7sLkgEFUGOOD4z77zffl+eecwj
4wOPqqupqcWs3F+/rPQvGrH8AQJnDe98SYv6HzbGLPP2LBFw6U0u2uP9BBoV
dX6eCwSKot/3jFk8hc2PDUH0eQKZdU4m202aIGMPmE3NEngTqNmvvq0ZpWk/
dR1XEegmndQNdm9BSdDziAA5gfh/Nuhm2rXC28JAhyJa2RMn67/rbMV0v9nE
rXECbUZJrelH27DGtOyViklg6nllpa5uO8ZmHakO/QTWiNfFXGhsx6DJpe8C
2gmou1RUKGP/gDctju/4mACr9Ihqh1UHMrkJG9urCZyY81BYT3XgPelrkryc
wMAWN3fZ753QXq54lZtLgP1+b/yBjC6sSrRlXz1DIIuSZB8c0o2vfIrpL2MI
PNtZQ1KRe2Dvf2FV2kECJf5TDauNnsE4vPGsPQgIMx2ac9V7cezAUIzQgkDZ
0xMtKbO9OLF4hpOpS+DB0L2QJlkfismx4qVpKbZeF1j5SfrhyNhXQ6ZLMb5K
Y0BbNoDrNc99N/4mBYe7nj8/Mwiv4mv0tBwp1D4wBMoHpFDWqJLOXRhCXs7Z
8gdeUtwk4pRSAzpodPHSeZIU+223XH1bScdCsWuhjkQCxz+rbhV5DGPWY0NY
xEMJkh5Wemc/HwbZfHN0fYYEwYqnV2opDJRVzTds2y+B5oaLE5xlBhZddx8S
bJLgSfnv3rwyJly33fRdLxajSosrv+zGghG3vmC4RgyNwdJ1dBYLGfWGfzt4
QgxNShn32Ek2/Dec8m9yE4P/j1SavT4H/sHUPqdFEbpnJ0wWHnMQRpQ2j7SI
8Hrk+9c3QrkINL1lO54uQvnpu05zS1zo/Ntyc4SPCAq/fy0OVozgyLq+Szma
Ipi1GWSp+47C9Jxt2flnQlDDaEtRk6OwsVKRUy8KoV2yvbAvbwwhofWxFwOE
MBc3xa91GUc6zeBrvp4Qr1pF3W/Z40gj2vpuDgvw8LZ7DzVlAtZrApf/LBag
cG34jZ1f8BDsEiNXCxWghzqX6tDCg2T4ToHKRIDzuJljE/EClV/dfycS8z/6
4eO03MJJq5aPtfzUTL9v+TickDhPS+Ij80zDydfX+BC0Oum6efPBD+9LNlfw
wfu0+6WrNh/Fn/bac3YJsMPWKWC4+gU+N+71ts4WoEDXIKjI5wU4moK9tkwB
0u11Xl8W8rAvYtuCykyI7CWma2caD8q6KmVGrBB2kr/rrt/Kg21KVu9ioxBq
B4zPhHZNIHXfkCv1ExFya20yiqkTOPCgfIgfKELY915m1aQJmJNX7Y6/IcJ7
/qbAjCfjiAz9zM5SIcJiQZ6BLmUc5+pk5C92rXjkRcY7kMah1lCiFpElxq6d
kcHcljF8o+HipM4Uo1j9MP1l3BiGDBnUz7dIkHJv7QjFdAzr03OCahIkSL7z
TdwW+iiSepLyWS0SGIXw8vUyR0E7WdF6W08KuW2hp5H7KApIljl2EVIk59sl
WitHYGdlUvJjvRT+ih+c7W+NoGN3aXq1BoHZu/40vdAR9MnuzrUfIvB2d5Rv
44YRPPwl6dLISveKz/Kv6vdyP/qRYX/ulThSBhfR3cebPA/JkN0vpV735MKZ
ZdAVUyeD9qOIrq55DmZ8984eXCOHKT87+Ho9B64eRzcNhclBEvAW3WI5uNLf
rF/5SA6bb2W5v1pxUGNc31KlN4n7rRbSRSkb6j7Fyl+jJ6Hs28wPuM2GI6Xj
dGzbJCw1Aw7VRrExWH5lV7/R1EpHHltttrNx7JNoraLjU2ikUMwnpCyUtOY1
5fZMoeJxkA2rioUZWZRTnokC1YXZxhZxLGhc2+MZmaiA8cW0fqELC5SFjEfc
LgW8PDoNTd4x8ZvJf0+3GioRQmaNTv7BRMKOvFBZtBINJFfld3lMeDnrkE0f
K/FzdJR1ZigTtUf8+S4aKoQPyP5zypKJgI461zl/FcicPfk+bxh4lJWt43xZ
hYTNb6irexlIbXP2aOSqVvo4P9F5jQHHIq3ykE3TIN8/1VyeyECMfqSWMHga
+xx85T/tZaCZevWw+eVpzHxJc2dvZ+DpvdWR0r5phP9QlBWuzvjoZwaClI13
/QTD+D+iD08f
      "]]}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox[
     StyleBox[
     "\"a\"", FontFamily -> "Latin Modern Roman", FontColor -> GrayLevel[0], 
      FontSize -> 48, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox[
     "\"|\\!\\(\\*SubscriptBox[\\(P\\), \\(z\\)]\\)|\"", FontFamily -> 
      "Latin Modern Roman", FontColor -> GrayLevel[0], FontSize -> 48, 
      StripOnInput -> False], TraditionalForm]},
  AxesOrigin->{0.0859375, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{1155., Automatic},
  Method->{},
  PlotRange->{{0.1, 1.}, {-0.1, 0.8}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[
    GrayLevel[0], FontFamily -> "Latin Modern Roman", 36]]], "Output",
 CellChangeTimes->{3.672567871693431*^9, 3.672567910852655*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.672567869942155*^9, 3.672567869947287*^9}}]
},
WindowSize->{1855, 1056},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"10.3 for Linux x86 (64-bit) (December 10, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 241, 6, 32, "Input"],
Cell[802, 28, 245, 6, 32, "Input"],
Cell[CellGroupData[{
Cell[1072, 38, 1840, 48, 77, "Input"],
Cell[2915, 88, 3537, 72, 757, "Output"]
}, Open  ]],
Cell[6467, 163, 92, 1, 32, InheritFromParent]
}
]
*)

(* End of internal cache information *)