OilfieldToolsNet/ResInsight
4
0
Fork 0
mirror of https://github.com/OPM/ResInsight.git synced 2025-02-25 18:55:39 -06:00
Code Issues Packages Projects Releases Wiki Activity

#2527 Mohr circle: Make friction-cohesion line for negative principals

Browse Source
This commit is contained in:
Rebecca Cox 2018-02-26 12:51:25 +01:00
parent 23ab74c34d
commit f7ba9133fe
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ApplicationCode/UserInterface/RiuMohrsCirclePlot.cpp
View File

@ -263,14 +263,15 @@ void RiuMohrsCirclePlot::redrawEnvelope()
double x = m_cohesion/tanFrictionAngle;
if (m_principal1 < 0)
{
xVals.push_back(-x);
xVals.push_back(x);
xVals.push_back(m_principal3*1.1);
}
else
{
xVals.push_back(x);
xVals.push_back(-x);
xVals.push_back(m_principal1*1.1);
}
xVals.push_back(m_principal1*1.1);
yVals.push_back(0);
yVals.push_back((x + cvf::Math::abs(m_principal1) * 1.1) * tanFrictionAngle);