44 |
|
* |
45 |
|
* Created by Charles F. Vardeman II on 11 Dec 2006. |
46 |
|
* @author Charles F. Vardeman II |
47 |
< |
* @version $Id: ConvexHull.cpp,v 1.9 2008-10-07 17:12:48 chuckv Exp $ |
47 |
> |
* @version $Id: ConvexHull.cpp,v 1.11 2008-10-20 19:36:32 chuckv Exp $ |
48 |
|
* |
49 |
|
*/ |
50 |
|
|
369 |
|
#else |
370 |
|
#ifdef HAVE_QHULL |
371 |
|
/* Old options Qt Qu Qg QG0 FA */ |
372 |
< |
ConvexHull::ConvexHull() : Hull(), dim_(3), options_("qhull Qt Qci Tcv Pp"), Ns_(200) { |
372 |
> |
/* More old opts Qc Qi Pp*/ |
373 |
> |
ConvexHull::ConvexHull() : Hull(), dim_(3), options_("qhull Qt Pp"), Ns_(200), nTriangles_(0) { |
374 |
|
//If we are doing the mpi version, set up some vectors for data communication |
375 |
|
#ifdef IS_MPI |
376 |
|
|
446 |
|
const_cast<char *>(options_.c_str()), NULL, stderr)) { |
447 |
|
|
448 |
|
sprintf(painCave.errMsg, "ConvexHull: Qhull failed to compute convex hull"); |
449 |
< |
painCave.isFatal = 0; |
449 |
> |
painCave.isFatal = 1; |
450 |
|
simError(); |
451 |
|
|
452 |
|
} //qh_new_qhull |
454 |
|
|
455 |
|
#ifdef IS_MPI |
456 |
|
std::vector<double> localPts; |
457 |
+ |
std::vector<double> localVel; |
458 |
|
int localPtArraySize; |
459 |
|
|
460 |
|
|
466 |
|
if (!facet->simplicial){ |
467 |
|
// should never happen with Qt |
468 |
|
sprintf(painCave.errMsg, "ConvexHull: non-simplicaial facet detected"); |
469 |
< |
painCave.isFatal = 0; |
469 |
> |
painCave.isFatal = 1; |
470 |
|
simError(); |
471 |
|
} |
472 |
|
|
518 |
|
localPts.push_back(ptArray[dim_ * idx]); |
519 |
|
localPts.push_back(ptArray[dim_ * idx + 1]); |
520 |
|
localPts.push_back(ptArray[dim_ * idx + 2]); |
521 |
+ |
|
522 |
+ |
Vector3d vel = bodydoubles[idx]->getVel(); |
523 |
+ |
localVel.push_back(vel.x()); |
524 |
+ |
localVel.push_back(vel.y()); |
525 |
+ |
localVel.push_back(vel.z()); |
526 |
+ |
|
527 |
|
localPtsMap.push_back(idx); |
528 |
|
} |
529 |
|
|
542 |
|
int nglobalPts = int(Nsglobal_/3); |
543 |
|
|
544 |
|
|
545 |
< |
std::vector<double> globalPts; |
546 |
< |
globalPts.resize(Nsglobal_); |
545 |
> |
std::vector<double> globalPts(Nsglobal_); |
546 |
> |
std::vector<double> globalVel(Nsglobal_); |
547 |
|
|
548 |
|
isSurfaceID.resize(nglobalPts); |
549 |
|
|
561 |
|
/* gather the potential hull */ |
562 |
|
|
563 |
|
MPI::COMM_WORLD.Allgatherv(&localPts[0],localPtArraySize,MPI::DOUBLE,&globalPts[0],&NstoProc_[0],&displs_[0],MPI::DOUBLE); |
564 |
+ |
MPI::COMM_WORLD.Allgatherv(&localVel[0],localPtArraySize,MPI::DOUBLE,&globalVel[0],&NstoProc_[0],&displs_[0],MPI::DOUBLE); |
565 |
|
|
566 |
|
/* |
567 |
|
if (myrank_ == 0){ |
611 |
|
Triangle* face = new Triangle(); |
612 |
|
Vector3d V3dNormal(facet->normal[0],facet->normal[1],facet->normal[2]); |
613 |
|
face->setNormal(V3dNormal); |
614 |
< |
//face->setCentroid(V3dCentroid); |
614 |
> |
|
615 |
> |
|
616 |
> |
|
617 |
|
RealType faceArea = 0.5*V3dNormal.length(); |
618 |
< |
//face->setArea(faceArea); |
618 |
> |
face->setArea(faceArea); |
619 |
|
|
620 |
|
|
621 |
|
vertices = qh_facet3vertex(facet); |
622 |
+ |
|
623 |
+ |
coordT *center = qh_getcenter(vertices); |
624 |
+ |
Vector3d V3dCentroid(center[0], center[1], center[2]); |
625 |
+ |
face->setCentroid(V3dCentroid); |
626 |
+ |
Vector3d faceVel = V3Zero; |
627 |
|
FOREACHvertex_(vertices){ |
628 |
|
id = qh_pointid(vertex->point); |
629 |
|
int localindex = id; |
630 |
|
#ifdef IS_MPI |
631 |
< |
|
631 |
> |
Vector3d velVector(globalVel[dim_ * id],globalVel[dim_ * id + 1], globalVel[dim_ * id + 1]); |
632 |
> |
faceVel = faceVel + velVector; |
633 |
|
if (id >= noffset/3 && id < (noffset + localPtArraySize)/3 ){ |
634 |
|
localindex = localPtsMap[id-noffset/3]; |
635 |
+ |
#else |
636 |
+ |
faceVel = faceVel + bodydoubles[localindex]->getVel(); |
637 |
|
#endif |
638 |
|
face->addVertex(bodydoubles[localindex]); |
639 |
|
if( !isSurfaceID[id] ){ |
653 |
|
} |
654 |
|
#endif |
655 |
|
} //Foreachvertex |
656 |
< |
|
656 |
> |
/* |
657 |
> |
if (!SETempty_(facet->coplanarset)){ |
658 |
> |
FOREACHpoint_(facet->coplanarset){ |
659 |
> |
id = qh_pointid(point); |
660 |
> |
surfaceSDs_.push_back(bodydoubles[id]); |
661 |
> |
} |
662 |
> |
} |
663 |
> |
*/ |
664 |
> |
face->setFacetVelocity(faceVel/3.0); |
665 |
|
Triangles_.push_back(face); |
666 |
|
qh_settempfree(&vertices); |
667 |
< |
|
667 |
> |
|
668 |
|
} //FORALLfacets |
669 |
|
|
670 |
< |
|
670 |
> |
/* |
671 |
> |
std::cout << surfaceSDs_.size() << std::endl; |
672 |
> |
for (SD = surfaceSDs_.begin(); SD != surfaceSDs_.end(); ++SD){ |
673 |
> |
Vector3d thisatom = (*SD)->getPos(); |
674 |
> |
std::cout << "Au " << thisatom.x() << " " << thisatom.y() << " " << thisatom.z() << std::endl; |
675 |
> |
} |
676 |
> |
*/ |
677 |
|
|
645 |
– |
Ns_ = surfaceSDs_.size(); |
678 |
|
|
679 |
|
|
680 |
< |
qh_getarea(qh facet_list); |
681 |
< |
volume_ = qh totvol; |
682 |
< |
area_ = qh totarea; |
683 |
< |
|
684 |
< |
|
685 |
< |
|
686 |
< |
qh_freeqhull(!qh_ALL); |
687 |
< |
qh_memfreeshort(&curlong, &totlong); |
688 |
< |
if (curlong || totlong) |
689 |
< |
std::cerr << "qhull internal warning (main): did not free %d bytes of long memory (%d pieces) " |
690 |
< |
<< totlong << curlong << std::endl; |
691 |
< |
|
692 |
< |
|
693 |
< |
|
680 |
> |
Ns_ = surfaceSDs_.size(); |
681 |
> |
nTriangles_ = Triangles_.size(); |
682 |
> |
|
683 |
> |
qh_getarea(qh facet_list); |
684 |
> |
volume_ = qh totvol; |
685 |
> |
area_ = qh totarea; |
686 |
> |
|
687 |
> |
|
688 |
> |
|
689 |
> |
qh_freeqhull(!qh_ALL); |
690 |
> |
qh_memfreeshort(&curlong, &totlong); |
691 |
> |
if (curlong || totlong) |
692 |
> |
std::cerr << "qhull internal warning (main): did not free %d bytes of long memory (%d pieces) " |
693 |
> |
<< totlong << curlong << std::endl; |
694 |
> |
|
695 |
> |
|
696 |
> |
|
697 |
|
} |
698 |
|
|
699 |
|
|