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

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

(* CreatedBy='Mathematica 12.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     80813,       1741]
NotebookOptionsPosition[     79655,       1698]
NotebookOutlinePosition[     80087,       1715]
CellTagsIndexPosition[     80044,       1712]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Penerapan", "Section",
 CellChangeTimes->{{3.863623320062786*^9, 3.863623321875534*^9}},
 FontSize->14,ExpressionUUID->"65bda8c6-f7b4-441b-b445-6dadfe4be566"],

Cell[CellGroupData[{

Cell["Penyelesaian pendekatan menggunakan Runge Kutta Orde Empat", \
"Subsection",
 CellChangeTimes->{{3.863811283447709*^9, 
  3.8638113148738823`*^9}},ExpressionUUID->"c646d65c-7098-47a0-bdb4-\
e948b58c2d83"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"sus", "[", 
      RowBox[{"t_", ",", "s_", ",", "v_", ",", "i_", ",", "r_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"\[Mu]", 
       RowBox[{"(", 
        RowBox[{"s", "+", "v", "+", "i", "+", "r"}], ")"}]}], "+", 
      RowBox[{"\[Theta]", " ", "r"}], "-", " ", 
      FractionBox[
       RowBox[{"\[Beta]", " ", "s", " ", "i"}], 
       RowBox[{"(", 
        RowBox[{"s", "+", "v", "+", "i", "+", "r"}], ")"}]], "-", 
      RowBox[{"\[Sigma]", " ", "s"}], "-", 
      RowBox[{"\[Mu]", " ", "s"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"vac", "[", 
      RowBox[{"t_", ",", "s_", ",", "v_", ",", "i_", ",", "r_"}], "]"}], ":=",
      " ", 
     RowBox[{
      RowBox[{"\[Sigma]", " ", "s"}], "-", 
      FractionBox[
       RowBox[{"\[Omicron]", "  ", "v", " ", "i"}], 
       RowBox[{"(", 
        RowBox[{"s", "+", "v", "+", "i", "+", "r"}], ")"}]], "-", 
      RowBox[{"\[Mu]", " ", "v"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"inf", "[", 
      RowBox[{"t_", ",", "s_", ",", "v_", ",", "i_", ",", "r_"}], "]"}], ":=", 
     RowBox[{
      FractionBox[
       RowBox[{"\[Beta]", " ", "s", " ", "i"}], 
       RowBox[{"(", 
        RowBox[{"s", "+", "v", "+", "i", "+", "r"}], ")"}]], "+", 
      FractionBox[
       RowBox[{"\[Omicron]", "  ", "v", " ", "i"}], 
       RowBox[{"(", 
        RowBox[{"s", "+", "v", "+", "i", "+", "r"}], ")"}]], "\[Minus]", 
      RowBox[{"\[Gamma]", " ", "i"}], "\[Minus]", 
      RowBox[{"\[Alpha]", " ", "i"}], "-", 
      RowBox[{"\[Mu]", " ", "i"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"rec", "[", 
      RowBox[{"t_", ",", "s_", ",", "v_", ",", "i_", ",", "r_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"\[Gamma]", " ", "i"}], "\[Minus]", 
      RowBox[{"\[Theta]", " ", "r"}], "-", 
      RowBox[{"\[Mu]", " ", "r"}]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.8636234593881383`*^9, 3.86362385689135*^9}, {
   3.8636280053987913`*^9, 3.8636281048554897`*^9}, {3.863629657028452*^9, 
   3.8636297855968356`*^9}, {3.863735426688483*^9, 3.8637354742540226`*^9}, {
   3.863735553124412*^9, 3.8637355995413713`*^9}, {3.863749159872277*^9, 
   3.8637492908814435`*^9}, 3.86375197268476*^9, {3.8638063442112617`*^9, 
   3.8638063580738974`*^9}, {3.8641948144154277`*^9, 3.86419482296327*^9}, {
   3.864195138495946*^9, 3.8641952816409674`*^9}, {3.864195477587229*^9, 
   3.8641954868720984`*^9}, {3.8641982341913204`*^9, 
   3.8641982389206963`*^9}, {3.8641982889183197`*^9, 3.864198292453768*^9}, {
   3.864370326564332*^9, 3.8643703506162863`*^9}, {3.864370418797621*^9, 
   3.864370459909731*^9}, {3.8643705294401865`*^9, 3.864370530502842*^9}, {
   3.8643707012151413`*^9, 3.8643707094571037`*^9}, 3.8655702293560925`*^9},
 ExpressionUUID -> "56fc19ae-bbd9-4aac-9cda-86a2b70c4ff7",
 FontSize->12],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Beta]", ":=", "0.05896484"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Mu]", ":=", "0.00004684"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Theta]", ":=", "0.03000000"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Sigma]", ":=", "0.00203580"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", ":=", "0.06609257"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Alpha]", ":=", "0.00086603"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Omicron]", " ", ":=", " ", "0.00839196"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"s0", ":=", "278529567"}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v0", ":=", "561810"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i0", ":=", "8226"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r0", ":=", "260"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a", ":=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b", ":=", "425"}], ";"}]}], "Input",
 CellChangeTimes->{{3.863623866753631*^9, 3.8636238699259872`*^9}, {
   3.8636239651266327`*^9, 3.8636239888993115`*^9}, {3.8636240229819126`*^9, 
   3.8636242238771973`*^9}, {3.863624338948552*^9, 3.8636243553690434`*^9}, {
   3.8636281150500546`*^9, 3.8636281300006084`*^9}, {3.863628169961577*^9, 
   3.863628172039854*^9}, {3.8637354029599915`*^9, 3.8637354120938067`*^9}, {
   3.863735478371023*^9, 3.8637354786014743`*^9}, {3.863735607861212*^9, 
   3.8637356109440145`*^9}, 3.8637519846229453`*^9, {3.8637735505987115`*^9, 
   3.863773559477959*^9}, {3.863773837239456*^9, 3.8637738399273715`*^9}, {
   3.8637739027559824`*^9, 3.863773919734187*^9}, {3.8637741492408876`*^9, 
   3.863774150530053*^9}, {3.863774313282482*^9, 3.863774326241893*^9}, {
   3.863774362701869*^9, 3.8637743911456003`*^9}, {3.8638045458075047`*^9, 
   3.8638045960817213`*^9}, {3.8638067412758102`*^9, 3.863806750547351*^9}, {
   3.8638080215984216`*^9, 3.8638080543948917`*^9}, {3.8638081200550823`*^9, 
   3.8638081202820034`*^9}, {3.863832239267598*^9, 3.8638322721833763`*^9}, {
   3.863832308423707*^9, 3.863832311142749*^9}, {3.863832451062058*^9, 
   3.863832467997653*^9}, {3.8641953527555923`*^9, 3.864195357709338*^9}, {
   3.8641953911037545`*^9, 3.8641954476512403`*^9}, {3.8641955041371775`*^9, 
   3.864195648073264*^9}, {3.8641959653554564`*^9, 3.864195967043135*^9}, {
   3.864198176318392*^9, 3.864198178615508*^9}, {3.8641983048275013`*^9, 
   3.8641983069610567`*^9}, {3.8641995689344063`*^9, 
   3.8641995745374327`*^9}, {3.864370482947779*^9, 3.8643705079620967`*^9}, 
   3.8655702181247044`*^9, {3.8655710743474417`*^9, 3.8655710814954977`*^9}, 
   3.865571131811409*^9, {3.8655720037505655`*^9, 3.865572054058369*^9}, {
   3.865572123209106*^9, 3.865572142031417*^9}, {3.8655722357362633`*^9, 
   3.8655722375996017`*^9}, {3.8685140038093653`*^9, 3.868514006981042*^9}, {
   3.8685140823362985`*^9, 3.868514087351892*^9}, {3.868514190846592*^9, 
   3.8685141960652847`*^9}, {3.8685142354068375`*^9, 3.8685142380318685`*^9}},
 ExpressionUUID -> "cd37fd26-5022-41b4-b9d9-9eea487f52b3",
 FontSize->12],

Cell[BoxData[
 RowBox[{
  RowBox[{"rk4Nest", "[", 
   RowBox[{"x_Integer", ",", " ", 
    RowBox[{"freq_", ":", "1"}]}], "]"}], ":=", "\n", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"h", " ", "=", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "-", "a"}], ")"}], "/", "x"}]}], "}"}], ",", "\n", 
    "\t   ", 
    RowBox[{
     RowBox[{
      RowBox[{"rk4Step", " ", "[", 
       RowBox[{"{", 
        RowBox[{"t_", ",", " ", "s_", ",", "v_", ",", "i_", ",", "r_"}], 
        "}"}], "]"}], " ", ":=", "\n", "\t\t", 
      RowBox[{"Module", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "k1", ",", "l1", ",", "m1", ",", "n1", ",", "k2", ",", "l2", ",", 
          "m2", ",", "n2", ",", "k3", ",", "l3", ",", "m3", ",", "n3", ",", 
          "k4", ",", "l4", ",", "m4", ",", "n4"}], "}"}], ",", "\n", "\t\t", 
        RowBox[{
         RowBox[{"k1", " ", "=", " ", 
          RowBox[{"sus", "[", 
           RowBox[{"t", ",", "s", ",", "v", ",", "i", ",", "r"}], "]"}]}], 
         ";", "\[IndentingNewLine]", "\t", 
         RowBox[{"l1", "=", 
          RowBox[{"vac", "[", 
           RowBox[{"t", ",", "s", ",", "v", ",", "i", ",", "r"}], "]"}]}], 
         ";", "\[IndentingNewLine]", "\t", 
         RowBox[{"m1", "=", 
          RowBox[{"inf", "[", 
           RowBox[{"t", ",", "s", ",", "v", ",", "i", ",", "r"}], "]"}]}], 
         ";", "\[IndentingNewLine]", "\t", 
         RowBox[{"n1", "=", 
          RowBox[{"rec", "[", 
           RowBox[{"t", ",", "s", ",", "v", ",", "i", ",", "r"}], "]"}]}], 
         ";", "\[IndentingNewLine]", "\t\t", 
         RowBox[{"k2", " ", "=", " ", 
          RowBox[{"sus", "[", 
           RowBox[{
            RowBox[{"t", "+", 
             RowBox[{"0.25", "h"}]}], ",", " ", 
            RowBox[{"s", "+", 
             RowBox[{"0.25", "h", "  ", "k1"}]}], ",", 
            RowBox[{"v", "+", 
             RowBox[{"0.25", "h", " ", "l1"}]}], ",", 
            RowBox[{"i", "+", 
             RowBox[{"0.5", "h", " ", "m1"}]}], ",", 
            RowBox[{"r", "+", 
             RowBox[{"0.25", "h", " ", "n1"}]}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\t\t", 
         RowBox[{"l2", "=", 
          RowBox[{"vac", "[", 
           RowBox[{
            RowBox[{"t", "+", 
             RowBox[{"0.25", "h"}]}], ",", " ", 
            RowBox[{"s", "+", 
             RowBox[{"0.25", "h", "  ", "k1"}]}], ",", 
            RowBox[{"v", "+", 
             RowBox[{"0.25", "h", " ", "l1"}]}], ",", 
            RowBox[{"i", "+", 
             RowBox[{"0.25", "h", " ", "m1"}]}], ",", 
            RowBox[{"r", "+", 
             RowBox[{"0.25", "h", " ", "n1"}]}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\t\t", 
         RowBox[{"m2", "=", 
          RowBox[{"inf", "[", 
           RowBox[{
            RowBox[{"t", "+", 
             RowBox[{"0.25", "h"}]}], ",", " ", 
            RowBox[{"s", "+", 
             RowBox[{"0.25", "h", "  ", "k1"}]}], ",", 
            RowBox[{"v", "+", 
             RowBox[{"0.25", "h", " ", "l1"}]}], ",", 
            RowBox[{"i", "+", 
             RowBox[{"0.25", "h", " ", "m1"}]}], ",", 
            RowBox[{"r", "+", 
             RowBox[{"0.25", "h", " ", "n1"}]}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\t\t", 
         RowBox[{"n2", "=", 
          RowBox[{"rec", "[", 
           RowBox[{
            RowBox[{"t", "+", 
             RowBox[{"0.25", "h"}]}], ",", " ", 
            RowBox[{"s", "+", 
             RowBox[{"0.25", "h", "  ", "k1"}]}], ",", 
            RowBox[{"v", "+", 
             RowBox[{"0.25", "h", " ", "l1"}]}], ",", 
            RowBox[{"i", "+", 
             RowBox[{"0.25", "h", " ", "m1"}]}], ",", 
            RowBox[{"r", "+", 
             RowBox[{"0.25", "h", " ", "n1"}]}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\t\t\t", 
         RowBox[{"k3", "=", 
          RowBox[{"sus", "[", 
           RowBox[{
            RowBox[{"t", "+", 
             RowBox[{"0.25", "h"}]}], ",", " ", 
            RowBox[{"s", "+", 
             RowBox[{"0.25", "h", "  ", "k2"}]}], ",", 
            RowBox[{"v", "+", 
             RowBox[{"0.25", "h", " ", "l2"}]}], ",", 
            RowBox[{"i", "+", 
             RowBox[{"0.25", "h", " ", "m2"}]}], ",", 
            RowBox[{"r", "+", 
             RowBox[{"0.25", "h", " ", "n2"}]}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\t\t\t", 
         RowBox[{"l3", "=", 
          RowBox[{"vac", "[", 
           RowBox[{
            RowBox[{"t", "+", 
             RowBox[{"0.25", "h"}]}], ",", " ", 
            RowBox[{"s", "+", 
             RowBox[{"0.25", "h", "  ", "k2"}]}], ",", 
            RowBox[{"v", "+", 
             RowBox[{"0.25", "h", " ", "l2"}]}], ",", 
            RowBox[{"i", "+", 
             RowBox[{"0.25", "h", " ", "m2"}]}], ",", 
            RowBox[{"r", "+", 
             RowBox[{"0.25", "h", " ", "n2"}]}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\t\t\t", 
         RowBox[{"m3", "=", 
          RowBox[{"inf", "[", 
           RowBox[{
            RowBox[{"t", "+", 
             RowBox[{"0.25", "h"}]}], ",", " ", 
            RowBox[{"s", "+", 
             RowBox[{"0.25", "h", "  ", "k2"}]}], ",", 
            RowBox[{"v", "+", 
             RowBox[{"0.25", "h", " ", "l2"}]}], ",", 
            RowBox[{"i", "+", 
             RowBox[{"0.25", "h", " ", "m2"}]}], ",", 
            RowBox[{"r", "+", 
             RowBox[{"0.25", "h", " ", "n2"}]}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\t\t\t", 
         RowBox[{"n3", "=", 
          RowBox[{"rec", "[", 
           RowBox[{
            RowBox[{"t", "+", 
             RowBox[{"0.25", "h"}]}], ",", " ", 
            RowBox[{"s", "+", 
             RowBox[{"0.25", "h", "  ", "k2"}]}], ",", 
            RowBox[{"v", "+", 
             RowBox[{"0.25", "h", " ", "l2"}]}], ",", 
            RowBox[{"i", "+", 
             RowBox[{"0.25", "h", " ", "m2"}]}], ",", 
            RowBox[{"r", "+", 
             RowBox[{"0.25", "h", " ", "n2"}]}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\t\t\t\t", 
         RowBox[{"k4", "=", 
          RowBox[{"sus", "[", 
           RowBox[{
            RowBox[{"t", "+", "h"}], ",", 
            RowBox[{"s", "+", 
             RowBox[{"h", " ", "k3"}]}], ",", 
            RowBox[{"v", "+", 
             RowBox[{"h", " ", "l3"}]}], ",", 
            RowBox[{"i", "+", 
             RowBox[{"h", " ", "m3"}]}], ",", 
            RowBox[{"r", "+", 
             RowBox[{"h", " ", "n3"}]}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\t\t\t\t", 
         RowBox[{"l4", "=", 
          RowBox[{"vac", "[", 
           RowBox[{
            RowBox[{"t", "+", "h"}], ",", 
            RowBox[{"s", "+", 
             RowBox[{"h", " ", "k3"}]}], ",", 
            RowBox[{"v", "+", 
             RowBox[{"h", " ", "l3"}]}], ",", 
            RowBox[{"i", "+", 
             RowBox[{"h", " ", "m3"}]}], ",", 
            RowBox[{"r", "+", 
             RowBox[{"h", " ", "n3"}]}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\t\t\t\t", 
         RowBox[{"m4", "=", 
          RowBox[{"inf", "[", 
           RowBox[{
            RowBox[{"t", "+", "h"}], ",", 
            RowBox[{"s", "+", 
             RowBox[{"h", " ", "k3"}]}], ",", 
            RowBox[{"v", "+", 
             RowBox[{"h", " ", "l3"}]}], ",", 
            RowBox[{"i", "+", 
             RowBox[{"h", " ", "m3"}]}], ",", 
            RowBox[{"r", "+", 
             RowBox[{"h", " ", "n3"}]}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", "\t\t\t\t", 
         RowBox[{"n4", "=", 
          RowBox[{"rec", "[", 
           RowBox[{
            RowBox[{"t", "+", "h"}], ",", 
            RowBox[{"s", "+", 
             RowBox[{"h", " ", "k3"}]}], ",", 
            RowBox[{"v", "+", 
             RowBox[{"h", " ", "l3"}]}], ",", 
            RowBox[{"i", "+", 
             RowBox[{"h", " ", "m3"}]}], ",", 
            RowBox[{"r", "+", 
             RowBox[{"h", " ", "n3"}]}]}], "]"}]}], ";", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"t", "+", "h"}], ",", " ", 
           RowBox[{"s", "+", 
            RowBox[{"h", 
             RowBox[{
              RowBox[{"(", " ", 
               RowBox[{"k1", "+", 
                RowBox[{"2", " ", "k2"}], "+", 
                RowBox[{"2", " ", "k3"}], "+", "k4"}], ")"}], "/", "6"}]}]}], 
           ",", 
           RowBox[{"v", "+", 
            RowBox[{"h", 
             RowBox[{
              RowBox[{"(", " ", 
               RowBox[{"l1", "+", 
                RowBox[{"2", " ", "l2"}], "+", 
                RowBox[{"2", " ", "l3"}], "+", "l4"}], ")"}], "/", "6"}]}]}], 
           ",", 
           RowBox[{"i", "+", 
            RowBox[{"h", 
             RowBox[{
              RowBox[{"(", " ", 
               RowBox[{"m1", "+", 
                RowBox[{"2", " ", "m2"}], "+", 
                RowBox[{"2", " ", "m3"}], "+", "m4"}], ")"}], "/", "6"}]}]}], 
           ",", 
           RowBox[{"r", "+", 
            RowBox[{"h", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"n1", "+", 
                RowBox[{"2", " ", "n2"}], "+", 
                RowBox[{"2", " ", "n3"}], "+", "n4"}], ")"}], "/", 
              "6"}]}]}]}], "}"}]}]}], "]"}]}], ";", "\n", "\t\t", 
     RowBox[{"penyelesaian", " ", "=", " ", 
      RowBox[{"NestList", "[", 
       RowBox[{"rk4Step", ",", " ", 
        RowBox[{"{", 
         RowBox[{"a", ",", " ", "s0", ",", "v0", ",", "i0", ",", "r0"}], 
         "}"}], ",", " ", "x"}], "]"}]}], ";", "\n", "\t\t", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"penyelesaian", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", " ", 
         RowBox[{"x", "+", "1"}], ",", " ", "freq"}], "}"}]}], "]"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{
  3.84108902992581*^9, 3.8410896480155134`*^9, {3.841091101425479*^9, 
   3.8410911126594877`*^9}, {3.84109114430537*^9, 3.8410915480982075`*^9}, {
   3.8410916467181716`*^9, 3.8410917074814434`*^9}, {3.841093282027355*^9, 
   3.8410932998880196`*^9}, {3.863624363066771*^9, 3.863624434069833*^9}, {
   3.863625104875948*^9, 3.8636251581131897`*^9}, {3.863625202723428*^9, 
   3.8636252383847275`*^9}, {3.8636252689576015`*^9, 
   3.8636254233703136`*^9}, {3.863625488885725*^9, 3.8636256048158674`*^9}, {
   3.8636256490698338`*^9, 3.863625861201799*^9}, {3.863626153205171*^9, 
   3.863626170240302*^9}, {3.8636277850548363`*^9, 3.8636278370275745`*^9}, 
   3.863627933444612*^9, {3.8636298345907125`*^9, 3.8636298429375143`*^9}, 
   3.8636298817082143`*^9, {3.863629970346924*^9, 3.8636299903840337`*^9}, {
   3.8637354843294024`*^9, 3.863735492002035*^9}, {3.8637356252204657`*^9, 
   3.863735781566059*^9}, {3.863735826375747*^9, 3.863735854056575*^9}, {
   3.863735886276083*^9, 3.863735904854491*^9}, 3.863751999680579*^9, {
   3.8637659547522545`*^9, 3.8637660634562187`*^9}, {3.864195797604493*^9, 
   3.864195895955779*^9}},
 ExpressionUUID -> "8fe01b02-4633-43a0-9e68-bde94c8fff43",
 FontSize->12],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"penyelesaian", "=", 
   RowBox[{"rk4Nest", "[", 
    RowBox[{"425", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", 
  StyleBox["[",
   FontFamily->"Times New Roman"], 
  StyleBox[
   RowBox[{"Round", "[", "penyelesaian", "]"}],
   FontFamily->"Times New Roman"], 
  StyleBox["]",
   FontFamily->"Times New Roman"]}]}], "Input",
 CellChangeTimes->{{3.8636259333461533`*^9, 3.863625976203037*^9}, 
   3.8636260633421736`*^9, 3.8636261209089556`*^9, {3.863626203350209*^9, 
   3.863626221555318*^9}, 3.8636295133100405`*^9, 3.8636299790493298`*^9, {
   3.863735913741786*^9, 3.8637359287466288`*^9}, 3.8637359719760523`*^9, 
   3.86375201071177*^9, {3.8637650501384087`*^9, 3.8637650966287956`*^9}, {
   3.863765182263417*^9, 3.863765186965301*^9}, {3.863768882335807*^9, 
   3.863768882788906*^9}, {3.8637693361915045`*^9, 3.8637693599567204`*^9}, {
   3.8637717260669837`*^9, 3.8637717265201797`*^9}, {3.863808126801371*^9, 
   3.863808127004636*^9}, {3.8641959755187106`*^9, 3.864195978237715*^9}, {
   3.868514017339575*^9, 3.8685140209022503`*^9}, {3.8685141215064335`*^9, 
   3.868514124427926*^9}, {3.868514214173542*^9, 3.868514249405997*^9}},
 ExpressionUUID -> "4f3c9344-6ba4-45fb-9958-c18b83d8b309",
 FontSize->12],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "278529567", "561810", "8226", "260"},
     {"1", "277962488", "1128420", "8159", "789"},
     {"2", "277396610", "1693850", "8092", "1298"},
     {"3", "276831929", "2258102", "8024", "1787"},
     {"4", "276268444", "2821179", "7956", "2258"},
     {"5", "275706149", "3383083", "7888", "2710"},
     {"6", "275145043", "3943817", "7820", "3144"},
     {"7", "274585123", "4503382", "7751", "3560"},
     {"8", "274026385", "5061783", "7682", "3960"},
     {"9", "273468827", "5619020", "7613", "4343"},
     {"10", "272912446", "6175097", "7544", "4711"},
     {"11", "272357238", "6730016", "7475", "5063"},
     {"12", "271803200", "7283779", "7406", "5400"},
     {"13", "271250331", "7836390", "7337", "5722"},
     {"14", "270698627", "8387849", "7267", "6031"},
     {"15", "270148084", "8938160", "7198", "6325"},
     {"16", "269598702", "9487326", "7128", "6607"},
     {"17", "269050475", "10035348", "7058", "6875"},
     {"18", "268503402", "10582228", "6989", "7131"},
     {"19", "267957480", "11127971", "6919", "7374"},
     {"20", "267412706", "11672577", "6850", "7606"},
     {"21", "266869078", "12216049", "6780", "7827"},
     {"22", "266326592", "12758389", "6710", "8036"},
     {"23", "265785246", "13299601", "6641", "8234"},
     {"24", "265245037", "13839686", "6572", "8423"},
     {"25", "264705963", "14378646", "6502", "8601"},
     {"26", "264168020", "14916485", "6433", "8769"},
     {"27", "263631206", "15453204", "6364", "8927"},
     {"28", "263095519", "15988805", "6295", "9077"},
     {"29", "262560956", "16523292", "6226", "9217"},
     {"30", "262027513", "17056666", "6158", "9349"},
     {"31", "261495190", "17588930", "6089", "9472"},
     {"32", "260963982", "18120086", "6021", "9587"},
     {"33", "260433888", "18650136", "5953", "9694"},
     {"34", "259904904", "19179083", "5885", "9794"},
     {"35", "259377029", "19706929", "5817", "9886"},
     {"36", "258850259", "20233676", "5749", "9971"},
     {"37", "258324593", "20759328", "5682", "10049"},
     {"38", "257800027", "21283885", "5615", "10121"},
     {"39", "257276559", "21807350", "5548", "10186"},
     {"40", "256754186", "22329726", "5482", "10244"},
     {"41", "256232907", "22851014", "5416", "10297"},
     {"42", "255712718", "23371218", "5350", "10343"},
     {"43", "255193618", "23890339", "5284", "10384"},
     {"44", "254675603", "24408379", "5219", "10420"},
     {"45", "254158671", "24925342", "5154", "10450"},
     {"46", "253642820", "25441228", "5089", "10475"},
     {"47", "253128047", "25956042", "5025", "10495"},
     {"48", "252614350", "26469783", "4961", "10510"},
     {"49", "252101726", "26982456", "4898", "10521"},
     {"50", "251590174", "27494061", "4834", "10527"},
     {"51", "251079690", "28004602", "4772", "10529"},
     {"52", "250570272", "28514081", "4709", "10526"},
     {"53", "250061919", "29022499", "4647", "10520"},
     {"54", "249554627", "29529859", "4585", "10510"},
     {"55", "249048394", "30036164", "4524", "10496"},
     {"56", "248543217", "30541415", "4463", "10478"},
     {"57", "248039096", "31045614", "4403", "10457"},
     {"58", "247536026", "31548765", "4343", "10433"},
     {"59", "247034007", "32050868", "4283", "10406"},
     {"60", "246533034", "32551927", "4224", "10375"},
     {"61", "246033107", "33051943", "4165", "10341"},
     {"62", "245534223", "33550918", "4107", "10305"},
     {"63", "245036380", "34048855", "4049", "10266"},
     {"64", "244539574", "34545756", "3992", "10224"},
     {"65", "244043805", "35041623", "3935", "10180"},
     {"66", "243549070", "35536459", "3878", "10133"},
     {"67", "243055366", "36030264", "3822", "10085"},
     {"68", "242562691", "36523043", "3767", "10033"},
     {"69", "242071044", "37014795", "3712", "9980"},
     {"70", "241580421", "37505525", "3657", "9925"},
     {"71", "241090821", "37995234", "3603", "9868"},
     {"72", "240602241", "38483923", "3549", "9809"},
     {"73", "240114679", "38971596", "3496", "9748"},
     {"74", "239628133", "39458254", "3443", "9686"},
     {"75", "239142601", "39943900", "3391", "9622"},
     {"76", "238658081", "40428535", "3340", "9556"},
     {"77", "238174569", "40912161", "3289", "9490"},
     {"78", "237692065", "41394782", "3238", "9421"},
     {"79", "237210566", "41876398", "3188", "9352"},
     {"80", "236730070", "42357012", "3138", "9281"},
     {"81", "236250574", "42836626", "3089", "9209"},
     {"82", "235772077", "43315242", "3040", "9136"},
     {"83", "235294576", "43792862", "2992", "9062"},
     {"84", "234818070", "44269489", "2944", "8988"},
     {"85", "234342555", "44745124", "2897", "8912"},
     {"86", "233868031", "45219769", "2851", "8835"},
     {"87", "233394494", "45693427", "2805", "8758"},
     {"88", "232921944", "46166099", "2759", "8680"},
     {"89", "232450376", "46637788", "2714", "8601"},
     {"90", "231979791", "47108495", "2669", "8522"},
     {"91", "231510185", "47578223", "2625", "8442"},
     {"92", "231041556", "48046974", "2582", "8362"},
     {"93", "230573902", "48514750", "2539", "8281"},
     {"94", "230107222", "48981552", "2496", "8200"},
     {"95", "229641512", "49447383", "2454", "8118"},
     {"96", "229176772", "49912244", "2412", "8037"},
     {"97", "228712999", "50376139", "2371", "7955"},
     {"98", "228250190", "50839068", "2331", "7872"},
     {"99", "227788345", "51301034", "2291", "7790"},
     {"100", "227327461", "51762039", "2251", "7707"},
     {"101", "226867535", "52222085", "2212", "7624"},
     {"102", "226408566", "52681174", "2174", "7541"},
     {"103", "225950552", "53139307", "2135", "7458"},
     {"104", "225493490", "53596488", "2098", "7375"},
     {"105", "225037379", "54052717", "2061", "7292"},
     {"106", "224582217", "54507997", "2024", "7209"},
     {"107", "224128002", "54962329", "1988", "7127"},
     {"108", "223674732", "55415716", "1952", "7044"},
     {"109", "223222404", "55868160", "1917", "6961"},
     {"110", "222771017", "56319663", "1883", "6879"},
     {"111", "222320568", "56770226", "1848", "6797"},
     {"112", "221871057", "57219852", "1815", "6715"},
     {"113", "221422480", "57668542", "1781", "6633"},
     {"114", "220974836", "58116299", "1749", "6552"},
     {"115", "220528123", "58563124", "1716", "6470"},
     {"116", "220082339", "59009020", "1684", "6390"},
     {"117", "219637482", "59453988", "1653", "6309"},
     {"118", "219193550", "59898029", "1622", "6229"},
     {"119", "218750541", "60341148", "1592", "6149"},
     {"120", "218308453", "60783344", "1562", "6070"},
     {"121", "217867284", "61224620", "1532", "5991"},
     {"122", "217427033", "61664978", "1503", "5912"},
     {"123", "216987697", "62104419", "1474", "5834"},
     {"124", "216549274", "62542947", "1446", "5756"},
     {"125", "216111763", "62980562", "1418", "5679"},
     {"126", "215675162", "63417266", "1390", "5602"},
     {"127", "215239468", "63853062", "1363", "5526"},
     {"128", "214804681", "64287951", "1337", "5450"},
     {"129", "214370797", "64721935", "1311", "5375"},
     {"130", "213937815", "65155017", "1285", "5300"},
     {"131", "213505733", "65587197", "1260", "5226"},
     {"132", "213074550", "66018478", "1235", "5152"},
     {"133", "212644263", "66448861", "1210", "5079"},
     {"134", "212214870", "66878349", "1186", "5007"},
     {"135", "211786370", "67306944", "1162", "4935"},
     {"136", "211358762", "67734647", "1139", "4864"},
     {"137", "210932041", "68161460", "1116", "4793"},
     {"138", "210506209", "68587384", "1093", "4723"},
     {"139", "210081261", "69012423", "1071", "4654"},
     {"140", "209657196", "69436577", "1049", "4585"},
     {"141", "209234014", "69859849", "1027", "4516"},
     {"142", "208811711", "70282240", "1006", "4449"},
     {"143", "208390286", "70703752", "985", "4382"},
     {"144", "207969736", "71124387", "965", "4316"},
     {"145", "207550062", "71544147", "945", "4250"},
     {"146", "207131259", "71963033", "925", "4185"},
     {"147", "206713327", "72381048", "906", "4121"},
     {"148", "206296264", "72798193", "887", "4057"},
     {"149", "205880068", "73214470", "868", "3994"},
     {"150", "205464738", "73629881", "850", "3931"},
     {"151", "205050270", "74044428", "832", "3870"},
     {"152", "204636664", "74458112", "814", "3809"},
     {"153", "204223918", "74870935", "796", "3748"},
     {"154", "203812030", "75282899", "779", "3688"},
     {"155", "203400998", "75694006", "763", "3629"},
     {"156", "202990821", "76104258", "746", "3571"},
     {"157", "202581496", "76513656", "730", "3513"},
     {"158", "202173022", "76922202", "714", "3456"},
     {"159", "201765398", "77329899", "698", "3400"},
     {"160", "201358621", "77736746", "683", "3344"},
     {"161", "200952689", "78142747", "668", "3289"},
     {"162", "200547601", "78547904", "653", "3234"},
     {"163", "200143356", "78952217", "639", "3180"},
     {"164", "199739950", "79355689", "625", "3127"},
     {"165", "199337384", "79758322", "611", "3075"},
     {"166", "198935654", "80160117", "597", "3023"},
     {"167", "198534759", "80561075", "584", "2972"},
     {"168", "198134698", "80961200", "571", "2921"},
     {"169", "197735469", "81360491", "558", "2872"},
     {"170", "197337069", "81758952", "545", "2822"},
     {"171", "196939498", "82156584", "533", "2774"},
     {"172", "196542753", "82553389", "521", "2726"},
     {"173", "196146833", "82949367", "509", "2679"},
     {"174", "195751736", "83344522", "497", "2632"},
     {"175", "195357461", "83738855", "486", "2586"},
     {"176", "194964005", "84132366", "474", "2540"},
     {"177", "194571367", "84525060", "463", "2496"},
     {"178", "194179546", "84916936", "453", "2452"},
     {"179", "193788539", "85307996", "442", "2408"},
     {"180", "193398345", "85698243", "432", "2365"},
     {"181", "193008963", "86087678", "422", "2323"},
     {"182", "192620389", "86476302", "412", "2281"},
     {"183", "192232624", "86864118", "402", "2240"},
     {"184", "191845665", "87251126", "393", "2199"},
     {"185", "191459511", "87637330", "383", "2159"},
     {"186", "191074159", "88022730", "374", "2120"},
     {"187", "190689609", "88407327", "365", "2081"},
     {"188", "190305858", "88791125", "357", "2043"},
     {"189", "189922905", "89174124", "348", "2005"},
     {"190", "189540749", "89556325", "340", "1968"},
     {"191", "189159386", "89937732", "331", "1932"},
     {"192", "188778817", "90318345", "323", "1896"},
     {"193", "188399040", "90698166", "316", "1861"},
     {"194", "188020051", "91077196", "308", "1826"},
     {"195", "187641851", "91455438", "300", "1791"},
     {"196", "187264438", "91832892", "293", "1758"},
     {"197", "186887809", "92209561", "286", "1724"},
     {"198", "186511963", "92585447", "279", "1692"},
     {"199", "186136899", "92960550", "272", "1659"},
     {"200", "185762614", "93334872", "265", "1628"},
     {"201", "185389108", "93708416", "259", "1596"},
     {"202", "185016379", "94081182", "252", "1566"},
     {"203", "184644425", "94453173", "246", "1536"},
     {"204", "184273244", "94824389", "240", "1506"},
     {"205", "183902835", "95194833", "234", "1477"},
     {"206", "183533196", "95564506", "228", "1448"},
     {"207", "183164326", "95933410", "222", "1420"},
     {"208", "182796223", "96301546", "217", "1392"},
     {"209", "182428886", "96668917", "211", "1364"},
     {"210", "182062312", "97035522", "206", "1338"},
     {"211", "181696501", "97401365", "201", "1311"},
     {"212", "181331451", "97766446", "195", "1285"},
     {"213", "180967159", "98130768", "190", "1260"},
     {"214", "180603626", "98494331", "186", "1234"},
     {"215", "180240848", "98857138", "181", "1210"},
     {"216", "179878825", "99219190", "176", "1186"},
     {"217", "179517555", "99580489", "172", "1162"},
     {"218", "179157036", "99941035", "167", "1138"},
     {"219", "178797267", "100300832", "163", "1115"},
     {"220", "178438246", "100659879", "159", "1093"},
     {"221", "178079972", "101018180", "154", "1070"},
     {"222", "177722443", "101375734", "150", "1049"},
     {"223", "177365657", "101732545", "147", "1027"},
     {"224", "177009614", "102088613", "143", "1006"},
     {"225", "176654311", "102443940", "139", "985"},
     {"226", "176299747", "102798528", "135", "965"},
     {"227", "175945921", "103152378", "132", "945"},
     {"228", "175592830", "103505491", "128", "926"},
     {"229", "175240474", "103857870", "125", "906"},
     {"230", "174888851", "104209515", "121", "888"},
     {"231", "174537959", "104560429", "118", "869"},
     {"232", "174187797", "104910612", "115", "851"},
     {"233", "173838364", "105260067", "112", "833"},
     {"234", "173489657", "105608794", "109", "815"},
     {"235", "173141675", "105956795", "106", "798"},
     {"236", "172794418", "106304073", "103", "781"},
     {"237", "172447882", "106650627", "100", "765"},
     {"238", "172102068", "106996461", "98", "749"},
     {"239", "171756973", "107341574", "95", "733"},
     {"240", "171412595", "107685970", "92", "717"},
     {"241", "171068934", "108029649", "90", "702"},
     {"242", "170725988", "108372612", "87", "687"},
     {"243", "170383755", "108714862", "85", "672"},
     {"244", "170042234", "109056400", "83", "657"},
     {"245", "169701424", "109397227", "80", "643"},
     {"246", "169361322", "109737344", "78", "629"},
     {"247", "169021928", "110076754", "76", "616"},
     {"248", "168683241", "110415457", "74", "602"},
     {"249", "168345257", "110753456", "72", "589"},
     {"250", "168007977", "111090751", "70", "576"},
     {"251", "167671398", "111427344", "68", "564"},
     {"252", "167335520", "111763237", "66", "551"},
     {"253", "167000340", "112098431", "64", "539"},
     {"254", "166665857", "112432927", "62", "527"},
     {"255", "166332071", "112766727", "61", "516"},
     {"256", "165998978", "113099832", "59", "504"},
     {"257", "165666579", "113432244", "57", "493"},
     {"258", "165334871", "113763964", "56", "482"},
     {"259", "165003854", "114094994", "54", "471"},
     {"260", "164673525", "114425335", "52", "461"},
     {"261", "164343883", "114754989", "51", "450"},
     {"262", "164014927", "115083957", "50", "440"},
     {"263", "163686655", "115412240", "48", "430"},
     {"264", "163359066", "115739839", "47", "421"},
     {"265", "163032159", "116066757", "45", "411"},
     {"266", "162705932", "116392995", "44", "402"},
     {"267", "162380384", "116718553", "43", "393"},
     {"268", "162055513", "117043435", "42", "384"},
     {"269", "161731318", "117367640", "40", "375"},
     {"270", "161407797", "117691170", "39", "367"},
     {"271", "161084950", "118014027", "38", "358"},
     {"272", "160762774", "118336212", "37", "350"},
     {"273", "160441268", "118657727", "36", "342"},
     {"274", "160120432", "118978572", "35", "334"},
     {"275", "159800263", "119298750", "34", "327"},
     {"276", "159480760", "119618261", "33", "319"},
     {"277", "159161921", "119937108", "32", "312"},
     {"278", "158843747", "120255291", "31", "304"},
     {"279", "158526234", "120572811", "30", "297"},
     {"280", "158209382", "120889671", "29", "291"},
     {"281", "157893189", "121205872", "28", "284"},
     {"282", "157577654", "121521414", "27", "277"},
     {"283", "157262775", "121836300", "27", "271"},
     {"284", "156948552", "122150531", "26", "264"},
     {"285", "156634982", "122464107", "25", "258"},
     {"286", "156322065", "122777031", "24", "252"},
     {"287", "156009799", "123089304", "24", "246"},
     {"288", "155698183", "123400926", "23", "240"},
     {"289", "155387215", "123711901", "22", "235"},
     {"290", "155076894", "124022228", "21", "229"},
     {"291", "154767219", "124331909", "21", "224"},
     {"292", "154458188", "124640946", "20", "218"},
     {"293", "154149800", "124949339", "20", "213"},
     {"294", "153842054", "125257091", "19", "208"},
     {"295", "153534949", "125564202", "18", "203"},
     {"296", "153228482", "125870674", "18", "198"},
     {"297", "152922653", "126176509", "17", "194"},
     {"298", "152617460", "126481707", "17", "189"},
     {"299", "152312903", "126786269", "16", "184"},
     {"300", "152008979", "127090198", "16", "180"},
     {"301", "151705687", "127393494", "15", "176"},
     {"302", "151403027", "127696159", "15", "171"},
     {"303", "151100996", "127998195", "14", "167"},
     {"304", "150799594", "128299601", "14", "163"},
     {"305", "150498819", "128600381", "13", "159"},
     {"306", "150198670", "128900534", "13", "155"},
     {"307", "149899145", "129200063", "13", "152"},
     {"308", "149600244", "129498968", "12", "148"},
     {"309", "149301965", "129797251", "12", "144"},
     {"310", "149004306", "130094914", "11", "141"},
     {"311", "148707267", "130391957", "11", "137"},
     {"312", "148410846", "130688382", "11", "134"},
     {"313", "148115042", "130984189", "10", "131"},
     {"314", "147819853", "131279382", "10", "127"},
     {"315", "147525278", "131573960", "10", "124"},
     {"316", "147231317", "131867925", "9", "121"},
     {"317", "146937967", "132161278", "9", "118"},
     {"318", "146645228", "132454020", "9", "115"},
     {"319", "146353098", "132746153", "9", "113"},
     {"320", "146061575", "133037679", "8", "110"},
     {"321", "145770660", "133328597", "8", "107"},
     {"322", "145480349", "133618911", "8", "104"},
     {"323", "145190643", "133908620", "8", "102"},
     {"324", "144901540", "134197726", "7", "99"},
     {"325", "144613038", "134486230", "7", "97"},
     {"326", "144325137", "134774134", "7", "94"},
     {"327", "144037835", "135061439", "7", "92"},
     {"328", "143751131", "135348145", "6", "90"},
     {"329", "143465023", "135634256", "6", "87"},
     {"330", "143179511", "135919770", "6", "85"},
     {"331", "142894592", "136204691", "6", "83"},
     {"332", "142610267", "136489018", "6", "81"},
     {"333", "142326534", "136772754", "5", "79"},
     {"334", "142043391", "137055899", "5", "77"},
     {"335", "141760837", "137338455", "5", "75"},
     {"336", "141478871", "137620423", "5", "73"},
     {"337", "141197492", "137901804", "5", "71"},
     {"338", "140916698", "138182600", "5", "69"},
     {"339", "140636489", "138462811", "4", "68"},
     {"340", "140356863", "138742439", "4", "66"},
     {"341", "140077819", "139021485", "4", "64"},
     {"342", "139799355", "139299950", "4", "63"},
     {"343", "139521471", "139577836", "4", "61"},
     {"344", "139244165", "139855143", "4", "59"},
     {"345", "138967437", "140131874", "4", "58"},
     {"346", "138691284", "140408028", "4", "56"},
     {"347", "138415706", "140683608", "3", "55"},
     {"348", "138140701", "140958614", "3", "54"},
     {"349", "137866269", "141233048", "3", "52"},
     {"350", "137592408", "141506910", "3", "51"},
     {"351", "137319117", "141780203", "3", "50"},
     {"352", "137046394", "142052927", "3", "48"},
     {"353", "136774239", "142325083", "3", "47"},
     {"354", "136502651", "142596673", "3", "46"},
     {"355", "136231627", "142867698", "3", "45"},
     {"356", "135961168", "143138158", "3", "43"},
     {"357", "135691271", "143408056", "2", "42"},
     {"358", "135421937", "143677392", "2", "41"},
     {"359", "135153162", "143946167", "2", "40"},
     {"360", "134884947", "144214383", "2", "39"},
     {"361", "134617291", "144482041", "2", "38"},
     {"362", "134350191", "144749142", "2", "37"},
     {"363", "134083647", "145015687", "2", "36"},
     {"364", "133817658", "145281677", "2", "35"},
     {"365", "133552222", "145547114", "2", "34"},
     {"366", "133287339", "145811998", "2", "33"},
     {"367", "133023007", "146076331", "2", "32"},
     {"368", "132759225", "146340114", "2", "32"},
     {"369", "132495992", "146603348", "2", "31"},
     {"370", "132233307", "146866034", "2", "30"},
     {"371", "131971168", "147128173", "2", "29"},
     {"372", "131709575", "147389767", "1", "28"},
     {"373", "131448527", "147650816", "1", "28"},
     {"374", "131188021", "147911322", "1", "27"},
     {"375", "130928058", "148171286", "1", "26"},
     {"376", "130668636", "148430709", "1", "26"},
     {"377", "130409754", "148689592", "1", "25"},
     {"378", "130151410", "148947936", "1", "24"},
     {"379", "129893605", "149205743", "1", "24"},
     {"380", "129636335", "149463013", "1", "23"},
     {"381", "129379601", "149719747", "1", "22"},
     {"382", "129123402", "149975947", "1", "22"},
     {"383", "128867736", "150231614", "1", "21"},
     {"384", "128612601", "150486749", "1", "21"},
     {"385", "128357998", "150741353", "1", "20"},
     {"386", "128103924", "150995427", "1", "19"},
     {"387", "127850380", "151248973", "1", "19"},
     {"388", "127597363", "151501990", "1", "18"},
     {"389", "127344872", "151754481", "1", "18"},
     {"390", "127092907", "152006447", "1", "17"},
     {"391", "126841466", "152257888", "1", "17"},
     {"392", "126590549", "152508806", "1", "17"},
     {"393", "126340154", "152759201", "1", "16"},
     {"394", "126090280", "153009076", "1", "16"},
     {"395", "125840926", "153258430", "1", "15"},
     {"396", "125592091", "153507266", "1", "15"},
     {"397", "125343773", "153755584", "1", "14"},
     {"398", "125095973", "154003384", "1", "14"},
     {"399", "124848688", "154250670", "1", "14"},
     {"400", "124601918", "154497440", "1", "13"},
     {"401", "124355662", "154743697", "1", "13"},
     {"402", "124109918", "154989441", "0", "13"},
     {"403", "123864685", "155234674", "0", "12"},
     {"404", "123619963", "155479397", "0", "12"},
     {"405", "123375750", "155723610", "0", "12"},
     {"406", "123132045", "155967315", "0", "11"},
     {"407", "122888848", "156210513", "0", "11"},
     {"408", "122646156", "156453205", "0", "11"},
     {"409", "122403970", "156695391", "0", "10"},
     {"410", "122162288", "156937074", "0", "10"},
     {"411", "121921108", "157178253", "0", "10"},
     {"412", "121680431", "157418931", "0", "10"},
     {"413", "121440255", "157659108", "0", "9"},
     {"414", "121200578", "157898785", "0", "9"},
     {"415", "120961400", "158137963", "0", "9"},
     {"416", "120722720", "158376643", "0", "9"},
     {"417", "120484537", "158614827", "0", "8"},
     {"418", "120246849", "158852514", "0", "8"},
     {"419", "120009656", "159089708", "0", "8"},
     {"420", "119772957", "159326407", "0", "8"},
     {"421", "119536750", "159562614", "0", "7"},
     {"422", "119301035", "159798329", "0", "7"},
     {"423", "119065811", "160033554", "0", "7"},
     {"424", "118831076", "160268289", "0", "7"},
     {"425", "118596829", "160502536", "0", "7"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8638127567281237`*^9, 3.863832835786415*^9, 3.864195929238231*^9, 
   3.8641959887395926`*^9, 3.864199375475807*^9, 3.8641995954113216`*^9, 
   3.864370544221098*^9, 3.8655702633570127`*^9, 3.8655722629849834`*^9, 
   3.8685139825758333`*^9, {3.8685140244954767`*^9, 3.8685140342762227`*^9}, {
   3.868514097773159*^9, 3.8685141279121265`*^9}, 3.8685142215637827`*^9, 
   3.8685142528589463`*^9},
 ExpressionUUID -> "0fea8db8-b1fd-4997-afa8-d70c7f76799e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["Sus",
   FontFamily->"Times New Roman"], 
  StyleBox["=",
   FontFamily->"Times New Roman"], 
  RowBox[{
   StyleBox["ListPlot",
    FontFamily->"Courier New"], 
   StyleBox["[",
    FontFamily->"Courier New"], 
   RowBox[{
    StyleBox[
     RowBox[{"Flatten", "[", 
      RowBox[{"Drop", "[", 
       RowBox[{
        RowBox[{"Drop", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", "penyelesaian", "]"}], ",", 
          RowBox[{"-", "3"}]}], "]"}], ",", "1"}], "]"}], "]"}],
     FontFamily->"Courier New"], 
    StyleBox[",",
     FontFamily->"Courier New"], 
    RowBox[{
     StyleBox["PlotRange",
      FontFamily->"Courier New"], 
     StyleBox["\[Rule]",
      FontFamily->"Courier New"], 
     StyleBox[
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "425"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "278529567"}], "}"}]}], "}"}],
      FontFamily->"Times New Roman"]}], 
    StyleBox[",",
     FontFamily->"Courier New"], 
    StyleBox[
     RowBox[{"DataRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "425"}], "}"}]}],
     FontFamily->"Courier New"], 
    StyleBox[",",
     FontFamily->"Courier New"], 
    StyleBox[
     RowBox[{"Joined", "\[Rule]", "True"}],
     FontFamily->"Courier New"], 
    StyleBox[",",
     FontFamily->"Courier New"], 
    StyleBox[
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<S\>\""}], "}"}]}],
     FontFamily->"Courier New"], 
    StyleBox[",",
     FontFamily->"Courier New"], 
    StyleBox[
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Thickness", "[", "0.01", "]"}], ",", 
        RowBox[{"Opacity", "[", "0.5", "]"}], ",", 
        RowBox[{"Dashing", "[", "0.01", "]"}]}], "}"}]}],
     FontFamily->"Courier New"], 
    StyleBox[",",
     FontFamily->"Courier New"], 
    StyleBox["\[IndentingNewLine]",
     FontFamily->"Courier New"], 
    StyleBox[
     RowBox[{"Ticks", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "\"\<27 November 2021\>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"425", ",", "\"\<26 Januari 2023\>\""}], "}"}]}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"278529567", ",", "118596829"}], "}"}]}], "}"}]}],
     FontFamily->"Courier New"]}], 
   StyleBox["]",
    FontFamily->"Courier New"]}]}]], "Input",
 CellChangeTimes->{{3.8655729076481514`*^9, 3.865573004501152*^9}, 
   3.8655732291014786`*^9, {3.865573725805459*^9, 3.8655737295596666`*^9}, {
   3.8685142755610633`*^9, 3.868514353197786*^9}},
 ExpressionUUID -> "da941c24-efe2-48f9-a8fd-05e5d86beb04"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0, 0, 1], Thickness[0.01], Opacity[0.5], Dashing[0.01], 
    LineBox[CompressedData["
1:eJxN13dczYv/B/DD7YsIRUZmUpklDSN1e4XKSCqVSuW0d519OlmHQtxQXVFC
kZlRRrqEIi4ZiWxKw8i4yh4ZX7/vfb8fj1//eDwf78/rvM6L6jwMCYp3D20v
EAgK2gkE//fn//sa3GFTkf3P/3212L2O7fo5IJ39026hSdPSkylF9v8+2glt
beHHB6n53h1+wpSc5Uq+6+LKqnFGb+LYfeEyJmpOYFiRfbv/eQDcRfpDb/tz
fjAmHJuXPtuTnzfAmQ1Dc646sw0RVJJs6zqVbYz4Q2nyO5PYwzH4kz+CLdgj
Me94x5x3I7lvNDyrDixLMeC7KRqzZO+H9OP+MUhtTf6nTIfvY+HfWSs6SJNt
Du+gSVGa7dgWsJqZXh35ppBsidnWD85V1rOtsMm8ep95NXscXErfLdlRxh4P
Uf/rkwYXsifA0LLt3vat7Ino56flOWYt2xodbHbtPreokN6vNYz2i68ExRbS
PhuUZww6renPz9sivyJYedyZ/TuS63+8Fduw7eBlfXSUxWh+PTsojrgM+N6f
7mqgeHtu2bUu/Lw9zEoWa+9rO0h3e7Q9rNRc95IsmIxVBqG7Fjzg+2Tc3Grd
ILrM9ylw8LYujivl+xRMHu07UL6P71MhL8nUTc7h+1Qc+f11Zs4ffHfAyqyo
zaUL+O6AeX36DH0czXdHjJf9x6iXH98d0fOE8xYXZ7474fhYzZVpNnx3gpmL
X+390XyfhoLsmByTgXyfho/bQ0+mdOX7dMS9VE569f0A3afD79bdnt6vyYIZ
uJ1xFlfq+D4DWr1kp6ZdO0B/vzMg+Ga2/GrZgX//vdQzUbDC/k/fIrLAGSuT
3ja25HHeGUn2mfFr0vn1Z2H60iWWFsv4PgutYV1MGiR8d4EgZqPHxmC+u+C6
24pdnh58n41JunaDBjjQ+1kyG5sfji55YcXvbzZGfDgdc8aYnocrMk5GWOf1
4ddzxfPsbf1XdiKXu+J26+Muii/76fXdoNP7cIfYF2S4YeDU1I4xD8hqNzim
fdWUXiGXu6Hu0UrNZac4744TtWfbZR/kvDuetdi+LsnlvDs2may7VJfGeXfM
83TN6LqM83MQVDHIfqqU83MwOiLnxrIQzs+BfVnU5EpPzs+B6d+WqX2cOO+B
/e927IudwHkPfDWN2nx5BOc9ILwwzndsf8574FF0ef1WLc57Qmdo+SjdH/so
74nhU96OS28hqz0xJKr3j14N5HJP9FG0LNx+gyzwQumiKYXjznHeC58uPki7
Ucx5LxyqTB6o2M15LxzW7eY2JJvzc3HAd8awm6s5PxdRgd03r13I+bnQ/m61
zzWO83OxVnOTaz8h571hGNIv5aUb573R4UnWrHNTOO+NIT5fN++w4rw3viww
lqQO47wP8t90rFygx3kf3EXqFkkXzvtg2NX8l6LvBZT3ge11+0JFC1ngi6k+
fo+TGsjwhdD21YqsGrLaF78P+Cfj6HnO++KUp7/G3ZIC+v71xf7//H6nfQHn
52H7j4yOVpsL6OdtHp6eC0qPW8v5eRCtOiYqVNNd4Ic2w03bPkk47wfzngP0
nUK53w/NsbOat8ylvjI/RDbbf2ybzu/fH7WXujsG2tDdzh8n/7lWc9WU8/7w
Kt6SYz+E+sr9EdN1Y/bJnpwPwN2Qh5W/d6A7AuC8N234xc97KR+AflPuHfJ+
SS4PgK5OXWBrLVkwH4qQSst11WTMR9O3C8ZWFXvp530+JBqalo3FnJ+PC11O
e2/YQ/ef82HXoX+6Ww7d9YUY7uh1r+dafj0hOqr2mNSqyUIhWvKdVx+Q8vsT
onGw+mVyGDlPiKkbls0K9uE+IXy+Z+6f5kyuF6Jq/Q8NKzt+/4HwbGw/Z7g5
9wdi+sGXGQZG3B+IAIHGmaF9uT8QgQOy743qwv2B+G3J17vWP/ZQfyAK76tK
Xd+QywMRrRu9KPYxuT4QF2DYP/0OWRCE23nf00ovkfWDYJ7r9uDVKTKC0PXq
wo+Gh8jCIMx8VFsXvIOsDsLOfbfS9m7k/iA8NLrQ6eNq7g/CO78+U6Yv5v4g
iBJMbPLF3B+MwmJJ62+h3B+MCaHuftHe3B+Moc0TF96byf3BSDqQ5exix/3B
eDimvrLSnPuDkf82qXWmMfcHo2LJl5M39bg/GBahf40K6cr9IVhjbj3xq4D7
Q3BE8bVhw/vd1B8C1SmFgXUzWRgCvzWmn5oekNUhsA3N91t/jZwXAuMT3rNn
VpDLQ9D/Q83lTiXk+hC8FG2uulJAFoRCO2GSx8atZP1QZE628YnI4P5QCN6P
um+3gvtDMTM7u2ZgIveH4qFx78nt47g/FKkKS4N/Ark/FEUOq0R1ntwfilEW
+0bcns79YUg5ZT7jpi33h0HP/kTV3bHcH4ZBH2uPNBlxfxjevZ708b0e94dh
am9ZhlY37g+Dk8nw5SPbc38YflS2XXL5uIv6w7DQc71Q9YIsCMe4ztmTC+rI
+uGY8/ZwbMMNMsKh+TS1btAFsjAcX1bVpAeVktXhyJpllby/kJwXjg2RQYe/
5ZPLw+FWp6U3J4v7wzFD0ny0MJX7I7C9qGBZj6XcH4GsZ52XLJBzfwR6DDu7
60Uk90dgmN0fH+cHcH8E9p82iH7gzv0RuPbGsZ2/E/f/uteXFD+exP0ReD1r
/HKJGfdHQlycEtPBiPsj8XKGOCJPj/sjkf25RI5u3B+JFn+j9KftuT8SzlVJ
JRmfdlJ/JEpm5z6Z+opcHomsbIe+3+vJ9ZFY3NPRufQWWRCFxhrx4iWXyPpR
eLs1Z9/0MjKiEPBkY7XeUbIwCiMrbF607CGro5D0I/DD5S07//39nReFDR0a
Xh/I4P4oxL1dX5O5kvujULPENy9p4U76/RsFkx7a7kox90cj+lDmE1EY90fj
Vaerc0XzuD8aMWHZO+Wu1KeOxoe/Hl1WO/D+aFxft+JCujX3R2OJniJzzxjq
exSNQoMs8/OGlBfEYFKvuznP9Lg/BsafDKq6d+f+GORFhv9tq0H5+THosCdz
qfjLDtofg1crcr8VvCbnxcBImmD5omkHfV7G4Kqol/GYezv+7auPgU+/2CpV
FT0viMXuXOXISxVk/Vj0OG86Xv845e1ikdy45s2Cg5QXxiKtMd2rNp/7Y7Ha
fmLw1Gzuj0W+VrLuobX0fHksOjRIw4cm070+Fp9fdPHJUXF/HL48dn3aN576
BsfhWe/pWptDKI84GHt+u2DoS88L43D2p7T3kdncH4ct7UrfOzpQPjcO66/V
zq+3pnt5HA6Fv/BYYsb9cZjj2lo91Jj74xG0UXD9an/q04/Housm7ot06I54
jNZLdTPvyP3x6NNt7JVX3/Lp8z0e429alO1/m0/ff/Ho1vPAMElzPvXHo/H9
sfa2deT6eLQaxc7qepPyP+Oxv+aVRlMl3bVF+LrPw/h0GVlfhOiH5w5uLSab
ibBAZ35O8j4yRKiWOz6P30Z2/XU/lJsp3EgWijDhedoWrzVkkQhFp+x/uCWR
1SKUzXhw1F1FThPhqHHKae94cp4I2YGyviGh5CIRVMlXy2TzeJ8IO9POHlrt
Rq4W4fuPpJc7nXivCBPLpkT9bUtuFcF8vNWoVxZkgRijJq8Z1Wck7xdjoNmy
CCd93i/Gb+dnPlrYm/eLYThh6JoSLd4vRojFlPhP7Xm/GGtvPFtm82U77Rdj
x3aX8ytayCIxTLYds7j9hKwWY8Uk4eWRD8lp4l//P12zKvkGOU8MA8Ol0U0X
yUVi9FOo45zKyOVitEReX1dUTK4Woym99Mqg/eR6Md6/XGmQsZ3cKoZ5g3pt
52yyQAIdh7ddU9aRtSU45TFia+cVZH0JRMdkNhkLyWYSnEswfDpISoYEWj1W
ZxVFkl0l2D3/s6uTkPdL4LWzQqvJi/dLkJlqX5k0i/dL0DK0MmnEVN4vwdy6
wxNvWvN+CRZneDcnjeX9Epgk9lozYTjvlyB7rKPR20G8X4Izx6YdLOrF+385
YqGRTIv3S2DWcXKKzW+8XwrFobYaza/baL8URk+1OjxsJetL4bXsfv8jz8hm
UrQ7c6nHujoypJhr7dAcf4vsKsWApsPZnlfIQik0tBYbooIskqJLYI8VY06Q
1VLcbH5YOvQQOU2Kn785VwzYQ86TYlXMtex+ueQiKYZZ3bUZuIFcLkXexbt7
DdeQq6UY9XxqnVkyuV6KS4Xpd+wXkFul2P2H1Z9zJWSBDBL7Pd0kkbxfhpMv
gpzShbxfBs8Pj6yL5/J+GfYY5DytdeH9MvRbqTOtiyPvlyF01Rk/W1veL8PX
hpEGMkveL4PvpqrMwlG8Xwal1pjiFgPeL0OPxmuLLPvxfhl66477Z5EO75eh
7fkzwZVOvF8Ggy8xxwYJeL8MloYuXRSf8mi/DEs39fp+/TW5VYaAOy6rzJ+S
BXKs3LbiwMZasrYciZ1nhre7RdaX437sqKPxV8hm8l+fZ3+lN1aQIYdfu+Tv
PqVkVzlqPId8uHWYLJRD/5WhwquALJLDYpXh4gfbyGo5AieUdA7NJqfJUT5D
rvcujZwnR6rX593LU8hFciSNe3BkgJpcLscMzRPWfynJ1XJcMTO39o7n/XJk
uzUWfgvj/XI4u0dl7wzg/Qo8841+7+7F+xWYeHPlaQ0X3q+ATXjwhxMOvF+B
xG/bN8hteb8C0aWvci2teL8CDzSbu30ezfsVmPGHbUOZIe9XwEV/o27qAN6v
wKcnubv8dHm/AmOsNDLHavF+BYZsF9d21uD9Cph+Mmmr/pRL+xU4s37a0/XP
yNUKRG7LVAbeIdcrMKJnYsG4C+RWBYJc/RN1S8gCJbJN9zZ+3UXWVsL2TWXd
8w1kfSWk00yjGlaQzZS4P9tJ3aAgQ4m5a1IGvAgjuypR2xJu3eZFFiphUeV/
S9eJLFKi4snj5nHjyWolhD6JosBh5DQldIq2hK/vQ8779Xo11ZXXOpKLlMjU
zsro+Xkr7Vdia4/EU/ObydVKlD356XD0LrleiZfvjg7TqSS3KtFNY1iA4jhZ
kID7E54+btpL1k5AZvflJT6byPoJaArIun5nNdksAVmeJaYBC8hIwDLVgkuv
osmuCbDZpc5L8iMLE/ClS+h+g1lkUQK8TCufV9qS1QkY1jTbQ2VKTkvAdLet
z8wGk/MSIG2Zl9vanVyUAI0kc+VfAt6fgDuDqqJS3myh/QnQNaiVCxvJ9QkQ
jNdejxpyawJuuPU7M/wcWaBCcmHR577FZG0V9txcPU5nF1lfhYmpQQqdjWQz
FSRP3x3RSyFDhW3jv78YoSK7qtDW267P5CiyUAWp/0LLoHlkkQprDRN/X+1M
Vqsw6fxPsxO25LRf/bdvd3xrSs5TQc/k8umx+uQiFc7cLXBT6ZDLVcg2dDx5
sT3vV2F8ZvzXwe83034V9j5r67jkCblVBWfts/VPbpMFidg9MUftcZGsnQiH
iqCmS8fJ+olYh48a0/eRzX49r7RqqNpMRiKmCNvL/NaSXRPxh4H98TdLyMJE
vO11d/9aMVmUiF7lhTMsgsnqRGTXHF77yIOcloj/jKmS/em42f6/I9Sy3Q==

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\"S\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0, 425}, {0, 278529567}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic},
  Ticks->{{{0, 
      FormBox["\"27 November 2021\"", TraditionalForm]}, {425, 
      FormBox["\"26 Januari 2023\"", TraditionalForm]}}, {{278529567, 
      FormBox["278529567", TraditionalForm]}, {118596829, 
      FormBox["118596829", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{3.8655730130891333`*^9, 3.865573730845716*^9, 
  3.868514359916049*^9},
 ExpressionUUID -> "3f5cca2d-e7e6-4586-bbf2-89953a3cec15"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["Vac",
   FontFamily->"Times New Roman"], 
  StyleBox["=",
   FontFamily->"Times New Roman"], 
  RowBox[{
   StyleBox["ListPlot",
    FontFamily->"Courier New"], 
   StyleBox["[",
    FontFamily->"Courier New"], 
   RowBox[{
    StyleBox[
     RowBox[{"Flatten", "[", 
      RowBox[{"Drop", "[", 
       RowBox[{
        RowBox[{"Drop", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", "penyelesaian", "]"}], ",", 
          RowBox[{"-", "2"}]}], "]"}], ",", "2"}], "]"}], "]"}],
     FontFamily->"Courier New"], 
    StyleBox[",",
     FontFamily->"Courier New"], 
    RowBox[{
     StyleBox["PlotRange",
      FontFamily->"Courier New"], 
     StyleBox["\[Rule]",
      FontFamily->"Courier New"], 
     StyleBox[
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "425"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "238922227"}], "}"}]}], "}"}],
      FontFamily->"Times New Roman"]}], 
    StyleBox[",",
     FontFamily->"Courier New"], 
    StyleBox[
     RowBox[{"DataRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "425"}], "}"}]}],
     FontFamily->"Courier New"], 
    StyleBox[",",
     FontFamily->"Courier New"], 
    StyleBox[
     RowBox[{"Joined", "\[Rule]", "True"}],
     FontFamily->"Courier New"], 
    StyleBox[",",
     FontFamily->"Courier New"], 
    StyleBox[
     RowBox[{"AxesLabel", "->", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<V\>\""}], "}"}]}],
     FontFamily->"Courier New"], 
    StyleBox[",",
     FontFamily->"Courier New"], 
    StyleBox[
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Orange", ",", 
        RowBox[{"Thickness", "[", "0.01", "]"}], ",", 
        RowBox[{"Opacity", "[", "0.5", "]"}], ",", 
        RowBox[{"Dashing", "[", "0.01", "]"}]}], "}"}]}],
     FontFamily->"Courier New"], 
    StyleBox[",",
     FontFamily->"Courier New"], 
    StyleBox["\[IndentingNewLine]",
     FontFamily->"Courier New"], 
    StyleBox[
     RowBox[{"Ticks", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "\"\<27 November 2021\>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"425", ",", "\"\<26 Januari 2023\>\""}], "}"}]}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"160502536", ",", "238922227"}], "}"}]}], "}"}]}],
     FontFamily->"Courier New"]}], 
   StyleBox["]",
    FontFamily->"Courier New"]}]}]], "Input",
 CellChangeTimes->{
  3.8655732204381*^9, {3.865573323033439*^9, 3.8655733411292453`*^9}, {
   3.8655734040981803`*^9, 3.8655734300699873`*^9}, {3.8655737124934216`*^9, 
   3.86557371522665*^9}, {3.8655739917285223`*^9, 3.865573992857122*^9}, {
   3.868514371165626*^9, 3.8685143825867834`*^9}, {3.868514452083275*^9, 
   3.8685144820560308`*^9}},
 ExpressionUUID -> "fefd80ea-2eef-4b45-a982-9013807a5158"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0.5, 0], Thickness[0.01], Opacity[0.5], Dashing[0.01], 
    LineBox[CompressedData["
1:eJxN1Xk4lPv7B/An7ZGtktKRSttRtlayvIlkKSLKlrGMfRljDENl0i6JDhEt
E0qL7RQtOJo2Ha1SKVJNpUXqJH3VScnX7+t+rus3/7he1/25n/fznvHMTPGL
cubKMQxzchDD/N/f///Snj7Fou9/r0/maRfM5rctMiD3mQ/68WNi7mMji4GT
I2BhMH2ip7EFzZXAD3ZI+m2bNc3HQrvYIzHrri1ZHTKFd/ZX1VZaDPqfJ+Hw
luf7Hs5dRfuTYfU1snS6owudn4q7qiajXKJcydowuJlosy5tDXkGPn/8Jbe8
2J08CxevGzYr13uSf8ch6ZTAC23elDcHF7tjrC37fGiuiwnvFo10U/ClfD0Y
O/SeSVT3o7kBkjc78FS1/cmGGNq+aNdEvQDyPIyflL8q04hLng9vKzNl8dJA
8gJsWZ0+5plDEHkhKu0/FpW6BpMX4UZs4oQu7xDyYjicNKw4zg0lG2FZSuuV
xvAwsjG+14zN5MWE0/0ag69jy0sWRVA/E6guqSoYkRRJ502hODxRNHhLFNkM
wluLDxlZ8cjmGJp+SmNOHY+uZw71sV4ezTbRA3MxcDgoIcminsxY4Nt6rfIA
Oz7NLfBiqbPK0ptkxhIKV3qvt9rH0NwSiw1+/Gtwi8wsxZfRo+stHQQ0X4pu
I5mX0i0yY4XJSgrN2faxNLfCxHhVv9YbZMYaR4ZzJj21FdLcGhFKDnNy/yYz
y/DorPrZMTZxNF8GTZUvT22vkRkb+M77ct1kaTzNbeBoNynng5TMLMe2Mi++
u5mI5stR/Gt3wuZqMmMLs99jH4QuTqC5LTTTLxcoVZIZO7SMVlXgGyTS3A5/
ju3Q31uSSO+vHbz/ki7gzV4/8HmJ7ZHz5LOpwlEy44BglfrwQK0NtO8Aw5fr
X2/MIzMrkHZN76ar2kaar0C7USc60snMSnxoOh9iLp9E85Uo8+EFO28lM464
8KDdR7svaeB+khzxxpJ/wcNETPfniEsqw17KicQD5+EEj+CfVSmVZLETnu7P
du36TJY6oXqp8hUj3U10/VWY6JY11jeUjFUwmOTgGXyMLF6FVCun444vydJV
MGk/ozBeM5n2ndGVnbS/1p0MZwz3OO2zLIssdkZkjQWvtIEsdUb2owmtX+U3
074LjNb8VjHZhgwXqCRPHzk7mSx2wQ4LuQ+qf5GlLrCfnRDx9Bu7vxr3Ntod
2mG4hfZXowEz94yNIItXQ6Jb7bSpiCxdjYy7RV/uvCAzrtBJ2LqjV2Mr7bsi
wPPV5NFuZLEr6jbY3OjdQ5a6IqlBN+duPZlxQ5ju6Nzkwdto3w3y3BUyNVOy
2A3hS1YlpgrJUjcMFkUnviojM2sg+tDbqdHO7q9BCN/0w4Kp22l/Dcb+jNhg
4EmWroHcvqsViplkZi3yIiPyb98iYy3KWne5RQ7dQftr8R+u8YtOU7J0LeKv
pTi7CsmMO4Z2ba3KKyXDHULtObOvvmH33TH8maD0juZO2ndH5j8rPardyIwH
7iRITFLSyPBAgJwNd0kdWeyBKYHj2+70svse+PXx6d9WC1Lo/9cDOo7rph0M
T6F9Tyicdhn8uCCFnjdP/H6eF9/dQnOpJzSSffZ2q+yi588LPpWXOI+X76J9
L8xP1v9yMIks9oL3CRP3ZWd3DeRd9MKLTZH59z7QnPHGpV/Wz8ynpQ7Mzb2R
X2E8KcM9lfa9EfG8OuzantSBPKk33gXpt7ZeozmzDtbtX9c/+kFzrMPRs1zv
SoPdtL8OWbIbqcIgsnQdxMbhEzUOkhkfTOBsH1fQSIYPaqpW7VYckUbPuw/q
tv2b7m2aRvs+ePlYopfOp3mfD1wLguKPFdFci4NF1b4JklYyODj1NM9qo8qe
AXM4UKqc+MZ8GVnMgeazlojXCWQJB8ofG95HlpGlHJTx28NaX5FlHJwWD2HG
K6TT/ftCa8KwJwYzyFq+6Hngf8cMZPjireKWF6YeZI4vXObUa+gJyGJftB3O
2KKaRpb0n+9YNO1dEVnqi0uFqn1ll8gyX7jFCCaHPmHz/RA5vniXWjeb7wf1
0CH2lYoZlO+HkZyrActmkTl++CqvJ6u3IIv98Emy+aq5J1nihzJBr/pxAVnq
h65BD9rk0sgyP0jfG+s5FZEZf1T1+PbtkZK1/MGZHet1uZnN98eaAwdWvO1i
8/1x8sTP5l/yeynfH/ItlSNGTidL+t3RJhtqRpb6Y/W9/JBuN7LMHy+qhpx8
FEVmAqCrMulE8Q6yVgBCE79GCI6QEYAC2cE+3SoyJwBdIerc1kY2PwCSLcFH
13ew+QFwaku9rjTkD8oPwKSt4sasSWRZAC6UGN9WXEBmuMj4XFqbsIKsxcVL
w9slzVwyuGgs3HREZyOZw8W22xUS3j6ymItFO+xPHy8lS7jA8JlP79ex+Vzo
NWnP6nrG5nPR8EQzd/A3Nj8Qi706jEYoZVJ+IG70eCkyM8kIhFmNpWaHGZkT
iMIRwbx6N7I4ENySTPm8SLIkEJbPU7/6bCNLA+FkorJY/RBZFoiu28+arlSS
mSA0jipr9rvN5gfh0eNFNt1tbH4QNPbozEj8yeYH4cm3xRv+MyaL8oMQ4izv
4qtDlvSfd7UrvWRJlgZhvl5u1jgPsiwID1LylLyjyUwwnqZ1TM3ZQdYKxhPZ
tKa6w2QE4/2xFr32s2ROMPbvzF/Yd5vND8bNylGfR7xm84OR8+wQd9hPNj8Y
c8zf5n5T3Uf5wcg/EJzdOpvMhOC5TaFvJchaIYiYrM4kryEjBKsyzESWkWRO
CF4eSLv/dQtZHIJDDxLHHc4jS0LQ6yO0XnKaLA2BRe/7kJt/s/khWD546U7H
52x+KNz9205c72bzQ/HlpEHjPIVsyg9FztCUEZlTyZxQZJnZurxbTBaH4u7l
6+f1HbMHvr8lodiR72EewaW5NBTT/3D5eDCRLOu/fidTfzkjm75/Q9EhLXn8
pIjmWmEQnj4ytf0vNj8Ms6dMKXl/n80PQ4paxEZZO+WJw3DT/sqBG300l4Rh
p846xRPjcig/DNvuC5oTdXIG8p6Hgau2ZMhSixz6/QtHwIYXmb/c6LxWOMba
ZWWUhpMRDqV4MeOSTPs+4SivrX/bkU1zcTjq9mauEJWQJeGwmzVo8Y/LdP5i
/75gTkn0Y8qThSNurv6Z1o90nomAVsNUJ5PB+yk/AvsOjk9JV99Pv6cRYA5r
BjXP3T+wz4nAnWNWH9WW0nlxBAKd/5hqu5Ys6Z/Lq4zmRdB5aQTWyF86vSuZ
5rII2LgXTDiQTWYikXS3wuZIMeVNjsQMjU+WeZdoH5FwqF2uktJE5zmRyFCp
PB/RweZH4oa1tvkyJndg/3AkCrmbT44Zl0vvfySWralhmmaTZZH48rTSZrcZ
mYlCSZ7LViOX3IE8rSjcUxVebAmiOaJQVdTzg7eezImCZ341fqZTXlIUXuil
/7H+KO1LomAf4NDz+QKbH4WRJpcSvO6w+VHIPFgzseYl7fdFYZTnSJnyN5or
83BtXlSDh3wefR48dD88/Xn/ZLI+DwtlWbZ35pHBw6xXTU+/2ZCdeJDzN6hQ
8yJzeNBp9m78nUfm8XCjUsVs/haymAcv376fhjnkdB6szJrGziwmS3jwPWm5
S1lKLuchl/mH++k+WcpDdO7Gk1fekht42Hsve93uH2RZ//6glu0OSgcG3MnD
zh0vdQZNIzPR2H7D3unUQrJyNIwMSnrs7Mha0QjWzdOXeZP1o+FsWvQtNJqM
aCxq83Ht2EJ2isazSidH3xwyJxrTXOQ6bp0i86KRGN4zV/ciWdzvK9W/bW0k
p0fDd07dxXuvyZJo5OzZN2Hsd3J5NEw7juk7KByk/tEoXB05KmEyuSEard85
xQcNybJo6E3r1DhnTe6MRtH8lHV1a8kMH3vKckU3w8jKfHyZl8Kv20jW4kMr
uXbluQyyPh/a63PHHCokgw+HmRvrEs6Rnfg4UlIXvuIGmcNHsM8debWnZB4f
Byo+HH/wiSzmI2yl0Han3CHqz0f5vzVd88aRJXxEnVI6+WAmuZyPlalVgjBj
spQPxc5ha/91IDfwMcRriXuiD1nW32973ob/RJM7+cjwDr7hv4XMxKCt97lV
/T6ycgwaa027tE+QtWKwTbfqkbCarB+DrWN39dTeJiMGv8W88ul9TnaKQeuO
LwqGXWRODPruvRvmPeQw9Y/B25H/OG9UI4v7rz9H52vWLHJ6DO7HXesuMCZL
YrA44rnbcQdyeQyY+zmaBevI0hj8XanonMkjN8SgPcTza2IyWdafl7pP2SOT
3BmD58MeHtU9RmYE+CQ/u/r7ObKyAAW/5btW15O1BOAorEiIeULWF+DWv/N0
p34kQ4BFruuE13+RnQRIjnl3ymCEhPoLMLKtrqNHmcwTQHm+3YaLE8hiATSu
d/olTSWnCzC0ZNFhYx2yRIA/83Pnf55HLhfgomrm9AITslSAJWoHBU7W5AYB
VsXO1f6+giwT4GdR9cKDbuROAc431ZSa+JCZWMx7Upj2KIisHItevHkcwSNr
xWLhsq49ffFk/VigdfHZ1E1kxCLi+KyV41LITrEoHaLnsX8v2z8Wlsz5VvU8
tn8suBzdx38UsP1j8UPyY+WoYrZ///W7ty9dX8H2j0XscuPz7TVs/1jsNosv
c77G9o9F8/xjOudus/1jUWk5U298E9s/FobG3jX8Z2z/WFw7fvxh/Ru2vxCf
HgVvmPSJ7S9Ex+0flaHf2P5CuK2s3VTRx/YXoqVF/tX34Ueof7/PmLUaK5Od
hJjQXBYVp07mCBE46tzhMi0yTwiLv09GvppFFguxc7XsmaoBOV0IrTOnukyN
yBIhsk76FAdYkMuFuH11heJ2W7JUiCLHuolHV5EbhDjqrf6g1p0s69+vyzB5
4EvuFGL+rCS31yFkJg4P3+hod0WTleMwXPdlUY+IrBUH08/vX/3aRNaPQ+SH
3S2/drL943CxUCWtJ4PtH4fpIdVM1362fxxGutyd//oI2z8OH5elz3lwgu0f
B8Vu8/e1f7L94zCqRZN39ALbPw5i83Dp9kts/zhUmAQ+5daz/eNgeM623vwe
2z8OUf7O28Y1s/3jEHqtSu2tjO0fB0eDmvUV79j+8Rh/K61qQyfbPx6zU0Ma
Lf9l+8ejxyi5bjCTT/3jUcobvV86nIx4nD9k5iBSIjvFI27Y8pdzx5M58Xhc
6+H9TJPMi8eXM8cupswgi+NxqshDfp4uOT0e9oaFlo8WkCXx0L5SFhRnSi6P
h86R4+vHWJOl8djXcX7zKQdyQzwSckcmma8my+LBTbrMu+tJ7oxHr/UoT09/
MiNCnmAYXoWSlUV4G/5kShCfrCUCP7xY7q2I7S/C6t15bX6b2P4iXKmrr2/Z
wfYX4c+PbhUr09n+IvhX+h6rzWb7izC6fHj+74fZ/iKEO3JP7D3G9hfB+3VW
7dcStr8IcYVnXrlVsv1FKJQ8mnimhu0vQtXdCYHyV9n+IiiPyrjuc5PtL8IE
eReL8ka2vwjfowUPfzaz/ROgeXnENusXbP8ENPlPdU15x/ZPwOvCRqubn9j+
CdC4MHvNiG9s/wR0VC1Ms/jF9k8AUzz8g3BoAfVPQGPsCf5xBTIvAUvez9Ru
GkMWJ0Dh6m45RoOcngBJUZvSjKkFFv8FAzaUIQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\"V\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0, 425}, {0, 238922227}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic},
  Ticks->{{{0, 
      FormBox["\"27 November 2021\"", TraditionalForm]}, {425, 
      FormBox["\"26 Januari 2023\"", TraditionalForm]}}, {{160502536, 
      FormBox["160502536", TraditionalForm]}, {238922227, 
      FormBox["238922227", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{3.865573222378748*^9, 3.865573433313244*^9, 
  3.865573717230644*^9, 3.8655739945170403`*^9, 3.868514492258828*^9},
 ExpressionUUID -> "4e330436-cec1-46fb-9898-4b6d950adfae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Inf", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{"Drop", "[", 
      RowBox[{
       RowBox[{"Drop", "[", 
        RowBox[{
         RowBox[{"Transpose", "[", "penyelesaian", "]"}], ",", "3"}], "]"}], 
       ",", 
       RowBox[{"-", "1"}]}], "]"}], "]"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "425"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "8226"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"DataRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "425"}], "}"}]}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"t", ",", "\"\<I\>\""}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Red", ",", 
       RowBox[{"Thickness", "[", "0.01", "]"}], ",", 
       RowBox[{"Opacity", "[", "0.5", "]"}], ",", 
       RowBox[{"Dashing", "[", "0.01", "]"}]}], "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     StyleBox[
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "\"\<27 November 2021\>\""}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"402", ",", "\"\<3 Januari 2023\>\""}], "}"}]}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "8226"}], "}"}]}], "}"}],
      FontFamily->"Courier New"]}]}], 
   StyleBox["]",
    FontFamily->"Courier New"]}]}]], "Input",
 CellChangeTimes->{{3.8655734506147375`*^9, 3.8655734829871054`*^9}, {
  3.86557352844392*^9, 3.8655735694120855`*^9}, {3.86557362277747*^9, 
  3.8655736963699913`*^9}, {3.868514624049008*^9, 3.868514875114335*^9}, {
  3.868514908019066*^9, 3.8685149256899066`*^9}, {3.8685150025454063`*^9, 
  3.868515037746898*^9}},
 ExpressionUUID -> "53212234-a0c6-4c67-af6c-9e0a055ca758"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[0.01], Opacity[0.5], Dashing[0.01], 
    LineBox[CompressedData["
1:eJxVl3k8lAv7hyeRraSD6uRU1lKEUErkKySyTChkG8vYtzGLGZ23pk1yWqSS
rZOU0op2u0p1ksRpUdpEokXRoj2v3zv3/PHzj8/1uZ97rud6Zp550A5N9GTL
MBiMoyMYjP/7/f9+xtVj6H8/72w/z+9y731SRzxkO+fIr5BN+XWQHKiAou2P
m5/5SOdj8WvsNt0fatK5OjpLLV6036olnojVMUW71v1VixH/4z/QEtB34PPi
WtqfCrbaaPFCGenxOhi3lvuXf00NsR6Cis9P8RJKeRqe9hqnzzCXsgEeWOQo
d/VVE8/EjBuXn60vqSafEfZ1LpynGiadGyNBWWb2lsnV5DfB6SCdzu9tVTSf
DfGqjcvDsqRsBjOvnPSrrlI2h9dVhbgZ8lK2QNlv67q2X6wknoPS3+Ku/Fwl
5blIcTvRLpgrZUu030t88qu/gngeVv/s/U/uMSnPh84VXV+XCClbgTOz+ae6
dgWdrxWcZikO/Hh4gfqscXPvgmK5PRfoeBuElvSsNvOU8kLUaa6/nTZGyrYI
Dfd8KXf9PL2eLW5YLv58asN5yVwMVLx8qLcDxAw7TGAzMg78OEdzO3y6+Mm4
7wIxYxH+5CwYzeFL54sQ+0WoZGYmndvDzzRWxvzdWZrbY6v8nWrBcWKGA36e
i3s/FC2dO+AQu31p63Tp3BF/mBaH9HWfobkjhjJmV684SMxYjJ2DVbfHhknn
i3Hw6wpVTR3p3AkCv9fXU5+dprkTgjdYLZm9n5ixBGF6XZcQIp0vwdfmyJBj
2tK5M95etVzA7TxFc2eYXKnwyTtAzHCBUo3vSR22dO6CqMysaSrTT9H1dQFK
FHKCXpZL3i/xUgjZWY0ax4kZrrAPWiaYk1hO+64Y8L9mX2dGzHCD7Ji3N84M
ltHcDVHBzJwJVcQMd8QJ9HVfrpHO3WFtGt8201E690Csscq4J0plkvNZ4wG/
o6/mKxSV0vl5ID06PtnapFRyPJhI3x8807/mJL0eE3acFQciXInrmfBtVJIJ
eXSCXn8ZdPcWu7vGE2MZ7gWo8GcOHaf9ZbC5vMDx5w7i+mVgV6Vxr+oTMzxx
Y+VQzqbKY7TvidKWy+aLmMRiT8SY+x3+/OIo7XviotoomyOriRleYNca6/lO
IIYXFNRPJ8uVH6F9LxR0uOmfWkpc74XsvE9Tg3tKaN8bbtyFxmM2EMMbjftr
RtZoE4u9UdIab51Yf5j2vdG3Tz1Qj0XMWA4V1SO3HzGIsRwFXZWfc4oO0f5y
iOralfwcieuX44TiyPmTXxbT/gqExY7I7d5KjBV40dlhdMqcWLwC/yzz7lzX
fpD2V+AKV3unzzpihg98DbfImRoSwwc24y69Ub57gPZ9cMhi8ctXa4jrfTDt
W8DmJkNihi/uygudy+4X0b4vNswq2rU7jVjsC695rxtWzSGu94Xr/tu6od37
ad8PU+QvvHLKJoYf1oZZ2xstIRb7Qb/vnJPK90La90PGnryRfSeJGSuxXucZ
91oYMVZi2zHepoLficUr4RA52/Ze4T7aX4muicVa4ar76PO7EvPtiuw61v5N
+/5gapRMWPJpL91v/lB/osvIjdlL+/4Y1LS2a3lWQPdfAFiyeUqvVxbQfgCU
HGYLXtzNJ38AJryX21znmS/x1QWgurDfnNuaR+cfiAEhy/vXsjzJ3DYQmR6a
ZwPv5NJ+IEYe+K6yzTdX4qsPHP6+PK645UkO7Qch4X6otXdEjmSOINxK2G3c
9W4P7Qch1rXcd84q4vogBJQ36TkpEDOCEWnn8059TzadfzDar12Tz5+eTfd7
MHRETuV3K3bTfjC0SlbqXnTbTdcvGP3daRl+Xbskcy0W0tcPKuSnEoOFRfG/
n1+rRsxiYYKf/UHFkzvp/Fj4AKc2YxfiQhYsdVU9+nqyyDd8vKzlSLtNxB0s
zDLMfq5vQMwIwazcB4/3NO4gfwhsT42+k5VAjBBMnqR/+Dd1YlYIDtVlmKlV
ZZI/BJPG73XLDCMuDEFT6pymjWOI60Ogs9Xt1xPOdvKH4E8NXnTWjW3kD4X8
R2byZANirVD0ftc7mbJpK/lD0fOxpzTn5RbyhyJvraGi0J1YHAqD6C8uY879
Rf5Q3HY+NIqpRVwfCtfKE82WWzPIH4rdHTzL6h+byR+GcWnj799JINYKg1y5
7lJRVzr5w5DbFGyyfyUxKwxjo1MMHO5sIn8Ydvxd/tSPSVwYhj2TC2Tbm9PI
H4b0L+Vu1R7EHWGoM/sp/PLvRvKHo0H7tGuaL7FWOAZO3NgT2LGB/OFYId5p
JoghZoVjitH8oWuD68kfjmmhy1+5bCQuHN63SXg9qEFcH451VXy5hpJ15A+H
YoS901EbYgYbxz0Um/bfWUt+NsaENVQVxRODDd7UkqXFCsQsNh63bKzdXywm
Pxus5SbsTAfiQjZCRh6zud24hvxsBMU3nFqqStzBhi+vQHeV32ryR0DU2F3i
eeg/5I+AM7809fLgn+SPwOd3n/trXYhZETgVNW/D3KJV5I/Ao4W9NzV/ppI/
AuN7v6Sz/InrI2Ab6pI1WC0ifwTKfSe+vKVNzIiEii6r9MlmIfkjMaLBdqbG
pxTyRyJIxf0SO4yYNXz8hDcjL98RkD8SupMy9011Ji6MRNhXxZiEej75I7El
9WJAkRVxRySiY9/uPnmeR/4oHG9t9E2zJNaKQqRr3ZjJlVzyR6GqafOiCFti
VhRm3Qg6uvxaMvmj0DxFbsrTZcSFUTDIf5M/+IRD/ihk59ouyUwg7ohCcta7
uEIGMSMauq+qRZq7k8gfjWYNK9lBQ2JEw0Swa7tzRiL5ozHq0dyl8y8mkD8a
84PnOxf/iCd/NDL2Pe1MsSauj4ZcycnqfHEc+aNxXtHu6vd/Yskfg0Mb1azW
axBrxcB3k8veyREx5I+Bf1lS3bnKaPLHIPCMcaWVGrE4BgkNP/p3J0ZJvr8L
Y6B17abq2VuR5I/BorwzYzeaE3fEQClvvdGHvAj6/o0BpyTi7Ru5CPLH4sDb
FD0Wj03+WKzY4dFt9SKc/LF4un3btlj/cHq+xeKRLLuh43YY9cfC+ZcaZ7MH
cX3s8P0d2+DdHCrxPY1FM3ORuRkzlJ5/cWhc804w7m4I+eMQOXBhS2cAMeIw
W97h7O4elmQ/OA4v7jF4mnwW9cfB8nTWtnA54sI4jD4WO7HBNJiel3EIPOoQ
oxQQJPF1xOFfkwe6a7YE0vWPx8YbV+/KXQogfzyCdrVtW/fDn56n8fC4e7b9
wQJ/yT4rHkUf8+v716wkfzwcOxmXjv/jR/54fPexe/BBw4+et/FIslgsPB7p
S9c/HvrzDDbV1PiQPwFLoltDVSb6SHxTE7A1pOBhmmAFPY8TYHdtwHzsg+V0
/RPw3PT5lExbYnEC6ssaa98f8Zbs70vAaIf2A1oTven6J4AdXNs4MsOL/AnY
1mKanzbkSf5EFBnueLFT6CnxaSVC78uqF+M/LaPrn4iclpAF33nErEQUFE95
bfSFSc/3RFz32hGcs5pJn79EfKswZ89UYJI/ET2fI7wKZ3iQPxH7LCfw3y5x
p8/f8Fx/obxmgptkrpqEI7pH8mVyXen9SAJ/YuSqddeXStg0CaI4uYPC4f9r
JOeXhKgZLQ2XrYiZSejYoGFtv8qZzjcJU9Xj1dvql0g4KQmfumVkWMrE4iTY
17wIrlvpJOHMJOQdCJ7VdnIxvZ9J+KHgoJwhT1yWBNMDK+ZXhTtSXxKyrUt2
ul91kHBLEhQLf203MCLuSEJnExYYZ9tLuD8JA/m9cx1liYe/h95/F53zEiyi
fg6uvxz6E2/sqJ+DY4u3t79nE5ty4HT81hHPLlA/B10BGW5LwomZHLTdWx0g
arWlfg6UYtclmj1bSP0crNt+/MT2zzbUz0HOhst9bHXiTA70ivWGMiytqZ8D
zyMmxXdZC6ifAyP/uqzJmVbUz8HNh6XsBVfmUz8HA7uSixQYxB0c5L4rLQ3G
POrnIKZ7sFUzzZL6k5GzJnX6761zqT8ZYV6PD1hoE2slI1lRebSrYA71J6Pu
29T3Ni0W1J8Mp9dB5S+NiZnJsO61iDHJMqf+ZGi5Lf317qsZ9SfjY//h0WMi
iMXJiEl92Bd1bzb1J2PEfZuyFy7EhcnouTdPPeayKfUnY0trYXqbLXF9Mnof
zHU3EJtQfzKMzxiEKKcbU38yzk8Wq+nvmUX9yVjU6ptof8KI+rlIXFZ7YU6j
IfVzsZgrG9nUN5P6h3n5gikPJhCbcqGTX1tivGQG9XNx5fLT/sLVBtTPRWXc
sW+yVdOpn4s6r+uPTX9Oo34u1LsFdd8diMVcfNIpaLLJ0qd+Ls6UfTNvea5H
/VyoNgq0tloTl3GR0Sc67ZGrS/1cvPuVMPThmw71c/F3sY+MTwhxBxcnS1IL
VzRpUz8XtYqG+1oXEDN4eLz38L7DpVrUz0N352+TKqYTa/HwpUCuvNlpKvUP
z4uZzw2WTKF+HnYd/WPrYuZk6uehfO/TgbfBf1A/D7wS57ZXAk3q52Eq3zVF
dvck6ufh5TQPoXzl79TPw8+Ebc/ruydSPw/+s0q0hyYQl/GwRtmzdwdzAvXz
oLnaytpl+3jq5yEtTy38220N6udhutG1Z/wpxP081PBvx+xIUKd+PuYotXTo
NKhRPx9/G0xyGTGVWIuPS6NKGmXX/Eb9fMgLZPaOej6O+vkIcQ9XfuZGzOQj
QnkoKrFalfr56JYPV95mQpzER+1m3XQL97HUz0egp/OZ544q1M9HrsdyhdeO
Y6ifj0yBWYO8+2jq54OztPHtj0Bl6udjVaPAZRtfifr5GMw/67x2lyL183FF
oCm7t1KB+vkw2ZNmeLRHnvoFiJ+9fQRXk1hVgIrrFm6Xl4+ifgFuBl5jRmXL
Ub8AY92V600fy1K/AEqfs8+9mUHMFMD+bdTJ+D9HUr8AavfPCtLuyFC/AOXN
b2YqmxGLBcN/vw/MaN01gvoFcLu7eUzpDwb1C7D54IiiP6OJywQ4YfG9Sv/c
kK2kX4CaeNmze4p+SbhFgP3N3tlyOT8l3CHAleeafdOzf0i4XwDHeScCKwq+
S5iRgmnTRu0WHPsmYdUU6KScsJpy6auEtVKwsOtVZ1LHFwmbpoB7wXvE7FHE
SMGoZ+UPdcw/S5iZAq8txv8ZHTkoYVYKDC8/O3J2/ycJJ6VggmXRvz2dHyUs
ToFFkYFiwkzizBTsU1v9UV34QcKFKajJOHPl6I33Ei5LwXfnXqMhPeL6FHzw
SHfvWj9A/SnQj3t+YUZvP/Wn4GbMkN+hZcT9w/PTTq8DxO+oXwijdq7l7Mi3
1C+EhWGljcinj/qF8DsZPL6H+Yb6hXg0dN/KxOs19QvhVhnKUwh6Rf1C9Buq
3DDkvKR+IZTLbfneW3qpX4i2iQXXbEt7qF+IC2mh+icevKD+Yb+b6UCgMnGh
EE+XGq3WcOimfiHGsfeMyF3/nPqFuHqsbkPp9S7qFyLxk1eb9njiDiGup2ms
q4zqpH4hZP7urnC8+Iz6RUg7bOS1Yyqxqgi1n3LOxq3voH4RKmrYhcsePKV+
EQwC0zVNzz2hfhF0/tHe+cfex9Qvgsnq2vSLWx9RvwjNnnnmTZseUr8I3Omd
sW8y2qlfhA230rPvZD+gfhFe8I7tmH/sPvWLYNOzdv+/19qoXwQPr7ZAvzf3
qF+EvvfyhZsnEreIkOUr5mi73qV+EdxGV33rSLtD/SJctqtIzvjnNvWnok/8
QaVTlVg1Fe+M6j6cCP6X+lOR262vf+5MK/Wnwr/VUNgwlhipmPJ27YaDSS3U
n4rxpvaznE7eov5UyCjvddBOa6b+VDxV+RojjLpJ/an49cCord+7ifpTUT6w
+NLspTds/wvmvGx4
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\"I\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0, 425}, {0, 8226}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic},
  Ticks->{{{0, 
      FormBox["\"27 November 2021\"", TraditionalForm]}, {402, 
      FormBox["\"3 Januari 2023\"", TraditionalForm]}}, {{0, 
      FormBox["0", TraditionalForm]}, {8226, 
      FormBox["8226", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{3.8685147530111246`*^9, 3.868514837803858*^9, 
  3.8685148784268074`*^9, 3.8685149284867296`*^9, 3.8685150400591416`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Rec", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{"Drop", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", "penyelesaian", "]"}], ",", "4"}], "]"}], 
     "]"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "425"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "10529"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"DataRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "425"}], "}"}]}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"t", ",", "\"\<R\>\""}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Green", ",", 
       RowBox[{"Thickness", "[", "0.01", "]"}], ",", 
       RowBox[{"Opacity", "[", "1.0", "]"}], ",", 
       RowBox[{"Dashing", "[", "0.01", "]"}]}], "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "\"\<27 November 2021\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"51", ",", "\"\<17 Januari 2022\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"425", ",", "\"\<26 Januari 2023\>\""}], "}"}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"260", ",", "10529", ",", " ", "7"}], "}"}]}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8655737434275007`*^9, 3.8655737873300085`*^9}, {
  3.86557382270675*^9, 3.8655739777956467`*^9}, {3.868514968797408*^9, 
  3.868514970953247*^9}, {3.868515052761811*^9, 3.868515090009883*^9}, {
  3.8685151338512816`*^9, 3.8685152188940177`*^9}},
 ExpressionUUID -> "f652fb84-d189-4a0e-b535-ce277cfdaa30"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0, 1, 0], Thickness[0.01], Opacity[1.], Dashing[0.01], 
    LineBox[CompressedData["
1:eJxVl3lYTXv7xneO4ZyEDNGhtDMUCaVMGbqV5qLSjNrNc+15t0PtokGTkChT
Mickmgg7hUrIEBnrHFOcUEeSIf383p71Xte7/+n6XPd69r0+a+31/a40fSId
/QewWKwCBRbr///+zwdc9P3n89F4fqdyo/RYMnGfsTV/0JOPFlnoP/B3bHRL
CQl9v5vyEUgODGyKOniA8jFY7qDp6jHjMLEq1hsVxoRuOQaF/7AaXJwcB5U2
nqB5DThllzos7jhFx09C6gb9h+u/FBFPgbmls3FnQDGxFkwWdi/499pZ4ml4
rJ/v8WlcCbEOcgsfj/T3KKU+XRz+Enb+XEYZ5bNwTX90iW1JOfXPhnOh74as
WxWU68Nq+pjLHY/PE89BoGl2SPXjC8QGmKQ1qi70ViWxIU5sr9liXnqReC7O
jrz678ltl4jnIahjQdlX38vE81H+bF2+sYqceAFeyO8+sRQwvBB1+w9+QQPD
Rphar2O/kl1F52uE02+O6edGVpHfYgj3d/xlfr6Kjl+CBvOKo1LWFeKl6I4s
v+NswrAx9Cdtutgbe4W+zxjuEuPn2yoolwFFdqOr535kjl+GDaeF6oM1qylf
hqgEo+uTVhKzTHBbbVPtcSmTm2BzL29teR6Tm2JbfPH3kBomN4V/zgvXZy+Z
fDlEA2+E6AyooXw5argB4jA1YpYZWg/dV7xowORmCBn059C5lkxujoMHzp9p
d2dyc/R2GO/4HsTkFsjyTi6MEjG5BWJuDVwVHcvklrBqv207NonJLbH1zNF6
7zQmtwK/ojact4XJrXBxR6GNeyaTW2N034lO3f/m1jhalxDUl1pD19camjE3
5r9IrOm/XzIbDI80DH4XS8yyxUa15lQtCTNviw9F9mXHwpjvt8Oh1dcy4jhM
bod1Fi9NqxyZfAXKX5XlSEyZfAUOGK97c3YOk69E6HfrCQlsOp/Ylci5UFv5
VYk5v5VIiS74qNFD9wP2uBQzXzzob+Z+2WN57NmzZfXEcns8Tyk/ZVrM3D8H
HDGWjS7dxcw7wP6p2rwJMcy8A66fzh8T68PMO8Av0MT9vRkz74jXZU5reNOY
eUfoPnLVGqvIzDuixLKF9/rdFZp3xERT8cn2emLWKoz3FvXOKSDGKpTIbyyp
TiaWrYIJu/K3owHM/Cq8sM3Y/8aUmXeCu+nciRlsZt4JWZ7vrA/+oOdJ5gRO
+8Wi2c3Ecidkb1Dfs+gs87w5w365vdrtdGI449rttwP/DWTmnfGQb/DxxDJm
3hkx+9MWDZzAzLtgeOyVUQO66HmHC0RKXoGFzPMvc4Hw08fuPw4Ty10QIjKz
0dzArA+uGL7t+IUeJ2beFTZFIyKydZl5VzgpLHFjDWTmXaFVeC8uqpRZj9ww
wKg8br8fMdzgJu1Oko0ilrlh97fzY7TktJ7J3aDht88xN5xZ39zx4MBR1Tfj
ieGO67Ym7Sq1tB7K3LH1wPTf9ETEcncYeFiaLZ3ErJce8K1MX2F1m9ZTeOCm
TjnXfT2xzANNm1RKxNOJ5R64s3fh82MPLtDv1wPfR54I/rKR1mesxuCLiVuD
9S/Q87YaRaPHrxjcQuu5fDW4+4Wu99PO0/O3BhMfdWg9NqIca2Cy91yP+lva
D2RrcIA//ebhnRX9fZfXoOhRWIjEnNkv1mLjo/K1uz7TfmK8FuN7a34MO1xO
82vR26kR+MypvL9PvhZRX+KShg6inOUJJVtVlb0lZf05PDHxal1WdgDtVzJP
rL4g9PgxjljuiRqhVsrdulKa9wLL0PZP9fXE8ILK6Oe3W2aV0vPuhchbG60m
/k37o9wLDQfPdj/ZUULXzwvBgTfU1awpZ3NwomPy079+nqPv48Dj50RtvXPE
HA6Czsy++UcIsYwDs8pnYh6bOI+Dk77VR4Mf0v4s5+BnWOLlrgziVg50VRq+
jbFg9m9vJOlMEzb00f7O9ka5z5Cp6hXE8EbioB2vfxcQc7yhO3APf+tMYpk3
7LJ8/crbzlC/N577JS2MPUQs98bJ+BuObzjErd7YpNDe1alOzPKBfUyQVd4T
et9g+0Axw8brUw4xfLBH98OMdjdijg8ilpalpqoSy3wQGn4q4dCZ09TvA7+2
vu9xBsRyH7yr1z9SVErvN60+eKbYslF/EfO+44suWW3woKqT1O+LjIPav820
JIYvlBy+3T3WWEj9vmi+bjFX6kEs84XgrSdn36sT1O+Lea+GBajyieW+uBpw
z/BNXwH1+2K77x85iluIWX6Yk//H0ngNYrYfdqvYnrY7c5z6/aCkFesetpyY
44cUVm7qs+Zj1O+H7EFvJXkRxHl+MIgcM/fcIGK5H66ZaV4et+8o9fth2IWw
nrr5xCx/PFHIL6i7e4T6/fG5vCBJJZIY/uj9maNTqETM8ce35dtU007Q+6XM
H6Vdh6vO2hDn+eN6X3Gc5vtD1O+PptCFB+5tIW71h22HrkutATErAP4VVTW9
zQepPwCz/AxZ/FhiBOCRefrQydrEnAAIVL0eD2/Mp/4A1CvGORhEE+cFQDW4
xiJjKrE8AFduHk5Uv0vvx60BgMK3+uexzPtyIEZmZV+9PYuYHQhPs+4JH57n
UX8gSiweBc3PJOYEQkv01+LjJsSyQIiHOC+Nb99P/YFwzK6c8NWZWB6I624p
vWeq9lF/IIa6Hr58dDYxKwgVu9bMbtq/l/qD4L+RpzR3FDGCsPPneMUriXuo
PwjF6xUaxb27qT8ISr8bfrcTE+cFQVUwVsOkM5f6g7Ck3vKaXQRxaxB2T00W
hL7Pof5gVPUk5++IIGYHo6u3vvZa5y7qD0b44wCXr2JiTjD27moq1f65k/qD
YaxS7GCbRJwXjNJ1wlTvUcTyYLx5r33Ne3829QcjRjDex2IWMSsEC2yTLild
3kH9IciSLzIqdCBGCDpT5xmyX9P/P5wQtH1bpuS7nlgWAr/m5MmRY7L61++8
EJw21Xq29NR26g+B7+aifQ1WxK0h+Kx6uXHUm220/obAoCi0ZWjiNuoPxeOm
W0bFWsQIhWqlxJVVt5X6Q5FysOVUR9hW2t9CwXrYfHnDKMrzQvGH29fh+RWZ
1B+KvlUK2m4+mf19LaEYJV2Sk6uUSftfGB5vqv9+nbuF+sPw8tC7trU3Mqg/
DAYvhlq2T8von/cKQ0nmIknQ5nTyD4PNfYVX19vTqD8MMRk9yqxVabRfhuHH
3NVpgytT+/taw7Dy4ZZvjdqpdP3DcdH7+Ejn7BTqD8fhkBe5yUNSaD8Nh07m
OIH3us3985xwBB/UTW3qTKb+cLyqim17HEKcFw7bBIvDga+TaL8Nx3RuZwfP
L4mufzjiLkqVO14mUn8E7pdf9GwOTOzv04hAUHWtreb7BNqPI7BwhppPlTCB
rn8EXL90Lj79cxP1R+BTQ/S2v1I29c/vj8CNEeNmr/yTcnkExnFSuz8c30j9
Edi1U+9l2WJiViRqAzSGHrgT39/HjkRlsWv2gaB4uv6R2HPvRW2RAjEnErPv
fem9uieO9vdI2NYrHW9eGEe/v0hsX9fj3Noso/5ILLRSOH5fStz6a/7gB8+T
ajL6/UWiboxubk18bH+uzMWFlLorD27H0P3g4kh1w/I4NrEeF8pLMj3PCTfQ
+XExoKg4ltOwvp/tuUiYMspKrE3M4WIdvyrtdcK6fuZyMcqnxy7/TTRdPy4m
7f0pz7UlzuSi6MBIm6pzUrqfXLx5aRY/hE1cxEWjk+9Mr4wo8uNiasBF0/N9
kn5u5GLr48HvFYXErVw8CtGMM/1H3M8dXDjHvk1y8Sdm8eDA/lk+728R+fPw
t3nC9wfexGwe/i1p99d5KSR/Hozijy6ZEkwMHiZEtnWXdQjInwcbM3fDR9HE
HB5iLG5fWzeEmMuDZduPwu3ZfPLnYd8L9miVacSZPMQ/K3bsusAjfx72HBn2
71RH4iIedpiPO7TvHZf8eXD757XFqgTiRh6ET4LaFkwibuXBfJRC1Ob4SPLn
wfWqg2VzTQT586HYM9XDaiixMh/v3BPH1zqHkz8f7PXu1jgURv585K/f1bu3
O5T8+Yg1jMu9aUtsz0fTn9eaLxwJIX8+EgZWyp0HEnP5CPktsSDZP5j8+YiI
MF5iUh9E/nxs4UyJ4M4hzuNjc3V5rMK+QPLnY6/KB9ZLJWI5HweULRsGxwaQ
Px/mbqwh7l3+5M+HvdN0dn0YcQcfSz0ab1u1+ZG/AHJLjbG1AcTKAkwu3WA0
t82X/AVouHOmPi6MWE+A4+MUcvd98iF/AdZ/spev30BsL0Ad1yJnmCIxR4Ap
o8OqTXK8yV+A/E5LjeEziGUCsGen3fK+zCF/ASa1TTfQcyHOE2DOmt6nD597
kf+v77d7JR8xllgugOJNI7sPDp7kL8BovaZ5HtvWkr8A10fHFhg9XEP+ArR4
m9pI2MQsIXyDK/V6wleTvxD3dP1fHb7sQf5C1A157xesQqwnxMKG9PG6ke7k
/+s5EPu1PGxwI38hurY29LjMIuYIMVt4aWzWdlfyF+Kbq55j9A8X8hfCMj56
xucg4kwhhDGXkjuanclfiOxUh3NutsRFQqSs1Fk9vtqJ/IVIe+GQOmkJcaMQ
o+3cij3PryJ/IQTCht2VRsQdQpw4Xhapc8mR/EUovKZ2Jns5sbIIrr3Riztu
OpC/CEGeTuZaHsR6IsRPLXef9tae/EXY09To8jqa2F6E8Xpinv0IYo4I7zUS
vU7ZriR/ET77eN55ELuC/EXwe+qe8KPMjvxFePBmh9+Az7bkL0Lq17OdN+YR
F4mgP2Gm+ZINNuQvglvMyRGLaq3JXwQ13aj0gnHErSKg+W46L9SK/EXY8FQa
Kq62JH8x9nupDc3TIFYWo7Cgtbkp1oL8xTA82XG174U5+YtRXDTcfLAtMcS4
s3CO3d0yM/IXw05lpp2dNjFHDN10NwPv3OXkL8bgK9YBPcrEMjE0J2dV96aY
kr8YJn2b9q75nThPjNna38tZm03IX4xhufNtHigRy8X4NqfyS932ZeQvhniF
/q1adeJWMZLXrrKUF4D8xbi6us1inxExS4JNC6On5+cak78E5+qcSjKuLiV/
CdTjTFe2fl5C/hKkjd90TzSDGBLo2rx5PCtgMflLkGWmWvbP4UXkL0Gl1aeI
9HdG5C+Bx+R/zn82IJZJsFKyQWFI/ELyl2CAvGTVofsLyF8C+cNLwWdmEBdJ
sPFj/P5RSfPJX4J3t907C1/PI38JhMuu9vhbE7dKkBO16O3k4rnkL/n1vtWX
dlOdmBWFnccGm1inG5J/FP50ed8dxyJmRyGnpVt7rcSA/KOwMU7taU3nHPL/
NX95Wn5+JLF9FEJftqS3duiT/6/cfe7cYBExNwp1Z9JPavfqkX8UipcM2zwk
mTgzCiUDP93rUiHOi0LXp77J5XazyT8KPWn3JU6iWeQfBT2FCmlO/kzyj8KA
VQqtPk265B8F5W0zF6cPI+74dTxrVvdn6xnkL0Xu/YsW69J1yF8KnRX35/+4
P538pai4OiPbTZNYT4pC3vNuLn8a+UsxLE31lFatNvlLUZnWcmP1JGKOFDnT
P4z7JNMifymKbh0a1vhiKvlL8QnDmx9YE2dKYTaxx669ZAr5SzHmw8QPn6cQ
F0nBFoc/ebRzMvlLkThk5aOY4cSNUuyJGmPZkDyJ/KU4JQvVLBhM3CHF1Blt
XaxkTfKPxjLVvJcVSsTK0Rhs8vDApSw2+Ufj4I+LwV81iPWi4XM/dmDBGg3y
j0aQ4fVwaexE8o/GUDXRiQXH1Mk/GpfKrrjJH6iRfzSanTUU3ykSy6LxJTHS
InP5BPKPhtrzkMSMjePxfx6IjLM=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["\"R\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0, 425}, {0, 10529}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic},
  Ticks->{{{0, 
      FormBox["\"27 November 2021\"", TraditionalForm]}, {51, 
      FormBox["\"17 Januari 2022\"", TraditionalForm]}, {425, 
      FormBox["\"26 Januari 2023\"", TraditionalForm]}}, {{260, 
      FormBox["260", TraditionalForm]}, {10529, 
      FormBox["10529", TraditionalForm]}, {7, 
      FormBox["7", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{
  3.865573860730085*^9, {3.865573921360334*^9, 3.865573978960039*^9}, 
   3.868515225987362*^9},
 ExpressionUUID -> "3f9bf2e3-516a-4823-a78a-255023cc1f22"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1350, 631},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ExpressionUUID -> "74e5e155-ccb7-42c8-947b-38293e223454",
Magnification:>0.9 Inherited,
FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 164, 2, 58, "Section"],
Cell[CellGroupData[{
Cell[769, 28, 210, 4, 34, "Subsection"],
Cell[982, 34, 2934, 67, 136, "Input"],
Cell[3919, 103, 3192, 59, 244, "Input"],
Cell[7114, 164, 11096, 273, 424, "Input"],
Cell[CellGroupData[{
Cell[18235, 441, 1286, 25, 46, "Input"],
Cell[19524, 468, 23673, 449, 5985, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43234, 922, 2794, 88, 64, "Input"],
Cell[46031, 1012, 6482, 114, 196, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52550, 1131, 2948, 91, 64, "Input"],
Cell[55501, 1224, 6629, 115, 196, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62167, 1344, 1955, 53, 46, "Input"],
Cell[64125, 1399, 6762, 118, 215, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70924, 1522, 1828, 48, 46, "Input"],
Cell[72755, 1572, 6860, 121, 204, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)