Курсовая работа: Механизм поперечно-долбежного станка

Dim el As Double

Dim fl As Double

Dim f2 As Double

Dim vc(l To 12) As Double

Dim ac(l To 12) As Double

Dim u31 As Double

Dim u311 As Double

Dim u43 As Double

Dim u431 As Double

Dim u531 As Double

Dim u53 As Double

Dim i, n As Integer

= 0,12

=0.058 131 =0.176 1311=0.205

= 0.355

= 0.15 wl=17.5 e1= 0

f 1 = 30

f3=85

n= 12

For i = 1 To n

u31 =(l1^2 + 10*11 *Sin(fl))/(l1 л2 + l0л2 + 2* 10*11 *Sin(fl))

u311 =( 10* 11 *Cos(fl)*(I0^2+ll^2+2*I0*l1*sin(fl))-

2*10*1 l*cos(fl)*(l1^2+I0*l1*sin(fI)/(l1^2+I0^2+2*I0*l1*sin(fl))^2

u431 = (-l3l1 * Sin(f3)*l4*cos(f4) -l3l1 *cos(f3) * l4 * Sin(f4)) / l4^2* cos(f3)^2

u43=I3 l1 *cos(f3)/l4*cos(f4)

w3 = wl *u31

e3=wl ^2*u3ll +el* u31

w4 = u43 * w3

Sin(f4)=(13l1 *Sin(f3)-l5)/l4