public void Calc_Annulus_Params() //================================= { //....Flow reqd. GPM. Double pFlowReqd_gpm = mCurrent_Bearing_Radial_FP.PerformData.FlowReqd; //....Calculate AMin: Double pUp, pDown; pUp = 231 * pFlowReqd_gpm; pDown = 2 * mCount_MainOilSupply * 60 * 12 * 10; Double pAMin = 0.0F; if (pDown != 0.0F) { pAMin = pUp / pDown; } //....Calculate H: Double pH = 0.0F; if (mAnnulus.Ratio_Wid_Depth != 0.0F) { double pAny = 0.0F; pAny = (pAMin / mAnnulus.Ratio_Wid_Depth); if (pAny != 0.0F) { pH = (Double)Math.Sqrt(pAny); } } //....Diameter & Length: // if (pH != 0.0F) { mAnnulus.D = mCurrent_Bearing_Radial_FP.OD() - 2 * pH; mAnnulus.Wid = pH * mAnnulus.Ratio_Wid_Depth; } }
//------------- #region "Locations:" //------------------ //public Double Calc_Screw_Loc_Center() ////===================================== //{ // //....Commmon for RScrew & LScrew. // // // Double pDFit = mCurrent_Bearing_Radial_FP.OD(); // Double pD_CBore = mScrew.Hole.CBore.D; // Double pLoc = 0.5F * (pDFit - pD_CBore) - 0.1; // return modMain.MRound(pLoc, 0.05); //} // PB 22OCT18. BG, write a new method: Screw_Loc_Center_ULimit (see scanned docu for formula) public Double Screw_Loc_Center_ULimit() //===================================== { Double pResult = 0; Double pBearing_DFit = mCurrent_Bearing_Radial_FP.OD(); Double pScrew_CBore_D = mScrew.Hole.CBore.D; Double pScrew_CBore_Depth = mScrew.Hole.CBore.Depth; Double pScrew_D = mScrew.D(); Double pX1 = Math.Pow((pScrew_CBore_Depth + pScrew_CBore_D + 0.030), 2); Double pX2 = Math.Pow((0.5 * pBearing_DFit), 2); Double pX3 = Math.Sqrt(1 - (pX1 / pX2)); pResult = 0.5 * (pBearing_DFit * pX3 - pScrew_CBore_D); return(pResult); }