-
Notifications
You must be signed in to change notification settings - Fork 1
/
neir.lab
113 lines (112 loc) · 1.98 KB
/
neir.lab
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
M a t r i x i n p u t ;
i n p u t . L o a d ( ) ;
M a t r i x o u t p u t ;
o u t p u t . L o a d ( ) ;
/ *
i n t i ;
f o r ( i = 4 5 7 6 ; i < i n p u t . G e t R o w C o u n t ( ) ; i + + )
{
i n p u t . D e l e t e R o w ( i ) ;
o u t p u t . D e l e t e R o w ( i ) ;
}
i n p u t . N o r m R o w s ( ) ;
i n p u t . N o r m C o l s ( ) ;
* /
L a y e r N e t n e t ;
n e t . L o a d ( ) ;
n e t . C r e a t e ( 6 4 , 3 2 , 0 , 2 ) ;
n e t . A u t o S e t I n S c a l e r ( i n p u t ) ;
n e t . A u t o S e t O u t S c a l e r ( o u t p u t ) ;
n e t . S e t T r a i n S e t ( i n p u t , o u t p u t , t r u e ) ;
i n t n u m t r = 0 ;
n u m t r = n e t . G e t M i n N o T r C s ( ) ;
n e t . T r a i n S i m A n n e a l ( 1 2 2 0 9 , 3 0 , 1 , 0 . 0 1 , f a l s e , 2 , 0 . 0 0 0 1 ) ;
n e t . T r a i n C o n j G r a d ( 2 3 3 0 9 , 0 . 0 0 0 1 ) ;
/ / n e t . T r a i n L e v e n M a r ( 1 5 0 0 , 0 . 0 0 0 0 0 1 ) ;
n e t . S a v e ( ) ;
M a t r i x v i n p u t ;
v i n p u t . L o a d ( ) ;
M a t r i x v o u t p u t ;
v o u t p u t . L o a d ( ) ;
n e t . L o a d ( ) ;
M a t r i x v o = n e t . R u n ( v i n p u t ) ;
M a t r i x o = n e t . R u n ( i n p u t ) ;
M a t r i x v t r a i n c o n f = C o n f u s i o n M a t r i x ( v o , v o u t p u t , 0 . 5 ) ;
M a t r i x t r a i n c o n f = C o n f u s i o n M a t r i x ( o , o u t p u t , 0 . 5 ) ;
t r a i n c o n f . S a v e ( ) ;
v t r a i n c o n f . S a v e ( ) ;
i n t n u m e r r o r s = t o i n t ( t r a i n c o n f . G e t S u m ( ) ) - t o i n t ( t r a i n c o n f . G e t D i a g o n a l S u m ( ) ) ;
i n t v n u m e r r o r s = t o i n t ( v t r a i n c o n f . G e t S u m ( ) ) - t o i n t ( v t r a i n c o n f . G e t D i a g o n a l S u m ( ) ) ;