Додатки

Додаток 1

Програма «Проектування тканини по заданій поверхневій щільності зі збереженням лінійних щільностей пряжі»

PRINT "ПРОЕКТИРОВАНИЕ ТКАНИ ЗАДАННОЙ ПЛОТНОСТИ С СОХРАНЕНИЕМ ЛИНЕЙНЫХ ПЛОТНОСТЕЙ ТКАНИ"

INPUT "ВВЕДИТЕ ЛИНЕЙНУЮ ПЛОТНОСТИ НИТЕЙ ПО ОСНОВЕ Т1 ="; T1

INPUT "ВВЕДИТЕ ЛИНЕЙНУЮ ПЛОТНОСТЬ НИТЕЙ ПО УТКУ Т2="; T2

INPUT "ВВЕДИТЕ ПЛОТНОСТЬ ТКАНИ ПО ОСНОВЕ Р1 ="; P1

INPUT "ВВЕДИТЕ ПЛОТНОСТЬ ТКАНИ ПО УТКУ Р2="; P2

INPUT "ВВЕДИТЕ ВЕЛИЧИНУ УРАБОКИ ПО ОСНОВЕ А1 ="; A1

INPUT "ВВЕДИТЕ ВЕЛИЧИНУ УРАБОТКИ ПО УТКУ А2="; A2

INPUT "ВВЕДИТЕ РАСЧЕТ ИСТИННОГО ПРИКЛЕЯ PI ="; PI

INPUT "ВВЕДИТЕ ПОВЕРХНОСТНУЮ ПЛОТНОСТЬ ТКАНИ М1 ="; M1

Pо = 0,667 * PI

PRINT "ВЕЛИЧИНА ОСТАТОЧНОГО ПРИКЛЕЯ Po="; Po

PRINT "ОПРЕДЕЛЯЕМ КОЭФФИЦИЕНТЫ УРАВНОВЕШЕННОСТИ НИТЕЙ В ТКАНИ М"

M= P1 / P2

PRINT "КОЭФФИЦИЕНТ УРАВНОВЕШЕННОСТИ НИТЕЙ В ТКАНИ М="; M

PRINT "ОПРЕДЕЛЯЕМ КОЭФФИЦИЕНТ УРАВНОВЕШЕННОСТИ ПО ТОЛЩИНЕ НИТЕЙ"

N = T2 / T1

PRINT "КОЭФФИЦИЕНТ УРАВНОВЕШЕННОСТИ ПО ТОЛЩИНЕ НИТИ N ="; N

PRINT "ОПРЕДЕЛЯЕМ ПРИВЕДЕННЫЕ ПОКАЗАТЕЛИ ПО МЕТОДУ КУТЕПОВА"

X = (A1 + Po) / (1 + 0.01 * Po)

PRINT "Х="; X

Y1 = X * M * (1.01 * A2) + A2 * N * (1.01 * X)

Y2 = M * (1.01 * A2) + N * (1.01 * X)

Y = Y1 / Y2

PRINT "Y="; Y

PRINT "ОПРЕДЕЛЯЕМ СРЕДНЮЮ ЛИНЕЙНУЮ ПЛОТНОСТЬ ПРЯЖИ"

T = (2 * T1 * T2) / (T1 + T2)

PRINT "СРЕДНЯЯ ЛИНЕЙНАЯ ПЛОТНОСТЬ ПРЯЖИ Т="; T

PRINT "ОПРЕДЕЛЯЕМ ПЛОТНОСТЬ ПО ОСНОВЕ ТКАНИ КВАДРАТНОГО СТРОЕНИЯ"

P = (M1 * (1.01 * Y)) / (.02 * T)

PRINT "ПЛОТНОСТЬ ПО ОСНОВЕ ТКАНИ КВАДРАТНОГО СТРОЕНИЯ Р="; P

PRINT "ОПРЕДЕЛЯЕМ КОЭФФИЦИЕНТ ПЛОТНОСТИ ТКАНИ КВАДРАТНОГО СТРОЕНИЯ"

K =.0316 * P * SQR(T)

PRINT "K="; K

PRINT "ОПРЕДЕЛЯЕМ КОЭФФИЦИЕНТ ПЛОТНОСТИ ПО ОСНОВЕ И УТКУ ДЛЯ ПРОЕКТИРУЕМОЙ ТКАНИ"

K1 = (2 * K * M) / SQR((M + N) * (M + 1))

K2 = (2 * K * SQR(N)) / SQR((M + N) * (M + 1))

PRINT "K1="; K1

PRINT "K2="; K2

PRINT "ОПРЕДЕЛЯЕМ ПЛОТНОСТИ ТКАНИ ПО ОСНОВЕ И ПО УТКУ ДЛЯ ПРОЕКТИРУЕМОЙ ТКАНИ"

P3 = K1 / (.0316 * SQR(T1))

P4 = K2 / (.0316 * SQR(T2))

PRINT "P3="; P3

PRINT "P4="; P4

PRINT "ПОЛУЧЕННЫЕ РЕЗУЛЬТАТЫ НЕОБХОДИМО ОКРУГЛИТЬ"

P3 = CINT(P3)

P4 = CINT(P4)

PRINT "P3="; P3

PRINT "P4="; P4

PRINT "ОПРЕДЕЛЯЕМ ПОВЕРХНОСТНУЮ ПЛОТНОСТЬ ПРОЕКТИРУЕМОЙ ТКАНИ"

A = (P3 * T1 * (1 +.01 * PI1)) / (100 * (1-.01 * A1))

D = (P4 * T2) / (100 * (1-.01 * A2))

M2 = A + D

PRINT "M2="; M2

PRINT "РАСЧЕТ ОКОНЧЕН, ДО НОВЫХ ВСТРЕЧ!"

END

Додаток 2

Блок-схема програми «Проектування тканини по заданій поверхневій щільності зі збереженням лінійних щільностей пряжі»

Дата добавления: 2015-07-20