Курсовая работа: Механизм насоса с качающейся кулисой

a1 = E / R

a2 = E / R0

arksin1 = Atn(a1 / (1 - a1 ^ 2) ^ (1 / 2))

arksin2 = Atn(a1 / (1 - a2 ^ 2) ^ (1 / 2))

BETTA = FII + arksin1 - arksin2

BETTA = BETTA * 180 / 3.1415

Worksheets(1).Cells(I, 1) = R

Worksheets(1).Cells(I, 2) = BETTA

FII = FII + SHAG

Next I

End Sub

Список использованных источников

1. Машков А.А. Теория механизмов и машин. Мн., 1971.

2. Артоболевский И.И. Теория механизмов и машин. М., 1975.

3. Фролов К.В., Попов С.А., Мусатов А.К. и др. Теория механизмов и машин под ред. К.В. Фролова М., 1986.

4. Попов С.А., Тимофеев Г.А. Курсовое проектирование по теории механизмов и механике машин. М., 1998.