ВУЗ:
Составители:
60
0
;0
10
10
≠β+β
≠α+α
выполняется и, следовательно, задача определения значений функции
)(
r
uu = на интервале
[]
21
, RR
выполнима. Найдя значения функции )(
r
uu =
и ее первой производной
)(ruu
′
=
′
в произвольной точке, по уравнениям
(4.25) и (4.26) вычисляются требуемые при проектировании диска значения
напряжений.
Ниже приведен пример реализации программы решения данной задачи
методом прогонки для плоского, конического и гиперболического дисков по
алгоритму обратного хода.
Программа решения линейной краевой задачи по расчету напряже-
ний в быстровращающихся дисках методом прогонки по алгоритму обратно-
го хода.
'$INCLUDE: 'mcl.bi'
op: 'Метка начала программы
'Вывод названия программы
CLS
a = wind(5, 14, 7, 65, 3, 0)
COLOR 0, 3
LOCATE 6, 16
PRINT "Расчет быстровращающихся дисков методом прогонки"
LOCATE 7, 28
k$ = "": WHILE k$ = "": k$ = INKEY$: WEND
'Выбор типа диска
COLOR 7, 0: CLS
x$ = "Тип диска:"
c$(1) = "Плоский"
c$(2) = "Конический"
c$(3) = "Гиперболический"
T = menu(x$, c$(), 3, 1, 1)
'Ввод исходных данных
DIM a(11)
LOCATE 10
PRINT "Модуль упругости материала, МПа"
PRINT "Плотность материала, кг/м^3 "
PRINT "Коэффициент Пуассона "
PRINT "Внутренний радиус диска, мм "
PRINT "Наружный радиус диска, мм "
Страницы
- « первая
- ‹ предыдущая
- …
- 58
- 59
- 60
- 61
- 62
- …
- следующая ›
- последняя »
