42523

Изучение процессов зарядки и разрядки конденсаторов

Лабораторная работа

Физика

Цель работы: изучить процессы, происходящие в цепи при зарядке (разрядке) конденсаторов, освоить метод расчёта ёмкости конденсаторов по данным о временной зависимости тока зарядки (разрядки). Оборудование: конденсатор, набор резисторов, микроамперметр на 100 мкА, источник питания постоянного тока, выключатель, секундомер, соединительные провода.

Русский

2013-10-30

240.5 KB

3 чел.

Лабораторная работа № 25

Изучение процессов зарядки и разрядки

конденсаторов

Цель работы: изучить процессы, происходящие в цепи при зарядке (разрядке) конденсаторов, освоить метод расчёта ёмкости конденсаторов по данным о временной зависимости тока зарядки (разрядки).

Оборудование: конденсатор, набор резисторов, микроамперметр на 100 мкА, источник питания постоянного тока, выключатель, секундомер, соединительные провода.

25.1. Краткие теоретические сведения

При замыкании (размыкании) цепи постоянного тока, в которой есть конденсатор (рис. 25.1), сила тока в цепи меняется с течением времени по закону

                               (25.1)

где t − время; I − мгновенная сила тока в момент времени t; I0 − сила тока в начальный (включения или выключения) момент времени; R − сопротивление всей цепи; С − ёмкость конденсатора.

Формула (25.1) указывает, в частности, на то, что процессы зарядки и разрядки (установление электрического равновесия) происходят не мгновенно, а с конечной скоростью. Сила тока уменьшается от I0 до нуля, приближаясь к нулевому значению по экспоненте. Время , за которое сила тока уменьшается в e = 2,71 раз, называется временем релаксации. Из (25.1) следует, что время релаксации связано с характеристиками цепи простым соотношением

                                     (25.2)

Согласно (25.1) и (25.2) для любых цепей, у которых произведение RC одинаково, изменение силы тока при зарядке и разрядке будет происходить одинаково.

Силу тока зарядки и разрядки можно измерить экспериментально. Имея измеренные значения силы тока зарядки в разные моменты времени, можно построить график зависимости , который будет иметь вид экспоненциальной кривой. Чтобы окончательно убедиться в том, что полученная кривая − экспонента её нужно представить в координатах . В этих координатах зависимость должна быть линейной.

Силу тока I0 в начальный момент времени можно определить по показаниям микроамперметра, если закоротить пластины конденсатора ключом К2 (рис. 25.1).

По полученным данным о зависимости силы тока от времени можно рассчитать ёмкость конденсатора. Для этого необходимо знать сопротивление R цепи и время релаксации .

Сопротивление можно рассчитать по закону Ома:

                                     (25.3)

где U − напряжение в цепи.

Время релаксации определяется по графику зависимости  от времени t. Время будет соответствовать точке графика, для которой .

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

  1.  Собрать цепь по схеме (рис. 25.1).
  2.  Замкнуть ключ К2, измерить силу тока I0 и напряжение U.
  3.  Для измерения силы тока зарядки конденсатора ключ К2 разомкнуть, установить в положение 1, одновременно включить секундомер. По микроамперметру считывать силы тока через каждые 15 с в течение 1,5 мин, а затем снимать показания через 30 с, вплоть до уменьшения тока до нуля. Показания заносить в таблицу.
  4.  Для измерения силы тока разрядки конденсатора включить ключ К1 в положение 2 и выполнить аналогичные п.3 измерения тока разрядки конденсатора.
  5.  Значения полученных результатов представить в виде графика .
  6.  Построить график зависимости величины  от времени t.
  7.  По методике, изложенной в «Кратких теоретических сведениях», определить время релаксации .
  8.  По (25.2) и (25.3) рассчитать ёмкость конденсатора.
  9.  Рассчитанную ёмкость сравнить с номиналами, указанными на конденсаторе. Сделать выводы.
  10.  Вышеописанные расчёты провести с помощью компьютерной программы, данной в приложении, аппросимируя зависимость  экспоненциальной регрессией (рис. 25.2), а зависимость  от времени t − линейной регрессией (рис 25.3).

Контрольные вопросы и задания

  1.  Что называется ёмкостью конденсатора?
  2.  Объяснить процессы, протекающие при включении конденсатора в цепь постоянного тока.
  3.  Вывести (25.1) для тока зарядки и разрядки конденсатора.
  4.  Вывести формулу, выражающую зависимость напряжения на обкладках конденсатора от времени.
  5.  Расшифруйте условные обозначения на приборах в собранной схеме и в схеме на (рис. 25.4).

6. Для самоконтроля попробуйте выполнить все задания, используя данные вариантов эксперимента в таблице 25.1.

[2, § 74; 3, § 59; 11].

Таблица 25.1. ВАРИАНТЫ ЗАДАНИЙ

Вариант 1

Вариант 2

Вариант 3

Вариант 4

Вариант 5

R =  450 кОм

R =  420 кОм

R = 350 кОм

R = 300 кОм

R = 250 кОм

t, c

I, мкА

t, c

I, мкА

t, c

I, мкА

t, c

I, мкА

t, c

I, мкА

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

84.16

67.38

53.97

43.20

34.60

27.76

22.17

17.82

14.29

11.45

9.12

7.34

5.93

4.76

3.78

3.10

2.49

1.93

1.64

1.27

1.04

0.87

0.64

0.57

0.45

0.35

0.32

0.27

0.19

0.16

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

112.24
88.46

69.73

54.94

43.31

34.19

26.88

21.26

16.78

13.23

10.38

 8.22

 6.53

 5.16

 4.04

 3.25

 2.57

 1.96

 1.64

 1.25

 1.01

 0.83

 0.60

 0.53

 0.42

 0.32

 0.29

 0.25

 0.17

 0.14

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

133.95

103.31

79.69

61.45

47.40

36.61

28.18

21.81

16.84

13.00

 9.97

 7.73

 6.02

 4.65

 3.56

 2.82

 2.19

 1.62

 1.34

 1.00

 0.79

 0.65

 0.45

 0.40

 0.31

 0.23

 0.22

 0.19

 0.12

 0.10

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

155.99

119.48

91.53

70.09

53.69

41.18

31.48

24.19

18.55

14.22

10.84

 8.34

 6.44

 4.95

 3.77

 2.95

 2.27

 1.68

 1.38

 1.02

 0.81

 0.65

 0.45

 0.40

 0.31

 0.23

 0.21

 0.18

 0.12

 0.10

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

187.17

143.36

109.82

84.10

64.42

49.40

37.78

29.01

22.24

17.04

13.00

10.00

 7.71

 5.92

 4.51

 3.52

 2.71

 2.02

 1.63

 1.22

 0.96

 0.77

 0.54

 0.47

 0.36

 0.27

 0.24

 0.20

 0.13

 0.11

Вариант 6

Вариант 7

Вариант 8

Вариант 9

Вариант 10

R = 300 кОм

R = 200 кОм

R =400 кОм

R = 100 кОм

R = 150 кОм

t, c

I, мкА

t, c

I, мкА

t, c

I, мкА

t, c

I, мкА

t, c

I, мкА

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

126.20
101.05
80.93
64.79

51.88

41.60

33.25

26.70

21.40

17.14

13.67

10.99

 8.85

 7.10

 5.66

 4.60

 3.69

 2.89

 2.41

 1.89

 1.53

 1.26

 0.96

 0.82

 0.66

 0.52

 0.45

 0.38

 0.28

 0.23

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

181.04
121.36
81.37
54.54
36.57
24.57
16.42
11.08
 7.46
 5.02
 3.32
 2.26
 1.58
 1.08
 0.71
 0.54
 0.39
 0.21
 0.23
 0.13

 0.11

 0.12

 0.03

 0.08

 0.06

 0.04

 0.07

 0.07

 0.03

 0.03

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

95.19
77.93
63.82

52.23

42.77

35.07

28.65

23.53

19.29

15.79

12.88

10.58

8.72

7.14

5.82

4.83

3.96

3.18

2.69

2.16

1.79

1.50

1.17

1.02

0.83

0.67

0.59

0.49

0.38

0.32

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

286.68
75.60
19.97
 5.28
 1.41
 0.44
 0.10
 0.10
 0.09
 0.07
 0.00
 0.04
 0.09
 0.08
 0.04
 0.10
 0.09
 0.01
 0.09
 0.04
 0.05
 0.08

 0.01

 0.06

 0.05

 0.03

 0.06

 0.06

 0.03

 0.03

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

282.23
144.92
74.43
38.22
19.64

10.14

 5.17

 2.73

 1.44

 0.77

 0.36

 0.23

 0.18

 0.13

 0.06

 0.11

 0.09

 0.01

 0.10

 0.04

 0.05

 0.08

 0.01

 0.06

 0.05

 0.03

 0.06

 0.06

 0.03

 0.03

Вариант 11

Вариант 12

Вариант 13

Вариант 14

Вариант 15

R = 150 кОм

R = 100 кОм

R = 200 кОм

R = 120 кОм

R = 80 кОм

t, c

I, мкА

t, c

I, мкА

t, c

I, мкА

t, c

I, мкА

t, c

I, мкА

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

169.37
86.97
44.68
22.94
11.79
 6.12
 3.10
 1.67
 0.90
 0.49
 0.22
 0.15
 0.14
 0.11
 0.05
 0.10
 0.09
 0.01
 0.10
 0.04
 0.05
 0.08
 0.01
 0.06
 0.05
 0.03
 0.06
 0.06

 0.03

 0.03

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

245.69
110.42
49.65
22.31
10.04
 4.58
 2.02
 0.98
 0.49
 0.25
 0.09

 0.08

 0.10

 0.09

 0.04

 0.10

 0.09

 0.01

 0.10

 0.04

 0.05

 0.08

 0.01

 0.06

 0.05

 0.03

 0.06

 0.06

 0.03

 0.03

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

135.80
91.03
61.04
40.91
27.43
18.45
12.31
 8.33
 5.61
 3.78
 2.49
 1.71
 1.20
 0.83
 0.54
 0.43
 0.31
 0.16
 0.20
 0.10
 0.10
 0.11
 0.03
 0.07
 0.06
 0.04

 0.07

 0.07

 0.03

 0.03

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

217.65
124.89
71.68
41.12
23.61
13.61
 7.76
 4.53
 2.64

 1.54

 0.85

 0.52

 0.36

 0.24

 0.13

 0.15

 0.12

 0.02

 0.10

 0.04

 0.06

 0.08

 0.01

 0.06

 0.05

 0.03

 0.06

 0.06

 0.03

 0.03

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

304.55
132.38
57.57
25.02
10.89
 4.80
 2.05
 0.97
 0.47
 0.24
 0.08
 0.07
 0.10
 0.09
 0.04
 0.10
 0.09
 0.01
 0.10
 0.04
 0.05
 0.08
 0.01
 0.06

 0.05

 0.03

 0.06

 0.06

 0.03

 0.03

Вариант 16

Вариант 17

Вариант 18

Вариант 19

Вариант 20

R = 100 кОм

R = 200 кОм

R = 120 кОм

R = 250 кОм

R = 400 кОм

t, c

I, мкА

t, c

I, мкА

t, c

I, мкА

t, c

I, мкА

t, c

I, мкА

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

350.53
128.98
47.49
17.48
 6.45
 2.44
 0.87
 0.40
 0.20
 0.11
 0.02
 0.05
 0.09
 0.08
 0.04
 0.10
 0.09
 0.01
 0.09
 0.04
 0.05
 0.08
 0.01
 0.06
 0.05

 0.03

 0.06

 0.06

 0.03

 0.03

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

203.66
136.52
91.54
61.35
41.13
27.63
18.47
12.46

 8.38

 5.63

 3.73

 2.54

 1.76

 1.20

 0.79

 0.60

 0.43

 0.23

 0.25

 0.14

 0.12

 0.12

 0.04

 0.08

 0.06

 0.04

 0.07

 0.07

 0.03

 0.03

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

323.22
178.25
98.32
54.21
29.91
16.55
 9.09
 5.09
 2.84
 1.59
 0.84
 0.50
 0.34
 0.22
 0.12
 0.14
 0.11
 0.02
 0.10
 0.04
 0.05
 0.08
 0.01

 0.06

 0.05

 0.03

 0.06

 0.06

 0.03

 0.03

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

168.46

129.03

98.84

75.69

57.98

44.46

34.00

26.12

20.03

15.35

11.70

 9.00

 6.95

 5.34

 4.06

 3.18

 2.45

 1.81

 1.48

 1.10

 0.87

 0.70

 0.48

 0.42

 0.33

 0.24

 0.23

 0.19

 0.12

 0.10

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

143.95

121.84

103.15

87.30

73.90

62.61

52.93

44.88

38.01

32.17

27.18

23.04

19.56

16.56

13.99

11.91

10.08

 8.47

 7.26

 6.10

 5.19

 4.42

 3.68

 3.17

 2.68

 2.26

 1.95

 1.66

 1.38

 1.17

Вариант 21

Вариант 22

Вариант 23

Вариант 24

Вариант 25

R = 300 кОм

R = 200 кОм

R = 250 кОм

R = 100 кОм

R = 300 кОм

t, c

I, мкА

t, c

I, мкА

t, c

I, мкА

t, c

I, мкА

t, c

I, мкА

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

190.77

157.68

130.35

107.72

89.04

73.65

60.82

50.34

41.63

34.41

28.39

23.51

19.48

16.11

13.29

11.05

 9.14

 7.49

 6.28

 5.15

 4.28

 3.57

 2.89

 2.45

 2.02

 1.66

 1.41

 1.18

 0.95

 0.79

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

228.37

186.97

153.09

125.32

102.61

84.06

68.76

56.37

46.17

37.81

30.90

25.34

20.80

17.04

13.92

11.46

 9.39

 7.62

 6.33

 5.14

 4.23

 3.50

 2.81

 2.35

 1.93

 1.57

 1.32

 1.10

 0.87

 0.72

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

228.37

186.97

153.09

125.32

102.61

84.06

68.76

56.37

46.17

37.81

30.90

25.34

20.80

17.04

13.92

11.46

 9.39

 7.62

 6.33

 5.14

 4.23

 3.50

 2.81

 2.35

 1.93

 1.57

 1.32

 1.10

 0.87

 0.72

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

491.31

220.78

99.24

44.59

20.05

 9.07

 4.04

 1.89

 0.90

 0.44

 0.17

 0.12

 0.12

 0.09

 0.04

 0.10

 0.09

 0.01

 0.10

 0.04

 0.05

 0.08

 0.01

 0.06

 0.05

 0.03

 0.06

 0.06

 0.03

 0.03

 5

25

45

65

85

105

125

145

165

185

205

225

245

265

285

305

325

345

365

385

405

425

445

465

485

505

525

545

565

585

202.76

155.30

118.97

91.10

69.79

53.51

40.92

31.42

24.09

18.46

14.09

10.83

 8.35

 6.41

 4.88

 3.81

 2.93

 2.18

 1.76

 1.31

 1.03

 0.83

 0.58

 0.50

 0.38

 0.29

 0.26

 0.22

 0.14

 0.12

Приложение

Программа для обработки данных лабораторной работы № 25

10 CLS : LOCATE 9, 20: PRINT "ОПИСАНИЕ ПРОЦЕССОВ ЗАРЯДКИ И РАЗРЯДКИ КОНДЕНСАТОРА"

15 PRINT "             И НАХОЖДЕНИЕ ЕГО ЕМКОСТИ С ПОМОЩЬЮ ИЗВЕСТНОГО СОПРОТИВЛЕНИЯ"

20 LOCATE 20, 1: PRINT : PRINT "Какой процесс: зарядки - 1"

25 PRINT : PRINT "              разрядки - 2"

30 INPUT ; ZR

40 IF ZR = 1 THEN A$ = "зарядки"

50 IF ZR = 1 THEN QQ = 1

60 IF ZR = 2 THEN A$ = "разрядки"

70 IF ZR = 2 THEN QQ = 3

100 CLS : INPUT "Введите значение известного сопротивления в Ом: R = "; RR

110 PRINT : INPUT "Введите число экспериментальных точек: N = "; N: NN = N

120 DIM Y(N + 1), X(N + 1), ZZ(N + 1): A = 0: B = 0: C = 0: D = 0

130 CLS : LOCATE 23, 1: PRINT "Введите последовательно t в сек и I в мкА:"

135 LX = 1: LY = 1: NK = 1

140 FOR I = 1 TO N

'142 LOCATE LX, LY: PRINT "t("; I; ") ="; : INPUT X(I)

X(I) = 5 + 20 * (I - 1)

145 LOCATE LX, LY: PRINT "t("; I; ") ="; : PRINT X(I)

150 LOCATE LX + 1, LY: PRINT "I("; I; ") ="; : INPUT Y(I)

IF Y(I) = 0 THEN Y(I) = 1E-10

155 LX = LX + 2

165 IF LX = 21 THEN LX = 1: LY = LY + 18

170 Y(I) = Y(I) * .000001

175 NEXT I:

X(0) = 0: I0 = Y(1) * 1.1: Y(0) = I0

GOSUB 9000

180 GOTO 300

200 CLS : LOCATE 1, 1

210 PRINT "ПРОВЕРЬТЕ ВВЕДЕННЫЕ ЧИСЛА. ЕСЛИ НУЖНА КОРРЕКЦИЯ,ВВЕДИТЕ НУЖНЫЙ НОМЕР, ЕСЛИ НЕТ,   ВВЕДИТЕ -1"

220 LOCATE 3, 1: INPUT "I="; I

225 IF I = -1 THEN 300

230 LOCATE 5, 1: PRINT "t("; I; ") ="; : INPUT X(I)

240 LOCATE 5, 19: PRINT "I("; I; ") ="; : INPUT Y(I)

245 Y(I) = Y(I) * .000001:  GOSUB 9000

250 LOCATE 3, 1: PRINT "                                      "

255 LOCATE 5, 1: PRINT "                                      "

260 GOTO 220

300 CLS : '"Экспоненциальная регрессия y(x) = bo * exp(b1*x)

310 A = 0: B = 0: C = 0: E = 0: D = 0

320 INPUT "Сколько точек включить в аппроксимацию? N ="; NN

340 FOR I = 0 TO NN

350 IF X(I) = 0 THEN X(I) = 1E-12

370 X = X(I): Y = LOG(Y(I)): A = A + X: B = B + Y: E = E + Y * Y

380 C = C + X * X: D = D + X * Y

390 NEXT I

400 B1 = (A * B - (NN + 1) * D) / (A ^ 2 - (NN + 1) * C)

410 B0 = EXP((B - B1 * A) / (NN + 1))

420 CLS : 'PRINT : PRINT " I(t) = "; B0; "* exp("; B1; "*t)."

430 R = (D - A * B / (NN + 1)) / SQR((C - A * A / (NN + 1)) * (E - B * B / (NN + 1)))

440 PRINT : PRINT "Коэффициент корреляции: R ="; ABS(R)

445 GOTO 4000

450 IF INKEY$ <> " " THEN 450

700 CLS : PRINT "Наберите нужную цифру:" '===Меню===

710 LOCATE 9, 20: PRINT "1. Выход в таблицу."

720 LOCATE 11, 20: PRINT "2. Аппроксимация экспоненциальной регрессией."

725 LOCATE 13, 20: PRINT "3. Печать."

730 LOCATE 15, 20: PRINT "4. Ориентировочный график экспоненциальной зависимости."

735 LOCATE 17, 20: PRINT "5. Ориентировочный график полулогарифмической зависимости."

740 LOCATE 19, 20: PRINT "6. Запись на диск."

745 LOCATE 21, 20: PRINT "7. Выход на начало программы."

750 LOCATE 23, 20: PRINT "8. Изменить входные данные?"

755 INPUT KF

760 IF KF = 1 THEN 6000

765 IF KF = 2 THEN 300

770 IF KF = 3 THEN 7000

780 IF KF = 4 THEN 1000

785 IF KF = 5 THEN 2000

790 IF KF = 6 THEN 8000

795 IF KF = 7 THEN RUN

799 IF KF = 8 THEN 200

GOTO 700

'====Графика====

1000 K2 = 1.6: YK = 0: X5 = INT(X(1)): X6 = INT(X(N)): Y3 = Y(1): IF Y(N) > Y(1) THEN Y3 = Y(N)

'1002 PRINT "Выберите масштаб оси времени в секундах:"; : INPUT K1

K1 = 100

1010 DD = 3: C3 = 2.2: C1 = ABS(C3 * 260 / X6): K1 = K1 * C1: C4 = 20 / 155: C5 = 76 / C3 / 260

1005 CLS : SCREEN 9

1015 Y0 = 270: Y1 = INT((Y0 - YK) * C4) + DD

1020 LOCATE 1, 2: PRINT " I(t), мkA": LOCATE 21, 1: PRINT X9: LOCATE 21, 71: PRINT X6: LOCATE 21, 76: PRINT "t, c"

1025 LOCATE 4, 30: PRINT "I = "; B0; "* exp("; B1; "* t)."

1030 X0 = 260 * (-X5) / (X6 - X5)

1040 LINE (DD, Y0)-(C3 * 280 + DD, Y0), 15

1050 LINE (DD, 0)-(DD, Y0), 15

1052 LINE (DD - 3, 3)-(DD, 0), 15

1054 LINE (DD + 3, 3)-(DD, 0), 15

1056 LINE (C3 * 280 + 3, Y0)-(C3 * 280, Y0 - YK - 3), 15

1058 LINE (C3 * 280 + 3, Y0)-(C3 * 280, Y0 - YK + 3), 15

1060 XC = C1 * (X5 - INT(X5)): XC1 = C1 * (-X5 + INT(X6))

1065 FOR I = 0 TO N

1070 XI = X(I) * C1 + DD: YI = -K2 * Y(I) / ABS(Y3) * 140 + Y0

1075 LINE (XI - DD, YI - YK - DD)-(XI + DD, YI - YK + DD), 15, B

1080 NEXT I

1085 FOR I = 0 TO 2 * XC1 STEP K1

1090 LINE (I + DD, Y0)-(I + DD, Y0 - 10), 15

IF I + DD > 600 THEN 1095

1095 NEXT I

FOR I = 0 TO 2 * XC1 STEP K1 / 10

IF I + DD > 600 THEN 1096

LINE (I + DD, Y0)-(I + DD, Y0 - 5), 15

1096 NEXT I

'FOR I = 0 TO 15

'Y5 = K2 * I * .0001 / ABS(Y3) * 140

'LINE (DD, Y0 - YK - Y5)-(DD + 10, Y0 - Y5 - YK), 15

'NEXT I

FOR I = 0 TO 100

Y5 = K2 * I * .0001 / ABS(Y3) * 140

IF Y5 + YK > 260 THEN 1098

LINE (DD, Y0 - YK - Y5)-(DD + 10, Y0 - YK - Y5), 15

1098 NEXT I

FOR I = 0 TO 100

Y5 = K2 * I * .00001 / ABS(Y3) * 140

IF Y5 + YK > 260 THEN 1099

LINE (DD, Y0 - YK - Y5)-(DD + 5, Y0 - YK - Y5), 15

1099 NEXT I

1100 FOR Z = 0 TO X6 STEP (X6 - X5) / 3000

1110 GOSUB 3000

1130 XZ = Z * C1 + DD: YZ = -K2 * Y / ABS(Y3) * 140 + Y0

1135 PSET (XZ, YZ - YK), 15

1140 PSET (XZ, YZ - YK - 1), 15

1150 NEXT Z

1154 LOCATE 22, 1: PRINT "Рис."; QQ; ". Аппроксимация зависимости тока "; A$; " конденсатора экспоненциальной"; "         регрессией."

1156 IF INKEY$ <> " " THEN 1156

1160 LOCATE 23, 1: INPUT "Если нужно изменить масштаб по вертикали, введите коэффициент: K ="; KK: K2 = KK * K2

1165 IF K2 < 0 THEN 700

1170 LOCATE 23, 1: INPUT "Если нужно сместить график по вертикали, введите соответствующее значение: YK ="; YY: YK = YK + YY

'1180 LOCATE 23, 1: INPUT "Нужно изменить пределы исследования? (y/n):                     "; B$

'1190 IF B$ = "n" OR B$ = "N" THEN 1005

'1195 'IF B$ <> "y" THEN 1180: 'GOSUB 4000

'1200 LOCATE 23, 1: INPUT "Введите нижний предел:                                          Z1 ="; X5

'1210 LOCATE 23, 1: INPUT "Введите верхний предел:                                          Z2 ="; X6

1220 GOTO 1005

2000 K2 = .00004: YK = 170: X5 = INT(X(1)): X6 = INT(X(N)): Y3 = Y(1): IF Y(N) > Y(1) THEN Y3 = Y(N)

'2002 PRINT "Выберите масштаб оси времени в секундах:"; : INPUT K1

K1 = 100

2004 DD = 3: C3 = 2.2: C1 = ABS(C3 * 260 / X6): K1 = K1 * C1: C4 = 20 / 155: C5 = 76 / C3 / 260: Y0 = 200

2005 CLS : SCREEN 9

2015 Y1 = INT((Y0 - YK) * C4) + DD

2020 LOCATE 1, 2: PRINT "ln(I/Io)": LOCATE 2, 1: PRINT X5: LOCATE 2, 71: PRINT X6: LOCATE 2, 76: PRINT "t, c"

2025 LOCATE 4, 30: PRINT "lnI = "; LOG(B0); ""; B1; "* t."

2030 X0 = 260 * (-X5) / (X6 - X5)

2040 LINE (DD, Y0 - YK)-(C3 * 280 + DD, Y0 - YK), 15

2045 LINE (DD, 30)-(DD, 300), 15

2050 LINE (DD - 3, 297)-(DD, 300), 15

2052 LINE (DD + 3, 297)-(DD, 300), 15

2055 LINE (C3 * 280 + DD, Y0 - YK)-(C3 * 280, Y0 - YK - DD), 15

2057 LINE (C3 * 280 + DD, Y0 - YK)-(C3 * 280, Y0 - YK + DD), 15

2060 XC = C1 * (X5 - INT(X5)): XC1 = C1 * (-X5 + INT(X6))

2065 FOR I = 0 TO N

2070 XI = X(I) * C1 + DD: YI = -K2 * LOG(Y(I) / B0) / ABS(Y3) * 140 + Y0

2075 LINE (XI - DD, YI - YK - DD)-(XI + DD, YI - YK + DD), 15, B

2080 NEXT I

2085 FOR I = (-X5 + X(1)) * C1 TO 2 * XC1 STEP K1

IF I + DD > 600 THEN 2095

2090 LINE (I + DD, Y0 - YK)-(I + DD, Y0 - YK + 10), 15

2095 NEXT I

FOR I = 0 TO 2 * XC1 STEP K1 / 10

IF I + DD > 600 THEN 2096

LINE (I + DD, Y0 - YK)-(I + DD, Y0 - YK + 5), 15

2096 NEXT I

FOR I = 0 TO 10

Y5 = -K2 * I * 10 / ABS(Y3) * 140

LINE (DD, Y0 - YK - Y5)-(DD + 610, Y0 - Y5 - YK), 15

NEXT I

FOR I = 0 TO 15

Y5 = -K2 * I / ABS(Y3) * 140

IF Y5 + YK < -100 THEN 2098

LINE (DD, Y0 - YK - Y5)-(DD + 10, Y0 - YK - Y5), 15

2098 NEXT I

FOR I = 0 TO 1000

Y5 = -K2 * .1 * I / ABS(Y3) * 140

IF Y5 + YK < -100 THEN 2099

LINE (DD, Y0 - YK - Y5)-(DD + 5, Y0 - YK - Y5), 15

2099 NEXT I

2100 FOR Z = 0 TO X6 STEP (X6 - X5) / 3000

2110 GOSUB 3000

2130 XZ = Z * C1 + DD: YZ = -K2 * LOG(Y / B0) / ABS(Y3) * 140 + Y0

2135 PSET (XZ, YZ - YK), 15

2140 PSET (XZ, YZ - YK - 1), 15

2150 NEXT Z

2154 LOCATE 23, 1: PRINT "Рис."; QQ + 1; ". Аппроксимация процесса "; A$; " полулогарифмической зависимостью."

2156 IF INKEY$ <> " " THEN 2156

2160 LOCATE 23, 1: INPUT "Если нужно изменить масштаб по вертикали, введите коэффициент: K ="; KK: K2 = KK * K2

2165 IF K2 < 0 THEN 700

2170 LOCATE 23, 1: INPUT "Если нужно сместить график по вертикали, введите соответствующее значение: YK ="; YY: YK = YK + YY

2180 'LOCATE 23, 1: INPUT "Нужно изменить пределы исследования? (y/n):                     "; B$

2190 'IF B$ = "n" OR B$ = "N" THEN 2005

2195 'IF B$ <> "y" THEN 1180: 'GOSUB 4000

2200 'LOCATE 23, 1: INPUT "Введите нижний предел:                                          Z1 ="; X5

2210 'LOCATE 23, 1: INPUT "Введите верхний предел:                                          Z2 ="; X6

2220 GOTO 2005

3000 IF ABS(B1 * Z) > 80 THEN 3020

3010 Y = B0 * EXP(B1 * Z)

3020 RETURN

4000 PRINT : PRINT "Искомое уравнение имеет вид:"

4170 C = 1 / B1 / RR

4175 IF I0 = 0 THEN I0 = B0

4180 PRINT : PRINT "I(t) = "; B0; "* exp("; B1; "*t) A."

4190 PRINT : PRINT "R = "; RR; " Ом."

4200 PRINT : PRINT "C = "; -C; " Ф."

4210 PRINT : PRINT "I0 = "; I0; " A."

4220 PRINT : PRINT "Время релаксации "; -1 / B1; "сек."

4230 PRINT "================================================"

4390 IF INKEY$ <> " " THEN 4390

4395 GOTO 700

'====Таблица====

6000 CLS :  PRINT " Зависимость параметров процесса "; A$; "  от времени"

6020 PRINT "======================================================="

6030 PRINT "  N      t, c       I, А        ln(I)        ln(I/Io)"

6040 PRINT "======================================================="

6050 NK = 0: FOR I = 0 TO N

6090 PRINT USING "###     ####     #.####^^^^   ###.####     ###.#### "; I; X(I); Y(I); LOG(Y(I)); LOG(Y(I) / I0): NK = NK + 1

6100 IF NK < 15 THEN 6120

6115 IF INKEY$ <> " " THEN 6115

6110 NK = 0:

6120 NEXT I: PRINT "Для возврата в меню команд нажмите пробел"

6140 IF INKEY$ <> " " THEN 6140

6150 GOTO 700

'====Таблица печать====

7000 CLS :  LPRINT "               Зависимость параметров процесса "; A$; "от времени"

7020 LPRINT "           ======================================================="

7030 LPRINT "              t, c         I, А          ln(I)        ln(I/Io)"

7040 LPRINT "           ======================================================="

7050 NK = 0: FOR I = 1 TO N

7090 LPRINT USING "             ####       #.####^^^^     ###.####      ###.#### "; X(I); Y(I); LOG(Y(I)); LOG(Y(I) / I0): NK = NK + 1

7240 NK = 0

7270 NEXT I: LPRINT "           ======================================================="

7280 LPRINT "           Искомое уравнение имеет вид:"

7290 C = 1 / B1 / RR

7300 LPRINT "           I(t) = "; B0; "* exp("; B1; "*t) A."

7310 LPRINT "           R = "; RR; " Ом."

7315 LPRINT "           C = "; -C; " Ф."

7320 LPRINT "           I0 = "; B0; " A."

7325 LPRINT "           Время релаксации "; -1 / B1; "сек."

7330 LPRINT "           ================================================"

7350 PRINT "Для возврата в меню команд нажмите пробел"

7360 IF INKEY$ <> " " THEN 7360

7370 GOTO 700

8000 CLS : '===Запись на диск===

8010 LOCATE 15, 30: PRINT "ДИСК С ДИРЕКТОРИЕЙ DAN НЕ ЗАБЫЛИ ?"

8020 A$ = INKEY$: IF A$ <> " " THEN 8020

8030 LOCATE 17, 31: PRINT "НАЗОВИТЕ ФАЙЛ:"

8040 LOCATE 18, 31: INPUT B$

8050 F$ = "A:\DAN\" + B$ + ".tbl"

8060 CLS : LOCATE 15, 30: PRINT "ЗАПИСЫВАТЬ ? (Y/N)"

8070 A$ = INKEY$

8080 IF A$ = "N" OR A$ = "n" THEN 8010

8090 IF A$ = "Y" OR A$ = "y" THEN 8110

8100 GOTO 8070

8110 OPEN F$ FOR OUTPUT AS #1

8200 CLS : PRINT #1, "               Зависимость параметров процесса "; A$; "  от времени"

8220 PRINT #1, "           ======================================================="

8230 PRINT #1, "              t, c         I, А          ln(I)        ln(I/Io)"

8240 PRINT #1, "           ======================================================="

8250 NK = 0: FOR I = 1 TO N

8290 PRINT #1, USING "             ####       #.####^^^^     ###.####      ###.#### "; X(I); Y(I); LOG(Y(I)); LOG(Y(I) / I0): NK = NK + 1

8340 NK = 0

8350 NEXT I

8360 PRINT #1, "           ======================================================="

8380 PRINT #1, "           Искомое уравнение имеет вид:"

8390 C = 1 / B1 / RR

8400 PRINT #1, "           I(t) = "; B0; "* exp("; B1; "*t) A."

8410 PRINT #1, "           R = "; RR; " Ом."

8415 PRINT #1, "           C = "; -C; " Ф."

8420 PRINT #1, "           I0 = "; B0; " A."

8425 PRINT #1, "           Время релаксации "; -1 / B1; "сек."

8430 PRINT #1, "           ================================================"

8480 CLOSE

8490 CLS : LOCATE 17, 15: PRINT "ФАЙЛ "; F$; " ЗАПИСАН"

8500 A$ = INKEY$: IF A$ <> " " THEN 8500

8510 GOTO 700

9000 FOR K = 1 TO N - 1

9010 FOR J = K + 1 TO N

9020 IF X(K) >= X(J) THEN SWAP Y(K), Y(J)

9030 IF X(K) >= X(J) THEN SWAP X(K), X(J)

9040 NEXT J: NEXT K

9050 RETURN

175


 

А также другие работы, которые могут Вас заинтересовать

45996. Сертифікація в зарубіжних країнах 196 KB
  У сертифікаті повинні бути вказані всі стандарти, дія яких поширюється на сертифіковану продукцію. Такий сертифікат повинен супроводжувати продукцію або бути переданим оптовому чи роздрібному продавцеві, до якого надійшла дана продукція.
45998. СЕРТИФІКАЦІЯ СИСТЕМ ЗАБЕЗПЕЧЕННЯ ЯКОСТІ 120.5 KB
  Зміни стосовно впровадження систем якості в Україні відбиваються у кількісній формі: підприємств, які бажають проводити роботи з сертифікації систем якості, вже сотні, а не одиниці, як це було раніше. Проте Україна значно відстає від розвинених держав
45999. Эффективный диаметр молекул 266 KB
  Молекулы газов – это, как правило, нейтральные частицы. Но в своем составе они содержат атомы, в которых есть и положительные и отрицательные заряды. Поэтому при приближении двух молекул друг к другу начинает все больше сказываться электростатическое отталкивание.