Changeset 2580 in Sophya for trunk/SophyaProg/Tests/tsttminv.cc
- Timestamp:
- Jul 29, 2004, 5:10:44 PM (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SophyaProg/Tests/tsttminv.cc
r2571 r2580 470 470 TMatrix< TYPE > AmUSVt(N,N); AmUSVt = U; 471 471 for(int i=0;i<N;i++) for(int j=0;j<N;j++) AmUSVt(i,j) *= S(j); 472 AmUSVt *=VT; AmUSVt -= Ainput;472 AmUSVt = AmUSVt * VT; AmUSVt -= Ainput; 473 473 if(nprline>0) {cout<<AmUSVt; cout<<endl;} 474 474 //-- Check … … 502 502 TMatrix< TYPE > AmUSVt(N,N); AmUSVt = U; 503 503 for(int i=0;i<N;i++) for(int j=0;j<N;j++) AmUSVt(i,j) *= (TYPE) S(j); 504 AmUSVt *=VT; AmUSVt -= Ainput;504 AmUSVt = AmUSVt * VT; AmUSVt -= Ainput; 505 505 if(nprline>0) {cout<<AmUSVt; cout<<endl;} 506 506 //-- Check
Note:
See TracChangeset
for help on using the changeset viewer.