<<
>>

Программа расчета долговечности зубчатой передачи планетарной КПП буровой установки БУ 2500-ЭПБМ1

tfinchlH*

^include ^include "include ftinclude ^include "include <«tr?tr?a h>

// Программа расчета долговечности зубчатой передачи при спуско-подъемных // операциях за цикл проводки скважины, на примере еттуско-подъем ного // комплекса (СПК) буровой установки БУ 2500-ЭПБМ1

const int ARR=200;

int SIARRJ, SUM[ARR], LK[ARR], NJV[ARR], SSUM, JV;

double M.

LMAX. LB. MNOM. MMAX. 1Д2+1}. RBr4-f-lj. HCT4+1J. CVE(ARR]. COEfARRl. KPDSUM(ARR|. KPDtr,QK[ARRJ, QCIARRJ. ZE[6+I], ULE[2+I], KPDTQARR], KPDLE, NE, VUE[ARRJ, AND, FE, H. Lev, HXC, PR, PC, QT, GTC, FT, E, A1H, QKT, DH, ГЖ, DB, UTC, ЕР, P, GCV, KPDH, AN, QU, LU, RBR; // Расчет зубьев на контактную выносливость

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.

delta_F. SlG_H0Z. SIG^HiZ. FHtZ. N_CiZ. SumZ=0. MCQZ, KHzZ. NZ. AZUB. Vz_Z. w_HvZ. nu_HZ, KHVz_Z, KHB0z_Z, KHWz Z, KHBzJZ; typedef char * string;

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.

FT = GetDoubleParamf "FT"); E - GetDoubleParamf "E"); AIH = GetDoubleParamf "AIH"V. QKT = GetDoubleParamf "QKT*); ID4 = " DH DK DB LB UTC"; DH = GetDoubleParamf "DH"); DK ? GetDoubleParamf "DK"); DB - GetDoubleParamf "DB"); LB - GetDoubleParamf "LB"): UTC - GetDoubleParamf "UTC");

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.

К. N - 0: «or (N-1 ; N<=LKMAX; N-M-)

{

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;

>

<< | >>
Источник: ЖАБАГИЕВ АСЛАН МУХАМЕДИЯРОВИЧ. РАЗРАБОТКА РАСЧЕТНЫХ МЕТОДОВ ОЦЕНКИ КАЧЕСТВА СПУСКО-ПОДЪЕМНОГО КОМПЛЕКСА БУРОВЫХ УСТАНОВОК / Диссертация. 2002

Еще по теме Программа расчета долговечности зубчатой передачи планетарной КПП буровой установки БУ 2500-ЭПБМ1:

  1. 3.3. Расчет долговечности (ресурса) зубчатой передачи привода лебедки буровой установки БУ 2500-ЭПБМ1 на изгиб
  2. 3.2 Расчет долговечности (ресурса) зубчатой передачи привода лебедки буровой установки БУ 2500-ЭПБМ1 на контактную выносливость
  3. Расчет долговечности (ресурса) зубчатой передачи привода лебедки буровой установки БУ 2500-ЭПБМ1 на контактную выносливость
  4. 3. Определения долговечности (ресурса) планетарной коробки перемены передач 3.1. Оценка долговечности (ресурса) зубчатой передачи
  5. 2.5.4. Силовой привод лебедки буровой установки БУ 2500-ЭУ
  6. 2.5.1. Силовой привод лебедки буровой установки БУ 2500-ДГУ
  7. 2.5.5. Силовой привод лебедки буровой установки БУ 2500-ЭП
  8. 2.5.2. Оценка затрат машинного времени и энергозатрат при подъеме бурильной колонны за цикл проводки скважины буровой установкой БУ 2500-ДГУ
  9. 2.6.3. Оптимизация режима работы КПП при СПО в приводе БУ 2500-ДГУ
  10. Программы расчета энергозатрат и затрат машинного времени при спус-ко-подъемных операциях за цикл проводки скважины, на примере спуско-подъемного комплекса (СИК) буровых установок различных типов
  11. 3.4. Влияние аварийных подъемов на ресурс зубчатой передачи
  12. 2.6.5. Влияние типа привода буровой установки на энергетические затраты при СПО
  13. Ввод исходных данных для расчета производительности буровых установок различного типа
  14. 2.6. Анализ затрат машинного времени и энергозатрат при подъеме бурильной колонны в процессе проводки скважины буровыми установками с различными типами привода подъемного комплекса
  15. Вывод результатов расчета энергозатрат и затрат машинного времени буровых установок различных типов
  16. 2.2 Методика расчета забойного давления в условиях поступления газа в циркулирующий буровой раствор.
  17. 1.2 Сушка в установках барабанного типа и типичная сушильная установка (устройство, принцип действия).
  18. § 1. Общие положения о расчетах Статья 861. Наличные и безналичные расчеты
  19. 1.3. Анализ методов определения долговечности (ресурса) несущих элементов механических систем
  20. § 5. Расчеты чеками Статья 877. Общие положения о расчетах чеками