SHARE
TWEET

Untitled

a guest Jul 21st, 2019 66 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Select[
  2.   trainedNet[{trainSet[[1, 1, 1]]}, NetPortGradient["Input"]] // Flatten,
  3.   # > 0 &] // Histogram
  4.      
  5. gl[a_] :=
  6.  NetTake[trainedNet, a]
  7. mdt = Table[
  8.    Table[
  9.     gl[a][{testSet[[1, k, 1]]}, NetPortGradient["Input"]] // Flatten //
  10.        Abs // Total,
  11.     {a, 1, 12}],
  12.    {k, 1, 20}];
  13. ListPlot[mdt, Joined -> True, PlotRange -> All,
  14.  FrameLabel -> {"Number of layer", "Total@Abs@Gradient"},
  15.  Frame -> {True, True, False, False}]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top