(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 13.1' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 119352, 2057]
NotebookOptionsPosition[ 117371, 2016]
NotebookOutlinePosition[ 117903, 2035]
CellTagsIndexPosition[ 117860, 2032]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
Manually construct a net and initialize it with random parameters:\
\>", "Text",
CellChangeTimes->{{3.866799019506377*^9, 3.866799025536686*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"net", "=",
RowBox[{"NetInitialize", "@",
RowBox[{"NetChain", "[",
RowBox[{
RowBox[{"{", "\n",
RowBox[{
RowBox[{"LinearLayer", "[", "10", "]"}], ",",
RowBox[{"BatchNormalizationLayer", "[", "]"}], ",",
RowBox[{"ElementwiseLayer", "[", "Ramp", "]"}], ",", "\n",
RowBox[{"LinearLayer", "[", "10", "]"}], ",",
RowBox[{"BatchNormalizationLayer", "[", "]"}], ",",
RowBox[{"ElementwiseLayer", "[", "Ramp", "]"}], ",", "\n",
RowBox[{"LinearLayer", "[", "1", "]"}]}], "}"}], ",", "\n",
RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",",
RowBox[{"\"\