public Double Calc_AngStart()
//===========================
{
//....This calculation is based on the assumption of the symmetry of the drain holes array about
//........the Casing S/L vertical.
//
//........This depends on the AngBet, D_Desig (which in turns triggers Calc_Count) & Anti-Rotation Pin Ang.
//Store relevant parameters from Bearing_Radial_FP object in local variables.
//---------------------------------------------------------------------------
//
//....Anti Rotation Pin Location w.r.t. Bearing Datums:
clsBearing_Radial_FP.clsAntiRotPin.eLoc_Bearing_SL pAntiRotPinLoc_BS =
((clsBearing_Radial_FP)mCurrent_Seal.mCurrentProduct.Bearing).AntiRotPin.Loc_Bearing_SL;
clsBearing_Radial_FP.clsAntiRotPin.eLoc_Bearing_Vert pAntiRotPinLoc_BV =
((clsBearing_Radial_FP)mCurrent_Seal.mCurrentProduct.Bearing).AntiRotPin.Loc_Bearing_Vert;
//....Anti Rotation Pin Angle w.r.t Bearing S.L.
Double pAntiRot_Pin_Loc_Ang = ((clsBearing_Radial_FP)mCurrent_Seal.mCurrentProduct.Bearing).AntiRotPin.Loc_Angle;
//Determine Angle Start w.r.t Casing S/L:
//-----------------------------------------
//
//...w.r.t Casing Vertical.
//........Valid for either even or odd value of the "Count".
Double pAngStart_Casing_Vert = (0.5 * (Calc_Count() - 1)) * mAngBet;
//...w.r.t Casing SplitLine.
Double pAngStart_Casing_SL = 90 - pAngStart_Casing_Vert;
//Convert Angle Start w.r.t Bearing S/L:
//-------------------------------------
Double pAng = 0;
if ((pAntiRotPinLoc_BS == clsBearing_Radial_FP.clsAntiRotPin.eLoc_Bearing_SL.Top &&
pAntiRotPinLoc_BV == clsBearing_Radial_FP.clsAntiRotPin.eLoc_Bearing_Vert.L)
||
(pAntiRotPinLoc_BS == clsBearing_Radial_FP.clsAntiRotPin.eLoc_Bearing_SL.Bottom &&
pAntiRotPinLoc_BV == clsBearing_Radial_FP.clsAntiRotPin.eLoc_Bearing_Vert.R))
{
pAng = pAntiRot_Pin_Loc_Ang + pAngStart_Casing_SL;
}
else if ((pAntiRotPinLoc_BS == clsBearing_Radial_FP.clsAntiRotPin.eLoc_Bearing_SL.Bottom &&
pAntiRotPinLoc_BV == clsBearing_Radial_FP.clsAntiRotPin.eLoc_Bearing_Vert.L)
||
(pAntiRotPinLoc_BS == clsBearing_Radial_FP.clsAntiRotPin.eLoc_Bearing_SL.Top &&
pAntiRotPinLoc_BV == clsBearing_Radial_FP.clsAntiRotPin.eLoc_Bearing_Vert.R))
{
pAng = -pAntiRot_Pin_Loc_Ang + pAngStart_Casing_SL;
}
return(pAng);
}
public Double AngBet_ULim_Sym()
//============================
{
//....This routine is valid when the drain holes are symmetric about the Casing S/L vertical
//........when Ang_Start is a dependent parameter.
//Store relevant parameters from Bearing_Radial_FP object in local variables.
//---------------------------------------------------------------------------
//
//....Anti Rotation Pin Location w.r.t. Bearing Datums:
clsBearing_Radial_FP.clsAntiRotPin.eLoc_Bearing_SL pPinLoc_BS =
((clsBearing_Radial_FP)mCurrent_Seal.mCurrentProduct.Bearing).AntiRotPin.Loc_Bearing_SL;
clsBearing_Radial_FP.clsAntiRotPin.eLoc_Bearing_Vert pPinLoc_BV =
((clsBearing_Radial_FP)mCurrent_Seal.mCurrentProduct.Bearing).AntiRotPin.Loc_Bearing_Vert;
//....Anti Rotation Pin Angle w.r.t Bearing S.L.
Double pPinLoc_Ang = ((clsBearing_Radial_FP)mCurrent_Seal.mCurrentProduct.Bearing).AntiRotPin.Loc_Angle;
//....Drain hole Angle upper limit in degree.
Double pAng_Bet_ULim = 0.0F;
int pCount = Calc_Count();
if (pCount > 1)
{
if ((pPinLoc_BS == clsBearing_Radial_FP.clsAntiRotPin.eLoc_Bearing_SL.Top &&
pPinLoc_BV == clsBearing_Radial_FP.clsAntiRotPin.eLoc_Bearing_Vert.L)
||
(pPinLoc_BS == clsBearing_Radial_FP.clsAntiRotPin.eLoc_Bearing_SL.Bottom &&
pPinLoc_BV == clsBearing_Radial_FP.clsAntiRotPin.eLoc_Bearing_Vert.R))
{
//------------------------------------------------------------------------------
pAng_Bet_ULim = (2 * (90 - pPinLoc_Ang) / (pCount - 1));
}
else if ((pPinLoc_BS == clsBearing_Radial_FP.clsAntiRotPin.eLoc_Bearing_SL.Bottom &&
pPinLoc_BV == clsBearing_Radial_FP.clsAntiRotPin.eLoc_Bearing_Vert.L)
||
(pPinLoc_BS == clsBearing_Radial_FP.clsAntiRotPin.eLoc_Bearing_SL.Top &&
pPinLoc_BV == clsBearing_Radial_FP.clsAntiRotPin.eLoc_Bearing_Vert.R))
{
//------------------------------------------------------------------------------
pAng_Bet_ULim = (2 * (90 + pPinLoc_Ang)) / (pCount - 1);
}
}
return(pAng_Bet_ULim);
}
