Алгоритм программы для расчета прочности по формуле Кнудсена.

Прилоложение 2.

Для приведения уравнения (4.5) к системе (4.7) и решения системы (4.7) была составлена программа.

01 ‘Расчёт прочности феррита 100НН’

02 PRINT‘введите число точек, в которых необходим расчёт’

05 INPUT M: PRINT M

06 DIM R(3,3), S(M), G(M), P(M), C(3), B(3)

10 PRINT‘введите построчно – прочность, размер зерна, пористость’

12 PRINT‘вместо величин, которые вы хотите расчитать (если вам’

13 PRINT‘известны коэффициэнты К, А, Б) вводите 0’

15 PRINT‘прочность’, ‘размер зерна’, ‘пористость’

18 FORI= 1TOM

19 INPUT S(I), G(I), P(I)

20 PRINT S(I), G(I), P(I)

50 IF S(1) = 0 THEN 430

60 IF G(1) = 0 THEN 430

70 IF P(1) = 0 THEN 430

80 A1 = M: LET A2=0: LET A3=0: LET A5=0: LET A6=0: LET A9=0

90 LET B(1) = 0: LET B(2) = 0: LET B(3) = 0

100 FOR I = 1 TO M

110 LET A2 = A2 + LOG (G(I))

120 LET A3 = A3 + D(I)

130 LET A5 = A5 + LOG (G(I)) 2

140 LET A6 = A6 + P(I) * LOG (G(I))

150 LET A9 = A9 + P(I) 2

160 LET B(1) = B(1) + LOG (S(I))

170 LET B(2) = B(2) + LOG (G(I)) * LOG (S(I))

180 LET B(3) = B(3) + P(I) * LOG (S(I))

190 NEXT I

200 LET M1 = A5 * A9 – A6 2

210 LET M2 = A2 * A9 – A6 * A3

220 LET M3 = A2 * A9 – A5 * A3

230 LET D = A1 * A6 - A2 * M2 + A3 * M3

240 IF D = 0 THEN 960

250 LET R (1,1) = M1 / D

260 LET R (1,2) = - M2 / D

270 LET R (1,3) = M3 / D

280 LET R (2,1) = - M2 / D

290 LET R (2,2) = (A1 * A9 – A3 2) / D

300 LET R (2,3) = (A3 * A2 – A1 * A6) / D

310 LET R (3,1) = M3 / D

320 LET R (3,2) = (A3 * A2 – A1 * A6) / D

330 LET R (3,3) = (A1 * A5 – A2 2) / D

340 FOR I = 1 TO 3

350 LET C(I) = 0

360 FOR L = 1 TO 3

370 LET C(I) = C(I) + R(I,L) * B(L)

380 NEXT L : NEXT I

390 LET S1 = EXP(C(1))

395 IF S1 = 0 THEN 960

400 LET S2 = - C(2)

405 IF S2 = 0 THEN 960

410 LET S3 = -C(3)

415 IF S3 = 0 THEN 960

416 PRINT ‘К=’, S1

417 PRINT ‘A=’, S2

418 PRINT ‘Б=’, S3

420 GOTO450

430 PRINT‘введите коэффициенты К, А, Б’

440 INPUT S1, S2, S3

445 GO TO 416

450 PRINT‘введите 0 – расчёт прочности, 1 – расчёт размера зерна’

460 PRINT ‘2 – расчёт пористости’

465 INPUT D1

470 PRINT D1

480 PRINT‘прочность’, ‘размер зерна’, ‘пористость’

490 IFD1>0THEN650

500 REM Расчёт прочности

600 FOR I = 1 TO M

605 LET F = -S2

610 LET S0 = S1 * G(I) F * EXP (-S3 * P(I))

620 PRINT S0, G(I), P(I)

630 NEXT I

640 GO TO 1000

650 IF D1>1

660 REM

750 FOR I = 1 TO M

760 LET F1 = S1 * EXP (-S3 * P(I)) / S(I)

770 LET F2 1 / S2

780 LET G(I) = F1 F2

790 PRINT S(I), G(I), P(I)

800 NEXT I

810 GO TO 1000

820 REM Расчёт пористости

910 FOR I = 1 TO M

920 LET F0 = G(I) S2

921 LET F1 = S1 / S(I) / F0

922 LET F2 = LOG (F1)

923 LET P(I) = F2 / S3

930 PRINT S(I), G(I), P(I)

940 NEXTI

950 GOTO1000

960 PRINT‘коэффициенты вычислены быть не могут, так как’

970 PRINT‘информационная матрица вырождена, необходимо’

980 PRINT‘большее число эксперементальных точек’

990 STOP

1000 END

Порядок выполнение работы:

1. Рассчитать теоретическую прочность феррита _т;

2. Определить средний размер зерна D;

3. Измерить плотность феррита d_c, рассчитать d_Т пористость P;

4. Выбрать формулу для расчета прочности;

5. Рассчитать (_расч) по выбранной формуле;

6. Измерить (_и), оценить ошибку измерений ;

7. Сравнить _т, _расч, _и.

Требования к отчету по работе.

Отчет должен содержать:

1. Цель работы

2. Порядок выполнения работы

3. Методика определения d_c, D, _и

4. Формула для расчета d_Т, P,  = f(D,P)

5. Графики зависимости  = f(d,P)

6. Анализ полученных результатов

Контрольные вопросы.

При допуске к работе:

1. Правила техники безопасности при работе с электроустановками

2. Методики измерения механической прочности керамики

3. Методики определения плотности пористых тел

При сдаче работы:

1. Как оценить теоретическую прочность материала?

2. В чем причины расхождения теоретических и реальных значений прочности керамических материалов?

3. Способы повышения прочности?

4. Как выбрать формулу и рассчитать прочность?

5. Как влияет распределение пористости на прочность?

6. Как влияет размер зерен и распределение зерен на прочность?

Список использованных источников:

1. Канева И.И., Крутогин Д.Г., Летюк Л.М. Материалы и компоненты магнетоэлектроники, 1990.

2. Канева И.И., Летюк Л.М. Технология ферритовых элементов, 1976.

3. Злобин В.А., Андреев В.А., Звороно Ю.С. изд. «Энергия», 1970.

4. Биктяков Р.М., Гаскаров Д.В., Звороно Ю.С., изд. «Советское радио», 1974.

26