Rutina Engranaje

Anexo 1 Algoritmo de creación y exportación de perfiles, código Mathematica7
// INTRODUCIR 9$/25(6 '( &216758&&,21 '( /$ 58('$ '(17$'$ Z, c, ha, m, a, b, x, rf // CALCULAR k, hr, rp, inv ha, inv hr, ', Xat, Xrt, rba, rbr, rea, rec, roa, ror, maxa, maxr, rta, rtr, invXa, invXr // DEFINIR FUNCIONES PARA0(TRICAS POLARES DE LA TROCOIDE Y EVOLVENTE PARA LOS LADOS DE ATAQUE Y RESPALDO, usando lasecuaciones (2.12), (2.14),(2.27) y (2.28) // ENCONTRAR VALORES To Y o, EN INTERSECCION DE LAS FUNCIONES PARAMETRICAS POLARES DE LA TROCOIDE Y EVOLVENTE PARA LOS LADOS DE DIENTE // RESPALDO {Revr[Ti]mRtrr[Mi],Eevr[Ti]mEtrr[Mi]} Tor Ti Mor Mi // ATAQUE {Reva[Ti]mRtra[Mi],Eeva[Ti]mEtra[Mi]} Toa Ti Moa Mi //PARTICIONAR FUNCIONES PARA EXPORTACION //(*** LINEA RESPALDO ***************) //DEFINIR FUNCIONESPARAMETRICAS CARTESIANAS Xlinr[x_]:=x Ylinr[x_]:=Sin[Etrr[Pi/2]+ 2 Pi]/Cos[Etrr[Pi/2]+2 Pi]*x //PARTICIONAR FUNCION LINEA RESPALDO //DEFINIR PASO DE PHI, calcular puntos de partición, guardar data i=0 inx=Rtrr[Pi/2] Cos[Etrr[Pi/2]+ 2 Pi] Hacer para ix = 0 hasta Rtrr[Pi/2] Cos[Etrr[Pi/2]+ 2 Pi], con paso inx xlinr=Xlinr[ix] arrXlinr[i]=xlinr ylinr= Ylinr[ix] arrYlinr[i]=ylinr imax=i i++ Fin Hacer// crear tabla DATA

A1

XLinr=Table[arrXlinr[i],{i,1,imax}] YLinr=Table[arrYlinr[i],{i,1,imax}] //(***TROCOIDE RESPALDO*****************) //DEFINIR FUNCIONES PARAMETRICAS CARTESIANAS, según Xtrr[M_] := Rtrr[M]*Cos[Etrr[M]] Ytrr[M_] := Rtrr[M]*Sin[Etrr[M]] //PARTICIONAR FUNCIONES TROCOIDE RESPALDO //DEFINIR paso incremental ni, PASO DE PHI, inicio contador i, calcular puntos de partición,guardar data ni = entero i=1; inM=(MRr-Pi/2)/ni Hacer para iM = Pi/2 hasta Mor, con paso inM xtd=Xtrr[iM] arrXtrr[i]=xtr ytd= Ytrr[iM] arrYtrr[i]=ytr imax=i i++ Fin Hacer // crear tabla DATA XTrr=Table[arrXtrr[i],{i,1,imax}] YTrr=Table[arrYtrr[i],{i,1,imax}] // ENCONTRAR EXPORTAR PENDIENTES INICIAL Y FINAL RESPALDO deltaXi=-D[Xtrr[M],M] /.M!Pi/2 deltaXf=-D[Xtrr[M],M] /.M!MRr deltaYi=-D[Ytrr[M],M]/.M!Pi/2 deltaYf=-D[Ytrr[M],M] /.M->Mor deltaTrr={deltaXi,deltaYi,deltaXf,deltaYf}//TableForm //(*EVOLVENTE RESPALDO **************) //DEFINIR FUNCIONES PARAMETRICAS CARTESIANAS Xevr[T_]:=Revr[T] Cos[Eevr[T]] Yevr[T_]:=Revr[T] Sin[Eevr[T]] //PARTICIONAR FUNCIONES EVOLVENTE RESPALDO //DEFINIR paso incremental ni, PASO DE PHI, inicio contador i, calcular puntos de partición, guardar data ni= enteroi=1 inT=(Tmaxr-T0r)/ni

A2

Hacer para iT TRr hasta Tmaxr, con paso inT xer=Xevr[iT] arrXevr[i]=xer yed= Yevr[iT] arrYevr[i]=yer imax=i i++ Fin Hacer // crear tabla DATA XEvr=Table[arrXevr[i],{i,1,imax}] YEvr=Table[arrYevr[i],{i,1,imax}]; // ENCONTRAR PENDIENTES INICIAL Y FINAL RESPALDO deltaXi=D[Xevr[T],T] /.T!TRr deltaXf=D[Xevr[T],T] /.T!Tmaxr deltaYi=D[Yevr[T],T] /.T!TRrdeltaYf=D[Yevr[T],T] /.T->Tmaxr deltaEvr={deltaXi,deltaYi,deltaXf,deltaYf}//TableForm // EXPORTAR DATA Export["XLinr.dat",xLinr] Export["YLinr.dat",YLinr] Export["XTrr.dat",XTrr] Export["YTrr.dat",YTrr] Export["deltaTrr.dat",deltaTrr] Export["XEvr.dat",XEvr] Export["YEvr.dat",XEvr] Export["deltaEvr.dat",deltaEvr] Export["XPta.dat",XPta] Export["YPta.dat",YPta] Export["deltaPta.dat",deltaPta]Export["YEva.dat",YEva] Export["XEva.dat",XEva] Export["deltaEva.dat",deltaEva] Export["XTra.dat",XTra] Export["YTra.dat",YTra] Export["deltaTra.dat",deltaTra] Export["XLina.dat",XLina] Export["YLina.dat",XLina]

A3

Anexo 2 Subrutina Carga(), código VBA

Sub Carga() Open "C:\Users\jc\Documents\Xtrr.dat" For Input As #1 ' Abre el archivo. i=1 Do While Not EOF(1) ' Repite el bucle hasta el final del archivo.Line Input #1, LíneaTexto ' Lee el carácter en la variable. X(i, j) = Val(LíneaTexto) imax2 = i i=i+1 Loop Close #1 ' Cierra el archivo. Open "C:\Users\jc\Documents\Ytrr.dat" For Input As #1 ' Abre el archivo. i=1 Do While Not EOF(1) ' Repite el bucle hasta el final del archivo. Line Input #1, LíneaTexto ' Lee el carácter en la variable. Y(i, j) = Val(LíneaTexto) i=i+1 Loop Close #1 ' Cierra el...