ICODE-ADC/lammps
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: svn://svn.icms.temple.edu/lammps-ro/trunk@24 f3b2605a-c512-4ea7-a41b-209d697bcdaa

Browse Source
This commit is contained in:
sjplimp
2006-09-27 19:51:08 +00:00
parent f25713e3b0
commit d114fa1315
95 changed files with 11710 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

59
lib/poems/norm.cpp Normal file
View File

@ -0,0 +1,59 @@
/*
*_________________________________________________________________________*
* POEMS: PARALLELIZABLE OPEN SOURCE EFFICIENT MULTIBODY SOFTWARE *
* DESCRIPTION: SEE READ-ME *
* FILE NAME: nrom.cpp *
* AUTHORS: See Author List *
* GRANTS: See Grants List *
* COPYRIGHT: (C) 2005 by Authors as listed in Author's List *
* LICENSE: Please see License Agreement *
* DOWNLOAD: Free at www.rpi.edu/~anderk5 *
* ADMINISTRATOR: Prof. Kurt Anderson *
* Computational Dynamics Lab *
* Rensselaer Polytechnic Institute *
* 110 8th St. Troy NY 12180 *
* CONTACT: anderk5@rpi.edu *
*_________________________________________________________________________*/
#include <cmath>
#include "norm.h"
double Magnitude(ColMatrix& A){
double G;
G = 0;
for (int i=1;i<=A.GetNumRows();i++) G += A.Get(i)*A.Get(i);
G = sqrt(G);
return G;
}
double Magnitude(RowMatrix& A){
double G;
G = 0;
for (int i=1;i<=A.GetNumCols();i++) G += A.Get(i)*A.Get(i);
G = sqrt(G);
return G;
}
double Magnitude(Vect3& A){
double G;
G = 0;
for (int i=1;i<=3;i++) G += A.Get(i)*A.Get(i);
G = sqrt(G);
return G;
}
double Magnitude(Vect4& A){
double G;
G = 0;
for (int i=1;i<=4;i++) G += A.Get(i)*A.Get(i);
G = sqrt(G);
return G;
}
double Magnitude(Vect6& A){
double G;
G = 0;
for (int i=1;i<=6;i++) G += A.Get(i)*A.Get(i);
G = sqrt(G);
return G;
}