'calculo de velocidad angularCALESFUERZOSCONTACTO.TextBox1.Value = Round((ENG.txtn1.Value) * 2 * pi / 60, 3)CALESFUERZOSCONTACTO.TextBox16.Value = Round((CALDIMENSIONES.TextBox21.Value) * 2 * pi / 60, 3)'calculo de torqueCALESFUERZOSCONTACTO.TextBox2.Value = Round((ENG.txtp.Value) * 1000 / CALESFUERZOSCONTACTO.TextBox1.Value, 3)CALESFUERZOSCONTACTO.TextBox17.Value = Round((ENG.txtp.Value) * 1000 / CALESFUERZOSCONTACTO.TextBox16.Value, 3)'calculo de fuerza tangencialCALESFUERZOSCONTACTO.TextBox3.Value = Round((2 * CALESFUERZOSCONTACTO.TextBox2.Value / ((CALDIMENSIONES.TextBox15.Value) * 0.001)), 3)CALESFUERZOSCONTACTO.TextBox18.Value = Round((2 * CALESFUERZOSCONTACTO.TextBox17.Value / ((CALDIMENSIONES.TextBox35.Value) * 0.001)), 3)'calculo de fuerza radialCALESFUERZOSCONTACTO.TextBox4.Value = Round((CALESFUERZOSCONTACTO.TextBox3.Value) * Tan((ENGRECTOS.TextBox2.Value) * pi / 180), 3)CALESFUERZOSCONTACTO.TextBox19.Value = Round((CALESFUERZOSCONTACTO.TextBox18.Value) * Tan((ENGRECTOS.TextBox2.Value) * pi / 180), 3)'calculo de fuerza normalCALESFUERZOSCONTACTO.TextBox5.Value = Round(Sqr(Val((CALESFUERZOSCONTACTO.TextBox3.Value) ^ 2) + Val((CALESFUERZOSCONTACTO.TextBox4.Value) ^ 2)), 3)CALESFUERZOSCONTACTO.TextBox20.Value = Round(Sqr(Val((CALESFUERZOSCONTACTO.TextBox18.Value) ^ 2) + Val((CALESFUERZOSCONTACTO.TextBox19.Value) ^ 2)), 3)'calculo de factor de zonaBn = Sin(0) * Cos(ENGRECTOS.TextBox2.Value * pi / 180)Bb = (Val(Atn((-Bn) / Sqr(Val((-Bn) * Bn) + 1)))) * (180 / pi)z1 = 2 * Cos(Bb * pi / 180) * Cos(ENGRECTOS.TextBox2.Value * pi / 180)z2 = Sin(ENGRECTOS.TextBox2.Value * pi / 180) * ((Cos(ENGRECTOS.TextBox2.Value * pi / 180)) ^ 2)CALESFUERZOSCONTACTO.TextBox6.Value = Sqr(z1 / z2)CALESFUERZOSCONTACTO.TextBox21.Value = Sqr(z1 / z2)'factor de elasticidadCALESFUERZOSCONTACTO.TextBox7.Value = 189.812CALESFUERZOSCONTACTO.TextBox22.Value = 189.812'factor de recubrimientoCALESFUERZOSCONTACTO.TextBox8.Value = Sqr((4 - (CALDIMENSIONES.TextBox20.Value)) / 3)CALESFUERZOSCONTACTO.TextBox23.Value = Sqr((4 - (CALDIMENSIONES.TextBox40.Value)) / 3)'factor de angulo de heliceCALESFUERZOSCONTACTO.TextBox9.Value = 1 / (Sqr(Cos(0)))CALESFUERZOSCONTACTO.TextBox24.Value = 1 / (Sqr(Cos(0)))'factor de contacto unicoB1 = (Sqr(((CALDIMENSIONES.TextBox16.Value) ^ 2 / (CALDIMENSIONES.TextBox14.Value) ^ 2) - 1)) - (2 * pi / CALDIMENSIONES.TextBox11.Value)B2 = (Sqr(((CALDIMENSIONES.TextBox36.Value) ^ 2 / (CALDIMENSIONES.TextBox34.Value) ^ 2) - 1)) - (2 * pi / CALDIMENSIONES.TextBox31.Value) * (CALDIMENSIONES.TextBox20.Value - 1)D1 = (Sqr(((CALDIMENSIONES.TextBox36.Value) ^ 2 / (CALDIMENSIONES.TextBox34.Value) ^ 2) - 1)) - (2 * pi / CALDIMENSIONES.TextBox31.Value)D2 = (Sqr(((CALDIMENSIONES.TextBox16.Value) ^ 2 / (CALDIMENSIONES.TextBox14.Value) ^ 2) - 1)) - (2 * pi / CALDIMENSIONES.TextBox11.Value) * (CALDIMENSIONES.TextBox20.Value - 1)M1 = (Tan(ENGRECTOS.TextBox2.Value * pi / 180)) / (Sqr(B1 * B2))M2 = (Tan(ENGRECTOS.TextBox2.Value * pi / 180)) / (Sqr(D1 * D2))If M1 1 Then CALESFUERZOSCONTACTO.TextBox10.Value = M1End IfIf M2 1 Then CALESFUERZOSCONTACTO.TextBox25.Value = M2End If'factor de aplicacionCALESFUERZOSCONTACTO.TextBox11.Value = ENG.txtKA.ValueCALESFUERZOSCONTACTO.TextBox26.Value = ENG.txtKA.Value'factor dinamicov = (CALESFUERZOSCONTACTO.TextBox1.Value) * (0.5 * CALDIMENSIONES.TextBox15.Value * 0.001)KAF = (CALESFUERZOSCONTACTO.TextBox11.Value * CALESFUERZOSCONTACTO.TextBox3.Value / CALDIMENSIONES.TextBox17.Value)u2 = (CALDIMENSIONES.TextBox10.Value) ^ 2vzu = (v * CALDIMENSIONES.TextBox11.Value / 100) * (Sqr(u2 / (1 + u2)))If vzu 0.2 Then K3 = ((-0.357) * vzu) + 2.071End IfIf KAF 100 Then KAFB = KAFEnd IfCALESFUERZOSCONTACTO.TextBox12.Value = 1 + ((14.9 / KAFB) + 0.0193) * (vzu) * K3CALESFUERZOSCONTACTO.TextBox27.Value = 1 + ((14.9 / KAFB) + 0.0193) * (vzu) * K3'factor de carga en el flancoxb = 0.365fm = (ENG.txtKA.Value * CALESFUERZOSCONTACTO.TextBox12.Value * CALESFUERZOSCONTACTO.TextBox3.Value)fsh = (fm * 0.023 / CALDIMENSIONES.TextBox17.Value) * (1 + 0.7 + 0.3) * ((CALDIMENSIONES.TextBox17.Value / CALDIMENSIONES.TextBox15.Value) ^ 2)fma = 15fbx = (1.33 * 1 * fsh) + (1 * fma)fby = fbx * xbC1 = 0.04723C2 = 0.15551 / CALDIMENSIONES.TextBox11.ValueC3 = 0.25791 / CALDIMENSIONES.TextBox31.ValueC4 = (-0.00635 * CALDIMENSIONES.TextBox2.Value)C5 = (-0.11654 * CALDIMENSIONES.TextBox2.Value / CALDIMENSIONES.TextBox11.Value)C6 = (-0.00193 * CALDIMENSIONES.TextBox22.Value)C7 = (-0.24188 * CALDIMENSIONES.TextBox22.Value / CALDIMENSIONES.TextBox31.Value)C8 = (0.00529 * (CALDIMENSIONES.TextBox2.Value) ^ 2)C9 = (0.00182 * (CALDIMENSIONES.TextBox22.Value) ^ 2)q = C1 + C2 + C3 + C4 + C5 + C6 + C7 + C8 + C9CM = 0.8CR = 1CB = (1 + 0.5 * (1.25 - (CALDIMENSIONES.TextBox4.Value / ENGRECTOS.Cbxm.Value)))C = (CM * CR * CB * Cos(0)) / qcya = C * ((0.75 * CALDIMENSIONES.TextBox20.Value) + 0.25)cyb = 0.85 * cyabcalb = Sqr((2 * fm / CALDIMENSIONES.TextBox17.Value) / (fby * cyb))If bcalb 1 Then CALESFUERZOSCONTACTO.TextBox13.Value = 1 + ((fby * cyb) / (2 * fm / CALDIMENSIONES.TextBox17.Value))End Ifxb2 = 0.365fm2 = (ENG.txtKA.Value * CALESFUERZOSCONTACTO.TextBox12.Value * CALESFUERZOSCONTACTO.TextBox3.Value)fsh2 = (fm * 0.023 / CALDIMENSIONES.TextBox17.Value) * (1 + 0.7 + 0.3) * ((CALDIMENSIONES.TextBox17.Value / CALDIMENSIONES.TextBox35.Value) ^ 2)fma2 = 14fbx2 = (1.33 * 1 * fsh2) + (1 * fma)fby2 = fbx2 * xbbcalb2 = Sqr((2 * fm / CALDIMENSIONES.TextBox17.Value) / (fby2 * cyb))If bcalb2 1 Then CALESFUERZOSCONTACTO.TextBox28.Value = 1 + ((fby2 * cyb) / (2 * fm / CALDIMENSIONES.TextBox17.Value))End If CALESFUERZOSCONTACTO.ShowEnd Sub