Додатки

Додаток 1

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

REM "ПРОЕКТИРОВАНИЕ НЕУРОВНОВЕШЕННОЙ ТКАНИ"

INPUT "ВВЕДИТЕ ЧИСЛО НИТЕЙ ОСНОВЫ НА 10 СМ СУРОВОЙ ТКАНИ PO="; PO

INPUT "ВВЕДИТЕ ЧИСЛО НИТЕЙ УТКА НА 10 СМ СУРОВОЙ ТКАНИ PU="; PU

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

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

INPUT "ВВЕДИТЕ УРАБОТКУ НИТЕЙ В ТКАНИ ПО ОСНОВЕ AO="; AO

INPUT "ВВЕДИТЕ УРАБОТКУ НИТЕЙ В ТКАНИ ПО УТКУ AU="; AU

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

INPUT "ВВЕДИТЕ КОЭФ. УРАВНОВЕШЕННОСТИ ПО ЧИСЛУ НИТЕЙ ПРОЕКТИР. ТКАНИ M1="; M1

INPUT "ВВЕДИТЕ КОЭФ. УРАВНОВЕШЕННОСТИ ПО ЛИНЕЙНОЙ ПЛОТНОСТИ ПРОЕКТИР.ТКАНИ N1="; N1

INPUT "ВВЕДИТЕ ПОВЕРХНОСТНУЮ ПЛОТНОСТЬ ТКАНИ-ЭТАЛОНА ММ2="; MM2

INPUT "ВВЕДИТЕ ПОВЕРХ. ПЛОТНОСТЬ ПРОЕКТИРУЕМОЙ ТКАНИ МPR="; MPR

M = PO / PU

N = TU / T1

POST = PI * 2 / 3

X = (AO + POST) / (1 + .01 * POST)

Y = (X * M * (1 - .01 * AU) + AU * N * (1 - .01 * X)) / (M * (1 - .01 * AU) + N * (1 - .01 * X))

KO = .0316 * PO * SQR(T1)

KKW = (KO * SQR((M + N) * (M + 1))) / (2 * M)

TSPR = ((MPR * (1 - .01 * Y)) / (.63 * KKW)) ^ 2

T11 = (TSPR * (M1 + 1)) / (N1 + M1)

TU1 = N1 * T11

PRINT "ЛИНЕЙНАЯ ПЛОТНОСТЬ ОСНОВНЫХ НИТЕЙ Т11="; T11

PRINT "ЛИНЕЙНАЯ ПЛОТНОСТЬ УТОЧНЫХ НИТЕЙ TU1="; TU1

INPUT "Введите скорректированное знач. линейной плотности нитей основы по ГОСТ T11="; T11

INPUT "Введите скорректированное знач. линейной плотности нитей утка по ГОСТ TU1="; TU1

PRINT "Корректировка коэффиц. уравновешенности N11"

N11 = TU1 / T11

PRINT "Скорректированное значение коэф. уравновешенности N11="; N11

KO1 = (2 * KKV * M1) / SQR((M1 + N11) * (M1 + 1))

KU1 = (2 * KKV * SQR(N11)) / SQR((M1 + N11) * (M1 + 1))

PO1 = KO1 / (.0316 * SQR(T11))

PU1 = KU1 / (.0316 * SQR(TU1))

PRINT "ПЛОТНОСТЬ ПО ОСНОВЕ НОВОЙ ТКАНИ PO1="; PO1

PRINT "ПЛОТНОСТЬ ПО УТКУ НОВОЙ ТКАНИ PU1="; PU1

INPUT "ВВЕДИТЕ СКОРРЕКТИРОВАННОЕ ЗНАЧ. ПЛОТНОСТИ ПО ОСНОВЕ НОВОЙ ТКАНИ ПО ГОСТ PO1="; PO1

INPUT "ВВЕДИТЕ СКОРРЕКТИРОВАННОЕ ЗНАЧ. ПЛОТНОСТИ ПО УТКУ НОВОЙ ТКАНИ ПО ГОСТ PU1="; PU1

MM11 = (10 * PO1 * T11 * (1 + .01 * POST)) / (1000 * (1 - AO * .01)) + (10 * PU1 * TU1) / ((1 - .01 * AU) * 1000)

PRINT : PRINT

PRINT "ЛИНЕЙНАЯ ПЛОТНОСТЬ НИТЕЙ ОСНОВЫ НОВОЙ ТКАНИ T11="; T11

PRINT "ЛИНЕЙНАЯ ПЛОТНОСТЬ НИТЕЙ ПО УТКУ НОВОЙ ТКАНИ TU1="; TU1

PRINT "ПЛОТНОСТЬ ПО ОСНОВЕ НОВОЙ ТКАНИ PO1="; PO1

PRINT "ПЛОТНОСТЬ ПО УТКУ НОВОЙ ТКАНИ PU1="; PU1

PRINT "МАССА МЕТРА КВАДРАТНОГО СПРОЕКТИРОВАННОЙ ТКАНИ ММ11="; MM11

END

Додаток 2

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