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

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

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     30985,        693]
NotebookOptionsPosition[     30362,        674]
NotebookOutlinePosition[     30792,        691]
CellTagsIndexPosition[     30749,        688]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "\[Lambda]", ",", "d", ",", "\[Alpha]1", ",", "\[Alpha]2", ",", "to1", ",",
     "to2", ",", "t1", ",", "t2", ",", "u", ",", "t", ",", "x", ",", "rstt", 
    ",", "rsta", ",", "rsat", ",", "rsaa"}], "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Plane", " ", "wall"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rs", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], ";", 
  RowBox[{"rsp", "=", 
   RowBox[{"{", 
    RowBox[{"rstt", ",", "rsta", ",", "rsat", ",", "rsaa"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rs", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "=", 
   RowBox[{"DSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", "0", "]"}], "\[Equal]", "t1"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"u", "''"}], "[", "x", "]"}], "\[Equal]", "0"}], ",", 
       RowBox[{
        RowBox[{"u", "[", "d", "]"}], "\[Equal]", "t2"}]}], "}"}], ",", 
     RowBox[{"u", "[", "x", "]"}], ",", "x"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rs", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "=", 
   RowBox[{"DSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", "0", "]"}], "\[Equal]", "t1"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"u", "''"}], "[", "x", "]"}], "\[Equal]", "0"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[Lambda]"}], "  ", 
         RowBox[{
          RowBox[{"u", "'"}], "[", "d", "]"}]}], "\[Equal]", 
        RowBox[{"\[Alpha]2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"u", "[", "d", "]"}], "-", "to2"}], ")"}]}]}]}], "}"}], 
     ",", 
     RowBox[{"u", "[", "x", "]"}], ",", "x"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rs", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "=", 
   RowBox[{"DSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[Lambda]"}], "  ", 
         RowBox[{
          RowBox[{"u", "'"}], "[", "0", "]"}]}], "\[Equal]", " ", 
        RowBox[{"\[Alpha]1", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"u", "[", "0", "]"}]}], "+", "to1"}], ")"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"u", "''"}], "[", "x", "]"}], "\[Equal]", "0"}], ",", 
       RowBox[{
        RowBox[{"u", "[", "d", "]"}], "\[Equal]", "t2"}]}], "}"}], ",", 
     RowBox[{"u", "[", "x", "]"}], ",", "x"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rs", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "=", 
   RowBox[{"DSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[Lambda]"}], "  ", 
         RowBox[{
          RowBox[{"u", "'"}], "[", "0", "]"}]}], "\[Equal]", " ", 
        RowBox[{"\[Alpha]1", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"u", "[", "0", "]"}]}], "+", "to1"}], ")"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"u", "''"}], "[", "x", "]"}], "\[Equal]", "0"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[Lambda]"}], "  ", 
         RowBox[{
          RowBox[{"u", "'"}], "[", "d", "]"}]}], "\[Equal]", 
        RowBox[{"\[Alpha]2", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"u", "[", "d", "]"}], "-", "to2"}], ")"}]}]}]}], "}"}], 
     ",", 
     RowBox[{"u", "[", "x", "]"}], ",", "x"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"rs", ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       FractionBox[
        RowBox[{
         RowBox[{"d", " ", "t1"}], "-", 
         RowBox[{"t1", " ", "x"}], "+", 
         RowBox[{"t2", " ", "x"}]}], "d"], ",", 
       FractionBox[
        RowBox[{
         RowBox[{"d", " ", "t1", " ", "\[Alpha]2"}], "-", 
         RowBox[{"t1", " ", "x", " ", "\[Alpha]2"}], "+", 
         RowBox[{"to2", " ", "x", " ", "\[Alpha]2"}], "+", 
         RowBox[{"t1", " ", "\[Lambda]"}]}], 
        RowBox[{
         RowBox[{"d", " ", "\[Alpha]2"}], "+", "\[Lambda]"}]], ",", 
       FractionBox[
        RowBox[{
         RowBox[{"d", " ", "to1", " ", "\[Alpha]1"}], "+", 
         RowBox[{"t2", " ", "x", " ", "\[Alpha]1"}], "-", 
         RowBox[{"to1", " ", "x", " ", "\[Alpha]1"}], "+", 
         RowBox[{"t2", " ", "\[Lambda]"}]}], 
        RowBox[{
         RowBox[{"d", " ", "\[Alpha]1"}], "+", "\[Lambda]"}]], ",", 
       FractionBox[
        RowBox[{
         RowBox[{"d", " ", "to1", " ", "\[Alpha]1", " ", "\[Alpha]2"}], "-", 
         RowBox[{"to1", " ", "x", " ", "\[Alpha]1", " ", "\[Alpha]2"}], "+", 
         RowBox[{"to2", " ", "x", " ", "\[Alpha]1", " ", "\[Alpha]2"}], "+", 
         RowBox[{"to1", " ", "\[Alpha]1", " ", "\[Lambda]"}], "+", 
         RowBox[{"to2", " ", "\[Alpha]2", " ", "\[Lambda]"}]}], 
        RowBox[{
         RowBox[{"d", " ", "\[Alpha]1", " ", "\[Alpha]2"}], "+", 
         RowBox[{"\[Alpha]1", " ", "\[Lambda]"}], "+", 
         RowBox[{"\[Alpha]2", " ", "\[Lambda]"}]}]]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "d"}], "}"}], 
     RowBox[{"(*", 
      RowBox[{"PlotLabels", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<PW is known: t1, t2\>\"", ",", 
         "\"\<PW is known: t1, \[Alpha]2, to2\>\"", ",", 
         "\"\<PW is known: to1, \[Alpha]1, t2\>\"", ",", 
         "\"\<PW is known: to1, \[Alpha]1, \[Alpha]2,to2\>\""}], "}"}]}], 
      "*)"}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<teplota [\[Degree]C]\>\"", ",", "\"\<\>\""}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"\"\<d [m]\>\"", ",", "\"\<Plane wall (PW)\>\""}], "}"}]}], 
       "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<PW is known: t1, t2\>\"", ",", 
        "\"\<PW is known: t1, \[Alpha]2, to2\>\"", ",", 
        "\"\<PW is known: to1, \[Alpha]1, t2\>\"", ",", 
        "\"\<PW is known: to1, \[Alpha]1, \[Alpha]2,to2\>\""}], "}"}]}]}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"d", ",", "0.01", ",", "10", ",", "Slider", ",", " ", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"to1", ",", "30"}], "}"}], ",", "10", ",", "1500"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t1", ",", "50"}], "}"}], ",", "10", ",", "1500"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]1", ",", "10", ",", "500"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Lambda]", ",", "10", ",", "500"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]2", ",", "10", ",", "500"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t2", ",", "10", ",", "500"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"to2", ",", "10", ",", "500"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d", "=", "0.1"}], ";", 
  RowBox[{"to1", "=", "700"}], ";", 
  RowBox[{"t1", "=", "700"}], ";", 
  RowBox[{"\[Alpha]1", "=", "50"}], ";", 
  RowBox[{"\[Lambda]", "=", "100"}], ";", 
  RowBox[{"\[Alpha]2", "=", "20"}], ";", 
  RowBox[{"t2", "=", "20"}], ";", 
  RowBox[{"to2", "=", "20"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"u", "[", "x", "]"}], "/.", 
       RowBox[{"rs", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"u", "[", "x", "]"}], "/.", 
       RowBox[{"rs", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"u", "[", "x", "]"}], "/.", 
       RowBox[{"rs", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"u", "[", "x", "]"}], "/.", 
       RowBox[{"rs", "[", 
        RowBox[{"[", "4", "]"}], "]"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "d"}], "}"}], ",", 
    RowBox[{"PlotLabels", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<rstt\>\"", ",", "\"\<rsta\>\"", ",", "\"\<rsat\>\"", ",", 
       "\"\<rsaa\>\""}], "}"}]}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\"\<teplota [\[Degree]C]\>\"", ",", "\"\<\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<d [m]\>\"", ",", "\"\<rovinna stena\>\""}], "}"}]}], 
      "}"}]}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<rstt\>\"", ",", "\"\<rsta\>\"", ",", "\"\<rsat\>\"", ",", 
       "\"\<rsaa\>\""}], "}"}]}]}], "]"}], ";", 
  GraphicsBox[{
    {EdgeForm[{Opacity[0], Thickness[0.0002]}], FaceForm[{Hue[
     0.12777778506278992`, 0.5675675868988037, 1.], Opacity[0.6]}], 
     StyleBox[RectangleBox[{0.4930452061599595, 0.9064414638185135}, {0.81375227686703, 0.08283656234475834},
       RoundingRadius->0],
      FontSize->8,
      FontOpacity->0,
      Background->RGBColor[1, 1, 1, 0]]}, 
    {FaceForm[Opacity[0]], 
     RectangleBox[{0.6528812717337287, 0.5268256333830104}, \
{0.6528812717337288, 0.5268256333830103}]}, InsetBox[
     StyleBox[Cell[TextData[StyleBox["to1, \[Alpha]1",
       FontSize->14]],
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "3802452b-94c8-40e3-9177-6e0cb1294ff3"],
      Background->GrayLevel[1.]], {0.23182646133465648, 0.4652260307998004}, {
     Left, Baseline},
     Alignment->{Left, Top}], 
    PointBox[{0.4507782745487647, 0.49267262791852895`}], 
    PointBox[{0.8424821990395754, 0.4992962410995194}], InsetBox[
     StyleBox[Cell[TextData[StyleBox["to2, \[Alpha]2",
       FontSize->14]],
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "18bf637e-581a-4040-aefb-144a3c232442"],
      Background->GrayLevel[1.]], {0.8724540486835599, 0.472801788375558}, {
     Left, Baseline},
     Alignment->{Left, Top}], InsetBox[
     StyleBox[Cell[TextData[StyleBox["\[Lambda]",
       FontSize->14]],
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "b0be4b42-322c-48b3-b551-872ef05e18ec"],
      Background->GrayLevel[1.]], {0.6420765027322366, 0.35245901639344224}, {
     Left, Baseline},
     Alignment->{Left, Top}], 
    {FaceForm[Hue[0.11666666716337204`, 0.0810810774564743, 1.]], 
     StyleBox[InsetBox[
       StyleBox[Cell["t1",
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "bddb8fcd-73f3-47d2-a3e6-6720ac4a7ed2"],
        Background->GrayLevel[
         1.]], {0.4207650273224005, 0.6762295081967216}, {Left, Baseline},
       Alignment->{Left, Top}],
      FontSize->14]}, 
    StyleBox[InsetBox[
      StyleBox[Cell["t2",
        GeneratedCell->False,
        CellAutoOverwrite->False,
        CellBaseline->Baseline,
        TextAlignment->Left,ExpressionUUID->
        "ee351822-8f3d-4ffa-b32a-1bb16923e231"],
       Background->GrayLevel[1.]], {0.8346994535519086, 0.6844262295081969}, {
      Left, Baseline},
      Alignment->{Left, Top}],
     FontSize->14], InsetBox[
     StyleBox["\[IndentingNewLine]",
      Arrowheads->{{-0.20000000000000004`, 0, {
          GraphicsBox[{
            EdgeForm[None], 
            Dashing[{}], 
            
            PolygonBox[{{-1.5833333333333333`, 
             0.4166666666666667}, {-1.5410500000000003`, 
             0.369283333333333}, {-1.448333333333333, 
             0.255583333333333}, {-1.3991000000000005`, 
             0.18721666666666673`}, {-1.3564666666666663`, 
             0.11826666666666673`}, {-1.3268499999999999`, 
             0.05408333333333341}, {-1.3166666666666667`, 
             0.}, {-1.3268499999999999`, -0.048950000000000195`}, \
{-1.3564666666666663`, -0.11228333333333372`}, {-1.3991000000000005`, \
-0.18353333333333333`}, {-1.448333333333333, -0.2562833333333335}, \
{-1.5410500000000003`, -0.38048333333333345`}, {-1.5833333333333333`, \
-0.43333333333333335`}, {0., 0.}, {-1.5833333333333333`, 
             0.4166666666666667}, {-1.5833333333333333`, 
             0.4166666666666667}}]}], 1.31}}, {0.20000000000000004`, 1, {
          GraphicsBox[{
            EdgeForm[None], 
            Dashing[{}], 
            
            PolygonBox[{{-1.5833333333333333`, 
             0.4166666666666667}, {-1.5410500000000003`, 
             0.369283333333333}, {-1.448333333333333, 
             0.255583333333333}, {-1.3991000000000005`, 
             0.18721666666666673`}, {-1.3564666666666663`, 
             0.11826666666666673`}, {-1.3268499999999999`, 
             0.05408333333333341}, {-1.3166666666666667`, 
             0.}, {-1.3268499999999999`, -0.048950000000000195`}, \
{-1.3564666666666663`, -0.11228333333333372`}, {-1.3991000000000005`, \
-0.18353333333333333`}, {-1.448333333333333, -0.2562833333333335}, \
{-1.5410500000000003`, -0.38048333333333345`}, {-1.5833333333333333`, \
-0.43333333333333335`}, {0., 0.}, {-1.5833333333333333`, 
             0.4166666666666667}, {-1.5833333333333333`, 
             0.4166666666666667}}]}], 1.31}}},
      LineColor->GrayLevel[0.],
      LineOpacity->0.,
      EdgeOpacity->0,
      EdgeThickness->0.0002,
      FrontFaceColor->Hue[0., 0.3333333333333333, 1.],
      FrontFaceOpacity->0.6,
      Thickness->0.0002,
      DrawEdges->True], Scaled[{0.5, 0.5}], Center], InsetBox[
     StyleBox["\[IndentingNewLine]",
      LineColor->GrayLevel[0.],
      LineOpacity->0.5,
      EdgeColor->RGBColor[0., 0., 0.],
      EdgeOpacity->0.,
      EdgeThickness->0.0002,
      FrontFaceColor->Hue[0., 0.3333333333333333, 1.],
      FrontFaceOpacity->0.6,
      Thickness->0.05000000000000002,
      DrawEdges->True], Scaled[{0.5, 0.5}], Center], 
    {Thickness[0.0003467368504525313], JoinForm[{"Miter", 20.}], 
     Arrowheads[{{-0.03326595532940045, 0., {
         GraphicsBox[{
           EdgeForm[None], 
           Dashing[{}], {
            PolygonBox[{{-1, 0.5}, {0, 0}, {-1, -0.5}}], 
            LineBox[{{0, 0.5}, {0, -0.5}}]}}], 0.98}}, {
       0.03326595532940045, 1, {
         GraphicsBox[{
           EdgeForm[None], 
           Dashing[{}], {
            PolygonBox[{{-1, 0.5}, {0, 0}, {-1, -0.5}}], 
            LineBox[{{0, 0.5}, {0, -0.5}}]}}], 0.98}}}], StrokeForm[Opacity[
     1.]], EdgeForm[{GrayLevel[0.], Opacity[1.], Thickness[
     0.05000000000000002], Dashing[{Medium, Medium}], 
     JoinForm[{"Miter", 20.}]}], FaceForm[{Hue[0., 0.3333333333333333, 1.], 
     Opacity[0.6]}], 
     ArrowBox[{{0.5068306010928938, 0.139344262295082}, {0.7978142076502694, 
      0.139344262295082}}]}, 
    {Thickness[0.0024547089156850286`], JoinForm[{"Miter", 20.}], StrokeForm[{
     GrayLevel[0.], Opacity[1.]}], EdgeForm[{RGBColor[0., 0., 0.], Opacity[
     0.], Thickness[0.0002], Dashing[{Medium, Medium}]}], FaceForm[{Hue[
     0., 0.3333333333333333, 1.], Opacity[0.6]}], 
     ArrowBox[{{0.49043715846994146`, 0.08606557377049295}, {
      0.9945355191256793, 0.08606557377049251}}]}, InsetBox[
     StyleBox[Cell[TextData[StyleBox["x",
       FontSize->14]],
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left,ExpressionUUID->
       "6f46010f-8238-4cad-8d5f-1a73503aa60e"],
      TextAlignment->Center,
      Background->GrayLevel[1.]], {1.0109289617486301, 0.0655737704918038}, {
     Left, Baseline},
     Alignment->{Left, Top}], 
    {FaceForm[Hue[0.4055555462837219, 1., 0.43613287806510925`]], 
     StyleBox[InsetBox[
       StyleBox[Cell["d",
         GeneratedCell->False,
         CellAutoOverwrite->False,
         CellBaseline->Baseline,
         TextAlignment->Left,ExpressionUUID->
         "ca8765bf-8ba0-4e19-8424-911ab9d27a5d"],
        Background->GrayLevel[
         1.]], {0.6379781420764989, 0.15573770491803307}, {Left, Baseline},
       Alignment->{Left, Top}],
      FontSize->14]}, PointBox[{0.6174863387978103, 0.3811475409836067}], 
    PointBox[{0.8060109289617448, 0.7049180327868854}], 
    PointBox[{0.4945355191256792, 0.7049180327868854}]},
   ContentSelectable->True,
   ImagePadding->{{0., 0.}, {0., 0.}},
   ImageSize->{296.3636363636365, 221.8181818181818},
   PlotRange->{{0., 1.3333333333333335`}, {0., 1.}},
   PlotRangePadding->Automatic], ";"}]}], "Input",
 CellChangeTimes->{{3.781407269779245*^9, 3.7814072985163555`*^9}, {
   3.7814127660240846`*^9, 3.7814127673604574`*^9}, {3.781429562774865*^9, 
   3.7814297075346155`*^9}, {3.7814297430069723`*^9, 
   3.7814297751620216`*^9}, {3.7814299214504843`*^9, 3.781429926521308*^9}, {
   3.7814300412894692`*^9, 3.781430056665695*^9}, {3.781430098664223*^9, 
   3.7814302295674925`*^9}, {3.781430274807046*^9, 3.7814302766535683`*^9}, {
   3.781430332537386*^9, 3.7814303622561703`*^9}, {3.781430397544584*^9, 
   3.781430404945007*^9}, {3.781430465502075*^9, 3.7814305015951195`*^9}, {
   3.7814305344015417`*^9, 3.781430589241229*^9}, {3.7814306234029107`*^9, 
   3.7814307130052705`*^9}, {3.781430792099677*^9, 3.781430814992777*^9}, {
   3.7814309471470437`*^9, 3.781430949174219*^9}, {3.7814309833296323`*^9, 
   3.781430995550325*^9}, {3.781431065251905*^9, 3.781431147079879*^9}, {
   3.781431179427866*^9, 3.78143123852013*^9}, {3.781431323723382*^9, 
   3.7814314101611385`*^9}, {3.7814314506583843`*^9, 3.781431455415575*^9}, {
   3.781431489990281*^9, 3.7814315263417215`*^9}, {3.7814316296487784`*^9, 
   3.7814317045820355`*^9}, 3.781431743474368*^9, {3.781431832959608*^9, 
   3.781431847446976*^9}, {3.781431880638014*^9, 3.7814321485016937`*^9}, {
   3.7814321830578804`*^9, 3.7814321913476667`*^9}, {3.781432249879279*^9, 
   3.781432321971863*^9}, {3.781432381527398*^9, 3.781432387748097*^9}, {
   3.781432437784401*^9, 3.7814325044690647`*^9}, {3.7814326062828875`*^9, 
   3.7814326132679205`*^9}, {3.781432649701684*^9, 3.7814326877154856`*^9}, {
   3.78149960378203*^9, 3.7814996185507517`*^9}, 3.781499685062049*^9, {
   3.7814997351907825`*^9, 3.7814997670928288`*^9}, {3.7814998308705378`*^9, 
   3.7814999179410524`*^9}, {3.7814999485499077`*^9, 3.781500048390586*^9}, {
   3.7815000807799625`*^9, 3.7815000991095448`*^9}, {3.7815001359915895`*^9, 
   3.781500460851445*^9}, {3.781500503285471*^9, 3.7815005084556503`*^9}, {
   3.7815012124560795`*^9, 3.781501245999467*^9}, {3.781501278464929*^9, 
   3.7815012962713337`*^9}, {3.7815013335856104`*^9, 
   3.7815014754711084`*^9}, {3.7815015303831224`*^9, 3.7815015848477907`*^9}, 
   3.7815016150730495`*^9, {3.781501764648777*^9, 3.7815018661138215`*^9}, {
   3.781501923822356*^9, 3.7815019574081736`*^9}, {3.781503019121955*^9, 
   3.781503040038412*^9}, {3.7815030848486085`*^9, 3.7815032840810485`*^9}, {
   3.7815040187402573`*^9, 3.7815040526585903`*^9}, {3.7815040848146524`*^9, 
   3.781504093542997*^9}, {3.781504147912863*^9, 3.781504176687007*^9}, {
   3.781504266444083*^9, 3.7815043431884785`*^9}, {3.781504376166974*^9, 
   3.781504494933317*^9}, {3.7815046155656977`*^9, 3.781504621961601*^9}, 
   3.7815047130875425`*^9, {3.781504782773744*^9, 3.7815048210797606`*^9}, {
   3.7815048577240343`*^9, 3.7815049108145275`*^9}, {3.7815049735529137`*^9, 
   3.7815050202969375`*^9}, {3.7815050519208784`*^9, 
   3.7815051211294217`*^9}, {3.7815051530240345`*^9, 
   3.7815052215714183`*^9}, {3.7815052714080205`*^9, 3.781505368535447*^9}, {
   3.7815054337091913`*^9, 3.781505467813368*^9}, 3.781505526902526*^9, 
   3.7815055569587603`*^9, {3.781505593989314*^9, 3.7815056821328616`*^9}, {
   3.7815057277155647`*^9, 3.781505733219558*^9}, {3.7815057758957148`*^9, 
   3.781505797026245*^9}, {3.7815058650470886`*^9, 3.7815059083988914`*^9}, {
   3.7815060122048035`*^9, 3.7815061890070715`*^9}, 3.781506460434395*^9, {
   3.781506508817078*^9, 3.781506521912547*^9}, 3.781506554007574*^9, {
   3.781506606257518*^9, 3.781506613553152*^9}, {3.7815067073779354`*^9, 
   3.781506722812645*^9}, {3.781506826742322*^9, 3.7815069032638474`*^9}, {
   3.7815069463380985`*^9, 3.78150703765471*^9}, {3.7815110866959105`*^9, 
   3.7815111347744937`*^9}, {3.781511280345868*^9, 3.7815113648158216`*^9}, {
   3.781511456282361*^9, 3.781511465495591*^9}, {3.781511555016381*^9, 
   3.7815115921209373`*^9}, 3.857565237146994*^9, {3.8575653146763277`*^9, 
   3.857565320725445*^9}, {3.857565359318877*^9, 3.857565421402494*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"46325b34-6a42-4992-a3c6-ad91fb94e379"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`d$$ = 0.01, $CellContext`t1$$ = 
    50, $CellContext`t2$$ = 10, $CellContext`to1$$ = 30, $CellContext`to2$$ = 
    10, $CellContext`\[Alpha]1$$ = 10, $CellContext`\[Alpha]2$$ = 
    10, $CellContext`\[Lambda]$$ = 10, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`d$$], 0.01, 10}, {{
       Hold[$CellContext`to1$$], 30}, 10, 1500}, {{
       Hold[$CellContext`t1$$], 50}, 10, 1500}, {
      Hold[$CellContext`\[Alpha]1$$], 10, 500}, {
      Hold[$CellContext`\[Lambda]$$], 10, 500}, {
      Hold[$CellContext`\[Alpha]2$$], 10, 500}, {
      Hold[$CellContext`t2$$], 10, 500}, {
      Hold[$CellContext`to2$$], 10, 500}}, Typeset`size$$ = {
    627., {130., 136.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`d$$ = 0.01, $CellContext`t1$$ = 
        50, $CellContext`t2$$ = 10, $CellContext`to1$$ = 
        30, $CellContext`to2$$ = 10, $CellContext`\[Alpha]1$$ = 
        10, $CellContext`\[Alpha]2$$ = 10, $CellContext`\[Lambda]$$ = 10}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{($CellContext`d$$ $CellContext`t1$$ - $CellContext`t1$$ \
$CellContext`x + $CellContext`t2$$ $CellContext`x)/$CellContext`d$$, \
($CellContext`d$$ $CellContext`t1$$ $CellContext`\[Alpha]2$$ - \
$CellContext`t1$$ $CellContext`x $CellContext`\[Alpha]2$$ + \
$CellContext`to2$$ $CellContext`x $CellContext`\[Alpha]2$$ + \
$CellContext`t1$$ $CellContext`\[Lambda]$$)/($CellContext`d$$ $CellContext`\
\[Alpha]2$$ + $CellContext`\[Lambda]$$), ($CellContext`d$$ $CellContext`to1$$ \
$CellContext`\[Alpha]1$$ + $CellContext`t2$$ $CellContext`x $CellContext`\
\[Alpha]1$$ - $CellContext`to1$$ $CellContext`x $CellContext`\[Alpha]1$$ + \
$CellContext`t2$$ $CellContext`\[Lambda]$$)/($CellContext`d$$ $CellContext`\
\[Alpha]1$$ + $CellContext`\[Lambda]$$), ($CellContext`d$$ $CellContext`to1$$ \
$CellContext`\[Alpha]1$$ $CellContext`\[Alpha]2$$ - $CellContext`to1$$ \
$CellContext`x $CellContext`\[Alpha]1$$ $CellContext`\[Alpha]2$$ + \
$CellContext`to2$$ $CellContext`x $CellContext`\[Alpha]1$$ $CellContext`\
\[Alpha]2$$ + $CellContext`to1$$ $CellContext`\[Alpha]1$$ $CellContext`\
\[Lambda]$$ + $CellContext`to2$$ $CellContext`\[Alpha]2$$ $CellContext`\
\[Lambda]$$)/($CellContext`d$$ $CellContext`\[Alpha]1$$ \
$CellContext`\[Alpha]2$$ + $CellContext`\[Alpha]1$$ $CellContext`\[Lambda]$$ + \
$CellContext`\[Alpha]2$$ $CellContext`\[Lambda]$$)}, {$CellContext`x, 
         0, $CellContext`d$$}, Frame -> True, 
        FrameLabel -> {{"teplota [\[Degree]C]", ""}, {
          "d [m]", "Plane wall (PW)"}}, 
        PlotLegends -> {
         "PW is known: t1, t2", "PW is known: t1, \[Alpha]2, to2", 
          "PW is known: to1, \[Alpha]1, t2", 
          "PW is known: to1, \[Alpha]1, \[Alpha]2,to2"}], 
      "Specifications" :> {{$CellContext`d$$, 0.01, 10, ControlType -> Slider,
          Appearance -> "Labeled"}, {{$CellContext`to1$$, 30}, 10, 
         1500}, {{$CellContext`t1$$, 50}, 10, 
         1500}, {$CellContext`\[Alpha]1$$, 10, 
         500}, {$CellContext`\[Lambda]$$, 10, 500}, {$CellContext`\[Alpha]2$$,
          10, 500}, {$CellContext`t2$$, 10, 500}, {$CellContext`to2$$, 10, 
         500}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{975., {162., 169.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.857565373502694*^9, 3.8575653989096727`*^9}, 
   3.857565429183178*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"79d1c7da-dc4e-48ba-b6a0-b9810d90a34d"]
}, Open  ]],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`d$$ = 0.01, $CellContext`t1$$ = 
    50, $CellContext`t2$$ = 10, $CellContext`to1$$ = 30, $CellContext`to2$$ = 
    10, $CellContext`\[Alpha]1$$ = 10, $CellContext`\[Alpha]2$$ = 
    10, $CellContext`\[Lambda]$$ = 10, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`d$$], 0.01, 10}, {{
       Hold[$CellContext`to1$$], 30}, 10, 1500}, {{
       Hold[$CellContext`t1$$], 50}, 10, 1500}, {
      Hold[$CellContext`\[Alpha]1$$], 10, 500}, {
      Hold[$CellContext`\[Lambda]$$], 10, 500}, {
      Hold[$CellContext`\[Alpha]2$$], 10, 500}, {
      Hold[$CellContext`t2$$], 10, 500}, {
      Hold[$CellContext`to2$$], 10, 500}}, Typeset`size$$ = {
    596., {130., 136.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`d$$ = 0.01, $CellContext`t1$$ = 
        50, $CellContext`t2$$ = 10, $CellContext`to1$$ = 
        30, $CellContext`to2$$ = 10, $CellContext`\[Alpha]1$$ = 
        10, $CellContext`\[Alpha]2$$ = 10, $CellContext`\[Lambda]$$ = 10}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{($CellContext`d$$ $CellContext`t1$$ - $CellContext`t1$$ \
$CellContext`x + $CellContext`t2$$ $CellContext`x)/$CellContext`d$$, \
($CellContext`d$$ $CellContext`t1$$ $CellContext`\[Alpha]2$$ - \
$CellContext`t1$$ $CellContext`x $CellContext`\[Alpha]2$$ + \
$CellContext`to2$$ $CellContext`x $CellContext`\[Alpha]2$$ + \
$CellContext`t1$$ $CellContext`\[Lambda]$$)/($CellContext`d$$ $CellContext`\
\[Alpha]2$$ + $CellContext`\[Lambda]$$), ($CellContext`d$$ $CellContext`to1$$ \
$CellContext`\[Alpha]1$$ + $CellContext`t2$$ $CellContext`x $CellContext`\
\[Alpha]1$$ - $CellContext`to1$$ $CellContext`x $CellContext`\[Alpha]1$$ + \
$CellContext`t2$$ $CellContext`\[Lambda]$$)/($CellContext`d$$ $CellContext`\
\[Alpha]1$$ + $CellContext`\[Lambda]$$), ($CellContext`d$$ $CellContext`to1$$ \
$CellContext`\[Alpha]1$$ $CellContext`\[Alpha]2$$ - $CellContext`to1$$ \
$CellContext`x $CellContext`\[Alpha]1$$ $CellContext`\[Alpha]2$$ + \
$CellContext`to2$$ $CellContext`x $CellContext`\[Alpha]1$$ $CellContext`\
\[Alpha]2$$ + $CellContext`to1$$ $CellContext`\[Alpha]1$$ $CellContext`\
\[Lambda]$$ + $CellContext`to2$$ $CellContext`\[Alpha]2$$ $CellContext`\
\[Lambda]$$)/($CellContext`d$$ $CellContext`\[Alpha]1$$ \
$CellContext`\[Alpha]2$$ + $CellContext`\[Alpha]1$$ $CellContext`\[Lambda]$$ + \
$CellContext`\[Alpha]2$$ $CellContext`\[Lambda]$$)}, {$CellContext`x, 
         0, $CellContext`d$$}, Frame -> True, 
        FrameLabel -> {{"teplota [\[Degree]C]", ""}, {
          "d [m]", "rovinna stena"}}, 
        PlotLegends -> {
         "rs zn\[AAcute]m: t1, t2", "rs zn\[AAcute]m: t1, \[Alpha]2, to2", 
          "rs zn\[AAcute]m: to1, \[Alpha]1, t2", 
          "rs zn\[AAcute]m: to1, \[Alpha]1, \[Alpha]2,to2"}], 
      "Specifications" :> {{$CellContext`d$$, 0.01, 10, ControlType -> Slider,
          Appearance -> "Labeled"}, {{$CellContext`to1$$, 30}, 10, 
         1500}, {{$CellContext`t1$$, 50}, 10, 
         1500}, {$CellContext`\[Alpha]1$$, 10, 
         500}, {$CellContext`\[Lambda]$$, 10, 500}, {$CellContext`\[Alpha]2$$,
          10, 500}, {$CellContext`t2$$, 10, 500}, {$CellContext`to2$$, 10, 
         500}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{944., {162., 169.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Input",
 CellChangeTimes->{{3.8575653593349648`*^9, 
  3.8575653593533278`*^9}},ExpressionUUID->"5934263c-58ca-46e1-b4b9-\
acfd30f6fc6a"]
},
WindowSize->{Full, Full},
WindowMargins->{{1834, Automatic}, {Automatic, -1}},
Magnification:>1.1 Inherited,
FrontEndVersion->"13.0 for Mac OS X ARM (64-bit) (February 4, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"7f0264a3-92fb-4f0c-953d-96827f8a1fd2"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 20964, 489, 683, "Input",ExpressionUUID->"46325b34-6a42-4992-a3c6-ad91fb94e379"],
Cell[21547, 513, 4413, 78, 374, "Output",ExpressionUUID->"79d1c7da-dc4e-48ba-b6a0-b9810d90a34d"]
}, Open  ]],
Cell[25975, 594, 4383, 78, 348, InheritFromParent,ExpressionUUID->"5934263c-58ca-46e1-b4b9-acfd30f6fc6a"]
}
]
*)