Changeset 6a314f for molecuilder/src/vector.cpp
- Timestamp:
- Apr 29, 2010, 4:03:30 PM (16 years ago)
- Children:
- 465abf
- Parents:
- 16eb32
- File:
-
- 1 edited
-
molecuilder/src/vector.cpp (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
molecuilder/src/vector.cpp
r16eb32 r6a314f 647 647 for (j=NDIM;j--;) 648 648 Components[j] = -1; 649 650 // in two component-systems we need to find the one position that is zero 651 int zeroPos = -1; 649 652 // find two components != 0 650 for (j=0;j<NDIM;j++) 653 for (j=0;j<NDIM;j++){ 651 654 if (fabs(GivenVector[j]) > MYEPSILON) 652 655 Components[Last++] = j; 656 else 657 // this our zero Position 658 zeroPos = j; 659 } 653 660 654 661 switch(Last) { 655 662 case 3: // threecomponent system 663 // the position of the zero is arbitrary in three component systems 664 zeroPos = Components[2]; 656 665 case 2: // two component system 657 666 norm = sqrt(1./(GivenVector[Components[1]]*GivenVector[Components[1]]) + 1./(GivenVector[Components[0]]*GivenVector[Components[0]])); 658 x[Components[2]]= 0.;667 at(zeroPos) = 0.; 659 668 // in skp both remaining parts shall become zero but with opposite sign and third is zero 660 x[Components[1]]= -1./GivenVector[Components[1]] / norm;661 x[Components[0]]= 1./GivenVector[Components[0]] / norm;669 at(Components[1]) = -1./GivenVector[Components[1]] / norm; 670 at(Components[0]) = 1./GivenVector[Components[0]] / norm; 662 671 return true; 663 672 break; 664 673 case 1: // one component system 665 674 // set sole non-zero component to 0, and one of the other zero component pendants to 1 666 x[(Components[0]+2)%NDIM]= 0.;667 x[(Components[0]+1)%NDIM]= 1.;668 x[Components[0]]= 0.;675 at((Components[0]+2)%NDIM) = 0.; 676 at((Components[0]+1)%NDIM) = 1.; 677 at(Components[0]) = 0.; 669 678 return true; 670 679 break;
Note:
See TracChangeset
for help on using the changeset viewer.
