Уразбаева К. Т., Мақамбаев М. Б. Компьютерлік модельдеу элементтері физика пәнінде
жүктеу/скачать 0,85 Mb.
|
- Бұл бет үшін навигация:
- Elektromagnit
3.10 Электромагнит. 800 орам оралған магнит өткізгішінің ұзындығы 70 см, ал өзегінің көлденең қимасының ауданы 100 см2 тең. Орамдағы ток күші 0,2 А және ұштықтардың арасындағы саңылаудың көлденең қимасының ауданы 10 см2 екені белгілі болса (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+' см2'); Str(Sz*1E4:3:1,s); OutTextXY(135,114,'Sz = '+s+' см2'); 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.
Каталог: ebook ebook -> Мамандығына арналған Сұлтанмахмұттану ПӘнінің ОҚУ-Әдістемелік кешені ebook -> Қазақстан Республикасының ebook -> Қазақстан Республикасының ebook -> Студенттерге арналған оқу әдістемелік кешені ebook -> ПӘннің ОҚУ Әдістемелік кешені 5В011700 «Қазақ тілі мен әдебиеті» мамандығына арналған «Ұлы отан соғысы және соғыстан кейінгі жылдардағы қазақ әдебиетінің тарихы (1941-1960)» пәнінен ОҚытушыға арналған пән бағдарламасы ebook -> ПОӘК 042-18-29 8/03-2013 №1 басылым 05. 09. 2013 ebook -> «Балалар әдебиеті» пәніне арналған оқу-әдістемелік материалдар 2013 жылғы №3 басылым 5 в 050117 «Қазақ тілі мен әдебиеті» ebook -> ПӘннің ОҚУ-Әдістемелік кешенінің ebook -> 5 в 011700- Қазақ тілі мен әдебиеті ebook -> 5 в 011700- Қазақ тілі мен әдебиеті жүктеу/скачать 0,85 Mb. Достарыңызбен бөлісу:
|