Инженерная оптимизация оборудования для переработки полимерных материалов. Клинков А.С - 300 стр.

UptoLike

300
R#(6) = 50 / X#(3) – 1
R#(7) = 1 – SIGb / SIG
R#(8) = 1 – SIGz / SIG
R#(9) = 1 – SIGp / SIG
R#(10) = 1 – fmax / fdop
GOTO 300
'целевая функция
200 R#(11) = 3.14 / 4 * ((DD ^ 2 – X#(1) ^ 2) * ll1 + 2 * (dd2 ^ 2 – X#(2)
^ 2) * ll2 + 2 * (dd3 ^ 2 – X#(3) ^ 2) * ll3)
CLS
PRINT "SIGb="; SIGb; "МПа "; "SIGz="; SIGz; "МПа "; "SIGp=";
SIGp; "МПа "; "fmax="; fmax; "мм"
PRINT #1, "SIGb="; SIGb; "МПа "; "SIGz="; SIGz; "МПа "; "SIGp=";
SIGp; "МПа "; "fmax="; fmax; "мм"
'PRINT "Mkrc="; Mkrc; "Mkra="; Mkra; "Mkre="; Mkre
'PRINT #1, "Mkrc="; Mkrc; "Mkra="; Mkra; "Mkre="; Mkre
'PRINT "W0e="; W0e; "W0c="; W0c; "W0a="; W0a
'PRINT #1, "W0e="; W0e; "W0c="; W0c; "W0a="; W0a
'PRINT "Mxa="; Mxa; "Mea="; Mya; "Mxc="; Mxc; "Mxe="; Mxe;
"Mye="; Mye; "Mua="; Mua; "Mue="; Mue
'PRINT #1, "Mxa="; Mxa; "Mea="; Mya; "Mxc="; Mxc; "Mxe="; Mxe;
"Mye="; Mye; "Mua="; Mua; "Mue="; Mue
'PRINT "qp="; qp; "qg="; qg; "Fr="; Fr; "Mkr="; Mkr; "Mkr1="; Mkr1;
"Mkr2="; Mkr2
'PRINT #1, "qp="; qp; "Fr="; Fr; "Mkr="; Mkr; "Mkr1="; Mkr1;
"Mkr2="; Mkr2
'PRINT "PP1="; PP1; "PP2="; PP2; "Ha="; Ha; "Hb="; Hb; "Va="; Va;
"Vb="; Vb; "ll1="; ll1
'PRINT #1, "PP1="; PP1; "PP2="; PP2; "Ha="; Ha; "Hb="; Hb; "Va=";
Va; "Vb="; Vb; "ll1="; ll1; "ll2="; ll2; "ll3="; ll3