Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Моделирование подушек

Определить критическую частоту вращения барабана для различных диаметров, если диаметр барабана изменяетя от 0.5 до 1.5 с шагом 0.1. Число оборотов увеличивается от 1 об\мин с шагом 0.2 об\мин. Барабан вращается равномерно.

мм

Машина работает, когда G>C:

;

;

;

;

.

Тогда конечная формула примет вид:

.

Решение:

Sub melnica()

Dim D As Double

Dim n, nmax As Double, str1, str2 As String

str1 = " "

str2 = " "

Const g = 9.81

Const P1 = 3.14

n = 1

For D = 0.5 To 1.5 Step 0.1

str1 = str1 & " & D= " & D & "мм"

nmax = (30 / P1) * Sqr(2 * g / D)

str2 = str2 & "Nkr=" & Format(nmax, "0.0") & "об/мин"

Next

MsgBox " при " & str1 & Chr(13) & " " & str2 & " "

End Sub

Список использованной литературы:

1.”Моделирование систем” Советов Б.Я.

Моделирование подушек

1. На виде Top создается Box с параметрами (300, 300, 100), количество сегментов (10, 10, 1). Для того, чтобы была видна сегментация в окне перспективного вида, можно включить отображение ребер нажав F4 (рис.1).

Рис.1

Рис. 2

2. Построенный бокс необходимо преобразовать в Edit Poly. Выбрать подобъект Vertex и на виде Top выделить все вершины по периметру (рис. 2).

3. Инструментом масштабирования Select&Scale на виде Front промасштабируйте выбранные точки по оси Y таким образом, чтобы они совместились в одну плоскость. Затем не снимая выделения следует спаять вершины командой Weld в свитке Edit Vertex (рис.3).

Рис.3

Рис.4

4. Снимите выделение и выделите только 4 угловых точки на виде Top (рис.4).

5. В свитке Soft Selection (Мягкое выделение) включите флажок Use (Использовать) (рис. 5) и настройте параметры охвата выделения таким образом, чтобы Вох выглядел как на рис. 6.

Рис.5

Рис. 6

6. Возьмите инструмент масштабирования Select&Scale и на виде Тор отмасштабируйте точки таким образом, чтобы они вытянулись в стороны (как крылья бабочки). Чем дальше вытянуты углы, тем очевиднее они будут у подушки (рис. 7).

Рис.7

Рис. 8

7. Выключите уровень подобъектов и примените модификатор Relax с числом итераций Iterations от 10 до 20. Получится подушка как на рис 8.

8. В дополнение, можно подушку немного помять. Для этого примените к ней модификатор Noise. Настройте параметры Strength (20, 20, 20). Меняйте случайное число Seed, чтобы подобрать форму. Можно менять масштаб Scale для увеличения или уменьшения неровностей. В итоге получится подушка как на рис 9.

Рис. 9