Уразбаева К. Т., Мақамбаев М. Б. Компьютерлік модельдеу элементтері физика пәнінде

жүктеу/скачать 0,85 Mb.

бет	15/18
Дата	20.06.2018
өлшемі	0,85 Mb.
	#43509

1 ... 10 11 12 13 14 15 16 17 18

Elektromagnit

3.10 Электромагнит. 800 орам оралған магнит өткізгішінің ұзындығы 70 см, ал өзегінің көлденең қимасының ауданы 100 см² тең. Орамдағы ток күші 0,2 А және ұштықтардың арасындағы саңылаудың көлденең қимасының ауданы 10 см² екені белгілі болса (8 сурет), магнит индукциясының саңылау еніне тәуелділігін анықтаңдар. Өзектің магнит өтімділігін μ_c=1200 деп алыңдар.

8 сурет. Электромагнит

Тармақталмаған магнит өткізгішінде магнит индукциясы

, ал магнит ағыны

формулаларымен есептеледі. Мұнда i – орамдағы ток күші,

– саңылау ұзындығы мен көлденең қимасының ауданы,

– өзектің ұзындығы, көлденең қимасының ауданы және магнит өтімділігі.

1,26∙10^-6 В∙с/(А∙м) – магнит тұрақтысы. Elektromagnit программасы ұштықтың арасындағы саңылау (0; 3 мм) аралығында өзгергенде магнит өткізгішіндегі магнит ағынының оған тәуелділігінің графигін сызады.
Program Elektromagnit;

uses Crt, Graph;

const Lc=0.7; Sc=0.01; Sz=0.001; n=4000; i=0.2;

Mc=1200; Mo=1.26E-6; x0=26; y0=462;

var Gd, Gm, x1, y1, j: integer; Lz, F, B, dL: real; s: string;

begin

Gd:=Detect; InitGraph(Gd,Gm,''); SetTextStyle(7,0,4); SetColor(11);

OutTextXY(210,12,'Elektromagnit');

SetColor(7); Line(0,y0,640,y0); Line(x0,0,x0,480);

Line(640,y0,630,y0-4); Line(640,y0,630,y0+4);

Line(x0,0,x0-4,10); Line(x0,0,x0+4,10); SetTextStyle(0,0,1);

SetColor(14); OutTextXY(590,y0-20,'Lz(мм)');

OutTextXY(x0+8,0,'B(Tл)'); OutTextXY(16,y0+8,'0'); SetColor(8);

For j:=1 to 9 do

begin

str(j,s); line(x0-5,y0-50*j,640,y0-50*j); OutTextXY(10,y0-50*j-8,s);

end;

For j:=1 to 6 do

begin

str(j,s); line(x0+100*j,0,x0+100*j,y0+5); OutTextXY(100*j+24,y0+8,s);

end;

SetTextStyle(0,0,1); SetColor(13);

Str(Lc*100:3:1,s); OutTextXY(135,74,'Le = '+s+' см');

Str(Sc*1E4:3:1,s); OutTextXY(135,94,'Se = '+s+' см²');

Str(Sz*1E4:3:1,s); OutTextXY(135,114,'Sz = '+s+' см²');

Str(n:0,s); OutTextXY(135,134,'n = '+s);

Str(i:3:1,s); OutTextXY(135,154,'i = '+s+' A');

Str(Mc:4,s); OutTextXY(135,174,'Mс = '+s);

Str(Mo*1E6:4:2,s); OutTextXY(135,194,'Mo = '+s+'10^-6');

Lz:=0; dL:=1E-6;

while Lz<=6E-3 do

begin

F:=i*n*Mo/(Lz/Sz+Lc/Sc/Mc); B:=F/Sz;

x1:=Round(x0+Lz*1E5); y1:=Round(y0-B*50);

PutPixel(x1,y1,12); Delay(50); Lz:=Lz+dL;

end;

Readln; CloseGraph;

end.

жүктеу/скачать 0,85 Mb.

Достарыңызбен бөлісу:

1 ... 10 11 12 13 14 15 16 17 18