Технологія конструкційних матеріалів і матеріалознавство: Практикум: Навч.посібник
Внимание! эта страница распознана автоматически, поэтому мы не гарантируем, что она не содержит ошибок. Для того, чтобы увидеть оригинал, Вам необходимо
Если Вы являетесь автором данной книги и её распространение ущемляет Ваши авторские права или если Вы хотите внести изменения в данный документ или опубликовать новую книгу свяжитесь с нами по по .
Страницы: 1 2 3... 179 180 181 182 183 184 185... 212 213 214
|
|
|
|
580 PRINT "S("; I;"), FC; I;")" : INPUT S(IVFI 590 IF (S(I) = 0 OR F(I) = 0) THEN PRINT S$ : GO TO 580 600 NEXT I 610 FOR 1=1 TO N: PRINT "S^; I;")=";S(I), 'T^; !;")="; F(I): NEXT I 620 PRINT "ПРАВИЛЬНО ? ; TAK-1, HI-0" 630 INPUT Fl : IF F1=0 GO TO 560 640 IF F =0 GO TO 680 650 LPRINT "КІЛЬКІСТЬ ПАР ЗНАЧЕНЬ="; N 660 FOR 1=1 TO N : LPRINT "S(";I;")="; S(I), "F(";I;"K'; F(I) 670 NEXT I 680 FOR 1=1 TO N : Y(I)=LOG(F(I))/LOG(10): X(I)=LOG(S(I))/LOG(10) 690 NEXT I .GOSUB 1410 700 A2=D2/D1 : B2=D3/D1 710IFF=0 GO TO 740 720 LPRINT "РІВНЯННЯ РЕГРЕСІЇ" 730 LPRINT "Y="; A2; "+"; B2; "*X" : GO TO 750 740 PRINT "РІВНЯННЯ РЕГРЕСІЇ" : PRINT "Y="; A2;"+"; B2; "*X" 750 REM ОБЧИСЛЕННЯ ПОКАЗНИКА СТЕПЕНЯ ВЗ 760 REM МАСИВИ V-ШВИДКІСТЬ, F-СИЛА РІЗАННЯ 770 DIM V(10) 780 PRINT "ЧИ ПОТРІБНА ВАМ КОНСУЛЬТАЦІЯ ? : ТАК-1, НІ-0" 790 INPUT А 800 IF А=0 THEN 890 810 PRINT "ПРИ ПОЯВІ НА ДИСПЛЕЇ ТЕКСТУ" 820 PRINT "КІЛЬКІСТЬ ПАР ЗНАЧЕНЬ ?" 830 PRINT "НАБЕРІТЬ НА КЛАВІАТУРІ КІЛЬКІСТЬ ЕКСПЕРИМЕНТАЛЬНИХ ТОЧОК" 840 PRINT "ДЛЯ ШВИДКОСТІ РІЗАННЯ" 850 PRINT "ПРИ ПОЯВІ НА ДИСПЛЕЇ ПОВІДОМЛЕННЯ" 860 PRINT "V(l), F(l)?" 870 PRINT "НАБЕРІТЬ НА КЛАВІАТУРІ В РЯДОК ЗНАЧЕННЯ ШВИДКОСТІ РІЗАННЯ" 880 PRINT "І ДАЛІ ПІСЛЯ КОМИ ЗНАЧЕННЯ СИЛИ РІЗАННЯ ДЛЯ 1-ОЇ ТОЧКИ" 890 PRINT "КІЛЬКІСТЬ ПАР ЗНАЧЕНЬ": INPUT N 900 FOR 1=1 TON 910 PRINT "V("; I;"), F("; I;")" : INPUT V(I), F(I) 920 IF (V(I)=0 OR F(I)=0) THEN PRINT S$ : GO TO 910 930 NEXT I 940 FOR 1=1 TO N : PRINT "V("; 1;")="; V(I), "F("; I;")="; F(I): NEXT I 950 PRINT "ПРАВИЛЬНО ? ; TAK-1, HI-0" 960 INPUT Fl : IF F 1=0 GO TO 890 970IFF=0 GO TO 1010 980 LPRINT "КІЛЬКІСТЬ ПАР ЗНАЧЕНЬ="; N 990 FOR 1=1 TO N : LPRINT "V("; I;")=";V(I), "F("; I;")="; F(I) 1000 NEXT! 1010 FOR 1=1 TON : Y(I)=LOG(F(I))/LOG(10): X(I)=LOG(V(I))/LOG(10) 1020 NEXT I: GOSUB 1410 1030A3=D2/D1 : B3=D3/D1 1040 IFF=0 GO TO 1070 1050 LPRINT "РІВНЯННЯ РЕГРЕСІЇ" 1060 LPRINT "Y="; A3;"+"; B3; "*X" : GO TO 1080 1070 PRINT "РІВНЯННЯ РЕГРЕСІІЇ : PRINT "Y="; A3; "+"; B3; "*X" 1080 REM ОБЧИСЛЕЬІНЯ КОЕФІЦІЄНТА С 1090 PRINT "ЧИ ПОТРІБНА ВАМ КОНСУЛЬТАЦІЯ ? : ТАК-1, НІ-0" 1100 INPUT А 1110 IF A=0THEN 1200 1120 PRINT "ПРИ ПОЯВІ НА ДИСПЛЕЇ ТЕКСТУ" 1130 PRINT "ВВЕДІТЬ ЗНАЧЕННЯ F" 1140 PRINT "НАБЕРІТЬ НА КЛАВІАТУРІ ЗНАЧЕННЯ СИЛИ РІЗАННЯ F, ЯКЕ ПОТРАПЛЯЄ" 1150 PRINT "В ДІАПАЗОН її ЗМІНИ ДЛЯ ТРЬОХ ЕКСПЕРИМЕНТАЛЬНИХ ЗАЛЕЖНОСТЕЙ" 1160 PRINT "НАПРИКЛАД, ПРИ : Т F (350-1650 Н)" 1170 PRINT "S F (650-2100 Н)" 1180 PRINT "V F (500-650 Н)" 1190 PRINT "ВИБИРАЄМО 650 Н" 1200 PRINT "ВВЕДІТЬ ЗНАЧЕННЯ F" 1210 INPUT F 1220 IF F =0 THEN PRINT "ЗНАЧЕННЯ F="; F : GO TO 1240 1230 LPRINT "ЗНАЧЕННЯ F="; F 1240 Y1 =LOG(F)/LOG( 10): T10^((Y1 -A 1 )/B 1) 1250 IF F =0 THEN PRINT "ПРИ F="; F; "T="; T : GO TO 1270 1260 LPRINT "ПРИ F="; F; 'T=";T 1270S10^((Y1-A2)/B2) 1280 IF F =0 THEN PRINT "ПРИ F="; F; "S="; S: GO TO 1300 1290 LPRINT "ПРИ F="; F; "T="; T 1300V10^((Y1-A3)/B3) 1310 IF F =0 THEN PRINT "ПРИ F=";F; "V=";V : GO TO 1330 1320 LPRINT "ПРИ F="; F; "V="; V 1330 C=((F*V^B3)/(T^B1*S^B2)) 1340 IF F =0 THEN PRINT "ЗНАЧЕННЯ КОЕФІЦІЄНТА C="; С : GO TO 1360 1350 LPRINT "ЗНАЧЕННЯ КОЕФІЦІЄНТА C="; С 1360 IF F =0 THEN PRINT "РІВНЯННЯ СИЛИ РІЗАННЯ ПРИ ТОЧІННІ" : GO TO 1380 1370 LPRINT "РІВНЯННЯ СИЛИ РІЗАННЯ ПРИ ТОЧІННІ" 1380 IF F =0 THEN PRINT "F=((";C;"*T^";B1 ;"S^";B2;")/(V^";B3;"))": GOTO 1400 1390 LPRINT "F=(("; C;"*T^"; B1;"S^"; В2;")/(У/^"; ВЗ;"))" 1400 END 1410Sl=N 361 360
Карта
|
|
|
|
|
|
|
|
Страницы: 1 2 3... 179 180 181 182 183 184 185... 212 213 214
Внимание! эта страница распознана автоматически, поэтому мы не гарантируем, что она не содержит ошибок. Для того, чтобы увидеть оригинал, Вам необходимо скачать книгу |
