From 9e208c70e81832c88736ab404758f5e503701b1c Mon Sep 17 00:00:00 2001
From: Jens Ahrensfeld <jens@jayfield.org>
Date: Fri, 14 Jun 2024 17:25:12 +0200
Subject: [PATCH] - added

---
 RBM/norbload_arma.m | 32 ++++++++++++++++++++++++++++++++
 RBM/test.dat        |  3 +++
 2 files changed, 35 insertions(+)
 create mode 100755 RBM/norbload_arma.m
 create mode 100755 RBM/test.dat

diff --git a/RBM/norbload_arma.m b/RBM/norbload_arma.m
new file mode 100755
index 0000000..1232230
--- /dev/null
+++ b/RBM/norbload_arma.m
@@ -0,0 +1,32 @@
+function norbload_arma()
+
+fid=fopen('smallnorb-5x46789x9x18x6x2x96x96-training-dat.mat','r');
+fread(fid,4,'uchar'); % result = [85 76 61 30], byte matrix(in base 16: [55 4C 3D 1E])
+fread(fid,4,'uchar'); % result = [4 0 0 0], ndim = 4
+numImages = fread(fid,4,'uchar'); % result = [236 94 0 0], dim0 = 24300 (=94*256+236)
+fread(fid,4,'uchar'); % result = [2 0 0 0], dim1 = 2
+fread(fid,4,'uchar'); % result = [96 0 0 0], dim2 = 96
+fread(fid,4,'uchar'); % result = [96 0 0 0], dim3 = 96
+
+ncase = 10;
+nx = 96;
+ny = 96;
+npixl = nx*ny;
+
+
+im = zeros(ncase, npixl);
+
+n = 1
+c = 1
+while (n <= ncase)
+    if (mod(c, 2) == 0)
+       im(n, :) = fread(fid,npixl)/256;
+       n = n + 1;
+    end
+    c = c + 1;
+end;
+fclose (fid);
+save ("-ascii", "norb.trainingStates.dat", 'im')
+
+
+
diff --git a/RBM/test.dat b/RBM/test.dat
new file mode 100755
index 0000000..68aa2f7
--- /dev/null
+++ b/RBM/test.dat
@@ -0,0 +1,3 @@
+ 8.35966772e-02 4.35877914e-01 4.92330766e-02 1.77356648e-01
+ 2.11135789e-01 6.69802888e-01 5.01491449e-01 7.72594091e-01
+ 8.15111040e-01 2.97008737e-01 1.65219911e-01 2.62748551e-01