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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
//#define WANT_STREAM
#include "include.h"
#include "newmat.h"
#include "tmt.h"
#ifdef use_namespace
using namespace NEWMAT;
#endif
// **************************** test program ******************************
ReturnMatrix Returner0(const GenericMatrix& GM)
{ Matrix M = GM; M.Release(); return M; }
ReturnMatrix Returner1(const GenericMatrix& GM)
{ Matrix M = GM+1; M.Release(); return M; }
ReturnMatrix Returner2(const GenericMatrix& GM)
{ UpperBandMatrix M = GM*2; M.Release(); return M; }
ReturnMatrix Returner3(const GenericMatrix& GM)
{ LowerBandMatrix M = GM*3; M.Release(); return M; }
ReturnMatrix Returner4(const GenericMatrix& GM)
{ SymmetricMatrix M = GM+4; M.Release(); return M; }
ReturnMatrix Returner5(const GenericMatrix& GM)
{ SymmetricBandMatrix M = GM*5; M.Release(); return M; }
ReturnMatrix Returner6(const GenericMatrix& GM)
{ BandMatrix M = GM*6; M.Release(); return M; }
ReturnMatrix Returner7(const GenericMatrix& GM)
{ DiagonalMatrix M = GM*7; M.Release(); return M; }
void trymat5()
{
// cout << "\nFifth test of Matrix package\n";
Tracer et("Fifth test of Matrix package");
Tracer::PrintTrace();
int i,j;
Matrix A(5,6);
for (i=1;i<=5;i++) for (j=1;j<=6;j++) A(i,j)=1+i*j+i*i+j*j;
ColumnVector CV(6);
for (i=1;i<=6;i++) CV(i)=i*i+3;
ColumnVector CV2(5); for (i=1;i<=5;i++) CV2(i)=1.0;
ColumnVector CV1=CV;
{
CV=A*CV;
RowVector RV=CV.t(); // RowVector RV; RV=CV.t();
RV=RV-1.0;
CV=(RV*A).t()+A.t()*CV2; CV1=(A.t()*A)*CV1 - CV;
Print(CV1);
}
CV1.ReSize(6);
CV2.ReSize(6);
CV.ReSize(6);
for (i=1;i<=6;i++) { CV1(i)=i*3+1; CV2(i)=10-i; CV(i)=11+i*2; }
ColumnVector CX=CV2-CV; { CX=CX+CV1; Print(CX); }
Print(ColumnVector(CV1+CV2-CV));
RowVector RV=CV.t(); RowVector RV1=CV1.t();
RowVector R=RV-RV1; Print(RowVector(R-CV2.t()));
// test loading of list
RV.ReSize(10);
for (i=1;i<=10;i++) RV(i) = i*i;
RV1.ReSize(10);
RV1 << 1 << 4 << 9 << 16 << 25 << 36 << 49 << 64 << 81 << 100; // << 121;
Print(RowVector(RV-RV1));
et.ReName("Fifth test of Matrix package - almost at end");
Matrix X(2,3);
X << 11 << 12 << 13
<< 21 << 22 << 23;
Matrix Y = X.t(); // check simple transpose
X(1,1) -= 11; X(1,2) -= 12; X(1,3) -= 13;
X(2,1) -= 21; X(2,2) -= 22; X(2,3) -= 23;
Print(X);
Y(1,1) -= 11; Y(2,1) -= 12; Y(3,1) -= 13;
Y(1,2) -= 21; Y(2,2) -= 22; Y(3,2) -= 23;
Print(Y);
et.ReName("Fifth test of Matrix package - at end");
RV = Returner1(RV)-1; Print(RowVector(RV-RV1));
CV1 = Returner1(RV.t())-1; Print(ColumnVector(RV.t()-CV1));
#ifndef DONT_DO_NRIC
nricMatrix AA = A;
X = Returner1(AA)-A-1; Print(X);
#endif
UpperTriangularMatrix UT(31);
for (i=1; i<=31; i++) for (j=i; j<=31; j++) UT(i,j) = i+j+(i-j)*(i-2*j);
UpperBandMatrix UB(31,5); UB.Inject(UT);
LowerTriangularMatrix LT = UT.t();
LowerBandMatrix LB(31,5); LB.Inject(LT);
A = Returner0(UB)-LB.t(); Print(A);
A = Returner2(UB).t()-LB*2; Print(A);
A = Returner3(LB).t()-UB*3; Print(A);
SymmetricMatrix SM; SM << (UT+LT);
A = Returner4(SM)-UT-LT-4; Print(A);
SymmetricBandMatrix SB(31,5); SB.Inject(SM);
A = Returner5(SB)/5-UB-LB; Print(A);
BandMatrix B = UB+LB*LB; A = LB;
A = Returner6(B)/6 - UB - A*A; Print(A);
DiagonalMatrix D; D << UT;
D << (Returner7(D)/7 - UT); Print(D);
// cout << "\nEnd of fifth test\n";
}
|
