Программа расчета долговечности зубчатой передачи планетарной КПП буровой установки БУ 2500-ЭПБМ1
^include
// Программа расчета долговечности зубчатой передачи при спуско-подъемных
// операциях за цикл проводки скважины, на примере еттуско-подъем ного
// комплекса (СПК) буровой установки БУ 2500-ЭПБМ1
const int ARR=200;
int SIARRJ, SUM[ARR], LK[ARR], NJV[ARR], SSUM, JV;
double M. double Zzl, Zz2, Modul m, Venca bl, Venca_b2, XI, X2, Beta, Beta rad, Ra, f kE, btt, ht2, HOI, H02, HK1, HK2, Sigma_TI, Sigma_T2, SlG_HiHOOJ, alia t, al&Jw, Aw, alfaal, alfe_a2, eps_al, eps_a2, eps_alfe, Px, ens beta, eos eamma, beta b. ZV1. ZV2. Vzf 100). mi_H[IOO|. ZEZ. ZH. Z_eps, К A. delta H. «0. w HvflOO], Uz, F_beta,f_kZ. 10_kY, С^gam, f_pbl, f_pb2, SlG_HJiral, SlG_Hlim2, f_pbsum, Y_al, Y_a2, Y a, a_alfe, KH(I00], SIG_H01I00J, SHI, SH2, NHliml, N_Hlim2, ZNl, ZN2, NKi, NK2, ZR, ZL, ZXI, ZX2, ZW, Z_vW00J, Z v2riOO).SIG_HPiriOO].dlz.dal.d2z.da2.dbl.db2.SIG_HP2[IOO].SIG_HP(IOO].Z_HC. KHz. KHVzMOOL KHBz(lOO), KHAz(100], OMHVz, KHBOzf 100], KHWz[I00], CUDj, Nsat, Omega, FHt|200], MCEZ[I00], MCZliOOj, N_Cili00J, N_Hsum=0, N_C, Sunt Zl, Sum Z2, SIGHP, Sum 1=0, Sum2«0, ANZfARRj, N_Fsum=0, NFi(ARR);
// Расчет на контактную выносливость
double YFSI. YFS2. YJ*ta. Y_eps. w_Fv(100). FFtflOOJ. KFVzflOO). HZ. NF. KFBz[IOO). KFAzf 1001. KFflOOL SIG_Fi(100J, Yjgl, Y_i2, Y_dl, Y_d2, Y_A, Y_T1, Y__T2, SIG_Flim0l, SIG_Flim02, SIG_Fliml, SIG_Flim2, SiG_FPI, SIG_FP2, SF1, SF2, Ydelta, Y_rl, Y_r2, Y XI, Y_X2, SUM_Z=0, Qf, Z_FC, Y_ZI, Y_Z2, SZV=0, SZV_v. strine H.KPP.KK.KE.KV.IDI.ID2.ID3.1D4.ID5JD6: char BE180J--;
int ZB, ZK, LKMAX, NL, NU, J_massl300J;
int TEST_FLAG_TRUF.=0:
ofetream tout;
#derineCOUTfout
#deflne _getchf>
//ofetream mead te;
const int Max Bur= 1000;
ifstream vvod:
mt flag_parametr_b_absent=0;
int flag_wod_from_kbd=0; //1-е клавиатуры, 0 - из файла
int Init vvodf char * wod_name):
int GetlntParam( char * paramname);
double GeiDoubleParam( char * paramname);
void GetStrineParamf char * paramname. char * paramstring);
void Change Point ToZpt( char* fin, char* f_out);
void WriteFUeToZubO;
double Grad I oKadr double a) ( return e*3.1415926/180.:} double RadToGraoX double r) { return r* 180./3.1415926; j
double GradTMinFromGradf double grad) { double g • floorf grad X
double m - erad-c;
return g + (m*60.yi00; // gradus.minut
}
int ReadMassiveO:
int main(int argc, char* argv[])
{
//mead te.onenf "mead te.orn". ios::outlios::truncl:
fout.open( "tout.txt", ios::out?ios::trunc);
itf lnit_wod("wod_bu.txt"У=0 ) return 0; //I 111
int kbd=GetlntParamf "KBD"):
iff kbd!=0) flagwod from_kbd= I;
II = " «« Передаточные отношения и приведенные массы »»";
КРР= "— Коробка пеоелач — GetStringParam( "NAME", BE );
КЕ-" ZEI ZE2 IMBE IMDE KPDLE AN NE FE"; ZE[1] = GetlntParamf VEfl]"); ZE[2) = GetIntParam( *ZE[2]m); ZE13J = GetlntFaram( "Zbl3JM>; ZE?4] = GetlntParam? "ZF.?41"): ZE[5J - GetintParam( "ZE?5]"); ZE16J = GetlntParam( HZE[6J");
KPDLE= GetDoubleParamf "KPDLE"); KPDH - GetDoubleParam( "KPDH");
AND -GetDoubleParamf "AND"); NE « GetDoubleParamf "NE"); FE = GetDoubleParamf "FE"); ID1 = " LMAX H Lev HXC HCI"; IAWX= GetDoubleParamf "LMAX"): H = GetDoubleParamf "H"); Lev - GetDoubleParamf "Lev"); HXC - GetDoubleParamf HHXC"V. HC[ I GetDoubleParamf "HC[ I ]"); ID2«" HC4 PR PC QT GTC"; HC[4]= GetDoubleParamf "HC[4]"); PR = GetDoubleParamf "PR"); PC ? GetDoubleParamf "PC"); ОТ * GetDoubleParamf "ОТ"): GTC = GetDoubleParamf "GTC"); ID3-" M FT E AIH QKT"; M = GetDoubleParamf "M'V. 1D6-" P "; P = GetDoubleParamf "P">; NU = GetlntParamf "NIT); LU * GetDoubleParamf "LU");
OU ? GetDoubleParamf "ОІИ:
KV = " «« END OF INPUT ««";
// В Boa данных пои расчете зубьев на контактную выносливость //
Zzl - GetDoubleParamf "Zzl");
Zzl - GetDoubleParamf "Zzl");
Zz2 « GetDoubleParamf "Zz2"); Modulm = GetDoubleParamf "Modul m"); Venca bl - GetDoubleParamf "Venca b I Venca_b2 = GetDoubleParam( "Venca_b2"); XI - GetDoubleParam( "X1 "); X2 = GetDoubleParamf "X2"): Beta = GetDoubleParamf "Beta"); Ka - GetDoubleParam( "Ra"); f kE - GetDoubleParamf "f IcF"): ht I - GetDoubleParam( "ht I"); ht2 = GetDoubleParamf "ht2"); HOI = GetDoubleParamf "HOI"): H02 - GetDoubleParamf "H02"); HKI - GetDoubleParamf "HKI"); HK2 = GetDoubleParamf "HK2"): Sigma_Tl = GetDoubleParamf "Sigma_TI"); Sigma T2 = GetDoubleParamf "Sigma_T2"); ZEZ = GetDoubleParamf "ZEZ"V. KA = GetDoubleParamf "KA"); delta_H * GetDoubleParamf "delta_H"); gO - GetDoubleParamf "gO"): Fbeta = GetDoubleParamf "Fbeta"); f_pbl -GetDoubleParamfnf_pbl"); f_pb2 = GetDoubleParamf Hf_pb2"): aalia - GetDoubleParamf "aalm"); SHI - GetDoubleParamf "SHI"); SH2 = GetDoubleParamf "SH2"): ZR = GetDoubleParamf "ZR"); ZL - GetDoubleParamf "ZL"); ZXI = GetDoubleParamf "ZX1"): ZX2 = GetDoubleParamf "ZX2"); ZW - GetDoubleParamf "ZW"); Nsat = GetDoubleParamf "Nsat"): Omega ~ GetDoubleParamf "Omega");
NZ - GetDoubleParamf "NZ");
delta _F = GetDoubleParamf "deltaF");
Y_eps - GetDoubleParamf "Y eps");
Y_gl - GetDoubleParamf "Y_gl"); Y_g2 - GetDoubleParamf "Y_«2"V. Y dl - GetDoubleParamf "Y_dl"); Y_d2 - GetDoubleParamf "Y_d2");
Y_ZI - GetDoubleParamf "Y_Z1"V. Y_Z2 - GetDoubleParamf "Y Z2");
Y_A - GetDoubleParamf "Y_A");
SIG_Flim01 - GetDoubleParamf "SK3_FlimOI">;
SIG_Flim02 = GetDoubleParamf "SIG_Flim02");
SF1 - GetDoubleParamf "SFI");
SF2 = GetDoubleParamf "SF2"V.
Y_rl - GetDoubleParamf *Y_rl");
Y_r2 = GetDoubleParamf "Y_r2");
Of = GetDoubleParamf "OF): wod.closef);
iff flae parametris absent) return 0:
// Расчет параметров кривой проходки и числа свечеподьемов за цикл
// бурения скважины
GCV - Lev ? ОТ: LKMAX - ?ntf LMAX/Lcv ); NL = LKMAX+i; int J. {
SfNJ - intf I + LMAX / H * f I. - powf fLcv*N/LMAX).(I./M)) )):
і
SUMUJ=SUJ; for fN=2; N<=LKMAX: N++)
{
SUMIN] = SUMIN-1J + SIN]; }
SSUM = SfNJ- SUMfLKMAXJ;
// Расчет числа витков талевого каната в олном слое навивки
// на баоабан
int L2 - int< LB /(DK+0.002) );
for (K=l; K<=3; K=K-H) ?RB(KJ - (DB + DK +1.70 *(K-l)*DK)/2.;} RBR = (RBFI ) + RB[2] + RB[3J) / 3:
// Расчет передаточных отношений между валами подъемного агрегата double UE;
UE = ?oub\e(7E[6]) / 7Е[5]: for(J=l; J<=2; J=J-H)
{
UrJl = ZE[2*J3/ZE[2^l]: ULEiJJ = UE ? UUJ;
)
fl Расчет нагрузки на крюке и КПД талевой системы LU - NU*Lcv;
double KPDO = KPDH *П -pow?KPDH.UTC» /(UTC4I-KPDH»V. for(N-l;N<=NL;N-M-)
{
if(N<=NU) OKfNl = OU*l>cv*N:
else QK[NJ = QU*LU + (N-NU)*Lcv*QT; if(N=NL)QKlNJ=0.; QC[N] = ГОКГЬП» (1-PR/PC + FT> + GTQ / 1000.:
doublet = I/KPDO + (O.W^GCV*(NfL-l>+P+GTC)y(QK[N]fGTC>-0.04; KPDTCINJ = \ft,
KPDtr-KPDLE/0.97: KP?SUMINJ = KPDTCINJ» KPDLE;
>
Еще по теме Программа расчета долговечности зубчатой передачи планетарной КПП буровой установки БУ 2500-ЭПБМ1:
- 3.3. Расчет долговечности (ресурса) зубчатой передачи привода лебедки буровой установки БУ 2500-ЭПБМ1 на изгиб
- 3.2 Расчет долговечности (ресурса) зубчатой передачи привода лебедки буровой установки БУ 2500-ЭПБМ1 на контактную выносливость
- Расчет долговечности (ресурса) зубчатой передачи привода лебедки буровой установки БУ 2500-ЭПБМ1 на контактную выносливость
- 3. Определения долговечности (ресурса) планетарной коробки перемены передач 3.1. Оценка долговечности (ресурса) зубчатой передачи
- 2.5.4. Силовой привод лебедки буровой установки БУ 2500-ЭУ
- 2.5.1. Силовой привод лебедки буровой установки БУ 2500-ДГУ
- 2.5.5. Силовой привод лебедки буровой установки БУ 2500-ЭП
- 2.5.2. Оценка затрат машинного времени и энергозатрат при подъеме бурильной колонны за цикл проводки скважины буровой установкой БУ 2500-ДГУ
- 2.6.3. Оптимизация режима работы КПП при СПО в приводе БУ 2500-ДГУ
- Программы расчета энергозатрат и затрат машинного времени при спус-ко-подъемных операциях за цикл проводки скважины, на примере спуско-подъемного комплекса (СИК) буровых установок различных типов
- 3.4. Влияние аварийных подъемов на ресурс зубчатой передачи
- 2.6.5. Влияние типа привода буровой установки на энергетические затраты при СПО
- Ввод исходных данных для расчета производительности буровых установок различного типа
- 2.6. Анализ затрат машинного времени и энергозатрат при подъеме бурильной колонны в процессе проводки скважины буровыми установками с различными типами привода подъемного комплекса
- Вывод результатов расчета энергозатрат и затрат машинного времени буровых установок различных типов
- 2.2 Методика расчета забойного давления в условиях поступления газа в циркулирующий буровой раствор.
- 1.2 Сушка в установках барабанного типа и типичная сушильная установка (устройство, принцип действия).
- § 1. Общие положения о расчетах Статья 861. Наличные и безналичные расчеты
- 1.3. Анализ методов определения долговечности (ресурса) несущих элементов механических систем
- § 5. Расчеты чеками Статья 877. Общие положения о расчетах чеками