CLS

PRINT "Расчет пьеэоэлементов среза xys/+5, имеющих форму бруска"

INPUT "Частота кГц f="; f

a = .005: b = .015

w = a * f + b

PRINT "отношение =s/l"; w

PRINT "Из графика выберите угол среза таким, чтобы средний ТКЧ"

PRINT "в рабочем интервале температур был минимальным"

SLEEP

SHELL "bitmap 1.bmp"

INPUT "Введите угол среза"; a$

PRINT "По значениям s/l и углу среза по графику найдите значение"

PRINT "частотного коэффициента"

SLEEP

SHELL "bitmap 2.bmp"

m1: INPUT "Введите значение частотного коэффициента"; Kf

IF Kf = 0 THEN GOTO m1

'CLS

l = Kf * w / f

s = w * l

PRINT "Частота"; f

PRINT "Отношение s/l="; w

PRINT "Угол среза"; a$

PRINT "Частотный коэффициент"; Kf

PRINT "Длина l="; CSNG(l)

PRINT "Толщина s="; CSNG(s)

PRINT "Ширина b="; CLNG(s)

PRINT "Проверка значения частоты пьезоэлемента для этих размеров"

f = (Kf * CLNG(s)) / (CLNG(l) ^ 2)

PRINT f

INPUT "Сохранить результаты в файл [Y-да]"; s$

IF s$ = "y" OR s$ = "Y" THEN

INPUT "Имя файла"; f$

OPEN f$ FOR OUTPUT AS #1

PRINT #1, "Частота"; f

PRINT #1, "Отношение s/l="; w

PRINT #1, "Угол среза"; a$

PRINT #1, "Частотный коэффициент"; Kf

PRINT #1, "Длина l="; CSNG(l)

PRINT #1, "Толщина s="; CSNG(s)

PRINT #1, "Ширина b="; CLNG(s)

CLOSE

END IF

END